data(Exemplo)
resultado <- calcular.elasticidades(Exemplo$receitas, Exemplo$Hpib, Exemplo$Hpet, fim=c(2015,4))
resultado.exportacao <- exportar(resultado)
write.csv2(resultado.exportacao, "/tmp/dados.csv") #Escreve resultados em arquivo CSV.
Run the code above in your browser using DataLab