data <- data.frame(age = c(25, 30, 35, 40), income = c(50000, 60000, 70000, 80000))
private_data <- data %>%
dp_add_noise(
columns = c("age", "income"),
epsilon = 0.1,
lower = c(age = 0, income = 0),
upper = c(age = 100, income = 200000)
)
Run the code above in your browser using DataLab