### R lines used to create the front picture

## Loading the package 'drc'

library(drc)

## Fitting model

model1 <- multdrc(SLOPE~DOSE, CURVE, data=PestSci)

## Plotting data and fitted model

plotraw(PestSci, ylab="", xlab="", colour=TRUE)  # plotting raw data

plot(model1, ylab="", xlab="", colour=TRUE)  # plotting the fitted model