# \donttest{
# Load WWTP data first
wwtp_data <- load_builtin_wwtp("nitrogen", 2016)
# Classify nitrogen sources
classified_data <- wwtp_classify_sources(wwtp_data, "nitrogen")
table(classified_data$source_class)
# }
Run the code above in your browser using DataLab