diff --git a/R/anlzMWRoutlierall.R b/R/anlzMWRoutlierall.R
index 86bbcd09..7d90ea1e 100644
--- a/R/anlzMWRoutlierall.R
+++ b/R/anlzMWRoutlierall.R
@@ -7,7 +7,7 @@
 #' @param fset optional list of inputs with elements named \code{res}, \code{acc}, \code{frecom}, \code{sit}, or \code{wqx} overrides the other arguments
 #' @param fig_height numeric for plot heights in inches
 #' @param fig_width numeric for plot width in inches
-#' @param format character string indicating if results are placed in a word file or as separate png files in \code{output_dir}
+#' @param format character string indicating if results are placed in a word file, as separate png files, or as a zipped file of separate png files in \code{output_dir}
 #' @param output_dir character string of the output directory for the results
 #' @param output_file optional character string for the file name if \code{format = "word"}
 #' @param type character indicating \code{"box"}, \code{"jitterbox"}, or \code{"jitter"}, see details
@@ -50,8 +50,11 @@
 #'
 #' # create png output
 #' anlzMWRoutlierall(resdat, accdat, group = 'month', format = 'png', output_dir = tempdir())
+#' 
+#' # create zipped png output
+#' anlzMWRoutlierall(resdat, accdat, group = 'month', format = 'zip', output_dir = tempdir())
 #' }
-anlzMWRoutlierall <- function(res = NULL, acc = NULL, fset = NULL, fig_height = 4, fig_width = 8, format = c('word' ,'png'), output_dir, output_file = NULL, type = c('box', 'jitterbox', 'jitter'), group, dtrng = NULL, repel = TRUE, outliers = FALSE, labsize = 3, fill = 'lightgrey', alpha = 0.8, width = 0.8, yscl = 'auto', ttlsize = 1.2, bssize = 11, runchk = TRUE, warn = TRUE){
+anlzMWRoutlierall <- function(res = NULL, acc = NULL, fset = NULL, fig_height = 4, fig_width = 8, format = c('word' ,'png', 'zip'), output_dir, output_file = NULL, type = c('box', 'jitterbox', 'jitter'), group, dtrng = NULL, repel = TRUE, outliers = FALSE, labsize = 3, fill = 'lightgrey', alpha = 0.8, width = 0.8, yscl = 'auto', ttlsize = 1.2, bssize = 11, runchk = TRUE, warn = TRUE){
   
   utilMWRinputcheck(mget(ls()))
   
@@ -108,7 +111,7 @@ anlzMWRoutlierall <- function(res = NULL, acc = NULL, fset = NULL, fig_height =
   }
    
   # png output
-  if(format == 'png'){
+  if(format == 'png' | format == 'zip'){
    
     # create directory if it doesn't exist
     if(!file.exists(output_dir))
@@ -125,6 +128,25 @@ anlzMWRoutlierall <- function(res = NULL, acc = NULL, fset = NULL, fig_height =
     }
     
     msg <- paste("PNG files created successfully! Files located at", output_dir)
+    
+    if(format == 'zip'){
+      
+      # sort out file name
+      if(is.null(output_file))
+        output_file <- 'outlierall.zip'
+      else
+        output_file <- paste0(tools::file_path_sans_ext(output_file), '.zip')
+      
+      fls <- list.files(path = output_dir, pattern = '.png', full.names = TRUE)
+      
+      utils::zip(zipfile = file.path(output_dir, output_file), files = fls, flags = '-qj')
+      
+      file.remove(fls)
+      
+      msg <- gsub('Files located at', 'Zipped files located at', msg)  
+      
+    }
+    
     message(msg)
     
   }
diff --git a/man/anlzMWRoutlierall.Rd b/man/anlzMWRoutlierall.Rd
index 9843d04c..c4a826c3 100644
--- a/man/anlzMWRoutlierall.Rd
+++ b/man/anlzMWRoutlierall.Rd
@@ -10,7 +10,7 @@ anlzMWRoutlierall(
   fset = NULL,
   fig_height = 4,
   fig_width = 8,
-  format = c("word", "png"),
+  format = c("word", "png", "zip"),
   output_dir,
   output_file = NULL,
   type = c("box", "jitterbox", "jitter"),
@@ -40,7 +40,7 @@ anlzMWRoutlierall(
 
 \item{fig_width}{numeric for plot width in inches}
 
-\item{format}{character string indicating if results are placed in a word file or as separate png files in \code{output_dir}}
+\item{format}{character string indicating if results are placed in a word file, as separate png files, or as a zipped file of separate png files in \code{output_dir}}
 
 \item{output_dir}{character string of the output directory for the results}
 
@@ -103,5 +103,8 @@ anlzMWRoutlierall(resdat, accdat, group = 'month', format = 'word', output_dir =
 
 # create png output
 anlzMWRoutlierall(resdat, accdat, group = 'month', format = 'png', output_dir = tempdir())
+
+# create zipped png output
+anlzMWRoutlierall(resdat, accdat, group = 'month', format = 'zip', output_dir = tempdir())
 }
 }