# いびつなサイコロを1000回投げて,出る目の傾向を調べてみる.
x <- numeric(1000)
for (i in 1:1000){
x[i] <- sample(x=1:6, size=1, replace=FALSE, prob=c(1,2,3,3,2,1)) # 3と4の目が出やすいサイコロ.
}
これは,以下のように一行で書く(余分なことはしない。for など使うと遅くなる)
x <- sample(x=1:6, size=1000, replace=TRUE, prob=c(1,2,3,3,2,1))
最新の画像[もっと見る]
-
算額(その2059) 2時間前
-
算額(その2057) 5時間前
-
算額(その2056) 20時間前
-
算額(その2055) 20時間前
-
算額(その2054) 1日前
-
算額(その2053) 1日前
-
算額(その2052) 1日前
-
算額(その2051) 1日前
-
算額(その2051) 1日前
-
算額(その2050) 2日前
※コメント投稿者のブログIDはブログ作成者のみに通知されます