R/swbgt.R

swbgt <- function(ta, vprph){
  swbgt <- (0.567 * ta) + (0.393 * vprph) + 3.94

  return(swbgt)
}
swish-climate-impact-assessment/ExcessHeatIndices documentation built on May 30, 2019, 10:39 p.m.