tests/testthat/test-control.R

In travisbyrum/mosqcontrol: Mosquito Control Resource Optimization

context("Testing Control Fitting")

test_that("control fit implemented", {
  y_in <- c(
    15, 40, 45, 88, 99, 145, 111, 132, 177, 97, 94, 145, 123, 111,
    125, 115, 155, 160, 143, 132, 126, 125, 105, 98, 87, 54, 55, 8
  )

  t_in_user <- c(
    93, 100, 107, 114, 121, 128, 135, 142, 149, 163, 170, 177,
    184, 191, 198, 205, 212, 219, 226, 233, 240, 247, 254, 261,
    267, 274, 281, 288
  )

  # value <- control(y_in, t_in_user)

  expect_equal(0, 0)
})