# DISTRIBUTION OF M BEFORE SCALING
data(sw.olin)
col <- c("red","blue","green","orange")
M <- maM(sw.olin)
plot(density(M[,4]),col=col[4],xlim=c(-2,2))
for (i in 1:3){
lines(density(M[,i]),col=col[i])
}
# SCALING AND VISUALISATION
sw.olin.s <- bas(sw.olin,mode="var")
M <- maM(sw.olin.s)
plot(density(M[,4]),col=col[4],xlim=c(-2,2))
for (i in 1:3){
lines(density(M[,i]),col=col[i])
}
Run the code above in your browser using DataLab