R/getMeanSdAllTraits.R

In ajiangsfu/PRPS: Binary classification with PRPS, PRPS-ST and more

#' A function rather aimed at developers
#' @noRd
 
getMeanSdAllTraits = function(testdat, selectedTraits, selectedTraitWeights, group1ratioPrior = 0.5){
  ### this is for gene level group means and sds calculation based on a given ratio prior
  meanSds = t(mapply(FUN=getMeanSdPerTrait, selectedTraits, selectedTraitWeights, MoreArgs = list(fulldat = testdat,          ratioPrior =group1ratioPrior)))
  colnames(meanSds) = c("group1mean","group0mean","group1sd","group0sd")
  meanSds = data.frame(meanSds)
  return(meanSds)
}