R/mono.colors.R

"mono.colors" <-
function (n) {

  if(n<2)
    stop("need to ask for at least 2 colors")
  n=n-1
  col <- rev(gray(0:(n) / (n)))
  col[1] = NA
  return(col)
}

Try the bio3d package in your browser

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

bio3d documentation built on Oct. 27, 2022, 1:06 a.m.