#Graphing TH Results
#2022 03 25
#Ed Lefley

#Entropy5_5LL_Ag7
Year_5 <- c('2006','2007','2008','2009','2010','2011','2012','2013','2014','2015','2016','2017','2018','2019')
TUI_5LL_Ag7 <- c(TUI_2006_5LL_Ag7*1000, TUI_2007_5LL_Ag7*1000, TUI_2008_5LL_Ag7*1000, TUI_2009_5LL_Ag7*1000, TUI_2010_5LL_Ag7*1000, TUI_2011_5LL_Ag7*1000, TUI_2012_5LL_Ag7*1000, TUI_2013_5LL_Ag7*1000, TUI_2014_5LL_Ag7*1000, TUI_2015_5LL_Ag7*1000, TUI_2016_5LL_Ag7*1000, TUI_2017_5LL_Ag7*1000, TUI_2018_5LL_Ag7*1000, TUI_2019_5LL_Ag7*1000)

TUG_5LL_Ag7 <- c(TUG_2006_5LL_Ag7*1000, TUG_2007_5LL_Ag7*1000, TUG_2008_5LL_Ag7*1000, TUG_2009_5LL_Ag7*1000, TUG_2010_5LL_Ag7*1000, TUG_2011_5LL_Ag7*1000, TUG_2012_5LL_Ag7*1000, TUG_2013_5LL_Ag7*1000, TUG_2014_5LL_Ag7*1000, TUG_2015_5LL_Ag7*1000, TUG_2016_5LL_Ag7*1000, TUG_2017_5LL_Ag7*1000, TUG_2018_5LL_Ag7*1000, TUG_2019_5LL_Ag7*1000)

TUS_5LL_Ag7 <- c(TUS_2006_5LL_Ag7*1000, TUS_2007_5LL_Ag7*1000, TUS_2008_5LL_Ag7*1000, TUS_2009_5LL_Ag7*1000, TUS_2010_5LL_Ag7*1000, TUS_2011_5LL_Ag7*1000, TUS_2012_5LL_Ag7*1000, TUS_2013_5LL_Ag7*1000, TUS_2014_5LL_Ag7*1000, TUS_2015_5LL_Ag7*1000, TUS_2016_5LL_Ag7*1000, TUS_2017_5LL_Ag7*1000, TUS_2018_5LL_Ag7*1000, TUS_2019_5LL_Ag7*1000)

TUF_5LL_Ag7 <- c(TUF_2006_5LL_Ag7*1000, TUF_2007_5LL_Ag7*1000, TUF_2008_5LL_Ag7*1000, TUF_2009_5LL_Ag7*1000, TUF_2010_5LL_Ag7*1000, TUF_2011_5LL_Ag7*1000, TUF_2012_5LL_Ag7*1000, TUF_2013_5LL_Ag7*1000, TUF_2014_5LL_Ag7*1000, TUF_2015_5LL_Ag7*1000, TUF_2016_5LL_Ag7*1000, TUF_2017_5LL_Ag7*1000, TUF_2018_5LL_Ag7*1000, TUF_2019_5LL_Ag7*1000)

TIG_5LL_Ag7 <- c(TIG_2006_5LL_Ag7*1000, TIG_2007_5LL_Ag7*1000, TIG_2008_5LL_Ag7*1000, TIG_2009_5LL_Ag7*1000, TIG_2010_5LL_Ag7*1000, TIG_2011_5LL_Ag7*1000, TIG_2012_5LL_Ag7*1000, TIG_2013_5LL_Ag7*1000, TIG_2014_5LL_Ag7*1000, TIG_2015_5LL_Ag7*1000, TIG_2016_5LL_Ag7*1000, TIG_2017_5LL_Ag7*1000, TIG_2018_5LL_Ag7*1000, TIG_2019_5LL_Ag7*1000)

TIS_5LL_Ag7 <- c(TIS_2006_5LL_Ag7*1000, TIS_2007_5LL_Ag7*1000, TIS_2008_5LL_Ag7*1000, TIS_2009_5LL_Ag7*1000, TIS_2010_5LL_Ag7*1000, TIS_2011_5LL_Ag7*1000, TIS_2012_5LL_Ag7*1000, TIS_2013_5LL_Ag7*1000, TIS_2014_5LL_Ag7*1000, TIS_2015_5LL_Ag7*1000, TIS_2016_5LL_Ag7*1000, TIS_2017_5LL_Ag7*1000, TIS_2018_5LL_Ag7*1000, TIS_2019_5LL_Ag7*1000)

