# TH.p.adjust: The adjusted p-values for Tarone-Holm step-down FWER... In MHTdiscrete: Multiple Hypotheses Testing for Discrete Data

## Description

The function for calculating the adjusted p-values based on original available p-values and all attaianble p-values.

## Usage

 `1` ```TH.p.adjust(p, p.set, alpha, make.decision) ```

## Arguments

 `p` numeric vector of p-values (possibly with `NA`s). Any other R is coerced by `as.numeric`. Same as in `p.adjust`. `p.set` a list of numeric vectors, where each vector is the vector of all attainable p-values containing the available p-value for the corresponding hypothesis. `alpha` significant level used to compare with adjusted p-values to make decisions, the default value is 0.05. `make.decision` logical; if `TRUE`, then the output include the decision rules compared adjusted p-values with significant level α

## Value

A numeric vector of the adjusted p-values (of the same length as `p`).

Yalin Zhu

## References

Hommel, G., & Krummenauer, F. (1998). Improvements and modifications of Tarone's multiple test procedure for discrete data. Biometrics, 54: 673-681.

Holm, S. (1979). A simple sequentially rejective multiple test procedure. Scandinavian Journal of Statistics, 6: 65-70.

`MHolm.p.adjust`, `p.adjust`.
 ```1 2 3``` ```p <- c(pbinom(1,8,0.5),pbinom(1,5,0.75),pbinom(1,6,0.6)) p.set <-list(pbinom(0:8,8,0.5),pbinom(0:5,5,0.75),pbinom(0:6,6,0.6)) TH.p.adjust(p,p.set) ```