R/superplot.R

superplot <-
function(x,y) {
  par(mar=c(1.1,1.1,1,1))
  nf <- layout(array(c(2,4,1,3), dim=c(2,2)), c(1,3), c(3, 1), TRUE)
  plot(x,y)
  hist.inv(y,2)
  hist.inv(x) ; frame()
}
michaeltwang/MEGAplot-for-Stats486 documentation built on May 9, 2019, 5:53 a.m.