如何查找所有可能的离散值和出现次数

Question

鉴于：yi <- c(1,2,4,4,7,7,7,8)

现在从上面的8个样本中抽取4个单位，简单随机抽样，无需更换。

我想找到所有（8选4 =）70种组合的所有可能的离散值，并且每个离散值都会出现。

例如：
t1 =（1,2,4,4）= 11，仅发生一次 t2 ......

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