setMarginal<- | R Documentation |
Set the marginal distributions of the copula.
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. |
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.