n <- 100
R <- matrix(c(1,0,0,0,0,
0,2,0,0,0,
0,0,2,0,0,
0,0,0,2,0,
0,0,0,0,1)/8, 5, 5, byrow = TRUE)
out <- spline.copula.simu(n, R = R)
fit <- spline.copula.MLE(out$U, out$V)
Run the code above in your browser using DataLab