Togiak

district <- 24

t <- temp %>%
      filter(!is.na(weight2)) %>%
      filter(SPECIES_ID==2) %>%
      filter(SW_AGE==2) %>%
      filter(District_Id==district)

c <- as.data.frame(table(t$YEAR))
names(c) <- c("YEAR","FREQ")

b <- aggregate(weight2~YEAR,data=temp,mean)
tbl <- merge(b,c)
kable(tbl)
YEAR weight2 FREQ
1965 6.0648459 1
1971 6.3736504 1
1972 5.2856731 1
1973 5.1205610 1
1975 4.8622031 1
1976 4.6252950 9
1977 6.2111392 2
1978 0.6521449 64
1979 3.3358733 439
1980 3.0177703 54
1981 2.9446856 123
1982 4.0370449 27
1983 4.6153122 196
1984 4.0013021 39
1985 3.7889902 39
1986 3.4933170 74
1987 3.5349560 82
1988 2.6805002 12
1989 2.9979155 51
1990 2.3998294 21
1991 2.3800944 183
1992 3.0422009 172
1993 3.4281668 78
1994 3.4513755 47
1995 2.7243431 169
1996 3.3270912 36
1997 3.1998055 66
1998 3.1521550 39
1999 2.6491581 177
2000 2.8629143 31
2001 3.4817845 11
2002 2.8933620 39
2003 3.2137441 28
2004 3.0391758 9
2005 3.2143481 3
2007 3.4065168 35
2008 2.8379901 40
2009 2.9395354 114
2010 2.7955078 91
2011 2.8847566 47
2012 2.9446432 68
2013 3.1310046 23
2014 2.8263829 73
2015 2.6920021 58
2016 2.6055075 86
2017 2.5427759 139
2018 2.2858824 81

1965-1977

district <- 24
year <- c(1965:1977)
O.age <- 3
filtered <- "N"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :500.0 Min. :0.220
1st Qu.:549.0 1st Qu.:2.910
Median :571.0 Median :3.195
Mean :570.9 Mean :3.257
3rd Qu.:594.0 3rd Qu.:3.748
Max. :675.0 Max. :5.210

There only appears to be one outlying weight, an 3-Ocean age 3 of 0.22. A correction of 10x is recommended for FISH_ID = 5316.

O.age <- 2
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :491.0 Min. :1.760
1st Qu.:517.0 1st Qu.:2.400
Median :545.0 Median :2.805
Mean :553.8 Mean :2.929
3rd Qu.:590.2 3rd Qu.:3.590
Max. :615.0 Max. :3.990

No recommended corrections for this group of fish.

1978-1980

year <- c(1978:1980)
O.age <- 3
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :465.0 Min. :0.510
1st Qu.:565.0 1st Qu.:2.990
Median :584.0 Median :3.540
Mean :583.6 Mean :3.291
3rd Qu.:601.0 3rd Qu.:4.130
Max. :906.0 Max. :5.670 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :465.0 Min. :2.130
1st Qu.:565.0 1st Qu.:3.270
Median :584.0 Median :3.670
Mean :583.6 Mean :3.763
3rd Qu.:601.0 3rd Qu.:4.260
Max. :906.0 Max. :5.670 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :430.0 Min. :0.460
1st Qu.:514.0 1st Qu.:2.400
Median :530.0 Median :2.770
Mean :529.9 Mean :2.609
3rd Qu.:547.0 3rd Qu.:3.130
Max. :587.0 Max. :4.130 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :430.0 Min. :1.410
1st Qu.:514.0 1st Qu.:2.490
Median :530.0 Median :2.810
Mean :529.9 Mean :2.845
3rd Qu.:547.0 3rd Qu.:3.180
Max. :587.0 Max. :4.130

1981-1983

year <- c(1981:1983)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :493.0 Min. :0.380
1st Qu.:556.0 1st Qu.:2.400
Median :574.0 Median :3.080
Mean :572.9 Mean :2.758
3rd Qu.:590.0 3rd Qu.:3.580
Max. :653.0 Max. :5.120 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :493.0 Min. :1.724
1st Qu.:556.0 1st Qu.:2.900
Median :574.0 Median :3.300
Mean :572.9 Mean :3.333
3rd Qu.:590.0 3rd Qu.:3.710
Max. :653.0 Max. :5.120 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :476.0 Min. :0.350
1st Qu.:515.0 1st Qu.:0.620
Median :529.0 Median :2.220
Mean :530.6 Mean :1.861
3rd Qu.:545.0 3rd Qu.:2.600
Max. :613.0 Max. :4.210 
O.age <- 2
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :476.0 Min. :1.588
1st Qu.:515.0 1st Qu.:2.276
Median :529.0 Median :2.500
Mean :530.6 Mean :2.589
3rd Qu.:545.0 3rd Qu.:2.850
Max. :613.0 Max. :4.210

1984-1990

