# NOT RUN {
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)
print("Matriz das distancias:"); MD$mtxD
# }
Run the code above in your browser using DataLab