Data on bristle number in Drosophila
Data from bristle number in chromosome 3 recombinant isogenic lines of Drosophila melanogaster.
data(bristle3)
An object of class cross. See read.cross
for details.
There are 66 chromosome 3 recombinant isogenic lines, derived from inbred lines that were selected for low (A) and high (B) abdominal bristle numbers. A recombinant chromosome 3 was placed in an isogenic low background.
There are eight phenotypes: the average and SD of the number of abdominal and sternopleural bristles in males and females for each line.
Each line is typed at 29 genetic markers on chromosome 3.
Long, A. D., Mullaney, S. L., Reid, L. A., Fry, J. D., Langley, C. H. and MacKay, T. F. C. (1995) High resolution mapping of genetic factors affecting abdominal bristle number in Drosophila melanogaster. Genetics 139, 1273–1291.
data(bristle3)
# Summaries
summary(bristle3)
plot(bristle3)
# genome scan for each of the average phenotypes
bristle3 <- calc.genoprob(bristle3, step=2)
out <- scanone(bristle3, pheno.col=c(1,3,5,7))
# Plot the results
# maximum LOD score among four phenotypes
ym <- max(apply(out[,-(1:2)], 2, max))
plot(out, lod=1:3, ylim=c(0,ym))
plot(out, lod=4, add=TRUE, col="green")Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.