TIF_5LL_Ag7 <- c(TIF_2006_5LL_Ag7*1000, TIF_2007_5LL_Ag7*1000, TIF_2008_5LL_Ag7*1000, TIF_2009_5LL_Ag7*1000, TIF_2010_5LL_Ag7*1000, TIF_2011_5LL_Ag7*1000, TIF_2012_5LL_Ag7*1000, TIF_2013_5LL_Ag7*1000, TIF_2014_5LL_Ag7*1000, TIF_2015_5LL_Ag7*1000, TIF_2016_5LL_Ag7*1000, TIF_2017_5LL_Ag7*1000, TIF_2018_5LL_Ag7*1000, TIF_2019_5LL_Ag7*1000)

TGS_5LL_Ag7 <- c(TGS_2006_5LL_Ag7*1000, TGS_2007_5LL_Ag7*1000, TGS_2008_5LL_Ag7*1000, TGS_2009_5LL_Ag7*1000, TGS_2010_5LL_Ag7*1000, TGS_2011_5LL_Ag7*1000, TGS_2012_5LL_Ag7*1000, TGS_2013_5LL_Ag7*1000, TGS_2014_5LL_Ag7*1000, TGS_2015_5LL_Ag7*1000, TGS_2016_5LL_Ag7*1000, TGS_2017_5LL_Ag7*1000, TGS_2018_5LL_Ag7*1000, TGS_2019_5LL_Ag7*1000)

TGF_5LL_Ag7 <- c(TGF_2006_5LL_Ag7*1000, TGF_2007_5LL_Ag7*1000, TGF_2008_5LL_Ag7*1000, TGF_2009_5LL_Ag7*1000, TGF_2010_5LL_Ag7*1000, TGF_2011_5LL_Ag7*1000, TGF_2012_5LL_Ag7*1000, TGF_2013_5LL_Ag7*1000, TGF_2014_5LL_Ag7*1000, TGF_2015_5LL_Ag7*1000, TGF_2016_5LL_Ag7*1000, TGF_2017_5LL_Ag7*1000, TGF_2018_5LL_Ag7*1000, TGF_2019_5LL_Ag7*1000)

TSF_5LL_Ag7 <- c(TSF_2006_5LL_Ag7*1000, TSF_2007_5LL_Ag7*1000, TSF_2008_5LL_Ag7*1000, TSF_2009_5LL_Ag7*1000, TSF_2010_5LL_Ag7*1000, TSF_2011_5LL_Ag7*1000, TSF_2012_5LL_Ag7*1000, TSF_2013_5LL_Ag7*1000, TSF_2014_5LL_Ag7*1000, TSF_2015_5LL_Ag7*1000, TSF_2016_5LL_Ag7*1000, TSF_2017_5LL_Ag7*1000, TSF_2018_5LL_Ag7*1000, TSF_2019_5LL_Ag7*1000)


TUIG_5LL_Ag7 <- c(TUIG_2006_5LL_Ag7*1000, TUIG_2007_5LL_Ag7*1000, TUIG_2008_5LL_Ag7*1000, TUIG_2009_5LL_Ag7*1000, TUIG_2010_5LL_Ag7*1000, TUIG_2011_5LL_Ag7*1000, TUIG_2012_5LL_Ag7*1000, TUIG_2013_5LL_Ag7*1000, TUIG_2014_5LL_Ag7*1000, TUIG_2015_5LL_Ag7*1000, TUIG_2016_5LL_Ag7*1000, TUIG_2017_5LL_Ag7*1000, TUIG_2018_5LL_Ag7*1000, TUIG_2019_5LL_Ag7*1000)

