if (FALSE) {
# Validate no-DK model recovery
results <- validate_recovery(
c(gg = 0.35, gk = 0.30, kk = 0.35, gamma = 0.25),
n = 500, n_sims = 50
)
print(results)
# Validate DK model recovery
results_dk <- validate_recovery(
c(
gg = 0.25, gk = 0.15, gd = 0.10, kk = 0.20,
dg = 0.10, dk = 0.10, dd = 0.10, gamma = 0.25
),
n = 500, n_sims = 50
)
}
Run the code above in your browser using DataLab