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.
A data frame of 14550 observations on the following 2 variables:
species of fish that was targeted.
number of fish of that species harvested by one angler.
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
data(CreelMN) str(CreelMN) head(CreelMN) levels(CreelMN$species) ## ONLY RUN IN INTERACTIVE MODE ## Not run: 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) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.