在以下示例中,我想将每个模型的残差图写入文件中。我不需要在我的显示器中看到它们。
for (i in 1:500){
temp.model<-lme(as.formula(paste("Var",i) ~ X1*X2, sep=""), data = example, random=~1| Exp/Person)
jpeg(paste("C:/Myfolder", i, ".jpg", sep = ""), quality=50, bg="white")
plot(temp.model)
dev.off ()
graphics.off()
}
当我在没有循环的情况下运行这段代码时,我得到了我想要的。但是,它会在循环中创建空白文件。
有任何想法吗?
谢谢你。