metalyzer_se <- MetAlyzer_dataset(file_path = example_extraction_data())
metalyzer_se <- renameMetaData(
metalyzer_se,
Extraction_Method = "Sample Description"
)
# reduced to only 'Acylcarnitines' (first metabolic class) for simplicity
drop_vec = unique(metalyzer_se@elementMetadata$metabolic_classes)[2:24]
metalyzer_se <- filterMetabolites(
metalyzer_se,
drop_metabolites = drop_vec
)
metalyzer_se <- filterMetaData(
metalyzer_se,
Tissue == "Drosophila"
)
metalyzer_se <- calculate_anova(
metalyzer_se,
categorical = "Extraction_Method",
groups = c("Metabolite"),
impute_perc_of_min = 0.2,
impute_NA = TRUE
)
Run the code above in your browser using DataLab