Nothing
controlMOScsg0 <-
function(scoringRule = c("crps","log"),
optimRule = c("Nelder-Mead","BFGS","L-BFGS-B"),
coefRule = c("square", "none", "positive"),
varRule = c("square","none"),
start = list(a = NULL, B = NULL, c = NULL, d = NULL, q = NULL),
maxIter = Inf)
{
if (is.infinite(maxIter) && maxIter > 0) maxIter <- .Machine$integer.max
list(scoringRule = scoringRule[1], optimRule = optimRule[1], coefRule = coefRule[1],
varRule = varRule[1], start = start, maxIter = maxIter)
}
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.