VISUALIZING URBAN DECAY: Detroit

This term project aims to define and visualize the shifting nature of urban decay in Detroit in the 2010s to the present. In doing so, this notebook is dedicated to visualizing four separate components that the author has selected, which will act as the defining quantifiers for “urban decay.” Therefore, the notebook is split into four primary parts:

  1. Population Changes
  2. Vacancy Changes in Residential Properties
  3. Property Sales
  4. Demolitions

These four topics are regarded as primary indicators of urban decay, and this project takes a temporal approach. 1. It assumes that ‘urban decay’ is a result of the following process: the exodus of people, the increase in vacancy, the increase of property sales (typically foreclosed properties at a low price), and then, in an attempt to grapple with the physical consequences of urban decay; demolitions.

Detroit, Michigan


# Loading and Installing all Necessary Packages

library(flexdashboard)
library(tidyverse)
── Attaching packages ───────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.3.2 ──✔ ggplot2 3.4.2     ✔ purrr   1.0.1
✔ tibble  3.2.1     ✔ dplyr   1.1.1
✔ tidyr   1.3.0     ✔ stringr 1.5.0
✔ readr   2.1.3     ✔ forcats 0.5.2── Conflicts ──────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(sf)
Linking to GEOS 3.10.2, GDAL 3.4.2, PROJ 8.2.1; sf_use_s2() is TRUE
library(lubridate)

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union
library(jsonlite)

Attaching package: ‘jsonlite’

The following object is masked from ‘package:purrr’:

    flatten
library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
library(hablar)

Attaching package: ‘hablar’

The following object is masked from ‘package:forcats’:

    fct

The following object is masked from ‘package:dplyr’:

    na_if

The following object is masked from ‘package:tibble’:

    num
library(RColorBrewer)
# devtools::install_github("hadley/emo")
library(emo)
library(tmap)
library(rsconnect)
library(ggplot2)
#install.packages("tidycensus")
library(tidycensus)
#install.packages('gganimate')
library(gganimate)
#install.packages("transformr")
library(transformr)

Attaching package: ‘transformr’

The following object is masked from ‘package:sf’:

    st_normalize

POPULATION

In the following section, I manipulate and map population data provided by the American Community Survey. It is important to note that the data selected is for Wayne County, where the city of Detroit resides. The reasoning for this is twofold: 1. It was easier to download tract level data for the entire county. 2. I believe that mapping that illustrates changes in population of one specific region (in this case the city of Detroit) should include the surrounding area. Perhaps this mapping will find that as people move in or out of Detroit, the rest of Wayne County may have the opposite reaction (i.e., people moving from the city center to the suburbs, etc.)


# Downloading population data from TidyCensus for mapping. Population is one of they key factors looked into for this research project, as it marks the influx/exodus of people in Detroit. I limited my time period to 2010-2021, as I wanted to see changes in the Detroit area in the most recent decade.


pop21 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2021)
Getting data from the 2017-2021 5-year ACS
Warning: • You have not set a Census API key. Users without a key are limited to 500
queries per day and may experience performance limitations.
ℹ For best results, get a Census API key at
http://api.census.gov/data/key_signup.html and then supply the key to the
`census_api_key()` function to use it throughout your tidycensus session.Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |=                                                                                                                                   |   1%
  |                                                                                                                                          
  |==                                                                                                                                  |   1%
  |                                                                                                                                          
  |==                                                                                                                                  |   2%
  |                                                                                                                                          
  |===                                                                                                                                 |   2%
  |                                                                                                                                          
  |====                                                                                                                                |   3%
  |                                                                                                                                          
  |=====                                                                                                                               |   4%
  |                                                                                                                                          
  |======                                                                                                                              |   4%
  |                                                                                                                                          
  |======                                                                                                                              |   5%
  |                                                                                                                                          
  |=======                                                                                                                             |   5%
  |                                                                                                                                          
  |=======                                                                                                                             |   6%
  |                                                                                                                                          
  |========                                                                                                                            |   6%
  |                                                                                                                                          
  |=========                                                                                                                           |   7%
  |                                                                                                                                          
  |==========                                                                                                                          |   7%
  |                                                                                                                                          
  |==========                                                                                                                          |   8%
  |                                                                                                                                          
  |===========                                                                                                                         |   8%
  |                                                                                                                                          
  |============                                                                                                                        |   9%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |===============                                                                                                                     |  11%
  |                                                                                                                                          
  |=================                                                                                                                   |  13%
  |                                                                                                                                          
  |==================                                                                                                                  |  13%
  |                                                                                                                                          
  |===================                                                                                                                 |  14%
  |                                                                                                                                          
  |====================                                                                                                                |  15%
  |                                                                                                                                          
  |======================                                                                                                              |  17%
  |                                                                                                                                          
  |=======================                                                                                                             |  17%
  |                                                                                                                                          
  |=========================                                                                                                           |  19%
  |                                                                                                                                          
  |==========================                                                                                                          |  20%
  |                                                                                                                                          
  |============================                                                                                                        |  21%
  |                                                                                                                                          
  |=============================                                                                                                       |  22%
  |                                                                                                                                          
  |=================================                                                                                                   |  25%
  |                                                                                                                                          
  |====================================                                                                                                |  27%
  |                                                                                                                                          
  |======================================                                                                                              |  29%
  |                                                                                                                                          
  |========================================                                                                                            |  30%
  |                                                                                                                                          
  |==========================================                                                                                          |  32%
  |                                                                                                                                          
  |===============================================                                                                                     |  36%
  |                                                                                                                                          
  |=================================================                                                                                   |  37%
  |                                                                                                                                          
  |====================================================                                                                                |  39%
  |                                                                                                                                          
  |=========================================================                                                                           |  43%
  |                                                                                                                                          
  |==========================================================                                                                          |  44%
  |                                                                                                                                          
  |==============================================================                                                                      |  47%
  |                                                                                                                                          
  |=================================================================                                                                   |  49%
  |                                                                                                                                          
  |=======================================================================                                                             |  54%
  |                                                                                                                                          
  |========================================================================                                                            |  55%
  |                                                                                                                                          
  |==============================================================================                                                      |  59%
  |                                                                                                                                          
  |===================================================================================                                                 |  63%
  |                                                                                                                                          
  |======================================================================================                                              |  66%
  |                                                                                                                                          
  |=============================================================================================                                       |  70%
  |                                                                                                                                          
  |=======================================================================================================                             |  78%
  |                                                                                                                                          
  |===========================================================================================================                         |  81%
  |                                                                                                                                          
  |=====================================================================================================================               |  89%
  |                                                                                                                                          
  |===========================================================================================================================         |  93%
  |                                                                                                                                          
  |==================================================================================================================================  |  98%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop20 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2020)
Getting data from the 2016-2020 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |====                                                                                                                                |   3%
  |                                                                                                                                          
  |========                                                                                                                            |   6%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |========================                                                                                                            |  18%
  |                                                                                                                                          
  |====================================                                                                                                |  27%
  |                                                                                                                                          
  |======================================                                                                                              |  28%
  |                                                                                                                                          
  |=================================================================                                                                   |  49%
  |                                                                                                                                          
  |==================================================================================                                                  |  62%
  |                                                                                                                                          
  |======================================================================================                                              |  65%
  |                                                                                                                                          
  |========================================================================================                                            |  66%
  |                                                                                                                                          
  |============================================================================================                                        |  70%
  |                                                                                                                                          
  |================================================================================================                                    |  73%
  |                                                                                                                                          
  |=================================================================================================                                   |  73%
  |                                                                                                                                          
  |===================================================================================================                                 |  75%
  |                                                                                                                                          
  |=======================================================================================================                             |  78%
  |                                                                                                                                          
  |==========================================================================================================                          |  80%
  |                                                                                                                                          
  |==================================================================================================================                  |  87%
  |                                                                                                                                          
  |============================================================================================================================        |  94%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop19 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2019)
Getting data from the 2015-2019 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |===                                                                                                                                 |   3%
  |                                                                                                                                          
  |=========                                                                                                                           |   7%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |========================                                                                                                            |  18%
  |                                                                                                                                          
  |==============================                                                                                                      |  23%
  |                                                                                                                                          
  |=======================================                                                                                             |  29%
  |                                                                                                                                          
  |===============================================================================                                                     |  60%
  |                                                                                                                                          
  |===============================================================================================                                     |  72%
  |                                                                                                                                          
  |==================================================================================================                                  |  75%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop18 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2018)
Getting data from the 2014-2018 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |=====================                                                                                                               |  16%
  |                                                                                                                                          
  |==================================================                                                                                  |  38%
  |                                                                                                                                          
  |=============================================================================                                                       |  58%
  |                                                                                                                                          
  |=======================================================================================                                             |  66%
  |                                                                                                                                          
  |=============================================================================================                                       |  71%
  |                                                                                                                                          
  |=======================================================================================================================             |  90%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop17 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2017)
Getting data from the 2013-2017 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |===                                                                                                                                 |   2%
  |                                                                                                                                          
  |===========                                                                                                                         |   8%
  |                                                                                                                                          
  |============                                                                                                                        |   9%
  |                                                                                                                                          
  |===============                                                                                                                     |  12%
  |                                                                                                                                          
  |======================                                                                                                              |  17%
  |                                                                                                                                          
  |================================                                                                                                    |  24%
  |                                                                                                                                          
  |=============================================================                                                                       |  46%
  |                                                                                                                                          
  |=======================================================================================================                             |  78%
  |                                                                                                                                          
  |========================================================================================================================            |  91%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop16 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2016)
Getting data from the 2012-2016 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |========                                                                                                                            |   6%
  |                                                                                                                                          
  |=========                                                                                                                           |   7%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |=====================                                                                                                               |  16%
  |                                                                                                                                          
  |===========================================                                                                                         |  33%
  |                                                                                                                                          
  |===================================================================                                                                 |  51%
  |                                                                                                                                          
  |============================================================================                                                        |  57%
  |                                                                                                                                          
  |=====================================================================================================================               |  88%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop15 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2015)
Getting data from the 2011-2015 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |=                                                                                                                                   |   1%
  |                                                                                                                                          
  |==                                                                                                                                  |   2%
  |                                                                                                                                          
  |=======                                                                                                                             |   6%
  |                                                                                                                                          
  |==============                                                                                                                      |  10%
  |                                                                                                                                          
  |================================                                                                                                    |  24%
  |                                                                                                                                          
  |==================================                                                                                                  |  26%
  |                                                                                                                                          
  |=====================================                                                                                               |  28%
  |                                                                                                                                          
  |========================================                                                                                            |  31%
  |                                                                                                                                          
  |===========================================                                                                                         |  33%
  |                                                                                                                                          
  |===================================================                                                                                 |  39%
  |                                                                                                                                          
  |========================================================                                                                            |  43%
  |                                                                                                                                          
  |================================================================================                                                    |  61%
  |                                                                                                                                          
  |=====================================================================================                                               |  65%
  |                                                                                                                                          
  |=======================================================================================================                             |  78%
  |                                                                                                                                          
  |========================================================================================================                            |  79%
  |                                                                                                                                          
  |=============================================================================================================                       |  82%
  |                                                                                                                                          
  |======================================================================================================================              |  90%
  |                                                                                                                                          
  |==========================================================================================================================          |  93%
  |                                                                                                                                          
  |=============================================================================================================================       |  95%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop14 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2014)
Getting data from the 2010-2014 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |======================================                                                                                              |  29%
  |                                                                                                                                          
  |=======================================================================                                                             |  54%
  |                                                                                                                                          
  |==============================================================================                                                      |  59%
  |                                                                                                                                          
  |===============================================================================================                                     |  72%
  |                                                                                                                                          
  |=============================================================================================================                       |  82%
  |                                                                                                                                          
  |=========================================================================================================================           |  91%
  |                                                                                                                                          
  |===============================================================================================================================     |  96%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop13 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2013)
Getting data from the 2009-2013 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |===========                                                                                                                         |   8%
  |                                                                                                                                          
  |==================================                                                                                                  |  26%
  |                                                                                                                                          
  |===============================================================================                                                     |  60%
  |                                                                                                                                          
  |============================================================================================================================        |  94%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop12 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2012)
Getting data from the 2008-2012 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |=                                                                                                                                   |   1%
  |                                                                                                                                          
  |==                                                                                                                                  |   2%
  |                                                                                                                                          
  |===                                                                                                                                 |   2%
  |                                                                                                                                          
  |====                                                                                                                                |   3%
  |                                                                                                                                          
  |========                                                                                                                            |   6%
  |                                                                                                                                          
  |=============                                                                                                                       |  10%
  |                                                                                                                                          
  |===================                                                                                                                 |  15%
  |                                                                                                                                          
  |=============================                                                                                                       |  22%
  |                                                                                                                                          
  |======================================                                                                                              |  29%
  |                                                                                                                                          
  |========================================                                                                                            |  30%
  |                                                                                                                                          
  |========================================                                                                                            |  31%
  |                                                                                                                                          
  |=========================================                                                                                           |  31%
  |                                                                                                                                          
  |==========================================                                                                                          |  32%
  |                                                                                                                                          
  |=============================================                                                                                       |  34%
  |                                                                                                                                          
  |===============================================                                                                                     |  36%
  |                                                                                                                                          
  |=====================================================                                                                               |  40%
  |                                                                                                                                          
  |========================================================                                                                            |  43%
  |                                                                                                                                          
  |==================================================================                                                                  |  50%
  |                                                                                                                                          
  |===========================================================================                                                         |  57%
  |                                                                                                                                          
  |===================================================================================                                                 |  63%
  |                                                                                                                                          
  |=============================================================================================                                       |  70%
  |                                                                                                                                          
  |=============================================================================================                                       |  71%
  |                                                                                                                                          
  |=================================================================================================                                   |  74%
  |                                                                                                                                          
  |===================================================================================================                                 |  75%
  |                                                                                                                                          
  |========================================================================================================                            |  79%
  |                                                                                                                                          
  |==========================================================================================================                          |  81%
  |                                                                                                                                          
  |===========================================================================================================                         |  81%
  |                                                                                                                                          
  |==============================================================================================================                      |  84%
  |                                                                                                                                          
  |===================================================================================================================                 |  87%
  |                                                                                                                                          
  |======================================================================================================================              |  90%
  |                                                                                                                                          
  |========================================================================================================================            |  91%
  |                                                                                                                                          
  |==========================================================================================================================          |  92%
  |                                                                                                                                          
  |================================================================================================================================    |  97%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop11 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2011)
