R/plotProb.R

In PST: Probabilistic Suffix Trees and Variable Length Markov Chains

## 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
	}
}