wdws2u <- function(wd,ws) {
radians <- function(degrees) degrees * pi / 180
u <- -ws*sin(radians(wd))
u <- round(u,2)
return(u)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.