R/add_freq_class.R

In Acanthiza/envFunc: Functions to help with Environmental Science

#' Convert percentages to frequency classes
#'
#' @param per_pres Numeric. Percentage (i.e. 0-100)
#'
#' @return Factor with levels always, often, frequent, occasional, and infrequent
#' @export
#'
#' @examples
#' add_freq_class(c(2,20,40,60,100))
add_freq_class <- function(per_pres) {

  dplyr::if_else(per_pres == 100
          , "always"
          , dplyr::if_else(per_pres > 75
                    , "often"
                    , dplyr::if_else(per_pres > 50
                              , "frequent"
                              , dplyr::if_else(per_pres > 5
                                        , "occasional"
                                        , "infrequent"
                                        )
                              )
                    )
          ) %>%
    factor(levels = c("always","often","frequent","occasional","infrequent"))

}