EuclidFrontierFSATT <-
function(treatment, dataset, ratio, match.on){
distance.mat <- calculateEdist(dataset, treatment, match.on)
frontier <- distToFrontier(distance.mat)
dataset$matched.to <- frontier$matched.to
frontier$matched.to <- NULL
out <- list(
frontier = frontier,
treatment = treatment,
QOI = 'FSATT',
metric = 'Mahal',
ratio = ratio,
dataset = dataset,
match.on = match.on
)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.