Estoy tratando de multiplicar la columna y obtener sus nombres. Tengo un marco de datos:

v1 v2 v3 v4 v5  
 0  1  1  1  1
 0  1  1  0  1
 1  0  1  1  0

Estoy tratando de multiplicar cada columna por otra, como:

v1v2 
v1v3
v1v4
v1v5

y v2v3 v2v4 v2v5

etc, y

v1v2v3 
v1v2v4
v1v2v5
v2v3v4
v2v3v5

4 combinaciones y 5 combinaciones ... si hay n columnas, entonces n combinaciones.

Intento usar el siguiente código en el bucle while, pero no funciona:

i<-1 
while(i<=ncol(data)
{  
  results<-data.frame() 
  v<-i
  results<- t(apply(data,1,function(x) combn(x,v,prod))) 
  comb <- combn(colnames(data),v)
  colnames(results) <- apply(comb,v,function(x) paste(x[1],x[2],sep="*"))
  results <- colSums(results)
}

Pero no está funcionando.

muestra de salida puesto ..

si n = 3

v1v2  v1v3 v2v3
  0      0    1    
  0      0    1  
  0      1    0

y colsum

v1v2  v1v3 v2v3
   0     1    2

entonces

v1v2=0
v1v3=1
v2v3=2

este es lo que estoy tratando?