R/allow_surf_acc.R

In salbuque/package2: This Package Analyses Natural Information Like Soils and Populations

#' Allowable Surface Accumulation
#'
#' This function calculates the allowable surface accumulation for a specific soil intake rate
#'
#'@param  inputs are the intake rate
#'@return  outputs are the allowable surface accumulation
#'@example  Allow_surface_acc(0.5)
#'@author  Simone Albuquerque

Allow_surf_acc = function(IR) {

  if (IR != c("0.1", "0.15", "0.2", "0.35", "0.4", "0.5", "0.6"))
    return("IR option not available choose from 01, 0.15, 0.2, 0.35, 0.4, 0.5, 0.6 ")

  ASA = case_when(
    IR == 0.1 ~ 0.2,
    IR == 0.15 ~  0.23,
    IR == 0.2 ~  0.26,
    IR == 0.35 ~  0.3,
    IR == 0.4 ~  0.33,
    IR == 0.5 ~  0.36,
    IR == 0.6 ~  0.4
  )
  return(ASA)
}