data(gmbn_body)
gmbn_1 <- remove_arcs(gmbn_body,
data.frame(from = c("HEIGHT", "AGE"),
to = c("FAT", "WAIST")))
data(gmdbn_air)
gmdbn_1 <- remove_arcs(gmdbn_air,
list(b_2 = data.frame(from = c("NO2", "TEMP"),
to = c("O3", "O3"), lag = c(1, 1)),
b_13 = data.frame(from = "TEMP", to = "O3",
lag = 1)))
Run the code above in your browser using DataLab