tests/testthat/test_dfa.R

In GGIR: Raw Accelerometer Data Analysis

library(GGIR)
context("DFA, SSP and ABI")
test_that("DFA produces expected abi and ssp from sunspot.year dataset", {
  skip_on_cran()
  ssp = SSP(sunspot.year)
  abi = ABI(ssp)
  expect_equal(abi, 0.145756, tolerance = 0.0001)
  expect_equal(ssp, 0.7393684, tolerance = 0.0001)
})

test_that("DFA skips calculation if there are NA values", {
  skip_on_cran()
  sy_tmp = sunspot.year
  sy_tmp[5] = NA
  ssp = SSP(sy_tmp)
  abi = ABI(ssp)
  expect_equal(abi, NA)
  expect_equal(ssp, NA)
})

test_that("DFA can handle too short time series", {
  skip_on_cran()
  ssp = SSP(sunspot.year[1:2])
  abi = ABI(ssp)
  expect_equal(abi, NA)
  expect_equal(ssp, NA)
})