TUIS_5LL_Ag7 <- c(TUIS_2006_5LL_Ag7*1000, TUIS_2007_5LL_Ag7*1000, TUIS_2008_5LL_Ag7*1000, TUIS_2009_5LL_Ag7*1000, TUIS_2010_5LL_Ag7*1000, TUIS_2011_5LL_Ag7*1000, TUIS_2012_5LL_Ag7*1000, TUIS_2013_5LL_Ag7*1000, TUIS_2014_5LL_Ag7*1000, TUIS_2015_5LL_Ag7*1000, TUIS_2016_5LL_Ag7*1000, TUIS_2017_5LL_Ag7*1000, TUIS_2018_5LL_Ag7*1000, TUIS_2019_5LL_Ag7*1000)

TUIF_5LL_Ag7 <- c(TUIF_2006_5LL_Ag7*1000, TUIF_2007_5LL_Ag7*1000, TUIF_2008_5LL_Ag7*1000, TUIF_2009_5LL_Ag7*1000, TUIF_2010_5LL_Ag7*1000, TUIF_2011_5LL_Ag7*1000, TUIF_2012_5LL_Ag7*1000, TUIF_2013_5LL_Ag7*1000, TUIF_2014_5LL_Ag7*1000, TUIF_2015_5LL_Ag7*1000, TUIF_2016_5LL_Ag7*1000, TUIF_2017_5LL_Ag7*1000, TUIF_2018_5LL_Ag7*1000, TUIF_2019_5LL_Ag7*1000)

TUGS_5LL_Ag7 <- c(TUGS_2006_5LL_Ag7*1000, TUGS_2007_5LL_Ag7*1000, TUGS_2008_5LL_Ag7*1000, TUGS_2009_5LL_Ag7*1000, TUGS_2010_5LL_Ag7*1000, TUGS_2011_5LL_Ag7*1000, TUGS_2012_5LL_Ag7*1000, TUGS_2013_5LL_Ag7*1000, TUGS_2014_5LL_Ag7*1000, TUGS_2015_5LL_Ag7*1000, TUGS_2016_5LL_Ag7*1000, TUGS_2017_5LL_Ag7*1000, TUGS_2018_5LL_Ag7*1000, TUGS_2019_5LL_Ag7*1000)

TUGF_5LL_Ag7 <- c(TUGF_2006_5LL_Ag7*1000, TUGF_2007_5LL_Ag7*1000, TUGF_2008_5LL_Ag7*1000, TUGF_2009_5LL_Ag7*1000, TUGF_2010_5LL_Ag7*1000, TUGF_2011_5LL_Ag7*1000, TUGF_2012_5LL_Ag7*1000, TUGF_2013_5LL_Ag7*1000, TUGF_2014_5LL_Ag7*1000, TUGF_2015_5LL_Ag7*1000, TUGF_2016_5LL_Ag7*1000, TUGF_2017_5LL_Ag7*1000, TUGF_2018_5LL_Ag7*1000, TUGF_2019_5LL_Ag7*1000)

TUSF_5LL_Ag7 <- c(TUSF_2006_5LL_Ag7*1000, TUSF_2007_5LL_Ag7*1000, TUSF_2008_5LL_Ag7*1000, TUSF_2009_5LL_Ag7*1000, TUSF_2010_5LL_Ag7*1000, TUSF_2011_5LL_Ag7*1000, TUSF_2012_5LL_Ag7*1000, TUSF_2013_5LL_Ag7*1000, TUSF_2014_5LL_Ag7*1000, TUSF_2015_5LL_Ag7*1000, TUSF_2016_5LL_Ag7*1000, TUSF_2017_5LL_Ag7*1000, TUSF_2018_5LL_Ag7*1000, TUSF_2019_5LL_Ag7*1000)

TIGS_5LL_Ag7 <- c(TIGS_2006_5LL_Ag7*1000, TIGS_2007_5LL_Ag7*1000, TIGS_2008_5LL_Ag7*1000, TIGS_2009_5LL_Ag7*1000, TIGS_2010_5LL_Ag7*1000, TIGS_2011_5LL_Ag7*1000, TIGS_2012_5LL_Ag7*1000, TIGS_2013_5LL_Ag7*1000, TIGS_2014_5LL_Ag7*1000, TIGS_2015_5LL_Ag7*1000, TIGS_2016_5LL_Ag7*1000, TIGS_2017_5LL_Ag7*1000, TIGS_2018_5LL_Ag7*1000, TIGS_2019_5LL_Ag7*1000)


