# NOT RUN {
set.seed(1)
norm.data <- MASS::mvrnorm(300, m=rep(0,3),
Sigma=cov(MASS::mvrnorm(15, mu=rep(0,3), Sigma=diag(3))))
disc.data <- apply(norm.data,2, cut,
breaks = c(-Inf, 0,1, Inf), labels=FALSE)# normal data discretized
pvalue <- bootTest(disc.data, B=500)
#no support for underlying non-normality
# }
Run the code above in your browser using DataLab