data(videoVBR)
(fE <- FEXPest(videoVBR, order = 3, pvalmax = .5))
(fE3 <- FEXPest(videoVBR, order = 3, pvalmax = 1 ))
(fE7 <- FEXPest(videoVBR, order = 3, pvalmax = 0.10))
##--> this also choses order 2, as "FE" :
all.equal(fE $coef,
fE7$coef) # -> TRUE
confint(fE)
confint(fE7, level = 0.99)
.ffreq(8)
.ffreq(8, TRUE)
stopifnot(all.equal((1:3)/4,
.ffreq(8) / pi))
Run the code above in your browser using DataLab