slider.mts: Slider for Selecting a Single Time Series to Plot from a 'mts' Object
Description
This function displays single plots from a 'mts' object. The time series to plot is selected through a slider scaled from 1 to the number total of times series in the object.
## Ensemble for the AirPassenger time series data set.seed(345)
out <- meboot(x=AirPassengers, reps=100)
slider.mts(ts.union(AirPassengers, out$ensemble),
ylim=range(out$ensemble))