Nothing
# ----------------------
# Author: Andreas Alfons
# KU Leuven
# ----------------------
setMethod("plot",
signature(x = "SimResults", y = "missing"),
function(x, y, ...) {
neps <- length(getEpsilon(x))
nNA <- length(convertNArate(getNArate(x)))
if(neps <= 1 && isTRUE(nNA <= 1)) simBwplot(x, ...)
# else if(neps <= 1 || isTRUE(nNA <= 1)) simXyplot(x, ...)
# else {
# stop("no default print method available with varying ",
# "contamination levels and varying missing value rates")
# }
else simXyplot(x, ...)
})
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.