R/fcolor.R

In fpsanz/tscR: A time series clustering package combining slope and Frechet distances

#' @noRd
#'
fcolor <- function(x) {
    f <- colorRamp(brewer.pal(11, "Spectral"))
    rr <- range(x)
    svals <- (x - rr[1])/diff(rr)
    colorClust <- rgb(f(svals)/255)
    return(colorClust)
}