isClade <-
function(phy,taxonlist) {
if (length(taxonlist)==1) {
return(TRUE)
}
if(length(descendants(phy,MRCA(phy,taxonlist),type="tips"))==length(taxonlist)) {
return(TRUE)
}
else {
return(FALSE)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.