model <- make_model("X -> Y")
df <- make_data(model, n = 8)
# Observe X values only
observe_data(complete_data = df, nodes_to_observe = "X")
# Observe half the Y values for cases with observed X = 1
observe_data(complete_data = df,
observed = observe_data(complete_data = df, nodes_to_observe = "X"),
nodes_to_observe = "Y", prob = .5,
subset = "X==1")
Run the code above in your browser using DataLab