# NOT RUN {
data(Balt) # Baltimore mean sea level record
ts1 <- ts(Balt[2], start = Balt[1, 1]) # create time series input object
# }
# NOT RUN {
s <- msl.trend(ts1, fillgaps = 3, iter = 500, 'BALTIMORE, USA')
# }
# NOT RUN {
data(s)
str(s) # check structure of object
msl.screenplot(s) # check screen output
# }
Run the code above in your browser using DataLab