Nothing
vcovJK <- function(x, ...) {
UseMethod("vcovJK")
}
vcovJK.default <- function(x, cluster = NULL, center = "mean", ...) {
center <- match.arg(center, c("mean", "estimate"))
vcovBS(x, cluster = cluster, center = center, type = "jackknife", ...)
}
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.