tests/testthat/test-self_scale_function.R

test_that("self_scale function works", {
  output <- hdcuremodels:::self_scale(X = matrix(1:10, ncol = 2), scale = TRUE)
  expect_equal(round(output[1, 1], 6), -1.264911)
})

Try the hdcuremodels package in your browser

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

hdcuremodels documentation built on Aug. 8, 2025, 7:38 p.m.