Hi R-Core, i am using nnet and DEoptim, Xcc=matrix(rnorm(100,0.5,0.08),50,2) Ycr=matrix(rnorm(50,0.2,0.05),50,1) pred_regm1 <- function(A) { A1=A[1] A2=A[2] A3=A[3] regm1 <- nnet(Xcc,Ycr,entropy=T,size=A1,decay=A2,maxit=2000,trace=F,Hess=T,rang=A3,skip=T) dif=sum((predict(regm1,Xcc)-Ycr)^2) return(dif) } somar=DEoptim(pred_regm1,c(1,0.00001,0.01), c(25,0.999,0.95), control = DEoptim.control(steptol=25,trace FALSE,itermax=500,parallelType=1)) but implemented parallel process, i have next error: Error en checkForRemoteErrors(val) : 4 nodes produced errors; first error: could not find function "nnet" how I can solve my mistake? Thanks and kind regards -- David Zamora Ávila (I.C.) Estudiante de la Maestría en Hidrosistemas Pontificia Universidad Javeriana Bogota, Colombia Ed. José Gabriel Maldonado Tel.: 3 20 83 20 Ext.: 5259 [[alternative HTML version deleted]]
On 16.01.2013 17:13, David Zamora ?vila wrote:> Hi R-Core, > > i am using nnet and DEoptim, > > Xcc=matrix(rnorm(100,0.5,0.08),50,2) > Ycr=matrix(rnorm(50,0.2,0.05),50,1) > > > pred_regm1 <- function(A) { > A1=A[1] > A2=A[2] > A3=A[3] > regm1 <- > nnet(Xcc,Ycr,entropy=T,size=A1,decay=A2,maxit=2000,trace=F,Hess=T,rang=A3,skip=T) > dif=sum((predict(regm1,Xcc)-Ycr)^2) > return(dif) > } > > somar=DEoptim(pred_regm1,c(1,0.00001,0.01), c(25,0.999,0.95), > control = DEoptim.control(steptol=25,trace > FALSE,itermax=500,parallelType=1)) > > > but implemented parallel process, i have next error: > > Error en checkForRemoteErrors(val) : 4 nodes produced errors; first > error: could not find function "nnet" > > how I can solve my mistake?Load nnet on all the nodes, not only on the master. Best, Uwe Ligges> > > Thanks and kind regards > > > > ______________________________________________ > R-help at r-project.org mailing list > stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >