### Name: GetColor
### Title: A function to get the Red-Blue color scheme used by dChip
### Aliases: GetColor dChip.colors greenred.colors
### Keywords: manip

### ** Examples

  set.seed(10)
  x <- rnorm(10)
  GetColor(x)
  dChip.colors(10)