# First, make sure your personal PVS API key is saved as character string in the pvs.key variable:
pvs.key <- "yourkey"
# get political courage tests of Barack Obama and John Sidney McCain III
pcts <- Npat.getNpat(list(9490,53270))
head(pcts$survey)
head(pcts$candidate)
Run the code above in your browser using DataLab