Diptera                package:BSagri                R Documentation

_S_o_i_l _e_k_l_e_k_t_o_r _d_a_t_a _f_o_r _s_o_m_e _f_a_m_i_l_i_e_s _o_f _D_i_p_t_e_r_a

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

     Hatching of some families of Diptera was recorded in summer 2005
     using eklektors covering 2 square meters of soil surface each. A
     total of 32 eklektors were arranged in a randomized field trial.
     Total counts of individuals over the whole season are reported.
     Aim was to assess the impact of a novel treatment on the abundance
     of Diptera with larval development in the soil, compared to three
     standard treatments.

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

     data(Diptera)

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

     A data frame with 32 observations on the following 7 variables.

     '_C_a_l_l_i_p' a numeric vector

     '_C_h_l_o_r_o' a numeric vector

     '_E_p_h_y_d' a numeric vector

     '_D_r_o_s_o' a numeric vector

     '_G_e_s' a numeric vector, total number of species

     '_C_h_i_r_o' a numeric vector

     '_T_r_e_a_t_m_e_n_t' a factor, specifying the four different treatments,
          with levels 'S1' 'S2' for two standard treatments, 'SNovum'
          for the standard treatment most similar to the novel
          treatment, and 'Novum', for the novel treatment

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

     ...

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

     data(Diptera)

     dev.new(width=5, height=12)

     layout(matrix(1:6, nrow=6))
     par(mar=c(2,5,3,1))

     boxplot(Callip~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz Callip", col=c("white","white","blue","red"))

     boxplot(Chloro~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz Chloro", col=c("white","white","blue","red"))

     boxplot(Ephyd~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz Ephyd", col=c("white","white","blue","red"))

     boxplot(Droso~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz Droso", col=c("white","white","blue","red"))

     boxplot(Chiro~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz Chiro", col=c("white","white","blue","red"))

     boxplot(Ges~Treatment, data=Diptera, horizontal=TRUE, las=1,
      main="Abundanz all Diptera", col=c("white","white","blue","red"))

