`popsize` <-
function(inode,jnode,nodematrix)
{
mrca<-mrca.2nodes(inode,jnode,nodematrix)$anc
return(nodematrix[mrca,5])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.