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)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.