if(require(oligoData) & require(pd.hg18.60mer.expr)){
data(nimbleExpressionFS)
par(mfrow=c(1, 2))
image(nimbleExpressionFS, which=4)
## fit <- fitPLM(nimbleExpressionFS)
## image(fit, which=4)
plot(1) ## while fixing fitPLM TODO
}
Run the code above in your browser using DataLab