chickwts                package:base                R Documentation

_C_h_i_c_k_e_n _W_e_i_g_h_t_s _b_y _F_e_e_d _T_y_p_e

_D_e_s_c_r_i_p_t_i_o_n:

     An experiment was conducted to measure and compare the
     effectiveness of various feed supplements on the growth rate of
     chickens.

_U_s_a_g_e:

     data(chickwts)

_F_o_r_m_a_t:

     A data frame with 71 observations on 2 variables.

     _w_e_i_g_h_t a numeric variable giving the chick weight.

     _f_e_e_d a factor giving the feed type.

_D_e_t_a_i_l_s:

     Newly hatched chicks were randomly allocated into six groups, and
     each group was given a different feed supplement.  Their weights
     in grams after six weeks are given along with feed types.

_S_o_u_r_c_e:

     Anonymous (1948) _Biometrika_, *35*, 214.

_R_e_f_e_r_e_n_c_e_s:

     McNeil, D. R. (1977) _Interactive Data Analysis_. New York: Wiley.

_E_x_a_m_p_l_e_s:

     data(chickwts)
     boxplot(weight ~ feed, data = chickwts, col = "lightgray",
         varwidth = TRUE, notch = TRUE, main = "chickwt data",
         ylab = "Weight at six weeks (gm)")
     anova(fm1 <- lm(weight ~ feed, data = chickwts))
     opar <- par(mfrow = c(2, 2), oma = c(0, 0, 1.1, 0),
                 mar = c(4.1, 4.1, 2.1, 1.1))
     plot(fm1)
     par(opar)

