treeDiag: Construct tree diagrams

In JECheadle/RSOC317L: Data Sets and Supplemental Functions from David Diez's 'OpenIntro' Textbook

Description

Construct beautiful tree diagrams

Usage

treeDiag(main, p1, p2, out1 = c("Yes", "No"), out2 = c("Yes", "No"),
   textwd = 0.15, solwd = 0.2, SBS = c(TRUE, TRUE), showSol = TRUE,
   solSub = NULL, digits = 4, textadj = 0.015, cex.main = 1.3,
   col.main = "#999999", showWork = FALSE)

Arguments

main	Character vector with two variable names, descriptions, or questions
p1	Vector of probabilities for the primary branches
p2	List for the secondary branches, where each list item should be a numerical vector of probabilities corresponding to the primary branches of p1
out1	Character vector of the outcomes corresponding to the primary branches
out2	Character vector of the outcomes corresponding to the secondary branches
textwd	The width provided for text with a default of 0.15
solwd	The with provided for the solution with a default of 0.2
SBS	A boolean vector indicating whether to place text and probability side-by-side for the primary and secondary branches
showSol	Boolean indicating whether to show the solution in the tree diagram
solSub	An optional list of vectors corresponding to p2 to list alternative text or solutions
digits	The number of digits to show in the solution
textadj	Vertical adjustment of text
cex.main	Size of main in the plot
col.main	Color of main in the plot
showWork	Whether work should be shown for the solutions

Value

No value is given.

Author(s)

David M Diez, Christopher D Barr

References

OpenIntro Statistics, Chapter 2.

See Also

histPlot

Examples

# Examples
# generic with random probabilities

treeDiag(c('Flight on time?','Luggage on time?'),
   c(.8,.2), list(c(.97,.03), c(.15,.85)))

treeDiag(c('Breakfast?','Go to class'), c(.4,.6),
   list(c(.4,.36,.34),c(.6,.3,.1)), c('Yes','No'),
   c('Statistics','English','Sociology'), showWork=TRUE)

treeDiag(c('Breakfast?','Go to class'), c(.4,.11,.49),
   list(c(.4,.36,.24),c(.6,.3,.1),c(.1,.4,.5)),
   c('one','two','three'), c('Statistics','English','Sociology'))

treeDiag(c('Dow Jones rise?', 'NASDAQ rise?'),
   c(0.53, 0.47), list(c(0.75, 0.25), c(0.72, 0.28)),
   solSub=list(c("(a)", "(b)"), c("(c)", "(d)")), solwd=0.08)

JECheadle/RSOC317L documentation built on May 15, 2019, 4:02 a.m.