# NOT RUN {
data(brexit); attach(brexit)
head(brexit, 3)
y <- mtsframe(date, Y = brexit[, 1:3])
print(y) # A 'list' with 4 elements: dates, series data matrix, and series length.
head(y$Y, 3)
y$n
y$D
plot(y) # standard plot.
# Customized plot (time.format is an additional feature to use when y$date is in 'date' format)
plot(y, time.format = '%Y' , col = c('blue','red','black'), lty = 2, type = 'p',
pch = 20, main = 'Brexit data', xlab = 'Year', ylab ='Trendline estimations')
# }
Run the code above in your browser using DataLab