Nothing
restartOpt <- function(fun, n, OF, algo, ...,
method = c("loop", "multicore", "snow"),
mc.control = list(),
cl = NULL, best.only = FALSE) {
n <- makeInteger(n, "n", 1L)
force(fun)
force(OF)
force(algo)
tmp <- list(...) ## force does not work for '...'
fun2 <- function(ignore)
fun(OF = OF, algo = algo, ...)
if (!is.null(cl)) {
if (identical(method, "loop"))
warning(sQuote("cl"), " specified: method changed to ",
sQuote("snow"))
method <- "snow"
}
method <- tolower(method[1L])
if (method == "snow" && is.null(cl)) {
method <- "loop"
warning("no cluster ", sQuote("cl"),
" passed for method ", sQuote("snow"),
": will use method ", sQuote("loop"))
}
if (method == "multicore") {
mc.settings <- mcList(mc.control)
allResults <- mclapply(seq_len(n), fun2,
mc.preschedule = mc.settings$mc.preschedule,
mc.set.seed = mc.settings$mc.set.seed,
mc.silent = mc.settings$mc.silent,
mc.cores = mc.settings$mc.cores,
mc.cleanup = mc.settings$mc.cleanup)
} else if (method == "snow"){
if (is.numeric(cl)) {
cl <- makeCluster(c(rep("localhost", cl)), type = "SOCK")
on.exit(stopCluster(cl))
}
allResults <- clusterApply(cl, seq_len(n), fun2)
} else
allResults <- lapply(seq_len(n), fun2)
if (best.only) {
tmp <- sapply(allResults, `[[`, "OFvalue")
i <- which(min(tmp) == tmp) ## not 'which.min',
## which returns
## position of first min
if (length(i) > 1L)
warning("several ", sQuote("best"), " runs")
allResults <- allResults[[ i[[1]] ]]
}
allResults
}
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.