tests/testthat/test_task_constructor.R

In mlr-org/mlr3forecasting: Forecasting for 'mlr3'

# Issue #68

test_that("sp500", {
  require_namespaces("datasets")
  data = fma::petrol
  task = TaskForecast$new(
    id = "petrol",
    backend = data,
    target = "Vehicles"
  )
  expect_task(task)


  # Long Data Table
  dt = tsbox::ts_data.table(data)
  task2 = TaskForecast$new(
    id = "petrol",
    backend = tsbox::ts_wide(dt),
    target = "Vehicles",
    date_col = "time"
  )
  expect_task(task2)

  dtw = tsbox::ts_wide(dt)

  # Wide Data Table
  task3 = TaskForecast$new(
    id = "petrol",
    backend = dtw,
    target = "Vehicles",
    date_col = "time"
  )
  expect_task(task3)
})