Only loop through the graphs twice.

diff --git a/AU-taxstats.R b/AU-taxstats.R
index 75154d4599752dd4507388efca6ad5423a73bc33..92577c60ba327ee07320311808efefc4ddfdc686 100644 (file)
--- a/AU-taxstats.R
+++ b/AU-taxstats.R
@@ -81,4 +81,4 @@ plots <- function() {lapply(cities, function(x){
 })
 }
 
 })
 }
 

-saveGIF(plots(),movie.name = "AUCitiesIncomeDistribution.gif", interval = 2)
+saveGIF(plots(),movie.name = "AUCitiesIncomeDistribution.gif", interval = 2, loop = 2)