R/multi_pval2zlist.R

In jdreyf/jdcbioinfo: Joslin Diabetes Center bioinformatics utilities

#' Convert multiple columns of p-values to list of named and sorted Z-scores
#'
#' Convert multiple columns (from a table-like object) of p-values from two-sided tests to list of named and sorted Z-scores.
#'
#' @param sort Logical. Should the Z-scores be sorted?
#' @param decreasing Logical. Should the sort be increasing or decreasing?
#' @param nm  Names of the Zscores.
#' @inheritParams multi_pval2z
#' @return List of Z-scores.
#' @export

multi_pval2zlist <- function(tab, prefix.v=NULL, p.suffix="p", direction.suffix="logFC", sort=TRUE, decreasing=TRUE, nm=rownames(tab)){

  zList <- multi_pval2z(tab, prefix.v=prefix.v, p.suffix=p.suffix, direction.suffix=direction.suffix) %>%
    as.data.frame() %>%
    as.list() %>%
    lapply(FUN=stats::setNames, nm=nm)

  if(sort) {
    zList <- zList %>%
      lapply(FUN=sort, decreasing=decreasing)
  }
  return(zList)
}