面白い問題おしえて～な 31問目

面白い問題おしえて～ ..

711:１３２人目の素数さん
20/03/10 20:09:56.15 H1fx2jVB.net
>>691
１０万回シミュレーションして頻度をグラフ化
URLﾘﾝｸ(i.imgur.com)
sim <- function(){
dice=0
i=0
while(dice!=1){
i=i+1
dice=sample(6,1)
}
return(i)
}
k=1e5
re=replicate(k,sim())
tbl=table(re) ; tbl
which.max(tbl)
plot(tbl/k,bty='l')

次ページ

続きを表示

1を表示