Nothing
`mu.kruskal.test` <-
function(y,groups,blocks,...) {
funCall <- match.call()
funCall[[1]] <- as.name("prentice.test")
return(eval(funCall, sys.parent()))
}
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.