Road distances in New-Zealand

Description

This data set gives the road distances between 13 towns in New-Zealand.

Usage

data(zealand)

Format

zealand is a list of 3 components:

road

is a data frame with 13 rows (New Zealand towns) and 13 columns (New Zealand towns) containing the road distances between these towns.

xy

is a data frame containing the coordinates of the 13 towns.

neig

is a object of class 'neig', a neighbour graph to visualize the map shape.

Source

Manly, B.F. (1994) Multivariate Statistical Methods. A primer., Second edition, Chapman and Hall, London, 1–215, page 172.

Examples

data(zealand)

d0 = as.dist(as.matrix(zealand$road))
d1 = cailliez (d0)
d2 = lingoes(d0)
s.label(zealand$xy,lab=as.character(1:13),neig=zealand$neig)
par(mfrow = c(2,2))
    s.label(cmdscale(dist(zealand$xy)),lab = as.character(1:13),
     neig = zealand$neig, sub = "Distance canonique", csub = 2)
    s.label(cmdscale(d0), lab = as.character(1:13), neig = zealand$neig,
        sub = "Distance routiere", csub = 2)
    s.label(cmdscale(d1), lab = as.character(1:13), neig = zealand$neig,
        sub = "Distance routiere / Cailliez", csub = 2)
    s.label(cmdscale(d2), lab = as.character(1:13), neig = zealand$neig,
        sub = "Distance routiere / Lingoes", csub = 2)

Worked out examples

> library(ade4)
> ### Name: zealand
> ### Title: Road distances in New-Zealand
> ### Aliases: zealand
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(zealand)
> 
> d0 = as.dist(as.matrix(zealand$road))
> d1 = cailliez (d0)
> d2 = lingoes(d0)
> s.label(zealand$xy,lab=as.character(1:13),neig=zealand$neig)

> par(mfrow = c(2,2))
>     s.label(cmdscale(dist(zealand$xy)),lab = as.character(1:13),
+      neig = zealand$neig, sub = "Distance canonique", csub = 2)
>     s.label(cmdscale(d0), lab = as.character(1:13), neig = zealand$neig,
+         sub = "Distance routiere", csub = 2)
>     s.label(cmdscale(d1), lab = as.character(1:13), neig = zealand$neig,
+         sub = "Distance routiere / Cailliez", csub = 2)
>     s.label(cmdscale(d2), lab = as.character(1:13), neig = zealand$neig,
+         sub = "Distance routiere / Lingoes", csub = 2)

> 
> 
> 
>