This is 29 male and 30 female gorillas' skull landmark data where each individual is represented as 8-ad/landmarks in 2 dimensions. This is a re-arranged version of the data from shapes package.
Usage
data(gorilla)Format
a named list containing
- male
a 3d array of size \((8\times 2\times 29)\)
- female
a 3d array of size \((8\times 2\times 30)\)
References
Dryden IL, Mardia KV (2016). Statistical shape analysis with applications in R, Wiley series in probability and statistics, Second edition edition. John Wiley \& Sons, Chichester, UK ; Hoboken, NJ. ISBN 978-1-119-07251-5 978-1-119-07250-8.
Reno PL, Meindl RS, McCollum MA, Lovejoy CO (2003). "Sexual dimorphism in Australopithecus afarensis was similar to that of modern humans." Proceedings of the National Academy of Sciences, 100(16):9404–9409.
Examples
data(gorilla) # load the data
riem.female = wrap.landmark(gorilla$female) # wrap as RIEMOBJ
opar <- par(no.readonly=TRUE)
for (i in 1:30){
if (i < 2){
plot(riem.female$data[[i]], cex=0.5,
xlim=c(-1,1)/2, ylim=c(-2,2)/5,
main="30 female gorilla skull preshapes",
xlab="dimension 1", ylab="dimension 2")
lines(riem.female$data[[i]])
} else {
points(riem.female$data[[i]], cex=0.5)
lines(riem.female$data[[i]])
}
}
par(opar)