Nothing
"sectionCOP" <-
function(f, cop=NULL, para=NULL, wrtV=FALSE, dercop=FALSE, delt=0.005,
ploton=TRUE, lines=TRUE, xlab="NONEXCEEDANCE PROBABILITY", ...) {
if(wrtV) {
#message("Triggering Horizontal Section logic: v = constant")
txt <- "horizontal section"
} else {
#message("Triggering Vertical Section logic: u = constant")
txt <- "vertical section"
}
if(ploton) plot(c(0,1), c(0,1), type="n", xlab=xlab, ...)
TT <- seq(0+delt, 1-delt, delt)
C <- vector(mode="numeric", length=length(TT))
if(dercop) {
C <- sapply(TT, function(x) {
ifelse(wrtV, return( derCOP2(x,f, cop=cop, para=para) ),
return( derCOP(f,x, cop=cop, para=para) )) } )
} else {
C <- sapply(TT, function(x) {
ifelse(wrtV, return( cop(x,f, para=para) ),
return( cop(f,x, para=para) )) } )
}
if(lines & ! is.null(dev.list())) lines(TT, C, ...)
return(list(t=TT, seccop=C, wrt=txt, fvalue=f, isderivative=dercop))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.