tests/testthat/test01.R

In wagnius-GmbH/slvwagner: All Stuff that I`m Missing

test_that("math_betrag",{
  expect_equal(math_betrag(c(1,1)), sqrt(2))
  expect_equal(math_betrag(c(1,1,1)), sqrt(3))
})

test_that("matrix rotation transform 2D",{
  expect_equal(math_rot_transform(c(0,1),math_rot_matrix2d(pi/3)), cbind(-sin(pi/3),cos(pi/3)))
})

test_that("signal_center",{
  x <- rnorm(100,-2.5)|>signal_center()
  c_range = range(x)|>abs()
  expect_equal(c_range[1],c_range[2])
})

test_that("r_signif",{
  test <- c(25,signif(rnorm(10),3))
  expect_equal(format(test, format = "g", digits = 3), r_signif(test))
  expect_equal(format(test, format = "g", digits = 5), r_signif(test,5))

})