tests/testthat/test_impute.R

test_that("imputation works", {
    data(naset)
    res1 <- impute(naset, method = "knn")
    res2 <- MsCoreUtils::impute_knn(exprs(naset))
    expect_identical(exprs(res1), res2)
})
lgatto/MSnbase documentation built on March 14, 2024, 7:06 a.m.