Lake Ontario Rock Bass A
- There are 135 fish that were aged and 1153 fish that were not aged.
- There were 10 fish in the 180-mm category in the aged sample.
- There were 24 age-7 fish in the aged sample.
- The proportion of fish in the 140-mm TL category that were age-4 was 0.9.
- The proportion of fish in the 200-mm TL category that were age-8 was 0.1.
- The proportion of fish in the 210-mm TL category that should be assigned age-5 was 0.1.
- Of 30 Rock Bass in the 180-mm TL category, 12 should be assigned age-5.
- This age-length key is pretty “clean.” There are some anomolies with age-8 and age-9 fish near 200 mm and age-11 fish from 230 to 270 mm, but these proportions are fairly small.
- Did not do.
Lake Ontario Rock Bass B
- Completed above.
- There were 264 age-5 fish after applying the age-length key.
- There were 8 age-11 fish after applying the age-length key.
- There were 43 total fish in the 150-mm TL category.
- The mean TL of age-5 fish is 187.4 mm.
- Should not have gotten the exact same results, but they should be close. They are different because of the randomization, but they are similar because little is randomized.
df <- read.csv("https://raw.githubusercontent.com/droglenc/FSAdata/master/data-raw/RockBassLO2.csv") %>% mutate(lcat10=lencat(tl,w=10)) aged <- filterD(df,!is.na(age)) unaged <- filterD(df,is.na(age)) aged.ld <- xtabs(~lcat10,data=aged) aged.ad <- xtabs(~age,data=aged) alk.raw <- xtabs(~lcat10+age,data=aged) alk <- prop.table(alk.raw,margin=1) alkPlot(alk) unaged <- alkIndivAge(alk,age~lcat10,data=unaged) df2 <- rbind(aged,unaged) all.ld <- xtabs(~lcat10,data=df2) all.ad <- xtabs(~age,data=df2) hist(~age,data=df2,w=1,xlab="Age (yrs)") all.ls <- group_by(df2,age) %>% summarize(mnlen=mean(tl)) %>% as.data.frame() plot(tl~age,data=df2,ylab="Total Length (mm)",xlab="Age (yrs)", pch=19,col=col2rgbt("black",1/20)) lines(mnlen~age,data=all.ls,col="blue",lwd=2)