R/pmfplot.R

pmfplot <-
function (pmf = dnorm, xlab, ylab, col, ...) 
{
    require(lattice)
    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, ...)
    })
}

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.