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')
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')