R/getPrecision.R

In danielfm123/dftools: Data Science Tools

#' Calculates the Precission
#'
#' Calculates the Precission
#' @param score prediction scores or probabilities to evaluate.
#' @param response Boolean vector of real values.
#' @param unbral cut point for scores, check maxPrecision function.
#' @usage getPrecision(score, response, 0.5)
#' @return Returns the precission
#' @export
#' @author Daniel Fischer

getPrecision = function(score, response, umbral = 0.5){

  aux = getConfusion(score,response,umbral,asMatrix = T)
  return(aux["TRUE","TRUE"]/sum(aux["TRUE",]))
}