Shishita 四下（しした）の出目の確率分布

shishita.R

dice <- c(1:6)

result <- 1:100000

for (i in 1:100000) {
  a <- sample(dice, 1, TRUE)
  b <- sample(dice, 1, TRUE)
  c <- a + b
  d <- c %% 4
  if (d == 0) d <- 4
  result[i] <- d
}

hist(result, col='gray', main='shi-shita', breaks=c(0,1,2,3,4), freq = FALSE)