"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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.