# NOT RUN {
#Simulate a bivariate sample with a gaussian component and an exponential one
n <- 100
params <- list(t(c(1,1)), as.matrix(1))
corr <- cbind(c(1,0.5), c(0.5,1))
distr <- c("gaussian", "exp")
x <- rmdistr(n = n, params = params, corr = corr, distr = distr)
# }
Run the code above in your browser using DataLab