Nothing
condDist2 <- function(U, V.tilda2, one_n_t=t(rep(1,nrow(U)))) {
du2 <- dist(U)^2
tmp <- diag(V.tilda2) %*% t(rep(1,nrow(U)))
dv2 <- as.dist(tmp + t(tmp) - 2*V.tilda2)
sqrt(du2 + dv2)
}
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.