powered by
mdsPlot (X, labels = NULL, col = "gray")
pdclust
data("complex.shapes") truth <- c(rep("fish",5),rep("bottle",4),rep("glasses",5)) clust <- pdclust(complex.shapes, t=5) mdsPlot(clust, truth, col=c("lightblue","lightgreen","lightgray"))
Run the code above in your browser using DataLab