context("errorlocalizer")
describe("fh_localizer", {
it("can solve a trivial system",{
v <- validator(x>1)
data <- data.frame(x = 2)
loc <- fh_localizer(v)
loc$locate(data)
})
it("can solve a trivial system 2",{
v <- validator(x>1)
data <- data.frame(x = 0)
loc <- fh_localizer(v)
loc$locate(data)
})
it("can solve a simple system",{
v <- validator(x > 1, y > x)
data <- data.frame(x = 2, y = 0)
loc <- fh_localizer(v)
el <- loc$locate(data)
expect_equivalent(values(el)[1,], c(x=FALSE, y=TRUE))
})
it("can handle weights correctly",{
v <- validator(x + y == z, 2*y + 1 == z)
data <- data.frame(x = 1, y = 1, z = 3)
loc <- fh_localizer(v)
el <- loc$locate(data)
expect_equal(as.logical(el$errors), c(TRUE, FALSE, FALSE))
el <- loc$locate(data, weight = c(x = 10, y = 1, z = 1))
expect_equal(as.logical(el$errors), c(FALSE, TRUE, TRUE))
})
})
describe("locate_errors", {
it("can solve a trivial system")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.