tests/testthat/test-PolarDerivatived.R

test_that("PolarDerivatived works", {
  expect_equal(PolarDerivative(c(1/sqrt(2),1/2,1/2)),
               matrix(c(1/sqrt(2),-1/2,-1/2,
                        0,1,-1),
                      nrow=2,ncol=3,byrow=TRUE))
})

Try the KEPTED package in your browser

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

KEPTED documentation built on May 29, 2024, 12:05 p.m.