model <- make_model("X -> Y")
# Simplest behavior uses by default the parameter vector contained in model
CausalQueries:::make_data_single(model, n = 5)
CausalQueries:::make_data_single(model, n = 5, param_type = "prior_draw")
# Simulate multiple datasets. This is fastest if
# event probabilities (w) are provided
w <- get_event_probabilities(model)
replicate(5, CausalQueries:::make_data_single(model, n = 5, w = w))
Run the code above in your browser using DataLab