R/JBLACK.R

Defines functions `JBLACK`

`JBLACK` <-
function(n, acol=rgb(0,0,0))
  {
    if(missing(acol)) {  acol=rgb(0,0,0) } 
    rep(acol, times=n)
  }

Try the RSEIS package in your browser

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

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.