R/internal.R

In poissonconsulting/eggdewater: What the Package Does (One Line, Title Case)

Defines functions set_na dot prop_qt

prop_qt <- function(prop) {
  prop <- 1 - (1 - prop) / 2
  stats::qt(prop, Inf)
}

dot <- function(x) paste0(".", x)

set_na <- function(x) {
  is.na(x) <- TRUE
  x
}