year <- c(1984:1990)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :474.0 Min. : 0.020
1st Qu.:553.0 1st Qu.: 2.720
Median :575.0 Median : 3.170
Mean :574.2 Mean : 3.026
3rd Qu.:595.0 3rd Qu.: 3.620
Max. :670.0 Max. :13.600 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :474.0 Min. :0.09072
1st Qu.:553.0 1st Qu.:2.72000
Median :575.0 Median :3.17000
Mean :574.2 Mean :3.11451
3rd Qu.:595.0 3rd Qu.:3.62000
Max. :670.0 Max. :5.44000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :440.0 Min. :0.130
1st Qu.:500.0 1st Qu.:2.040
Median :520.0 Median :2.350
Mean :517.4 Mean :2.293
3rd Qu.:535.0 3rd Qu.:2.720
Max. :590.0 Max. :3.940 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :440.0 Min. :0.5897
1st Qu.:500.0 1st Qu.:2.0400
Median :520.0 Median :2.3500
Mean :517.4 Mean :2.3470
3rd Qu.:535.0 3rd Qu.:2.7200
Max. :590.0 Max. :3.9400

1991-1992

year <- c(1991:1992)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.040
1st Qu.:545.0 1st Qu.:0.330
Median :565.0 Median :2.610
Mean :565.7 Mean :2.066
3rd Qu.:585.0 3rd Qu.:3.430
Max. :670.0 Max. :5.640 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.1814
1st Qu.:545.0 1st Qu.:1.4969
Median :565.0 Median :2.6100
Mean :565.7 Mean :2.5495
3rd Qu.:585.0 3rd Qu.:3.4300
Max. :670.0 Max. :5.6400 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 57.0 Min. :0.150
1st Qu.:500.0 1st Qu.:0.240
Median :518.0 Median :0.340
Mean :516.2 Mean :1.277
3rd Qu.:534.0 3rd Qu.:2.300
Max. :591.0 Max. :4.000 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 57.0 Min. :0.6804
1st Qu.:500.0 1st Qu.:1.0886
Median :518.0 Median :1.5422
Mean :516.2 Mean :1.7488
3rd Qu.:534.0 3rd Qu.:2.3000
Max. :591.0 Max. :4.9896

1993-2003

year <- c(1993:2003)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.200
1st Qu.: 555.0 1st Qu.:2.820
Median : 574.0 Median :3.220
Mean : 573.1 Mean :3.268
3rd Qu.: 595.0 3rd Qu.:3.730
Max. :1566.0 Max. :8.300 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.9072
1st Qu.: 555.0 1st Qu.:2.8200
Median : 574.0 Median :3.2200
Mean : 573.1 Mean :3.2786
3rd Qu.: 595.0 3rd Qu.:3.7300
Max. :1566.0 Max. :5.4600 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :418.0 Min. :0.030
1st Qu.:510.0 1st Qu.:2.140
Median :529.0 Median :2.430
Mean :528.7 Mean :2.441
3rd Qu.:547.0 3rd Qu.:2.760
Max. :642.0 Max. :4.920 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :418.0 Min. :0.1361
1st Qu.:510.0 1st Qu.:2.1400
Median :529.0 Median :2.4400
Mean :528.7 Mean :2.4800
3rd Qu.:547.0 3rd Qu.:2.7800
Max. :642.0 Max. :5.5792

2004-2018

year <- c(2004:2018)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 1.25
1st Qu.:534.0 1st Qu.: 2.72
Median :554.0 Median : 3.10
Mean :554.2 Mean : 3.24
3rd Qu.:575.0 3rd Qu.: 3.63
Max. :683.0 Max. :11.00 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :1.25
1st Qu.:534 1st Qu.:2.71
Median :553 Median :3.10
Mean :554 Mean :3.20
3rd Qu.:575 3rd Qu.:3.63
Max. :683 Max. :5.50 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :403 Min. :1.000
1st Qu.:490 1st Qu.:2.010
Median :506 Median :2.450
Mean :507 Mean :2.495
3rd Qu.:524 3rd Qu.:2.830
Max. :626 Max. :8.600

Nushagak

district <- 23

t <- temp %>%
      filter(!is.na(weight2)) %>%
      filter(SPECIES_ID==2) %>%
      filter(SW_AGE==2) %>%
      filter(District_Id==district)

c <- as.data.frame(table(t$YEAR))
names(c) <- c("YEAR","FREQ")

b <- aggregate(weight2~YEAR,data=temp,mean)
tbl <- merge(b,c)
kable(tbl)
YEAR weight2 FREQ
1968 6.5094378 2
1971 6.3736504 2
1972 5.2856731 6
1973 5.1205610 11
1975 4.8622031 2
1976 4.6252950 5
1977 6.2111392 1
1978 0.6521449 248
1979 3.3358733 482
1980 3.0177703 68
1981 2.9446856 214
1982 4.0370449 36
1983 4.6153122 448
1984 4.0013021 56
1985 3.7889902 434
1986 3.4933170 43
1987 3.5349560 217
1988 2.6805002 214
1989 2.9979155 344
1990 2.3998294 192
1991 2.3800944 233
1992 3.0422009 297
1993 3.4281668 343
1994 3.4513755 79
1995 2.7243431 557
1996 3.3270912 375
1997 3.1998055 347
1998 3.1521550 680
1999 2.6491581 778
2000 2.8629143 568
2001 3.4817845 65
2002 2.8933620 754
2003 3.2137441 220
2004 3.0391758 415
2005 3.2143481 95
2006 3.3598928 140
2007 3.4065168 277
2008 2.8379901 146
2009 2.9395354 174
2010 2.7955078 290
2011 2.8847566 219
2012 2.9446432 223
2013 3.1310046 199
2014 2.8263829 360
2015 2.6920021 162
2016 2.6055075 220
2017 2.5427759 552
2018 2.2858824 787

