# Render a simple graph
dag_create() %>%
dag_node("Demand","X") %>%
dag_node("Price","Y", child = "X") %>%
dag_render()
# Hide the mathematical details of a graph
dag_create() %>%
dag_node("Demand","X") %>%
dag_node("Price","Y", child = "X") %>%
dag_render(shortLabel = TRUE)
Run the code above in your browser using DataLab