# NOT RUN {
#Exchange rate - Free - United States dollar (purchase)
#us.brl <- get(3691)
#requires(seasonal)
#us.brl.seasonally_adjusted <- seas(us.brl)
#saveStata(data = us.brl.seasonally_adjusted,file.name="us.brl.seasonally_adjusted")
# Or
#saveStata(code=3691,file.name="us.brl")
# }
Run the code above in your browser using DataLab