1968-1977

year <- c(1968:1977)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :510 Min. :2.260
1st Qu.:560 1st Qu.:2.720
Median :575 Median :3.030
Mean :579 Mean :3.176
3rd Qu.:592 3rd Qu.:3.580
Max. :667 Max. :5.210 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :454.0 Min. :1.720
1st Qu.:532.0 1st Qu.:2.310
Median :562.0 Median :2.600
Mean :560.3 Mean :2.855
3rd Qu.:592.0 3rd Qu.:3.310
Max. :655.0 Max. :4.850

1978-1985

year <- c(1978:1985)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. : 0.400
1st Qu.:551 1st Qu.: 2.260
Median :571 Median : 2.850
Mean :571 Mean : 2.658
3rd Qu.:593 3rd Qu.: 3.400
Max. :713 Max. :26.800 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :1.270
1st Qu.:551 1st Qu.:2.720
Median :571 Median :3.120
Mean :571 Mean :3.185
3rd Qu.:593 3rd Qu.:3.620
Max. :713 Max. :5.900 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.250
1st Qu.:502.0 1st Qu.:1.630
Median :519.0 Median :2.170
Mean :518.7 Mean :1.951
3rd Qu.:535.0 3rd Qu.:2.540
Max. :623.0 Max. :4.350 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.134
1st Qu.:502.0 1st Qu.:2.072
Median :519.0 Median :2.313
Mean :518.7 Mean :2.376
3rd Qu.:535.0 3rd Qu.:2.670
Max. :623.0 Max. :5.534

1986-1992

year <- c(1986:1992)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.030
1st Qu.:540.0 1st Qu.: 2.395
Median :560.0 Median : 2.810
Mean :559.2 Mean : 2.725
3rd Qu.:582.0 3rd Qu.: 3.350
Max. :691.0 Max. :16.010 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.1361
1st Qu.:540.0 1st Qu.:2.3900
Median :560.0 Median :2.8100
Mean :559.1 Mean :2.8293
3rd Qu.:582.0 3rd Qu.:3.3400
Max. :691.0 Max. :5.5000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.130
1st Qu.:480.0 1st Qu.:1.760
Median :500.0 Median :2.030
Mean :500.2 Mean :2.022
3rd Qu.:520.0 3rd Qu.:2.322
Max. :633.0 Max. :4.600 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.5897
1st Qu.:480.0 1st Qu.:1.7600
Median :500.0 Median :2.0400
Mean :500.2 Mean :2.0850
3rd Qu.:520.0 3rd Qu.:2.3500
Max. :633.0 Max. :5.5339

1993-1994

year <- c(1993:1994)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :457.0 Min. :0.050
1st Qu.:537.0 1st Qu.:2.510
Median :555.0 Median :2.840
Mean :556.8 Mean :2.929
3rd Qu.:575.0 3rd Qu.:3.300
Max. :635.0 Max. :4.760 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :457.0 Min. :0.2268
1st Qu.:537.0 1st Qu.:2.5100
Median :555.0 Median :2.8400
Mean :556.8 Mean :2.9288
3rd Qu.:575.0 3rd Qu.:3.3000
Max. :635.0 Max. :4.7600 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :430.0 Min. :1.180
1st Qu.:490.0 1st Qu.:1.840
Median :503.0 Median :2.055
Mean :506.3 Mean :2.122
3rd Qu.:522.8 3rd Qu.:2.370
Max. :600.0 Max. :3.420

1981-2003

year <- c(1981:2003)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. : 0.030
1st Qu.:543 1st Qu.: 2.520
Median :563 Median : 2.920
Mean :562 Mean : 2.883
3rd Qu.:584 3rd Qu.: 3.440
Max. :713 Max. :16.010 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :0.1361
1st Qu.:543 1st Qu.:2.5700
Median :563 Median :2.9484
Mean :562 Mean :2.9901
3rd Qu.:584 3rd Qu.:3.4500
Max. :713 Max. :5.9000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.010
1st Qu.:483.0 1st Qu.: 1.750
Median :502.0 Median : 2.010
Mean :502.5 Mean : 2.025
3rd Qu.:521.0 3rd Qu.: 2.340
Max. :633.0 Max. :11.630 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.04536
1st Qu.:483.0 1st Qu.:1.78000
Median :502.0 Median :2.04119
Mean :502.5 Mean :2.11111
3rd Qu.:521.0 3rd Qu.:2.37000
Max. :633.0 Max. :5.62460

2004-2018

year <- c(2004:2018)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.500
1st Qu.: 534.0 1st Qu.:2.500
Median : 552.0 Median :2.840
Mean : 553.4 Mean :2.911
3rd Qu.: 573.0 3rd Qu.:3.270
Max. :5536.0 Max. :8.000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :351.0 Min. :0.940
1st Qu.:472.0 1st Qu.:1.660
Median :490.0 Median :1.910
Mean :491.4 Mean :1.976
3rd Qu.:510.0 3rd Qu.:2.230
Max. :623.0 Max. :5.750

Naknak-Kvichak

district <- 22

