1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
### 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)
|
