<div dir="ltr"><div>Muito obrigado pelo retorno Walmes!<br><br></div>abcs<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 12 de dezembro de 2017 10:56, Walmes Zeviani via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<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_default"><div class="gmail_default"><font face="trebuchet ms, sans-serif">A nlme usa a lattice. Então você muda da mesma forma que mudaria um objeto que veio da xyplot, por exemplo.</font></div><div class="gmail_default"><font face="trebuchet ms, sans-serif"><br></font></div><div class="gmail_default"><font face="monospace, monospace">GALINHA$ID <- factor(GALINHA$ID,</font></div><div class="gmail_default"><font face="monospace, monospace">                     levels = unique(sort(as.integer(as.<wbr>character(GALINHA$ID)))))</font></div><div class="gmail_default"><font face="monospace, monospace">GALINHA <- groupedData(PESO ~ SEMANA | ID,</font></div><div class="gmail_default"><font face="monospace, monospace">                       data = GALINHA,</font></div><div class="gmail_default"><font face="monospace, monospace">                       order.groups = FALSE)</font></div><span class=""><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">modelo1.list <- nlsList(PESO ~ a * exp(-b * exp(-c * SEMANA)),</font></div></span><div class="gmail_default"><font face="monospace, monospace">                        start = c(a = 4.1, b = 4.53, c = 0.37),</font></div><div class="gmail_default"><font face="monospace, monospace">                        na.action = na.omit,</font></div><div class="gmail_default"><font face="monospace, monospace">                        data = GALINHA)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">plot(intervals(modelo1.list), layout = c(3, 1))</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">g <- plot(intervals(modelo1.list),</font></div><div class="gmail_default"><font face="monospace, monospace">          layout = c(3, 1))</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"># Remove.</font></div><div class="gmail_default"><font face="monospace, monospace">update(g,</font></div><div class="gmail_default"><font face="monospace, monospace">       scales = list(y = list(draw = FALSE)))</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"># Menor tamanho de texto.</font></div><div class="gmail_default"><font face="monospace, monospace">update(g,</font></div><div class="gmail_default"><font face="monospace, monospace">       scales = list(y = list(cex = 0.5)))</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"># Exibe alguns da sequência.</font></div><div class="gmail_default"><font face="monospace, monospace">s <- seq(1, nlevels(GALINHA$ID), by = 10)</font></div><div class="gmail_default"><font face="monospace, monospace">update(g,</font></div><div class="gmail_default"><font face="monospace, monospace">       scales = list(y = list(tck = 1,</font></div><div class="gmail_default"><font face="monospace, monospace">                              at = s,</font></div><div class="gmail_default"><font face="monospace, monospace">                              labels = levels(GALINHA$ID)[s])))</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>
<br>______________________________<wbr>_________________<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/<wbr>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-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div>