x<-c("I1","I2","I3","I4")
t(combn(x,2))
[,1] [,2]
[1,] "I1" "I2"
[2,] "I1" "I3"
[3,] "I1" "I4"
[4,] "I2" "I3"
[5,] "I2" "I4"
[6,] "I3" "I4"
用t()转置后每一行就是所需数据
t(combn(x,3))
[,1] [,2] [,3]
[1,] "I1" "I2" "I3"
[2,] "I1" "I2" "I4"
[3,] "I1" "I3" "I4"
[4,] "I2" "I3" "I4"