This function computes the partial TAI or TDI values for all Phylostrata or Divergence Strata.

pStrata(ExpressionSet)

Arguments

ExpressionSet

a standard PhyloExpressionSet or DivergenceExpressionSet object.

Author

Hajk-Georg Drost

Examples


data(PhyloExpressionSetExample)

# compute partial TAI values for each Phylostratum
partialStrata <- pStrata(PhyloExpressionSetExample)

# show that colSums of pStrata is equavalent to the TAI values
all.equal(colSums(partialStrata),TAI(PhyloExpressionSetExample))
#> [1] TRUE

# show that colSums of pStrata is equavalent to colSums of pMatrix(PhyloExpressionSetExample)
all.equal(colSums(partialStrata),colSums(pMatrix(PhyloExpressionSetExample)))
#> [1] TRUE