R

Saudades da culinária japonesa na pandemia? R neles!

Isolamento social e R: o que poderia dar errado?

Testei o pacote ARDL com dados de busca (abrangência mundial) pelos seguintes termos: LamenGyozaokonomiyakisunomono. O gráfico, ainda com alguns problemas no eixo (não tive tempo de ajustar as datas, mas o período é: 2004.01-2020.06), mas eis a cointegração.

lamensunomonogyozaokonomiyaki

Ah, sim, o código para obter a relação de cointegração – e outros detalhes – são uma mera adaptação do código original do exemplo do autor do pacote.

library(ARDL)
df<-read.table("C:/Users/cdshi/OneDrive/Documents/Meus Documentos/sunomono.csv",
               header=TRUE, sep=",",na.strings="NA", dec=".", strip.white=TRUE)

models <- auto_ardl(Lamen~Gyoza+sunomono+okonomiyaki, data=df, max_order=4)
models$top_orders
models$best_model
ardl_1402<-models$best_model
summary(ardl_1402)

uecm_1402 <- uecm(ardl_1402)
summary(uecm_1402)

bounds_f_test(ardl_1402, case = 2)

tbounds <- bounds_t_test(uecm_1402, case = 3, alpha = 0.01)
tbounds

tbounds$tab

multipliers(ardl_1402)

ce <- coint_eq(ardl_1402, case = 2)