data(iris) # conjunto de dados
data <- iris[,1:4]
cls <- iris[,5] # classe dos dados
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("Matriz das distancias:"); md$mtxD
Run the code above in your browser using DataLab