Nothing
getBins <-
function(dataset, treatment, match.on, breaks){
gs <- getL1Strata(treatment, dataset, match.on, breaks=breaks)
strata <- gs$strata
mycut <- gs$mycut
names(strata) <- dataset[,which(colnames(dataset) == treatment)]
unique.strata <- unique(strata)
strataholder <- list()
for(i in 1:length(unique.strata)){
strataholder[[i]] <- which(strata==unique.strata[i])
}
return(strataholder)
}
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.