## Not run:
# SetAPIKey ("ENTER YOUR PRIVATE API KEY HERE.")
# params <- list (cid="N00007360", cycle="2012")
# tryCatch(
# candSectorData <- GetCandSectorData (params),
# error =
# function (e) {
# print (
# paste (
# "An exception was thrown -- details follow: ",
# e,
# sep=""
# )
# )
# }
# )
# ## End(Not run)
Run the code above in your browser using DataLab