sd2 <- function(x, na.rm = FALSE) { if (na.rm) { x <- na.omit(x) } n <- length(x) sqrt( var(x) * (n - 1)/n ) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.