Nothing
#' @keywords internal
abs.optmatch.dlist <- function (x)
{
rn1 <- attr(x, "row.names")
x <- x[unlist(as.logical(lapply(x, length)))]
value <- lapply(x, abs)
class(value) <- c('optmatch.dlist', 'list')
attr(value, "row.names") <- rn1
value
}
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.