library("prolfquapp")
xx <- prolfqua::sim_lfq_data_peptide_config()
lfqdata <- prolfqua::LFQData$new(xx$data, xx$config)
aggregated <- aggregate_data(lfqdata, agg_method = "medpolish")
aggregated$response()[1] "exp_medpolish"
aggregated <- aggregate_data(lfqdata, agg_method = "rlm")
aggregated$response()[1] "exp_lmrob"
aggregated <- aggregate_data(lfqdata, agg_method = "topN")
aggregated$response()[1] "srm_sum_3"