tests/testthat/test_useBin.R

In functionaldata/tPACE: Functional Data Analysis and Empirical Dynamics

# devtools::load_all()
library(testthat)

test_that('The binned version is exactly the same as the unbinned version.', {
  set.seed(1)
  pts <- seq(0, 1, by=0.05)
  samp3 <- Wiener(300, pts, sparsify=5)
  y <- samp3$Ly
  t <- samp3$Lt

  resNoBin <- FPCA(y, t, list(dataType='Sparse', useBinnedData='OFF', useBinnedCov=FALSE))
  resBin <- FPCA(y, t, list(dataType='Sparse', useBinnedData='OFF', useBinnedCov=TRUE))

  resBin$timings= NULL;
  resNoBin$timings=NULL;

  expect_equal(resNoBin[names(resNoBin) != 'optns'], resBin[names(resBin) != 'optns'])
})