Nothing
context("Carlson_RJ")
test_that("RJ(x,y,y,p)", {
x <- 1 + 1i
y <- -2 + 3i
p <- 4i
expect_equal(Carlson_RJ(x, y, y, p),
3*(Carlson_RC(x,y) - Carlson_RC(x,p)) / (p-y))
})
test_that("homogeneity", {
x <- 1 + 1i
y <- -2 + 3i
z <- -3
p <- 4i
kappa <- 2
expect_equal(Carlson_RJ(x, y, z, p)/kappa/sqrt(kappa),
Carlson_RJ(kappa*x, kappa*y, kappa*z, kappa*p))
})
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.