data(spotSegTest)
# columns of spotSegTest:
# 1 intensities from the Cy3 (green) channel
# 2 intensities from the Cy5 (red) channel
dataTransformation <- function(x) (256*256-1-x)^2*4.71542407E-05
chan1 <- matrix(dataTransformation(spotSegTest[,1]), 144, 199)
chan2 <- matrix(dataTransformation(spotSegTest[,2]), 144, 199)
plotBlockImage(chan1)
plotBlockImage(chan2)
Run the code above in your browser using DataLab