Create bay_area.r