/usr/share/doc/r-cran-adegraphics/tests/tdist.R is in r-cran-adegraphics 1.0-6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | library(adegraphics)
pdf("tdist.pdf")
## ex1
data(eurodist)
g1 <- table.value(eurodist)
g2 <- table.value(eurodist, ptable.margin = list(b = 17, t = 17, l = 17, r = 17))
g3 <- table.value(eurodist, ptable.x = list(pos = "bottom"),
ptable.margin = list(b = 17, t = 17, l = 17, r = 17))
## ex2
d <- as.dist(matrix(rep(1:5, 5), 5), upper = TRUE)
attr(d, "Labels") <- c ("A", "B", "C", "D", "E")
g4 <- table.value(d)
## ex3
data(irishdata, package = "ade4")
d.geo <- dist(irishdata$xy.utm)
g5 <- table.value(d.geo)
|