Nothing
#' @title Print accuracy
#' @description print method for class "accuracy"
#' @param x Object of class accuracy
#' @param ... Ignored
#'
#' @method print accuracy
#'
#' @export
print.accuracy <- function(x, ...) {
if( dim(x$confusion)[1] > 2) {
cat("Accuracy (PCC):", paste(x$PCC, "%", sep=""), "\n\n")
cat("Cohen's Kappa:", x$kappa, "\n\n")
cat("Users accuracy:", "\n")
print(x$users.accuracy)
cat("", "\n\n")
cat("Producers accuracy:", "\n")
print(x$producers.accuracy)
cat("", "\n\n")
cat("Confusion matrix", "\n")
print(x$confusion)
} else {
cat("Accuracy (PCC):", paste(x$PCC, "%", sep=""), "\n\n")
cat("Cohen's Kappa:", x$kappa, "\n\n")
cat("Area under the ROC curve:", x$auc, "\n\n")
cat("Users accuracy:", "\n")
print(x$users.accuracy)
cat("", "\n\n")
cat("Producers accuracy:", "\n")
print(x$producers.accuracy)
cat("", "\n\n")
cat("True Skill statistic:", x$true.skill, "\n\n")
cat("Sensitivity (aka recall):", x$sensitivity, "\n\n")
cat("Specificity:", x$specificity, "\n\n")
cat("Gain (aka precision):", x$gain, "\n\n")
cat("Positive Likelihood Ratio:", x$plr, "\n\n")
cat("Negative Likelihood Ratio:", x$nlr, "\n\n")
cat("Type I error:", x$typeI.error, "\n\n")
cat("Type II error:", x$typeII.error, "\n\n")
cat("Gini Index:", x$gini, "\n\n")
cat("F-score:", x$f.score, "\n\n")
cat("Matthews correlation coefficient:", x$matthews, "\n\n")
cat("Confusion matrix", "\n")
print(x$confusion)
}
}
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.