e1<- rnorm(15);
e2<- rnorm(15);
temp1 <- pred_encompass_dnorm(e1,e2,mu0=0.2)
temp1$T1_d_alrv #normalised d statistics with Andrews quadratic kernel long-run variance
temp1$Pval_T1_d_alrv #P value of it
Run the code above in your browser using DataLab