R/plot.R

In simFrame: Simulation Framework

# ----------------------
# 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, ...)
    })