raw.data<-rCMS(copulas=c(copClayton,copGumbel),
margins=c(marginLnorm,marginFrechet),
classes=c(rep(1,3),rep(2,3)),
params=c(0.5,1,1.5,1.7),n=20)
data<-maxblocks(raw.data,n.blocks=3)
d<-simultoccur.l(data$normalized.max,occur=data$classes.max,
params=c(0.5,1,1.5,1.7),
category="copula",
copulas=c(copClayton,copGumbel),
margins=c(marginLnorm,marginFrechet),
classes=c(rep(1,3),rep(2,3)))
Run the code above in your browser using DataLab