R/diag.panel.hist.R

Defines functions diag.panel.hist

Documented in diag.panel.hist

diag.panel.hist <-
function# define scatterplot diagonal formatting
### internal function for sisus
(x
### internal variable
, ...
### internal variable
)
{
  ##details<<
  ## interal function for sisus.run()

  usr = par("usr"); on.exit(par(usr))
  par(usr = c(usr[1:2], 0, 1.5) )
  h = hist(x, plot = FALSE)
  breaks = h$breaks; nB = length(breaks)
  y = h$counts; y = y/max(y)
  rect(breaks[-nB], 0, breaks[-1], y, col="steelblue3", ...)
  ### internal variable
}

Try the sisus package in your browser

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

sisus documentation built on May 30, 2017, 12:23 a.m.