Description Format Topic(s) Source Examples

Catch-at-age for Yellow Perch (*Perca flavescens*) from Chequamegon Bay, Lake Superior, 1973-1988.

A data frame with 39 observations on the following 5 variables.

- age
Age in that capture year (1973-1988).

- year73
Number of fish at each age in capture year 1973.

- year74
Number of fish at each age in capture year 1974.

- year75
Number of fish at each age in capture year 1975.

- year76
Number of fish at each age in capture year 1976.

- year77
Number of fish at each age in capture year 1977.

- year78
Number of fish at each age in capture year 1978.

- year79
Number of fish at each age in capture year 1979.

- year80
Number of fish at each age in capture year 1980.

- year81
Number of fish at each age in capture year 1981.

- year82
Number of fish at each age in capture year 1982.

- year83
Number of fish at each age in capture year 1983.

- year84
Number of fish at each age in capture year 1984.

- year85
Number of fish at each age in capture year 1985.

- year86
Number of fish at each age in capture year 1986.

- year87
Number of fish at each age in capture year 1987.

- year88
Number of fish at each age in capture year 1988.

Mortality

Catch curve

From Table 1 in Bronte, C.R., J.H. Selgeby, D.V.Swedberg. 1993. Dynamics of a yellow perch population in Western Lake Superior. North American Journal of Fisheries Management 13:511-523.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ```
data(YPerchCB1)
str(YPerchCB1)
head(YPerchCB1)
max.n <- max(YPerchCB1[,-1]) # maximum catch
op <- par(mfrow=c(4,4),mar=c(3.5,3.5,1,1),mgp=c(2,0.75,0))
plot(log(year73)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1973")
plot(log(year74)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1974")
plot(log(year75)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1975")
plot(log(year76)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1976")
plot(log(year77)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1977")
plot(log(year78)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1978")
plot(log(year79)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1979")
plot(log(year80)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1980")
plot(log(year81)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1981")
plot(log(year82)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1982")
plot(log(year83)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1983")
plot(log(year84)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1984")
plot(log(year85)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1985")
plot(log(year86)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1986")
plot(log(year87)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1987")
plot(log(year88)~age,data=YPerchCB1,ylim=c(0,log(max.n)),main="1988")
par(op)
op <- par(mfrow=c(1,2),mar=c(3.5,3.5,1,1),mgp=c(2,0.75,0))
## plot for 1973 and 1982 year-classes (be very careful)
# get 1973 year-class as diagonal for ages 0-9 and years 1973-1982
yc73 <- diag(as.matrix(YPerchCB1[,2:11]))
plot(log(yc73)~YPerchCB1$age,main="1973 Year-Class")
yc82 <- diag(as.matrix(YPerchCB1[1:7,11:17]))
plot(log(yc82)~YPerchCB1$age[1:7],main="1982 Year-Class")
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.