###################################################
### chunk number 1: 
###################################################
library(marray)
data(swirl)


###################################################
### chunk number 2: 
###################################################
library(nnNorm)
swirl_n<-maNormNN(swirl[,1:2])