[R] how to get output from a nested loop

[Scott Hermann]

Dear all,

I imagine that this is a trival question, but it has perplexed for most of the day.  Any help would be greatly appreciated.

Below is an example of what I'm trying to do.

Essentially I want to produce all unique 1 x 1 combinations of certain columns from a dataframe, and join these to other columns from the same dataframe.  I'm having problems with the nested loop as I can only output data from the last "cycle" of the loop.  I realise that the problem is with the st1[[i]] but I'm not sure how to define it differently.

##I want to make a list file of all 1x1 combinations of "mk" columns, and add "clone" and "S" to these combinations.

clone<-c("c1","c2","c3","c4")
mk1<-c(1,1,0,0)
mk2<-c(0,0,0,1)
mk3<-c(1,1,1,1)
mk4<-c(0,0,0,0)
mk5<-c(0,0,0,1)
S<-c(4,5,3,2)
t1<-as.data.frame(cbind(clone,mk1,mk2,mk3,mk4, mk5,S))
row.names(t1)<-t1$clone
t1<-t1[,-1]
t1

###A nested loop.  I'm trying to get all combinations of columns 1:5 and join each of them with column 7.

st1 <- list()
  for(i in 1:4) {
   for(j in (i+1):5){
       st1[[i]] <- cbind(t1[,c(i,6)],t1[,j])
       }
       }
  st1

Thanks for your help,

Scott
BSES Limited Disclaimer

--------------------------------------------------------------------------------

This email and any files transmitted with it are confide...{{dropped:13}}