Getting data from the 2007-2011 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |==                                                                                                                                  |   2%
  |                                                                                                                                          
  |============                                                                                                                        |   9%
  |                                                                                                                                          
  |======================                                                                                                              |  17%
  |                                                                                                                                          
  |==========================                                                                                                          |  20%
  |                                                                                                                                          
  |============================                                                                                                        |  21%
  |                                                                                                                                          
  |===============================                                                                                                     |  23%
  |                                                                                                                                          
  |=================================                                                                                                   |  25%
  |                                                                                                                                          
  |====================================                                                                                                |  27%
  |                                                                                                                                          
  |======================================                                                                                              |  29%
  |                                                                                                                                          
  |=========================================                                                                                           |  31%
  |                                                                                                                                          
  |==========================================                                                                                          |  32%
  |                                                                                                                                          
  |==============================================                                                                                      |  35%
  |                                                                                                                                          
  |===============================================                                                                                     |  35%
  |                                                                                                                                          
  |================================================                                                                                    |  36%
  |                                                                                                                                          
  |===================================================                                                                                 |  39%
  |                                                                                                                                          
  |=====================================================                                                                               |  40%
  |                                                                                                                                          
  |============================================================                                                                        |  45%
  |                                                                                                                                          
  |===============================================================                                                                     |  48%
  |                                                                                                                                          
  |===================================================================                                                                 |  51%
  |                                                                                                                                          
  |======================================================================                                                              |  53%
  |                                                                                                                                          
  |=========================================================================                                                           |  55%
  |                                                                                                                                          
  |===========================================================================                                                         |  57%
  |                                                                                                                                          
  |============================================================================                                                        |  58%
  |                                                                                                                                          
  |================================================================================                                                    |  60%
  |                                                                                                                                          
  |==================================================================================                                                  |  62%
  |                                                                                                                                          
  |=====================================================================================                                               |  64%
  |                                                                                                                                          
  |=========================================================================================                                           |  68%
  |                                                                                                                                          
  |============================================================================================                                        |  70%
  |                                                                                                                                          
  |==================================================================================================                                  |  75%
  |                                                                                                                                          
  |=========================================================================================================                           |  80%
  |                                                                                                                                          
  |==========================================================================================================                          |  80%
  |                                                                                                                                          
  |===============================================================================================================                     |  84%
  |                                                                                                                                          
  |==================================================================================================================                  |  87%
  |                                                                                                                                          
  |========================================================================================================================            |  91%
  |                                                                                                                                          
  |==========================================================================================================================          |  93%
  |                                                                                                                                          
  |==============================================================================================================================      |  95%
  |                                                                                                                                          
  |===============================================================================================================================     |  96%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
pop10 <- get_acs(geography = "tract", variables = "B01003_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2010)
Getting data from the 2006-2010 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'

  |                                                                                                                                          
  |                                                                                                                                    |   0%
  |                                                                                                                                          
  |===========                                                                                                                         |   8%
  |                                                                                                                                          
  |==============================                                                                                                      |  23%
  |                                                                                                                                          
  |=========================================================================                                                           |  55%
  |                                                                                                                                          
  |====================================================================================                                                |  64%
  |                                                                                                                                          
  |====================================================================================================================================| 100%
# This data is pulled from the American Community Survey (ACS) and uses the 1-year estimate. This means that this data has a margin of error.


# Tidying my data
stastibble <- function(pop){as_tibble(pop)}
pop21_tibble <- stastibble(pop21)
pop20_tibble <- stastibble(pop20)
pop19_tibble <- stastibble(pop19)
pop18_tibble <- stastibble(pop18)
pop17_tibble <- stastibble(pop17)
pop16_tibble <- stastibble(pop16)
pop15_tibble <- stastibble(pop15)
pop14_tibble <- stastibble(pop14)
pop13_tibble <- stastibble(pop13)
pop12_tibble <- stastibble(pop12)
pop11_tibble <- stastibble(pop11)
pop10_tibble <- stastibble(pop10)

# Joining the data, making one dataframe with all of the years collected (2010 - 2021)

pop_joined <- left_join(pop21_tibble, pop20_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop19_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop18_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop17_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop16_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop15_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop14_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop13_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop12_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop11_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

pop_joined <- left_join(pop_joined, pop10_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

# Transforming my data into an object with geographical/spatial information (an SF object)
pop_joined <- drop_na(pop_joined)
pop_joined_sf <- st_as_sf(pop_joined, sf_column_name = 'geometry', crs = 4326)
Warning: st_crs<- : replacing crs does not reproject data; use st_transform for that
# Renaming columns

colnames(pop_joined_sf)[4] = "estimate21"
colnames(pop_joined_sf)[7] = "estimate20"
colnames(pop_joined_sf)[8] = "estimate19"
colnames(pop_joined_sf)[9] = "estimate18"
colnames(pop_joined_sf)[10] = "estimate17"
colnames(pop_joined_sf)[11] = "estimate16"
colnames(pop_joined_sf)[12] = "estimate15"
colnames(pop_joined_sf)[13] = "estimate14"
colnames(pop_joined_sf)[14] = "estimate13"
colnames(pop_joined_sf)[15] = "estimate12"
colnames(pop_joined_sf)[16] = "estimate11"
colnames(pop_joined_sf)[17] = "estimate10"

str(pop_joined_sf)
sf [520 × 17] (S3: sf/tbl_df/tbl/data.frame)
 $ GEOID     : chr [1:520] "26163563900" "26163542400" "26163542300" "26163517000" ...
 $ NAME      : chr [1:520] "Census Tract 5639, Wayne County, Michigan" "Census Tract 5424, Wayne County, Michigan" "Census Tract 5423, Wayne County, Michigan" "Census Tract 5170, Wayne County, Michigan" ...
 $ variable  : chr [1:520] "B01003_001" "B01003_001" "B01003_001" "B01003_001" ...
 $ estimate21: num [1:520] 2605 2587 2671 2905 2078 ...
 $ moe       : num [1:520] 428 297 671 403 252 755 464 488 860 554 ...
 $ geometry  :sfc_MULTIPOLYGON of length 520; first list element: List of 1
  ..$ :List of 1
  .. ..$ : num [1:9, 1:2] -83.5 -83.5 -83.5 -83.4 -83.4 ...
  ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
 $ estimate20: num [1:520] 2528 2340 2473 3261 2016 ...
 $ estimate19: num [1:520] 2315 2763 1989 3111 1963 ...
 $ estimate18: num [1:520] 2343 2709 1887 3359 2062 ...
 $ estimate17: num [1:520] 2339 2511 1869 3450 1994 ...
 $ estimate16: num [1:520] 2312 2320 1814 3268 1650 ...
 $ estimate15: num [1:520] 2368 2235 1838 2995 1649 ...
 $ estimate14: num [1:520] 2392 2393 2175 2788 1701 ...
 $ estimate13: num [1:520] 2412 2550 2130 2507 1468 ...
 $ estimate12: num [1:520] 2478 2515 2177 2354 1570 ...
 $ estimate11: num [1:520] 2585 2592 2343 2218 1545 ...
 $ estimate10: num [1:520] 2479 2828 2459 2341 1739 ...
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr [1:16] "GEOID" "NAME" "variable" "estimate.x" ...
# Making a static map first to test out aesthetics

detroit_map_population <- ggplot() + geom_sf(data = pop_joined_sf, color = "black", aes(fill = estimate21)) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightblue1", high = "indianred4")

detroit_map_population

# to utilize the gganimate package, you have to turn you data from wide format to long format
 pop_joined_Sf_long <- pivot_longer(data = pop_joined_sf, cols =c(estimate21, estimate20:estimate10))
# remapping my data that is now in long format
pop_joined_Sf_long %>% group_by(name)
Simple feature collection with 6240 features and 6 fields
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: -83.6 ymin: 42 xmax: -82.9 ymax: 42.5
Geodetic CRS:  WGS 84
detroit_map_pop_forgif <- ggplot() + geom_sf(data = pop_joined_Sf_long, color = "black", aes(fill = value)) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightblue1", high = "indianred4")
detroit_map_pop_forgif


# Renaming columns

pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate21'] <- '2021'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate20'] <- '2020'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate19'] <- '2019'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate18'] <- '2018'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate17'] <- '2017'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate16'] <- '2016'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate15'] <- '2015'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate14'] <- '2014'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate13'] <- '2013'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate12'] <- '2012'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate11'] <- '2011'
pop_joined_Sf_long$name[pop_joined_Sf_long$name == 'estimate10'] <- '2010'

# Transforming the year column from character vectors to integers

colnames(pop_joined_Sf_long)[6] <- 'year'
pop_joined_Sf_long$year <- as.integer(pop_joined_Sf_long$year)

# Creating the gif of the population map using gganimate package


detroit_map_pop_gif <- ggplot() + geom_sf(data = pop_joined_Sf_long, color = "black", aes(fill = value)) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightblue1", high = "indianred4") + transition_time(year) + labs(title = "Population by Census Tract by Year: {frame_time}")

detroit_map_pop_gif

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_map_pop_gif.gif")

# Making a graph that shows population fluctuation over time. While th emap gif is correct and functional, the change in population is too limited to accurately assess change. It is supplemented with this gif to provide a better visualization of population change. 

sum_pop_joined_Sf_long <- aggregate(x = pop_joined_Sf_long$value,               
          by = list(pop_joined_Sf_long$year),            
          FUN = sum) 

colnames(sum_pop_joined_Sf_long)[1] = 'year'
colnames(sum_pop_joined_Sf_long)[2] = 'value'

detroit_line_graph_population <- ggplot()+ geom_point(data = sum_pop_joined_Sf_long, aes(x = year, y= value)) + transition_time(year) + labs(title = "Population Total in Detroit by Year: {frame_time}")

detroit_line_graph_population

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!

VACANCIES

In the following section, I will map changes in vacancies in Detroit in the 2010s and early 2020s. This data is all provided by the American Community Survey 1-Year Estimates

Detroit, Michigan

# Downloading vacancy data, this data is also taken from the American Community Survey, but has been edited/tidied outside of R studio. 

# Vacancy Data - 1 Year Estimates from the American Community Survey

detroit_vacancies <- read_csv("detroitvac.characteristics.compiled - Sheet1 (2).csv")
Rows: 11 Columns: 9── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (2): Year, For migrant workers
num (7): Total, For rent, Rented, not occupied, For sale only, Sold, not occupied, For seasonal, recreational, or occasional use, Other va...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

# Making the GIF!

detroit_vacancies$Year <- as.integer(detroit_vacancies$Year)

detroit_line_graph_vacancies <- ggplot()+ geom_point(data = detroit_vacancies, aes(x = Year, y= Total)) + theme_bw() + transition_time(Year) + labs(title = "Total Vacancies in Detroit by Year: {frame_time}")

detroit_line_graph_vacancies

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_vacancies.gif")

# Filtering to only 'rented not occupied' vacancies in the Detroit area

detroit_vacancies$`Rented, not occupied`<- as.integer(detroit_vacancies$`Rented, not occupied`)

detroit_line_graph_vacancies_1 <- ggplot() +  geom_point(data = detroit_vacancies, aes(x = Year, y= `Rented, not occupied`)) + transition_time(Year) + theme_bw() + labs(title = "Rented, not Occupied Vacancies in Detroit by Year: {frame_time}")

detroit_line_graph_vacancies_1

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_vacancies_1.gif")
# Filtering to only 'sold, not occupied' vacancies in the Detroit area

detroit_line_graph_vacancies_2 <- ggplot() + geom_point(data = detroit_vacancies, aes(x = Year, y= `Sold, not occupied`)) + transition_time(Year) + theme_bw() + labs(title = "Sold, not Occupied Vacancies in Detroit by Year: {frame_time}")

detroit_line_graph_vacancies_2

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_vacancies_2.gif")

# Downloading vacancy data for Wayne County from the ACS at the Tract Level

vacancy_tract_21 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2021)
Getting data from the 2017-2021 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_20 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2020)
Getting data from the 2016-2020 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_19 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2019)
Getting data from the 2015-2019 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_18 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2018)
Getting data from the 2014-2018 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_17 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2017)
Getting data from the 2013-2017 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_16 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2016)
Getting data from the 2012-2016 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_15 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2015)
Getting data from the 2011-2015 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_14 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2014)
Getting data from the 2010-2014 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_13 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2013)
Getting data from the 2009-2013 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_12 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2012)
Getting data from the 2008-2012 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_11 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2011)
Getting data from the 2007-2011 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
vacancy_tract_10 <- get_acs(geography = "tract", variables = "B25004_001",
                state = "MI", county = "Wayne", geometry = TRUE, year = 2010)
Getting data from the 2006-2010 5-year ACS
Downloading feature geometry from the Census website.  To cache shapefiles for use in future sessions, set `options(tigris_use_cache = TRUE)`.
Using FIPS code '26' for state 'MI'
Using FIPS code '163' for 'Wayne County'
# Tidying the vacancy data

stastibble <- function(vacancy){as_tibble(vacancy)}
vacancy_tract_21_tibble <- stastibble(vacancy_tract_21)
vacancy_tract_20_tibble <- stastibble(vacancy_tract_20)
vacancy_tract_19_tibble <- stastibble(vacancy_tract_19)
vacancy_tract_18_tibble <- stastibble(vacancy_tract_18)
vacancy_tract_17_tibble <- stastibble(vacancy_tract_17)
vacancy_tract_16_tibble <- stastibble(vacancy_tract_16)
vacancy_tract_15_tibble <- stastibble(vacancy_tract_15)
vacancy_tract_14_tibble <- stastibble(vacancy_tract_14)
vacancy_tract_13_tibble <- stastibble(vacancy_tract_13)
vacancy_tract_12_tibble <- stastibble(vacancy_tract_12)
vacancy_tract_11_tibble <- stastibble(vacancy_tract_11)
vacancy_tract_10_tibble <- stastibble(vacancy_tract_10)

