# NOT RUN {
ryegrass.dr4pl <- dr4pl(Response ~ Dose,
data = sample_data_1)
print(ryegrass.dr4pl)
obj.dr4pl <- dr4pl(Response ~ Dose, data = sample_data_5)
print(obj.dr4pl)
# }
Run the code above in your browser using DataLab