r - 可能なすべての離散値と出現を見つける方法

Question

与えられた:yi <- c(1,2,4,4,7,7,7,8)

次に、置換なしの単純なランダム サンプリングで、上記の 8 つのユニットから 4 つのユニットをサンプリングします。

すべての可能な離散値 (8 選択 4 =) 70 の組み合わせと、各離散値が発生する数を見つけたいと思います。

例:
t1 = (1,2,4,4) = 11、
t2 の 1 回だけ発生 ...

Answer 1

使用できますcombinat::combn：

library(combinat)
all.poss <- t(combn(yi, 4))

dim(all.poss)
# [1] 70 4
table(rowSums(all.poss))
# 11 14 15 16 17 18 19 20 21 22 23 24 25 26 29 
#  1  6  2  3  7  4  6 12  6  4  7  3  2  6  1