library(testthat)
context("largestContinuousMinimum")
library(penaltyLearning)
test_that("(start, end) when zero on both sides", {
indices <- largestContinuousMinimumR(
c(0, 0, 1, 15, 2, 0),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 1)
expect_equal(indices[["end"]], 6)
})
test_that("(1, 2) when two zeros on left", {
indices <- largestContinuousMinimumR(
c(0, 0, 1, 15, 2, 1),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 1)
expect_equal(indices[["end"]], 2)
})
test_that("(end, end) when one zero on right", {
indices <- largestContinuousMinimumR(
c(1, 1, 1, 15, 2, 0),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 6)
expect_equal(indices[["end"]], 6)
})
test_that("(mid, mid) when one zero in middle", {
indices <- largestContinuousMinimumR(
c(1, 1, 1, 0, 2, 2),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 4)
expect_equal(indices[["end"]], 4)
})
test_that("(minStart, minEnd) when two zeros in middle", {
indices <- largestContinuousMinimumR(
c(1, 1, 0, 0, 2, 2),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 3)
expect_equal(indices[["end"]], 4)
})
### C below
test_that("(start, end) when zero on both sides", {
indices <- largestContinuousMinimumC(
c(0, 0, 1, 15, 2, 0),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 1)
expect_equal(indices[["end"]], 6)
})
test_that("(1, 2) when two zeros on left", {
indices <- largestContinuousMinimumC(
c(0, 0, 1, 15, 2, 1),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 1)
expect_equal(indices[["end"]], 2)
})
test_that("(end, end) when one zero on right", {
indices <- largestContinuousMinimumC(
c(1, 1, 1, 15, 2, 0),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 6)
expect_equal(indices[["end"]], 6)
})
test_that("(mid, mid) when one zero in middle", {
indices <- largestContinuousMinimumC(
c(1, 1, 1, 0, 2, 2),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 4)
expect_equal(indices[["end"]], 4)
})
test_that("(minStart, minEnd) when two zeros in middle", {
indices <- largestContinuousMinimumC(
c(1, 1, 0, 0, 2, 2),
c(Inf, 1, 1, 1, 1, Inf))
expect_equal(indices[["start"]], 3)
expect_equal(indices[["end"]], 4)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.