Nothing
setClass("bmerPointDist",
representation(value = "numeric"),
contains = "bmerDist")
toString.bmerPointDist <- function(x, digits = getOption("digits"), ...)
paste("point(value = ", round(x@value, digits), ")", sep = "")
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.