data(KcViabSmall)
x <- normalizePlates(KcViabSmall, scale="multiplicative", log=FALSE, method="median", varianceAdjust="byExperiment")
x <- scoreReplicates(x, sign="-", method="zscore")
x <- summarizeReplicates(x, summary="mean")
y <- ROC(x)
plot(y)
lines(y, col="green")
show(y)
Run the code above in your browser using DataLab