Nothing
initialsna = function(tree, sna.name) {
sna.no = length(sna.name)
sna.edge = sample(2:nrow(tree$edge), size = sna.no, replace = TRUE)
sna.mat = cbind(1:sna.no, tree$edge[sna.edge, ])
colnames(sna.mat) = c("sna", "sna.st.node", "sna.ed.node")
rownames(sna.mat) = sna.name
return(sna.mat)
}
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.