all_y <- activities[ all_y, 2 ]