tests/testthat/test-interpolate.R

temp <- data.frame(pID = c(1,1,1,1), time = c(0,1,2,3), x = c(1,2,NA, 4), y = c(1,2,NA,4), trial = c(1,1,1,1))


test_that("no NA present", {
  expect_equal(sum(is.na(interpolate(temp))),
               0)
})
tombeesley/eyetools documentation built on July 4, 2025, 3:14 p.m.