if (FALSE) {
mb <- system.file("extdata", "microbiome.csv", package = "mbX")
md <- system.file("extdata", "metadata.csv", package = "mbX")
if (nzchar(mb) && nzchar(md)) {
cleaned_data <- ezclean(mb, md, "g")
head(cleaned_data)
} else {
message("Sample data files not found.")
}
}
Run the code above in your browser using DataLab