rolling dice by simulation.R

# Simulation of 12-sided dice rolls
set.seed(123)
n = 120
rolls = rdunif(n,1,12)
summary(rolls)
table(rolls)

library(tidyverse)
mydata = tibble(rolls)
ggplot(mydata,mapping=aes(x=rolls)) +
  geom_bar() +
  ggtitle("Frequencies of rolls of a 12-sided dice:") +
  coord_flip()