tests/testthat/test-chg_dir.R

In yinscapital/sat-locat-reference-team-lucc: TEAM land use and cover change data processing toolkit

context("chg_dir")

test_mat1 <- matrix(c(.2, 0, .5), nrow=1)
test_mat2 <- matrix(c(.3, 0, .7), nrow=1)
test_mat2_na <- matrix(c(.3, NA, .7), nrow=1)

test_that("change direction works for valid probabilities", {
    expect_equal(calc_chg_dir(test_mat1, test_mat2), matrix(7))
})

test_that("change direction returns NA when a probability is NA", {
    expect_equivalent(calc_chg_dir(test_mat1, test_mat2_na), matrix(NA))
})