Create n_in_a_row.R