# NOT RUN {
y = c(rep(1,200),rep(0,200))
x = rnorm(400)
calibration = calibrate_test(y,rep=1000)
es = aziz.test(y,x,rep=0)$es #No need for permutations, p-values computed from calibration
get_calibrated_pvalues(calibration,es)
x[1:20]=x[1:20]-2;
es2 = aziz.test(y,x,rep=0)$es
get_calibrated_pvalues(calibration,es2)
# }
Run the code above in your browser using DataLab