#odredjivanje stepena polinoma koji predstavlja trend komponentu 
#vremenske serije na primeru baze podataka airmiles


#vraca kolicnik sa casa do 
vratiKolicnikDoK<-function(x,k)
{
kol=c()
for(i in 1:k)
{
pom=var(diff(x,i))/choose((2*i),i)
kol=c(kol,pom)
}
return(kol)
}

plot(1:10,vratiKolicnikDoK(airmiles,10))
sa slike se vdi da se stabilizovanje dogodilo za k=6,7,8