t <- temp %>%
      filter(!is.na(weight2)) %>%
      filter(SPECIES_ID==2) %>%
      filter(SW_AGE==2) %>%
      filter(District_Id==district)

c <- as.data.frame(table(t$YEAR))
names(c) <- c("YEAR","FREQ")

b <- aggregate(weight2~YEAR,data=temp,mean)
tbl <- merge(b,c)
kable(tbl)
YEAR weight2 FREQ
1978 0.6521449 613
1979 3.3358733 465
1980 3.0177703 500
1981 2.9446856 221
1982 4.0370449 86
1983 4.6153122 460
1984 4.0013021 196
1985 3.7889902 160
1987 3.5349560 497
1988 2.6805002 735
1989 2.9979155 1228
1990 2.3998294 1275
1991 2.3800944 362
1992 3.0422009 330
1993 3.4281668 313
1994 3.4513755 666
1995 2.7243431 1050
1996 3.3270912 159
1997 3.1998055 278
1998 3.1521550 249
1999 2.6491581 672
2000 2.8629143 195
2001 3.4817845 48
2002 2.8933620 483
2003 3.2137441 381
2004 3.0391758 523
2005 3.2143481 156
2006 3.3598928 257
2007 3.4065168 178
2008 2.8379901 163
2009 2.9395354 293
2010 2.7955078 412
2011 2.8847566 206
2012 2.9446432 383
2013 3.1310046 115
2014 2.8263829 607
2015 2.6920021 320
2016 2.6055075 366
2017 2.5427759 340
2018 2.2858824 382

1978

year <- c(1978:1978)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :449.0 Min. :0.430
1st Qu.:564.0 1st Qu.:0.620
Median :584.0 Median :0.700
Mean :582.6 Mean :0.709
3rd Qu.:602.0 3rd Qu.:0.780
Max. :694.0 Max. :1.060 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :449.0 Min. :1.950
1st Qu.:564.0 1st Qu.:2.812
Median :584.0 Median :3.175
Mean :582.6 Mean :3.216
3rd Qu.:602.0 3rd Qu.:3.538
Max. :694.0 Max. :4.808 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :444.0 Min. :0.2900
1st Qu.:508.0 1st Qu.:0.4300
Median :525.0 Median :0.4900
Mean :525.1 Mean :0.4996
3rd Qu.:542.0 3rd Qu.:0.5600
Max. :608.0 Max. :0.7800 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :444.0 Min. :1.315
1st Qu.:508.0 1st Qu.:1.950
Median :525.0 Median :2.223
Mean :525.1 Mean :2.266
3rd Qu.:542.0 3rd Qu.:2.540
Max. :608.0 Max. :3.538

1979-1981

year <- c(1979:1981)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :464.0 Min. :1.200
1st Qu.:564.0 1st Qu.:2.810
Median :579.5 Median :3.165
Mean :578.3 Mean :3.167
3rd Qu.:594.8 3rd Qu.:3.485
Max. :661.0 Max. :4.810 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :195.0 Min. :0.290
1st Qu.:507.0 1st Qu.:2.130
Median :525.0 Median :2.400
Mean :524.6 Mean :2.423
3rd Qu.:544.0 3rd Qu.:2.700
Max. :710.0 Max. :5.830

1982-1987

year <- c(1982:1987)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 1.600
1st Qu.:555.0 1st Qu.: 2.780
Median :573.0 Median : 3.100
Mean :570.1 Mean : 3.526
3rd Qu.:590.0 3rd Qu.: 3.670
Max. :665.0 Max. :10.400 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :418.0 Min. :0.060
1st Qu.:505.0 1st Qu.:2.080
Median :521.0 Median :2.450
Mean :520.6 Mean :3.314
3rd Qu.:536.0 3rd Qu.:5.000
Max. :609.0 Max. :8.500

1988-1991

year <- c(1988:1991)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.030
1st Qu.:552.0 1st Qu.: 2.630
Median :572.0 Median : 3.000
Mean :568.4 Mean : 3.021
3rd Qu.:591.0 3rd Qu.: 3.400
Max. :692.0 Max. :28.420 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.1361
1st Qu.:552.0 1st Qu.:2.6300
Median :572.0 Median :3.0000
Mean :568.4 Mean :3.0179
3rd Qu.:591.0 3rd Qu.:3.4000
Max. :692.0 Max. :5.6500 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.010
1st Qu.:491.0 1st Qu.: 1.820
Median :511.0 Median : 2.080
Mean :509.1 Mean : 2.168
3rd Qu.:532.0 3rd Qu.: 2.430
Max. :672.0 Max. :24.620 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.04536
1st Qu.:491.0 1st Qu.:1.83000
Median :511.0 Median :2.09000
Mean :509.1 Mean :2.17505
3rd Qu.:532.0 3rd Qu.:2.44000
Max. :672.0 Max. :5.62460

1992-1994

year <- c(1992:1994)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :429.0 Min. :1.250
1st Qu.:544.0 1st Qu.:2.490
Median :564.0 Median :2.850
Mean :562.2 Mean :2.895
3rd Qu.:582.0 3rd Qu.:3.250
Max. :657.0 Max. :5.700

1995-2003

