## Not run:
# # Random simulation of standard normal and then combine with
# # a random standard exponential distribution
# X <- rnorm(200); Y <- X + rexp(200)
# z <- lcomoms2(data.frame(X=X, Y=Y))
# print(z)
#
# z <- lcomoms2(data.frame(X=X, Y=Y), diag=TRUE)
# print(z$T3) # the L-skew values of the margins
#
# z <- lcomoms2(data.frame(X=X, Y=Y), opdiag=TRUE)
# print(z$T3) # the L-coskew values## End(Not run)
Run the code above in your browser using DataLab