[R-br] Preencher área entre duas linhas

[Delcio Rudinei Bortolanza]

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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20171016/4204cdba/attachment.html>