In OakleyJ/SHELF: Tools to Support the Sheffield Elicitation Framework

knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE,
                      fig.pos = 'h',
                      fig.align = 'center',
                      fig.height = 3,
                      fig.width = 4)
showplots <- FALSE

fit <- params$fit
bin.left <- params$bin.left
bin.right <- params$bin.right
chips <- params$chips
roulette <- params$roulette
filename <- system.file("shinyAppFiles", "distributionsChild.Rmd", package="SHELF")