Nothing

```
matdistl2d <-
function(x, method = "gaussiand", varwL = NULL) {
if (is.data.frame(x))
stop("matdistl2d now applies to an object of class 'folder'.\nNotice that for versions earlier than 3.1, matdistl2d apply to a data frame'.")
if (!is.folder(x))
stop("x must be an object of class 'folder'.")
if (any(!apply(x[[1]], 2, is.numeric)))
stop("Non numeric column(s) in the data frames in x.")
# Computing of the inner products
W = diag(0, nrow = length(x))
dimnames(W) = list(names(x), names(x))
W = matipl2d(x, method = method, varwL = varwL)
# Computing of the distances
distances = diag(0, nrow = length(x))
dimnames(distances) = list(names(x), names(x))
for (i in 2:length(x)) for (j in 1:(i-1)) {
distances[i, j] = distances[j, i] = sqrt( W[i, i] + W[j, j] - 2 * W[i, j] )
}
as.dist(distances)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.