cfseal                 package:DAAG                 R Documentation

_C_a_p_e _F_u_r _S_e_a_l _D_a_t_a

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

     The `cfseal' data frame has 30 rows and 11 columns consisting of
     weight measurements for various organs taken from 30 Cape Fur
     Seals that died as an unintended consequence of commercial
     fishing.

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

     data(cfseal)

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

     This data frame contains the following columns:

     _a_g_e a numeric vector

     _w_e_i_g_h_t a numeric vector

     _h_e_a_r_t a numeric vector

     _l_u_n_g a numeric vector

     _l_i_v_e_r a numeric vector

     _s_p_l_e_e_n a numeric vector

     _s_t_o_m_a_c_h a numeric vector

     _l_e_f_t_k_i_d a numeric vector

     _r_i_g_h_t_k_i_d a numeric vector

     _k_i_d_n_e_y a numeric vector

     _i_n_t_e_s_t_i_n_e_s a numeric vector

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

     Stewardson, C.L., Hemsley, S., Meyer, M.A., Canfield, P.J. and
     Maindonald, J.H. 1999.  Gross and microscopic visceral anatomy of
     the male Cape fur seal, Arctocephalus pusillus pusillus
     (Pinnepedia: Otariidae), with reference to organ size and growth.
     Journal of Anatomy (Cambridge) 195: 235-255.  (WWF project ZA-348)

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

     data(cfseal)
     print("Allometric Growth - Example 5.7")

     cfseal.lm <- lm(log(heart) ~ log(weight), data=cfseal); summary(cfseal.lm)
     plot(log(heart) ~ log(weight), data = cfseal, pch=16, xlab = "Heart Weight (g, log scale)", 
     ylab = "Body weight (kg, log scale)", axes=FALSE)
     heartaxis <- 100*(2^seq(0,3))
     bodyaxis <- c(20,40,60,100,180)
     axis(1, at = log(bodyaxis), lab = bodyaxis)
     axis(2, at = log(heartaxis), lab = heartaxis)
     box()
     abline(cfseal.lm)

