library(readr)
library(rlang)


#wczytywanie danych z 2017

archiwum_tab_a_2017 <- read_delim("http://www.nbp.pl/kursy/Archiwum/archiwum_tab_a_2017.csv",
                                  ";", escape_double = FALSE, trim_ws = TRUE)

SAR(HL, accel = c(0.02, 0.2))
a<-(archiwum_tab_a_2017[2:(length(archiwum_tab_a_2017$data)-3),c(1,3)])

wektoreka<-a$data
wektorekb<-a$`1USD`



#wczytywanie danych z 2018

archiwum_tab_a_2018 <- read_delim("http://www.nbp.pl/kursy/Archiwum/archiwum_tab_a_2018.csv",
                                  ";", escape_double = FALSE, trim_ws = TRUE)

z<- length(archiwum_tab_a_2018$data)

b<-(archiwum_tab_a_2018[2:(length(archiwum_tab_a_2018$data)-3),c(1,3)])


wektora<-b$data
wektorb<-b$`1USD`



#??czenie danych

daty<-as.vector((c(wektoreka,wektora)))

kursy<-as.vector((c(wektorekb,wektorb)))



dane<-cbind.data.frame(daty,kursy)

dane$kursy<-gsub(",", ".", dane$kursy)
dane$kursy<-gsub(" ", "", dane$kursy)
dane$kursy<-as.numeric(dane$kursy)

sarek<-SAR(kursy, accel = c(0.02, 0.2))
View(sarek)
#################### nasza tabela to ramka danych o nazwie dane ##########################

# jej wielko?? si? zwi?ksza w ka?dy dzie? roboczy. nie polecam dzia?ania na sta?ych.

View(dane)
summary(dane)
str(dane)