# 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 using normal approximation.
solution <- normal_test_gen(data$log_lead, data$complain, data$matched_sets,
gamma = 0, trans = above)
Run the code above in your browser using DataLab