モンティ・ホール問題をR言語でモンテカルロ法で解いてみた。R言語ははじめて使ったので、もっとエレガントな書き方があるかもしれない。 choice <- function(a) { a[runif(1,1,length(a)+1)] } game <- function(change) { doors <- c("A", "B", "C") car <…