(data "Antelopes"
:about "Normalized Frequencies of various Antelope Tribes in several South African Wildlife Areas (Greenacre, p 295). Data are appropriate for Correspondence Analysis."
:title "Normalized Frequencies of Antelope Tribes in South Afrika"
:variables '("ant" "alc" "hip" "red" "tra" "neo" "cep" "aep" "bov")
:labels '(
"Ngorongoro" "LakeTurkana" "Etosha" "Kalahari" "Serengeti" "Nairobi"
"Kafue" "Bicuar" "Luando" "Cuelei" "Hlhuluwe" "Mkuzi" "Wankie" "Quicama"
"Kruger" "Manyara")

;;Divide each row by the size of each wildlife area.
;;This is done by multiplying the diagonal matrix of area inverses times 
;;the matrix of data.  The data are then reformed into the reauired list
;;by using the combine and row-list functions.

:data (combine (row-list 
(matmult 
(diagonal (/'( 
360 2050 22270 36692 25500 122 91 7900 8280 4500 960 323 1330 9960 19084 93))) 
(matrix '(16 9) '(
  5000  13628     0  120   400    0    0      0    60
  1087   2023  1342    0     0    0    0      0     0
 12000   4600  4796    0  2500  820  250      0     0 
 24041  20556 16073    0  6569 1645  710      0     0
190000 455000  5000 5500  9500    0    0  65000 50000
   845   1348     0  105    78    6    2    633     0
     0    190    31  198    42   90   30      2    85
     0    500   500  150   450  350  500    150   100
     0      0  3000 2250   900  250 1100      0   150
     0    250   200 1600   750 1000  500      0     0
     0   3509     0 1009  3202    0   15   4894  2195
     0   1397     0   69   533    6    4   9394     0
     0   2630  2620 1250  5450 4000 2000   8000 13000
     0      0  1500 1500  5500    0 3500      0  8000
     0  10000  1400 4730 11124 5700 1300 153000 24200
     0      0     0   55    25    0    0    700  1500)
)))))
