Bonjour, Ci dessous mon script pour afficher la figure. debits_modelises <- c(120,90,80,65,50,35,20) yi <- c(146,128,105,73.7,34.4,23,20.2) xi <- seq(0,length(yi)-1) absc_deb <- c(1.348193,2.479354,2.798400,3.221460,3.603515,3.984569,5.999857) chro <- data.frame(xi,yi,debits_modelises,absc_deb) chro...