R/wdws2uv.R

Defines functions wdws2uv

wdws2uv <- function(wd, ws) {

  radians <- function(degrees) degrees * pi / 180
  u <- -ws * sin(radians(wd))
  u <- round(u, 2)
    
  radians <- function(degrees) degrees * pi / 180
  v <- -ws * cos(radians(wd))
  v <- round(v, 2)
  
  return(as.data.frame(cbind(u, v)))

}
tim-salabim/metvurst documentation built on May 13, 2023, 9:32 a.m.