Nothing
#[export]
dcora <- function(x) {
p <- dim(x)[2]
a <- matrix(0, p, p)
for ( i in 1:c(p - 1) ) {
for ( j in c(i + 1):p ) {
a[i, j] <- a[j, i] <- Rfast::dcor(x[, i], x[, j])$dcor
}
}
diag(a) <- 1
a
}
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.