# \donttest{
## pseudo-uniform data generation
N = 100
P = 4
X = matrix(stats::rnorm(N*P), ncol=P)
for (n in 1:N){
x = X[n,]
x = abs(x/sqrt(sum(x^2)))
X[n,] = x^2
}
## run the tests
simplex.uniform(X, "LRT")
simplex.uniform(X, "lrtsym")
# }
Run the code above in your browser using DataLab