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