TIGF_5LL_Ag7 <- c(TIGF_2006_5LL_Ag7*1000, TIGF_2007_5LL_Ag7*1000, TIGF_2008_5LL_Ag7*1000, TIGF_2009_5LL_Ag7*1000, TIGF_2010_5LL_Ag7*1000, TIGF_2011_5LL_Ag7*1000, TIGF_2012_5LL_Ag7*1000, TIGF_2013_5LL_Ag7*1000, TIGF_2014_5LL_Ag7*1000, TIGF_2015_5LL_Ag7*1000, TIGF_2016_5LL_Ag7*1000, TIGF_2017_5LL_Ag7*1000, TIGF_2018_5LL_Ag7*1000, TIGF_2019_5LL_Ag7*1000)

TISF_5LL_Ag7 <- c(TISF_2006_5LL_Ag7*1000, TISF_2007_5LL_Ag7*1000, TISF_2008_5LL_Ag7*1000, TISF_2009_5LL_Ag7*1000, TISF_2010_5LL_Ag7*1000, TISF_2011_5LL_Ag7*1000, TISF_2012_5LL_Ag7*1000, TISF_2013_5LL_Ag7*1000, TISF_2014_5LL_Ag7*1000, TISF_2015_5LL_Ag7*1000, TISF_2016_5LL_Ag7*1000, TISF_2017_5LL_Ag7*1000, TISF_2018_5LL_Ag7*1000, TISF_2019_5LL_Ag7*1000)

TGSF_5LL_Ag7 <- c(TGSF_2006_5LL_Ag7*1000, TGSF_2007_5LL_Ag7*1000, TGSF_2008_5LL_Ag7*1000, TGSF_2009_5LL_Ag7*1000, TGSF_2010_5LL_Ag7*1000, TGSF_2011_5LL_Ag7*1000, TGSF_2012_5LL_Ag7*1000, TGSF_2013_5LL_Ag7*1000, TGSF_2014_5LL_Ag7*1000, TGSF_2015_5LL_Ag7*1000, TGSF_2016_5LL_Ag7*1000, TGSF_2017_5LL_Ag7*1000, TGSF_2018_5LL_Ag7*1000, TGSF_2019_5LL_Ag7*1000)

TUIGS_5LL_Ag7 <- c(TUIGS_2006_5LL_Ag7*1000, TUIGS_2007_5LL_Ag7*1000, TUIGS_2008_5LL_Ag7*1000, TUIGS_2009_5LL_Ag7*1000, TUIGS_2010_5LL_Ag7*1000, TUIGS_2011_5LL_Ag7*1000, TUIGS_2012_5LL_Ag7*1000, TUIGS_2013_5LL_Ag7*1000, TUIGS_2014_5LL_Ag7*1000, TUIGS_2015_5LL_Ag7*1000, TUIGS_2016_5LL_Ag7*1000, TUIGS_2017_5LL_Ag7*1000, TUIGS_2018_5LL_Ag7*1000, TUIGS_2019_5LL_Ag7*1000)
TUIGF_5LL_Ag7 <- c(TUIGF_2006_5LL_Ag7*1000, TUIGF_2007_5LL_Ag7*1000, TUIGF_2008_5LL_Ag7*1000, TUIGF_2009_5LL_Ag7*1000, TUIGF_2010_5LL_Ag7*1000, TUIGF_2011_5LL_Ag7*1000, TUIGF_2012_5LL_Ag7*1000, TUIGF_2013_5LL_Ag7*1000, TUIGF_2014_5LL_Ag7*1000, TUIGF_2015_5LL_Ag7*1000, TUIGF_2016_5LL_Ag7*1000, TUIGF_2017_5LL_Ag7*1000, TUIGF_2018_5LL_Ag7*1000, TUIGF_2019_5LL_Ag7*1000)

TUISF_5LL_Ag7 <- c(TUISF_2006_5LL_Ag7*1000, TUISF_2007_5LL_Ag7*1000, TUISF_2008_5LL_Ag7*1000, TUISF_2009_5LL_Ag7*1000, TUISF_2010_5LL_Ag7*1000, TUISF_2011_5LL_Ag7*1000, TUISF_2012_5LL_Ag7*1000, TUISF_2013_5LL_Ag7*1000, TUISF_2014_5LL_Ag7*1000, TUISF_2015_5LL_Ag7*1000, TUISF_2016_5LL_Ag7*1000, TUISF_2017_5LL_Ag7*1000, TUISF_2018_5LL_Ag7*1000, TUISF_2019_5LL_Ag7*1000)

