R/isCOP.permsym.R

In wasquith/copBasic: General Bivariate Copula Theory and Many Utility Functions

"isCOP.permsym" <-
function(cop=NULL, para=NULL, delta=0.005, tol=1e-4, ...) {
  TT <- seq(0+delta, 1-delta, by=delta)
  tmp <- sapply(TT, function(u) { sapply(TT, function(v) {
             return(COP(u,v, cop=cop, para=para, ...) -
                    COP(v,u, cop=cop, para=para, ...)) } ) })
  ifelse(any(abs(tmp) > tol), return(FALSE), return(TRUE))
}