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