# Gram-Charlier density approximation (k=4) of data generated from
# a bivariate skew-gaussian distribution
n<-50
alpha<-c(10,0)
omega<-diag(2)
X<-rSkewNorm(n,omega,alpha)
EC<-SampleEVSK(X)
fy4<-SampleGC(X[1:5,],cum=EC)
Run the code above in your browser using DataLab