if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
library(pmartRdata)
to_filter <- molecule_filter(omicsData = pep_object)
summary(to_filter, min_num = 2)
pep_object2 <- applyFilt(
filter_object = to_filter,
omicsData = pep_object, min_num = 2
)
summary(pep_object2) # number of Peptides is as expected based on summary of
# the filter object that was applied
pep_object2 <- group_designation(omicsData = pep_object2,
main_effects = "Phenotype")
to_filter2 <- imdanova_filter(omicsData = pep_object2)
pep_object3 <- applyFilt(
filter_object = to_filter2,
omicsData = pep_object2,
min_nonmiss_anova = 3
)
}
Run the code above in your browser using DataLab