A nlme usa a lattice. Então você muda da mesma forma que mudaria um objeto
que veio da xyplot, por exemplo.

GALINHA$ID <- factor(GALINHA$ID,
                     levels =
unique(sort(as.integer(as.character(GALINHA$ID)))))
GALINHA <- groupedData(PESO ~ SEMANA | ID,
                       data = GALINHA,
                       order.groups = FALSE)

modelo1.list <- nlsList(PESO ~ a * exp(-b * exp(-c * SEMANA)),
                        start = c(a = 4.1, b = 4.53, c = 0.37),
                        na.action = na.omit,
                        data = GALINHA)

plot(intervals(modelo1.list), layout = c(3, 1))

g <- plot(intervals(modelo1.list),
          layout = c(3, 1))

# Remove.
update(g,
       scales = list(y = list(draw = FALSE)))

# Menor tamanho de texto.
update(g,
       scales = list(y = list(cex = 0.5)))

# Exibe alguns da sequência.
s <- seq(1, nlevels(GALINHA$ID), by = 10)
update(g,
       scales = list(y = list(tck = 1,
                              at = s,
                              labels = levels(GALINHA$ID)[s])))

À disposição.
Walmes.
​
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo 
m�nimo reproduz�vel.

Responder a