## 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)
#estvec=c(estimators$phi[,1],estimators$phi[,2],estimators$del)
#loglikec(estvec,xd,c(24,2,0,0))Run the code above in your browser using DataLab