Cica2                 package:BSagri                 R Documentation

_C_a_t_c_h_e_s _o_f _P_l_a_n_t_h_o_p_p_e_r_s _a_n_d _L_e_a_f_h_o_p_p_e_r_s

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

     Data of a field trial concerning the impact of a genetically
     modified variety on the abundance of Planthoppers and Leafhoppers.
     The trial was designed as a randomized complete block design with
     8 blocks (Row). In each block, three treatments were randomized: a
     conventional variety treated with insecticides (Insecticide), a
     genetically modified variety (GM), and the near-isogenic line
     (Iso) the to genetically modified line. These data originate from
     the second year of the trial in Cica1.

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

     data(Cica2)

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

     A data frame with 24 observations on the following 8 variables.

     '_F_i_e_l_d' a factor with 2 levels, '1' '2', separating the two major
          sites of the trial. On field 1, the blocks 1-5 were situated,
          on field 2, blocks 6-8 were situated.

     '_R_o_w' a factor with 8 levels, specifying the blocks: 'R1' 'R2'
          'R3' 'R4' 'R5' 'R6' 'R7' 'R8'

     '_Y_e_a_r' a numeric vector, with value 2 for the second year 

     '_T_r_e_a_t_m_e_n_t' a factor with 3 levels, specifying the genetically
          modified variety 'GM', the conventional variety treated with
          insecticides 'Insecticide', and the variety that was
          near-isogenic to the GM variety 'Iso'

     '_A_u__B_o_n_i_t_u_r' counts of Auchenorryhncha by visual assessment

     '_Z_s__s_w_e_e_p__n_e_t_t_i_n_g' counts of the major species Zyginidia
          scutellaris, catched by sweep nets

     '_Z_s__y_e_l_l_o_w__t_r_a_p_s' counts of Zyginidia scutellaris, catched by
          yellow traps

     '_Z_s__s_t_i_c_k__t_r_a_p_s' counts of Zyginidia scutellaris, catched by
          sticky traps

_S_o_u_r_c_e:

     ...

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

     See 'Cica1' for data of the same trial a year earlier

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

     data(Cica2)

     # A comparison of the treatments:

     dev.new(width=12,height=4)
     layout(matrix(1:4,ncol=4))

     ylim<-range(Cica2[,c("Au_Bonitur","Zs_sweep_netting", "Zs_yellow_traps", "Zs_stick_traps")])

     boxplot(Au_Bonitur ~ Treatment, data=Cica2,
      main= "Aucherrhyncha, visual assessment", ylim=ylim, horizontal=TRUE, las=1)

     boxplot(Zs_sweep_netting ~ Treatment, data=Cica2,
      main="Z.scutellaris, sweep netting", ylim=ylim, horizontal=TRUE, las=1)

     boxplot(Zs_yellow_traps ~ Treatment, data=Cica2,
      main="Z.scutellaris, yellow traps", ylim=ylim, horizontal=TRUE, las=1)

     boxplot(Zs_stick_traps ~ Treatment, data=Cica2,
      main="Z.scutellaris, sticky traps", ylim=ylim, horizontal=TRUE, las=1)

     # A comparison of sampling methods:

     dev.new(width=10,height=10)

     pairs(Cica2[,c("Au_Bonitur","Zs_sweep_netting", "Zs_yellow_traps", "Zs_stick_traps")])

