if (FALSE) {
register_smacof()
get_seriation_method("dist", "MDS_smacof")
d <- dist(random.robinson(20, pre = TRUE))
## use Banded AR form with default clustering (complete-link)
o <- seriate(d, "MDS_smacof", verbose = TRUE)
pimage(d, o)
# recalculate stress for the order
MDS_stress(d, o)
# ordinal MDS. stress needs to be calculated using the correct type with stress0
o <- seriate(d, "MDS_smacof", type = "ordinal", verbose = TRUE)
criterion(d, o, method = "smacof_stress0", type = "ordinal")
}
Run the code above in your browser using DataLab