R/plotProb.R

## Used by ppplot

plotProb <- function(x0, y0, x1, y1, prob, cpal, ...) {

	ytmp <- y0
	for (s in 1:length(prob)) {
		ytop <- ytmp+prob[s]
		rect(x0, ytmp, x1, ytop, col=cpal[s], ...)
		ytmp <- ytop
	}
}

Try the PST package in your browser

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

PST documentation built on May 2, 2019, 5:14 p.m.