R/recognition_rate.R

In MelodyPremaillon/valwoe: Statistical validation of susceptibility maps builted with woe method

#' @title Recognition rate
#' @author Melody Premaillon
#'
#' @description Compute recognition rate on one (train/complete) or two (train + complete) sets
#'
#' @param df_postprob_freq postprob frequency data frame (from build_df_postprobfreq function)
#' @param seuil threshold of recognition rate, by default 1E-3
#'
#' @return A recognition rate value
#'
#' @import dplyr
#' @export
#'


recognition_rate <- function(df_postprob_freq, seuil = 1E-3){

  supseuil <- df_postprob_freq %>%
    filter(POST_PROB > seuil)

  reco <- round(sum(supseuil$POINTS)/sum(df_postprob_freq$POINTS)*100, 1)

  return(reco)

}