Chapter 3 Aula 03 Exercicio 1

install.packages(“readr”) install.packages(“readxl”) library(readxl) getwd() dados=read_excel(“Desktop/03 B1 ESTATISTICAS DESC E REGRESSAO.xlsx”,sheet=2,skip=1) dados colnames(dados) = c(“DATA_ELETRO”, “ELETRO”,“DATA_ITUB4”, “ITUB4”, “DATA_ITSA4”,“ITSA4”, “DATA_PETR4”, “PETR4”, “DATA_NUBR33”, “NUBR33”, “DATA_MGLU3”, “MGLU3”, “DATA_BBDC4”, “BBDC4”, “DATA_VALE3”, “VALE3”, “DATA_BBAS3”, “BBAS3”, “DATA_LREN3”, “LREN3” ) plot(x=dados\(DATA_ELETRO,y=dados\)ELETRO,type=“l”,col=3,ylim = c(0,150)) 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 ) legend(x=dados$DATA_ELETRO[1],y=150,legend = c(“ELETRO”,“PETROBRAS”,“MAGALU”,“ITUB4”,“ITSA4”,“NUBR33”,“BBDC4”,“VALE3”,“BBAS3”, “LREN3”),fill=c(3,2,4)) abline(h=10+1)