2013-02-07 28 views
2

考慮:上面與替換,簡單隨機抽樣從8 yi <- c(1,2,4,4,7,7,7,8)我如何查找所有可能的離散值和OCCURENCES

現在樣品4個單位。

我想找到所有可能的離散值(8個選擇4 =)70個組合和每個離散值出現的數量。

例如:
T1 =(1,2,4,4)= 11,只發生一次
T2 ......

+1

這是一個數學問題,而不是編程問題。 –

+0

@SeñorO它最好被視爲數學問題......但沒有理由不能成爲編程問題。 – Dason

+0

@SeñorO - 告訴[Donald Knuth](http://en.wikipedia.org/wiki/Donald_Knuth#Works);) –

回答

7

您可以使用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 
+2

您是否在暗示'combinat :: combn'與'utils :: combn ',即實際上需要加載pkg :: combinat? –