Displaying 1 result from an estimated 1 matches for "outgen".
Did you mean:
outgeo
2013 Jan 03
1
R2OpenBUGS question with differential equations
...Input$lev != 0 )
sum((Input$lev[gift]-out[gift])^2)
}
gen <- genoud(objectfunc,nvars=3,max=FALSE,pop.size=10,max.generations=100,wait.generations=100, starting.value=c(40,8,12),BFGS=FALSE, print.level=0,boundary.enforcement=0,Domains=matrix(c(0,0,0,100,100,100),3,2),MemoryMatrix=TRUE)
outgen<-c(gen$par[1],gen$par[2],gen$par[3])
opt<-optim(c(gen$par[1],gen$par[2],gen$par[3]),objectfunc,method="Nelder-Mead")
outopt<-c(opt$par[1],opt$par[2],opt$par[3])
fm<-nls(lev~modelfunc(time,Vm,Km,Vol),data=Input,start=list(Vm=opt$par[1],Km=opt$par[2],Vol=opt$par[3]),trace...