Merge single-run results and bootstrap frequencies

Merge single-run results and bootstrap frequencies

Usage

compare_table(single_tab, freq_tab = NULL)

Arguments

single_tab

Data frame returned in compare_selectors_single()[["table"]].

freq_tab

Optional frequency table from compare_selectors_bootstrap().

Value

Merged data frame.

Examples

single_tab <- data.frame(
  selector = rep(c("AIC", "BIC"), each = 3),
  variable = rep(paste0("x", 1:3), times = 2),
  coef = c(0.5, 0, -0.2, 0.6, 0.1, -0.3)
)
single_tab$selected <- single_tab$coef != 0
freq_tab <- data.frame(
  selector = rep(c("AIC", "BIC"), each = 3),
  variable = rep(paste0("x", 1:3), times = 2),
  freq = c(0.9, 0.15, 0.4, 0.85, 0.3, 0.25)
)
compare_table(single_tab, freq_tab)
#>   selector variable coef selected freq
#> 1      AIC       x1  0.5     TRUE 0.90
#> 2      AIC       x2  0.0    FALSE 0.15
#> 3      AIC       x3 -0.2     TRUE 0.40
#> 4      BIC       x1  0.6     TRUE 0.85
#> 5      BIC       x2  0.1     TRUE 0.30
#> 6      BIC       x3 -0.3     TRUE 0.25