tests/testthat/test-fdadist.R

test_that("`fdadist()` works", {
  D <- fdadist(simulated30_sub$x, simulated30_sub$y)
  expect_true(inherits(D, "dist"))
  expect_equal(length(D), 435)
})

Try the fdacluster package in your browser

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

fdacluster documentation built on July 9, 2023, 6:45 p.m.