Update compute_LR_stats.R

fixed error message
bonifazi · May 14, 2024 · 433518b · 433518b
1 parent 16418cf
commit 433518b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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])