Canto_pesticides_LOR_treated <- treat_LORs_all_data(raw_data = Canto_pesticides,
pesticide_info = CalcThemAll.PRM::pesticide_info)
Canto_daily_PRM <- calculate_daily_average_PRM(LOR_treated_data = Canto_pesticides_LOR_treated)
Violet_Town_2017_2018_PRM <- Canto_daily_PRM %>%
dplyr::filter(.data$`Sampling Year` == "2017-2018" & .data$`Site Name` == "Violet Town")
plot_daily_PRM(Violet_Town_2017_2018_PRM, "2017-10-02", PRM_group = "Total PRM")
Run the code above in your browser using DataLab