[R-br] Preencher área entre duas linhas

Olá! Segue um exemplo hipotético: #=========================================== x<-1:5 set.seed(4) y0<-sample(x) set.seed(2) y1<-sample(x)+5 matplot(x,data.frame(y0,y1),pch = c(0,1),col = c(1,1),las=1) xspline(x,y0,-0.5) xspline(x,y1,-0.5) #=============================================== Como preencher com cor entre as linhas suavizadas? Obs: a função polygon() não gera o resultado pretendido, pois une os pontos com linhas retas. Att., Delcio Bortolanza.