bristle3                 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 3 recombinant isogenic
     lines of _Drosophila melanogaster_ (fruit flies).

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

     data(bristle3)

_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 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.

_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(bristle3)
     # Summaries
     summary(bristle3)
     plot(bristle3)

     # genome scan for each of the average phenotypes
     bristle3 <- calc.genoprob(bristle3, step=2)
     out <- vector("list", 4)
     for(i in 1:4) out[[i]] <- scanone(bristle3, 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])

