tests/testthat/test_g.impute.R

In PeteJWatson/ggircal: Raw Accelerometer Data Analysis

library(GGIR)
context("g.impute")
options(encoding = "UTF-8")
test_that("g.impute returns a non-empty dataframe", {
  data(data.getmeta)
  data(data.inspectfile)
  data(data.calibrate)
  IMP = g.impute(M = data.getmeta, I = data.inspectfile)
  expect_equal(length(IMP),11)
})