R/wdws2u.R

Defines functions wdws2u

wdws2u <- function(wd,ws) {
  
  radians <- function(degrees) degrees * pi / 180
  u <- -ws*sin(radians(wd))
  u <- round(u,2)
  return(u)
  
}
tim-salabim/metvurst documentation built on May 13, 2023, 9:32 a.m.