library("topmodels")
## Rootograms from Tukey (1972)
## (some 'breaks' don't match exactly)
library("topmodels")
data("VolcanoHeights", package = "topmodels")
## Figure 16
rootogram(lm(VolcanoHeights ~ 1), style = "standing",
breaks = 0:20 - 0.01, expected = FALSE, confint = FALSE)


