# Load the data
data <- lead_crime
# Solve by the separable algorithm
solution <- binary_thresh_attribute(data$log_lead, data$complain, data$matched_sets,
gamma = 0, thresh = log(3.5), a = 5, trans = identity)
Run the code above in your browser using DataLab