## Not run:
# ## API Version 1.0 R Script Sample Code
# ## Single Series request
# df <- bls_api("LAUCN040010000000005")
#
#
# ## API Version 1.0 R Script Sample Code
# ## Multiple Series request with date params.
# df <- bls_api(c("LAUCN040010000000005", "LAUCN040010000000006"),
# startyear = "2010", endyear = "2012")
#
#
# ## API Version 1.0 R Script Sample Code
# ## Multiple Series request with date params.
# df <- bls_api(c("LAUCN040010000000005", "LAUCN040010000000006"),
# startyear = "2010", endyear = "2012")
#
#
# ## API Version 2.0 R Script Sample Code
# ## Multiple Series request with full params allowed by v2.
# df <- bls_api(c("LAUCN040010000000005", "LAUCN040010000000006"),
# startyear = "2010", endyear = "2012",
# registrationKey = "BLS_KEY",
# calculations = TRUE, annualaverage = TRUE, catalog = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab