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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.