Muito obrigado pelo retorno Walmes! abcs 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.
-- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================