dag_create() %>%
dag_node("Healthy") %>%
dag_node("Disease") %>%
dag_node("Death") %>%
dag_edge(c("Healthy","Disease"),"Death") %>%
dag_edge("Healthy","Disease") %>%
dag_edge("Disease","Healthy") %>%
dag_diagrammer(shortLabel=TRUE) %>%
DiagrammeR::render_graph()