R/CustomFrontierFSATT.R

In ChristopherLucas/MatchingFrontier: Computation of the Balance - Sample Size Frontier in Matching Methods for Causal Inference

CustomFrontierFSATT <-
function(treatment, dataset, ratio, match.on, 
         distance.mat){
    frontier <- distToFrontier(distance.mat)
    dataset$matched.to <- frontier$matched.to
    frontier$matched.to <- NULL
    out <- list(
        frontier = frontier,
        treatment = treatment,
        QOI = 'FSATT',
        metric = 'Custom',
        ratio = ratio,
        dataset = dataset,
        match.on = match.on
        )
    return(out)
}