# Normalize swirl data with two methods
data(swirl)
swirlNN<-maNormNN(swirl[,1])
swirlLoess<-maNormMain(swirl[,1])
nms<-c("None","Loess","NNets")
#compare distributions: density plot
compNorm(as.vector(maM(swirl[,1])),as.vector(maM(swirlLoess)),as.vector(maM(swirlNN)),xlim=c(- 2,2),bw="AUTO",titles=nms,type="d")
#compare distributions: box plot
compNorm(as.vector(maM(swirl[,1])),as.vector(maM(swirlLoess)),as.vector(maM(swirlNN)),xlim=c(- 2,2),bw="AUTO",titles=nms,type="b")
Run the code above in your browser using DataLab