R/calc.R

In alhenry/publisheR: What the Package Does (One Line, Title Case)

#' @title calc
#'
#' @description Simple calculator for transforming summary stats
#' @param OR odds ratio
#' @param UCI upper confidence interval
#' @param beta beta / log(odds ratio)
#' @param se standard error
#' @export
#' @examples
#' calc_se()
calc_se <- function(OR, UCI){
  beta <- log(OR)
  logUCI <- log(UCI)
  se <- (logUCI - beta) / qnorm(0.975)
  return (se)
}

calc_P <- function(beta, se){
  Z <- beta / se
  P <- 2*pnorm(-abs(Z))
  return(P)
}