# NOT RUN {
theta <- seq(-0.99, 0.99, by = 0.01)
y <- fisherz(theta)
# }
# NOT RUN {
plot(theta, y, type = "l", las = 1, ylab = "",
main = "fisherz(theta)", col = "blue")
abline(v = (-1):1, h = 0, lty = 2, col = "gray")
# }
# NOT RUN {
x <- c(seq(-1.02, -0.98, by = 0.01), seq(0.97, 1.02, by = 0.01))
fisherz(x) # Has NAs
fisherz(x, bminvalue = -1 + .Machine$double.eps,
bmaxvalue = 1 - .Machine$double.eps) # Has no NAs
# }
Run the code above in your browser using DataLab