[R] How to color certain area under curve

[Matthieu Dubois]

Just a small typo. I forgot a ) in the polygon function. 
The code must be: 
polygon(x = c(qrv[1], drv$x[select], qrv[2]), 
y = c(0, drv$y[select], 0), col='blue')