The species targeted, number of fish harvested, and number of individuals harvesting that number of that species of fish from a large number of surveys on Minnesota Lakes, 1980-1996.
Format
A data frame of 14550 observations on the following 2 variables:
- species
species of fish that was targeted.
- harvest
number of fish of that species harvested by one angler.
Source
From tables in Cook, M.F., T.J. Goeman, P.J. Radomski, J.A. Younk, and P.C. Jacobson. 2001. Creel limits in Minnesota: A proposal for change. Fisheries 26:19-26. CSV file
Examples
data(CreelMN)
str(CreelMN)
#> 'data.frame': 14550 obs. of 2 variables:
#> $ species: Factor w/ 6 levels "Crappie","LMB",..: 5 5 5 5 5 5 5 5 5 5 ...
#> $ harvest: int 6 6 6 6 6 6 6 6 6 6 ...
head(CreelMN)
#> species harvest
#> 1 WAE 6
#> 2 WAE 6
#> 3 WAE 6
#> 4 WAE 6
#> 5 WAE 6
#> 6 WAE 6
levels(CreelMN$species)
#> [1] "Crappie" "LMB" "NOP" "Sunfish" "WAE" "YEP"
## ONLY RUN IN INTERACTIVE MODE
if (FALSE) {
require(FSA)
wae <- filterD(CreelMN,species=="WAE")
( waetbl <- table(wae$harvest) )
( waeptbl <- prop.table(waetbl)*100 )
( waercum <- rcumsum(waeptbl) )
op <- par(mfrow=c(1,2),mar=c(3.5,3.5,0.5,0.5),mgp=c(2,0.5,0))
barplot(waeptbl,xlab="Number of Walleye Harvested",ylab="Percentage of Individuals")
barplot(waercum,xlab="Minimum Number of Walleye Harvested",ylab="Percentage of Individuals")
par(op)
( ttlwae <- sum(wae$harvest) )
wae$svd5 <- wae$harvest-5 # Used to determine the number of fish
xtabs(~svd5,data=wae) # saved if limit was reduced to 5.
( svd5 <- sum(wae$svd5[wae$svd5>0]) ) # Only sum positive numbers (i.e., saved)
round(svd5/ttlwae*100,1) # Show as a percentage
wae$svd1 <- wae$harvest-1 # same but if reduced to 1 bag.
xtabs(~svd1,data=wae)
( svd1 <- sum(wae$svd1[wae$svd1>0]) )
round(svd1/ttlwae*100,1)
}