<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span>De um modo bem menos elegante do que os nossos amigos da programação, pode-se ter:</span></div><div><span><div><font class="Apple-style-span" face="arial, helvetica, sans-serif"><div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div><div>length(levels(factor(dados$parcela)))</div><div>results <- list()</div><div>for(i in 1:length(levels(factor(dados$parcela)))){</div><div> results[[i]] <- lm(y ~ x, subset(dados,
parcela==i))</div><div>}</div><div>results</div><div>lapply(results,summary)</div><div>lapply(results,anova)</div><div> </div><div>Allaman</div><div>(S,f,P)</div></div></div></div><div><span><div><font class="Apple-style-span" face="arial, helvetica, sans-serif"><div><br></div></font></div></span></div></div></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div><font class="Apple-style-span" face="arial, helvetica, sans-serif"><br></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; background-color: transparent; color: rgb(115, 115, 115); " align="center"><b>Ivan Bezerra Allaman</b> <br>Doutor em Zootecnia/UFLA<br><font style="background-color:transparent;"
face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <font size="1"><br></font></font></div></div></body></html>