R/areEventConfigurationsIdentical.R

Defines functions areEventConfigurationsIdentical

areEventConfigurationsIdentical <- function(ephy, index1, index2){
	
	nodeset <- c(ephy$eventData[[index1]]$node, ephy$eventData[[index2]]$node);
	diffs <- sum(table(nodeset) == 1);
	return(diffs == 0);	
}

Try the BAMMtools package in your browser

Any scripts or data that you put into this service are public.

BAMMtools documentation built on July 16, 2022, 1:05 a.m.