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")

})

Try the ASAFE package in your browser

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

ASAFE documentation built on Nov. 8, 2020, 10:59 p.m.