R seriation -> In max(criterion) : no non-missing arguments to max; returning -Inf...