TUGSF_5LL_Ag7 <- c(TUGSF_2006_5LL_Ag7*1000, TUGSF_2007_5LL_Ag7*1000, TUGSF_2008_5LL_Ag7*1000, TUGSF_2009_5LL_Ag7*1000, TUGSF_2010_5LL_Ag7*1000, TUGSF_2011_5LL_Ag7*1000, TUGSF_2012_5LL_Ag7*1000, TUGSF_2013_5LL_Ag7*1000, TUGSF_2014_5LL_Ag7*1000, TUGSF_2015_5LL_Ag7*1000, TUGSF_2016_5LL_Ag7*1000, TUGSF_2017_5LL_Ag7*1000, TUGSF_2018_5LL_Ag7*1000, TUGSF_2019_5LL_Ag7*1000)

TIGSF_5LL_Ag7 <- c(TIGSF_2006_5LL_Ag7*1000, TIGSF_2007_5LL_Ag7*1000, TIGSF_2008_5LL_Ag7*1000, TIGSF_2009_5LL_Ag7*1000, TIGSF_2010_5LL_Ag7*1000, TIGSF_2011_5LL_Ag7*1000, TIGSF_2012_5LL_Ag7*1000, TIGSF_2013_5LL_Ag7*1000, TIGSF_2014_5LL_Ag7*1000, TIGSF_2015_5LL_Ag7*1000, TIGSF_2016_5LL_Ag7*1000, TIGSF_2017_5LL_Ag7*1000, TIGSF_2018_5LL_Ag7*1000, TIGSF_2019_5LL_Ag7*1000)

TUIGSF_5LL_Ag7 <- c(TUIGSF_2006_5LL_Ag7*1000, TUIGSF_2007_5LL_Ag7*1000, TUIGSF_2008_5LL_Ag7*1000, TUIGSF_2009_5LL_Ag7*1000, TUIGSF_2010_5LL_Ag7*1000, TUIGSF_2011_5LL_Ag7*1000, TUIGSF_2012_5LL_Ag7*1000, TUIGSF_2013_5LL_Ag7*1000, TUIGSF_2014_5LL_Ag7*1000, TUIGSF_2015_5LL_Ag7*1000, TUIGSF_2016_5LL_Ag7*1000, TUIGSF_2017_5LL_Ag7*1000, TUIGSF_2018_5LL_Ag7*1000, TUIGSF_2019_5LL_Ag7*1000)

#cREATE EXPORT FILE
Denom_5 <- c(denom_2006_5_Ag7, denom_2007_5_Ag7, denom_2008_5_Ag7, denom_2009_5_Ag7, denom_2010_5_Ag7, denom_2011_5_Ag7, denom_2012_5_Ag7, denom_2013_5_Ag7, denom_2014_5_Ag7, denom_2015_5_Ag7, denom_2016_5_Ag7, denom_2017_5_Ag7, denom_2018_5_Ag7, denom_2019_5_Ag7)

Entropy_5LL_Ag7 <- data.frame(Year_5,TUI_5LL_Ag7,TUG_5LL_Ag7,TUS_5LL_Ag7,TUF_5LL_Ag7,TIG_5LL_Ag7,TIS_5LL_Ag7,TIF_5LL_Ag7,TGS_5LL_Ag7,TGF_5LL_Ag7,TSF_5LL_Ag7,TUIG_5LL_Ag7,TUIS_5LL_Ag7,TUIF_5LL_Ag7,TUGS_5LL_Ag7,TUGF_5LL_Ag7,TUSF_5LL_Ag7,TIGS_5LL_Ag7,TIGF_5LL_Ag7,TISF_5LL_Ag7,TGSF_5LL_Ag7,TUIGS_5LL_Ag7,TUIGF_5LL_Ag7,TUISF_5LL_Ag7,TUGSF_5LL_Ag7,TIGSF_5LL_Ag7,TUIGSF_5LL_Ag7,Denom_5)
write.csv(Entropy_5LL_Ag7, "Entropy_5LL_Ag7.csv")
#View(Entropy_5_LL)