<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.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><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><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>