tests/testthat/test-wpinv.R

test_that("wpinv works.", {
  omega <- c(1.4 - 1i, 1.6 + 0.5i)
  w <- 1 + 1i
  z <- wpinv(w, omega = omega)
  expect_equal(w, wp(z, omega = omega))
})

Try the jacobi package in your browser

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

jacobi documentation built on Nov. 19, 2023, 1:08 a.m.