Description Usage Arguments Examples
Set the marginal distributions of the copula.
1 2 3 4 | setMarginal(this, ...) <- value
## S4 replacement method for signature 'CopulaObj,list'
setMarginal(this) <- value
|
this |
Copula Object |
... |
Additional function arguments |
value |
The list of marginal distributions. |
1 2 3 4 5 6 7 | 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)
dist3<-new("Pareto",p1=10,p2=3)
dist4<-new("Normal",p1=2,p2=3,min=0,max=20,truncated=TRUE)
setMarginal(cop) <- list(dist1=dist3,dist2=dist4)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.