se <- function(x) { nx <- length(x) if (nx < 2) stop("not enough x observations") sqrt(var(x)/nx) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.