whitead

plot_ma <- function(d, start_lwd=0.9, start_gray=0.5, ...) {
  
  if(!is.data.frame(d))
    d <- as.data.frame(d)
 
  iter <- as.integer(floor(log(nrow(d), base=10)))

  dlwd <- (1.5 - start_lwd) / iter
  dgray <- (0.9 - start_gray) / iter
  pargs <- substitute(...)