data(SupremeCourt)
d <- as.dist(SupremeCourt)
d
# embedding-based methods return "configuration" attribute
# plot_config visualizes the configuration
o <- seriate(d, method = "sammon")
get_order(o)
plot_config(o)
# the configuration (Note: objects are in the original order in d)
get_config(o)
# angle methods return a 2D configuration
o <- seriate(d, method = "MDS_angle")
get_order(o)
get_config(o)
plot_config(o, )
# calculate a configuration for a seriation method that does not
# create a configuration
o <- seriate(d, method = "ARSA")
get_order(o)
get_config(o)
# find the minimum-stress configuration for the ARSA order
sc <- uniscale(d, o)
sc
plot_config(sc)
Run the code above in your browser using DataLab