setMarginal<- {cascsim}

Set the marginal distributions of the copula.

Description

Set the marginal distributions of the copula.

Usage

setMarginal(this, ...) <- value

## S4 replacement method for signature 'CopulaObj,list'
setMarginal(this) <- value

Arguments

this

Copula Object

...

Additional function arguments

value

The list of marginal distributions.

Examples

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)