profil final

> plot.new()
> plot.window(xlim=range(m2$distance),ylim=range(m2$elev))
 
# plot des segments de ligne, lwd = épaisseur des segments de ligne
> i = 0
> while(i <= length(res$distance)-1){
+  i = i + 1
+  segments(res$distance[i],res$elev[i],res$distance[i+1],res$elev[i+1],
+ col=rgb(res$r[i]/255,res$g[i]/255,res$b[i]/255),lwd=3)
+ }
> axis(1); axis(2); box();
> title(main="Profil géologie", xlab="Distance (m)", ylab="Elevation (m)")