tests/testthat/test-ESFpoly.R

test_that("ESFpoly", {
  P <- ESFpoly(2, c(2,1))
  x <- qlone(1)
  y <- qlone(2)
  expect_true(P == x^2*y + x*y^2)
})

Try the qspray package in your browser

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

qspray documentation built on Sept. 11, 2024, 5:33 p.m.