PPD <- function(PMV){ 100 - 95*exp(-(0.03353 *(PMV^4) + 0.2179 *(PMV^2))) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.