# Joining vacancy data to make a compiled data frame that has all years.
vacancy_joined <- left_join(vacancy_tract_21_tibble, vacancy_tract_20_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_19_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_18_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_17_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_16_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_15_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_14_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_13_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_12_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined<- left_join(vacancy_joined, vacancy_tract_11_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')

vacancy_joined <- left_join(vacancy_joined, vacancy_tract_10_tibble %>% dplyr::select(estimate, GEOID), by = 'GEOID')
colnames(vacancy_joined)[4] = "est2021"
colnames(vacancy_joined)[7] = "est2020"
colnames(vacancy_joined)[8] = "est2019"
colnames(vacancy_joined)[9] = "est2018"
colnames(vacancy_joined)[10] = "est2017"
colnames(vacancy_joined)[11] = "est2016"
colnames(vacancy_joined)[12] = "est2015"
colnames(vacancy_joined)[13] = "est2014"
colnames(vacancy_joined)[14] = "est2013"
colnames(vacancy_joined)[15] = "est2012"
colnames(vacancy_joined)[16] = "est2011"
colnames(vacancy_joined)[17] = "est2010"
vacancy_joined_sf <- st_as_sf(vacancy_joined, sf_column_name = 'geometry', crs = 4326)
Warning: st_crs<- : replacing crs does not reproject data; use st_transform for that
vacancy_joined_sf <- drop_na(vacancy_joined_sf)

vacancy_joined_Sf_long <- pivot_longer(data = vacancy_joined_sf, cols =c(est2021, est2020:est2010))

vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2021'] <- '2021'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2020'] <- '2020'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2019'] <- '2019'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2018'] <- '2018'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2017'] <- '2017'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2016'] <- '2016'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2015'] <- '2015'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2014'] <- '2014'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2013'] <- '2013'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2012'] <- '2012'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2011'] <- '2011'
vacancy_joined_Sf_long$name[vacancy_joined_Sf_long$name == 'est2010'] <- '2010'

# Making the vacancy data gif

colnames(vacancy_joined_Sf_long)[6] <- 'year' 
vacancy_joined_Sf_long$year <- as.integer(vacancy_joined_Sf_long$year)

detroit_map_vacancy_gif <- ggplot() + geom_sf(data = vacancy_joined_Sf_long, color = "black", aes(fill = value)) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightyellow1", high = "darkorchid4") + transition_time(year) + labs(title = "Vacancy by Census Tract by Year: {frame_time}")

detroit_map_vacancy_gif

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_map_vacancy_gif.gif")

PROPERTY SALES

This section will focus on the frequency and price of property sales in the Detroit area from 2011 - 2022. This data is sourced from Detroit’s Open Data Portal (link here: https://data.detroitmi.gov/datasets/property-sales-1/explore) , and importantly, has been adjusted for inflation. There are charts created for total real estate prices, as well as average prices, in the given time period.

# Downloading property sales from Detroit's open data portal 

Detroit_propertysales <- read_csv("property_sales.csv")
Rows: 377839 Columns: 16── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (10): parcel_number, address, grantor, grantee, liberpage, sale_terms, verified_by, sale_instrument, property_class, ecf
dbl   (4): object_id, sale_number, sale_price, sale_trans
lgl   (1): geom
date  (1): sale_date
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
detroit_property_sales_year <- format(as.Date(Detroit_propertysales$sale_date, format="%Y/%m/%d"),"%Y")
data.frame(detroit_property_sales_year)
detroit_propsales_year_1 <- cbind(detroit_property_sales_year, Detroit_propertysales)
detroit_propsales_year_1

Detroit_propertysales_2011 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2011)
Detroit_propertysales_2012 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2012)
Detroit_propertysales_2013 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2013)
Detroit_propertysales_2014 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2014)
Detroit_propertysales_2015 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2015)
Detroit_propertysales_2016 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2016)
Detroit_propertysales_2017 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2017)
Detroit_propertysales_2018 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2018)
Detroit_propertysales_2019 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2019)
Detroit_propertysales_2020 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2020)
Detroit_propertysales_2021 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2021)
Detroit_propertysales_2022 <- detroit_propsales_year_1 %>% filter(detroit_property_sales_year == 2022)
# adding all detroit property sales and creating a gif that illustrates the change in total sale price by year. 

sum_detroit_propsales_year_1 <- aggregate(x = detroit_propsales_year_1$sale_price,               
          by = list(detroit_propsales_year_1$detroit_property_sales_year),            
          FUN = sum) 
colnames(sum_detroit_propsales_year_1)[1] = 'year'
colnames(sum_detroit_propsales_year_1)[2] = 'price'

sum_detroit_propsales_year_1$year <- as.integer(sum_detroit_propsales_year_1$year)

detroit_line_graph_salesprices <- ggplot()+ geom_point(data = sum_detroit_propsales_year_1, aes(x = year, y= price)) + theme_bw() + transition_time(year) + labs(title = "Real Estate Prices in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices.gif")

# Graphing the average sale prices in Detroit

avg_detroit_propsales_year_1 <- aggregate(x = detroit_propsales_year_1$sale_price,               
          by = list(detroit_propsales_year_1$detroit_property_sales_year),            
          FUN = mean) 

colnames(avg_detroit_propsales_year_1)[1] = 'year'
colnames(avg_detroit_propsales_year_1)[2] = 'price'

avg_detroit_propsales_year_1$year <- as.integer(avg_detroit_propsales_year_1$year)

detroit_line_graph_salesprices_avg <- ggplot()+ geom_point(data = avg_detroit_propsales_year_1, aes(x = year, y= price)) + theme_bw() + transition_time(year) + labs(title = " Average Real Estate Prices in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices_avg

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices_avg.gif")
# Filtering to property class 401, which refers to residential in nature and recently improved.
detroitsales_401 <- detroit_propsales_year_1 %>% dplyr::filter(., property_class == 401)

# Filtering to property class 402, which refers to residential and nature and vacant.
detroitsales_402 <- detroit_propsales_year_1 %>% dplyr::filter(., property_class == 402)

# Graphing the total sale prices in Detroit - by property class 401

sum_detroit_propsales_year_401 <- aggregate(x = detroitsales_401$sale_price,               
          by = list(detroitsales_401$detroit_property_sales_year),            
          FUN = sum) 
colnames(sum_detroit_propsales_year_401)[1] = 'year'
colnames(sum_detroit_propsales_year_401)[2] = 'price'

sum_detroit_propsales_year_401$year <- as.integer(sum_detroit_propsales_year_401$year)

detroit_line_graph_salesprices_401 <- ggplot()+ geom_point(data = sum_detroit_propsales_year_401, aes(x = year, y= price)) + theme_bw() + transition_time(year) + labs(title = "Real Estate Prices - Residential in Nature and Improved in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices_401

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices_401.gif")
# Graphing the average sale prices in Detroit - by property class 401

avg_detroit_propsales_year_401 <- aggregate(x = detroitsales_401$sale_price,               
          by = list(detroitsales_401$detroit_property_sales_year),            
          FUN = mean) 
colnames(avg_detroit_propsales_year_401)[1] = 'year'
colnames(avg_detroit_propsales_year_401)[2] = 'price'

avg_detroit_propsales_year_401$year <- as.integer(avg_detroit_propsales_year_401$year)

detroit_line_graph_salesprices_401_avg <- ggplot()+ geom_point(data = avg_detroit_propsales_year_401, aes(x = year, y= price)) + theme_bw() + transition_time(year) + labs(title = " Average Real Estate Prices - Residential in Nature and Improved in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices_401_avg

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices_401_avg.gif")
# Graphing the total sale prices in Detroit - by property class 402

sum_detroit_propsales_year_402 <- aggregate(x = detroitsales_402$sale_price,               
          by = list(detroitsales_402$detroit_property_sales_year),            
          FUN = sum) 
colnames(sum_detroit_propsales_year_402)[1] = 'year'
colnames(sum_detroit_propsales_year_402)[2] = 'price'

sum_detroit_propsales_year_402$year <- as.integer(sum_detroit_propsales_year_402$year)

detroit_line_graph_salesprices_402 <- ggplot()+ geom_point(data = sum_detroit_propsales_year_402, aes(x = year, y= price), color = "royalblue", size = 4) + theme_bw() + transition_time(year) + labs(title = "Real Estate Prices - Residential and Vacant in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices_402

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices_402.gif")
# Graphing the average sale prices in Detroit - by property class 402

avg_detroit_propsales_year_402 <- aggregate(x = detroitsales_402$sale_price,               
          by = list(detroitsales_402$detroit_property_sales_year),            
          FUN = mean) 
colnames(avg_detroit_propsales_year_402)[1] = 'year'
colnames(avg_detroit_propsales_year_402)[2] = 'price'

avg_detroit_propsales_year_402$year <- as.integer(avg_detroit_propsales_year_402$year)

detroit_line_graph_salesprices_402_avg <- ggplot()+ geom_point(data = avg_detroit_propsales_year_402, aes(x = year, y= price)) + theme_bw() + transition_time(year) + labs(title = " Average Real Estate Prices - Residential and Vacant in Detroit by Year: {frame_time}")

detroit_line_graph_salesprices_402_avg

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_line_graph_salesprices_402_avg.gif")

DEMOLITION

Detroit, Michigan

This section focuses on demolitions, and draws directly from Detroit’s Open Data Portal. The link for this data can be found here: https://data.detroitmi.gov/datasets/detroitmi::completed-residential-demolitions/explore

# Downloading residential demolition data - from Detroit's Open Data Portal

residential_demolitions <- read_csv("Completed_Residential_Demolitions.csv")
Rows: 25604 Columns: 21── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (13): address, parcel_id, contractor_name, funding_source, demolition_date, demo_rfp_group, commercial, neighborhood, emergency_demo, ...
dbl  (8): X, Y, price, council_district, street_number, property_longitude, property_latitude, ObjectId
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
# Tidying demolition data...

year_demo<- format(as.Date(residential_demolitions$demolition_date, format="%Y/%m/%d"),"%Y")
data.frame(residential_demolitions)
residential_demo_year <- cbind(year_demo, residential_demolitions)
residential_demo_year
# Transforming it into a spatial object

residential_demo_year <- st_as_sf(residential_demo_year, coords = c("X", "Y"), crs = 4326)
# Mapping residential demolitions from 2014 - 2022 (2014 is the earliest date available)
residential_demo_year$year_demo <- as.integer(residential_demo_year$year_demo)

detroit_map_demo <- ggplot() + geom_sf(data = residential_demo_year, color = "darkgreen", aes(fill = year_demo), size = .05, alpha = .5) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightyellow1", high = "darkorchid4") 

detroit_map_demo


# Making it into a gif!

residential_demo_year$year_demo <- as.integer(residential_demo_year$year_demo)

detroit_map_demo_gif <- ggplot() + geom_sf(data = residential_demo_year, color = "darkgreen", aes(fill = year_demo), size = .05, alpha = .5) + theme_light(base_size = 10) + scale_fill_gradient(low = "lightyellow1", high = "darkorchid4") + transition_time(year_demo) + labs(title = "Demolitions by Year: {frame_time}")

detroit_map_demo_gif

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
knitr::include_graphics("detroit_map_demo_gif.gif")
Below, I am saving all of the animations to be reinserted into this notebook.
anim_save("detroit_map_demo_gif.gif", detroit_map_demo_gif)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_map_pop_gif.gif", detroit_map_pop_gif)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_population.gif", detroit_line_graph_population)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_vacancies_1.gif", detroit_line_graph_vacancies_1)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_vacancies_2.gif", detroit_line_graph_vacancies_2)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_map_vacancy_gif.gif", detroit_map_vacancy_gif)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices.gif", detroit_line_graph_salesprices)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices_401.gif", detroit_line_graph_salesprices_401) 

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices_402.gif", detroit_line_graph_salesprices_402) 

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices_401_avg.gif", detroit_line_graph_salesprices_401_avg) 

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices_402_avg.gif", detroit_line_graph_salesprices_402_avg)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_salesprices_avg.gif", detroit_line_graph_salesprices_avg)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
anim_save("detroit_line_graph_vacancies.gif", detroit_line_graph_vacancies)

Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!
#install.packages("gifski")
library(gifski)
library(rsconnect)
library(shiny)

Attaching package: ‘shiny’

The following object is masked from ‘package:rsconnect’:

    serverInfo

The following object is masked from ‘package:jsonlite’:

    validate

Citations

Data

United State Census Bureau. (2010-2020). American Community Survey. Explore census data. Wayne County, Michigan. https://data.census.gov/table?q=vacancy&g=040XX00US26&tid=ACSDT1Y2021.B25002

United State Census Bureau. (2010-2020). American Community Survey. Explore census data. Wayne County, Michigan. https://data.census.gov/table?q=population&g=040XX00US26&tid=ACSDP1Y2021.DP05

Housing Data. Zillow. (2023, April 25). https://www.zillow.com/research/data/

Property sales. Detroit’s Open Data Portal. (n.d.-b). https://data.detroitmi.gov/datasets/property-sales-1/explore

Completed residential demolitions. Detroit’s Open Data Portal. (n.d.). https://data.detroitmi.gov/datasets/detroitmi::completed-residential-demolitions/explore?location=42.352748%2C-83.100004%2C10.98

Images

Detroit. Pure Michigan | Official Travel & Tourism Website for Michigan. (2023, May 11). https://www.michigan.org/city/detroit

Klinefelter, Q. (2013, March 1). Michigan officials take control of Detroit’s empty wallet. NPR. https://www.npr.org/2013/03/01/173241269/michigan-officials-take-control-of-detroits-empty-wallet

Owens, C. (2015, June 12). How Detroit taught itself to demolish vacant houses safely. Next City. https://nextcity.org/urbanist-news/detroit-demolition-blight-teardowns-safety

