Caros amigos apenas uma correção. no e-mail anterior coloquei os meus dados na função deput() para torná-lo reproduzível entretanto a função é dput() por isto estou enviando novamente. Peço desculpas pela distração<br><br>
 estou tentando rodar um curva de crescimento (Modelo 
gompertz) para predizer o conteúdo de cálcio (UtGest1f$UTGEST) no útero 
gestante em função da idade gestacional (UtGest1f$Gest). Entretanto ao 
rodar a função nls ela anda me retornando a seguinte mensagem de erro: "<span style="text-indent:0px;letter-spacing:normal;font-variant:normal;text-align:auto;font-style:normal;font-weight:normal;line-height:normal;border-collapse:separate;text-transform:none;font-size:medium;white-space:normal;font-family:Arial;word-spacing:0px"><span style="font-family:'DejaVu Sans Mono';font-size:13px;line-height:17px;text-align:-webkit-left;white-space:pre-wrap"><pre style="font-family:'DejaVu Sans Mono';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.3">
<span><br>Erro em assign(i, temp, envir = env) : 
  tentativa de usar um nome de variável com comprimento zero</span></pre></span></span><br>Não sei onde corrigir este problema. Alguém pode me orientar. Um grande abraço a todos<br><br>#conteúdo de calcio no útero gestante gestação simples<br>

UtGest1f<-subset(tabcalcio,<div id=":1db">Manejo==2 & Fetos==1,na.rm=T)<br>str(UtGest1f)<br>MedUtGest1NR<-tapply(UtGest1f$UTGEST,UtGest1f$Gest,mean)<br>MedUtGest1NR<br>attach(UtGest1f)<br>modelo<-nls(UTGEST~a-b*exp(-c * Gest),start=list(a=52,b=48,c=-0,009143))<br>

plot(MedUtGest1NR,main="relacionamento calcio utero gestante e 
idade gestacional,gestação multipla",xlab="idade 
gestacional",ylab="conteúdo de cálcio (g)",na.rm=T)<br>lines(MedUtGest1NR)<br><br>
modelo<-nls(UTGEST~a-b*exp(-c * Gest),start=list(a=52,b=48,c=-0,009143))<br><br>dput(UtGest1f)</div>