R/add_CI.R

In iAM-AMR/sawmill: Process Queries from the CEDAR Database

#' @title
#'   Fill in the confidence interval (CI) column
#'
#' @description
#'   \code{add_CI} fills in any blank cells in the confidence interval column
#'   with the assumed value of 95.
#'
#' @param timber
#'   a tibble of timber.
#'
#' @return
#'   A tibble of timber with a complete \emph{oddsci} column.
#'
#' @importFrom dplyr mutate if_else
#'
#' @export


add_CI <- function(timber) {
  dplyr::mutate(timber, oddsci = dplyr::if_else(is.na(oddsci), 95, oddsci))

  # Update 'sawmill_status'
  status <- "OK: OR and SE(log(OR)) calculated successfully."
  timber[, "sawmill_status"] <- status

  return(timber)
}