dp0 <- list(xi=1:2, Omega=diag(3:4), alpha=c(3, -5))
f10 <- makeSECdistr(dp=dp0, family="SN", name="SN-2D", compNames=c("x", "y"))
show(f10)
plot(f10)
summary(f10)
mean(f10) # the mean value of the probability distribution
vcov(f10) # the variance-covariance matrix of the probability distribution
Run the code above in your browser using DataLab