Function wtelslr beta
wtestlr(cof, covar, rca, rsm, data)
the estimated long-run parameter by qardl
estimated covariance matrix
R matrix in the null hypothesis
r matrix in the null hypothesis
the same data set used for qardl
#'data(exampledata) hyp=hyptest(y~z1+z2,exampledata,maxlag=7,tau=c(0.25,0.5,0.75)) wlr=wtestlr(hyp$bigbt,hyp$lrvcov3, hyp$ca1,hyp$sm1,exampledata) wlr