Displaying 1 result from an estimated 1 matches for "seqout".
2005 Jul 07
2
Brewer colours
...a = c(
127,201,127,
190,174,212,
253,192,134,
255,255,153,
56,108,176,
240,2,127,
191,91,23,
102,102,102),
dim = c(3, 8))
brewer2rgb <- function(col, n = NA) {
if (is.na(n)) {
rgb(col[1, ] / 255, col[2, ] / 255, col[3, ] / 255)
} else {
seqin <- seq(0, 1, length = ncol(col))
seqout <- seq(0, 1, length = n)
r <- predict(smooth.spline(seqin, col[1, ] / 255), seqout)$y
g <- predict(smooth.spline(seqin, col[2, ] / 255), seqout)$y
b <- predict(smooth.spline(seqin, col[3, ] / 255), seqout)$y
r[r < 0] <- 0 ; r[r > 1] <- 1
g[g < 0] <-...