# NOT RUN {
multivariance:::pearson.pvalue.unif(matrix(runif(300),ncol = 3))
# }
# NOT RUN {
library(microbenchmark)
x = matrix(runif(300*3),ncol = 3)
microbenchmark(
multivariance.test(x,p.value.type = "pearson_approx")$p.value,
multivariance:::pearson.pvalue.unif(emp.transf(x))
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab