# NOT RUN {
## Calculating an MDS using the package 'smacof' and showing the 25%
## highest similarities
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")
highlall(similarities, res, quantile = 25, main = "25% Highest Similarities")
# }
Run the code above in your browser using DataLab