dose <- c(20,30,40,45,60)
dragA <- c(16,20,27,40,60)
dragB <- c(15,18,25,31,40)
plot(dose,dragA,type="b")
plot(dose,dragB,type="b")
opar <- par(no.readonly = TRUE)
par(lty=2, pch=17)
plot(dose,dragA, type = "b")
plot(dose, dragA, type="b", lty=2,pch=19)
plot(dose