Nothing
#' @title Combine point estimates of PAF from different subpopulations
#'
#' @description Function for fast-computing an overall \code{\link{paf}}
#' from subpopulation \code{\link{paf}}s.
#'
#' @details The subpopulations considered should not contain common elements.
#'
#' @param paf_vector Vector containing \code{\link{paf}}s of each specific
#' subpopulation.
#'
#' @param proportions Vector establishing the proportion of individuals in each
#' subpopulation.
#'
#' @return overall_paf An overall point-estimate of \code{\link{paf}} combining all
#' subpopulations.
#'
#' @author Rodrigo Zepeda-Tello \email{rzepeda17@gmail.com}
#' @author Dalia Camacho-GarcĂa-FormentĂ \email{daliaf172@gmail.com}
#'
#' @seealso \code{\link{paf}} for Population Attributable Fraction estimation,
#' \code{\link{pif}} for Potential Impact Fraction estimation, and
#' \code{\link{pif.combine}} for combining several PIF.
#'
#' @examples
#'
#' #Example 1
#' #-------------
#'
#' #Estimate PAF for each subpopulation
#' pafmen <- paf(X = data.frame(2.7), thetahat = 0.12,
#' rr = function(X, theta){X*theta + 1},
#' Xvar = 0.11, method = "approximate")
#' pafwomen <- paf(X = data.frame(3.1), thetahat = 0.12,
#' rr = function(X, theta){exp(X*theta/3)},
#' Xvar = 0.17, method = "approximate")
#'
#' #Combine estimates
#' paf.combine(c(pafmen, pafwomen), c(0.45, 0.55))
#'
#'
#' @export
paf.combine <- function(paf_vector, proportions){
pif.combine(paf_vector, paf_vector, proportions)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.