R/utilities.R

# Compute a grid for graphical arrangement
.dimMosaic <- function(n.plot){
  x <- floor(sqrt(n.plot))
  y <- floor(sqrt(n.plot))
  if(x * y < n.plot) y <- y + 1
  if(x * y < n.plot) x <- x + 1
  return(c(x, y))
}
fkeck/oviz documentation built on May 16, 2019, 1:14 p.m.