From 8bddd70781fccf61697930d180cc25268a9eda0a Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 16 Feb 2023 15:30:15 +0100
Subject: [PATCH 1/2] Syntax fixes (#3)

---
 R/ind2subv.R                         | 4 ++--
 tests/testthat/test-spatialMixture.R | 9 ++++++++-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/R/ind2subv.R b/R/ind2subv.R
index 92b4943..7981170 100644
--- a/R/ind2subv.R
+++ b/R/ind2subv.R
@@ -21,7 +21,7 @@ ind2subv <- function(siz, ndx) {
   }
 
   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
     return(sub)
   }
@@ -31,7 +31,7 @@ ind2subv <- function(siz, ndx) {
   sub <- zeros(length(ndx), n)
   for (i in seq(n, 1, -1)) {# i'th digit
     sub[, i] <- floor(ndx / cp[i]) + 1
-    ndx <- ndx %% cp(i)
+    ndx <- ndx %% cp[i]
   }
   return(sub)
 }
diff --git a/tests/testthat/test-spatialMixture.R b/tests/testthat/test-spatialMixture.R
index 47c63ca..d07881a 100644
--- a/tests/testthat/test-spatialMixture.R
+++ b/tests/testthat/test-spatialMixture.R
@@ -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, 5), c(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 elim_order()
   # TODO: test triangulate()

From da0efad4a741dfe55185f599adcbd94e2505c08b Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 16 Feb 2023 15:30:20 +0100
Subject: [PATCH 2/2] Increment version number to 0.0.0.9020

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 35c2a4b..6e84839 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rBAPS
 Title: Bayesian Analysis of Population Structure
-Version: 0.0.0.9019
+Version: 0.0.0.9020
 Date: 2020-11-09
 Authors@R:
     c(