Displaying 1 result from an estimated 1 matches for "regout".
Did you mean:
recout
2002 Sep 30
0
using step function in functions
...}
if (i==1) indDat<-cDat else indDat<-cbind(indDat,cDat)
}
# build regression models
for (i in 1:dimz[2]) {
subData<-cbind(depDat[[i]],indDat)
names(subData)[1]<-names(rData)[i]
# make model where first variable in frame is the dependent variable
regOut00<-eval(substitute(lm( dV ~ . , data=subData),
list(dV = as.name(names(subData)[1]))
))
regOut0<-step(regOut00)
#regOut0<-eval(step(regOut00),envir=subData,enclos=parent.frame())
regOut0<-list(regOut0)
if (i>1) regOut<-c(re...