# Pure epsilon-differential privacy with epsilon = 1
pure_dp <- epsdelta(1.0)
pure_dp
pure_dp() # View the skeleton points
# Approximate DP with epsilon = 1 and delta = 0.01
approx_dp <- epsdelta(1.0, 0.01)
approx_dp
# Evaluate at specific Type-I error rates
approx_dp(c(0.05, 0.1, 0.25, 0.5))
# Plot and compare different (epsilon, delta) configurations
fdp(epsdelta(0.5),
epsdelta(1.0),
epsdelta(1.0, 0.01))
# Compare with Gaussian DP
fdp(epsdelta(1.0),
epsdelta(1.0, 0.01),
gdp(1.0),
.legend = "Privacy Mechanism")
Run the code above in your browser using DataLab