From cfb71bfd6d5ba74d7cc948266b8914216ea16309 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Fri, 11 Aug 2023 16:23:02 +0200
Subject: [PATCH] Fixed syntax (#25)

---
 R/initialCounts.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/initialCounts.R b/R/initialCounts.R
index b40df09..5d7188c 100644
--- a/R/initialCounts.R
+++ b/R/initialCounts.R
@@ -2,7 +2,7 @@ initialCounts <- function(partition, data, npops, rows, noalle, adjprior) {
   nloci <- size(data, 2)
   ninds <- size(rows, 1)
 
-  koot <- rows[, 1] - rows[, 2] + 1
+  koot <- rows[1] - rows[2] + 1
   maxSize <- base::max(koot)
 
   counts <- zeros(base::max(noalle), nloci, npops)