## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = requireNamespace("emmeans", quietly = TRUE)
)

## ----setup--------------------------------------------------------------------
library(fcrci)
library(emmeans)

fit <- lm(weight ~ feed, data = chickwts)
prs <- pairs(emmeans(fit, ~ feed), adjust = "fdr")

## -----------------------------------------------------------------------------
test(prs)

## -----------------------------------------------------------------------------
confint(prs)

## -----------------------------------------------------------------------------
res <- confint_fcr(prs)
res

## -----------------------------------------------------------------------------
fcr_info(res)

## -----------------------------------------------------------------------------
fit2 <- lm(log(conc) ~ source * factor(percent), data = pigs)
prs2 <- pairs(emmeans(fit2, ~ source | percent), adjust = "fdr")
res2 <- confint_fcr(prs2, type = "response")
res2

## -----------------------------------------------------------------------------
fcr_info(res2)

## -----------------------------------------------------------------------------
fcr_info(confint_fcr(prs2, type = "response", by = NULL))

## -----------------------------------------------------------------------------
fcr_info(confint_fcr(prs, method = "BY"))

## -----------------------------------------------------------------------------
p <- c(0.0004, 0.003, 0.012, 0.04, 0.21, 0.67)
fcr_level(p, q = 0.05)