Re: [R] Looping an lapply linear regression function

Hi, Try: dat2<- read.csv("BOlValues.csv",header=TRUE,sep="\t",row.names=1) dim(dat2) #[1] 20 28 indx2<-expand.grid(names(dat2),names(dat2),stringsAsFactors=FALSE) nrow(indx2) #[1] 784 indx2New<- indx2[indx2[,1]!=indx2[,2],] nrow(indx2New) #[1] 756 res2<-sapply(seq_len(nrow(indx2New)),function(i

Re: [R] Looping an lapply linear regression function

HI, Using the example dataset (Test_data.csv): dat1<- read.csv("Test_data.csv",header=TRUE,sep="\t",row.names=1) indx2<-expand.grid(names(dat1),names(dat1),stringsAsFactors=FALSE) indx2New<- indx2[indx2[,1]!=indx2[,2],] res2<-t(sapply(seq_len(nrow(indx2New)),function(i) {x1<- indx2New[i,]; x2<-c

Re: [R] Looping an lapply linear regression function

HI, May be this helps:  set.seed(28)  dat1<- setNames(as.data.frame(matrix(sample(1:40,10*5,replace=TRUE),ncol=5)),letters[1:5]) indx<-as.data.frame(combn(names(dat1),2),stringsAsFactors=FALSE) res<-t(sapply(indx,function(x) {x1<-cbind(dat1[x[1]],dat1[x[2]]);summary(lm(x1[,1]~x1[,2]))$coef[,4]}))

Re: [R] Looping an lapply linear regression function

Hello Arun. Can you provide some data? To help you better i will need a complete reproducible example ok? On Thu, Sep 5, 2013 at 1:49 PM, arun wrote: > HI, > May be this helps: > set.seed(28) > dat1<- > setNames(as.data.frame(matrix(sample(1:40,10*5,replace=TRUE),ncol=5)),letters[1:5]) > indx