R/estimation_joe.R

In MLCOPULA: Classification Models with Copula Functions

#' @title Parameter estimation for a Joe copula.
#' @description Returns a list with the parameter 
#' value and the log likelihood value.
#' @param U values for u and v.


estimation.joe <- function(U){
  opt <- optim(par = c(1.01), fn = lv.joe, 
               U = U, control = list(fnscale = -1),
               method = "Brent",lower = 1, 
               upper = 100)
  
  values <- list(logv = opt$value, theta = opt$par)
  return(values)
}