if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
# \donttest{
library(pmartRdata)
mypepData <- group_designation(
omicsData = pep_object,
main_effects = c("Phenotype")
)
mypepData = edata_transform(omicsData = mypepData, data_scale = "log2")
imdanova_Filt <- imdanova_filter(omicsData = mypepData)
mypepData <- applyFilt(
filter_object = imdanova_Filt,
omicsData = mypepData,
min_nonmiss_anova = 2
)
imd_anova_res <- imd_anova(
omicsData = mypepData,
test_method = 'combined',
pval_adjust_a_multcomp = 'bon',
pval_adjust_g_multcomp = 'bon'
)
result = bpquant(statRes = imd_anova_res, pepData = mypepData)
# }
}
Run the code above in your browser using DataLab