roll2 <- function() { + die <- 1:4 + dice <- sample(die, size = 4, replace = TRUE) + dicedice + } replicate(n = 20, expr = two.dice()) roll2 <- function() { + die <- 1:4 + dice <- sample(die, size = 4, replace = TRUE) + dicedice}