<div dir="ltr"><div><div><div><div>André,<br></div>rapidamente, sem o plot e também sem testar:<br><br>dados <- expand.grid(A=factor(paste("A", 1:3, sep="")),B=factor(paste("B", 1:4, sep="")), rep=1:4)<br>dados$y  <- rgamma(n=48,shape=2, scale = 2)<br>lapply(paste("B", 1:4, sep=""), function(x){summary(lm(y~rep, data = subset(dados,B==x)))})<br><br><br></div>Se funcionar, é só colocar as linhas do plot dentro da função.<br><br></div>abs<br></div>Paulo<br></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div>Atenciosamente,<br></div>Paulo Nogueira Starzynski<br></div></div></div>
<br><div class="gmail_quote">2015-07-02 8:44 GMT-03:00 Diego Miro <span dir="ltr"><<a href="mailto:d.miro1089@gmail.com" target="_blank">d.miro1089@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra">André, mão está otimizado mas já te dá um norte.</div><div class="gmail_extra"><br></div><div class="gmail_extra">Estou assumindo que o resp do plot é o rep do objeto dados</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">b <- sort(unique(dados$B)) # ou levels(dados$B)</div><div class="gmail_extra">modelos.summary <- vector(mode = 'list', length = length(b))</div><div class="gmail_extra">for (i in 1:length(b)) {</div><div class="gmail_extra">  dados.modelo <- subset(x = dados, subset = B == b[i])</div><div class="gmail_extra">  modelos.summary[[i]] <- summary(lm(y ~ rep, data = dados.modelo))</div><div class="gmail_extra">  png(paste0("Gráfico ", b[i], ".png")) </div><div class="gmail_extra">  plot(dados.modelo$y ~ dados.modelo$rep)</div><div class="gmail_extra">  dev.off()</div><div class="gmail_extra">}</div><div class="gmail_extra">names(modelos.summary) <- b</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>