`mrca.nodes` <-
function(nodevector,nodematrix)
{
nnodes<-length(nodevector)
if(nnodes<2)
stop("The number of nodes should be at least 2!")
mrca<-mrca.2nodes(nodevector[1],nodevector[2],nodematrix)$anc
for(i in 3:nnodes)
mrca<-mrca.2nodes(mrca,nodevector[i],nodematrix)$anc
return(mrca)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.