<div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif">Mais algumas opções.</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif"><br></div><div class="gmail_default" style><div class="gmail_default" style><font face="monospace, monospace">dados <- expand.grid(A=factor(paste("A", 1:3, sep="")),</font></div><div class="gmail_default" style><font face="monospace, monospace">                     B=factor(paste("B", 1:4, sep="")),</font></div><div class="gmail_default" style><font face="monospace, monospace">                     rep=1:4)</font></div><div class="gmail_default" style><font face="monospace, monospace">dados$y <- rgamma(n=48, shape=2, scale=2)</font></div><div class="gmail_default" style><font face="monospace, monospace"><br></font></div><div class="gmail_default" style><font face="monospace, monospace">m0 <- by(data=dados, INDICES=dados$B,</font></div><div class="gmail_default" style><font face="monospace, monospace">         FUN=lm, formula=y~rep)</font></div><div class="gmail_default" style><font face="monospace, monospace"><br></font></div><div class="gmail_default" style><font face="monospace, monospace">lapply(m0, summary)</font></div><div class="gmail_default" style><font face="monospace, monospace">lapply(m0, anova)</font></div><div class="gmail_default" style><font face="monospace, monospace">sapply(m0, coef)</font></div><div class="gmail_default" style><font face="monospace, monospace"><br></font></div><div class="gmail_default" style><font face="monospace, monospace">require(plyr)</font></div><div class="gmail_default" style><font face="monospace, monospace"><br></font></div><div class="gmail_default" style><font face="monospace, monospace">m0 <- dlply(.data=dados, "B", .fun=lm, formula=y~rep)</font></div><div class="gmail_default" style><font face="monospace, monospace"><br></font></div><div class="gmail_default" style><font face="monospace, monospace">lapply(m0, summary)</font></div><div class="gmail_default" style><font face="monospace, monospace">lapply(m0, anova)</font></div><div class="gmail_default" style><font face="monospace, monospace">sapply(m0, coef)</font></div><div style="font-family:'trebuchet ms',sans-serif"><br></div><div style="font-family:'trebuchet ms',sans-serif">À disposição.</div><div style="font-family:'trebuchet ms',sans-serif">Walmes.</div></div>​</div>