Nothing
#' Calculate misclassification error
#'
#' \code{misclassification} calculate misclassification error between predicted class and true class
#' @param pred Predicted class
#' @param true Actual class
#' @return Misclassification error for binary or multiclass outcome.
#' @seealso To calculate the Area Under the Curve (AUC) for binary or multiclass outcomes, please refer to the \code{pROC}.
#' @examples
#' Y1 <- rbinom(10,1,0.5)
#' Y2 <- rnorm(10,1,0.5)
#' misclassification(Y1,Y2)
#' @export
misclassification <- function(pred, true) {
n_pred = ifelse(is.null(dim(pred)), length(pred), dim(pred)[1])
n_true = ifelse(is.null(dim(true)), length(true), dim(true)[1])
if (length(pred) != length(true)) {
stop("The length of prediction class and actual class does not match")
} else if (sum(is.na(pred)) > 0) {
warning("Prediction class contain missing value")
} else if (sum(is.na(true)) > 0) {
warning("Actual class contain missing value")
}
return(mean(pred != true, na.rm = T))
}
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.