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.