Change seq_len(length(x seq_along(x