tests/testthat/testmfastLm.R

context("fast marginal lm solver (mfastLmCpp)")


test_that("estimation", {
  expect_equal(mfastLmCpp(1:10, as.matrix(1:10))[1,1], 1)
})



test_that("Correct handling of missing", {
    expect_equal(mfastLmCpp(c(NA, 2:10), as.matrix(1:10)), mfastLmCpp(2:10, as.matrix(2:10)))
    expect_equal(mfastLmCpp(1:10, as.matrix(c(NA, 2:10))), mfastLmCpp(2:10, as.matrix(2:10)))
})

Try the MESS package in your browser

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

MESS documentation built on Dec. 13, 2018, 5:04 p.m.