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
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)-Y
2 matches
Mail list logo