R/peboxplot.R

`peboxplot` <-
function(z, ...)
{
	ztitle <- attr(z, "title")
	z.names <- attr(z, "period.abb")
	if(is.null(z.names))
		z.names <- as.character(unique(cycle(z)))
	boxplot(split(z, cycle(z)), names = z.names, ...)
	if(!is.null(ztitle))
		title(main = ztitle)
}

Try the pear package in your browser

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

pear documentation built on May 29, 2017, 11:40 p.m.