Nothing
seridit <-
function(v, ref) {
N <- sum(ref)
n <- sum(v)
term1 <- (n + 1) / N
term2 <- 1 / (N * (N + n - 1))
term3 <- sum((ref + v) ^ 3) / (N * (N + n) * (N + n - 1))
(1 / (2 * sqrt(3 * n))) * sqrt(1 + term1 + term2 - term3)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.