Update select-msfeature-msstats.R

jpfeuffer · Feb 26, 2020 · 3ae3e05 · 3ae3e05
1 parent a2832dc
commit 3ae3e05
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/select-msfeature-msstats.R b/R/select-msfeature-msstats.R
@@ -241,6 +241,7 @@ flag_noninf_data <- function(processedData) {
         # Shrinkage variance estimation with limma
         eb_fit <- limma::squeezeVar(var_protein$var_resid, var_protein$df_resid, robust = TRUE)
         var_protein <- var_protein %>% 
+            ungroup() %>%
             mutate(var_resid_eb = eb_fit$var.post) %>% 
             mutate(s_resid_eb = sqrt(var_resid_eb))