-
Notifications
You must be signed in to change notification settings - Fork 2
Open
Description
The following works, but it could be directly integrated in the plot method.
This means that we would add one more dependency...
N = 300
Z = runif(n = N, min = 0, max = 1)
conditionalTau = -0.9 + 1.8 * Z
simCopula = VineCopula::BiCopSim(N=N , family = 1,
par = VineCopula::BiCopTau2Par(1 , conditionalTau ))
X1 = qnorm(simCopula[,1])
X2 = qnorm(simCopula[,2])
result = simpA.kendallReg(X1, X2, Z, h_kernel = 0.03)
plot(result) |>
ggplot() +
geom_line(aes(x = z, y = est_CKT_reg)) +
geom_ribbon(aes(x = z, ymin = est_CKT_reg_q025, ymax = est_CKT_reg_q975), alpha = 0.5)Reactions are currently unavailable
Metadata
Metadata
Assignees
Labels
No labels