year <- c(1995:2003)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.060
1st Qu.:552.0 1st Qu.:2.730
Median :571.0 Median :3.080
Mean :563.8 Mean :3.136
3rd Qu.:589.0 3rd Qu.:3.500
Max. :694.0 Max. :8.120 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.010
1st Qu.:492.0 1st Qu.:1.860
Median :511.0 Median :2.110
Mean :504.4 Mean :2.175
3rd Qu.:530.0 3rd Qu.:2.420
Max. :651.0 Max. :5.080

2004-2018

year <- c(2004:2018)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.72
1st Qu.:540.0 1st Qu.: 2.56
Median :558.0 Median : 2.89
Mean :558.2 Mean : 2.95
3rd Qu.:576.0 3rd Qu.: 3.30
Max. :691.0 Max. :22.23 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.370
1st Qu.:540.0 1st Qu.:2.560
Median :558.0 Median :2.890
Mean :558.2 Mean :2.948
3rd Qu.:576.0 3rd Qu.:3.300
Max. :691.0 Max. :5.240 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.990
1st Qu.:487.0 1st Qu.: 1.860
Median :506.0 Median : 2.150
Mean :505.5 Mean : 2.187
3rd Qu.:526.0 3rd Qu.: 2.480
Max. :648.0 Max. :11.980 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.250
1st Qu.:487.0 1st Qu.:1.870
Median :506.0 Median :2.160
Mean :505.5 Mean :2.226
3rd Qu.:526.0 3rd Qu.:2.490
Max. :648.0 Max. :5.625

Egegik

district <- 21

t <- temp %>%
      filter(!is.na(weight2)) %>%
      filter(SPECIES_ID==2) %>%
      filter(SW_AGE==2) %>%
      filter(District_Id==district)

c <- as.data.frame(table(t$YEAR))
names(c) <- c("YEAR","FREQ")

b <- aggregate(weight2~YEAR,data=temp,mean)
tbl <- merge(b,c)
kable(tbl)
YEAR weight2 FREQ
1978 0.6521449 510
1979 3.3358733 572
1980 3.0177703 300
1981 2.9446856 120
1982 4.0370449 149
1985 3.7889902 48
1986 3.4933170 92
1987 3.5349560 292
1988 2.6805002 649
1989 2.9979155 924
1990 2.3998294 865
1991 2.3800944 424
1992 3.0422009 614
1993 3.4281668 371
1994 3.4513755 517
1995 2.7243431 941
1996 3.3270912 338
1997 3.1998055 480
1998 3.1521550 128
1999 2.6491581 396
2000 2.8629143 195
2001 3.4817845 230
2002 2.8933620 486
2003 3.2137441 319
2004 3.0391758 993
2005 3.2143481 284
2006 3.3598928 208
2007 3.4065168 193
2008 2.8379901 249
2009 2.9395354 300
2010 2.7955078 279
2011 2.8847566 178
2012 2.9446432 287
2013 3.1310046 99
2014 2.8263829 347
2015 2.6920021 398
2016 2.6055075 386
2017 2.5427759 422
2018 2.2858824 175

1978

year <- c(1978:1978)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :438.0 Min. :0.4300
1st Qu.:581.5 1st Qu.:0.6900
Median :600.0 Median :0.7600
Mean :599.3 Mean :0.7768
3rd Qu.:616.5 3rd Qu.:0.8500
Max. :685.0 Max. :1.1900 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :438.0 Min. :1.950
1st Qu.:581.5 1st Qu.:3.130
Median :600.0 Median :3.447
Mean :599.3 Mean :3.524
3rd Qu.:616.5 3rd Qu.:3.856
Max. :685.0 Max. :5.398 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.3400
1st Qu.:517.0 1st Qu.:0.4800
Median :532.0 Median :0.5300
Mean :530.9 Mean :0.5461
3rd Qu.:547.0 3rd Qu.:0.6000
Max. :622.0 Max. :0.8400 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.542
1st Qu.:517.0 1st Qu.:2.177
Median :532.0 Median :2.404
Mean :530.9 Mean :2.477
3rd Qu.:547.0 3rd Qu.:2.722
Max. :622.0 Max. :3.810

1979-1981

year <- c(1979:1981)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :474.0 Min. :1.870
1st Qu.:567.0 1st Qu.:2.800
Median :582.0 Median :3.000
Mean :583.4 Mean :3.145
3rd Qu.:601.8 3rd Qu.:3.487
Max. :692.0 Max. :5.600 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :390.0 Min. :0.310
1st Qu.:513.0 1st Qu.:2.060
Median :530.0 Median :2.345
Mean :529.8 Mean :2.375
3rd Qu.:545.0 3rd Qu.:2.650
Max. :670.0 Max. :5.400

1982-1987

year <- c(1982:1987)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.110
1st Qu.:571.0 1st Qu.:2.900
Median :585.0 Median :3.150
Mean :585.3 Mean :3.209
3rd Qu.:602.0 3rd Qu.:3.500
Max. :688.0 Max. :4.810 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.499
1st Qu.:571.0 1st Qu.:2.900
Median :585.0 Median :3.150
Mean :585.3 Mean :3.210
3rd Qu.:602.0 3rd Qu.:3.500
Max. :688.0 Max. :4.810 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :415.0 Min. :0.020
1st Qu.:513.0 1st Qu.:2.030
Median :528.0 Median :2.300
Mean :529.9 Mean :2.369
3rd Qu.:544.0 3rd Qu.:2.610
Max. :653.0 Max. :4.620 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :415.0 Min. :0.09072
1st Qu.:513.0 1st Qu.:2.04000
Median :528.0 Median :2.30000
Mean :529.9 Mean :2.37588
3rd Qu.:544.0 3rd Qu.:2.61000
Max. :653.0 Max. :4.71741

