# Simple examples with random data here
set.seed(1)
#Standard multivariate LSD test for one sample case
X=matrix(rnorm(50),5,10)+5
res <- lsd.test(resp=X,alternative=~1)
print(res)
p.value(res)
summary(res,showD=TRUE)
Run the code above in your browser using DataLab