LS0tCnRpdGxlOiAiVmlzdWFsaXppbmcgVXJiYW4gRGVjYXk6IERldHJvaXQiCnN1YnRpdGxlOiAiUGxhbiA2MTIyIFRlcm0gUHJvamVjdCIKYXV0aG9yOiBUaGVvZG9yYSBDYXRyaW5hCmRhdGU6IE1heSAxMSwgMjAyMwpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIyMgVklTVUFMSVpJTkcgVVJCQU4gREVDQVk6IERldHJvaXQKClRoaXMgdGVybSBwcm9qZWN0IGFpbXMgdG8gZGVmaW5lIGFuZCB2aXN1YWxpemUgdGhlIHNoaWZ0aW5nIG5hdHVyZSBvZiB1cmJhbiBkZWNheSBpbiBEZXRyb2l0IGluIHRoZSAyMDEwcyB0byB0aGUgcHJlc2VudC4gSW4gZG9pbmcgc28sIHRoaXMgbm90ZWJvb2sgaXMgZGVkaWNhdGVkIHRvIHZpc3VhbGl6aW5nIGZvdXIgc2VwYXJhdGUgY29tcG9uZW50cyB0aGF0IHRoZSBhdXRob3IgaGFzIHNlbGVjdGVkLCB3aGljaCB3aWxsIGFjdCBhcyB0aGUgZGVmaW5pbmcgcXVhbnRpZmllcnMgZm9yICJ1cmJhbiBkZWNheS4iIFRoZXJlZm9yZSwgdGhlIG5vdGVib29rIGlzIHNwbGl0IGludG8gZm91ciBwcmltYXJ5IHBhcnRzOgoKMS4gIFBvcHVsYXRpb24gQ2hhbmdlcwoyLiAgVmFjYW5jeSBDaGFuZ2VzIGluIFJlc2lkZW50aWFsIFByb3BlcnRpZXMKMy4gIFByb3BlcnR5IFNhbGVzCjQuICBEZW1vbGl0aW9ucwoKVGhlc2UgZm91ciB0b3BpY3MgYXJlIHJlZ2FyZGVkIGFzIHByaW1hcnkgaW5kaWNhdG9ycyBvZiB1cmJhbiBkZWNheSwgYW5kIHRoaXMgcHJvamVjdCB0YWtlcyBhIHRlbXBvcmFsIGFwcHJvYWNoLiAxLiBJdCBhc3N1bWVzIHRoYXQgJ3VyYmFuIGRlY2F5JyBpcyBhIHJlc3VsdCBvZiB0aGUgZm9sbG93aW5nIHByb2Nlc3M6IHRoZSBleG9kdXMgb2YgcGVvcGxlLCB0aGUgaW5jcmVhc2UgaW4gdmFjYW5jeSwgdGhlIGluY3JlYXNlIG9mIHByb3BlcnR5IHNhbGVzICh0eXBpY2FsbHkgZm9yZWNsb3NlZCBwcm9wZXJ0aWVzIGF0IGEgbG93IHByaWNlKSwgYW5kIHRoZW4sIGluIGFuIGF0dGVtcHQgdG8gZ3JhcHBsZSB3aXRoIHRoZSBwaHlzaWNhbCBjb25zZXF1ZW5jZXMgb2YgdXJiYW4gZGVjYXk7IGRlbW9saXRpb25zLgoKIVtEZXRyb2l0LCBNaWNoaWdhbl0oRGV0cm9pdCwlMjBNaWNoaWdhbi5wbmcpCgpgYGB7cn0KCiMgTG9hZGluZyBhbmQgSW5zdGFsbGluZyBhbGwgTmVjZXNzYXJ5IFBhY2thZ2VzCgpsaWJyYXJ5KGZsZXhkYXNoYm9hcmQpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KGx1YnJpZGF0ZSkKbGlicmFyeShqc29ubGl0ZSkKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoaGFibGFyKQpsaWJyYXJ5KFJDb2xvckJyZXdlcikKIyBkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoImhhZGxleS9lbW8iKQpsaWJyYXJ5KGVtbykKbGlicmFyeSh0bWFwKQpsaWJyYXJ5KHJzY29ubmVjdCkKbGlicmFyeShnZ3Bsb3QyKQpgYGAKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygidGlkeWNlbnN1cyIpCmBgYAoKYGBge3J9CmxpYnJhcnkodGlkeWNlbnN1cykKI2luc3RhbGwucGFja2FnZXMoJ2dnYW5pbWF0ZScpCmxpYnJhcnkoZ2dhbmltYXRlKQpgYGAKCmBgYHtyfQojaW5zdGFsbC5wYWNrYWdlcygidHJhbnNmb3JtciIpCmxpYnJhcnkodHJhbnNmb3JtcikKYGBgCgojIFBPUFVMQVRJT04KCkluIHRoZSBmb2xsb3dpbmcgc2VjdGlvbiwgSSBtYW5pcHVsYXRlIGFuZCBtYXAgcG9wdWxhdGlvbiBkYXRhIHByb3ZpZGVkIGJ5IHRoZSBBbWVyaWNhbiBDb21tdW5pdHkgU3VydmV5LiBJdCBpcyBpbXBvcnRhbnQgdG8gbm90ZSB0aGF0IHRoZSBkYXRhIHNlbGVjdGVkIGlzIGZvciBXYXluZSBDb3VudHksIHdoZXJlIHRoZSBjaXR5IG9mIERldHJvaXQgcmVzaWRlcy4gVGhlIHJlYXNvbmluZyBmb3IgdGhpcyBpcyB0d29mb2xkOiAxLiBJdCB3YXMgZWFzaWVyIHRvIGRvd25sb2FkIHRyYWN0IGxldmVsIGRhdGEgZm9yIHRoZSBlbnRpcmUgY291bnR5LiAyLiBJIGJlbGlldmUgdGhhdCBtYXBwaW5nIHRoYXQgaWxsdXN0cmF0ZXMgY2hhbmdlcyBpbiBwb3B1bGF0aW9uIG9mIG9uZSBzcGVjaWZpYyByZWdpb24gKGluIHRoaXMgY2FzZSB0aGUgY2l0eSBvZiBEZXRyb2l0KSBzaG91bGQgaW5jbHVkZSB0aGUgc3Vycm91bmRpbmcgYXJlYS4gUGVyaGFwcyB0aGlzIG1hcHBpbmcgd2lsbCBmaW5kIHRoYXQgYXMgcGVvcGxlIG1vdmUgaW4gb3Igb3V0IG9mIERldHJvaXQsIHRoZSByZXN0IG9mIFdheW5lIENvdW50eSBtYXkgaGF2ZSB0aGUgb3Bwb3NpdGUgcmVhY3Rpb24gKGkuZS4sIHBlb3BsZSBtb3ZpbmcgZnJvbSB0aGUgY2l0eSBjZW50ZXIgdG8gdGhlIHN1YnVyYnMsIGV0Yy4pCgpgYGB7cn0KCiMgRG93bmxvYWRpbmcgcG9wdWxhdGlvbiBkYXRhIGZyb20gVGlkeUNlbnN1cyBmb3IgbWFwcGluZy4gUG9wdWxhdGlvbiBpcyBvbmUgb2YgdGhleSBrZXkgZmFjdG9ycyBsb29rZWQgaW50byBmb3IgdGhpcyByZXNlYXJjaCBwcm9qZWN0LCBhcyBpdCBtYXJrcyB0aGUgaW5mbHV4L2V4b2R1cyBvZiBwZW9wbGUgaW4gRGV0cm9pdC4gSSBsaW1pdGVkIG15IHRpbWUgcGVyaW9kIHRvIDIwMTAtMjAyMSwgYXMgSSB3YW50ZWQgdG8gc2VlIGNoYW5nZXMgaW4gdGhlIERldHJvaXQgYXJlYSBpbiB0aGUgbW9zdCByZWNlbnQgZGVjYWRlLgoKCnBvcDIxIDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInRyYWN0IiwgdmFyaWFibGVzID0gIkIwMTAwM18wMDEiLAogICAgICAgICAgICAgICAgc3RhdGUgPSAiTUkiLCBjb3VudHkgPSAiV2F5bmUiLCBnZW9tZXRyeSA9IFRSVUUsIHllYXIgPSAyMDIxKQpwb3AyMCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMDEwMDNfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAyMCkKcG9wMTkgPC0gZ2V0X2FjcyhnZW9ncmFwaHkgPSAidHJhY3QiLCB2YXJpYWJsZXMgPSAiQjAxMDAzXzAwMSIsCiAgICAgICAgICAgICAgICBzdGF0ZSA9ICJNSSIsIGNvdW50eSA9ICJXYXluZSIsIGdlb21ldHJ5ID0gVFJVRSwgeWVhciA9IDIwMTkpCnBvcDE4IDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInRyYWN0IiwgdmFyaWFibGVzID0gIkIwMTAwM18wMDEiLAogICAgICAgICAgICAgICAgc3RhdGUgPSAiTUkiLCBjb3VudHkgPSAiV2F5bmUiLCBnZW9tZXRyeSA9IFRSVUUsIHllYXIgPSAyMDE4KQpwb3AxNyA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMDEwMDNfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNykKcG9wMTYgPC0gZ2V0X2FjcyhnZW9ncmFwaHkgPSAidHJhY3QiLCB2YXJpYWJsZXMgPSAiQjAxMDAzXzAwMSIsCiAgICAgICAgICAgICAgICBzdGF0ZSA9ICJNSSIsIGNvdW50eSA9ICJXYXluZSIsIGdlb21ldHJ5ID0gVFJVRSwgeWVhciA9IDIwMTYpCnBvcDE1IDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInRyYWN0IiwgdmFyaWFibGVzID0gIkIwMTAwM18wMDEiLAogICAgICAgICAgICAgICAgc3RhdGUgPSAiTUkiLCBjb3VudHkgPSAiV2F5bmUiLCBnZW9tZXRyeSA9IFRSVUUsIHllYXIgPSAyMDE1KQpwb3AxNCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMDEwMDNfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNCkKcG9wMTMgPC0gZ2V0X2FjcyhnZW9ncmFwaHkgPSAidHJhY3QiLCB2YXJpYWJsZXMgPSAiQjAxMDAzXzAwMSIsCiAgICAgICAgICAgICAgICBzdGF0ZSA9ICJNSSIsIGNvdW50eSA9ICJXYXluZSIsIGdlb21ldHJ5ID0gVFJVRSwgeWVhciA9IDIwMTMpCnBvcDEyIDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInRyYWN0IiwgdmFyaWFibGVzID0gIkIwMTAwM18wMDEiLAogICAgICAgICAgICAgICAgc3RhdGUgPSAiTUkiLCBjb3VudHkgPSAiV2F5bmUiLCBnZW9tZXRyeSA9IFRSVUUsIHllYXIgPSAyMDEyKQpwb3AxMSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMDEwMDNfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxMSkKcG9wMTAgPC0gZ2V0X2FjcyhnZW9ncmFwaHkgPSAidHJhY3QiLCB2YXJpYWJsZXMgPSAiQjAxMDAzXzAwMSIsCiAgICAgICAgICAgICAgICBzdGF0ZSA9ICJNSSIsIGNvdW50eSA9ICJXYXluZSIsIGdlb21ldHJ5ID0gVFJVRSwgeWVhciA9IDIwMTApCgojIFRoaXMgZGF0YSBpcyBwdWxsZWQgZnJvbSB0aGUgQW1lcmljYW4gQ29tbXVuaXR5IFN1cnZleSAoQUNTKSBhbmQgdXNlcyB0aGUgMS15ZWFyIGVzdGltYXRlLiBUaGlzIG1lYW5zIHRoYXQgdGhpcyBkYXRhIGhhcyBhIG1hcmdpbiBvZiBlcnJvci4KCmBgYAoKYGBge3J9CgojIFRpZHlpbmcgbXkgZGF0YQpzdGFzdGliYmxlIDwtIGZ1bmN0aW9uKHBvcCl7YXNfdGliYmxlKHBvcCl9CnBvcDIxX3RpYmJsZSA8LSBzdGFzdGliYmxlKHBvcDIxKQpwb3AyMF90aWJibGUgPC0gc3Rhc3RpYmJsZShwb3AyMCkKcG9wMTlfdGliYmxlIDwtIHN0YXN0aWJibGUocG9wMTkpCnBvcDE4X3RpYmJsZSA8LSBzdGFzdGliYmxlKHBvcDE4KQpwb3AxN190aWJibGUgPC0gc3Rhc3RpYmJsZShwb3AxNykKcG9wMTZfdGliYmxlIDwtIHN0YXN0aWJibGUocG9wMTYpCnBvcDE1X3RpYmJsZSA8LSBzdGFzdGliYmxlKHBvcDE1KQpwb3AxNF90aWJibGUgPC0gc3Rhc3RpYmJsZShwb3AxNCkKcG9wMTNfdGliYmxlIDwtIHN0YXN0aWJibGUocG9wMTMpCnBvcDEyX3RpYmJsZSA8LSBzdGFzdGliYmxlKHBvcDEyKQpwb3AxMV90aWJibGUgPC0gc3Rhc3RpYmJsZShwb3AxMSkKcG9wMTBfdGliYmxlIDwtIHN0YXN0aWJibGUocG9wMTApCmBgYAoKYGBge3J9CgojIEpvaW5pbmcgdGhlIGRhdGEsIG1ha2luZyBvbmUgZGF0YWZyYW1lIHdpdGggYWxsIG9mIHRoZSB5ZWFycyBjb2xsZWN0ZWQgKDIwMTAgLSAyMDIxKQoKcG9wX2pvaW5lZCA8LSBsZWZ0X2pvaW4ocG9wMjFfdGliYmxlLCBwb3AyMF90aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKcG9wX2pvaW5lZCA8LSBsZWZ0X2pvaW4ocG9wX2pvaW5lZCwgcG9wMTlfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnBvcF9qb2luZWQgPC0gbGVmdF9qb2luKHBvcF9qb2luZWQsIHBvcDE4X3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgpwb3Bfam9pbmVkIDwtIGxlZnRfam9pbihwb3Bfam9pbmVkLCBwb3AxN190aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKcG9wX2pvaW5lZCA8LSBsZWZ0X2pvaW4ocG9wX2pvaW5lZCwgcG9wMTZfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnBvcF9qb2luZWQgPC0gbGVmdF9qb2luKHBvcF9qb2luZWQsIHBvcDE1X3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgpwb3Bfam9pbmVkIDwtIGxlZnRfam9pbihwb3Bfam9pbmVkLCBwb3AxNF90aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKcG9wX2pvaW5lZCA8LSBsZWZ0X2pvaW4ocG9wX2pvaW5lZCwgcG9wMTNfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnBvcF9qb2luZWQgPC0gbGVmdF9qb2luKHBvcF9qb2luZWQsIHBvcDEyX3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgpwb3Bfam9pbmVkIDwtIGxlZnRfam9pbihwb3Bfam9pbmVkLCBwb3AxMV90aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKcG9wX2pvaW5lZCA8LSBsZWZ0X2pvaW4ocG9wX2pvaW5lZCwgcG9wMTBfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCmBgYAoKYGBge3J9CiMgVHJhbnNmb3JtaW5nIG15IGRhdGEgaW50byBhbiBvYmplY3Qgd2l0aCBnZW9ncmFwaGljYWwvc3BhdGlhbCBpbmZvcm1hdGlvbiAoYW4gU0Ygb2JqZWN0KQpwb3Bfam9pbmVkIDwtIGRyb3BfbmEocG9wX2pvaW5lZCkKcG9wX2pvaW5lZF9zZiA8LSBzdF9hc19zZihwb3Bfam9pbmVkLCBzZl9jb2x1bW5fbmFtZSA9ICdnZW9tZXRyeScsIGNycyA9IDQzMjYpCgpgYGAKCmBgYHtyfQojIFJlbmFtaW5nIGNvbHVtbnMKCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzRdID0gImVzdGltYXRlMjEiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzddID0gImVzdGltYXRlMjAiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzhdID0gImVzdGltYXRlMTkiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzldID0gImVzdGltYXRlMTgiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzEwXSA9ICJlc3RpbWF0ZTE3Igpjb2xuYW1lcyhwb3Bfam9pbmVkX3NmKVsxMV0gPSAiZXN0aW1hdGUxNiIKY29sbmFtZXMocG9wX2pvaW5lZF9zZilbMTJdID0gImVzdGltYXRlMTUiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzEzXSA9ICJlc3RpbWF0ZTE0Igpjb2xuYW1lcyhwb3Bfam9pbmVkX3NmKVsxNF0gPSAiZXN0aW1hdGUxMyIKY29sbmFtZXMocG9wX2pvaW5lZF9zZilbMTVdID0gImVzdGltYXRlMTIiCmNvbG5hbWVzKHBvcF9qb2luZWRfc2YpWzE2XSA9ICJlc3RpbWF0ZTExIgpjb2xuYW1lcyhwb3Bfam9pbmVkX3NmKVsxN10gPSAiZXN0aW1hdGUxMCIKCgpgYGAKCmBgYHtyfQpzdHIocG9wX2pvaW5lZF9zZikKYGBgCgpgYGB7cn0KIyBNYWtpbmcgYSBzdGF0aWMgbWFwIGZpcnN0IHRvIHRlc3Qgb3V0IGFlc3RoZXRpY3MKCmRldHJvaXRfbWFwX3BvcHVsYXRpb24gPC0gZ2dwbG90KCkgKyBnZW9tX3NmKGRhdGEgPSBwb3Bfam9pbmVkX3NmLCBjb2xvciA9ICJibGFjayIsIGFlcyhmaWxsID0gZXN0aW1hdGUyMSkpICsgdGhlbWVfbGlnaHQoYmFzZV9zaXplID0gMTApICsgc2NhbGVfZmlsbF9ncmFkaWVudChsb3cgPSAibGlnaHRibHVlMSIsIGhpZ2ggPSAiaW5kaWFucmVkNCIpCgpkZXRyb2l0X21hcF9wb3B1bGF0aW9uCmBgYAoKYGBge3J9CiMgdG8gdXRpbGl6ZSB0aGUgZ2dhbmltYXRlIHBhY2thZ2UsIHlvdSBoYXZlIHRvIHR1cm4geW91IGRhdGEgZnJvbSB3aWRlIGZvcm1hdCB0byBsb25nIGZvcm1hdAogcG9wX2pvaW5lZF9TZl9sb25nIDwtIHBpdm90X2xvbmdlcihkYXRhID0gcG9wX2pvaW5lZF9zZiwgY29scyA9Yyhlc3RpbWF0ZTIxLCBlc3RpbWF0ZTIwOmVzdGltYXRlMTApKQpgYGAKCmBgYHtyfQojIHJlbWFwcGluZyBteSBkYXRhIHRoYXQgaXMgbm93IGluIGxvbmcgZm9ybWF0CnBvcF9qb2luZWRfU2ZfbG9uZyAlPiUgZ3JvdXBfYnkobmFtZSkKZGV0cm9pdF9tYXBfcG9wX2ZvcmdpZiA8LSBnZ3Bsb3QoKSArIGdlb21fc2YoZGF0YSA9IHBvcF9qb2luZWRfU2ZfbG9uZywgY29sb3IgPSAiYmxhY2siLCBhZXMoZmlsbCA9IHZhbHVlKSkgKyB0aGVtZV9saWdodChiYXNlX3NpemUgPSAxMCkgKyBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICJsaWdodGJsdWUxIiwgaGlnaCA9ICJpbmRpYW5yZWQ0IikKZGV0cm9pdF9tYXBfcG9wX2ZvcmdpZgpgYGAKCmBgYHtyfQoKIyBSZW5hbWluZyBjb2x1bW5zCgpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUyMSddIDwtICcyMDIxJwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUyMCddIDwtICcyMDIwJwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxOSddIDwtICcyMDE5Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxOCddIDwtICcyMDE4Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxNyddIDwtICcyMDE3Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxNiddIDwtICcyMDE2Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxNSddIDwtICcyMDE1Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxNCddIDwtICcyMDE0Jwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxMyddIDwtICcyMDEzJwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxMiddIDwtICcyMDEyJwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxMSddIDwtICcyMDExJwpwb3Bfam9pbmVkX1NmX2xvbmckbmFtZVtwb3Bfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0aW1hdGUxMCddIDwtICcyMDEwJwoKIyBUcmFuc2Zvcm1pbmcgdGhlIHllYXIgY29sdW1uIGZyb20gY2hhcmFjdGVyIHZlY3RvcnMgdG8gaW50ZWdlcnMKCmNvbG5hbWVzKHBvcF9qb2luZWRfU2ZfbG9uZylbNl0gPC0gJ3llYXInCnBvcF9qb2luZWRfU2ZfbG9uZyR5ZWFyIDwtIGFzLmludGVnZXIocG9wX2pvaW5lZF9TZl9sb25nJHllYXIpCmBgYAoKYGBge3J9CgojIENyZWF0aW5nIHRoZSBnaWYgb2YgdGhlIHBvcHVsYXRpb24gbWFwIHVzaW5nIGdnYW5pbWF0ZSBwYWNrYWdlCgoKZGV0cm9pdF9tYXBfcG9wX2dpZiA8LSBnZ3Bsb3QoKSArIGdlb21fc2YoZGF0YSA9IHBvcF9qb2luZWRfU2ZfbG9uZywgY29sb3IgPSAiYmxhY2siLCBhZXMoZmlsbCA9IHZhbHVlKSkgKyB0aGVtZV9saWdodChiYXNlX3NpemUgPSAxMCkgKyBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICJsaWdodGJsdWUxIiwgaGlnaCA9ICJpbmRpYW5yZWQ0IikgKyB0cmFuc2l0aW9uX3RpbWUoeWVhcikgKyBsYWJzKHRpdGxlID0gIlBvcHVsYXRpb24gYnkgQ2Vuc3VzIFRyYWN0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X21hcF9wb3BfZ2lmCmBgYAoKYGBge3IsIGZpZy5jYXA9IkRldHJvaXQgQ2hhbmdpbmcgUG9wdWxhdGlvbiBHaWYifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZGV0cm9pdF9tYXBfcG9wX2dpZi5naWYiKQpgYGAKCmBgYHtyfQoKIyBNYWtpbmcgYSBncmFwaCB0aGF0IHNob3dzIHBvcHVsYXRpb24gZmx1Y3R1YXRpb24gb3ZlciB0aW1lLiBXaGlsZSB0aCBlbWFwIGdpZiBpcyBjb3JyZWN0IGFuZCBmdW5jdGlvbmFsLCB0aGUgY2hhbmdlIGluIHBvcHVsYXRpb24gaXMgdG9vIGxpbWl0ZWQgdG8gYWNjdXJhdGVseSBhc3Nlc3MgY2hhbmdlLiBJdCBpcyBzdXBwbGVtZW50ZWQgd2l0aCB0aGlzIGdpZiB0byBwcm92aWRlIGEgYmV0dGVyIHZpc3VhbGl6YXRpb24gb2YgcG9wdWxhdGlvbiBjaGFuZ2UuIAoKc3VtX3BvcF9qb2luZWRfU2ZfbG9uZyA8LSBhZ2dyZWdhdGUoeCA9IHBvcF9qb2luZWRfU2ZfbG9uZyR2YWx1ZSwgICAgICAgICAgICAgICAKICAgICAgICAgIGJ5ID0gbGlzdChwb3Bfam9pbmVkX1NmX2xvbmckeWVhciksICAgICAgICAgICAgCiAgICAgICAgICBGVU4gPSBzdW0pIAoKY29sbmFtZXMoc3VtX3BvcF9qb2luZWRfU2ZfbG9uZylbMV0gPSAneWVhcicKY29sbmFtZXMoc3VtX3BvcF9qb2luZWRfU2ZfbG9uZylbMl0gPSAndmFsdWUnCgpkZXRyb2l0X2xpbmVfZ3JhcGhfcG9wdWxhdGlvbiA8LSBnZ3Bsb3QoKSsgZ2VvbV9wb2ludChkYXRhID0gc3VtX3BvcF9qb2luZWRfU2ZfbG9uZywgYWVzKHggPSB5ZWFyLCB5PSB2YWx1ZSkpICsgdHJhbnNpdGlvbl90aW1lKHllYXIpICsgbGFicyh0aXRsZSA9ICJQb3B1bGF0aW9uIFRvdGFsIGluIERldHJvaXQgYnkgWWVhcjoge2ZyYW1lX3RpbWV9IikKCmRldHJvaXRfbGluZV9ncmFwaF9wb3B1bGF0aW9uCgpgYGAKCiMgVkFDQU5DSUVTCgpJbiB0aGUgZm9sbG93aW5nIHNlY3Rpb24sIEkgd2lsbCBtYXAgY2hhbmdlcyBpbiB2YWNhbmNpZXMgaW4gRGV0cm9pdCBpbiB0aGUgMjAxMHMgYW5kIGVhcmx5IDIwMjBzLiBUaGlzIGRhdGEgaXMgYWxsIHByb3ZpZGVkIGJ5IHRoZSBBbWVyaWNhbiBDb21tdW5pdHkgU3VydmV5IDEtWWVhciBFc3RpbWF0ZXMKCiFbRGV0cm9pdCwgTWljaGlnYW5dKGRldHJvaXRfZG93bnRvd25fd2lkZS04MDE0ODk0ZGYzNTE1MjI3NDc4YThlMmJhNDcwMDQ3YThiM2NkZjBiLXMxNDAwLWMxMDAuanBlZykKCmBgYHtyfQojIERvd25sb2FkaW5nIHZhY2FuY3kgZGF0YSwgdGhpcyBkYXRhIGlzIGFsc28gdGFrZW4gZnJvbSB0aGUgQW1lcmljYW4gQ29tbXVuaXR5IFN1cnZleSwgYnV0IGhhcyBiZWVuIGVkaXRlZC90aWRpZWQgb3V0c2lkZSBvZiBSIHN0dWRpby4gCgojIFZhY2FuY3kgRGF0YSAtIDEgWWVhciBFc3RpbWF0ZXMgZnJvbSB0aGUgQW1lcmljYW4gQ29tbXVuaXR5IFN1cnZleQoKZGV0cm9pdF92YWNhbmNpZXMgPC0gcmVhZF9jc3YoImRldHJvaXR2YWMuY2hhcmFjdGVyaXN0aWNzLmNvbXBpbGVkIC0gU2hlZXQxICgyKS5jc3YiKQpgYGAKCmBgYHtyfQoKIyBNYWtpbmcgdGhlIEdJRiEKCmRldHJvaXRfdmFjYW5jaWVzJFllYXIgPC0gYXMuaW50ZWdlcihkZXRyb2l0X3ZhY2FuY2llcyRZZWFyKQoKZGV0cm9pdF9saW5lX2dyYXBoX3ZhY2FuY2llcyA8LSBnZ3Bsb3QoKSsgZ2VvbV9wb2ludChkYXRhID0gZGV0cm9pdF92YWNhbmNpZXMsIGFlcyh4ID0gWWVhciwgeT0gVG90YWwpKSArIHRoZW1lX2J3KCkgKyB0cmFuc2l0aW9uX3RpbWUoWWVhcikgKyBsYWJzKHRpdGxlID0gIlRvdGFsIFZhY2FuY2llcyBpbiBEZXRyb2l0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfdmFjYW5jaWVzCmBgYAoKYGBge3IsIGZpZy5jYXA9IkRldHJvaXQgQ2hhbmdpbmcgVmFjYW5jaWVzIEdpZiJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJkZXRyb2l0X2xpbmVfZ3JhcGhfdmFjYW5jaWVzLmdpZiIpCmBgYAoKYGBge3J9CgojIEZpbHRlcmluZyB0byBvbmx5ICdyZW50ZWQgbm90IG9jY3VwaWVkJyB2YWNhbmNpZXMgaW4gdGhlIERldHJvaXQgYXJlYQoKZGV0cm9pdF92YWNhbmNpZXMkYFJlbnRlZCwgbm90IG9jY3VwaWVkYDwtIGFzLmludGVnZXIoZGV0cm9pdF92YWNhbmNpZXMkYFJlbnRlZCwgbm90IG9jY3VwaWVkYCkKCmRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXNfMSA8LSBnZ3Bsb3QoKSArICBnZW9tX3BvaW50KGRhdGEgPSBkZXRyb2l0X3ZhY2FuY2llcywgYWVzKHggPSBZZWFyLCB5PSBgUmVudGVkLCBub3Qgb2NjdXBpZWRgKSkgKyB0cmFuc2l0aW9uX3RpbWUoWWVhcikgKyB0aGVtZV9idygpICsgbGFicyh0aXRsZSA9ICJSZW50ZWQsIG5vdCBPY2N1cGllZCBWYWNhbmNpZXMgaW4gRGV0cm9pdCBieSBZZWFyOiB7ZnJhbWVfdGltZX0iKQoKZGV0cm9pdF9saW5lX2dyYXBoX3ZhY2FuY2llc18xCmBgYAoKYGBge3IsIGZpZy5jYXA9IkRldHJvaXQgQ2hhbmdpbmcgVmFjYW5jaWVzIC0gUmVudGVkLCBub3QgT2NjdXBpZWQgVmFjYW5jaWVzIEdpZiJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJkZXRyb2l0X2xpbmVfZ3JhcGhfdmFjYW5jaWVzXzEuZ2lmIikKYGBgCgoKYGBge3J9CiMgRmlsdGVyaW5nIHRvIG9ubHkgJ3NvbGQsIG5vdCBvY2N1cGllZCcgdmFjYW5jaWVzIGluIHRoZSBEZXRyb2l0IGFyZWEKCmRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXNfMiA8LSBnZ3Bsb3QoKSArIGdlb21fcG9pbnQoZGF0YSA9IGRldHJvaXRfdmFjYW5jaWVzLCBhZXMoeCA9IFllYXIsIHk9IGBTb2xkLCBub3Qgb2NjdXBpZWRgKSkgKyB0cmFuc2l0aW9uX3RpbWUoWWVhcikgKyB0aGVtZV9idygpICsgbGFicyh0aXRsZSA9ICJTb2xkLCBub3QgT2NjdXBpZWQgVmFjYW5jaWVzIGluIERldHJvaXQgYnkgWWVhcjoge2ZyYW1lX3RpbWV9IikKCmRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXNfMgpgYGAKCmBgYHtyLCBmaWcuY2FwPSJTb2xkLCBOb3QgT2NjdXBpZWQgVmFjYW5jaWVzIGluIERldHJvaXQgYnkgWWVhciJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJkZXRyb2l0X2xpbmVfZ3JhcGhfdmFjYW5jaWVzXzIuZ2lmIikKYGBgCgpgYGB7cn0KCiMgRG93bmxvYWRpbmcgdmFjYW5jeSBkYXRhIGZvciBXYXluZSBDb3VudHkgZnJvbSB0aGUgQUNTIGF0IHRoZSBUcmFjdCBMZXZlbAoKdmFjYW5jeV90cmFjdF8yMSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAyMSkKdmFjYW5jeV90cmFjdF8yMCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAyMCkKdmFjYW5jeV90cmFjdF8xOSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxOSkKdmFjYW5jeV90cmFjdF8xOCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxOCkKdmFjYW5jeV90cmFjdF8xNyA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNykKdmFjYW5jeV90cmFjdF8xNiA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNikKdmFjYW5jeV90cmFjdF8xNSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNSkKdmFjYW5jeV90cmFjdF8xNCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxNCkKdmFjYW5jeV90cmFjdF8xMyA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxMykKdmFjYW5jeV90cmFjdF8xMiA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxMikKdmFjYW5jeV90cmFjdF8xMSA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxMSkKdmFjYW5jeV90cmFjdF8xMCA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIHZhcmlhYmxlcyA9ICJCMjUwMDRfMDAxIiwKICAgICAgICAgICAgICAgIHN0YXRlID0gIk1JIiwgY291bnR5ID0gIldheW5lIiwgZ2VvbWV0cnkgPSBUUlVFLCB5ZWFyID0gMjAxMCkKYGBgCgpgYGB7cn0KIyBUaWR5aW5nIHRoZSB2YWNhbmN5IGRhdGEKCnN0YXN0aWJibGUgPC0gZnVuY3Rpb24odmFjYW5jeSl7YXNfdGliYmxlKHZhY2FuY3kpfQp2YWNhbmN5X3RyYWN0XzIxX3RpYmJsZSA8LSBzdGFzdGliYmxlKHZhY2FuY3lfdHJhY3RfMjEpCnZhY2FuY3lfdHJhY3RfMjBfdGliYmxlIDwtIHN0YXN0aWJibGUodmFjYW5jeV90cmFjdF8yMCkKdmFjYW5jeV90cmFjdF8xOV90aWJibGUgPC0gc3Rhc3RpYmJsZSh2YWNhbmN5X3RyYWN0XzE5KQp2YWNhbmN5X3RyYWN0XzE4X3RpYmJsZSA8LSBzdGFzdGliYmxlKHZhY2FuY3lfdHJhY3RfMTgpCnZhY2FuY3lfdHJhY3RfMTdfdGliYmxlIDwtIHN0YXN0aWJibGUodmFjYW5jeV90cmFjdF8xNykKdmFjYW5jeV90cmFjdF8xNl90aWJibGUgPC0gc3Rhc3RpYmJsZSh2YWNhbmN5X3RyYWN0XzE2KQp2YWNhbmN5X3RyYWN0XzE1X3RpYmJsZSA8LSBzdGFzdGliYmxlKHZhY2FuY3lfdHJhY3RfMTUpCnZhY2FuY3lfdHJhY3RfMTRfdGliYmxlIDwtIHN0YXN0aWJibGUodmFjYW5jeV90cmFjdF8xNCkKdmFjYW5jeV90cmFjdF8xM190aWJibGUgPC0gc3Rhc3RpYmJsZSh2YWNhbmN5X3RyYWN0XzEzKQp2YWNhbmN5X3RyYWN0XzEyX3RpYmJsZSA8LSBzdGFzdGliYmxlKHZhY2FuY3lfdHJhY3RfMTIpCnZhY2FuY3lfdHJhY3RfMTFfdGliYmxlIDwtIHN0YXN0aWJibGUodmFjYW5jeV90cmFjdF8xMSkKdmFjYW5jeV90cmFjdF8xMF90aWJibGUgPC0gc3Rhc3RpYmJsZSh2YWNhbmN5X3RyYWN0XzEwKQpgYGAKCmBgYHtyfQoKIyBKb2luaW5nIHZhY2FuY3kgZGF0YSB0byBtYWtlIGEgY29tcGlsZWQgZGF0YSBmcmFtZSB0aGF0IGhhcyBhbGwgeWVhcnMuCnZhY2FuY3lfam9pbmVkIDwtIGxlZnRfam9pbih2YWNhbmN5X3RyYWN0XzIxX3RpYmJsZSwgdmFjYW5jeV90cmFjdF8yMF90aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKdmFjYW5jeV9qb2luZWQgPC0gbGVmdF9qb2luKHZhY2FuY3lfam9pbmVkLCB2YWNhbmN5X3RyYWN0XzE5X3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgp2YWNhbmN5X2pvaW5lZCA8LSBsZWZ0X2pvaW4odmFjYW5jeV9qb2luZWQsIHZhY2FuY3lfdHJhY3RfMThfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnZhY2FuY3lfam9pbmVkIDwtIGxlZnRfam9pbih2YWNhbmN5X2pvaW5lZCwgdmFjYW5jeV90cmFjdF8xN190aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKdmFjYW5jeV9qb2luZWQgPC0gbGVmdF9qb2luKHZhY2FuY3lfam9pbmVkLCB2YWNhbmN5X3RyYWN0XzE2X3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgp2YWNhbmN5X2pvaW5lZCA8LSBsZWZ0X2pvaW4odmFjYW5jeV9qb2luZWQsIHZhY2FuY3lfdHJhY3RfMTVfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnZhY2FuY3lfam9pbmVkIDwtIGxlZnRfam9pbih2YWNhbmN5X2pvaW5lZCwgdmFjYW5jeV90cmFjdF8xNF90aWJibGUgJT4lIGRwbHlyOjpzZWxlY3QoZXN0aW1hdGUsIEdFT0lEKSwgYnkgPSAnR0VPSUQnKQoKdmFjYW5jeV9qb2luZWQgPC0gbGVmdF9qb2luKHZhY2FuY3lfam9pbmVkLCB2YWNhbmN5X3RyYWN0XzEzX3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgp2YWNhbmN5X2pvaW5lZCA8LSBsZWZ0X2pvaW4odmFjYW5jeV9qb2luZWQsIHZhY2FuY3lfdHJhY3RfMTJfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKCnZhY2FuY3lfam9pbmVkPC0gbGVmdF9qb2luKHZhY2FuY3lfam9pbmVkLCB2YWNhbmN5X3RyYWN0XzExX3RpYmJsZSAlPiUgZHBseXI6OnNlbGVjdChlc3RpbWF0ZSwgR0VPSUQpLCBieSA9ICdHRU9JRCcpCgp2YWNhbmN5X2pvaW5lZCA8LSBsZWZ0X2pvaW4odmFjYW5jeV9qb2luZWQsIHZhY2FuY3lfdHJhY3RfMTBfdGliYmxlICU+JSBkcGx5cjo6c2VsZWN0KGVzdGltYXRlLCBHRU9JRCksIGJ5ID0gJ0dFT0lEJykKYGBgCgpgYGB7cn0KY29sbmFtZXModmFjYW5jeV9qb2luZWQpWzRdID0gImVzdDIwMjEiCmNvbG5hbWVzKHZhY2FuY3lfam9pbmVkKVs3XSA9ICJlc3QyMDIwIgpjb2xuYW1lcyh2YWNhbmN5X2pvaW5lZClbOF0gPSAiZXN0MjAxOSIKY29sbmFtZXModmFjYW5jeV9qb2luZWQpWzldID0gImVzdDIwMTgiCmNvbG5hbWVzKHZhY2FuY3lfam9pbmVkKVsxMF0gPSAiZXN0MjAxNyIKY29sbmFtZXModmFjYW5jeV9qb2luZWQpWzExXSA9ICJlc3QyMDE2Igpjb2xuYW1lcyh2YWNhbmN5X2pvaW5lZClbMTJdID0gImVzdDIwMTUiCmNvbG5hbWVzKHZhY2FuY3lfam9pbmVkKVsxM10gPSAiZXN0MjAxNCIKY29sbmFtZXModmFjYW5jeV9qb2luZWQpWzE0XSA9ICJlc3QyMDEzIgpjb2xuYW1lcyh2YWNhbmN5X2pvaW5lZClbMTVdID0gImVzdDIwMTIiCmNvbG5hbWVzKHZhY2FuY3lfam9pbmVkKVsxNl0gPSAiZXN0MjAxMSIKY29sbmFtZXModmFjYW5jeV9qb2luZWQpWzE3XSA9ICJlc3QyMDEwIgpgYGAKCmBgYHtyfQp2YWNhbmN5X2pvaW5lZF9zZiA8LSBzdF9hc19zZih2YWNhbmN5X2pvaW5lZCwgc2ZfY29sdW1uX25hbWUgPSAnZ2VvbWV0cnknLCBjcnMgPSA0MzI2KQoKdmFjYW5jeV9qb2luZWRfc2YgPC0gZHJvcF9uYSh2YWNhbmN5X2pvaW5lZF9zZikKCnZhY2FuY3lfam9pbmVkX1NmX2xvbmcgPC0gcGl2b3RfbG9uZ2VyKGRhdGEgPSB2YWNhbmN5X2pvaW5lZF9zZiwgY29scyA9Yyhlc3QyMDIxLCBlc3QyMDIwOmVzdDIwMTApKQoKdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lW3ZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0MjAyMSddIDwtICcyMDIxJwp2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWVbdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lID09ICdlc3QyMDIwJ10gPC0gJzIwMjAnCnZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZVt2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWUgPT0gJ2VzdDIwMTknXSA8LSAnMjAxOScKdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lW3ZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0MjAxOCddIDwtICcyMDE4Jwp2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWVbdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lID09ICdlc3QyMDE3J10gPC0gJzIwMTcnCnZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZVt2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWUgPT0gJ2VzdDIwMTYnXSA8LSAnMjAxNicKdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lW3ZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0MjAxNSddIDwtICcyMDE1Jwp2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWVbdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lID09ICdlc3QyMDE0J10gPC0gJzIwMTQnCnZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZVt2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWUgPT0gJ2VzdDIwMTMnXSA8LSAnMjAxMycKdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lW3ZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZSA9PSAnZXN0MjAxMiddIDwtICcyMDEyJwp2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWVbdmFjYW5jeV9qb2luZWRfU2ZfbG9uZyRuYW1lID09ICdlc3QyMDExJ10gPC0gJzIwMTEnCnZhY2FuY3lfam9pbmVkX1NmX2xvbmckbmFtZVt2YWNhbmN5X2pvaW5lZF9TZl9sb25nJG5hbWUgPT0gJ2VzdDIwMTAnXSA8LSAnMjAxMCcKCgoKCmBgYAoKYGBge3J9CiMgTWFraW5nIHRoZSB2YWNhbmN5IGRhdGEgZ2lmCgpjb2xuYW1lcyh2YWNhbmN5X2pvaW5lZF9TZl9sb25nKVs2XSA8LSAneWVhcicgCnZhY2FuY3lfam9pbmVkX1NmX2xvbmckeWVhciA8LSBhcy5pbnRlZ2VyKHZhY2FuY3lfam9pbmVkX1NmX2xvbmckeWVhcikKCmRldHJvaXRfbWFwX3ZhY2FuY3lfZ2lmIDwtIGdncGxvdCgpICsgZ2VvbV9zZihkYXRhID0gdmFjYW5jeV9qb2luZWRfU2ZfbG9uZywgY29sb3IgPSAiYmxhY2siLCBhZXMoZmlsbCA9IHZhbHVlKSkgKyB0aGVtZV9saWdodChiYXNlX3NpemUgPSAxMCkgKyBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICJsaWdodHllbGxvdzEiLCBoaWdoID0gImRhcmtvcmNoaWQ0IikgKyB0cmFuc2l0aW9uX3RpbWUoeWVhcikgKyBsYWJzKHRpdGxlID0gIlZhY2FuY3kgYnkgQ2Vuc3VzIFRyYWN0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X21hcF92YWNhbmN5X2dpZgpgYGAKCmBgYHtyLCBmaWcuY2FwPSJTb2xkLCBOb3QgT2NjdXBpZWQgVmFjYW5jaWVzIGluIERldHJvaXQgYnkgWWVhciJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJkZXRyb2l0X21hcF92YWNhbmN5X2dpZi5naWYiKQpgYGAKCiMgUFJPUEVSVFkgU0FMRVMKClRoaXMgc2VjdGlvbiB3aWxsIGZvY3VzIG9uIHRoZSBmcmVxdWVuY3kgYW5kIHByaWNlIG9mIHByb3BlcnR5IHNhbGVzIGluIHRoZSBEZXRyb2l0IGFyZWEgZnJvbSAyMDExIC0gMjAyMi4gVGhpcyBkYXRhIGlzIHNvdXJjZWQgZnJvbSBEZXRyb2l0J3MgT3BlbiBEYXRhIFBvcnRhbCAobGluayBoZXJlOiA8aHR0cHM6Ly9kYXRhLmRldHJvaXRtaS5nb3YvZGF0YXNldHMvcHJvcGVydHktc2FsZXMtMS9leHBsb3JlPikgLCBhbmQgaW1wb3J0YW50bHksIGhhcyBiZWVuIGFkanVzdGVkIGZvciBpbmZsYXRpb24uIFRoZXJlIGFyZSBjaGFydHMgY3JlYXRlZCBmb3IgdG90YWwgcmVhbCBlc3RhdGUgcHJpY2VzLCBhcyB3ZWxsIGFzIGF2ZXJhZ2UgcHJpY2VzLCBpbiB0aGUgZ2l2ZW4gdGltZSBwZXJpb2QuCgpgYGB7cn0KIyBEb3dubG9hZGluZyBwcm9wZXJ0eSBzYWxlcyBmcm9tIERldHJvaXQncyBvcGVuIGRhdGEgcG9ydGFsIAoKRGV0cm9pdF9wcm9wZXJ0eXNhbGVzIDwtIHJlYWRfY3N2KCJwcm9wZXJ0eV9zYWxlcy5jc3YiKQpgYGAKCmBgYHtyfQpkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIgPC0gZm9ybWF0KGFzLkRhdGUoRGV0cm9pdF9wcm9wZXJ0eXNhbGVzJHNhbGVfZGF0ZSwgZm9ybWF0PSIlWS8lbS8lZCIpLCIlWSIpCmRhdGEuZnJhbWUoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyKQpkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgPC0gY2JpbmQoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyLCBEZXRyb2l0X3Byb3BlcnR5c2FsZXMpCmRldHJvaXRfcHJvcHNhbGVzX3llYXJfMQoKRGV0cm9pdF9wcm9wZXJ0eXNhbGVzXzIwMTEgPC0gZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xICU+JSBmaWx0ZXIoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyID09IDIwMTEpCkRldHJvaXRfcHJvcGVydHlzYWxlc18yMDEyIDwtIGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSAlPiUgZmlsdGVyKGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciA9PSAyMDEyKQpEZXRyb2l0X3Byb3BlcnR5c2FsZXNfMjAxMyA8LSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgJT4lIGZpbHRlcihkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIgPT0gMjAxMykKRGV0cm9pdF9wcm9wZXJ0eXNhbGVzXzIwMTQgPC0gZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xICU+JSBmaWx0ZXIoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyID09IDIwMTQpCkRldHJvaXRfcHJvcGVydHlzYWxlc18yMDE1IDwtIGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSAlPiUgZmlsdGVyKGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciA9PSAyMDE1KQpEZXRyb2l0X3Byb3BlcnR5c2FsZXNfMjAxNiA8LSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgJT4lIGZpbHRlcihkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIgPT0gMjAxNikKRGV0cm9pdF9wcm9wZXJ0eXNhbGVzXzIwMTcgPC0gZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xICU+JSBmaWx0ZXIoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyID09IDIwMTcpCkRldHJvaXRfcHJvcGVydHlzYWxlc18yMDE4IDwtIGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSAlPiUgZmlsdGVyKGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciA9PSAyMDE4KQpEZXRyb2l0X3Byb3BlcnR5c2FsZXNfMjAxOSA8LSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgJT4lIGZpbHRlcihkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIgPT0gMjAxOSkKRGV0cm9pdF9wcm9wZXJ0eXNhbGVzXzIwMjAgPC0gZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xICU+JSBmaWx0ZXIoZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyID09IDIwMjApCkRldHJvaXRfcHJvcGVydHlzYWxlc18yMDIxIDwtIGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSAlPiUgZmlsdGVyKGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciA9PSAyMDIxKQpEZXRyb2l0X3Byb3BlcnR5c2FsZXNfMjAyMiA8LSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgJT4lIGZpbHRlcihkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIgPT0gMjAyMikKYGBgCgpgYGB7cn0KIyBhZGRpbmcgYWxsIGRldHJvaXQgcHJvcGVydHkgc2FsZXMgYW5kIGNyZWF0aW5nIGEgZ2lmIHRoYXQgaWxsdXN0cmF0ZXMgdGhlIGNoYW5nZSBpbiB0b3RhbCBzYWxlIHByaWNlIGJ5IHllYXIuIAoKc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfMSA8LSBhZ2dyZWdhdGUoeCA9IGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSRzYWxlX3ByaWNlLCAgICAgICAgICAgICAgIAogICAgICAgICAgYnkgPSBsaXN0KGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSRkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIpLCAgICAgICAgICAgIAogICAgICAgICAgRlVOID0gc3VtKSAKY29sbmFtZXMoc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfMSlbMV0gPSAneWVhcicKY29sbmFtZXMoc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfMSlbMl0gPSAncHJpY2UnCgpzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xJHllYXIgPC0gYXMuaW50ZWdlcihzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xJHllYXIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXMgPC0gZ2dwbG90KCkrIGdlb21fcG9pbnQoZGF0YSA9IHN1bV9kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEsIGFlcyh4ID0geWVhciwgeT0gcHJpY2UpKSArIHRoZW1lX2J3KCkgKyB0cmFuc2l0aW9uX3RpbWUoeWVhcikgKyBsYWJzKHRpdGxlID0gIlJlYWwgRXN0YXRlIFByaWNlcyBpbiBEZXRyb2l0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXMKCmBgYAoKYGBge3IsIGZpZy5jYXA9IlRvdGFsIFJlYWwgRXN0YXRlIFByaWNlcyBpbiBEZXRyb2l0IGJ5IFllYXIifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzLmdpZiIpCmBgYAoKYGBge3J9CgojIEdyYXBoaW5nIHRoZSBhdmVyYWdlIHNhbGUgcHJpY2VzIGluIERldHJvaXQKCmF2Z19kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgPC0gYWdncmVnYXRlKHggPSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEkc2FsZV9wcmljZSwgICAgICAgICAgICAgICAKICAgICAgICAgIGJ5ID0gbGlzdChkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEkZGV0cm9pdF9wcm9wZXJ0eV9zYWxlc195ZWFyKSwgICAgICAgICAgICAKICAgICAgICAgIEZVTiA9IG1lYW4pIAoKY29sbmFtZXMoYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfMSlbMV0gPSAneWVhcicKY29sbmFtZXMoYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfMSlbMl0gPSAncHJpY2UnCgphdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xJHllYXIgPC0gYXMuaW50ZWdlcihhdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xJHllYXIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfYXZnIDwtIGdncGxvdCgpKyBnZW9tX3BvaW50KGRhdGEgPSBhdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl8xLCBhZXMoeCA9IHllYXIsIHk9IHByaWNlKSkgKyB0aGVtZV9idygpICsgdHJhbnNpdGlvbl90aW1lKHllYXIpICsgbGFicyh0aXRsZSA9ICIgQXZlcmFnZSBSZWFsIEVzdGF0ZSBQcmljZXMgaW4gRGV0cm9pdCBieSBZZWFyOiB7ZnJhbWVfdGltZX0iKQoKZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzX2F2ZwoKYGBgCgpgYGB7ciwgZmlnLmNhcD0iQXZlcmFnZSBSZWFsIEVzdGF0ZSBQcmljZXMgaW4gRGV0cm9pdCBieSBZZWFyIn0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoImRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc19hdmcuZ2lmIikKYGBgCgpgYGB7cn0KIyBGaWx0ZXJpbmcgdG8gcHJvcGVydHkgY2xhc3MgNDAxLCB3aGljaCByZWZlcnMgdG8gcmVzaWRlbnRpYWwgaW4gbmF0dXJlIGFuZCByZWNlbnRseSBpbXByb3ZlZC4KZGV0cm9pdHNhbGVzXzQwMSA8LSBkZXRyb2l0X3Byb3BzYWxlc195ZWFyXzEgJT4lIGRwbHlyOjpmaWx0ZXIoLiwgcHJvcGVydHlfY2xhc3MgPT0gNDAxKQoKIyBGaWx0ZXJpbmcgdG8gcHJvcGVydHkgY2xhc3MgNDAyLCB3aGljaCByZWZlcnMgdG8gcmVzaWRlbnRpYWwgYW5kIG5hdHVyZSBhbmQgdmFjYW50LgpkZXRyb2l0c2FsZXNfNDAyIDwtIGRldHJvaXRfcHJvcHNhbGVzX3llYXJfMSAlPiUgZHBseXI6OmZpbHRlciguLCBwcm9wZXJ0eV9jbGFzcyA9PSA0MDIpCgpgYGAKCmBgYHtyfQojIEdyYXBoaW5nIHRoZSB0b3RhbCBzYWxlIHByaWNlcyBpbiBEZXRyb2l0IC0gYnkgcHJvcGVydHkgY2xhc3MgNDAxCgpzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDEgPC0gYWdncmVnYXRlKHggPSBkZXRyb2l0c2FsZXNfNDAxJHNhbGVfcHJpY2UsICAgICAgICAgICAgICAgCiAgICAgICAgICBieSA9IGxpc3QoZGV0cm9pdHNhbGVzXzQwMSRkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIpLCAgICAgICAgICAgIAogICAgICAgICAgRlVOID0gc3VtKSAKY29sbmFtZXMoc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAxKVsxXSA9ICd5ZWFyJwpjb2xuYW1lcyhzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDEpWzJdID0gJ3ByaWNlJwoKc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAxJHllYXIgPC0gYXMuaW50ZWdlcihzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDEkeWVhcikKCmRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDEgPC0gZ2dwbG90KCkrIGdlb21fcG9pbnQoZGF0YSA9IHN1bV9kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMSwgYWVzKHggPSB5ZWFyLCB5PSBwcmljZSkpICsgdGhlbWVfYncoKSArIHRyYW5zaXRpb25fdGltZSh5ZWFyKSArIGxhYnModGl0bGUgPSAiUmVhbCBFc3RhdGUgUHJpY2VzIC0gUmVzaWRlbnRpYWwgaW4gTmF0dXJlIGFuZCBJbXByb3ZlZCBpbiBEZXRyb2l0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAxCmBgYAoKYGBge3IsIGZpZy5jYXA9IkF2ZXJhZ2UgUmVhbCBFc3RhdGUgUHJpY2VzIG9mIFJlc2lkZW50aWFsIFByb3BlcnRpZXMgVGhhdCBIYXZlIFJlY2VudGx5IEJlZW4gSW1wcm92ZWQgaW4gRGV0cm9pdCBieSBZZWFyIn0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoImRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDEuZ2lmIikKYGBgCgpgYGB7cn0KIyBHcmFwaGluZyB0aGUgYXZlcmFnZSBzYWxlIHByaWNlcyBpbiBEZXRyb2l0IC0gYnkgcHJvcGVydHkgY2xhc3MgNDAxCgphdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDEgPC0gYWdncmVnYXRlKHggPSBkZXRyb2l0c2FsZXNfNDAxJHNhbGVfcHJpY2UsICAgICAgICAgICAgICAgCiAgICAgICAgICBieSA9IGxpc3QoZGV0cm9pdHNhbGVzXzQwMSRkZXRyb2l0X3Byb3BlcnR5X3NhbGVzX3llYXIpLCAgICAgICAgICAgIAogICAgICAgICAgRlVOID0gbWVhbikgCmNvbG5hbWVzKGF2Z19kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMSlbMV0gPSAneWVhcicKY29sbmFtZXMoYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAxKVsyXSA9ICdwcmljZScKCmF2Z19kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMSR5ZWFyIDwtIGFzLmludGVnZXIoYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAxJHllYXIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAxX2F2ZyA8LSBnZ3Bsb3QoKSsgZ2VvbV9wb2ludChkYXRhID0gYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAxLCBhZXMoeCA9IHllYXIsIHk9IHByaWNlKSkgKyB0aGVtZV9idygpICsgdHJhbnNpdGlvbl90aW1lKHllYXIpICsgbGFicyh0aXRsZSA9ICIgQXZlcmFnZSBSZWFsIEVzdGF0ZSBQcmljZXMgLSBSZXNpZGVudGlhbCBpbiBOYXR1cmUgYW5kIEltcHJvdmVkIGluIERldHJvaXQgYnkgWWVhcjoge2ZyYW1lX3RpbWV9IikKCmRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDFfYXZnCmBgYAoKYGBge3IsIGZpZy5jYXA9IkF2ZXJhZ2UgUmVhbCBFc3RhdGUgUHJpY2VzIG9mIFJlc2lkZW50aWFsIFByb3BlcnRpZXMgVGhhdCBIYXZlIFJlY2VudGx5IEJlZW4gSW1wcm92ZWQgaW4gRGV0cm9pdCBieSBZZWFyIn0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoImRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDFfYXZnLmdpZiIpCmBgYAoKYGBge3J9CiMgR3JhcGhpbmcgdGhlIHRvdGFsIHNhbGUgcHJpY2VzIGluIERldHJvaXQgLSBieSBwcm9wZXJ0eSBjbGFzcyA0MDIKCnN1bV9kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMiA8LSBhZ2dyZWdhdGUoeCA9IGRldHJvaXRzYWxlc180MDIkc2FsZV9wcmljZSwgICAgICAgICAgICAgICAKICAgICAgICAgIGJ5ID0gbGlzdChkZXRyb2l0c2FsZXNfNDAyJGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciksICAgICAgICAgICAgCiAgICAgICAgICBGVU4gPSBzdW0pIApjb2xuYW1lcyhzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDIpWzFdID0gJ3llYXInCmNvbG5hbWVzKHN1bV9kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMilbMl0gPSAncHJpY2UnCgpzdW1fZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDIkeWVhciA8LSBhcy5pbnRlZ2VyKHN1bV9kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMiR5ZWFyKQoKZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMiA8LSBnZ3Bsb3QoKSsgZ2VvbV9wb2ludChkYXRhID0gc3VtX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAyLCBhZXMoeCA9IHllYXIsIHk9IHByaWNlKSwgY29sb3IgPSAicm95YWxibHVlIiwgc2l6ZSA9IDQpICsgdGhlbWVfYncoKSArIHRyYW5zaXRpb25fdGltZSh5ZWFyKSArIGxhYnModGl0bGUgPSAiUmVhbCBFc3RhdGUgUHJpY2VzIC0gUmVzaWRlbnRpYWwgYW5kIFZhY2FudCBpbiBEZXRyb2l0IGJ5IFllYXI6IHtmcmFtZV90aW1lfSIpCgpkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAyCmBgYAoKYGBge3IsIGZpZy5jYXA9IlRvdGFsIFJlYWwgRXN0YXRlIFByaWNlcyBvZiBSZXNpZGVudGlhbCBQcm9wZXJ0aWVzIFRoYXQgYXJlIFZhY2FudCBpbiBEZXRyb2l0IGJ5IFllYXIifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMi5naWYiKQpgYGAKCmBgYHtyfQojIEdyYXBoaW5nIHRoZSBhdmVyYWdlIHNhbGUgcHJpY2VzIGluIERldHJvaXQgLSBieSBwcm9wZXJ0eSBjbGFzcyA0MDIKCmF2Z19kZXRyb2l0X3Byb3BzYWxlc195ZWFyXzQwMiA8LSBhZ2dyZWdhdGUoeCA9IGRldHJvaXRzYWxlc180MDIkc2FsZV9wcmljZSwgICAgICAgICAgICAgICAKICAgICAgICAgIGJ5ID0gbGlzdChkZXRyb2l0c2FsZXNfNDAyJGRldHJvaXRfcHJvcGVydHlfc2FsZXNfeWVhciksICAgICAgICAgICAgCiAgICAgICAgICBGVU4gPSBtZWFuKSAKY29sbmFtZXMoYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAyKVsxXSA9ICd5ZWFyJwpjb2xuYW1lcyhhdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDIpWzJdID0gJ3ByaWNlJwoKYXZnX2RldHJvaXRfcHJvcHNhbGVzX3llYXJfNDAyJHllYXIgPC0gYXMuaW50ZWdlcihhdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDIkeWVhcikKCmRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDJfYXZnIDwtIGdncGxvdCgpKyBnZW9tX3BvaW50KGRhdGEgPSBhdmdfZGV0cm9pdF9wcm9wc2FsZXNfeWVhcl80MDIsIGFlcyh4ID0geWVhciwgeT0gcHJpY2UpKSArIHRoZW1lX2J3KCkgKyB0cmFuc2l0aW9uX3RpbWUoeWVhcikgKyBsYWJzKHRpdGxlID0gIiBBdmVyYWdlIFJlYWwgRXN0YXRlIFByaWNlcyAtIFJlc2lkZW50aWFsIGFuZCBWYWNhbnQgaW4gRGV0cm9pdCBieSBZZWFyOiB7ZnJhbWVfdGltZX0iKQoKZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMl9hdmcKYGBgCgpgYGB7ciwgZmlnLmNhcD0iQXZlcmFnZSBSZWFsIEVzdGF0ZSBQcmljZXMgb2YgUmVzaWRlbnRpYWwgUHJvcGVydGllcyBUaGF0IGFyZSBWYWNhbnQgaW4gRGV0cm9pdCBieSBZZWFyIn0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoImRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDJfYXZnLmdpZiIpCmBgYAoKIyBERU1PTElUSU9OCgohW0RldHJvaXQsIE1pY2hpZ2FuXShEZXRyb2l0X0RlbW9saXRpb25zLmpwZWcpCgpUaGlzIHNlY3Rpb24gZm9jdXNlcyBvbiBkZW1vbGl0aW9ucywgYW5kIGRyYXdzIGRpcmVjdGx5IGZyb20gRGV0cm9pdCdzIE9wZW4gRGF0YSBQb3J0YWwuIFRoZSBsaW5rIGZvciB0aGlzIGRhdGEgY2FuIGJlIGZvdW5kIGhlcmU6IDxodHRwczovL2RhdGEuZGV0cm9pdG1pLmdvdi9kYXRhc2V0cy9kZXRyb2l0bWk6OmNvbXBsZXRlZC1yZXNpZGVudGlhbC1kZW1vbGl0aW9ucy9leHBsb3JlPgoKYGBge3J9CiMgRG93bmxvYWRpbmcgcmVzaWRlbnRpYWwgZGVtb2xpdGlvbiBkYXRhIC0gZnJvbSBEZXRyb2l0J3MgT3BlbiBEYXRhIFBvcnRhbAoKcmVzaWRlbnRpYWxfZGVtb2xpdGlvbnMgPC0gcmVhZF9jc3YoIkNvbXBsZXRlZF9SZXNpZGVudGlhbF9EZW1vbGl0aW9ucy5jc3YiKQpgYGAKCmBgYHtyfQojIFRpZHlpbmcgZGVtb2xpdGlvbiBkYXRhLi4uCgp5ZWFyX2RlbW88LSBmb3JtYXQoYXMuRGF0ZShyZXNpZGVudGlhbF9kZW1vbGl0aW9ucyRkZW1vbGl0aW9uX2RhdGUsIGZvcm1hdD0iJVkvJW0vJWQiKSwiJVkiKQpkYXRhLmZyYW1lKHJlc2lkZW50aWFsX2RlbW9saXRpb25zKQpyZXNpZGVudGlhbF9kZW1vX3llYXIgPC0gY2JpbmQoeWVhcl9kZW1vLCByZXNpZGVudGlhbF9kZW1vbGl0aW9ucykKcmVzaWRlbnRpYWxfZGVtb195ZWFyCmBgYAoKYGBge3J9CiMgVHJhbnNmb3JtaW5nIGl0IGludG8gYSBzcGF0aWFsIG9iamVjdAoKcmVzaWRlbnRpYWxfZGVtb195ZWFyIDwtIHN0X2FzX3NmKHJlc2lkZW50aWFsX2RlbW9feWVhciwgY29vcmRzID0gYygiWCIsICJZIiksIGNycyA9IDQzMjYpCmBgYAoKYGBge3J9CiMgTWFwcGluZyByZXNpZGVudGlhbCBkZW1vbGl0aW9ucyBmcm9tIDIwMTQgLSAyMDIyICgyMDE0IGlzIHRoZSBlYXJsaWVzdCBkYXRlIGF2YWlsYWJsZSkKcmVzaWRlbnRpYWxfZGVtb195ZWFyJHllYXJfZGVtbyA8LSBhcy5pbnRlZ2VyKHJlc2lkZW50aWFsX2RlbW9feWVhciR5ZWFyX2RlbW8pCgpkZXRyb2l0X21hcF9kZW1vIDwtIGdncGxvdCgpICsgZ2VvbV9zZihkYXRhID0gcmVzaWRlbnRpYWxfZGVtb195ZWFyLCBjb2xvciA9ICJkYXJrZ3JlZW4iLCBhZXMoZmlsbCA9IHllYXJfZGVtbyksIHNpemUgPSAuMDUsIGFscGhhID0gLjUpICsgdGhlbWVfbGlnaHQoYmFzZV9zaXplID0gMTApICsgc2NhbGVfZmlsbF9ncmFkaWVudChsb3cgPSAibGlnaHR5ZWxsb3cxIiwgaGlnaCA9ICJkYXJrb3JjaGlkNCIpIAoKZGV0cm9pdF9tYXBfZGVtbwpgYGAKCmBgYHtyfQoKIyBNYWtpbmcgaXQgaW50byBhIGdpZiEKCnJlc2lkZW50aWFsX2RlbW9feWVhciR5ZWFyX2RlbW8gPC0gYXMuaW50ZWdlcihyZXNpZGVudGlhbF9kZW1vX3llYXIkeWVhcl9kZW1vKQoKZGV0cm9pdF9tYXBfZGVtb19naWYgPC0gZ2dwbG90KCkgKyBnZW9tX3NmKGRhdGEgPSByZXNpZGVudGlhbF9kZW1vX3llYXIsIGNvbG9yID0gImRhcmtncmVlbiIsIGFlcyhmaWxsID0geWVhcl9kZW1vKSwgc2l6ZSA9IC4wNSwgYWxwaGEgPSAuNSkgKyB0aGVtZV9saWdodChiYXNlX3NpemUgPSAxMCkgKyBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICJsaWdodHllbGxvdzEiLCBoaWdoID0gImRhcmtvcmNoaWQ0IikgKyB0cmFuc2l0aW9uX3RpbWUoeWVhcl9kZW1vKSArIGxhYnModGl0bGUgPSAiRGVtb2xpdGlvbnMgYnkgWWVhcjoge2ZyYW1lX3RpbWV9IikKCmRldHJvaXRfbWFwX2RlbW9fZ2lmCgoKYGBgCgpgYGB7ciwgZmlnLmNhcD0iTnVtYmVyIG9mIERlbW9saXNoZWQgUHJvcGVydGllcyBieSBZZWFyYSJ9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJkZXRyb2l0X21hcF9kZW1vX2dpZi5naWYiKQpgYGAKCiMjIyMjIyBCZWxvdywgSSBhbSBzYXZpbmcgYWxsIG9mIHRoZSBhbmltYXRpb25zIHRvIGJlIHJlaW5zZXJ0ZWQgaW50byB0aGlzIG5vdGVib29rLgoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9tYXBfZGVtb19naWYuZ2lmIiwgZGV0cm9pdF9tYXBfZGVtb19naWYpCmBgYAoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9tYXBfcG9wX2dpZi5naWYiLCBkZXRyb2l0X21hcF9wb3BfZ2lmKQpgYGAKCmBgYHtyfQphbmltX3NhdmUoImRldHJvaXRfbGluZV9ncmFwaF9wb3B1bGF0aW9uLmdpZiIsIGRldHJvaXRfbGluZV9ncmFwaF9wb3B1bGF0aW9uKQpgYGAKCmBgYHtyfQphbmltX3NhdmUoImRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXNfMS5naWYiLCBkZXRyb2l0X2xpbmVfZ3JhcGhfdmFjYW5jaWVzXzEpCmBgYAoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9saW5lX2dyYXBoX3ZhY2FuY2llc18yLmdpZiIsIGRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXNfMikKYGBgCgpgYGB7cn0KYW5pbV9zYXZlKCJkZXRyb2l0X21hcF92YWNhbmN5X2dpZi5naWYiLCBkZXRyb2l0X21hcF92YWNhbmN5X2dpZikKYGBgCgpgYGB7cn0KYW5pbV9zYXZlKCJkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXMuZ2lmIiwgZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzKQpgYGAKCmBgYHtyfQphbmltX3NhdmUoImRldHJvaXRfbGluZV9ncmFwaF9zYWxlc3ByaWNlc180MDEuZ2lmIiwgZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMSkgCmBgYAoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMi5naWYiLCBkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAyKSAKYGBgCgpgYGB7cn0KYW5pbV9zYXZlKCJkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAxX2F2Zy5naWYiLCBkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfNDAxX2F2ZykgCmBgYAoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMl9hdmcuZ2lmIiwgZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzXzQwMl9hdmcpCmBgYAoKYGBge3J9CmFuaW1fc2F2ZSgiZGV0cm9pdF9saW5lX2dyYXBoX3NhbGVzcHJpY2VzX2F2Zy5naWYiLCBkZXRyb2l0X2xpbmVfZ3JhcGhfc2FsZXNwcmljZXNfYXZnKQpgYGAKCmBgYHtyfQphbmltX3NhdmUoImRldHJvaXRfbGluZV9ncmFwaF92YWNhbmNpZXMuZ2lmIiwgZGV0cm9pdF9saW5lX2dyYXBoX3ZhY2FuY2llcykKYGBgCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImdpZnNraSIpCmBgYAoKYGBge3J9CmxpYnJhcnkoZ2lmc2tpKQpsaWJyYXJ5KHJzY29ubmVjdCkKbGlicmFyeShzaGlueSkKCmBgYAoKIyMgQ2l0YXRpb25zCgojIyBEYXRhCgpVbml0ZWQgU3RhdGUgQ2Vuc3VzIEJ1cmVhdS4gKDIwMTAtMjAyMCkuIEFtZXJpY2FuIENvbW11bml0eSBTdXJ2ZXkuIEV4cGxvcmUgY2Vuc3VzIGRhdGEuIFdheW5lIENvdW50eSwgTWljaGlnYW4uIDxodHRwczovL2RhdGEuY2Vuc3VzLmdvdi90YWJsZT9xPXZhY2FuY3kmZz0wNDBYWDAwVVMyNiZ0aWQ9QUNTRFQxWTIwMjEuQjI1MDAyPgoKVW5pdGVkIFN0YXRlIENlbnN1cyBCdXJlYXUuICgyMDEwLTIwMjApLiBBbWVyaWNhbiBDb21tdW5pdHkgU3VydmV5LiBFeHBsb3JlIGNlbnN1cyBkYXRhLiBXYXluZSBDb3VudHksIE1pY2hpZ2FuLiA8aHR0cHM6Ly9kYXRhLmNlbnN1cy5nb3YvdGFibGU/cT1wb3B1bGF0aW9uJmc9MDQwWFgwMFVTMjYmdGlkPUFDU0RQMVkyMDIxLkRQMDU+CgoqSG91c2luZyBEYXRhKi4gWmlsbG93LiAoMjAyMywgQXByaWwgMjUpLiA8aHR0cHM6Ly93d3cuemlsbG93LmNvbS9yZXNlYXJjaC9kYXRhLz4KCipQcm9wZXJ0eSBzYWxlcyouIERldHJvaXQncyBPcGVuIERhdGEgUG9ydGFsLiAobi5kLi1iKS4gPGh0dHBzOi8vZGF0YS5kZXRyb2l0bWkuZ292L2RhdGFzZXRzL3Byb3BlcnR5LXNhbGVzLTEvZXhwbG9yZT4KCipDb21wbGV0ZWQgcmVzaWRlbnRpYWwgZGVtb2xpdGlvbnMqLiBEZXRyb2l0J3MgT3BlbiBEYXRhIFBvcnRhbC4gKG4uZC4pLiA8aHR0cHM6Ly9kYXRhLmRldHJvaXRtaS5nb3YvZGF0YXNldHMvZGV0cm9pdG1pOjpjb21wbGV0ZWQtcmVzaWRlbnRpYWwtZGVtb2xpdGlvbnMvZXhwbG9yZT9sb2NhdGlvbj00Mi4zNTI3NDglMkMtODMuMTAwMDA0JTJDMTAuOTg+CgojIyBJbWFnZXMKCipEZXRyb2l0Ki4gUHVyZSBNaWNoaWdhbiBcfCBPZmZpY2lhbCBUcmF2ZWwgJiBUb3VyaXNtIFdlYnNpdGUgZm9yIE1pY2hpZ2FuLiAoMjAyMywgTWF5IDExKS4gPGh0dHBzOi8vd3d3Lm1pY2hpZ2FuLm9yZy9jaXR5L2RldHJvaXQ+CgpLbGluZWZlbHRlciwgUS4gKDIwMTMsIE1hcmNoIDEpLiAqTWljaGlnYW4gb2ZmaWNpYWxzIHRha2UgY29udHJvbCBvZiBEZXRyb2l0J3MgZW1wdHkgd2FsbGV0Ki4gTlBSLiA8aHR0cHM6Ly93d3cubnByLm9yZy8yMDEzLzAzLzAxLzE3MzI0MTI2OS9taWNoaWdhbi1vZmZpY2lhbHMtdGFrZS1jb250cm9sLW9mLWRldHJvaXRzLWVtcHR5LXdhbGxldD4KCk93ZW5zLCBDLiAoMjAxNSwgSnVuZSAxMikuICpIb3cgRGV0cm9pdCB0YXVnaHQgaXRzZWxmIHRvIGRlbW9saXNoIHZhY2FudCBob3VzZXMgc2FmZWx5Ki4gTmV4dCBDaXR5LiA8aHR0cHM6Ly9uZXh0Y2l0eS5vcmcvdXJiYW5pc3QtbmV3cy9kZXRyb2l0LWRlbW9saXRpb24tYmxpZ2h0LXRlYXJkb3ducy1zYWZldHk+Cg==