F2 <- onacopula("F", C(1.9, 1, C(4.5, c(2,3))))
F2
F3 <- onacopula("Clayton", C(1.5, 3:1,
C(2.5, 4:5,
C(15, 9:6))))
nesdepth(F2) # 2
nesdepth(F3) # 3
Run the code above in your browser using DataLab