add NMDS for gear use by area

Gulf-IEA · Feb 5, 2024 · 7473418 · 7473418
1 parent 92d4609
commit 7473418
Show file tree

Hide file tree

Showing 9 changed files with 300 additions and 221 deletions.
diff --git a/indicator_plots/.Rhistory b/indicator_plots/.Rhistory
diff --git a/indicator_plots/NMDSgear_PR.png b/indicator_plots/NMDSgear_PR.png
diff --git a/indicator_plots/NMDSgear_STT.png b/indicator_plots/NMDSgear_STT.png
diff --git a/indicator_plots/NMDSgear_STX.png b/indicator_plots/NMDSgear_STX.png
diff --git a/indicator_plots/gearTypes_PR.png b/indicator_plots/gearTypes_PR.png
diff --git a/indicator_plots/gearTypes_STT.png b/indicator_plots/gearTypes_STT.png
diff --git a/indicator_plots/gearTypes_STX.png b/indicator_plots/gearTypes_STX.png
diff --git a/indicator_processing/fishery_dependent/INDICATOR_disturbance.R b/indicator_processing/fishery_dependent/INDICATOR_disturbance.R
@@ -117,6 +117,9 @@ rm(list = ls()[-match(c("final_PR", "styear", "enyear"), ls())])
 
 dat <- read.csv("C:/Users/mandy.karnauskas/Desktop/CONFIDENTIAL/CaribbeanData/STT_landings.csv")
 
+
+# adjust to fishing year ---------------------------------------
+
 dat$TRIP_YEARold <- dat$TRIP_YEAR
 dat$TRIP_MONTHold <- dat$TRIP_MONTH
 aa <- which(dat$TRIP_MONTH < 7)
@@ -257,6 +260,8 @@ rm(list = ls()[-match(c("final_PR", "final_ST", "styear", "enyear"), ls())])
 dat <- read.csv("C:/Users/mandy.karnauskas/Desktop/CONFIDENTIAL/CaribbeanData/STX_072011_present_LANDINGS_trip_2021-03-11.csv")
 head(dat)
 
+# adjust to fishing year ---------------------------------------
+
 dat$TRIP_YEARold <- dat$TRIP_YEAR
 dat$TRIP_MONTHold <- dat$TRIP_MONTH
 aa <- which(dat$TRIP_MONTH < 7)