<html><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px"><div id="yui_3_16_0_1_1435860125826_9539"><span id="yui_3_16_0_1_1435860125826_9709">Obrigado pelas belas contribuições! </span></div><div></div><div id="yui_3_16_0_1_1435860125826_9540"> </div><div id="yui_3_16_0_1_1435860125826_9542"><div id="yui_3_16_0_1_1435860125826_9541">
<br>
<br>André Oliveira Souza. <br>
<br>Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES<br>
</div><br><br><div id="yui_3_16_0_1_1435860125826_9878">
<br></div></div> <br><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: bookman old style, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quinta-feira, 2 de Julho de 2015 11:40, Walmes Zeviani <walmeszeviani@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container"><div id="yiv0664385838"><div><div dir="ltr"><div class="yiv0664385838gmail_default" style="font-family:'trebuchet ms', sans-serif;">Mais algumas opções.</div><div class="yiv0664385838yqt7530011075" id="yiv0664385838yqtfd05969"><div class="yiv0664385838gmail_default" style="font-family:'trebuchet ms', sans-serif;"><br clear="none"></div></div><div class="yiv0664385838gmail_default" style=""><div class="yiv0664385838yqt7530011075" id="yiv0664385838yqtfd18494"><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">dados <- expand.grid(A=factor(paste("A", 1:3, sep="")),</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"> B=factor(paste("B", 1:4, sep="")),</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"> rep=1:4)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">dados$y <- rgamma(n=48, shape=2, scale=2)</font></div></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">m0 <- by(data=dados, INDICES=dados$B,</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"> FUN=lm, formula=y~rep)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">lapply(m0, summary)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">lapply(m0, anova)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">sapply(m0, coef)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">require(plyr)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">m0 <- dlply(.data=dados, "B", .fun=lm, formula=y~rep)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">lapply(m0, summary)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">lapply(m0, anova)</font></div><div class="yiv0664385838gmail_default" style=""><font face="monospace, monospace">sapply(m0, coef)</font></div><div style="font-family:'trebuchet ms', sans-serif;"><br clear="none"></div><div style="font-family:'trebuchet ms', sans-serif;">À disposição.</div><div style="font-family:'trebuchet ms', sans-serif;">Walmes.</div></div><div class="yiv0664385838yqt7530011075" id="yiv0664385838yqtfd55942"></div></div></div></div><br><div class="yqt7530011075" id="yqtfd46427">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div><br><br></div> </div> </div> </div></div></body></html>