tests/testthat/test_pol2car.R

library(testthat)

test_that("A few examples", {
  expect_true(sum(abs(pol2car(c(1, 0, pi/4)) - c(1,0,1)/sqrt(2))) < 1e-10)
  expect_true(sum(abs(pol2car(c(1, pi, 0)) - c(-1,0,0))) < 1e-10)
})
functionaldata/tFrechet documentation built on Oct. 12, 2024, 6:33 a.m.