数学問題における符号誤りの相殺

Rで解く確率パズル

Peter Chi

Assistant Professor of Statistics Villanova University

発想の源

rbinom(n = 10, size = 5, prob = 0.4)

0 3 4 2 2 1 1 2 3 3

value <- 3
value/2 == round(value/2)

FALSE

value <- 4
value/2 == round(value/2)

TRUE

result <- c(TRUE, TRUE, FALSE, TRUE)
mean(result)

0.75

sapply(X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE)

rbinom(n, size, prob)

result <- sapply(X = c(0.25, 0.75, 0.1, 0.9), FUN = rbinom, n = 1, size = 1)

result

0 1 0 1

sum(result)

Rで解く確率パズル