Computes \(-2 \log L + k \log n\), where \(n\) is
nobs(object). Calls BIC.
Usage
# S3 method for class 'xnicher'
BIC(object, ...)Examples
# \donttest{
fit <- optimize_niche(env_occ = example_env_occ_2d,
env_m = example_env_m_2d,
num_starts = 5L, likelihood = "weighted")
BIC(fit)
#> [1] 1322.253
# }