Colours of Eyes and Hair of People in Caithness

Description

Data on the cross-classification of people in Caithness, Scotland, by eye and hair colour. The region of the UK is particularly interesting as there is a mixture of people of Nordic, Celtic and Anglo-Saxon origin.

Usage

caith

Format

A 4 by 5 table with rows the eye colours (blue, light, medium, dark) and columns the hair colours (fair, red, medium, dark, black).

Source

Fisher, R.A. (1940) The precision of discriminant functions. Annals of Eugenics (London) 10, 422–429.

References

Venables, W. N. and Ripley, B. D. (2002) Modern Applied Statistics with S. Fourth edition. Springer.

Examples

corresp(caith)
dimnames(caith)[[2]] <- c("F", "R", "M", "D", "B")
par(mfcol=c(1,3))
plot(corresp(caith, nf=2)); title("symmetric")
plot(corresp(caith, nf=2), type="rows"); title("rows")
plot(corresp(caith, nf=2), type="col"); title("columns")
par(mfrow=c(1,1))

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(MASS)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/MASS/caith.Rd_%03d_medium.png", width=480, height=480)
> ### Name: caith
> ### Title: Colours of Eyes and Hair of People in Caithness
> ### Aliases: caith
> ### Keywords: datasets
> 
> ### ** Examples
> 
> corresp(caith)
First canonical correlation(s): 0.4463684 

 Row scores:
       blue       light      medium        dark 
-0.89679252 -0.98731818  0.07530627  1.57434710 

 Column scores:
       fair         red      medium        dark       black 
-1.21871379 -0.52257500 -0.09414671  1.31888486  2.45176017 
> dimnames(caith)[[2]] <- c("F", "R", "M", "D", "B")
> par(mfcol=c(1,3))
> plot(corresp(caith, nf=2)); title("symmetric")
> plot(corresp(caith, nf=2), type="rows"); title("rows")
> plot(corresp(caith, nf=2), type="col"); title("columns")
> par(mfrow=c(1,1))
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>