Nothing
## compute stress per point
spp <- function(dhat, confdiss, wgths)
{
resmat <- as.matrix(wgths)*as.matrix(dhat - confdiss)^2 #point stress
diag(resmat) <- NA
spp <- colMeans(resmat, na.rm = TRUE)
spp <- spp/sum(spp)*100
names(spp) <- colnames(resmat) <- rownames(resmat) <- attr(dhat, "Labels")
return(list(spp = spp, resmat = resmat))
}
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.