* use seq_along in place of 1:
 * should have used seq_len instead of seq_along