Nothing
#' @export
pmfplot <-
function (pmf = dnorm, xlab, ylab, col, ...)
{
if (missing(col)) {
col = "black"
}
if (missing(xlab)) {
xlab = ""
}
if (missing(ylab)) {
ylab = ""
}
xyplot(0 ~ 0, xlab = xlab, ylab = ylab, panel = function(x,
y, ...) {
panel.mathdensity(pmf, col = col, ...)
})
}
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.