###########################################
#                                         #
#  Cvičení č. 5 - Korelační posloupnosti  #
#                                         #
###########################################

#############
# Příklad 1 #
#############


#############
# Příklad 2 #
#############
x<-c(1,2,1,2,1,2)

# Autokroelační posloupnost dle definice
as.numeric(acf(x,demean=FALSE)$acf)*sum(x^2) # Příkaz acf() vrací hodnoty normované na 1 - je nutné vynásobit energií řady.

# Nevychýlený odhad
as.numeric(acf(x,demean=FALSE)$acf)*sum(x^2)/(length(x):1) # Dělíme posloupností podle počtu prvků x.

# Vychýlený odhad
as.numeric(acf(x,demean=FALSE,type="covariance")$acf) # Přepínač "covariance".



#############
# Příklad 3 #
#############
as.numeric(ccf(x,c(x,x),demean=FALSE)$acf)*sum(x^2)
