# NOT RUN {
library(alR)
mu <- 2
sigma <- 3.5
GaussInt(mu, sigma, 0.025, 0.975, TRUE)
GaussInt(mu, sigma, -1.96, 1.96, FALSE)
GaussInt2(mu, sigma, c(0.025, 0.5), c(0.5, 0.975), TRUE)
GaussInt2(mu, sigma, c(-1.96, 0), c(0, 1.96), FALSE)
# }
Run the code above in your browser using DataLab