Cape Fur Seal Data

Description

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.

Usage

cfseal

Format

This data frame contains the following columns:

age

a numeric vector

weight

a numeric vector

heart

a numeric vector

lung

a numeric vector

liver

a numeric vector

spleen

a numeric vector

stomach

a numeric vector

leftkid

a numeric vector

rightkid

a numeric vector

kidney

a numeric vector

intestines

a numeric vector

Source

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)

Examples

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)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(DAAG)
Loading required package: lattice
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/DAAG/cfseal.Rd_%03d_medium.png", width=480, height=480)
> ### Name: cfseal
> ### Title: Cape Fur Seal Data
> ### Aliases: cfseal
> ### Keywords: datasets
> 
> ### ** Examples
> 
> print("Allometric Growth - Example 5.7")
[1] "Allometric Growth - Example 5.7"
> 
> cfseal.lm <- lm(log(heart) ~ log(weight), data=cfseal); summary(cfseal.lm)

Call:
lm(formula = log(heart) ~ log(weight), data = cfseal)

Residuals:
     Min       1Q   Median       3Q      Max 
-0.31487 -0.09182  0.00002  0.11685  0.32051 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  1.20434    0.21131   5.699 4.12e-06 ***
log(weight)  1.12615    0.05467  20.597  < 2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.1796 on 28 degrees of freedom
Multiple R-squared:  0.9381,	Adjusted R-squared:  0.9359 
F-statistic: 424.3 on 1 and 28 DF,  p-value: < 2.2e-16

> 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)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>