To load data

library(testdata)
data('Purple-Fish-River')

Raw data table

BROOD_YEAR SPAWNERS FRACWILD
1990 100 1.0
1991 200 1.0
1992 1000 1.0
1993 100 1.0
1994 200 0.5

Spawners plot