Ages (subsample) and lengths (all fish) for male and female Siscowet Lake Trout captured at four locations in Michigan waters of Lake Superior.
Source:R/SiscowetMI2004.R
SiscowetMI2004.Rd
Ages (subsample) and lengths (all fish) for male and female Siscowet Lake Trout captured at four locations in Michigan waters of Lake Superior.
Format
A data frame with 780 observations on the following 8 variables.
- locID
Locations (
Blind Sucker
,Deer Park
,Grand Marais
,Little Lake Harbor
)- pnldep
Depth of gillnet panel in which the fish was captured
- mesh
Gillnet stretch mesh measure
- fishID
Unique fish identification code
- sex
Sex (
F
andM
)- age
Assigned ages (yrs; from otoliths)
- len
Total length (mm)
- wgt
Weight (g)
Source
Obtained directly from the U.S. Fish and Wildlife Service via Michael Seider. CSV file
Note
Used in the Introductory Fisheries Analyses with R book.
Examples
data(SiscowetMI2004)
str(SiscowetMI2004)
#> 'data.frame': 780 obs. of 8 variables:
#> $ locID : Factor w/ 4 levels "Blind Sucker",..: 2 2 2 2 2 2 2 2 2 2 ...
#> $ pnldep: num 36.7 40.1 41.5 41.5 43.5 ...
#> $ mesh : num 2.5 3 5 5 5.5 4 4 4 4 4.5 ...
#> $ fishID: int 19108 19109 19110 19111 19112 19113 19114 19115 19116 19117 ...
#> $ sex : Factor w/ 2 levels "F","M": NA NA 2 2 NA 2 NA NA NA 1 ...
#> $ age : int NA NA NA NA NA NA NA NA NA NA ...
#> $ len : int 316 396 590 516 414 481 600 494 545 522 ...
#> $ wgt : int 400 700 1800 1500 800 1000 2500 1100 1600 1500 ...
head(SiscowetMI2004)
#> locID pnldep mesh fishID sex age len wgt
#> 1 Deer Park 36.74 2.5 19108 <NA> NA 316 400
#> 2 Deer Park 40.09 3.0 19109 <NA> NA 396 700
#> 3 Deer Park 41.46 5.0 19110 M NA 590 1800
#> 4 Deer Park 41.46 5.0 19111 M NA 516 1500
#> 5 Deer Park 43.45 5.5 19112 <NA> NA 414 800
#> 6 Deer Park 45.58 4.0 19113 M NA 481 1000
xtabs(~age+locID,data=SiscowetMI2004)
#> locID
#> age Blind Sucker Deer Park Grand Marais Little Lake Harbor
#> 7 5 0 0 0
#> 8 8 0 0 2
#> 9 9 0 0 6
#> 10 18 0 0 20
#> 11 15 0 8 19
#> 12 19 0 5 16
#> 13 18 0 2 8
#> 14 2 0 1 4
#> 15 2 0 1 3
#> 16 2 0 0 0
#> 17 1 0 0 0
#> 18 1 0 0 0
#> 19 1 0 2 0
#> 20 0 0 0 1
#> 21 0 0 0 1
op <- par(mfrow=c(2,2),pch=19)
plot(len~age,data=SiscowetMI2004,subset=locID=="Blind Sucker",main="Blind Sucker")
plot(len~age,data=SiscowetMI2004,subset=locID=="Grand Marais",main="Grand Marais")
plot(len~age,data=SiscowetMI2004,subset=locID=="Little Lake Harbor",main="Little Lake Harbor")
par(op)