［R］パスカルの三角形を作成する

choose関数とsapply関数を組合わせて使う。

> sapply(0:6, function(x) choose(x, 0:x))
[[1]]
[1] 1
[[2]]
[1] 1 1
[[3]]
[1] 1 2 1
[[4]]
[1] 1 3 3 1
[[5]]
[1] 1 4 6 4 1
[[6]]
[1]  1  5 10 10  5  1
[[7]]
[1]  1  6 15 20 15  6  1