### LOADING DATA
data(sw)
### GENERATION OF MATRIX
Morig <- v2m(maM(sw)[,1],Ngc=maNgc(sw),Ngr=maNgr(sw),Nsc=maNsc(sw),Nsr=maNsr(sw),visu=TRUE)
### AVERAGING BY MA.MATRIX
Mav <- ma.matrix(Morig,av="median",delta= 2,edgeNA=FALSE )
### VISUALISATION
m2v(Mav,Ngc=maNgc(sw),Ngr=maNgr(sw),Nsc=maNsc(sw),Nsr=maNsr(sw),visu=TRUE)
Run the code above in your browser using DataLab