# NOT RUN {
x <- rnorm(100)
y <- pnorm(x)
kappa4IntApprox(x, y, 0.025, 0.975, TRUE)
kappa4IntApprox(x, y, -1.96, 1.96, FALSE)
kappa4IntApprox2(x, y, c(0.025, 0.5), c(0.5, 0.975), TRUE)
kappa4IntApprox2(x, y, c(-1.96, 0), c(0, 1.96), FALSE)
# }
Run the code above in your browser using DataLab