sir <- function(d, n, pop){ (sum(d[[pop]])/sum(d[[n]])) * d[[n]]/d[[pop]] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.