Displaying 1 result from an estimated 1 matches for "inddat".
Did you mean:
indat
2002 Sep 30
0
using step function in functions
...rData[(lagz+1):dimz[1],]
print((dim(depDat))[1])
for (i in 1:lagz) {
cDat<-rData[(lagz-i+1):(dimz[1]-i),]
for (j in 1:dimz[2]) {
names(cDat)[j]<-paste(names(cDat)[j],"xL", i,
sep="",collapse=NULL)
}
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(substitu...