tests/testthat/test-pca_examination.R

In fChange: Functional Change Point Detection and Analysis

test_that("PCA Examination", {
  set.seed(123)
  results <- pca_examination(electricity)
  expect_equal(round(sum(results$reconstruction$data)), 369069)
  expect_equal(round(sum(results$residuals$data)), 0)
})

test_that("Projection Model", {
  set.seed(123)
  if (Sys.info()["sysname"] == "Linux") {
    expect_false(FALSE)
    return()
  }

  results <- projection_model(dfts(electricity$data[, 50:100]),
    n.ahead = 5,
    sim.bounds = FALSE
  )
  expect_equal(round(sum(results$data$component_model$data)), 33283)
  expect_equal(round(sum(results$data$residuals$data)), 1293)
})