add another error message

wincowgerDEV · Jan 4, 2024 · 2abf6f5 · 2abf6f5
1 parent 6063d86
commit 2abf6f5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/smooth_intens.R b/R/smooth_intens.R
@@ -103,6 +103,9 @@ calc_window_points.OpenSpecy <- function(x, wavenum_width = 70){
     if(raw_points > length(x$wavenumber)){
         stop("The wavenum_width must be shorter than the full spectrum.")
     }
+    if(raw_points <= 3){
+        stop("The wavenum_width must be longer than 3X the spectral resolution.")
+    }
     return(raw_points)
 }