I have to dataset, one with some location (lat,lon), that\'s test, and one with the lat/lon information of all zip codes in NYC, that\'s test2.
test <- str