tests/testthat/test.get_freeparametersvalue.R

context("Check extract parameters")

migr <- generate_toy_migration()
para <- get_freeparametersvalue(migr)

expected_para <- c(0.55, 3.00, 4.00, 2.00, 4.00)

test_that("extract_parameters valid", {
  expect_equal(all(para == expected_para), TRUE)
})

Try the FlywayNet package in your browser

Any scripts or data that you put into this service are public.

FlywayNet documentation built on March 18, 2022, 7:21 p.m.