tests/testthat/test_RegulariseByAlpha.R

In functionaldata/tDENS: Functional Data Analysis for Density Functions by Transformation to a Hilbert Space

library(testthat)

test_that('RegulariseByAlpha works on a trivial example, U(0,1))', {
  x = seq(0,1,length.out =122)
  y = seq(0,2,length.out =122)
  z = RegulariseByAlpha(x=x, y=y, alpha = 0.1)

  expect_equal( 1 , fdapace:::trapzRcpp(x,Y = z) )
  expect_equal( 0.1, min(z) ) 
})

test_that('RegulariseByAlpha works on a trivial example, U(0,1))', {
  x = seq(0,1,length.out =122)
  y = seq(0,2,length.out =122)
  z = RegulariseByAlpha(x=x, y=y, alpha = 0.1)
  yNew = RegulariseByAlpha(x=x, y=z, alpha = 0.1, deregularise=TRUE )

  expect_equal( y, yNew )
})