Nothing
setoptimizer <- function(x, optimizer = c("default","nlminb","ucminf","cpp_L-BFGS-B","cpp_BFGS","cpp_CG","cpp_SANN","cpp_Nelder-Mead"),
optim.args){
optimizer <- match.arg(optimizer)
if (optimizer == "default"){
optimizer <- defaultoptimizer(x)
}
x@optimizer <- optimizer
if (!missing(optim.args)){
x@optim.args <- optim.args
}
if (!is.null(x@baseline_saturated$baseline)){
x@baseline_saturated$baseline@optimizer <- optimizer
if (!missing(optim.args)){
x@baseline_saturated$baseline@optim.args <- optim.args
}
}
if (!is.null(x@baseline_saturated$saturated)){
x@baseline_saturated$saturated@optimizer <- optimizer
if (!missing(optim.args)){
x@baseline_saturated$saturated@optim.args <- optim.args
}
}
x
}
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.