plotFan for bitcoin data

1. Load data

bitcoin_ts <- read.csv("D:/01_Projects/bitcoin/bitcoin_ts.csv")
bitcoin_fc <- read.csv("D:/01_Projects/bitcoin/bitcoin_fc.csv")

2. Prepare appropriate time-based object timestamp columns

bitcoin_ts$timestamp_dbo <- as.Date(bitcoin_ts$timestamp)
bitcoin_fc$timestamp_dbo <-  as.Date(bitcoin_fc$timestamp)

3. PlotFan

# plot a fan chart
plotFan(bitcoin_ts, bitcoin_fc,  "bitcoin_daily", "2019-02-06", "auto.arima")

# subset last 200 days
bitcoin_ts <- bitcoin_ts[(dim(bitcoin_ts)[1]-200):dim(bitcoin_ts)[1], ]
# plot a fan chart
plotFan(bitcoin_ts, bitcoin_fc,  "bitcoin_daily", "2019-02-06", "auto.arima")