Nothing
print("Entering test_domains.R")
library(sp)
test_that("dimensions work", {
S <- sphere(radius = 1)
x <- matrix(c(-90,90,0,0),2,2)
expect_equal(dimensions(sphere()), 2L)
expect_equal(dimensions(plane()), 2L)
expect_equal(dimensions(real_line()), 1L)
expect_equal(dimensions(STplane()), 3L)
expect_equal(dimensions(STsphere()), 3L)
expect_true({print(sphere());TRUE})
expect_true({show(sphere());TRUE})
expect_true({print(plane());TRUE})
expect_true({show(plane());TRUE})
expect_true({print(real_line());TRUE})
expect_true({show(real_line());TRUE})
expect_true({print(STplane());TRUE})
expect_true({show(STplane());TRUE})
expect_true({print(STplane());TRUE})
expect_true({show(STplane());TRUE})
})
test_that("sphere distance works", {
S <- sphere(radius = 1)
x <- matrix(c(-90,90,0,0),2,2)
expect_identical(distance(S,x,x)[1,2], pi)
})
test_that("sphere space-time distance works",{
ST <- STsphere(radius=1)
x <- matrix(c(-90,90,0,0,0,2),2,3)
expect_identical(distance(ST,x,x)[1,2],sqrt(pi^2 +2^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.