Investor Presentaiton slide image

Investor Presentaiton

Appendix: Graph a lightly annotated tree (decision_tree_unlabeled <- ggtree (tree_data) %<+% tree_labels + layout_dendrogram() + annotate("text", x = -12.25, y = 2, label = "Start") + annotate("label", label = rep(c("H", "T"), 4), x = c(11.5, 11.5, 9.5, 9.5, 7.5, 7.5, 4.5, 4.5), y c(1, 2.875, 2, 3.75, 3, 4.5, 4, 5)) + = xlim (0, -12.25) + geom_tiplab (geom = = "text", aes (label label_text), parse T, vjust 1, hjust = .5, angle == 1) + = = geom_linerange (y 5, xmin = -1, xmax = 2.75, color="white", size = 2) + geom_linerange (y = 4.5, xmin = 5.02, xmax = color="white", size = 2) + = geom_linerange (y 5, xmin -1, xmax linetype = "dotted" size = .75) + = 2.75, geom_linerange (y = 4.5, xmin = 5.02, xmax 5.75, = 5.75, linetype = "dotted", size = .75))
View entire presentation