data-raw/Removed functions/0_plot_confusion2.R

In GegznaV/spHelper: Extension of Package `hyperSpec` and Various Convenience Functions

#  ------------------------------------------------------------------------
#' @rdname qplot_confusion
#' @export
plot_confusion2 <- function(Prediction, Reference,...){
    if (length(Prediction) != length(Reference)) {
        stop("Lengths of vectors `Prediction` and `Reference` must be equal.")
    }
    conf <- table(Prediction,Reference)
    qplot_confusion(conf = conf, ...)
}