gumbel.cop <- gumbelCopula(3, dim=2)
myMvd <- mvdc(gumbel.cop, c("exp","exp"), list(list(rate=2),list(rate=4)))
x <- rmvdc(myMvd, 1000)
fit <- fitMvdc(x, myMvd, c(1,1,2))
fit
#### Roger Koenker prepared a demo illustrating MLE for a Clayton AR(1)
#### copula model with identical, user-defined Student marginals
## demo("QARClayton")
Run the code above in your browser using DataLab