# NOT RUN {
# }
# NOT RUN {
register_optics()
get_seriation_method("dist", "optics")
d <- dist(random.robinson(50, pre=TRUE, noise=.1))
o <- seriate(d, method = "optics")
pimage(d, o)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab