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:

     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:

     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)

