我有一个关于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的长度与其他的回归不同 .

r regression