<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Hola, <br>
quiero ajustar una curva sinoidal de la forma "f(x)=k/(
1+(c/log(x))^n)"<br>
mediante la función 'nls' pero me da error el siguiente código:<br>
<br>
>datos<-read.table(file="datos.csv",
header=TRUE,sep=";",dec=",")<br>
<big>></big>library(nls)<br>
>fit <- nls(y ~ k/(1+(c/log(x))^n), datos, start = list
(k=100 , c =5*10^(-6), n=1))<br>
Error en numericDeriv(form[[3L]], names(ind), env) : <br>
Missing value or an infinity produced when evaluating the model<br>
<br>
¿Alguien me puede ayudar?<br>
Adjunto un archivo csv con los datos.<br>
Gracias y saludos!<br>
Elvira.<br>
<pre class="moz-signature" cols="72">--
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
@. <a class="moz-txt-link-abbreviated" href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a>
T. 868 88 7315 F. 868 88 7302
<a class="moz-txt-link-abbreviated" href="http://www.um.es/sai">www.um.es/sai</a> <a class="moz-txt-link-abbreviated" href="http://www.um.es/ae">www.um.es/ae</a>
---
</pre>
</body>
</html>