tests/testthat/test_removeTemporal.R

In HISKP-LQCD/hadron: Analysis Framework for Monte Carlo Simulation Data in Physics

context('Remove Temporal')

test_that('equality', {
  ## Perform some fits to the sample cf such that we have energies to subtract.
  corr_boot <- bootstrap.cf(samplecf)

  fit1 <- matrixfit(corr_boot, 10, 20)
  fit2 <- matrixfit(corr_boot, 4, 9)
  
  corr_rt <- old_removeTemporal.cf(corr_boot, fit1, fit2, L = 24, weight.cosh = FALSE)
  new_corr_rt <- removeTemporal.cf(corr_boot, fit1, fit2, L = 24, weight.cosh = FALSE)
  expect_equal(corr_rt, new_corr_rt)
})