Nothing
L1FrontierSATT <-
function(treatment, outcome, dataset, breaks, match.on){
cat("Calculating L1 binnings...\n")
binnings <- getBins(dataset, treatment, match.on, breaks)
cat("Calculating L1 frontier... This may take a few minutes...\n")
frontier <- binsToFrontier(binnings)
out <- list(
frontier = frontier,
cuts = binnings$cuts,
treatment = treatment,
outcome = outcome,
QOI = 'SATT',
metric = 'L1',
ratio = 'fixed',
dataset = dataset,
match.on = match.on
)
return(out)
}
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.