R/generateStats.R

In avastermark19/doseR_development: Test Package of doseR

#' @title generateStats	Statistics function to summarize expression data of a countData object.
#' @description generateStats is a summary function used on various expression data.
#' @usage generateStats(cD, groupings= NULL, mode_mean=TRUE, LOG2=TRUE)
#' @param cD A countData object.
#' @param groupings	A grouping (annotation column), e.g. groupings="something".
#' @param mode_mean Boolean, Calculate RowMeans or RowMedians.
#' @param LOG2	Boolean, Calculate LOG2.
#' @details This function completes summary statistics of the expression of the supplied countData object.
#' @return Returns an invisible list of summary statistics, kruskal test and raw data of a countData object.
#' @author AJ Vaestermark, JR Walters.
#' @references The "doseR" package, 2018 (in press).

generateStats <- function (cD, groupings= NULL, mode_mean=TRUE, LOG2=TRUE) {

  if(is.null(groupings)) {
    stop ('No groupings, e.g. groupings="something"...')
    return (NULL)
  }

  MyGroups<-cD@annotation[[groupings]]
 # require(matrixStats)


  RM<- (
    if(mode_mean) rowMeans(cD@RPKM) else matrixStats::rowMedians(cD@RPKM)
  )

  if(LOG2) { RM<-log2(RM) }
  RM[is.infinite(RM)]<-NA

  tmp <-  split(RM, MyGroups)
  val.summary <-  sapply(tmp, summary)
  val.k <- kruskal.test(tmp)

  names(tmp) <- levels(as.factor(MyGroups))

  message("View output: outlist$kruskal, outlist$summary")
  invisible( list("summary" = val.summary, "kruskal" = val.k, "data" = tmp) )

}# generateStats