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)
Run the code above in your browser using DataLab