Nothing
## HStat
## computes Kruskal-Wallis statistic H
## r and g must be vectors of the same length
HStat <- function(r, g) {
ni <- tapply(!is.na(r), g, length)
N <- sum(ni)
H <- (12 / (N * (N + 1))) *
sum(tapply(r, g, "sum") ^ 2 / ni) - 3 * (N + 1)
H
}
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.