first_sample <- Canto_pesticides[1,] #this selects only the first row (sample)
LOR_treated_first_sample <- treat_LORs(sample_data = first_sample,
pesticide_info = CalcThemAll.PRM::pesticide_info, treatment_method = "Zero")
print(LOR_treated_first_sample)
Run the code above in your browser using DataLab