modified:   R/n2gExtractMeanExpression.R