# \donttest{
# Load and process data first
nugis_data <- load_builtin_nugis("county", 2016)
processed_data <- agri_process_nugis(nugis_data, "county")
cropland_threshold <- 500 * 2.47105 # 500 ha in acres
# Standard analysis with default 1.0 efficiency (100%)
results_default <- agri_classify_phosphorus_custom(
processed_data, cropland_threshold = cropland_threshold, p_efficiency = 1.0
)
# Analysis with reduced efficiency (e.g., accounting for losses)
results_reduced <- agri_classify_phosphorus_custom(
processed_data, cropland_threshold = cropland_threshold, p_efficiency = 0.8
)
# Conservative analysis with lower efficiency
results_conservative <- agri_classify_phosphorus_custom(
processed_data, cropland_threshold = cropland_threshold, p_efficiency = 0.6
)
# Compare classification changes across efficiency scenarios
table(results_default$P_class)
table(results_reduced$P_class)
table(results_conservative$P_class)
# }
Run the code above in your browser using DataLab