require(vcd)
sample(Stop, 5)
tally(~ stop + position, data = Stop, margins = TRUE)
tally(stop ~ position, data = Stop)
mosaic(stop ~ position, data = Stop, direction = "v")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.