stind <- c(43, 44, 42) # Indices of test statistics.
alter <-list(stat43 = 3, stat44 = 3, stat42 = 3) # Type for each test.
# Several p-values computed under the null.
# You can increase the values of M and N for better results.
matrix.pval <- many.pval(stat.indices = stind, law.index = 1,
n = 100, M = 10, N = 10, alter = alter, null.dist = 1,
method = "direct")
graph(matrix.pval)
Run the code above in your browser using DataLab