cg <- caugi(A %-->% B, B %-->% C, A %-->% C, class = "DAG")
# Fully automatic simulation
df <- simulate_data(cg, n = 100)
# With standardization
df <- simulate_data(cg, n = 100, standardize = TRUE)
# Custom equations for some nodes
df <- simulate_data(cg, n = 100,
A = rnorm(n, mean = 10, sd = 2),
B = 0.5 * A + rnorm(n, sd = 0.5)
)
# Reproducible simulation
df <- simulate_data(cg, n = 100, seed = 42)
Run the code above in your browser using DataLab