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