r - 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 の長さが他と異なるというエラーが発生しました。