data(gmbn_body)
gmbn_1 <- add_arcs(gmbn_body,
data.frame(from = c("GENDER", "AGE"),
to = c("GLYCO", "WEIGHT")))
data(gmdbn_air)
gmdbn_1 <- add_arcs(gmdbn_air,
list(b_2 = data.frame(from = "WIND", to = "NO2", lag = 1),
b_13 = data.frame(from = c("NO2", "NO2"),
to = c("O3", "O3"), lag = c(0, 1))))
Run the code above in your browser using DataLab