library(rbenchmark)
# compare logit to qlogis
p <- runif(1e5)
identical(logit(p), qlogis(p))
if (FALSE) {
rbenchmark::benchmark(logit(p), qlogis(p))
}
# compare invlogit to plogis
x <- runif(1e5, -1000, 1000)
identical(invlogit(x), plogis(x))
if (FALSE) {
rbenchmark::benchmark(invlogit(x), plogis(x))
}
Run the code above in your browser using DataLab