library("prolfquapp")
pAlf <- sim_data_protAnnot()
xd <- compute_IBAQ_values(pAlf$lfqdata, pAlf$pannot)
xd$response()[1] "IBAQValue"
pAlf <- sim_data_protAnnot(PROTEIN = TRUE)
xd <- compute_IBAQ_values(pAlf$lfqdata, pAlf$pannot)
xd$response()[1] "IBAQValue"