tests/testthat/test-robustMD.R

context('robustMD')

test_that('robustMD run', {    
    set.seed(1)
    output <- robustMD(holzinger)
    expect_equal(as.numeric(output$mah[1:3]), c(6.679447, 4.261030, 15.056849),
                 tolerance = 1e-5)
    expect_is(output, 'robmah')
    expect_is(plot(output), 'trellis')
    expect_is(plot(output, type = 'qqplot'), 'trellis')
})

Try the faoutlier package in your browser

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

faoutlier documentation built on Jan. 13, 2021, 7:04 p.m.