diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R index 0f6c8352e39c1ff6532201444304c99dd52164fb..7b748c54e1ef703cdabda0a3db8c1f27f6adb760 100644 --- a/R/PE_Oudin.R +++ b/R/PE_Oudin.R @@ -42,10 +42,10 @@ PE_Oudin <- function(JD, Temp, TimeStepOut <- match.arg(TimeStepOut, choices = TimeStep) rleJD <- rle(JD) if (TimeStepIn == "daily" & any(rleJD$lengths != 1)) { - stop("each day must have only one identical value of julian days") + warning("each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates") } if (TimeStepIn == "hourly" & any(rleJD$lengths != 24)) { - stop("each day must have 24 identical values of julian days (one for each hour)") + warning("each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates") }