set.seed(2)
v = runif(250)
w = runif(250)
u = 1/sqrt(1+(w^(-2/3)-1)/v^2) #Clayton with parameter 2
y = as.numeric(u>0.6) # if one takes (u<4), one obtains a rotation of the Clayton!
out = mlecop.disc(y,v,fmtcjders)
Run the code above in your browser using DataLab