tests/testthat/test-rgp.R

In tf: S3 Classes and Methods for Tidy Functional Data

test_that("irregular data generation works", {
  expect_class(
    tf_rgp(2, arg = list(sort(runif(25)), sort(runif(34)))),
    "tfd_irreg"
  )
  expect_error(tf_rgp(2, arg = list(runif(25), sort(runif(34)))))
  expect_error(tf_rgp(2, arg = list(runif(25))))
})


test_that("user defined covariance works", {
  my_sqexp <- function(s, t) exp(-(s - t)^2 / 0.1)
  set.seed(1312)
  x1 <- tf_rgp(1, cov = my_sqexp)
  set.seed(1312)
  x2 <- tf_rgp(1, cov = "squareexp")
  expect_equal(x1, x2)

  expect_error(
    tf_rgp(1, cov = function(s, t, x) (s - t) / x),
    "2 formal arguments"
  )
})