Nothing
#' @importFrom stats qt
sigCor <- function(p = 0.05,
n = 50,
tail = 2) {
t <- qt((p / tail), n - 2)
t / (sqrt((n - tail) + t^2))
}
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.