Nothing
##################################################################
ctrldefault <- function(npar) { ## setoptctrl is new name
# possmeths = c("BFGS", "CG", "Nelder-Mead", "L-BFGS-B", "SANN", "nlm",
# "nlminb", "lbfgsb3", "Rcgmin", "Rtnmin", "Rvmmin",
# "spg", "ucminf", "newuoa", "bobyqa", "uobyqa", "nmkb", "hjkb")
#
# usenumDeriv = FALSE
# follow.on = FALSE,
# grcheckfwithg = 500,
# grcheckfnog = 50,
#
# starttests = TRUE,
#
## These are DEFAULTS. They may be nonsense in some contexts.
ctrl.default <- list(
acctol = 0.0001,
all.methods = FALSE,
badval = (0.5)*.Machine$double.xmax,
defgrapprox = "grfwd",
dowarn = TRUE,
eps = 1e-07,
fnscale = 1.0,
grtesttol=(.Machine$double.eps)^(1/3),
have.bounds = FALSE,
hessasymtol = 0.0001,
hesstesttol=(.Machine$double.eps)^(1/3),
keepinputpar = FALSE,
kkt = TRUE,
kkttol = 0.001,
kkt2tol = 1.0E-6,
maximize = FALSE,
maxit = 500*round(sqrt(npar+1)),
maxfeval = 5000*round(sqrt(npar+1)),
parchanged = FALSE,
parscale = rep(1, npar),
reltest = 100.0,
save.failures = TRUE,
scaletol = 3,
steplen0 = 0.75,
stepredn = 0.2,
stopbadupdate = FALSE,
tol = 0,
trace = 0
)
}
##################################################################
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.