data.path <- system.file("extdata","primate-example.data.csv", package="mmodely")
data <- read.csv(data.path, row.names=1)
data$gn_sp <- rownames(data)
tree.path <- system.file("extdata","primate-springer.2012.tre", package="mmodely")
phyl <- ape::read.tree(tree.path)[[5]]
get.phylo.stats(phylo=phyl, data=data, trait.clmn='OC',
gs.clmn='gn_sp', ace.method='REML',ace.scaled=TRUE, ace.kappa=1)
Run the code above in your browser using DataLab