# Gram-Charlier density approximation (k=4) of data generated from
# a bivariate skew-gaussian distribution
n<-500
alpha<-c(10,0)
omega<-diag(2)
X<-rSkewNorm(n,omega,alpha)
EC<-SampleMomCum(X,r=4,centering=FALSE,scaling=FALSE)
EC<-EC$estCum.r ## (estimated) raw cumulants of X
fx4<-GramCharlier(X[1:50,],cum=EC)
Run the code above in your browser using DataLab