refactor: bind columns

aravindhebbali · aravindhebbali · commit 9dfee36d0e2b · 2025-12-09T16:14:28.000+05:30
diff --git a/R/ols-model-performance.R b/R/ols-model-performance.R
@@ -104,8 +104,7 @@ ols_compare_model_performance.lm <- function(...) {
     sigma[i] = summary(models[[i]])$sigma
   }
 
-  result <- cbind(model_names, result)
-  result <- cbind(result, sigma)
+  result <- cbind(cbind(model_names, result), sigma)
 
   col_names <- c("name", "r2", "r2_adj", "r2_pred", "aic", "sbc", "sbic",
     "rmse", "sigma")

Original file line number	Diff line number	Diff line change
`@@ -104,8 +104,7 @@ ols_compare_model_performance.lm <- function(...) {`
`104`	`104`	`sigma[i] = summary(models[[i]])$sigma`
`105`	`105`	`}`
`106`	`106`
`107`		`- result <- cbind(model_names, result)`
`108`		`- result <- cbind(result, sigma)`
	`107`	`+ result <- cbind(cbind(model_names, result), sigma)`
`109`	`108`
`110`	`109`	`col_names <- c("name", "r2", "r2_adj", "r2_pred", "aic", "sbc", "sbic",`
`111`	`110`	`"rmse", "sigma")`