R/setmfrow.R

Defines functions setmfrow

setmfrow <- function(np, ask = NULL) 
{
  if(np > 12L) {
    if(is.null(ask)) ask <- TRUE
    par(ask = ask)
    par(mfrow = c(4L, 3L))
  } else par(mfrow = n2mfrow(np))

  return(invisible(NULL))
}

Try the R2BayesX package in your browser

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

R2BayesX documentation built on Oct. 20, 2023, 9:11 a.m.