swbgt <- function(ta, vprph){ swbgt <- (0.567 * ta) + (0.393 * vprph) + 3.94 return(swbgt) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.