### R code from vignette source 'overview.Rnw'

###################################################
### code chunk number 1: preliminaries
###################################################
library(proxy)
x <- summary(pr_DB, "long")
FUN <- function(index) {
    for (i in which(index)) {
        writeLines(sprintf("Aliases: %s", paste(x$names[[i]], collapse = ", ")))
        writeLines(sprintf("Type   : %s", x$type[i]))
        writeLines(sprintf("Formula: %s\n", x$formula[i]))
    }
}


###################################################
### code chunk number 2: overview.Rnw:24-25
###################################################
FUN(x$distance == FALSE)


###################################################
### code chunk number 3: overview.Rnw:29-30
###################################################
FUN(x$distance == TRUE)