Alpha diversity statistical test

do_alpha_div_test(
  MAE,
  tax_level,
  condition,
  alpha_metric = c("inverse_simpson", "gini_simpson", "shannon", "fisher", "coverage",
    "unit"),
  alpha_stat = c("Wilcoxon rank sum test", "T-test", "Kruskal-Wallis")
)

Arguments

MAE	A multi-assay experiment object
tax_level	The taxon level used for organisms
condition	Which condition to group samples
alpha_metric	Which alpha diversity metric to use
alpha_stat	Which stat test to use

Value

A dataframe

Examples

data_dir = system.file("extdata/MAE.rds", package = "animalcules")
toy_data <- readRDS(data_dir)
p <- do_alpha_div_test(toy_data,
                       tax_level = "genus",
                       condition = "DISEASE",
                       alpha_metric = "shannon",
                       alpha_stat = "Wilcoxon rank sum test")
p
#>         Wilcoxon rank sum exact test Welch Two Sample t-test
#> P-value                    0.3267236               0.4235008