chaetocnema {localdepth} | R Documentation |
The Chaetocnema dataset includes anatomical measures of 74 males of fleabeetles, of three different genera: Ch. Concinna (A, 21 cases), Ch. Heikertingeri (B, 31 cases) and Ch. Heptapotamica (C, 22 cases).
data(chaetocnema)
Data frame with 74 observations on the following 8 variables.
X10
X12
X14
X18
X40
X48
species
A
: Ch. Concinna, B
: Ch. Heikertingeri, C
: Ch. Heptapotamicaarea
A
: Environs of Uljianovsk, B
: Khvalynsk, the Volga, C
: Pern, D
: Environs of Leningrad, E
: the Ukraine, F
: Ashkhabd, Turkmenistan, G
: France, H
: Ustj-Zilma, I
: Gabra, Abkhazia, L
: Ussuri district, M
: Yakutsk district, N
: Khabarovsk, O
: Germany, P
: Environs of Lake Issyk-Kul, Kirghizia, Q
: Alma-ata, Kazachstan, R
: Environs of Frunza, KirghiziaThe aedeagus is the median lobe of the male genital capsule that is surrounded by the phallobase and through which the sperm duct traverses.
A.A. Lubischew (1962) On the use of discriminant functions in taxonomy. Biometrics, 18:4, 455–477.
Hand, D.J., et al. (1994) A Handbook of Small Data Sets, London: Chapman & Hall, 254-255.
The dataset is also present in lubisch
.
data(chaetocnema) lab <- chaetocnema[,7] chaetocnema <- chaetocnema[,4:5] set.seed(1234) chaetosd <- apply(chaetocnema, 2, sd) chaetocnema <- chaetocnema+cbind(rnorm(nrow(chaetocnema), 0, chaetosd[1]/100), rnorm(nrow(chaetocnema), 0, chaetosd[2]/100)) gx <- seq(min(chaetocnema[,1]), max(chaetocnema[,1]), length=60) gy <- seq(min(chaetocnema[,2]), max(chaetocnema[,2]), length=60) y <- as.matrix(expand.grid(gx, gy)) tauvolume <- quantile.localdepth(chaetocnema, probs=0.20, use='volume') system.time(depthcontours <- localdepth(x=chaetocnema, y=y, tau=tauvolume, use='volume', method='simplicial')) system.time(depthcontoursapprox <- localdepth(x=chaetocnema, y=y, tau=tauvolume, use='volume', method='simplicial', type='approx')) par(mfrow=c(2,2)) plot(chaetocnema, pch=as.character(lab), main='Exact Simplicial Depth') contour(x=gx, y=gy, z=matrix(depthcontours$depth/depthcontours$max.depth, nrow=length(gx), ncol=length(gy)), add=TRUE) plot(chaetocnema, pch=as.character(lab), main='Approx Simplicial Depth') contour(x=gx, y=gy, z=matrix(depthcontoursapprox$depth/depthcontoursapprox$max.depth, nrow=length(gx), ncol=length(gy)), add=TRUE) plot(chaetocnema, pch=as.character(lab), main='Exact Simplicial Local Depth, Tau=0.2') contour(x=gx, y=gy, z=matrix(depthcontours$localdepth/depthcontours$max.localdepth, nrow=length(gx), ncol=length(gy)), add=TRUE) plot(chaetocnema, pch=as.character(lab), main='Approx Simplicial Local Depth, Tau=0.2') contour(x=gx, y=gy, z=matrix(depthcontoursapprox$localdepth/depthcontoursapprox$max.localdepth, nrow=length(gx), ncol=length(gy)), add=TRUE)