R/getCol.r

In igordot/copynumber: Segmentation of single- and multi-track copy number data by penalized least squares regression (with hg38 and mm10).

####################################################################
## Author: Gro Nilsen, Knut Liestøl and Ole Christian Lingjærde.
## Maintainer: Gro Nilsen <gronilse@ifi.uio.no>
## License: Artistic 2.0
## Part of the copynumber package
## Reference: Nilsen and Liestøl et al. (2012), BMC Genomics
####################################################################

# Function to retrieve color in heatplot to be used for each segment:


## Input:
### seg.mean: the segment mean value
### colors: the range of color nuances to be applied
### intervals: the intervals of values corresponding to each color nuance

## Output:
### col: the color to be plotted for this segment

## Required by:
### plotHeatmap

## Requires:
### none

# Get segments colors:
getCol <- function(seg.mean, colors, intervals) {
  # Find the interval in which seg.mean is located:
  inInt <- which(intervals[, 1] < seg.mean & intervals[, 2] >= seg.mean)
  # Pick colour:
  col <- colors[inInt]
  return(col)
}