WB2_Tratamento_Dados.m

%% Teste ADF: Dickey-Fuller (H0: tem raiz unitria)
[H,PValue,TestStat,CriticalValue] = dfTSTest(CambioP,12,0.05)
%% Trabalhar com a log da 1a diferena:
cambio = price2ret(CambioP);
cambio = log(1+cambio);
%% Grafico
Plot_Cambio(cambio,'Log 1a Dif Taxa de cmbio - R$/US$ (Comercial/Compra/Mdia)')
%% Verifica Autocorrelacao dos dados
autocorr(cambio)
title('Funo de Autocorrelao')
%% Verifica Autocorrelacao parcial
parcorr(cambio)
title('Funo de Autocorrelao Parcial')
%% Certificar correlacao do retorno do cambio: Ljung-Box-Pierce Q-test
Aux = cambio - mean(cambio);
[H,pValue,Stat,CriticalValue] = lbqtest(Aux,[10 15 20]',0.05);
[H  pValue  Stat  CriticalValue]