# LOADING DATA NOT-NORMALISED
data(sw.olin)
# CONVERSION FROM VECTOR TO MATRIX
M <- v2m(maM(sw.olin)[,1],Ngc=maNgc(sw.olin),Ngr=maNgr(sw.olin),
Nsc=maNsc(sw.olin),Nsr=maNsr(sw.olin),visu=TRUE)
# BACK-CONVERSION FROM MATRIX TO VECTOR
V <- m2v(M,Ngc=maNgc(sw.olin),Ngr=maNgr(sw.olin),
Nsc=maNsc(sw.olin),Nsr=maNsr(sw.olin),visu=TRUE)
Run the code above in your browser using DataLab