2
考慮:上面與替換,簡單隨機抽樣從8 yi <- c(1,2,4,4,7,7,7,8)
我如何查找所有可能的離散值和OCCURENCES
現在樣品4個單位。
我想找到所有可能的離散值(8個選擇4 =)70個組合和每個離散值出現的數量。
例如:
T1 =(1,2,4,4)= 11,只發生一次
T2 ......
考慮:上面與替換,簡單隨機抽樣從8 yi <- c(1,2,4,4,7,7,7,8)
我如何查找所有可能的離散值和OCCURENCES
現在樣品4個單位。
我想找到所有可能的離散值(8個選擇4 =)70個組合和每個離散值出現的數量。
例如:
T1 =(1,2,4,4)= 11,只發生一次
T2 ......
您可以使用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
您是否在暗示'combinat :: combn'與'utils :: combn ',即實際上需要加載pkg :: combinat? –
這是一個數學問題,而不是編程問題。 –
@SeñorO它最好被視爲數學問題......但沒有理由不能成爲編程問題。 – Dason
@SeñorO - 告訴[Donald Knuth](http://en.wikipedia.org/wiki/Donald_Knuth#Works);) –