uv2ws <- function(u,v) { ws <- sqrt(u^2 + v^2) ws <- round(ws, 2) return(ws) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.