sltl example for LinkedIn Question https://www.linkedin.com/groups/Display-print-resultant-data-from-4066593.S.5849394695301521411?view=&item=5849394695301521411&type=member&gid=4066593&trk=eml-b2_anet_digest-null-2-null&fromEmail=fromEmail&ut=0cW2SCxHqOHC81

sltl-example.R

library(sltl)

out <- sltl(as.timeSeries(co2),
            c.window=101,
            c.degree=1,
            type="monthly")

summary(out)

plot.sltl(out)

sltl-summary-output.R

> summary(out)
 Call:
 sltl(x = as.timeSeries(co2), c.window = 101, c.degree = 1, type = "monthly")

 Time Series Components: 
    seasonal           trend         remainder       
 Min.   :-3.3738   Min.   :315.7   Min.   :-1.23151  
 1st Qu.:-1.5627   1st Qu.:323.5   1st Qu.:-0.24195  
 Median : 0.2033   Median :335.3   Median : 0.00947  
 Mean   :-0.0835   Mean   :337.1   Mean   : 0.00000  
 3rd Qu.: 1.5536   3rd Qu.:350.4   3rd Qu.: 0.25539  
 Max.   : 2.9479   Max.   :364.7   Max.   : 1.41794  

 Other Components:
window : [1] 101
degree : [1] 1
Fm : [1] 6
Fs : [1] 0