first commit of Problem1a.R where I'm vectorizing the code, using dplyr, trying to figure out if I can iterate through the group_by dataframe or if I should just subset the data by regionid