Content - 6ae021e000c275302103c8c40a7834a0e7d64aab - 5796d8b/inst/Examples/arrowFactor.R

Tip revision: dc000f2a5f006d137f66716b086025d618bf8306 authored by John M Chambers on 14 July 2008, 00:00:00 UTC
version 1.0-5

Tip revision: dc000f2

arrowFactor.R

arrowColors<- function(v, colors) {
    n <- length(v); k <- length(colors)
    midPoints <- (v[-1] + v[-n])/2
    colors[cut(midPoints, k)]
}