if (requireNamespace("phyloseq", quietly = TRUE)) {
mock_X <- matrix(sample(0:1000, 25, replace = TRUE),
nrow = 5,
dimnames = list(paste0("sample", 1:5),
paste0("ASV", 1:5))
)
mock_sample_data <- data.frame(
sample_id = paste0("sample", 1:5),
load = c(1e5, 2e5, 1e4, 5e4, 1.5e5),
condition = factor(rep(c("A", "B"), length.out = 5)),
row.names = paste0("sample", 1:5)
)
mock_taxa_table <- data.frame(
Kingdom = rep("Bacteria", 5),
Genus = paste0("Genus", 1:5),
row.names = paste0("ASV", 1:5)
)
result <- process_ngs(
X = mock_X,
sample_data = mock_sample_data,
taxa_table = mock_taxa_table,
normalise = "load",
load_colname = "load",
transform = "none",
verbose = FALSE
)
}
Run the code above in your browser using DataLab