{
require(magrittr)
data(testotu)
## Data preparation ##
Alpha <- Alpha_diversity_calculator2(
input = testotu,
prefix = "Bacterial",
inputformat = 1,
reads = TRUE
)
topotu <- data.frame(
Top_taxa(
input = testotu,
n = 10,
inputformat = 1,
outformat = 1
)[, -1],
row.names = paste0(rep("otu", 11), 1:11)
)
groupinformation1 <- data.frame(
group = c(rep("a", 10), rep("b", 10)),
factor1 = rnorm(10),
factor2 = rnorm(mean = 100, 10)
)
### Use inputtype = FALSE ###
head(Alpha)
combine_and_translate(
Alpha, groupinformation1,
itemname = "Alpha", indexname = "index",
inputtype = FALSE
)
### Use inputtype = TRUE ###
head(topotu)
combine_and_translate(
topotu, groupinformation1,
itemname = "OTU", indexname = "reads",
inputtype = TRUE
)
}
Run the code above in your browser using DataLab