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)
})

Try the eyetools package in your browser

Any scripts or data that you put into this service are public.

eyetools documentation built on June 18, 2025, 5:08 p.m.