Karl Marx e Adam Smith são como água e óleo? – Momento R do Dia

Será que a busca pelo verbete “Karl Marx” na Wikipedia (em língua inglesa) tem algo a ver com a busca do verbete “Adam Smith” na mesmíssima Wikipedia? Sei lá. Vai que alguém mandou fazer um trabalho de História do Pensamento Econômico…

Pois é. Eu resolvi brincar com os dados e fiz um teste de causalidade (o “água e óleo” do título). As dicas do R aqui são: como importar dados irregulares (usando o pacote zoo) e também como fazer o teste de Granger (há vários jeitos, usei o pacote lmtest).

# Exemplo do marxismo
# Os dados foram baixados da Wikipedia seguindo o exemplo em: 
# http://www.r-datacollection.com/blog/Using-wikipediatrend/
# Depois, levei os dados para o Excel e arrumei a base. 
# Importei as duas séries para o R.

marxism <- read.zoo("C:/Users/cdshi_000/Documents/Meus Documentos/Meus Documentos/smithmarx.csv",header=TRUE,sep=",",format = "%m/%d/%Y")
head(marxism)
summary(marxism)
plot(marxism$Karl_Marx)

# o gráfico acima foi só para checagem.
# Será que há Granger-causalidade?
# Brinquei com vários lags.

library(lmtest)

grangertest(Karl_Marx~Adam_Smith, order=5, data=marxism)
grangertest(Adam_Smith~Karl_Marx, order=5, data=marxism)

grangertest(Karl_Marx~Adam_Smith, order=8, data=marxism)
grangertest(Adam_Smith~Karl_Marx, order=8, data=marxism)

grangertest(Karl_Marx~Adam_Smith, order=10, data=marxism)
grangertest(Adam_Smith~Karl_Marx, order=10, data=marxism)

grangertest(Karl_Marx~Adam_Smith, order=20, data=marxism)
grangertest(Adam_Smith~Karl_Marx, order=20, data=marxism)

Pois é, gente. Eu bem que tentei. Mas, claro, eu fiz isso para a Wikipedia em língua inglesa. Será que os resultados seriam os mesmos na Wikipedia de língua portuguesa? Tenho minhas dúvidas. Claro, faltou um bocado de coisa, mas não estou fazendo nada muito sério.

Repare na entrada dos dados. Na minha planilha, a data tem o formato tal e qual este exemplo: “1/30/2008”. Repare no código, lá no início, como eu digo exatamente isto ao R. Esta é a dica das datas que vale a pena guardar.

Bom, não deu causalidade nas estruturas de defasagem que, arbitrariamente, adotei. Só uma brincadeira, mas divertida. ^_^

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s