Предположим, у меня есть биномиальное распределение, где n = 12, p = 0,2. Я разбил этот образец на 4 блока (группы), каждый блок имеет размер группы 3. Затем я удаляю выход, сумма которого равна 0, и объединяю оставшиеся выходы в новый набор данных. Вот некоторые из моего кода:
set.seed(123)
sample1=rbinom(12,1,0.2)
chuck2=function(x,n)split(x,cut(seq_along(x),n,labels=FALSE))
chunk=chuck2(sample1,4)
newvector=c()
for (i in 1:4){
aa=chunk[[i]]
if (sum(aa)!=0){
a.no0=aa
newvector=c(newvector,a.no0)
}
}
print(newvector)
и вот результат, который я получил:
[1] 1 1 0 0 1 0 0 1 0
я пытаюсь случайным образом перегруппировать эти данные, например:
[1] 0 1 0 0 1 1 1 0 0
или
[1] 1 0 1 0 1 0 1 0 0
......
Я пытался использовать 'regroup' в пакете 'LearnBayes' и 'caroline', но это не сработало. Любые подсказки, пожалуйста?