# NOT RUN {
userSpecList <- list('UserID' = 'yourAPIKey' ,
'Method' = 'GetData',
'datasetname' = 'NIPA',
'Frequency' = 'A',
'TableID' = '68',
'Year' = 'X')
BDT <- beaGet(userSpecList, asTable = TRUE)
# }
Run the code above in your browser using DataLab