Nothing
DataSimilarity <- function(X1, X2, method, ...) {
ds.fun <- match.fun(method)
arg.list <- as.list(match.call(expand.dots = TRUE))
arg.list <- arg.list[names(arg.list) != "method"][-1]
do.call(ds.fun, arg.list)
}
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.