在R中滚动虚拟回归

Question

我有一个关于r的回归分析的问题。

#Datei einlesen
residual <- read.csv2("E:***Input-R_Renditen.csv",header=TRUE,sep=";")

#Firmen
alist <- list()
for (a in 2:11){
    #Länge Gesamtzeit
t <- 243
tx <- t-59

#Länge Regression
reglist <- list()
for (i in 1:tx){
    j <- i+59
    c <- i+54

    #RegressionsVariable
    r <- residual[i:j,a]
    rm <- residual[i:j,12]
    smb <- residual[i:j,13]
    hml <- residual[i:j,14]
    rf <- residual[i:j,15]

    #Überschussrendite
    er <- r-rf
    erm <- rm-rf

    #Regression
    reg <- lm(er~erm+smb+hml)
    reglist[[i]] <- coef(reg)
    }
alist[[a]] <- reglist
}

我想在回归中插入一个虚拟/分类变量。让我称之为虚拟“d”，d应该具有i到j-6的值1和j-5到j的值0.

我不能将这个包括在我的表中，这是读取的，因为对于每个新的回归i，假人都不同。我用ifelse尝试了它，但是我得到了错误，d的长度与其他的不同。