color palette of EmissV?

[ibarraespinosa]

por exemplo, EmissV.colors, or algo assim, e que vai criar a tua paleta de cores....

Me envia o RGB

[Schuch666]

O mais próximo das cores do exemplo foi isso:

library("colorspace")
emissv.color <- function (n = 16, h = c(250, 210), c. = c(17, 83), l = c(7, 88),
                          power = c(1.61682242990654, 1.02803738317757),
                          fixup = TRUE, alpha = 1, ...)
{
  if (n < 1L)
    return(character(0L)) # nocov
  h <- rep(h, length.out = 2L)
  c <- rep(c., length.out = 2L)
  l <- rep(l, length.out = 2L)
  power <- rep(power, length.out = 2L)
  rval <- seq(1, 0, length = n)
  rval <- hex(polarLUV(L = l[2L] - diff(l) * rval^power[2L],
                       C = c[2L] - diff(c) * rval^power[1L], H = h[2L] - diff(h) *
                         rval), fixup = fixup, ...)
  if (!missing(alpha)) {                                    # nocov start
    alpha <- pmax(pmin(alpha, 1), 0)
    alpha <- format(as.hexmode(round(alpha * 255 + 1e-04)),
                    width = 2L, upper.case = TRUE)
    rval <- paste(rval, alpha, sep = "")                    # nocov end
  }
  return(rval)
}

image(matrix(1:16), col = emissv.color(16))

Isso aumentaria as dependências do pacote, então estou pensando se incluo ou não