Nothing
hctest <-
function(x, res)
{
n <- length(x)
stopifnot(n==length(res) && n>2)
indjx <- order(x)
resx <- res[indjx]
cor.test(resx[-1], resx[-n], method="kendall")$p.value
}
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.