2011-11-17から1日間の記事一覧

問題をシミュレーションで解く

友達からの問題。 を[tex:01]をになる回数の期待値は? という問題。 一回の試行の期待値がだから2くらいじゃね?と思ってシミュレーションしてみる。 # 和が初めて1を超えるときを返す関数 f<- function(vec){ return(head(which(vec>1),1)) } pp<- seq(1,100…