################################################################################
#
#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.