这是我的代码
这里粘贴功能仅适用于两种组合。我需要在一个循环中同时使用相同的代码来处理两种以上的组合。
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
}
现在我得到了这两种组合
V1V2, V1V3,V1V4,....
现在我想要
v1v2v3, v1v2v4, ...
在paste
功能上。