ダメ出し：sample 関数の使い方

「sample関数で順列を作り出してみる」で

# いびつなサイコロを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))