experimental/beast_reader.R

read.beast.tree <- function(file){
	tree <- read.annotated.nexus(file)
	data.matrix <- trann2trdat(tree)		
	res <- list(tree, data.matrix)
	names(res) <- c("chronogram", "tree.data.matrix")
	class(res) <- "beast.tree"
	return(res)
}

tre <- read.beast.tree(file)
plot(tre)
sebastianduchene/NELSI documentation built on Aug. 18, 2022, 11:45 p.m.