seriationwith RDiscrete Optimization