在 R 循環中的 choose(k, n) 中查找組合

Question

我需要找到一組中所有可能組合的總和。 例如：

sum(choose(5, 0),

    choose(5, 1),

    choose(5, 2),

    choose(5, 3),

    choose(5, 4),

    choose(5, 5))

可以使用 for 循環來循環choose()任何給定的n和k而不是這樣寫出來嗎？

Answer 1

您可以使用

> sum(choose(5, 0:5))
[1] 32

或者只是應用二項式和

> 2^5
[1] 32

Answer 2

如果您想為不止一個n執行此操作，您可以使用sapply

setNames( sapply( 1:10, function(x) sum( choose( x, 0:x ) ) ), 1:10 )
   1    2    3    4    5    6    7    8    9   10 
   2    4    8   16   32   64  128  256  512 1024