RH <-
function(Temp, Td) {
lv <- 17.625
Rv <- 243.04
hurs <- 100*(exp((lv*Td)/(Rv+Td))/exp((lv*Temp)/(Rv+Temp)))
return(hurs)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.