Nothing
# ----------------------
# Author: Andreas Alfons
# KU Leuven
# ----------------------
setMethod("aggregate", "SimResults",
function(x, select = NULL, FUN = mean, ...) {
by <- c(if(length(getEpsilon(x))) "Epsilon",
if(length(getNArate(x))) "NArate", getDesign(x))
if(is.null(select)) select <- getColnames(x)
else {
if(!is.character(select)) {
stop("'select' must be a character vector")
}
if(!all(select %in% getColnames(x))) {
stop("undefined columns selected")
}
}
x <- getValues(x)
if(length(by)) {
aggregate(x[, select, drop=FALSE],
by=x[, by, drop=FALSE], FUN=FUN, ...)
} else {
apply(x[, select, drop=FALSE], 2, FUN=FUN, ...)
}
})
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.