## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(pubformat)

## -----------------------------------------------------------------------------
format_p(0.048)
format_p(0.0002)

## -----------------------------------------------------------------------------
format_p(0.001)
format_p(0.0009)

## -----------------------------------------------------------------------------
format_p(0.048, sig = TRUE)
format_p(0.006, sig = TRUE)
format_p(0.0002, sig = TRUE)

## -----------------------------------------------------------------------------
format_p(0.0499, sig = TRUE)

## -----------------------------------------------------------------------------
format_ci(1.08, 1.87)

## -----------------------------------------------------------------------------
format_ci(1.08, 1.87, level = 0.99)

## -----------------------------------------------------------------------------
format_ci(0.21, 0.48)

## -----------------------------------------------------------------------------
format_ci(0.21, 0.48, leading_zero = FALSE)

## -----------------------------------------------------------------------------
format_r(0.42)
format_r(-0.31)

## -----------------------------------------------------------------------------
format_cor(0.42, method = "pearson")
format_cor(0.42, method = "spearman")
format_cor(0.42, method = "kendall")

## -----------------------------------------------------------------------------
rho <- cor(
  mtcars$mpg,
  mtcars$wt,
  method = "spearman"
)

format_cor(rho, method = "spearman")

## -----------------------------------------------------------------------------
format_percent(0.423)

## -----------------------------------------------------------------------------
format_percent(42.3, input = "percent")

## -----------------------------------------------------------------------------
format_percent(0.42)
format_percent(42, input = "percent")

## -----------------------------------------------------------------------------
format_percent(c(0.25, 0.50, 0.75))

## -----------------------------------------------------------------------------
model <- lm(mpg ~ wt, data = mtcars)

summary(model)

## -----------------------------------------------------------------------------
p_value <- summary(model)$coefficients["wt", "Pr(>|t|)"]

p_value
format_p(p_value)

## -----------------------------------------------------------------------------
ci <- confint(model, "wt")

ci
format_ci(ci[1], ci[2])

## -----------------------------------------------------------------------------
r_value <- cor(mtcars$mpg, mtcars$wt)

r_value
format_r(r_value)

## -----------------------------------------------------------------------------
p_values <- c(0.032, 0.006, 0.0004, 0.213)

format_p(p_values)

## -----------------------------------------------------------------------------
correlations <- c(0.42, -0.31, 0.18)

format_r(correlations)

## -----------------------------------------------------------------------------
proportions <- c(0.24, 0.51, 0.83)

format_percent(proportions)

## -----------------------------------------------------------------------------
format_p(c(0.032, NA, 0.213))