add missing title for calibration sampling function

R/pls-modeling.R

@@ -1,5 +1,5 @@
 # Perform calibration sampling based on spectral PCA ------------
-#' @title Split
+#' @title Split spectra into calibration and validation sets
 #' @description Perform calibration sampling based on
 #' the Kennard-Stones algorithm.
 #' @param spec_chem data.frame that contains chemical
@@ -20,7 +20,7 @@ ken_stone_q <- function(spec_chem, ratio_val, pc = 2,
   # k = number of samples to select
   # pc = if provided, the number of principal components
   # (see ?kenStone)
-  if(validation == TRUE) {
+  if(validation == TRUE)
     # pc = 0.99 before !!!
     pc_number <- eval(pc, envir = parent.frame())
     sel <- prospectr::kenStone(X = spec_chem$MIR,