Fix a small bug that can cause the return columns not matching with the requested method

MrJGao · MrJGao · commit 0d631367a947 · 2024-10-22T10:15:57.000-04:00
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)

Original file line number	Diff line number	Diff line change
`@@ -291,7 +291,7 @@ FitBLSP <- function(date_vec, vi_vec,`
`291`	`291`	`weights_vec,`
`292`	`292`	`cred_int_level,`
`293`	`293`	`mod,`
`294`		`- method = "default"`
	`294`	`+ method = tolower(opt$method)`
`295`	`295`	`)`
`296`	`296`
`297`	`297`	`return(blsp_fit)`