从for循环中提取结果

Question

我目前正致力于在R中创建一个关于事件研究的程序。我有一大堆事件，并使用此代码创建一个for循环，基本上运行回归n次数，其中n是事件数量i在我的数据集中。 我真的在努力将每次回归的结果变成数据框，并且想知道是否有人会知道如何做到这一点。我的代码在这里 -

#Reading in the data from excel
AllData <- read.xlsx("eventstudy.xlsx", 1)
EventDates <- read.xlsx("eventstudy.xlsx", 2)
Event <- list()

p <- for(i in 1:length(EventDates$Date.of.notice.)) {
        Event[[i]] <- evReturn(y = AllData, 
                               firm = as.character(EventDates$Bank.[i]), 
                               y.date = "date",
                               index = "s.p500", 
                               est.win = 252, 
                               digits = 3, 
                               event.date = as.character( EventDates$Date.of.notice.[i] ), 
                               event.win = 30)
       Event[[i]]
       plot(Event[[i]])
       print(Event[[i]])  
    }

    d <- matrix(nrow=20, ncol=3) 

    for (i in 1:20) { 
       d[i,] <- c(i+i, i*i, i/1)
    }