R/rrfv.R

In ejanalysis/ejanalysis: Tools for Environmental Justice (EJ) Analysis

#' @title Vectorized version of rrf (relative risk) - **not tested, possibly obsolete
#'
#' @description Probably obsolete given [RR()]. Provides Relative Risk (RR) by demographic group by indicator based on Census data
#'   Inputs are vectors over small places like Census blocks or block groups
#'   or possibly individuals (ideally) but then d would be a dummy=1 for selected group and 0 for people not in selected group.
#'   For one environmental indicator, multiple demographic groups.
#'
#' @param e Environmental indicator vector, one per place, required.
#'   e is environmental index or health risk level (e.g., PM2.5 concentration to which this person or place is exposed)
#' @param d Demographic indicator vector (not matrix/df?), required, one per place, fraction of population that is in group of interest
#'   d is percent of place that is selected demog group (e.g. percent Hispanic) (or d=1 or 0 if this is a vector of individuals)
#' @param pop Population total per place, required, of which d is a fraction.
#'   pop is population count of place (or pop=1 if this is a vector of individuals)
#' @param na.rm Logical optional TRUE by default in which case NA values (missing values) are removed first. If FALSE, any NA value in pop, e, or d would make result NA.
#' @return Returns numeric vector if one demographic group? ** check
#' @seealso [RR()]
#' @examples #
#'  # rrfv(places$pm, places[ , unlist(Dlist)],  places$pop)
#' @export
rrfv <- Vectorize(rrf, vectorize.args=c("d"))