# NOT RUN {
x <- rlnorm(50,0.3)
#Apply the Baringhaus-Henze test
LRI.test(x,type="BH")
# Apply the test of Henze
LRI.test(x,type="He")
# Apply the test of Klar
LRI.test(x,type="Kl")
# Apply the test of Barighaus based on the integrated distribution function
LRI.test(x,type="BHC")
# }
Run the code above in your browser using DataLab