tests/testthat/test-Polar2Recd.R

test_that("Polar2Recd works", {
  expect_equal(Polar2Rec(4,c(pi/4,pi/4)),
               list(X=c(2*sqrt(2),2,2),V=c(2*sqrt(2),2,2)/4))
})

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.