# As the function takes long long time to be executed, we show in in don't run environement
if (FALSE) {
data(zeroyld)
#can be useful to check whether the bootstrap is working:
#without sampling, results of boot should be same as original
#this is indeed not always the case duye to floating point algorithm
TVECM.SeoTest(zeroyld,lag=2, beta=1, trim=0.1,nboot=2, plot=FALSE,check=TRUE)
#then run the function:
TVECM.SeoTest(zeroyld,lag=2, beta=1, trim=0.1,nboot=100, plot=FALSE,check=FALSE)
}
Run the code above in your browser using DataLab