Catch-at-age for Yellow Perch from Chequamegon Bay, Lake Superior.

Description

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

Format

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.

Topic(s)

• Mortality
• Catch curve

Source

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.

Examples

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")