R/other_functions.R

In firthj/oneliners: Useful helper functions for linear equations.

get_y_function <- function(y, slope) {
  function(x) x * slope + y
}

get_x_intercept <- Vectorize(function(y, slope) {
  intercept <- (y * -1) / slope
  if (is.na(intercept)) {
    intercept <- NA_real_
  } else if (intercept == Inf) {
    intercept <- NA_real_
  }
  intercept
})