Displaying 1 result from an estimated 1 matches for "lstm1".
Did you mean:
lst1
2013 Apr 13
1
how to add a row vector in a dataframe
...,data=simdata[,i]);
>pshat<- predict(glm.t,type="response")})
>simdata1<-rbind(simdata,pshat=lstpshat)
>
>simdata.ps1<- simdata1
>simdata.ps1[]<-do.call(c,lapply(seq_len(ncol(simdata1)),function(i) lapply(simdata1[,i],function(x) x[simdata1[,i]$t==1])))
>lstm1<- lapply(seq_len(ncol(simdata.ps1)),function(i)
{dat<-do.call(data.frame,lapply(simdata.ps1[,i],function(x)
x));if(nrow(dat)!=0) >{glm.1<-glm(y~x1+x2+x3+x4+x8+x9+x10,data=dat)}
else NULL; glm.1; m1<- predict(glm.1)})
>
>simdata.ps0<- simdata1
>simdata.ps0[]<-do.ca...