R/gridCOP.R

"gridCOP" <- function(cop=NULL, para=NULL, delta=0.05, transpose=TRUE, ...) {
   u <- seq(0,1, by=delta); v <- seq(0,1, by=delta)
   h <- sapply(u, function(au) {
        sapply(v, function(av) { return(cop(au,av, para=para, ...)) } ) })
   # The transpose is critical so that image() function will work correctly.
   if(transpose) h <- t(h)
   return(h)
}

Try the copBasic package in your browser

Any scripts or data that you put into this service are public.

copBasic documentation built on Oct. 17, 2023, 5:08 p.m.