tests/testthat/test_mstep.R

test_that("TESTING mstep(): M-Step returns a numeric vector 6 elements long", {

    expect_equal(length(mstep(m = rep(1, times = 21))), 6)

    expect_match(class(mstep(m = rep(1, times = 21))), "numeric")

})
BiostatQian/ASAFE documentation built on May 6, 2019, 7:56 a.m.