## Do not run
## It could take a few seconds
#data(volumes)
#pmean<-permest(t(volumes),24, 0.05, NaN,'volumes', pp=0)
#xd=pmean$xd
#estimators<-perYW(volumes,24,2,NaN)
#parmaresid(xd, 0, estimators$del, estimators$phi)Run the code above in your browser using DataLab