Nothing
test_that("Bivariate example", {
x <- qlone(1)
y <- qlone(2)
f <- x^4 - x^3 + x^2 - 2*x*y^2 + y^4
g <- x - 2*y^2
r <- resultant(f, g, var = 2)
expect_true(r == 16 * (x - "1/2")^4 * x^4)
})
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.