chats {ade4} | R Documentation |
This data set is a contingency table of age classes and fecundity classes of cats Felis catus.
data(chats)
chats
is a data frame with 8 rows and 8 columns.\
The 8 rows are age classes (age1, ..., age8)\
The 8 columns are fecundity classes (f0, f12, f34, ..., fcd)\
The values are cats numbers (contingency table).
Legay, J.M. and Pontier, D. (1985) Relation ?ge-f?condit? dans les populations de Chats domestiques, Felis catus. Mammalia, 49, 395–402.
data(chats) chatsw <- as.table(t(chats)) chatscoa <- dudi.coa(data.frame(t(chats)), scann = FALSE) if(adegraphicsLoaded()) { g1 <- table.value(chatsw, ppoints.cex = 1.3, meanX = TRUE, ablineX = TRUE, plabel.cex = 1.5, plot = FALSE) g2 <- table.value(chatsw, ppoints.cex = 1.3, meanY = TRUE, ablineY = TRUE, plabel.cex = 1.5, plot = FALSE) g3 <- table.value(chatsw, ppoints.cex = 1.3, coordsx = chatscoa$c1[, 1], coordsy = chatscoa$l1[, 1], meanX = TRUE, ablineX = TRUE, plot = FALSE) g4 <- table.value(chatsw, ppoints.cex = 1.3, meanY = TRUE, ablineY = TRUE, coordsx = chatscoa$c1[, 1], coordsy = chatscoa$l1[, 1], plot = FALSE) G <- ADEgS(list(g1, g2, g3, g4), layout = c(2, 2)) } else { par(mfrow = c(2, 2)) table.cont(chatsw, abmean.x = TRUE, csi = 2, abline.x = TRUE, clabel.r = 1.5, clabel.c = 1.5) table.cont(chatsw, abmean.y = TRUE, csi = 2, abline.y = TRUE, clabel.r = 1.5, clabel.c = 1.5) table.cont(chatsw, x = chatscoa$c1[, 1], y = chatscoa$l1[, 1], abmean.x = TRUE, csi = 2, abline.x = TRUE, clabel.r = 1.5, clabel.c = 1.5) table.cont(chatsw, x = chatscoa$c1[, 1], y = chatscoa$l1[, 1], abmean.y = TRUE, csi = 2, abline.y = TRUE, clabel.r = 1.5, clabel.c = 1.5) par(mfrow = c(1, 1)) }