# First, make sure your personal PVS API key is saved as character string in the pvs.key variable:
pvs.key <- "yourkey"
# get district IDs by ZIP Code
district <- District.getByZip(list(10001,10002),)
district
Run the code above in your browser using DataLab