############################################################################################################################
# Function: DisjunctivePower
# Argument: Test results (p-values) across multiple simulation runs (vector or matrix), statistic results (not used in this function),
# criterion parameter (Type I error rate).
# Description: Compute disjunctive power for the test results (vector of p-values or each column of the p-value matrix).
DisjunctivePower = function(test.result, statistic.result, parameter) {
# Error check
if (is.null(parameter$alpha)) stop("Evaluation model: DisjunctivePower: alpha parameter must be specified.")
alpha = parameter$alpha
if (is.numeric(test.result))
significant = (test.result <= alpha)
if (is.matrix(test.result))
significant = (rowSums(test.result <= alpha) > 0)
power = mean(significant, na.rm = TRUE)
return(power)
}
# End of DisjunctivePower
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.