# Loading data
data(sw)
#No background correction
sw.none <- backgroundCorrect2(sw,method="none")
plot(maA(sw.none)[,1],maM(sw.none)[,1])
# Simple subtraction
sw.sub <- backgroundCorrect2(sw,method="sub")
points(maA(sw.sub)[,1],maM(sw.sub)[,1],col="red")
Run the code above in your browser using DataLab