Nothing
#' @title Compute the accuracy score
#'
#' @description Compute the accuracy score between the true labels and the
#' predicted labels.
#'
#' @param y.true vector of true labels
#' @param y.pred vector of predicted labels
#'
#' @return The accuracy as a value in the range [0.0, 1.0]
#'
#' @author
#' Gerrit J.J. van den Burg, Patrick J.F. Groenen \cr
#' Maintainer: Gerrit J.J. van den Burg <gertjanvandenburg@gmail.com>
#'
#' @references
#' Van den Burg, G.J.J. and Groenen, P.J.F. (2016). \emph{GenSVM: A Generalized
#' Multiclass Support Vector Machine}, Journal of Machine Learning Research,
#' 17(225):1--42. URL \url{https://jmlr.org/papers/v17/14-526.html}.
#'
#' @seealso
#' \code{\link{predict.gensvm.grid}}, \code{\link{predict.gensvm}},
#' \code{\link{gensvm-package}}
#'
#' @export
#'
#' @examples
#' x <- iris[, -5]
#' y <- iris[, 5]
#'
#' fit <- gensvm(x, y)
#' gensvm.accuracy(predict(fit, x), y)
#'
gensvm.accuracy <- function(y.true, y.pred)
{
n <- length(y.true)
if (n != length(y.pred)) {
cat("Error: Can't compute accuracy if vector don't have the ",
"same length\n")
return(-1)
}
return (sum(y.true == y.pred) / n)
}
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.