Displaying 1 result from an estimated 1 matches for "depdat".
Did you mean:
depdata
2002 Sep 30
0
using step function in functions
...arry Feldman
Barry Feldman (p) 312-616-9213
Ibbotson Associates (f) 312-616-0404
225 North Michigan Ave.
Chicago, IL 60601 U.S.A.
# Vector Auto Regression
VAR <- function(rData0,lagz) {
# build regression datasets
rData<-na.omit(rData0)
dimz<-dim(rData)
depDat<-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...