data <- data.frame(city = c("NYC", "LA", "NYC", "LA"),
income = c(50000, 60000, 70000, 80000))
data %>% dp_mean("income", epsilon = 0.1, lower = 0, upper = 200000, group_by = "city")
Run the code above in your browser using DataLab