[R-br] automatização de ajuste de modelos de regressao

[Ivan Bezerra Allaman]

De um modo bem menos elegante do que os nossos amigos da programação, pode-se ter:


length(levels(factor(dados$parcela)))
results <- list()
for(i in 1:length(levels(factor(dados$parcela)))){
  results[[i]] <- lm(y ~ x, subset(dados, parcela==i))
}
results
lapply(results,summary)
lapply(results,anova)
 
Allaman
(S,f,P)





Ivan Bezerra Allaman 
Doutor em Zootecnia/UFLA
email e msn - ivanalaman em yahoo.com.br 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110810/1e7c4bcc/attachment.html>