data(iris) # data set
data <- iris[,1:4]
cls <- iris[,5] # data class
md <- MDS(data = data, distance = "euclidean", title = NA, xlabel = NA,
ylabel = NA, posleg = 2, boxleg = TRUE, axes = TRUE, color = TRUE,
linlab = NA, class = cls, classcolor = c("goldenrod3","gray53","red"),
savptc = FALSE, width = 3236, height = 2000, res = 300)
print("Matrix of the distances:"); md$mtxD
Run the code above in your browser using DataLab