#1.
maine=read.table("
odkaz
t=ts(maine, start = c(1996,1), frequency = 12)
plot(t, type="o")
maine1996 = window(t, start=c(1996,1), end=c(1996,12))
mean_months_maine1996 = aggregate(maine1996, FUN=mean, nfrequency = 4)
mean_maine1996 = mean(maine1996)
difference = (mean_months_maine1996 - mean_maine1996)/mean_maine1996
#2.
maine=aggregate(t, FUN = mean, nfrequency = 4)
plot(maine, type="o", lty=2,lwd=2, col=2)
#3.
cbe=read.table("
odkaz, header = T)
head(cbe,2)
choc = ts(cbe[,1], start = c(1958,1), frequency = 12)
beer = ts(cbe[,2], start = c(1958,1), frequency = 12)
elec = ts(cbe[,3], start = c(1958,1), frequency = 12)
cbe_plot=ts(cbe, start = c(1958,1), frequency = 12)
plot(cbind(choc,beer,elec))
plot(cbe_plot, type="h")
#4.
cor(choc,beer)
#5.
ap=AirPassengers
ap.4=filter(ap, c(.5,1,1,.5))
ap.6=filter(ap, c(.5,1,1,1,1,.5))
ap.12=filter(ap, c(.5,1,1,1,1,1,1,1,1,1,1,.5))
plot(cbind(ap.4,ap.6,ap.12))
#6.
ap.multi=decompose(ap, c("multiplicative"))
plot(ap.multi)
ap.addi=decompose(ap, c("additive"))
plot(ap.addi)
#7.
x=seq(from=0, to=5,by=.1)
y=0.5*x+1
z=.25*sin(10*x)
set.seed(123)
n=rnorm(length(x), mean=0, sd=.5)
plot(cbind(y,z,n), type="l")
#8.
x1=y+z+n
spolu1=ts(x1, start = c(2017,1), frequency = 12)
plot(spolu1)
x2=y*z*n
spolu2=ts(x2, start = c(2017,1), frequency = 12)
plot(spolu2)
#9.
spolu1.multi=decompose(spolu1, c("multiplicative"))
plot(spolu1.multi)
spolu2.multi=decompose(spolu2, c("multiplicative"))
plot(spolu2.multi)
spolu1.addi=decompose(spolu1, c("additive"))
plot(spolu1.addi)
spolu2.addi=decompose(spolu2, c("additive"))
plot(spolu2.addi)
#10.
y2=log(x+1)
x1=y2+z+n
spolu1=ts(x1, start = c(2017,1), frequency = 12)
plot(spolu1)
x2=y2*z*n
spolu2=ts(x2, start = c(2017,1), frequency = 12)
plot(spolu2)
spolu1.multi=decompose(spolu1, c("multiplicative"))
plot(spolu1.multi)
spolu2.multi=decompose(spolu2, c("multiplicative"))
plot(spolu2.multi)
spolu1.addi=decompose(spolu1, c("additive"))
plot(spolu1.addi)
spolu2.addi=decompose(spolu2, c("additive"))
plot(spolu2.addi)