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.