1988-1991

year <- c(1988:1991)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.020
1st Qu.:559.0 1st Qu.:2.210
Median :579.0 Median :2.865
Mean :576.7 Mean :2.517
3rd Qu.:599.0 3rd Qu.:3.300
Max. :695.0 Max. :7.860 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.09072
1st Qu.:559.0 1st Qu.:2.21000
Median :579.0 Median :2.86000
Mean :576.7 Mean :2.72267
3rd Qu.:599.0 3rd Qu.:3.30000
Max. :695.0 Max. :5.18000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :0.02
1st Qu.:496 1st Qu.:1.60
Median :518 Median :2.04
Mean :515 Mean :1.82
3rd Qu.:536 3rd Qu.:2.41
Max. :638 Max. :5.61 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :0.09072
1st Qu.:496 1st Qu.:1.61000
Median :518 Median :2.04000
Mean :515 Mean :1.98162
3rd Qu.:536 3rd Qu.:2.41000
Max. :638 Max. :5.61000

1992-1994

year <- c(1992:1994)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.060
1st Qu.:547.0 1st Qu.:2.410
Median :566.0 Median :2.790
Mean :554.6 Mean :2.673
3rd Qu.:583.0 3rd Qu.:3.170
Max. :682.0 Max. :4.640 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.2722
1st Qu.:547.0 1st Qu.:2.4100
Median :566.0 Median :2.7900
Mean :554.6 Mean :2.7490
3rd Qu.:583.0 3rd Qu.:3.1700
Max. :682.0 Max. :4.6400 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.060
1st Qu.:491.0 1st Qu.:1.680
Median :510.0 Median :1.960
Mean :501.1 Mean :1.854
3rd Qu.:527.0 3rd Qu.:2.270
Max. :594.0 Max. :5.960 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.2722
1st Qu.:491.0 1st Qu.:1.6900
Median :510.0 Median :1.9700
Mean :501.1 Mean :1.9526
3rd Qu.:527.0 3rd Qu.:2.2700
Max. :594.0 Max. :5.9600

1995

year <- c(1995:1995)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.140
1st Qu.:547.0 1st Qu.:2.190
Median :569.0 Median :2.690
Mean :564.1 Mean :2.433
3rd Qu.:587.0 3rd Qu.:3.150
Max. :634.0 Max. :4.180 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.635
1st Qu.:547.0 1st Qu.:2.190
Median :569.0 Median :2.690
Mean :564.1 Mean :2.601
3rd Qu.:587.0 3rd Qu.:3.150
Max. :634.0 Max. :4.180 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :408.0 Min. :0.060
1st Qu.:502.0 1st Qu.:1.700
Median :519.0 Median :2.080
Mean :520.2 Mean :1.829
3rd Qu.:537.0 3rd Qu.:2.400
Max. :616.0 Max. :3.890 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :408.0 Min. :0.2722
1st Qu.:502.0 1st Qu.:1.7100
Median :519.0 Median :2.0800
Mean :520.2 Mean :1.9848
3rd Qu.:537.0 3rd Qu.:2.4000
Max. :616.0 Max. :3.8900

1996-1998

year <- c(1996:1998)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :0.030
1st Qu.:558 1st Qu.:2.620
Median :575 Median :2.950
Mean :573 Mean :3.005
3rd Qu.:594 3rd Qu.:3.350
Max. :659 Max. :5.870 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0 Min. :0.1361
1st Qu.:558 1st Qu.:2.6200
Median :575 Median :2.9500
Mean :573 Mean :3.0116
3rd Qu.:594 3rd Qu.:3.3500
Max. :659 Max. :5.8700 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.180
1st Qu.:499.2 1st Qu.:1.860
Median :517.0 Median :2.150
Mean :516.3 Mean :2.238
3rd Qu.:538.8 3rd Qu.:2.500
Max. :623.0 Max. :5.330

1999-2003

year <- c(1999:2003)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.070
1st Qu.:561.0 1st Qu.: 2.830
Median :579.0 Median : 3.150
Mean :573.6 Mean : 3.207
3rd Qu.:596.0 3rd Qu.: 3.540
Max. :697.0 Max. :22.700 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.3175
1st Qu.:561.0 1st Qu.:2.8300
Median :579.0 Median :3.1500
Mean :573.7 Mean :3.1917
3rd Qu.:596.0 3rd Qu.:3.5400
Max. :697.0 Max. :5.8600 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.900
1st Qu.:503.0 1st Qu.: 1.930
Median :523.0 Median : 2.190
Mean :520.2 Mean : 2.286
3rd Qu.:541.0 3rd Qu.: 2.540
Max. :691.0 Max. :22.460 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.260
1st Qu.:503.0 1st Qu.:1.930
Median :523.0 Median :2.190
Mean :520.2 Mean :2.280
3rd Qu.:541.0 3rd Qu.:2.540
Max. :691.0 Max. :5.262

2004-2007

