data(qpcrBatch.object)
mynormRI.data <- normQpcrRankInvariant(qpcrBatch.object, 1)
mynormQuant.data <- normQpcrQuantile(qpcrBatch.object)
barplot(c(calcCV(mynormRI.data), calcCV(mynormQuant.data)), col=c("red", "blue"))
Run the code above in your browser using DataLab