bristleX                 package:qtl                 R Documentation

_D_a_t_a _o_n _b_r_i_s_t_l_e _n_u_m_b_e_r _i_n _D_r_o_s_o_p_h_i_l_a

_D_e_s_c_r_i_p_t_i_o_n:

     Data from bristle number in chromosome X recombinant isogenic
     lines of _Drosophila melanogaster_ (fruit flies).

_U_s_a_g_e:

     data(bristleX)

_F_o_r_m_a_t:

     An object of class 'cross'.  See 'read.cross' for details.

_D_e_t_a_i_l_s:

     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.

_R_e_f_e_r_e_n_c_e_s:

     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.

_S_e_e _A_l_s_o:

     'bristleX', 'listeria', 'fake.bc', 'fake.f2', 'fake.4way', 'hyper'

_E_x_a_m_p_l_e_s:

     data(bristleX)
     # Summaries
     summary(bristleX)
     plot(bristleX)

     # genome scan for each of the average phenotypes
     bristleX <- calc.genoprob(bristleX, step=2)
     out <- vector("list", 4)
     for(i in 1:4) out[[i]] <- scanone(bristleX, pheno.col=2*i-1)

     # Plot the results
         # maximum LOD score among four phenotypes    
     ym <- max(sapply(out, function(a) max(a[,3])))
     plot(out[[1]], ylim=c(0,ym))
     for(i in 2:4) plot(out[[i]], add=TRUE, col=c("blue","red","green")[i-1])

