R/soil_intake.R

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

#' Soil Intake
#'
#' This function calculates the intake rate from a given soil class
#'
#'@param  inputs are soil class: clay, silty clay, clay loam, loam, sandy loam, loamy sand, and sand
#'@return  outputs are IR
#'@example  soil_intake(clay)
#'@author  Simone Albuquerque

soil_intake = function(soil_class){

  if (soil_class == "Clay") return ("no capitalization")
  if (soil_class == "Silty clay") return ("no capitalization")
  if (soil_class == "Clay loam") return ("no capitalization")
  if (soil_class == "Loam") return ("no capitalization")
  if (soil_class == "Loamy sand") return ("no capitalization")
  if (soil_class == "Sand") return ("no capitalization")
  if (soil_class!= c("clay", "silty clay", "clay loam", "loam", "sandy loam", "loamy sand", "sand"))
      return("soil option not available choose from clay, silty clay, clay loam, loam, sandy loam, loamy sand, sand ")

  IR = case_when(
    soil_class == "clay" ~  0.1,
    soil_class == "silty clay" ~  0.15,
    soil_class == "clay loam" ~  0.2,
    soil_class == "loam" ~  0.35,
    soil_class == "sandy loam" ~  0.4,
    soil_class == "loamy sand" ~  0.5,
    soil_class == "sand" ~  0.6
  )

  return(IR)
}