## Not run:
# x <- bgt.data[["LCONSEXPCO"]]
# # this requires CUDA capable GPU
# hegy.test(x, deterministic = c(1,1,1), lag.method = "fixed", maxlag = 1,
# pvalue = "bootstrap")
# # alternatively, full R non-parallel version
# res <- hegy.test(x, deterministic = c(1,1,1), lag.method = "fixed", maxlag = 1)
# hegy.boot.pval(x, res$fit, res$stat, deterministic = c(1,1,1),
# lag.method = "fixed", maxlag = 1, nb = 1000)## End(Not run)
Run the code above in your browser using DataLab