R/histpp.R

In pbiecek/PBImisc: A Set of Datasets Used in My Classes or in the Book 'Modele Liniowe i Mieszane w R, Wraz z Przykladami w Analizie Danych'

`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")
}