## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  class.output = "output",
  class.message = "message"
)
library(EValue)

## -----------------------------------------------------------------------------
evalues.RR(est = 10.73, lo = 8.02, hi = 14.36)

## -----------------------------------------------------------------------------
bias_plot(10.73, xmax = 40)

## -----------------------------------------------------------------------------
bias_plot(8.02, xmax = 40)

## -----------------------------------------------------------------------------
# summary() used to print the E-value only
summary(evalues.RR(est = 2.5, true = 1.5))

## -----------------------------------------------------------------------------
evalues.OR(est = 3.9, lo = 1.8, hi = 8.7, rare = TRUE)

## -----------------------------------------------------------------------------
bias_plot(3.9, xmax = 20)

## -----------------------------------------------------------------------------
evalues.RR(est = 0.80, lo = 0.71, hi = 0.91)