library("TreeTools", warn.conflicts = FALSE)
trees <- list(read.tree(text = ("(a, (b, (c, (d, (e, (X1, X2))))));")),
read.tree(text = ("((a, (X1, X2)), (b, (c, (d, e))));")))
RogueTaxa(trees, dropsetSize = 2)
trees <- list(
read.tree(text = "((a, y), (b, (c, (z, ((d, e), (f, (g, x)))))));"),
read.tree(text = "(a, (b, (c, (z, (((d, y), e), (f, (g, x)))))));"),
read.tree(text = "(a, (b, ((c, z), ((d, (e, y)), ((f, x), g)))));"),
read.tree(text = "(a, (b, ((c, z), ((d, (e, x)), (f, (g, y))))));"),
read.tree(text = "(a, ((b, x), ((c, z), ((d, e), (f, (g, y))))));")
)
cons <- consensus(trees, p = 0.5)
plot(cons)
LabelSplits(cons, SplitFrequency(cons, trees) / length(trees))
reduced <- RogueTaxa(trees, info = "phylogenetic", ret = "tree")
plot(reduced)
LabelSplits(reduced, SplitFrequency(reduced, trees) / length(trees))
QuickRogue(trees, fullSeq = TRUE)
bootTrees <- system.file("example/150.bs", package = "Rogue")
tmpDir <- tempdir()
XX <- capture.output( # Don't print verbose run details to console
C_RogueNaRok(bootTrees, workDir = tmpDir)
)
# Results have been written to our temporary directory
oldwd <- setwd(tmpDir)
head(read.table("RogueNaRok_droppedRogues.tmp", header = TRUE))
# Delete temporary files
file.remove("RogueNaRok_droppedRogues.tmp")
file.remove("RogueNaRok_info.tmp")
setwd(oldwd)
Run the code above in your browser using DataLab