<div dir="ltr">Você não recebeu nenhum erro na chamada a <span style="font-size:12.8px"> <font face="monospace, monospace">nlsList()</font> não?</span><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">Você tentou ver o resultado, com <font face="monospace, monospace">summary</font> ou <font face="monospace, monospace">print</font>?</span></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-09-08 19:19 GMT-03:00 Fernando Souza via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>Caros colegas ao rodar a função augPred {nlme} recebo a seguinte mensagem:<br><br>"Error in tapply(as.character(object[[<wbr>nm]]), groups, FUN[[dClass]]) : <br>  arguments must have same length"<br><br></div><div>Meus dados possuem diferentes números de individuos por tratamento e há alguns NA's. Acredito que é por isso que nao funciona.<br><br></div><div>Há uma forma de contornar essa questão<br></div><div><br>#install.packages("tidyr")<br>#install.packages("nlme")<br><br>library(tidyr) #pacote para organizar seu banco de dados<br>library(nlme)<br>DADOS <- read.csv("<a href="https://www.dropbox.com/s/b4cckybgrcg86me/galinhas.csv?raw=1" target="_blank">https://www.dropbox.<wbr>com/s/b4cckybgrcg86me/<wbr>galinhas.csv?raw=1</a>",head = TRUE)<br>colnames(DADOS) <- c("0","1","2","3","4","5","6",<wbr>"TRAT")<br>DADOS <- DADOS %>% gather('0','1','2','3','4','5'<wbr>,'6',key ="SEMANA",value = "PESO", -TRAT)<br>ID <-rep(seq(1,370), times=7)<br>DADOS<-cbind(ID,DADOS)<br>GALINHA <- groupedData(PESO~SEMANA |ID,data = DADOS)<br clear="all">#-----------------------------<wbr>------------------------------<wbr>------------------------------<wbr>--------------<br>install.packages("nlme")<br>library(nlme)<br>modelo1.list <- nlsList(PESO ~ a * exp(-b * exp( -c * SEMANA)),start = c(a = 4.10,b = 4.53,c = 0.37 ),na.action=na.omit,data =GALINHA)<br><br>modelo.nlme.0<-nlme(modelo1.<wbr>list)<br><br></div>plot(augPred(modelo.nlme.0))<br><br></div>o plot acima retorna a seguinte mensagem de erro, que é devido a função augPred<br><br>" Error in tapply(as.character(object[[<wbr>nm]]), groups, FUN[[dClass]]) : <br>  arguments must have same length"<span class="HOEnZb"><font color="#888888"><br><div><div><div><br>-- <br><div class="m_5484438486480321590gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>==============================<wbr>===========<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/<wbr>6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.<wbr>wordpress.com/</a><br>
==============================<wbr>============</span></div></div></div></div></div></div></div></div></div></div>
</div></div></div></font></span></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>