Nothing
which_max <- function(x, tolerance = .Machine$double.eps^0.5) {
which(abs(max(x) - x) < tolerance)
}
#' @importFrom utils installed.packages
is_installed <- function(pkg) {
pkg %in% rownames(installed.packages())
}
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.