YPerchCB1 {FSAdata}R Documentation

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.

Topic(s)

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


[Package FSAdata version 0.3.6.9000 ]