inst/tinytest/test_get_wecoma.R

data(raster_x, package = "comat")
data(raster_w, package = "comat")
data(raster_x_na, package = "comat")
data(raster_w_na, package = "comat")

r1 = get_wecoma(raster_x, raster_w, fun = "mean", na_action = "replace", neighbourhood = 4)
r2 = get_wecoma(raster_x, raster_w, fun = "geometric_mean", na_action = "replace", neighbourhood = 4)
r3 = get_wecoma(raster_x, raster_w, fun = "focal", na_action = "replace", neighbourhood = 4)
r4 = get_wecoma(raster_x, raster_w_na, fun = "mean", na_action = "omit", neighbourhood = 4)
r5 = get_wecoma(raster_x, raster_w_na, fun = "mean", na_action = "replace", neighbourhood = 4)
r6 = get_wecoma(raster_x_na, raster_w_na, fun = "mean", na_action = "omit", neighbourhood = 4)
r7 = get_wecoma(raster_x_na, raster_w_na, fun = "mean", na_action = "keep", neighbourhood = 4)

t1 = structure(c(12, 5, 13.5, 5, 12, 14.5, 13.5, 14.5, 49),
               .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t2 = structure(c(10.9282032302755, 4.89897948556636, 11.9700472974318,
                 4.89897948556636, 11.3137084989848, 14.142135623731, 11.9700472974318,
                 14.142135623731, 48), .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t3 = structure(c(12, 4, 17, 6, 12, 13, 10, 16, 49),
               .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t4 = structure(c(12, 5, 0, 5, 0, 0, 0, 0, 18), .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t5 = structure(c(12, 5, 5, 5, 4, 4.5, 5, 4.5, 36), .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t6 = structure(c(4, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))
t7 = structure(c(4, 0, NA, 0, NA, NA, NA, NA, 0), .Dim = c(3L, 3L),
               .Dimnames = list(c("1", "2", "3"), c("1", "2", "3")))

expect_equivalent(r1, t1)
expect_equivalent(r2, t2)
expect_equivalent(r3, t3)
expect_equivalent(r4, t4)
expect_equivalent(r5, t5)
expect_equivalent(r6, t6)
expect_equivalent(r7, t7)

expect_error(get_wecoma(raster_x_na, raster_w_na, fun = "median"))

r8 = get_wecove(r1, ordered = TRUE, normalization = "none")
t8 = matrix(c(12, 5, 13.5, 5, 12, 14.5, 13.5, 14.5, 49), nrow = 1)
expect_equivalent(r8, t8)

r9 = comat:::rcpp_get_vec(r1, ordered = FALSE, normalization = "none")
t9 = matrix(c(6, 5, 6, 13.5, 14.5, 24.5), nrow = 1)
expect_equivalent(r9, t9)

Try the comat package in your browser

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

comat documentation built on Jan. 13, 2021, 6:20 p.m.