data(Exemplo)
resultado <- calcularElasticidades(Exemplo$receitas,
Exemplo$Hpib, Exemplo$Hpet, c(2015,4))
receitas <- ts(matrix(runif(836), nrow=76, ncol=11), start=1997,
end=c(2015,4), frequency=4)
Hpib <- ts(runif(76), start=1997, end=c(2015,4), frequency=4)
Hpet <- ts(runif(76), start=1997, end=c(2015,4), frequency=4)
resultado <- calcularElasticidades(receitas, Hpib, Hpet, fim=c(2015,4))
Run the code above in your browser using DataLab