FSAdata (version 0.4.1)

YPerchCB1: 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

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