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

Translated computeCounts() (#3)

Browse source
This commit is contained in:
Waldir Leoncio 2022-07-28 11:16:59 +02:00
parent 40854fe253
commit 31ab81a215
2 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tests/testthat/test-spatialMixture.R Normal file
View file

@ -0,0 +1,9 @@
context("Spatial mixture")
test_that("functions work with basic input", {
x <- c(1, 3, 0, 2)
y <- array(c(1, 3, 2, 4, 5, 7, 6, 8), c(2, 2, 2))
z <- computeCounts(x, 4, 5, y)
expect_equal(z$cliqcounts, t(c(1, 1, 1, 0, 0)))
expect_equal(z$sepcounts, t(c(0, 0, 0, 1, 0)))
})