bmr_obj <- bootstrap_metaregression(oxybenzone, 15, 100)
slope_pod <- slope_pod_analysis(bmr_obj, 0.0001, 10, 0.1)
pod_and_threshold <- pod_envelope_analysis(bmr_obj, slope_pod,
slope_threshold = 10, min(oxybenzone$Concentration),
max(oxybenzone$Concentration), interval_size = 0.1)
Run the code above in your browser using DataLab