# NOT RUN {
#Load the copuladata
data(copuladata)
params <- list(t(c(1.5, 1)), as.matrix(0.5))
corr <- cbind(c(1,0.7), c(0.7,1))
distr <- c("gaussian", "exp")
density <- dmdistr(copuladata, params = params, corr = corr, distr = distr)
# }
Run the code above in your browser using DataLab