tests/testthat/test-mscale.R

In anevolbap/ktaucenterscpp: Robust Clustering Procedures

test_that("mscale works", {
    u = c(-5.9957109, 3.7043719, 8.3375155, -4.3120109, -7.9069974,
          4.0211492, 0.5591997, 6.1587040, 9.1300025, -7.7909396,
          -4.5343010, -0.1897360, -3.6319196, 1.1834565, -4.7481372,
          -5.9624958, -2.2494851, 7.7573954, 1.0984511, 6.8435877)
    expect_equal(round(m_scale(u, b = 0.5, cc = 1), 6), 2.853613)
})