R/arrangePlots.R

Defines functions arrangePlots

Documented in arrangePlots

arrangePlots <-
function(n.plots, landscape = FALSE) {
  # version 1.0 (16 Sep 2013)
  # used internally by optiThresh
  root <- sqrt(n.plots)
  large <- ceiling(root)
  small <- round(root)
  if (landscape) plots.rc <- c(small, large)
  else plots.rc <- c(large, small)
  return(plots.rc)
}

Try the modEvA package in your browser

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

modEvA documentation built on Nov. 26, 2023, 1:06 a.m.