R/zona_climatica.R

In italocegatta/suzano:

#' Calculo da Zona Climatica
#'
#' @export
sz_zona_calc <- function(unf, iam) {
  dplyr::case_when(
    unf == "MA" & iam < -3.20002 ~ 6,
    unf == "MA" & iam >= -3.20002 & iam < -2.469548 ~ 5,
    unf == "MA" & iam >= -2.469548 & iam < -1.759684 ~ 4,
    unf == "MA" & iam >= -1.759684 & iam < -0.987375 ~ 3,
    unf == "MA" & iam >= -0.987375 & iam < -0.168160 ~ 2,
    unf == "MA" & iam >= -0.168160 ~ 1,
    
    unf == "BA" & iam < -0.90536 ~ 5,
    unf == "BA" & iam >= -0.90536 & iam < -0.33603 ~ 4,
    unf == "BA" & iam >= -0.33603 & iam < 0.545168 ~ 3,
    unf == "BA" & iam >= 0.545168 & iam < 1.412767 ~ 2,
    unf == "BA" & iam >= 1.412767 ~ 1,
    
    unf == "ES" & iam < -0.90536 ~ 5,
    unf == "ES" & iam >= -0.90536 & iam < -0.33603 ~ 4,
    unf == "ES" & iam >= -0.33603 & iam < 0.545168 ~ 3,
    unf == "ES" & iam >= 0.545168 & iam < 1.412767 ~ 2,
    unf == "ES" & iam >= 1.412767 ~ 1,
 
    unf == "SP" & iam < 1.4 ~ 3,
    unf == "SP" & iam >= 1.4 & iam < 3.4 ~ 2,
    unf == "SP" & iam >= 3.4 ~ 1,
    
    unf == "MS" & iam < 0.339265 ~ 3,
    unf == "MS" & iam >= 0.339265 & iam < 1.575081 ~ 2,
    unf == "MS" & iam >= 1.575081 ~ 1,
    TRUE ~ NA_real_
  )
}