R/histd.R

In tsieger/tsiMisc: Miscelaneous utility functions, mostly related to exploratory statistical analysis

histd<-structure(
function # Histogram with defaults.
##description<<
## \code{\link{histd}} is just a shortcut to \code{\link[graphics]{hist}}
## passing it some default values.
(x, ##<< a vector of values for which the histogram is desired
breaks = 100, ##<< histogram breaks, see \code{\link[graphics]{hist}}
col = 'gray', ##<< a color to fill the bars, defaults to gray, see \code{\link[graphics]{hist}}
main = NULL, ##<<
xlab = NULL, ##<<
... ##<< other parameters to \code{\link[graphics]{hist}}
) {
  if (is.null(main)) main<-paste('Histogram of',deparse(substitute(x)))
  if (is.null(xlab)) xlab<-deparse(substitute(x))
  hist(x,breaks=breaks,col=col,main=main,xlab=xlab,...)
  ### an object of class \code{histogram}, see \code{\link[graphics]{hist}}
},ex=function() {
  histd(rnorm(100))
})