Я собираю объекты внутри al oop и сохраняю в каталог с помощью функции capture.output. Однако я также хотел сохранить объекты в среде R, чтобы мы могли ими манипулировать после. Вот мой код:
model <- function(trait, site){
m1 <- lmer(Value ~ Rep + Measure + (1|Entry:Measure) + (1|Entry),
data= subset(merged_shade, merged_shade$Trait == trait & merged_shade$Location == site))
print(varcomp <- VarCorr(m1))
print(anova(m1))
blup <- ranef(m1, condVar = TRUE)
print(blupN <- blup$Entry)
name <- print(paste(site, trait, sep="_"))
name <- gsub(" "," ", name)
print(name)
capture.output(print(blupN), file=paste(name,".xls"))
}
model("CoveragePercent", "NCSU")
model("CoveragePercent", "UF")
model("CoveragePercent", "UGA")