# Load the data
data <- lead_crime
# Make a threshold at log(3.5) transformation function.
above = function(Z) { return(Z > log(3.5)) }
# Conduct randomization test.
solution <- dose_sensitivity_mc_gen(data$log_lead, data$complain, data$matched_sets,
mc = 250, gamma = 0, trans = above)
Run the code above in your browser using DataLab