fix a redundant seq() call with seq_along()