## simple SMACOF solution for kinship data
res <- mds(kinshipdelta)
res
summary(res)
plot(res)
plot(res, type = "p", label.conf = list(label = TRUE, col = "darkgray"), pch = 25, col = "red")
## interval MDS, random starts
res <- smacofSym(kinshipdelta, type = "interval", init = "random")
res
## 3D ordinal SMACOF solution for trading data (secondary approach to ties)
data(trading)
res <- smacofSym(trading, ndim = 3, type = "ordinal", ties = "secondary")
res
Run the code above in your browser using DataCamp Workspace