update proposal

k23/_dag.qmd

@@ -0,0 +1,46 @@
+```{r}
+#| label: fig-k23-dag
+#| fig.cap: DAG for the K23 example
+library(DiagrammeR)
+
+# Base graph
+g <- create_graph()
+
+# Nodes
+nodes <- tibble::tribble(
+	~type, ~label,
+	"DSP", "ECG",
+	"DSP", "Scar",
+	"DSP", "MRI",
+	"ANS", "Stress",
+	"ANS", "PTSD",
+	"EPS", "EPS",
+	"EPI", "Phenotype",
+	"EPI", "Genotype",
+	"DSP", "Arrhythmia Prediction",
+	"EPI", "Trajectory",
+	"DSP", "Computational Modeling"
+)
+
+node_df <-
+	create_node_df(n = nrow(nodes), type = nodes$type, label = nodes$label)
+
+# Edges
+edges <- tibble::tribble(
+	~from, ~to, 
+	"ECG", "Scar", 
+	"MRI", "ECG",
+	"EPS", "Computational Modeling",
+	"MRI", "Computational Modeling",
+	"EPS", "Scar"
+)
+
+edge_df <-
+	create_edge_df(
+		from = edges$from,
+		to = edges$to
+	)
+
+create_graph() |>
+	render_graph()
+```