year <- c(2004:2007)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :408.0 Min. :1.190
1st Qu.:552.0 1st Qu.:2.630
Median :572.0 Median :2.980
Mean :571.7 Mean :3.001
3rd Qu.:592.0 3rd Qu.:3.370
Max. :678.0 Max. :4.840 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :401.0 Min. : 0.930
1st Qu.:500.2 1st Qu.: 1.980
Median :518.0 Median : 2.219
Mean :518.2 Mean : 2.386
3rd Qu.:536.0 3rd Qu.: 2.530
Max. :620.0 Max. :198.000 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :401.0 Min. :1.260
1st Qu.:500.0 1st Qu.:1.980
Median :518.0 Median :2.220
Mean :518.2 Mean :2.286
3rd Qu.:536.0 3rd Qu.:2.530
Max. :620.0 Max. :5.625

2008-2018

year <- c(2008:2018)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.450
1st Qu.:543.0 1st Qu.:2.530
Median :559.0 Median :2.820
Mean :558.7 Mean :2.882
3rd Qu.:576.0 3rd Qu.:3.200
Max. :701.0 Max. :5.040 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.050
1st Qu.:489.0 1st Qu.:1.840
Median :507.0 Median :2.100
Mean :505.7 Mean :2.127
3rd Qu.:525.0 3rd Qu.:2.390
Max. :612.0 Max. :4.200

Ugashik

district <- 20

t <- temp %>%
      filter(!is.na(weight2)) %>%
      filter(SPECIES_ID==2) %>%
      filter(SW_AGE==2) %>%
      filter(District_Id==district)

c <- as.data.frame(table(t$YEAR))
names(c) <- c("YEAR","FREQ")

b <- aggregate(weight2~YEAR,data=temp,mean)
tbl <- merge(b,c)
kable(tbl)
YEAR weight2 FREQ
1978 0.6521449 171
1979 3.3358733 1511
1980 3.0177703 350
1981 2.9446856 35
1982 4.0370449 7
1983 4.6153122 307
1984 4.0013021 34
1985 3.7889902 168
1986 3.4933170 30
1987 3.5349560 217
1988 2.6805002 499
1989 2.9979155 750
1990 2.3998294 184
1991 2.3800944 350
1992 3.0422009 155
1993 3.4281668 71
1994 3.4513755 12
1995 2.7243431 574
1996 3.3270912 88
1997 3.1998055 200
1998 3.1521550 30
1999 2.6491581 406
2000 2.8629143 54
2001 3.4817845 132
2002 2.8933620 350
2003 3.2137441 689
2004 3.0391758 566
2005 3.2143481 53
2006 3.3598928 229
2007 3.4065168 216
2008 2.8379901 213
2009 2.9395354 303
2010 2.7955078 202
2011 2.8847566 262
2012 2.9446432 242
2013 3.1310046 57
2014 2.8263829 219
2015 2.6920021 243
2016 2.6055075 279
2017 2.5427759 183
2018 2.2858824 196

1978

year <- c(1978:1978)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :509.0 Min. :0.0500
1st Qu.:578.5 1st Qu.:0.7100
Median :600.0 Median :0.8400
Mean :601.0 Mean :0.7816
3rd Qu.:625.5 3rd Qu.:0.9800
Max. :680.0 Max. :1.2300 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :509.0 Min. :0.2268
1st Qu.:578.5 1st Qu.:3.2205
Median :600.0 Median :3.8102
Mean :601.0 Mean :3.5453
3rd Qu.:625.5 3rd Qu.:4.4453
Max. :680.0 Max. :5.5792 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :376.0 Min. :0.0400
1st Qu.:511.0 1st Qu.:0.4800
Median :531.0 Median :0.5900
Mean :529.4 Mean :0.5615
3rd Qu.:549.0 3rd Qu.:0.6850
Max. :619.0 Max. :1.0400 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :376.0 Min. :0.1814
1st Qu.:511.0 1st Qu.:2.1773
Median :531.0 Median :2.6762
Mean :529.4 Mean :2.5470
3rd Qu.:549.0 3rd Qu.:3.1071
Max. :619.0 Max. :4.7174

1979-1981

year <- c(1978:1981)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :500.0 Min. :0.050
1st Qu.:572.0 1st Qu.:0.840
Median :590.0 Median :1.230
Mean :592.6 Mean :1.966
3rd Qu.:614.0 3rd Qu.:3.100
Max. :680.0 Max. :4.450 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :500.0 Min. :0.2268
1st Qu.:572.0 1st Qu.:2.9484
Median :590.0 Median :3.3500
Mean :592.6 Mean :3.3520
3rd Qu.:614.0 3rd Qu.:4.0000
Max. :680.0 Max. :5.5792 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. : 0.040
1st Qu.:520.0 1st Qu.: 2.080
Median :536.0 Median : 2.390
Mean :533.6 Mean : 2.311
3rd Qu.:551.0 3rd Qu.: 2.700
Max. :667.0 Max. :25.050 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.1814
1st Qu.:520.0 1st Qu.:2.1600
Median :536.0 Median :2.4400
Mean :533.6 Mean :2.4666
3rd Qu.:551.0 3rd Qu.:2.7669
Max. :667.0 Max. :5.5500

1982-1983

