median polish from normalized peptide intensities

medpolish_protein_estimates(data, config)

Examples


istar <- prolfqua_data('data_ionstar')$normalized()
istar$config <- old2new(istar$config)
istar_data <- istar$data
res <- medpolish_protein_estimates(istar_data,
istar$config )
#> starting aggregation
#> Warning: medpolish() did not converge in 10 iterations
#> Warning: medpolish() did not converge in 10 iterations

dr <- res("unnest")$data
stopifnot(nrow(dr) ==
length(unique(istar$data$protein_Id )) * length(unique(istar$data$raw.file)))