R/convex2COP.R

"convex2COP" <-
function(u,v, para, ...) {
  if(is.null(para$alpha)) {
    warning("no alpha parameter given")
    return(NULL)
  }
  return(   para$alpha  * COP(u, v, cop=para$cop1, para=para$para1) +
         (1-para$alpha) * COP(u, v, cop=para$cop2, para=para$para2))
}
wasquith/copBasic documentation built on March 10, 2024, 11:24 a.m.