# First, make sure your personal PVS API key is saved as character string in the pvs.key variable:
pvs.key <- "yourkey"
# get offices tracked for all branch and level IDs
offices <- Office.getOfficesByBranchLevel(list("E","L","J"),list("F","S","L"))
offices
Run the code above in your browser using DataLab