Skip to contents

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 and M)

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

Topic(s)

  • Age-Length Key

  • Growth

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)