genDD <- function(ZZ) { distMat = lapply(1:length(ZZ),function(yy){ dd <- dist(ZZ[[yy]]); return(dd)}) return(distMat) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.