La funzione smoothts() del package ast permette di “lisciare” una serie temporale in una varietà di modi attraverso l'impiego degli stessi stimatori visti per la funzione tsr().
Di seguito è riportato il grafico di una serie di “lisciamenti” della serie storica delle importazioni di energia:
> plot(xt,main="LISCIAMENTO DELLA SERIE STORICA")
> lines(smoothts(xt~lo(2,10)),col="red")
> lines(smoothts(xt~s(2)),col="blue")
> lines(smoothts(xt~p(2)),col="black")