# NOT RUN {
library(drc) #needed for ryegrass data set
ryegrass.dr4pl <- dr4pl(rootl ~ conc, data = ryegrass)
print(summary(ryegrass.dr4pl))
obj.dr4pl <- dr4pl(Response ~ Dose, data = sample_data_7)
print(summary(obj.dr4pl))
# }
Run the code above in your browser using DataLab