R/dynamic.theta.frank.R

In STCCGEV: Conditional Copula Model for Crop Yield Forecasting

#' Compute Dynamic Frank Copula Parameter
#'
#' Computes the Frank copula parameter dynamically based on lagged values and covariates.
#'
#' @param params Numeric vector of parameters: omega, alpha, and gamma coefficients.
#' @param lagged_theta Numeric, the previous theta value.
#' @param X_t Numeric vector or matrix of covariates at time t.
#' @return Numeric, estimated dynamic Frank copula parameter.
#' @export
dynamic.theta.frank <- function(params, lagged_theta, X_t) {
  omega <- params[1]
  alpha <- params[2]
  gamma <- params[3:length(params)]
  theta_t <- abs(omega + alpha * lagged_theta + sum(gamma * X_t))
  return(theta_t)
}