Functions/rubin2wt_all.R

In mariechion/mi4p: Multiple Imputation for Proteomics

source("Functions/rubin2wt_one.R")

# Computes the within-variance component in the 2nd Rubin's rule 
# for all peptides

rubin2wt.all <- function(data, funcvar = within_variance_comp_emmeans, 
                         metacond, is.parallel = F) {
  if (is.parallel) {
    res<-foreach(iforeach=1:dim(data)[1], .errorhandling = 'remove', .verbose = verbose) %dopar% 
      rubin2wt.one(iforeach,data=data,funcvar=funcvar,metacond=metacond)
  }
  else {
    res <- lapply(1:dim(data)[1],rubin2wt.one,data=data,funcvar=funcvar,metacond=metacond)
  }
  return(res)
}