これは私のコードです
ここで、貼り付け機能は2つの組み合わせでのみ機能します。同時に2つ以上の組み合わせのループで同じコードが必要です。
i<-2
while (i<=10)
{
results<-data.frame()
results<- t(apply(data,1,function(x) combn(x,i,prod)))
comb <- combn(colnames(data),i)
colnames(results) <- apply(comb,i,function(x) paste(x[1],x[2]))
i<-i+1
}
今、私は次のような2つの組み合わせを取得します
V1V2, V1V3,V1V4,....
今私は欲しい
v1v2v3, v1v2v4, ...
機能中paste
。