Ese es el problema: muchísimas gracias.

El 23/11/2011 9:57, Emilio López escribió:
> Antonio José,
> El fichero tiene que terminar en una línea en blanco para evitar el 
> error (he pegado tu código, añadido un salto de línea después del 
> último "}" y ha funcionado). Puede ser debido a que han corregido 
> algunos bugs 
> (http://cran.at.r-project.org/bin/windows/base/NEWS.R-2.14.0.html) y 
> es un efecto colateral.
>
> NOTA: Con ejemplos reproducibles como este es como mejor nos podemos 
> ayudar, y siguiendo las normas apuntadas por Patricia
>
> Emilio
>
>
>
> El 23 de noviembre de 2011 07:06, Antonio José Sáez Castillo 
> <ajsaez@ujaen.es <mailto:ajsaez@ujaen.es>> escribió:
>
>     Tengo el mismo problema que Eva en cualquier script que defina una
>     función, pero no en otros que no definen funciones.
>     Por ahora he tenido que desinstalar la versión 2.14.0.
>     Os dejo un ejemplo (he simplificado la función, pero he dejado la
>     estructura fundamental por si ahí está el error): si lanzáis
>     source("probando.r") veréis que sale el mensaje de error.
>     Por supuesto, garantizo que ese error no aparece en las versiones
>     anteriores.
>     #Doble Pareto con p=1/2 y mismo lambda (simétrica)
>     probando<-function(data=NULL,p0=c(1,1),method=1,iters=10000,print.level=0){
>     x<-data
>     n<-length(x)
>     x.pos<-x[x>=0]
>     n.pos<-length(x.pos)
>     x.neg<-x[x<0]
>     n.neg<-length(x.neg)
>     p0l<-p0[1]
>     p0s<-p0[2]
>     logL1<-function(p){
>     l1<-exp(p[1])
>     l2<-l1
>     s<-exp(p[2])
>     -(n.neg*log(l1)+n.pos*log(l2)
>      -l1*sum(log(1-x.neg/s))-l2*sum(log(1+x.pos/s))
>      -sum(log(1+abs(x)/s))
>      -n*log(s)+n*log(0.5)
>      )
>     }
>     if (method==1){
>     p0<-c(log(p0l),log(p0s))
>      fit<-nlm(logL1,p=p0,hessian=
>     TRUE,iterlim=iters,print.level=print.level)
>      fit$value<-fit$minimum
>      fit$par<-fit$estimate
>      fit$convergence<-fit$code
>      method="hessian nlm"
>     l.est<-exp(fit$par[1])
>     s.est<-exp(fit$par[2])
>     }
>     #Resultados
>     resultados<-list(
>     coefficients=c(l.est,s.est),
>     se="Mejor por bootstraping",
>     aic=2*(fit$value+2),
>     logver=fit$value,
>     code=fit$convergence,
>     method.estim=method
>     )
>     return(resultados)
>     }
>
>         Message: 1
>         Date: Tue, 22 Nov 2011 19:38:55 +0000 (GMT)
>         From: Eva Prieto Castro<evapcastro@yahoo.es
>         <mailto:evapcastro@yahoo.es>>
>         To: r-help-es@r-project.org <mailto:r-help-es@r-project.org>
>         Subject: [R-es] Incomplete final line
>         Message-ID:
>         <1321990735.87578.YahooMailClassic@web29612.mail.ird.yahoo.com
>         <mailto:1321990735.87578.YahooMailClassic@web29612.mail.ird.yahoo.com>>
>         Content-Type: text/plain
>
>         Hola:
>          Desde que he instalado la versión 2.14.0 obtengo el siguiente
>         error al hacer source:
>          Mensajes de aviso perdidos
>         In readLines(file) : incomplete final line found on 'ejemplo.R'
>          No hay variación en mi archivo de datos ni en el script de
>         comandos de R sobre el cual realizo el source, con respecto a
>         cuando utilizaba la versión anterior.
>          ¿Sabéis a qué puede deberse ésto?. Tengo instalado Windows 7
>         Starter.
>          Gracias.
>         Eva
>
>
>     -- 
>     Dr. Antonio José Sáez Castillo
>     Dpto. de Estadística e Investigación Operativa
>     Escuela Politécnica Superior de Linares
>     Universidad de Jaén
>     C/ Alfonso X El Sabio 28, 23700 Linares (Jaén) ESPAÑA
>     Tlf. y FAX +34 953 648578 <tel:%2B34%20953%20648578>
>
>     _______________________________________________
>     R-help-es mailing list
>     R-help-es@r-project.org <mailto:R-help-es@r-project.org>
>     https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
>
>
>
>
>
>

-- 
Dr. Antonio José Sáez Castillo
Dpto. de Estadística e Investigación Operativa
Escuela Politécnica Superior de Linares
Universidad de Jaén
C/ Alfonso X El Sabio 28, 23700 Linares (Jaén) ESPAÑA
Tlf. y FAX +34 953 648578


	[[alternative HTML version deleted]]

