Nothing
## TODO!
load_parallel <- function() {
if ( any(grepl(":parallel", search())) )
return( TRUE )
## loaded <- require("parallel", quietly=TRUE)
return( FALSE )
}
run_scenarios <- function(model, scenarios, cl=1L) {
if ( is.numeric(cl) ) {
if ( !load_parallel() ) stop("the 'parallel' package couldn't be found!")
solution <- NULL
} else if ( inherits(cl, "cluster") ) {
} else {
stop("'cl' must be 'integer' or object of type 'cluster'!")
}
}
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.