下面是我的代码
fitResult<-list()
for(i in 1:length(stocks)){
  fit<-lm(monthPremium[,i]~RMvalues)
  fitResult[i]<-list(fit)
}


这样虽然能存储每个fit的数据（显示结果如下）
> fitResult[1]
[[1]]

Call:
lm(formula = monthPremium[, i] ~ RMvalues)

Coefficients:
(Intercept)     RMvalues  
    0.02696      1.25435  

但是已经改变了fit的形式，如果我使用 m<-fitResult[1], 但我能获得m$call, 画散点图后，abline(fitResult[1])也无法成功