# LOADING DATA
data(sw)
data(sw.xy)
# LOCAL INTENSITY-DEPENDENT NORMALISATION
norm.lin <- lin(sw,X=sw.xy$X,Y=sw.xy$Y)
# MA-PLOT OF NORMALISATION RESULTS OF FIRST ARRAY
plot(maA(norm.lin)[,1],maM(norm.lin)[,1],main="LIN")
# CORRESPONDING MXY-PLOT
mxy.plot(maM(norm.lin)[,1],Ngc=maNgc(norm.lin),Ngr=maNgr(norm.lin),
Nsc=maNsc(norm.lin),Nsr=maNsr(norm.lin),main="LIN")
Run the code above in your browser using DataLab