Nothing
cv <-
function (x, is.sample = TRUE, coefnorm = FALSE, weighting = NULL, wmean = FALSE, na.rm = TRUE)
{
if (is.sample == TRUE)
{
n <- length(x)-1
}
else
{
n <- length(x)
}
mean_x <- mean2 (x, weighting = weighting, output = "mean", na.rm = na.rm)
sd_x <- sd2(x, is.sample = is.sample, weighting = weighting, wmean = wmean, na.rm = na.rm)
v <- sd_x/abs(mean_x)
if (coefnorm == FALSE) {
return (v)
}
if (coefnorm == TRUE) {
v.norm <- v/sqrt(n)
return(v.norm)
}
}
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.