estimate sample sizes
lfq_power_t_test_quantiles_V2(
  quantile_sd,
  delta = c(0.59, 1, 2),
  power = 0.8,
  sig.level = 0.05,
  min.n = 1.5
)
bb1 <- prolfqua::sim_lfq_data_peptide_config()
#> creating sampleName from fileName column
#> completing cases
#> completing cases done
#> setup done
config <- bb1$config
data2 <- bb1$data
stats_res <- summarize_stats(data2, config)
#> completing cases
xx <- summarize_stats_quantiles(stats_res, config, probs = c(0.5,0.8))
bbb <- lfq_power_t_test_quantiles_V2(xx$long)
bbb <- dplyr::bind_rows(bbb)
summary <- bbb |>
 dplyr::select( -N_exact, -quantiles, -sdtrimmed ) |>
 tidyr::spread(delta, N, sep = "=")