library("DiagrammeR")
dag_create() %>%
dag_node("Get Card","y",
rhs = bernoulli(theta),
data = carModelDF$getCard) %>%
dag_diagrammer() %>%
render_graph(title = "DiagrammeR Version of causact_graph")
Run the code above in your browser using DataLab