library(simDAG)
set.seed(3345235)
dag <- empty_dag() +
  node("age", type="rnorm", mean=50, sd=4) +
  node("sex", type="rbernoulli", p=0.5) +
  node("UICC", type="multinomial", parents=c("sex", "age"),
       betas=matrix(c(0.2, 0.4, 0.1, 0.5, 1.1, 1.2), ncol=2),
       intercepts=1)
sim_dat <- sim_from_dag(dag=dag, n_sim=100)
Run the code above in your browser using DataLab