# NOT RUN {
## Calculating an MDS using the package 'smacof' and showing the 3 highest
## similarities per point
data(SDG_coocurrence)
SDG_coocurrence <- SDG_coocurrence[,-2] # Drop second column
similarities <- simi(SDG_coocurrence, method = "as")
dissimilarities <- 1 - similarities
res <- smacof::smacofSym(dissimilarities, type = "ordinal")
highlpoints(similarities, res, links = 3,
main = "3 Highest Similarities Per Point")
# }
Run the code above in your browser using DataLab