So that one could ask for the otu_table in a certain format regardless of the format it is stored as in physeq, without needing to check. So the fairly verbose
if (taxa_are_rows(ps) {
otu <- otu_table(ps) %>% t
} else {
otu <- otu_table(ps)
}
pcx <- prcomp(otu)
So that one could ask for the otu_table in a certain format regardless of the format it is stored as in physeq, without needing to check. So the fairly verbose
could become simply