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")
#5. RAxML phylogram based on the 61199 bp concatenation of 69 nuclear and ten mitochondrial genes.
phyl <- ape::read.tree(tree.path)[[5]]
phyl <- trim.phylo(phylo=phyl, gs.vect=data$gn_sp)
comp <- comp.data(phylo=phyl, df=data)
a.PGLS <- caper::pgls(formula('OC~mass.Kg + DPL.km'), data=comp)
pgls.print(a.PGLS, all.vars=names(a.PGLS$data$data)[-1],
model.no=NA, mtx.out='', write=FALSE, print=FALSE)
Run the code above in your browser using DataLab