TNW: TNW Data
In CKdata: CK's data archive

Sold travelcards (“U-Abos”) for the Basler Verkehrs-Betriebe (BVB) and Baselland Transport AG (BLT); starting from June 1987 for Tarifverbund Nordwestschweiz (TNW).

TNWm: A monthly univariate time series from 1986(1) to 2014(12). TNWq: A quarterly univariate time series from 1984(3) to 2014(12).

Bureau of Statistics of the canton of Basel-Stadt, Basel, Switzerland:

http://www.statistik.bs.ch/zahlen/tabellen/11-verkehr-mobilitaet/oeffentlicher-verkehr.html (accessed 2017-09-22).

data("TNWm")
if(require(forecast)) {
 tnw_arima <- auto.arima(TNWm, d = 1, D = 1, ic = "aic", max.order = 6, stepwise = FALSE)
 tnw_forecast <- forecast(tnw_arima, h = 12)
 plot(tnw_forecast)
}