From 433518b6da8de458eaca1890c65072706bb9f53b Mon Sep 17 00:00:00 2001
From: Renzo <74569672+bonifazi@users.noreply.github.com>
Date: Tue, 14 May 2024 15:14:43 +0200
Subject: [PATCH] Update compute_LR_stats.R

fixed error message
---
 compute_LR_stats.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compute_LR_stats.R b/compute_LR_stats.R
index f83e6d9..aab0097 100644
--- a/compute_LR_stats.R
+++ b/compute_LR_stats.R
@@ -236,7 +236,7 @@ compute_LR_stats <-
       #  validation IDs can be found and that there are no NAs
       if (bootstrap == T & hasArg(inbreeding)) {
         if (!all(val_groupIDs[, 1] %in% inbreeding[, 1])) {
-          stop("Not all validation group IDs were found in the 'inbreeding' data.frame. Check that col. 2 of 'inbreeding' data.frame has the IDs provided in 'val_groupIDs'")
+          stop("Not all validation group IDs were found in the 'inbreeding' data.frame. Check that col. 1 of 'inbreeding' data.frame has the IDs provided in 'val_groupIDs'")
         }
         if (any(
           is.na(inbreeding[inbreeding[, 1] %in% val_groupIDs[, 1], 2])