R/groupedWilkinson.R

In LTLA/metapod: Meta-Analyses on P-Values of Differential Analyses

#' Combine grouped p-values with Wilkinson's method
#'
#' Combine p-values from grouped tests with Wilkinson's method.
#' Groups are defined according to unique levels of a grouping factor.
#'
#' @inheritParams groupedHolmMin
#'
#' @return A list containing:
#' \itemize{
#' \item \code{p.value}, a named numeric vector of length equal to the number of unique levels in \code{grouping}.
#' This contains the combined p-value for each group, log-transformed if \code{log.p=TRUE}.
#' Each entry is named according to the group.
#' \item \code{representative}, a named integer scalar specifying the representative test for each group.
#' Each index refers to an entry of \code{p.values} and is named according to its group.
#' \item \code{influential}, a logical vector of length equal to \code{p.values}.
#' Entries are \code{TRUE} for any p-value that is deemed \dQuote{influential} to the final combined p-value for its group.
#' }
#'
#' @inherit parallelWilkinson details
#' @inherit parallelWilkinson references
#' 
#' @author Aaron Lun
#' @examples
#' p1 <- rbeta(100, 0.8, 1)
#' g <- sample(10, length(p1), replace=TRUE)
#'
#' # Standard application:
#' out <- groupedWilkinson(p1, g)
#' str(out)
#'
#' # With log p-values. 
#' out <- groupedWilkinson(log(p1), g, log.p=TRUE)
#' str(out)
#'
#' @seealso
#' \code{\link{parallelWilkinson}}, for a version that operates on parallel vectors of p-values.
#'
#' \code{\link{groupedHolmMin}}, which has a more strict interpretation of \emph{N}, amongst other things.
#' @export
groupedWilkinson <- function(p.values, grouping, log.p=FALSE, min.n=1, min.prop=0.5) {
    .valid_min_vals(min.n, min.prop)

    .grouped_compute(p.values, grouping, weights=NULL, log.p=log.p, min_n=min.n, min_prop=min.prop, FUN=compute_grouped_wilkinson)
}