Differential Abundance Analysis for Microbiome data Incorporating Phylogeny. We call this methods LRTT( Log Ratio Tree Test).
# Install the development version from GitHub
devtools::install_github("ZRChao/LRTT")
BIT.Sim.R
for Multinomial(Binomial) Tree distributionDTM.Sim.R
for Dirichlet Multinomial Tree distributionLNM.Sim.R
for Logistical Normal Multinomial distribution ANCOM.Sim.R
for Poission distribution (parameters set follow as ANCOM paper)Tree.Sim.R
: Tree simulationTaxa.index.R
: relationship between leafs and internal nodesProb.mult.R
:calculate the probability of each leafs by multiple each probability along the branchTree.ratio.R
: Tree ratio test based on the tree structureTree.ratio.back.R
: Correct steps of the tree ratio test.pow.fdr.R
: calculate power and fdr with p.value Zig.pv.adj.R
: metagenomeSeq::fitFeature
*library(MiSPU)
data(throat.otu.tab)
data(throat.tree)
data(throat.meta)
data(throat.taxa.index )
p <- ncol(throat.otu.tab)
# throat.taxa.index <- Taxa.index(p, throat.tree)
colnames(throat.otu.tab) <- as.character(1:p)
throat.taxa.tab <- as.matrix(throat.otu.tab) %*% throat.taxa.index
throat.alltab <- cbind(throat.taxa.tab, throat.otu.tab)
group <- throat.meta$SmokingStatus
result <- Tree.ratio(p, throat.tree, throat.taxa.index, throat.alltab, group)
throat.detected <- Tree.ratio.back(p, throat.tree, throat.taxa.index, results, group)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.