#' test Dixon
library(devtools)
load_all(".")
x <- get( data("lansing") )
y <- x[ x$marks %in% c("hickory", "maple"), drop=T ]
y$marks <- droplevels(y$marks)
d <- dixon(y)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.