#' Functions to judge false positive and false negative.
#'
#' @param predicted,actual vectors to compare
#' @rdname confusion
#' @export
false_negative = function(predicted, actual) {
anyNA(match(actual, predicted))
}
#' @rdname confusion
#' @export
false_positive = function(predicted, actual) {
anyNA(match(predicted, actual))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.