21 Gráfico de linhas descritivo

dose=rep(c(0,2,4,6,8,10),e=3,2)
resp=c(seq(1,18,1),seq(2,19,1))
fator=rep(c("A","B"),e=18)
line_plot(dose,resp,fator)