data("Townships")
## original data
pimage(Townships)
criterion(Townships)
## seriated data using an improved Bond-Energy Algorithm
order <- seriate(Townships, method = "BEA_TSP")
pimage(Townships, order)
criterion(Townships, order)
Run the code above in your browser using DataLab