tests/tdist.R

In adegraphics: An S4 Lattice-Based Package for the Representation of Multivariate Data

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)