library(GGIR) context("g.impute") 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), 14) })