diff --git a/indicator_objects/PlotAllIndicators.R b/indicator_objects/PlotAllIndicators.R
index 17984f8..f36c8e2 100644
--- a/indicator_objects/PlotAllIndicators.R
+++ b/indicator_objects/PlotAllIndicators.R
@@ -171,21 +171,27 @@ plotIndicatorTimeSeries(ind, coltoplot = 1:2, trendAnalysis = T, sublabel = T)
 ### 31. Number of seasonal closures implemented
                         
 #Indicator 31
+
+### 32. Number of seasonal closures implemented
+
+load("indicator_objects/tier3.RData")
+plotIndicatorTimeSeries(ind, plotrownum = 2, coltoplot = 1:2, sublabel = TRUE, dateformat = "%Y%b", trendAnalysis = T)
                         
-### 32. Number of education and outreach events
+### 33. Number of education and outreach events
                         
-#Indicator 32
+load("indicator_objects/outreach.RData")
+plotIndicatorTimeSeries(ind, coltoplot = 1:2, plotrownum = 2, trendAnalysis = T)
                         
-### 33. Number of enforcement actions
+### 34. Number of enforcement actions
                         
 #Indicator 33
                         
-### 34 Percent coral cover
+### 35. Percent coral cover
                       
 load("indicator_objects/coral_spprichness_cover.RData")
 plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)
                         
-### 35. Coral species diversity
+### 36. Coral species diversity
 
 load("indicator_objects/coral_spprichness_cover.RData")
 plotIndicatorTimeSeries(ind, coltoplot = 1:4, sublabel = T, trendAnalysis = T)
diff --git a/indicator_objects/tier3.RData b/indicator_objects/tier3.RData
index 6b8755c..1d33dac 100644
Binary files a/indicator_objects/tier3.RData and b/indicator_objects/tier3.RData differ
diff --git a/indicator_processing/non_automated/tier_designation.R b/indicator_processing/non_automated/tier_designation.R
index 17e16a3..eb60494 100644
--- a/indicator_processing/non_automated/tier_designation.R
+++ b/indicator_processing/non_automated/tier_designation.R
@@ -26,10 +26,11 @@ inddata <- data.frame(cbind(PR, USVI))
 labs <- c("Stocks/complexes with Tier 3 designation" , "Percent", "Puerto Rico",
           "Stocks/complexes with Tier 3 designation" , "Percent", "USVI")
 indnames <- data.frame(matrix(labs, nrow = 3, byrow = F))
-ind <- list(labels = indnames, indicators = inddata, datelist = datdata)
+inddata <- list(labels = indnames, indicators = inddata, datelist = datdata)
 class(inddata) <- "indicatordata"
 
 # plot and save ----------------------------------
+ind <- inddata
 plotIndicatorTimeSeries(ind, plotrownum = 2, coltoplot = 1:2, sublabel = TRUE, dateformat = "%Y%b", trendAnalysis = T)
 
 save(ind, file = "indicator_objects/tier3.RData")