Sorry, The last three lines should read:
all <- apply(results, 1, function(x) length(intersect(x,
seq(sides)))==sides)
sum(all)/reps
results <- as.data.frame(results)
To generalize them for values of sides other than 6.
On Fri, Apr 22, 2022 at 11:05 PM Paul Bernal wrote:
> Thank you so much Da
Thank you so much David!
El El vie, 22 de abr. de 2022 a la(s) 11:04 p. m., David Carlson <
dcarl...@tamu.edu> escribió:
> Since the rolls are independent, it is not necessary to separate the rolls
> into two stages:
>
> sides <- 6
> months <- 12
> reps <- 100
>
> set.seed(2022)
> results <- matr
2 matches
Mail list logo