make_parmap(model = make_model('X->Y'))
make_parmap(model = make_model('X->Y; X<->Y'))
make_parmap(model = make_model('X->Y; X<->Y')) %>% attr("map")
make_parmap(model = make_model('X -> M -> Y; X <-> Y'))
make_parmap(model = make_model('X -> M -> Y; M <-> Y'))
model <- make_model('X -> M -> Y; M <-> Y; X <-> M')
make_parmap(model)
make_parmap(model) %>% attr("map")
# Any ways (without paths splits)
make_parmap(model) %*% (make_parmap(model) %>% attr("map"))
if (FALSE) {
# X1 and X2 are confounded and jointly determine Y1, Y2.
# For instance for models in which X and Y take on four values rather than 2.
model <- make_model("Y2 <- X1 -> Y1; Y2 <- X2 ->Y1; X1 <-> X2; Y1 <-> Y2")
data <- CausalQueries:::minimal_event_data(model)
check <- CausalQueries:::prep_stan_data(model, data, keep_transformed = TRUE)
check$n_params
a <- update_model(model)
make_parmap(model) %>% dim
}
Run the code above in your browser using DataLab