raw.data<-rCMS(copulas=c(copClayton,copGumbel),
margins=c(marginLnorm,marginFrechet),
classes=c(rep(1,4),rep(2,4)),
params=c(0.5,1,1.5,1.7),n=50)
data<-excess.censor(raw.data)
d<-excess.l(data,params=c(0.5,1,1.5,1.7),
category="copula",
copulas=c(copClayton,copGumbel),
margins=c(marginLnorm,marginFrechet),
classes=c(rep(1,4),rep(2,4)))
Run the code above in your browser using DataLab