df <- r_mvdist(
500,
margins = list(
income = list(dist = "lnorm", meanlog = 10, sdlog = 0.5),
age = list(dist = "unif", min = 18, max = 80),
sector = margin_categorical(c("agri", "industry", "services"),
c(0.1, 0.3, 0.6))
),
copula = "gaussian", corr = make_corr(3, "exchangeable", 0.4), seed = 1
)
str(df)
Run the code above in your browser using DataLab