Lake Ontario Rock Bass A

  1. There are 135 fish that were aged and 1153 fish that were not aged.
  2. xxx
    1. There were 10 fish in the 180-mm category in the aged sample.
    2. There were 24 age-7 fish in the aged sample.
    3. The proportion of fish in the 140-mm TL category that were age-4 was 0.9.
    4. The proportion of fish in the 200-mm TL category that were age-8 was 0.1.
  3. xxx
    1. The proportion of fish in the 210-mm TL category that should be assigned age-5 was 0.1.
    2. Of 30 Rock Bass in the 180-mm TL category, 12 should be assigned age-5.
    3. 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.
  4. Did not do.

Lake Ontario Rock Bass B

  1. Completed above.
  2. xxx
    1. There were 264 age-5 fish after applying the age-length key.
    2. There were 8 age-11 fish after applying the age-length key.
    3. xxx
    4. There were 43 total fish in the 150-mm TL category.
    5. The mean TL of age-5 fish is 187.4 mm.
    6. xxx
  3. 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.

R Appendix

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)