# NOT RUN {
PlotBest.mdist(iris[, -5], scale.pca=TRUE)
mo <- read.table("http://ashipunov.info/shipunov/open/moldino.txt", h=TRUE, sep="\t",
row.names=1)
m1 <- t((mo > 0) * 1)
PlotBest.mdist(m1, binary.only=TRUE)
# }
Run the code above in your browser using DataLab