From bbac1f2b3523f39d906caa875406ab0058b2249f Mon Sep 17 00:00:00 2001
From: "Rossum, Bart-Jan van" <bart-jan.vanrossum@wur.nl>
Date: Fri, 6 Aug 2021 14:13:23 +0200
Subject: [PATCH] Improved error message for detectSingleOut

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

diff --git a/R/detectSingleOut.R b/R/detectSingleOut.R
index eaa4e00..4dd4bb6 100644
--- a/R/detectSingleOut.R
+++ b/R/detectSingleOut.R
@@ -95,7 +95,7 @@ detectSingleOut <- function(TP,
   plotPreds <- lapply(X = TPPlot, FUN = function(plotDat) {
     ## Only makes sense for at least 6 time points.
     if (nrow(plotDat) <= 6) {
-      warning("Not enough data points (<= 6) to fit a model for: ",
+      warning("Not enough data points (at least 7) to fit a model for: ",
               plotDat[1, "plotId"], ".\n", call. = FALSE)
       return(NULL)
     }