Nothing
EstStep = function()
{
e$STEP = "EST"
OFVinit = Obj(rep(0.1, e$nPara))
StartTime = Sys.time()
Res = optim(rep(0.1, e$nPara), Obj, method="L-BFGS-B")
RunTime = difftime(Sys.time(), StartTime)
e$FinalPara = DECN(Res$par)
Result = list(OFVinit, RunTime, Res, e$FinalPara)
names(Result) = list("Initial OFV", "Time", "Optim", "Final Estimates")
return(Result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.