Stock and recruitment data for Barndoor Skate from Georges Bank, 1966-2007.

Stock and recruitment data for Barndoor Skate (Dipturus laevis) from Georges Bank for three seasons.

Format

A data frame with 31 observations on the following 4 variables.

spawners: a numeric vector giving CPUE of spawning fish
recruits: a numeric vector containing the CPUE of recruits
year: a numeric vector containing the year of the survey (recruits have been properly lagged (3 years) to match with spawners)
season: a factor containing the season of capture (fall, spring, winter)

Source

Estimated (using digitize) from figures 4-6 in Gedamke, T., J.M. Hoenig, W.D. DuPaul, and J.A. Musick. 2009. Stock-recruitment dynamics and the maximum population growth rate of the barndoor skate on Georges Bank. North American Journal of Fisheries Management 29:512-526. CSV file

Note

Only years within each season where more than one spawner and more than one recruit were captured were recorded. The authors noted that the Beverton-Holt model could NOT be fit to the winter data.

Topic(s)

Stock-Recruit
Recruitment

Examples

data(BSkateGB)
str(BSkateGB)
#> 'data.frame':	31 obs. of  4 variables:
#>  $ spawners: num  0.059 0.019 0.009 0.006 0.005 0.01 0.004 0.005 0.011 0.004 ...
#>  $ recruits: num  0.17 0.017 0.053 0.007 0.049 0.004 0.008 0.03 0.075 0.039 ...
#>  $ year    : int  1966 1967 1968 1970 1971 1996 2000 2001 2002 2003 ...
#>  $ season  : Factor w/ 3 levels "fall","spring",..: 1 1 1 1 1 1 1 1 1 1 ...
head(BSkateGB)
#>   spawners recruits year season
#> 1    0.059    0.170 1966   fall
#> 2    0.019    0.017 1967   fall
#> 3    0.009    0.053 1968   fall
#> 4    0.006    0.007 1970   fall
#> 5    0.005    0.049 1971   fall
#> 6    0.010    0.004 1996   fall
op <- par(mfrow=c(3,2),pch=19)
plot(recruits~year,data=BSkateGB,subset=season=="fall",type="b",main="fall")
plot(recruits~spawners,data=BSkateGB,subset=season=="fall",main="fall")
plot(recruits~year,data=BSkateGB,subset=season=="spring",type="b",main="spring")
plot(recruits~spawners,data=BSkateGB,subset=season=="spring",main="spring")
plot(recruits~year,data=BSkateGB,subset=season=="winter",type="b",main="winter")
plot(recruits~spawners,data=BSkateGB,subset=season=="winter",main="winter")

par(op)