File: panes.R

package info (click to toggle)
r-cran-plotrix 3.2-6-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 1,136 kB
  • sloc: makefile: 3
file content (8 lines) | stat: -rwxr-xr-x 286 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
 
panes<-function(mat=NULL,widths=rep(1,ncol(mat)),heights=rep(1,nrow(mat)),
 nrow=2,ncol=2,mar=c(0,0,1.6,0),oma=c(2.5,1,1,1)) {

 oldpar<-par("mar","mfrow","oma")
 if(is.null(mat)) par(mfrow=c(nrow,ncol),mar=mar,oma=oma)
 else layout(mat,widths=widths,heights=heights)
 return(oldpar)
}