data(KcViabSmall)
x <- KcViabSmall
x <- normalizePlates(x, scale="multiplicative", log=FALSE, method="median", varianceAdjust="none")
x <- scoreReplicates(x, sign="-", method="zscore")
x <- summarizeReplicates(x, summary="min")
imageScreen(x, zrange=c(-5,5))
Run the code above in your browser using DataLab