R/as.bammdata.R

In BAMMtools: Analysis and Visualization of Macroevolutionary Dynamics on Phylogenetic Trees

Defines functions as.bammdata.credibleshiftset as.bammdata

as.bammdata <- function(x, ...) {
	if (length(class(x)) == 1 && inherits(x, "bammdata")) {
		return(x);
	}
	UseMethod("as.bammdata");
}
##' @export
as.bammdata.credibleshiftset <- function(x, ...) {
	obj <- x;
	class(obj) <- "bammdata";
	return(obj);
}

Try the BAMMtools package in your browser