## FDG copula with 'exponential' generators
myExpo <- FDGcopula("exponential", 1:4)
ltdcFDG(myExpo)
## FDG copula with Cuadras-Auge generators
myCA <- FDGcopula("cuadrasauge", c(.3,.5,.7,.9))
ltdcFDG(myCA) # lower tail independent
Run the code above in your browser using DataLab