Data from bristle number in chromosome X recombinant isogenic lines of Drosophila melanogaster.
An object of class
There are 92 chromosome X recombinant isogenic lines, derived from inbred lines that were selected for low (A) and high (B) abdominal bristle numbers. A recombinant chromosome X 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 17 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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14
data(bristleX) # Summaries summary(bristleX) plot(bristleX) # genome scan for each of the average phenotypes bristleX <- calc.genoprob(bristleX, step=2) out <- scanone(bristleX, 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")