[R-es] Ajuste curva

[Elvira Ferre Jaén]

Hola,
quiero ajustar una curva sinoidal de la forma "f(x)=k/( 1+(c/log(x))^n)"
  mediante la función 'nls' pero me da error el siguiente código:

 >datos<-read.table(file="datos.csv", header=TRUE,sep=";",dec=",")
 >library(nls)
 >fit <-  nls(y  ~  k/(1+(c/log(x))^n),  datos, start = list (k=100 , c 
=5*10^(-6), n=1))
Error en numericDeriv(form[[3L]], names(ind), env) :
Missing value or an infinity produced when evaluating the model

¿Alguien me puede ayudar?
Adjunto un archivo csv con los datos.
Gracias y saludos!
Elvira.

-- 
Sec. Apoyo Estadístico.
Servicio de Apoyo a la Investigación (SAI)
Vicerrectorado de Investigación e Internacionalización.
Universidad de Murcia

Edif. SACE. Campus de Espinardo.
30100 Murcia
@. mariaelvira.ferre en um.es
T. 868 88 7315 F. 868 88 7302
www.um.es/sai www.um.es/ae
---

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20131118/f08cfbed/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: datos.csv
Type: text/csv
Size: 426 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20131118/f08cfbed/attachment.bin>