max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added unit tests (#3)

Browse source
This commit is contained in:
Waldir Leoncio 2022-11-16 11:56:30 +01:00
parent 85c412f347
commit a354202bc0
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/testthat/test-spatialMixture.R
View file

@ -15,3 +15,21 @@ test_that("functions work with basic input", {
expect_equal(computeDiffInCliqCounts(r, 0), matrix(c(0, 0, 0)))
expect_equal(mysetdiff(t, y), c(2, 5))
})
test_that("testaaKoordinaatit works as expected", {
m1 <- matrix(c(11.1, 22.2, 33.3, 44.4), 2, byrow = TRUE)
m2 <- matrix(c(11.1, 22.2, 33.3, 44.4, 55.5, 66.6), byrow = TRUE)
m3 <- matrix(c(11, 22.2, 11, 44.4, 11, 66.6), ncol = 2, byrow = TRUE)
expect_equal(
testaaKoordinaatit(2, m1), list("viallinen" = 0, "coordinates" = m1)
)
expect_warning(testaaKoordinaatit(2, m2), "Wrong coordinates dimension!")
expect_equal(
{set.seed(5676402); testaaKoordinaatit(3, m3, FALSE)},
list(
"viallinen" = 0,
"coordinates" = matrix(
c(11.99, 22.2, 11.50, 44.4, 11.00, 66.6), ncol = 2, byrow = TRUE)
)
)
})