R/dynamic.theta.clayton.R

In STCCGEV: Conditional Copula Model for Crop Yield Forecasting

#' Compute Dynamic Clayton Copula Parameter
#'
#' Computes the Clayton 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 Clayton copula parameter.
#' @export
dynamic.theta.clayton <- 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)
}