Nothing
DistMatrixNoUnit <- function(dists, func, testNA){
FUN <- match.fun(func)
n_cols = ncol(dists)
dist_value = vector("numeric", 1)
dist_matrix <- matrix(NA_real_, n_cols,n_cols)
for (i in seq_len(n_cols)) {
for (j in seq_len(n_cols)) {
if (is.na(dist_matrix[i,j])) {
dist_value = FUN(dists[ , i], dists[ , j], testNA)
dist_matrix[i,j] = dist_value
dist_matrix[j,i] = dist_value
}
}
}
return(dist_matrix)
}
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.