roll.R

#roll, as in roll di(c)e
# m = number of times
# n = number of dice

roll <- function(m, n){
  set.seed(1234)
  means <- plyr::ldply(1:m, function(x){
    return(mean(sample(1:6, n, replace = TRUE)))
  }) 
}