R/histpp.R

`histpp` <-
function(x, xname="", utitle="") {
  hist(x,main=utitle,xlab="", col="lightgrey", ylab=xname)
  rug(x, side=1, ticksize=0.03,  col="red")
  rug(x, side=1, ticksize=0.01,  col="white")
  rug(x, side=1, ticksize=0,  col="black")
}

Try the PBImisc package in your browser

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

PBImisc documentation built on May 29, 2017, 5:53 p.m.