Computes the mode (most likely value) of \(K_J \mid \alpha\).
Examples
logS <- compute_log_stirling(50)
mode_K_given_alpha(50, 2.0, logS)
#> [1] 7
Computes the mode (most likely value) of \(K_J \mid \alpha\).
logS <- compute_log_stirling(50)
mode_K_given_alpha(50, 2.0, logS)
#> [1] 7