QQline命令仅适用于最后一个绘图

Question

下面的公式将lm应用于包含多个数据集并将输出存储在对象“模型”中的列表“dsets”。

models<-lapply(dsets,function(data){ 
lm(reformulate(termlabels=".",response=names(data)[1]),data) 
}) 

我创造了这个功能来绘制qqplot每个存储对象“模型”模型输出的，但它不会工作

rstest<-function(x){ 
for (i in 1:length(x)) 
qqnorm(residuals(x[[i]])) 
qqline(residuals(x[[i]])) 
} 
rstest(models) 

我拿到的地块，但qqline仅在工作最后的阴谋不是所有的阴谋正在产生。我在函数中遗漏了什么，而不是使qqline迭代？

Answer 1

只有for(...)之后的第一个表达式被循环。将for循环的主体包装在{}中以组合这两个表达式。

rstest <- function(x) { 
    for (i in seq_along(x)) { 
    qqnorm(residuals(x[[i]])) 
    qqline(residuals(x[[i]])) 
    } 
} 
rstest(models) 

使用缩进代码的编辑器/ IDE可以帮助您自己识别它。