R/bootClassic.R

In validmeasures/bbw: Blocked Weighted Bootstrap

################################################################################
#
#' Simple proportion statistics function for bootstrap estimation
#'
#' @param x A data frame with **primary sampling unit (PSU)** in column named
#'   `psu` and with data column/s containing the binary variable/s (0/1) of
#'   interest with column names corresponding to `params` values
#' @param params A vector of column names corresponding to the binary variables
#'   of interest contained in `x`
#'
#' @return A numeric vector of the mean of each binary variable of interest with
#'   length equal to `length(params)`
#'
#' @examples
#' # Example call to bootClassic function
#'
#' meanResults <- bootClassic(x = indicatorsHH,
#'                            params = "anc1")
#'
#' @export
#'
#
################################################################################

bootClassic <- function(x, params) {
  result <- vector(mode = "numeric", length = length(params))
  for(i in seq_len(length(params))) {
    result[i]  <- mean(x[[params[i]]], na.rm = TRUE)
  }
  return(result)
}