tests/testthat/test-forecast_chart.R

In OOS: Out-of-Sample Time Series Forecasting

test_that("forecast chart", {

  # simple time series
  A = c(1:100) + rnorm(100)
  date = seq.Date(from = as.Date('2000-01-01'), by = 'month', length.out = 100)
  Data = data.frame(date = date, A)

  # run forecast_univariate
  forecast.uni =
    forecast_univariate(
      Data = Data,
      forecast.dates = tail(Data$date,10),
      method = c('naive','auto.arima', 'ets'),
      horizon = 1,
      recursive = FALSE,
      freq = 'month')

  forecasts =
    dplyr::left_join(
      forecast.uni,
      data.frame(date, observed = A),
      by = 'date'
    )

  # chart forecasts
  chart.forecast =
    chart_forecast(
      forecasts,
      Title = 'test',
      Ylab = 'Index',
      Freq = 'Monthly',
      zeroline = TRUE)

  expect_true(exists('chart.forecast'), 'Chart is not created.')

  # chart forecast errors
  chart.errors =
    chart_forecast_error(
      forecasts,
      Title = 'test',
      Ylab = 'Index',
      Freq = 'Monthly',
      zeroline = TRUE)

  expect_true(exists('chart.errors'), 'Chart is not created.')

})