str(Prog) summary(Prog) forma <- ts(Prog$SaleK,frequency = 36)enter link description here str(forma) (acf(forma,main="")) plot(stl(forma,s.window = "periodic&q