tests/testthat/test_PipeOpFDABsignal.R

In mlr3fda: Extending 'mlr3' to Functional Data Analysis

test_that("PipeOpFDABsignal - basic properties", {
  pop = po("fda.bsignal")
  expect_pipeop(pop)
  expect_identical(pop$id, "fda.bsignal")
})

test_that("PipeOpFDABsignal works", {
  skip_if_not_installed("FDboost")

  task = tsk("fuel")
  pop = po("fda.bsignal")
  task_bsignal = train_pipeop(pop, list(task))[[1L]]
  new_data = task_bsignal$data()
  expect_task(task_bsignal)
  expect_shape(new_data, dim = c(129L, 30L))
  expect_named(new_data, names(new_data))

  # irregular data works
  task = tsk("dti")
  pop = po("fda.bsignal")
  task_bsignal = train_pipeop(pop, list(task))[[1L]]
  new_data = task_bsignal$data()
  expect_task(task_bsignal)
})