Nothing
test_that("ESFpoly", {
P <- ESFpoly(2, c(2,1))
x <- qlone(1)
y <- qlone(2)
expect_true(P == x^2*y + x*y^2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.