Chapter 4 Grafico Serie Temporal + desvios padroes da serie (banda com os limites superior e inferior das acoes Eletro, PETRO e MGLU)

m=mean(dados\(ELETRO,na.rm =TRUE ) n=mean(dados\)PETR4,na.rm =TRUE ) o=mean(dados\(MGLU3,na.rm =TRUE ) m1=mean(dados\)ITUB4,na.rm =TRUE ) n1=mean(dados\(ITSA4,na.rm =TRUE ) o1=mean(dados\)NUBR33,na.rm =TRUE ) m2=mean(dados\(BBDC4,na.rm =TRUE ) n2=mean(dados\)VALE3,na.rm =TRUE ) o2=mean(dados\(BBAS3,na.rm =TRUE ) o3=mean(dados\)LREN3,na.rm =TRUE )

desvio=sd(dados\(ELETRO,na.rm =TRUE ) desvio1=sd(dados\)PETR4,na.rm =TRUE ) desvio2=sd(dados\(MGLU3,na.rm =TRUE ) desvio4=sd(dados\)ITSA4,na.rm =TRUE ) desvio5=sd(dados\(NUBR33,na.rm =TRUE ) desvio6=sd(dados\)BBDC4,na.rm =TRUE ) desvio7=sd(dados\(VALE3,na.rm =TRUE ) desvio8=sd(dados\)BBAS3,na.rm =TRUE ) desvio9=sd(dados$LREN3,na.rm =TRUE )

plot(x=dados\(DATA_ELETRO,y=dados\)ELETRO,type=“l”,col=3,ylim = c(-10,60)) lines(x=dados\(DATA_PETR4,y=dados\)PETR4,col=2 ) lines(x=dados\(DATA_MGLU3,y=dados\)MGLU3,col=4 ) lines(x=dados\(DATA_ITUB4,y=dados\)ITUB4,col=5 ) lines(x=dados\(DATA_ITSA4,y=dados\)ITSA4,col=6 ) lines(x=dados\(DATA_NUBR33,y=dados\)NUBR33,col=7 ) lines(x=dados\(DATA_BBDC4,y=dados\)BBDC4,col=8 ) lines(x=dados\(DATA_VALE3,y=dados\)VALE3,col=9 ) lines(x=dados\(DATA_BBAS3,y=dados\)BBAS3,col=3 ) lines(x=dados\(DATA_LREN3,y=dados\)LREN3,col=20 )

abline(h=m, col=2) abline(h=m+2desvio, col=4) abline(h=m-2desvio, col=4)

abline(h=n, col=2) abline(h=n+2desvio, col=4) abline(h=n-2desvio, col=4)

abline(h=o, col=2) abline(h=o+2desvio, col=4) abline(h=o-2desvio, col=4)

abline(h=m1, col=2) abline(h=m1+2desvio, col=4) abline(h=m1-2desvio, col=4)

abline(h=n1, col=2) abline(h=n1+2desvio, col=4) abline(h=n1-2desvio, col=4)

abline(h=o1, col=2) abline(h=o1+2desvio, col=4) abline(h=o1-2desvio, col=4)

abline(h=m2, col=2) abline(h=m2+2desvio, col=4) abline(h=m2-2desvio, col=4)

abline(h=n2, col=2) abline(h=n2+2desvio, col=4) abline(h=n2-2desvio, col=4)

abline(h=o2, col=2) abline(h=o2+2desvio, col=4) abline(h=o2-2desvio, col=4)

abline(h=o3, col=2) abline(h=o3+2desvio, col=4) abline(h=o3-2desvio, col=4)

bcaixa=boxplot(dados\(ELETRO, dados\)PETR4, dados$MGLU3 ) bcaixa

4.0.1 Grafico Serie temporal com infos dos Box Plot e Mediana armazenado no bcaixa

plot(x=dados\(DATA_ELETRO,y=dados\)ELETRO,type=“l”,col=3,ylim = c(-10,60)) abline(h=bcaixa\(stats[1,1], col=2) abline(h=bcaixa\)stats[2,1], col=5) abline(h=bcaixa\(stats[3,1], col=4) abline(h=bcaixa\)stats[4,1], col=5) abline(h=bcaixa$stats[5,1], col=2)

lines(x=dados\(DATA_PETR4,y=dados\)PETR4,col=2 ) lines(x=dados\(DATA_MGLU3,y=dados\)MGLU3,col=4 ) lines(x=dados\(DATA_ITUB4,y=dados\)ITUB4,col=5 ) lines(x=dados\(DATA_ITSA4,y=dados\)ITSA4,col=6 ) lines(x=dados\(DATA_NUBR33,y=dados\)NUBR33,col=7 ) lines(x=dados\(DATA_BBDC4,y=dados\)BBDC4,col=8 ) lines(x=dados\(DATA_VALE3,y=dados\)VALE3,col=9 ) lines(x=dados\(DATA_BBAS3,y=dados\)BBAS3,col=3 ) lines(x=dados\(DATA_LREN3,y=dados\)LREN3,col=20 )

4.0.2 Grafico com MEdiana e MEdia

plot(x=dados\(DATA_ELETRO,y=dados\)ELETRO,type=“l”,col=3,ylim = c(-10,60)) abline(h=bcaixa$stats[3,1], col=4) abline(h=m, col=2)

lines(x=dados\(DATA_PETR4,y=dados\)PETR4,col=2 ) lines(x=dados\(DATA_MGLU3,y=dados\)MGLU3,col=4 ) lines(x=dados\(DATA_ITUB4,y=dados\)ITUB4,col=5 ) lines(x=dados\(DATA_ITSA4,y=dados\)ITSA4,col=6 ) lines(x=dados\(DATA_NUBR33,y=dados\)NUBR33,col=7 ) lines(x=dados\(DATA_BBDC4,y=dados\)BBDC4,col=8 ) lines(x=dados\(DATA_VALE3,y=dados\)VALE3,col=9 ) lines(x=dados\(DATA_BBAS3,y=dados\)BBAS3,col=3 ) lines(x=dados\(DATA_LREN3,y=dados\)LREN3,col=20 )

boxplot(dados\(ELETRO,dados\)PETR4,dados\(MGLU3,dados\)ITUB4,dados\(ITSA4,dados\)NUBR33,dados\(BBDC4,dados\)VALE3,dados\(BBAS3,dados\)LREN3)

median(dados\(ELETRO,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\)PETR4,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\(ITUB4,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\)ITSA4,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\(NUBR33,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\)BBDC4,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\(VALE3,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\)BBAS3,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\(LREN3,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo median(dados\)MGLU3,na.rm =TRUE ) # calculo mediana e rm-true tira os vazios do calculo