R/getCutpointList.R

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

getCutpointList <-
function(dataset, base.form, covs){
    cutpoints <- lapply(covs, function(cov)
        getCutpoint(dataset, base.form, cov)
                        )
    names(cutpoints) <- covs
    return(cutpoints)
}