Fix a small bug that can cause the return columns not matching with t…

…he requested method
ncsuSEAL · Oct 22, 2024 · 0d63136 · 0d63136
1 parent 67c5e06
commit 0d63136
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mod_fit.R b/R/mod_fit.R
@@ -291,7 +291,7 @@ FitBLSP <- function(date_vec, vi_vec,
                 weights_vec,
                 cred_int_level,
                 mod,
-                method = "default"
+                method = tolower(opt$method)
             )
 
             return(blsp_fit)