diff --git a/03_make_figures.R b/03_make_figures.R
index 0c6cc64..097bb63 100644
--- a/03_make_figures.R
+++ b/03_make_figures.R
@@ -7,12 +7,12 @@ ifelse(!dir.exists(file.path(getwd(), figure_dir)), dir.create(file.path(getwd()
 
 # set colors
 colors <- list(darkblue = "#062e57",
-               lightblue = "#b1dcf3",
-               lightgrey = "#6D6D6D")
+             lightblue = "#b1dcf3",
+             lightgrey = "#6D6D6D")
 
 # set dimensions of figures
-width <- 8.5
-height <- 11
+width <- 8
+height <- 10
 units <- "in"
 res <- 600
 margin <- 0
@@ -20,45 +20,56 @@ margin <- 0
 
 # plot map
 plot_map <- function () {
-  plot(sf::st_geometry(extent_poly), 
-       col = colors$lightgrey,
-       border = "black")
-  plot(political$Wisconsin_State_Boundary_24K.geojson, 
-       col = colors$darkblue,
-       border = NA,
-       add = TRUE)
-  plot(sf::st_geometry(data$NHDWaterbody), 
-       col = colors$lightblue, 
-       border = NA,
-       add = TRUE)
-  plot(sf::st_geometry(data$NHDArea), 
-       col = colors$lightblue, 
-       border = NA,
-       add = TRUE)
-  plot(sf::st_geometry(data$NHDFlowline), 
-       col = colors$lightblue,
-       lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
-       border = NA,
-       add = TRUE)
+plot(sf::st_geometry(extent_poly), 
+     col = colors$lightgrey,
+     border = "black")
+plot(political$Wisconsin_State_Boundary_24K.geojson, 
+     col = colors$darkblue,
+     border = NA,
+     add = TRUE)
+plot(sf::st_geometry(data$NHDWaterbody), 
+     col = colors$lightblue, 
+     border = NA,
+     add = TRUE)
+plot(sf::st_geometry(data$NHDArea), 
+     col = colors$lightblue, 
+     border = NA,
+     add = TRUE)
+plot(sf::st_geometry(data$NHDFlowline), 
+     col = colors$lightblue,
+     lwd = data$NHDFlowline$TotDASqKM^0.3204*0.0446,
+     border = NA,
+     add = TRUE)
 }
 
 # save figure
-tiff(filename = paste0(figure_dir,"/map.tiff"),
-     width = width,
-     height = height,
-     units = units,
-     res = res,
-     compression = "lzw")
-par(mai=c(margin, margin, margin, margin))
-par(mar=c(1,1,1,1))
-plot_map()
-dev.off()
+# tiff(filename = paste0(figure_dir,"/map.tiff"),
+#    width = width,
+#    height = height,
+#    units = units,
+#    res = res,
+#    compression = "lzw")
+# par(mai=c(margin, margin, margin, margin))
+# par(mar=c(1,1,1,1))
+# plot_map()
+# dev.off()
+# 
+# jpeg(filename = paste0(figure_dir,"/map.jpg"),
+#    width = width,
+#    height = height,
+#    units = units,
+#    res = res,
+#    quality = 93)
+# par(mai=c(margin, margin, margin, margin))
+# par(mar=c(1,1,1,1))
+# plot_map()
+# dev.off()
 
 png(filename = paste0(figure_dir, "/map.png"),
-    width = width,
-    height = height,
-    units = units,
-    res = res)
+  width = width,
+  height = height,
+  units = units,
+  res = res)
 par(mai=c(margin, margin, margin, margin))
 par(mar=c(1,1,1,1))
 plot_map()