Nothing
#
# This function is a slightly modified version of
# function setCores in package spMC version 0.2.2
# written by Luca Sartore <drwolf85@gmail.com>
#
setCores <- function(n, reprt = TRUE) {
# Set number of CPU cores which will be used by the package
#
# n number of CPU cores
if (!missing(n)) {
if (is.numeric(n)) {
n <- as.integer(ceiling(n))
n <- .C(C_setNumThreads, n = as.integer(n))$n
}
}
n <- 0L
crTot <- 0L
n <- .C(C_getNumThreads, n = as.integer(n))$n
if (n <= 1L) {
} else {
crTot <- .C(C_getNumCores, n = as.integer(crTot))$n
if(reprt) {
cat(" Total CPU cores available: ", crTot," CPU cores in use: ", n, ".\n", sep = "")
}
}
invisible(n)
}
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.