ビンゴの結果を整形表示
Posted feedbacks - R
1行に10個とか，ラベルを付けてとか，空行を挟むとか言うことがなければ単に bingo <- sample でよいのだが。。。 > bingo(35) 1 2 3 4 5 6 7 8 9 10 28 30 18 14 8 15 9 29 4 19 11 12 13 14 15 16 17 18 19 20 16 2 21 3 22 24 27 26 31 13 21 22 23 24 25 26 27 28 29 30 34 11 7 20 23 25 33 5 1 6 31 32 33 34 35 17 35 10 32 12
1 2 3 4 5 6 7 8 9 10 | bingo <- function(n) {
m <- sample(n)
names(m) <- 1:n
for (i in 0:((n-1)%/%10)) {
is <- i*10+1
ie <- min(is+9, n)
print(m[is:ie])
cat("\n")
}
}
|
raynstard
#3403()
Rating1/1=1.00
「重複無し乱数」で作ったbingo関数の結果を下のように「何番目の乱数か」とセットにして10個ずつ折り返して表示するコードを書いてください。
[ reply ]