# NOT RUN {
# Get Area bearing for Apples in Washington, 2012.
params <- list(
commodity_desc = "APPLES",
year = "2012",
state_name = "WASHINGTON",
agg_level_desc = "STATE"
)
area <- nassqs_area(params, area = "AREA BEARING")
head(area)
# }
Run the code above in your browser using DataLab