library(simDAG)
set.seed(124554)
dag <- empty_dag() +
node("age", type="rnorm", mean=50, sd=4) +
node("sex", type="rbernoulli", p=0.5) +
node("smoking", type="negative_binomial", theta=0.05,
formula= ~ -2 + sexTRUE*1.1 + age*0.4)
sim_dat <- sim_from_dag(dag=dag, n_sim=100, sort_dag=FALSE)
Run the code above in your browser using DataLab