From a8e6585d399b9b3aee3dc316a341226f79ae69f3 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Tue, 14 Jul 2020 14:52:04 +0200
Subject: [PATCH] Debugged

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

diff --git a/R/newGetDistances.R b/R/newGetDistances.R
index 18cd9c7..896b1a3 100644
--- a/R/newGetDistances.R
+++ b/R/newGetDistances.R
@@ -1,5 +1,5 @@
 newGetDistances <- function(data, rowsFromInd) {
-	ninds <- max(data[, end])
+	ninds <- max(data[, ncol(data)])
 	nloci <- size(data, 2) - 1
 	riviLkm <- choose(ninds, 2)