year <- c(1982:1983)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :520 Min. :2.140
1st Qu.:565 1st Qu.:2.870
Median :586 Median :3.200
Mean :582 Mean :3.252
3rd Qu.:602 3rd Qu.:3.600
Max. :647 Max. :4.500 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :447.0 Min. :1.600
1st Qu.:521.0 1st Qu.:2.265
Median :534.0 Median :2.485
Mean :534.6 Mean :2.511
3rd Qu.:547.8 3rd Qu.:2.760
Max. :620.0 Max. :3.700

1984-1987

year <- c(1984:1987)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :499.0 Min. :1.820
1st Qu.:562.0 1st Qu.:2.830
Median :585.5 Median :3.150
Mean :582.9 Mean :3.226
3rd Qu.:602.0 3rd Qu.:3.618
Max. :689.0 Max. :5.160 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.280
1st Qu.:512.0 1st Qu.:2.080
Median :528.0 Median :2.300
Mean :529.6 Mean :2.386
3rd Qu.:544.0 3rd Qu.:2.620
Max. :701.0 Max. :4.430

1988-1991

year <- c(1984:1987)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :499.0 Min. :1.820
1st Qu.:562.0 1st Qu.:2.830
Median :585.5 Median :3.150
Mean :582.9 Mean :3.226
3rd Qu.:602.0 3rd Qu.:3.618
Max. :689.0 Max. :5.160 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.280
1st Qu.:512.0 1st Qu.:2.080
Median :528.0 Median :2.300
Mean :529.6 Mean :2.386
3rd Qu.:544.0 3rd Qu.:2.620
Max. :701.0 Max. :4.430

1992-1994

year <- c(1992:1994)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :465.0 Min. :1.620
1st Qu.:544.0 1st Qu.:2.500
Median :564.0 Median :2.850
Mean :561.7 Mean :2.905
3rd Qu.:580.0 3rd Qu.:3.220
Max. :650.0 Max. :5.000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :220.0 Min. :1.080
1st Qu.:498.0 1st Qu.:1.893
Median :515.0 Median :2.170
Mean :514.4 Mean :2.191
3rd Qu.:535.0 3rd Qu.:2.397
Max. :599.0 Max. :3.600

1995-1998

year <- c(1995:1998)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :480.0 Min. :0.170
1st Qu.:564.0 1st Qu.:2.667
Median :582.0 Median :3.025
Mean :581.6 Mean :2.958
3rd Qu.:601.0 3rd Qu.:3.470
Max. :667.0 Max. :6.200 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :480.0 Min. :0.7711
1st Qu.:564.0 1st Qu.:2.6650
Median :582.0 Median :3.0200
Mean :581.6 Mean :3.0232
3rd Qu.:601.0 3rd Qu.:3.4650
Max. :667.0 Max. :5.0000 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :393 Min. :0.110
1st Qu.:505 1st Qu.:0.280
Median :522 Median :2.040
Mean :522 Mean :1.699
3rd Qu.:538 3rd Qu.:2.353
Max. :661 Max. :4.850 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :393 Min. :0.499
1st Qu.:505 1st Qu.:1.270
Median :522 Median :2.040
Mean :522 Mean :1.918
3rd Qu.:538 3rd Qu.:2.360
Max. :661 Max. :5.625

1999-2003

year <- c(1999:2003)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :461.0 Min. : 0.270
1st Qu.:559.0 1st Qu.: 2.830
Median :580.0 Median : 3.190
Mean :579.4 Mean : 3.268
3rd Qu.:600.0 3rd Qu.: 3.670
Max. :667.0 Max. :22.560 
filtered <- "T"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :461.0 Min. :1.225
1st Qu.:559.0 1st Qu.:2.830
Median :580.0 Median :3.190
Mean :579.4 Mean :3.260
3rd Qu.:600.0 3rd Qu.:3.670
Max. :667.0 Max. :5.352 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :0.030
1st Qu.:508.0 1st Qu.:2.000
Median :525.0 Median :2.290
Mean :525.3 Mean :2.326
3rd Qu.:544.0 3rd Qu.:2.610
Max. :657.0 Max. :4.200

2004-2007

year <- c(2004:2007)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.500
1st Qu.:551.0 1st Qu.:2.716
Median :572.0 Median :3.060
Mean :570.1 Mean :3.100
3rd Qu.:592.0 3rd Qu.:3.500
Max. :701.0 Max. :4.720 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :418.0 Min. :1.190
1st Qu.:505.8 1st Qu.:2.010
Median :525.0 Median :2.280
Mean :526.9 Mean :2.327
3rd Qu.:546.0 3rd Qu.:2.590
Max. :636.0 Max. :4.480

2008-2018

year <- c(2008:2018)
O.age <- 3
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. : 0.0 Min. :1.150
1st Qu.:544.0 1st Qu.:2.530
Median :560.0 Median :2.830
Mean :560.6 Mean :2.894
3rd Qu.:579.0 3rd Qu.:3.210
Max. :849.0 Max. :4.800 
O.age <- 2
filtered <- "F"
density.plot(O.age,district,year,filtered)

length weight.kg
Min. :341.0 Min. :0.280
1st Qu.:494.5 1st Qu.:1.910
Median :510.0 Median :2.140
Mean :510.6 Mean :2.191
3rd Qu.:526.0 3rd Qu.:2.410
Max. :662.0 Max. :3.830