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

Syntax fixes (#3)

Browse source
This commit is contained in:
Waldir Leoncio 2023-02-16 15:30:15 +01:00
parent ad09ffcf28
commit 8bddd70781
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
R/ind2subv.R
View file

@ -21,7 +21,7 @@ ind2subv <- function(siz, ndx) {
} }
if (all(siz == 2)) { if (all(siz == 2)) {
sub <- dec2bitv(ndx - 1, n) sub <- t(vapply(ndx, function(x) dec2bitv(x - 1, n), c(0, 0, 0)))
sub <- sub[, seq(n, 1, - 1)] + 1 sub <- sub[, seq(n, 1, - 1)] + 1
return(sub) return(sub)
} }
@ -31,7 +31,7 @@ ind2subv <- function(siz, ndx) {
sub <- zeros(length(ndx), n) sub <- zeros(length(ndx), n)
for (i in seq(n, 1, -1)) {# i'th digit for (i in seq(n, 1, -1)) {# i'th digit
sub[, i] <- floor(ndx / cp[i]) + 1 sub[, i] <- floor(ndx / cp[i]) + 1
ndx <- ndx %% cp(i) ndx <- ndx %% cp[i]
} }
return(sub) return(sub)
} }

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

@ -58,7 +58,14 @@ test_that("lakseKlitik() and subfunctions produce expected output", {
expect_equal(dec2bitv(10, 1), c(1, 0, 1, 0)) expect_equal(dec2bitv(10, 1), c(1, 0, 1, 0))
expect_equal(dec2bitv(10, 5), c(0, 1, 0, 1, 0)) expect_equal(dec2bitv(10, 5), c(0, 1, 0, 1, 0))
expect_equal(dec2bitv(10, 10), c(0, 0, 0, 0, 0, 0, 1, 0, 1, 0)) expect_equal(dec2bitv(10, 10), c(0, 0, 0, 0, 0, 0, 1, 0, 1, 0))
# TODO: test ind2subv() expect_equal(
ind2subv(c(2, 2, 2), 1:8),
matrix(c(rep(1:2, 4), rep(1:2, 2, each = 2), rep(1:2, 1, each = 4)), 8)
)
expect_equal(
ind2subv(c(1, 2, 4, 3), 1:5),
matrix(c(rep(1, 5), 1, 2, 1, 2, 1, 1, 1, 2, 2, 3, rep(1, 5)), ncol = 4)
)
# TODO: test argmin() # TODO: test argmin()
# TODO: test elim_order() # TODO: test elim_order()
# TODO: test triangulate() # TODO: test triangulate()