# 1) generate an iid uniformly-distributed random matrix of 1000x3
pmatrix <- cbind(runif(1000), runif(1000), runif(1000))
# 2) aggregate according to the ordre statistics
ap <- dPvalAggregate(pmatrix, method="orderStatistic")
# 3) aggregate according to the Fisher's method
ap <- dPvalAggregate(pmatrix, method="fishers")Run the code above in your browser using DataLab