Skip to content
Prev 366003 / 398502 Next

Organize regression output

Hi Francesca,
I'm not sure what you are doing here, but try this:

regnames<-paste("r",letters[1:8],sep="")
for(i in 1:8) {
 response<-rnorm(20)
 coef1<-rnorm(20)
 coef2<-rnorm(20)
 age<-sample(20:50,20)
 gender<-sample(c("M","F"),20,TRUE)
 assign(regnames[i],lm(response~coef1+coef2+age+gender))
}
reglist<-list(ra,rb,rc,rd,re,rf,rg,rh)
cumsumcoef<-function(x) return(cumsum(x$coef))
coefsumlist<-as.data.frame(lapply(reglist,cumsumcoef))
names(coefsumlist)<-regnames
coefsumlist

Jim

On Sat, Dec 10, 2016 at 6:32 PM, francesca Pancotto
<francesca.pancotto at gmail.com> wrote: