Compute the \(BIC\) based on \(SSE\) — bic • discounting

Compute the \(BIC\) based on \(SSE\)

Usage

bic(fitobj)

Arguments

fitobj: Output of the fit function.

Value

Numeric denoting the \(BIC\)

Examples

# Generate a dataset
data <- dataset(Y = rnorm(100), X = rnorm(100)) |>
  suppressWarnings()

# Estimate the exponential discounting model on these data
fitobj <- fit(
  exponential(),
  data,
  itermax = 50,
  trace = FALSE
)

# Compute the BIC based on this fitobj
bic(fitobj)
#> [1] -19.28626