setCopulaParam<- | R Documentation |
Set copula parameters.
setCopulaParam(this, ...) <- value ## S4 replacement method for signature 'CopulaObj,numeric' setCopulaParam(this) <- value
this |
Copula Object |
... |
Additional function arguments |
value |
The copula parameters |
library(cascsim) dist1<-new("Pareto",p1=20,p2=3) dist2<-new("Normal",p1=5,p2=3,min=0,max=20,truncated=TRUE) cop <- new("CopulaObj", param=c(0.5),marginal=list(dist1=dist1,dist2=dist2),dimension=2) setCopulaParam(cop) <- 0.6
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.