# \donttest{
model <- make_model('X -> Y')
possible_types <- grab(model, "nodal_types")
df <- data.frame(expand.grid(possible_types, stringsAsFactors = FALSE))
CausalQueries:::causal_type_names(df)
# }
Run the code above in your browser using DataLab