Nothing
# tests for recover.data and lsm.basis
require("lsmeans")
fiber.lm <- lm(strength ~ machine + diameter, data = fiber)
rd <- recover.data(fiber.lm)
lsm.basis(fiber.lm, trms = attr(rd, "terms"),
xlev = levels(rd$machine), grid = head(rd))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.