PitchSend

Investor Presentaiton

Appendix: Graph an annotated tree (decision_tree_labeled <- decision_tree_unlabeled + annotate("text", y = 0, x = (c(5, 8, 10, 12)) -.2, label = paste("Flip", c("n", 3:1))) + = -(c(5, 8, 10, 12)), geom_vline (xintercept linetype = 2) + annotate("text", x = c(11.5, 11.5, 9.5, 9.5, 7.5, 7.5, 4.5, 4.5) + .5, y = c(1, 2.875, 2, 3.75, 3, 4.5, 4, 5), label = rep(c("p = 1/2", "1 - p = 1/2 "), 4))) + geom_linerange (y = 0, xmin = 6.5, xmax = 7, linetype = "dotted", size = .75) + geom_linerange (y = = 0, xmin = 3.5, xmax 4, linetype = "dotted", size = .75)

View entire presentation