## Results of a large number of creel surveys in Minnestoa lakes.

### Description

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.

• Other

### 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.

### Examples

```data(CreelMN)
str(CreelMN)
levels(CreelMN\$species)

## ONLY RUN IN INTERACTIVE MODE
## Not run:
require(FSA)
wae <- Subset(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)

## End(Not run)

```