R/recup_proba.R

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

#' @title Calcul des valeurs de post prob a un seuil choisi
#'
#' @description Fonction pour calculer les post probabilités a un seuil défini
#' @param probs seuil où l'on veut recuperer la valeur de post prob
#' @param mytable table des post probs/fréquences (obtenue avec la fonction miseenforme)
#'
#' @return la valeur de post prob au seuil choisi
#'
#' @export


recup_proba <- function(probs, mytable) {
  matable <- mytable %>%
    filter(trng_cum_prct < probs)
  prob_value <- max(matable$POST_PROB[which(matable$trng_cum_prct == max(matable$trng_cum_prct))])
  return(prob_value)
}