# NOT RUN {
require(mgc)
n = 100; d=5
# simulation with a large difference between the classes
# meaning they are more discriminable
sim <- discr.sims.linear(n=n, d=d, K=2, signal.lshift=10)
X <- sim$X; Y <- sim$Y
# p-value is small
discr.test.one_sample(X, Y)$p.value
# }
Run the code above in your browser using DataLab