Update fit_cv_fused_lasso.R

add final message
quansun98 · Jun 19, 2024 · 2e8127b · 2e8127b
1 parent e116848
commit 2e8127b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fit_cv_fused_lasso.R b/fit_cv_fused_lasso.R
@@ -329,8 +329,8 @@ best_p <- p_list[best_index]
 best_list <- list("fit_model" = best_fit, 
                   "best_p" = best_p)
 
-print(best_list$fit_model$cv_r2)
-best_list$best_p
+message(paste("best model CV R2:", print(best_list$fit_model$cv_r2)))
+message(paste("best model p-value threshold:", best_list$best_p))
 
 # #Output best_list as .Rds
 best_list %>% saveRDS(file = str_c(opt$out, ".best_list.RDS"))