Em 12 de dezembro de 2017 10:56, Walmes Zeviani via R-br <r-br@listas.c3sl.ufpr.br> escreveu:

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.