metropolisDemo.R
In binb: 'binb' is not 'Beamer'

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(cache=TRUE)

## ----pressureCode, eval=FALSE-------------------------------------------------
#  library(stats)
#  set.seed(753)
#  bx.p <- boxplot(split(rt(100, 4),
#                        gl(5, 20)), plot=FALSE)
#  bxp(bx.p, notch = FALSE, boxfill = "lightblue",
#      frame = FALSE, outl = TRUE,
#      main = "Example from help(bxp)")

## ----pressureFig, echo=FALSE--------------------------------------------------
library(stats)
set.seed(753)
bx.p <- boxplot(split(rt(100, 4),
                      gl(5, 20)), plot=FALSE)
bxp(bx.p, notch = FALSE, boxfill = "lightblue",
    frame = FALSE, outl = TRUE,
    main = "Example from help(bxp)")

## ----kableEx------------------------------------------------------------------
knitr::kable(mtcars[1:5, 1:8],
             caption="(Parts of) the mtcars dataset")