R/pal.R

Defines functions pal

pal <- function(n, alpha=1)
{
  if (n==2) {
    val <- hcl(seq(15, 375, len=4), l=60, c=150, alpha=alpha)[c(1,3)]
  } else val <- hcl(seq(15, 375, len=n+1), l=60, c=150, alpha=alpha)[1:n]
  val
}

Try the visreg package in your browser

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

visreg documentation built on Aug. 21, 2025, 5:50 p.m.