R/add_grid.R

In yapomif: Yet another package of misc functions

add_grid <- function(at.y, at.x,
                      col = "lightgray", 
                      lty = "dotted", 
                      lwd = par("lwd")) {
  abline(v = at.x, col = col, lty = lty, lwd = lwd)
  abline(h = at.y, col = col, lty = lty, lwd = lwd)
}