Nothing
context("ODESystem")
test_that("dxdt constructor", {
x <- S("x")
rhs <- x^2L + x + 1L
eq <- dxdt(x) == rhs
expect_true(class(eq) == "DxdtOde")
})
x <- S("x")
y <- S("y")
rhs1 <- 1L / (x^2L + y + 1L)
rhs2 <- 1L / (y^2L + 2L*x + 1L)
test_that("ODESystem and predict works", {
skip_if(!requireNamespace("odeintr", quietly = TRUE))
eq1 <- dxdt(x) == rhs1
eq2 <- dxdt(y) == rhs2
sys <- ODESystem(eq1, eq2)
expect_true(class(sys) == "ODESystem")
res <- predict(sys, init = c(x = 1, y = 1), duration = 10)
expect_true(is.data.frame(res))
expect_true(identical(names(res), c("Time", "x", "y")))
})
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.