data(volumes)
permest_out<-permest(t(volumes),24, 0.05, NaN,'volumes', pp=0)
xd=permest_out$xd
dev.set(which=1)
predictperYW(xd,24,2,NaN,2)
data(volumes.sep)
dev.set(which=1)
predseries(volumes.sep,t(volumes),24,2)Run the code above in your browser using DataLab