Nothing
`bivd` <-
function(cop, marginX = "unif", marginY = marginX,
param.marginX = c(0,1),
param.marginY = param.marginX) {
yyy <- class(cop)
cl <- substring(yyy,1,nchar(yyy) - 7)
val <- new( paste(cl,"bivd",sep = "."), copula = cop, Xmarg = marginX, Ymarg = marginY,
param.Xmarg = param.marginX ,
param.Ymarg = param.marginY)
val
}
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.