Nothing
"harmonic.mean" <-
function(x) {
x <- x[! is.na(x)]
n <- length(x)
x.nonzero <- x[x != 0]
n.zero <- n - length(x.nonzero)
correction <- (n-n.zero)/n
HM <- (1/mean(1/x.nonzero)) * correction
z <- list(harmean = HM,
correction = correction,
source = "harmonic.mean")
return(z)
}
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.