Reiniciar Sesión

Cargamos las librerías a utilizar

library(tidyverse) # tiene ggplot, dplyr, tidyr, y otros

[30m── [1mAttaching packages[22m ──────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──[39m
[30m[32m✔[30m [34mggplot2[30m 3.0.0     [32m✔[30m [34mpurrr  [30m 0.2.5
[32m✔[30m [34mtibble [30m 1.4.2     [32m✔[30m [34mdplyr  [30m 0.7.7
[32m✔[30m [34mtidyr  [30m 0.8.1     [32m✔[30m [34mstringr[30m 1.3.1
[32m✔[30m [34mreadr  [30m 1.1.1     [32m✔[30m [34mforcats[30m 0.3.0[39m
[30m── [1mConflicts[22m ─────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
[31m✖[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31m✖[30m [34mdplyr[30m::[32mlag()[30m    masks [34mstats[30m::lag()[39m

library(ggthemes)  # estilos de gráficos
library(ggrepel)   # etiquetas de texto más prolijas que las de ggplot

Gráficos Básicos en R

Rbase tiene algunos comandos genéricos para realizar gráficos, que se adaptan al tipo de información que se le pide graficar, por ejemplo:

plot()
hist()

# iris es un set de datos clásico, que ya viene incorporado en R
iris

plot(iris)

#Al especificar una variable, puedo ver el valor que toma cada uno de sus registros (Index)
plot(iris$Sepal.Length,type = "p") # Un punto por cada valor

plot(iris$Sepal.Length,type = "l") # Una linea que una cada valor

plot(iris$Sepal.Length,type = "b") #Ambas

hist(iris$Sepal.Length, col = "lightsalmon1", main = "Histograma")

png

La función png() nos permite grabar una imagen en el disco. Lleva como argumento principal la ruta completa a donde se desea guardar la misma, incluyendo el nombre que queremos dar al archivo. A su vez pueden especificarse otros argumetnos como el ancho y largo de la imagen, entre otros.

ruta_archivo <- "../Resultados/grafico1.PNG"
ruta_archivo

[1] "../Resultados/grafico1.PNG"

png(ruta_archivo)
plot(iris$Sepal.Length,type = "b")
dev.off()

null device 
          1

La función png() abre el dispositivo de imagen en el directorio especificado. Luego creamos el gráfico que deseamos (o llamamos a uno previamente construido), el cual se desplegará en la ventana inferior derecha de la pantalla de Rstudio. Finalmente con dev.off() se cierra el dispositivo y se graban los gráficos.

Los gráficos del R base son útiles para escribir de forma rápida y obtener alguna información mientras trabajamos. Muchos paquetes estadísticos permiten mostrar los resultados de forma gráfica con el comando plot (por ejemplo, las regresiones lineales lm()).

Sin embargo, existen librerías mucho mejores para crear gráficos de nivel de publicación. La más importante es ggplot2, que a su vez tiene extensiones mediante otras librerías.

Ggplot2

ggplot tiene su sintaxis propia. La idea central es pensar los gráficos como una sucesión de capas, que se construyen una a la vez.

El operador + nos permite incorporar nuevas capas al gráfico.
El comando ggplot() nos permite definir la fuente de datos y las variables que determinaran los ejes del grafico (x,y), así como el color y la forma de las líneas o puntos,etc.
Las sucesivas capas nos permiten definir:
- Uno o más tipos de gráficos (de columnas, geom_col(), de línea, geom_line(), de puntos,geom_point(), boxplot, geom_boxplot())
- Títulos labs()
- Estilo del gráfico theme()
- Escalas de los ejes scale_y_continuous,scale_x_discrete
- División en subconjuntos facet_wrap(),facet_grid()

ggplot tiene muchos comandos, y no tiene sentido saberlos de memoria, es siempre útil reutilizar gráficos viejos y tener a mano el machete.

Gráfico de Puntos

A continuación se desplega un gráfico de varias capas de construcción, con su correspondiente porción de código. En el mismo se buscará visualizar, a partir de la base de datos iris la relación entre el ancho y el largo de los petalos, mediante un gráfico de puntos.

ggplot(data = iris, aes(x = Petal.Length, Petal.Width, color = Species))+
  geom_point(alpha=0.75)+
  labs(title = "Medidas de los pétalos por especie")+
  theme(legend.position = 'none')+
  facet_wrap(~Species)

Capas del Gráfico

Veamos ahora, el “paso a paso” del armado del mismo.

En primera instancia solo defino los ejes. Y en este caso un color particular para cada Especie.

g <- ggplot(data = iris, aes(x = Petal.Length, Petal.Width, color = Species))
g

Luego, defino el tipo de gráfico. El alpha me permite definir la intensidad de los puntos

g <- g +  geom_point(alpha=0.25)
g

Las siguientes tres capas me permiten respectivamente:

Definir el título del gráfico
Quitar la leyenda
Abrir el gráfico en tres fragmentos, uno para cada especie

g <- g +
  labs(title = "Medidas de los pétalos por especie")+
  theme(legend.position = 'none')+
  facet_wrap(~Species)
g

Gráfico de barras

Si quisieramos hacer un gráfico de columnas del promedio de las medidas por especie, primero necesitamos hacer una base con los promedios, y luego graficar eso.

iris_promedios <- iris %>% 
  group_by(Species) %>% 
  summarise_all(mean)
iris_promedios

ggplot(data = iris_promedios, aes(x = Species, Petal.Width, fill = Species))+
  geom_col(alpha=0.75)+
  labs(title = "Ancho promedio del pétalo por especie")+
  theme(legend.position = 'none')

con geom_col() podemos realizar el gráfico de columnas.

Individual_t117 <- read.table("../Fuentes/usu_individual_t117.txt",
                              sep=";", dec=",", header = TRUE, fill = TRUE)

En los gráficos utilizamos extensiones de ggplot:

ggrepel geom_text_repel()
ggthemes theme_tufte()

simplemente debemos recordar cargar las librerías si queremos utilizar esas funciones.

Gráficos de distribuciones

Los gráficos hasta aquí realizados (puntos y barras) son fácilmente reproducibles en un excel ya que utilizan la información agregada. Sin embargo, la gran ventaja del R se manifiesta a a la hora de realizar:

Gráficos que necesitan la información a nivel de microdatos. puntos, boxplots, Kernels, etc.
Abrir un mismo gráfico según alguna variable discreta: facet_wrap()
Parametrizar otras variables, para aumentar la dimensionalidad del gráficos.
- color color =
- rellenofill =
- forma shape =
- tamaño size =
- transparencia alpha =

Esto permite tener, en el plano, gráficos de muchas dimensiones de análisis

Si el color representa una variable lo definimos dentro del aes(), aes(... color = ingresos)
Cuando queremos simplemente mejorar el diseño (es fijo), se asigna por fuera, o dentro de cada tipo de gráficos, geom_col(color = 'green').

Boxplots

Los gráficos Boxplot representan una única variable (univariados).
Están compuestos por una caja, cuyo límite inferior es el valor donde se alcanza el 25% de la distribución
Su límite superior es el valor donde se alcanza el 75% de la misma.
A su vez, también el gráfico marca los valores “outliers” (datos que se encuentran a una distancia de al menos 1,5 veces el tamaño de la caja del límite inferior o superior de la caja, según corresponda)

Boxplot de ingresos de la ocupación principal, según nivel educativo

Hacemos un procesamiento simple: Sacamos los ingresos iguales a cero y las no respuestas de nivel educativo.
Es importante que las variables sean del tipo que conceptualmente les corresponde (el nivel educativo es una variable categórica, no continua), para que el ggplot pueda graficarlo correctamente.

# Las variables sexo( CH04 ) y Nivel educativo están codificadas como números, y el R las entiende como numéricas.
class(Individual_t117$NIVEL_ED)

[1] "integer"

class(Individual_t117$CH04)

[1] "integer"

ggdata <- Individual_t117 %>% 
  filter(P21>0, !is.na(NIVEL_ED)) %>% 
  mutate(NIVEL_ED = as.factor(NIVEL_ED),
         CH04     = as.factor(CH04))

ggplot(ggdata, aes(x = NIVEL_ED, y = P21, fill = NIVEL_ED)) +
  geom_boxplot()+
  scale_y_continuous(limits = c(0, 40000))#Restrinjo el gráfico hasta ingresos de $40000

Si queremos agregar la dimensión sexo, podemos hacer un facet_wrap()

ggplot(ggdata, aes(x= NIVEL_ED, y = P21, group = NIVEL_ED, fill = NIVEL_ED )) +
  geom_boxplot()+
  scale_y_continuous(limits = c(0, 40000))+
  facet_wrap(~ CH04, labeller = "label_both")

Por la forma en que está presentado el gráfico, el foco de atención sigue puesto en las diferencias de ingresos entre niveles educativo. Simplemente se agrega un corte por la variable de sexo.

Si lo que queremos hacer es poner el foco de atención en las diferencias por sexo, simplemente basta con invertir la variable x especificada con la variable utilizada en el facet_wrap

ggplot(ggdata, aes(x= CH04, y = P21, group = CH04, fill = CH04 )) +
  geom_boxplot()+
  scale_y_continuous(limits = c(0, 40000))+
  facet_grid(~ NIVEL_ED, labeller = "label_both") +
  theme(legend.position = "none")

Histogramas

Otra forma de mostrar la distribución de una variable es utilizar un histograma. Este tipo de gráficos agrupa las observaciones en bins: intervalos dentro del rango de la variable. Luego cuenta la cantidad de observaciones que caen dentro de cada uno de estos bins.

Por ejemplo, si observamos el ingreso de la ocupación principal:

En este gráfico, los posibles valores de p21 se dividen en 30 bins consecutivos y el gráfico muestra cuantas observaciones caen en cada uno de ellos

Kernels

La función geom_density() nos permite construir kernels de la distribución. Esto es, un suavizado sobre los histogramas que se basa en alguna distribución supuesta dentro de cada bin. Es particularmente útil cuando tenemos una variable continua, dado que los histogramas rompen esa sensación de continuidad.

Veamos un ejemplo sencillo con los ingresos de la ocupación principal. Luego iremos complejizandolo

kernel_data <-Individual_t117 %>%
  filter(P21>0) 
ggplot(kernel_data, aes(x = P21,weights = PONDIIO))+ 
geom_density()+
scale_x_continuous(limits = c(0,50000))

El eje y no tiene demasiada interpretabilidad en los Kernel, porque hace a la forma en que se construyen las distribuciones.

El parametro adjust, dentro de la función geom_densitynos permite reducir o ampliar el rango de suavizado de la distribución. Su valor por default es 1. Veamos que sucede si lo seteamos en 2

ggplot(kernel_data, aes(x = P21,weights = PONDIIO))+ 
geom_density(adjust = 2)+
scale_x_continuous(limits = c(0,50000))

Como es esperable, la distribución del ingreso tiene “picos” en los valores redondos, ya que la gente suele declarar un valor aproximado al ingreso efectivo que percibe. Nadie declara ingresos de 30001. Al suavizar la serie con un kernel, eliminamos ese efecto.Si seteamos el rango para el suavizado en valores menores a 1, podemos observar estos picos.

ggplot(kernel_data, aes(x = P21,weights = PONDIIO))+ 
geom_density(adjust = 0.01)+
scale_x_continuous(limits = c(0,50000))

Ahora bien, como en todo grafico de R, podemos seguir agregando dimensiones para enriquecer el análisis.

kernel_data_2 <- kernel_data %>% 
  mutate(CH04= case_when(CH04 == 1 ~ "Varon",
                         CH04 == 2 ~ "Mujer"))
  
ggplot(kernel_data_2, aes(x = P21,
  weights = PONDIIO,
  group = CH04,
  fill = CH04)) +
  geom_density(alpha=0.7,adjust =2)+
  labs(x="Distribución del ingreso", y="",
       title=" Total según tipo de ingreso y género", 
       caption = "Fuente: Encuesta Permanente de Hogares")+
  scale_x_continuous(limits = c(0,50000))+
  theme_tufte()+
  scale_fill_gdocs()+
  theme(legend.position = "bottom",
        plot.title      = element_text(size=12))
ggsave(filename = "../Resultados/Kernel_1.png",scale = 2)

Saving 14.6 x 9 in image

Podemos agregar aún la dimensión de ingreso laboral respecto del no laboral

kernel_data_3 <-kernel_data_2 %>% 
  select(REGION,P47T,T_VI, TOT_P12, P21 , PONDII, CH04) %>% 
  filter(!is.na(P47T), P47T > 0 ) %>% 
  mutate(ingreso_laboral    = TOT_P12 + P21,
         ingreso_no_laboral = T_VI) %>%
  gather(., key = Tipo_ingreso, Ingreso, c((ncol(.)-1):ncol(.))) %>%
  filter( Ingreso !=0)# Para este gráfico, quiero eliminar los ingresos = 0
kernel_data_3

  ggplot(kernel_data_3, aes(
  x = Ingreso,
  weights = PONDII,
  group = Tipo_ingreso,
  fill = Tipo_ingreso)) +
  geom_density(alpha=0.7,adjust =2)+
  labs(x="Distribución del ingreso", y="",
       title=" Total según tipo de ingreso y género", 
       caption = "Fuente: Encuesta Permanente de Hogares")+
  scale_x_continuous(limits = c(0,50000))+
  theme_tufte()+
  scale_fill_gdocs()+
  theme(legend.position = "bottom",
        plot.title      = element_text(size=12))+
  facet_wrap(~ CH04, scales = "free")
ggsave(filename = "../Resultados/Kernel_1.png",scale = 2)

Saving 14.6 x 9 in image

En este tipo de gráficos, importa mucho qué variable se utiliza para facetear y qué variable para agrupar, ya que la construcción de la distribución es diferente.

ggplot(kernel_data_3, aes(
  x = Ingreso,
  weights = PONDII,
  group = CH04,
  fill = CH04)) +
  geom_density(alpha=0.7,adjust =2)+
  labs(x="Distribución del ingreso", y="",
       title=" Total según tipo de ingreso y género", 
       caption = "Fuente: Encuesta Permanente de Hogares")+
  scale_x_continuous(limits = c(0,50000))+
  theme_tufte()+
  scale_fill_gdocs()+
  theme(legend.position = "bottom",
        plot.title      = element_text(size=12))+
  facet_wrap(~Tipo_ingreso, scales = "free")
ggsave(filename = "../Resultados/Kernel_1.png",scale = 2)

Saving 14.6 x 9 in image

Ejercicios para practicar

Calcular el promedio del ingreso por ocupación principal (Variable P21) para asalariados con y sin descuento jubilatorio (Variable PP07H). Luego realizar un gráfico de barras donde se comparen ambos valores (para el 1er trimestre de 2017).
Pistas: Se deben filtrar previamente los ingresos mayores a 0 (P21>0).Chequear que ponderador corresponde utilizar
Graficar la distribución del ingreso por ocupación principal para Asalariados, Cuentapropistas y Patrones, con el tipo de gráfico Kernel
Pista: Usar la función facet_wrap para separar a cada una de las categorías ocupacionales)
Sugerencia: incorporar la línea scale_x_continuous(limits = c(0,50000)) entre las capas del gráfico. ¿Qué cambió?

Ejercicios de tarea

Hacer un gráfico boxplot de la distribución de edades de los asalariados con descuento jubilatorio, y de los asalariados sin descuento jubilatorio.
Uniendo las bases de los distintos trimestres, calcular el procentaje de asalariados sin descuento jubilatorio como \(\frac{Asal. s/ desc jubil}{Asal. c/ desc jubil+ Asal.s/ desc jubil}\). Luego realizar un gráfico de linea con la evolución de este indicador

LS0tCnRpdGxlOiBDbGFzZSAzCnN1YnRpdGxlOiBHcsOhZmljb3MKZGF0ZTogIjEyLzEyLzIwMTgiCm91dHB1dDoKICBodG1sX25vdGVib29rOiAKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlIAotLS0KCj4gUmVpbmljaWFyIFNlc2nDs24KCgojIyMjIENhcmdhbW9zIGxhcyBsaWJyZXLDrWFzIGEgdXRpbGl6YXIKYGBge3J9CgpsaWJyYXJ5KHRpZHl2ZXJzZSkgIyB0aWVuZSBnZ3Bsb3QsIGRwbHlyLCB0aWR5ciwgeSBvdHJvcwpsaWJyYXJ5KGdndGhlbWVzKSAgIyBlc3RpbG9zIGRlIGdyw6FmaWNvcwpsaWJyYXJ5KGdncmVwZWwpICAgIyBldGlxdWV0YXMgZGUgdGV4dG8gbcOhcyBwcm9saWphcyBxdWUgbGFzIGRlIGdncGxvdAoKYGBgCgoKIyBHcsOhZmljb3MgQsOhc2ljb3MgZW4gUgoKUmJhc2UgIHRpZW5lIGFsZ3Vub3MgY29tYW5kb3MgZ2Vuw6lyaWNvcyBwYXJhIHJlYWxpemFyIGdyw6FmaWNvcywgcXVlIHNlIGFkYXB0YW4gYWwgdGlwbyBkZSBpbmZvcm1hY2nDs24gcXVlIHNlIGxlIHBpZGUgZ3JhZmljYXIsIHBvciBlamVtcGxvOgoKLSBwbG90KCkKLSBoaXN0KCkKCmBgYHtyIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTh9CiMgaXJpcyBlcyB1biBzZXQgZGUgZGF0b3MgY2zDoXNpY28sIHF1ZSB5YSB2aWVuZSBpbmNvcnBvcmFkbyBlbiBSCmlyaXMKcGxvdChpcmlzKQpgYGAKCmBgYHtyfQojQWwgZXNwZWNpZmljYXIgdW5hIHZhcmlhYmxlLCBwdWVkbyB2ZXIgZWwgdmFsb3IgcXVlIHRvbWEgY2FkYSB1bm8gZGUgc3VzIHJlZ2lzdHJvcyAoSW5kZXgpCnBsb3QoaXJpcyRTZXBhbC5MZW5ndGgsdHlwZSA9ICJwIikgIyBVbiBwdW50byBwb3IgY2FkYSB2YWxvcgpwbG90KGlyaXMkU2VwYWwuTGVuZ3RoLHR5cGUgPSAibCIpICMgVW5hIGxpbmVhIHF1ZSB1bmEgY2FkYSB2YWxvcgpwbG90KGlyaXMkU2VwYWwuTGVuZ3RoLHR5cGUgPSAiYiIpICNBbWJhcwpoaXN0KGlyaXMkU2VwYWwuTGVuZ3RoLCBjb2wgPSAibGlnaHRzYWxtb24xIiwgbWFpbiA9ICJIaXN0b2dyYW1hIikKYGBgCgojIyBwbmcKTGEgZnVuY2nDs24gYGBgcG5nKClgYGAgbm9zIHBlcm1pdGUgZ3JhYmFyIHVuYSBpbWFnZW4gZW4gZWwgZGlzY28uIExsZXZhIGNvbW8gYXJndW1lbnRvIHByaW5jaXBhbCBsYSBydXRhIGNvbXBsZXRhIGEgZG9uZGUgc2UgZGVzZWEgZ3VhcmRhciBsYSBtaXNtYSwgaW5jbHV5ZW5kbyBlbCBub21icmUgcXVlIHF1ZXJlbW9zIGRhciBhbCBhcmNoaXZvLiBBIHN1IHZleiBwdWVkZW4gZXNwZWNpZmljYXJzZSBvdHJvcyBhcmd1bWV0bm9zIGNvbW8gZWwgYW5jaG8geSBsYXJnbyBkZSBsYSBpbWFnZW4sIGVudHJlIG90cm9zLiAgCgpgYGB7cn0KcnV0YV9hcmNoaXZvIDwtICIuLi9SZXN1bHRhZG9zL2dyYWZpY28xLlBORyIKcnV0YV9hcmNoaXZvCnBuZyhydXRhX2FyY2hpdm8pCnBsb3QoaXJpcyRTZXBhbC5MZW5ndGgsdHlwZSA9ICJiIikKZGV2Lm9mZigpCmBgYAoKTGEgZnVuY2nDs24gYGBgcG5nKClgYGAgX2FicmUgZWwgZGlzcG9zaXRpdm8gZGUgaW1hZ2VuXyBlbiBlbCBkaXJlY3RvcmlvIGVzcGVjaWZpY2Fkby4gTHVlZ28gY3JlYW1vcyBlbCBncsOhZmljbyBxdWUgZGVzZWFtb3MgKG8gbGxhbWFtb3MgYSB1bm8gcHJldmlhbWVudGUgY29uc3RydWlkbyksIGVsIGN1YWwgc2UgZGVzcGxlZ2Fyw6EgZW4gbGEgdmVudGFuYSBpbmZlcmlvciBkZXJlY2hhIGRlIGxhIHBhbnRhbGxhIGRlIFJzdHVkaW8uIEZpbmFsbWVudGUgY29uIGBgYGRldi5vZmYoKWBgYCBzZSBfY2llcnJhIGVsIGRpc3Bvc2l0aXZvXyB5IHNlIGdyYWJhbiBsb3MgZ3LDoWZpY29zLiAKICAgICAgICAgICAKTG9zIGdyw6FmaWNvcyBkZWwgUiBiYXNlIHNvbiDDunRpbGVzIHBhcmEgZXNjcmliaXIgZGUgZm9ybWEgcsOhcGlkYSB5IG9idGVuZXIgYWxndW5hIGluZm9ybWFjacOzbiBtaWVudHJhcyB0cmFiYWphbW9zLiBNdWNob3MgcGFxdWV0ZXMgZXN0YWTDrXN0aWNvcyBwZXJtaXRlbiBtb3N0cmFyIGxvcyByZXN1bHRhZG9zIGRlIGZvcm1hIGdyw6FmaWNhIGNvbiBlbCBjb21hbmRvIHBsb3QgKHBvciBlamVtcGxvLCBsYXMgcmVncmVzaW9uZXMgbGluZWFsZXMgYGBgbG0oKWBgYCkuICAgICAgIAogClNpbiBlbWJhcmdvLCBleGlzdGVuIGxpYnJlcsOtYXMgbXVjaG8gbWVqb3JlcyBwYXJhIGNyZWFyIGdyw6FmaWNvcyBkZSBuaXZlbCBkZSBwdWJsaWNhY2nDs24uIExhIG3DoXMgaW1wb3J0YW50ZSBlcyBfX2dncGxvdDJfXywgcXVlIGEgc3UgdmV6IHRpZW5lIGV4dGVuc2lvbmVzIG1lZGlhbnRlIG90cmFzIGxpYnJlcsOtYXMuCgoKIyBbR2dwbG90Ml0oaHR0cDovL2dncGxvdDIudGlkeXZlcnNlLm9yZy9yZWZlcmVuY2UvKQoKCmdncGxvdCB0aWVuZSBzdSBzaW50YXhpcyBwcm9waWEuIExhIGlkZWEgY2VudHJhbCBlcyBwZW5zYXIgbG9zIGdyw6FmaWNvcyBjb21vIHVuYSBzdWNlc2nDs24gZGUgY2FwYXMsIHF1ZSBzZSBjb25zdHJ1eWVuIHVuYSBhIGxhIHZlei4gICAgCgotIEVsIG9wZXJhZG9yIF9fYGBgK2BgYF9fIG5vcyBwZXJtaXRlIGluY29ycG9yYXIgbnVldmFzIGNhcGFzIGFsIGdyw6FmaWNvLgoKLSBFbCBjb21hbmRvIGBgYGdncGxvdCgpYGBgIG5vcyBwZXJtaXRlIGRlZmluaXIgbGEgZnVlbnRlIGRlIF9fZGF0b3NfXyB5IGxhcyBfX3ZhcmlhYmxlc19fIHF1ZSBkZXRlcm1pbmFyYW4gbG9zIGVqZXMgZGVsIGdyYWZpY28gKHgseSksIGFzw60gY29tbyBlbCBjb2xvciB5IGxhIGZvcm1hIGRlIGxhcyBsw61uZWFzIG8gcHVudG9zLGV0Yy4gCgotIExhcyBzdWNlc2l2YXMgY2FwYXMgbm9zIHBlcm1pdGVuIGRlZmluaXI6CiAgIAogICAgLSBVbm8gbyBtw6FzIHRpcG9zIGRlIGdyw6FmaWNvcyAoZGUgY29sdW1uYXMsIGBgYGdlb21fY29sKClgYGAsIGRlIGzDrW5lYSwgYGBgZ2VvbV9saW5lKClgYGAsIGRlIHB1bnRvcyxgYGBnZW9tX3BvaW50KClgYGAsIGJveHBsb3QsIGBgYGdlb21fYm94cGxvdCgpYGBgKQogICAgLSBUw610dWxvcyBgYGBsYWJzKClgYGAKICAgIC0gRXN0aWxvIGRlbCBncsOhZmljbyBgYGB0aGVtZSgpYGBgCiAgICAtIEVzY2FsYXMgZGUgbG9zIGVqZXMgYGBgc2NhbGVfeV9jb250aW51b3VzYGBgLGBgYHNjYWxlX3hfZGlzY3JldGVgYGAgCiAgICAtIERpdmlzacOzbiBlbiBzdWJjb25qdW50b3MgYGBgZmFjZXRfd3JhcCgpYGBgLGBgYGZhY2V0X2dyaWQoKWBgYAoKZ2dwbG90IHRpZW5lIF9fbXVjaG9zX18gY29tYW5kb3MsIHkgbm8gdGllbmUgc2VudGlkbyBzYWJlcmxvcyBkZSBtZW1vcmlhLCBlcyBzaWVtcHJlIMO6dGlsIHJldXRpbGl6YXIgZ3LDoWZpY29zIHZpZWpvcyB5IHRlbmVyIGEgbWFubyBlbCBbbWFjaGV0ZV0oaHR0cHM6Ly93d3cucnN0dWRpby5jb20vd3AtY29udGVudC91cGxvYWRzLzIwMTYvMTEvZ2dwbG90Mi1jaGVhdHNoZWV0LTIuMS5wZGYpLiAgICAKCiMjIEdyw6FmaWNvIGRlIFB1bnRvcwoKQSBjb250aW51YWNpw7NuIHNlIGRlc3BsZWdhIHVuIGdyw6FmaWNvIGRlIHZhcmlhcyBjYXBhcyBkZSBjb25zdHJ1Y2Npw7NuLCBjb24gc3UgY29ycmVzcG9uZGllbnRlIHBvcmNpw7NuIGRlIGPDs2RpZ28uIEVuIGVsIG1pc21vIHNlIGJ1c2NhcsOhIHZpc3VhbGl6YXIsIGEgcGFydGlyIGRlIGxhIGJhc2UgZGUgZGF0b3MgKippcmlzKiogbGEgcmVsYWNpw7NuIGVudHJlIGVsIGFuY2hvIHkgZWwgbGFyZ28gZGUgbG9zIHBldGFsb3MsIG1lZGlhbnRlIHVuIGdyw6FmaWNvIGRlIHB1bnRvcy4KCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQpnZ3Bsb3QoZGF0YSA9IGlyaXMsIGFlcyh4ID0gUGV0YWwuTGVuZ3RoLCBQZXRhbC5XaWR0aCwgY29sb3IgPSBTcGVjaWVzKSkrCiAgZ2VvbV9wb2ludChhbHBoYT0wLjc1KSsKICBsYWJzKHRpdGxlID0gIk1lZGlkYXMgZGUgbG9zIHDDqXRhbG9zIHBvciBlc3BlY2llIikrCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gJ25vbmUnKSsKICBmYWNldF93cmFwKH5TcGVjaWVzKQoKYGBgCgojIyMgQ2FwYXMgZGVsIEdyw6FmaWNvClZlYW1vcyBhaG9yYSwgZWwgInBhc28gYSBwYXNvIiBkZWwgYXJtYWRvIGRlbCBtaXNtby4gICAgICAgICAgCgpFbiBwcmltZXJhIGluc3RhbmNpYSBzb2xvIGRlZmlubyBsb3MgZWplcy4gWSBlbiBlc3RlIGNhc28gdW4gY29sb3IgcGFydGljdWxhciBwYXJhIGNhZGEgRXNwZWNpZS4KYGBge3J9CmcgPC0gZ2dwbG90KGRhdGEgPSBpcmlzLCBhZXMoeCA9IFBldGFsLkxlbmd0aCwgUGV0YWwuV2lkdGgsIGNvbG9yID0gU3BlY2llcykpCmcKYGBgCkx1ZWdvLCBkZWZpbm8gZWwgdGlwbyBkZSBncsOhZmljby4gRWwgKmFscGhhKiBtZSBwZXJtaXRlIGRlZmluaXIgbGEgaW50ZW5zaWRhZCBkZSBsb3MgcHVudG9zCmBgYHtyfQpnIDwtIGcgKyAgZ2VvbV9wb2ludChhbHBoYT0wLjI1KQpnCmBgYCAgCkxhcyBzaWd1aWVudGVzIHRyZXMgY2FwYXMgbWUgcGVybWl0ZW4gcmVzcGVjdGl2YW1lbnRlOiAKIAogLSBEZWZpbmlyIGVsIHTDrXR1bG8gZGVsIGdyw6FmaWNvCiAtIFF1aXRhciBsYSBsZXllbmRhCiAtIEFicmlyIGVsIGdyw6FmaWNvIGVuIHRyZXMgZnJhZ21lbnRvcywgdW5vIHBhcmEgY2FkYSBlc3BlY2llCgpgYGB7cn0gCmcgPC0gZyArCiAgbGFicyh0aXRsZSA9ICJNZWRpZGFzIGRlIGxvcyBww6l0YWxvcyBwb3IgZXNwZWNpZSIpKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICdub25lJykrCiAgZmFjZXRfd3JhcCh+U3BlY2llcykKZwoKYGBgCgojIyBHcsOhZmljbyBkZSBiYXJyYXMKClNpIHF1aXNpZXJhbW9zIGhhY2VyIHVuIGdyw6FmaWNvIGRlIGNvbHVtbmFzIGRlbCBwcm9tZWRpbyBkZSBsYXMgbWVkaWRhcyBwb3IgZXNwZWNpZSwgcHJpbWVybyBuZWNlc2l0YW1vcyBoYWNlciB1bmEgYmFzZSBjb24gbG9zIHByb21lZGlvcywgeSBsdWVnbyBncmFmaWNhciBlc28uCgpgYGB7cn0KaXJpc19wcm9tZWRpb3MgPC0gaXJpcyAlPiUgCiAgZ3JvdXBfYnkoU3BlY2llcykgJT4lIAogIHN1bW1hcmlzZV9hbGwobWVhbikKCmlyaXNfcHJvbWVkaW9zCgpnZ3Bsb3QoZGF0YSA9IGlyaXNfcHJvbWVkaW9zLCBhZXMoeCA9IFNwZWNpZXMsIFBldGFsLldpZHRoLCBmaWxsID0gU3BlY2llcykpKwogIGdlb21fY29sKGFscGhhPTAuNzUpKwogIGxhYnModGl0bGUgPSAiQW5jaG8gcHJvbWVkaW8gZGVsIHDDqXRhbG8gcG9yIGVzcGVjaWUiKSsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAnbm9uZScpCgoKYGBgCgpjb24gYGdlb21fY29sKClgIHBvZGVtb3MgcmVhbGl6YXIgZWwgZ3LDoWZpY28gZGUgY29sdW1uYXMuIAoKCmBgYHtyLCB3YXJuaW5nPUZBTFNFLCBtZXNzYWdlPUZBTFNFfQoKSW5kaXZpZHVhbF90MTE3IDwtIHJlYWQudGFibGUoIi4uL0Z1ZW50ZXMvdXN1X2luZGl2aWR1YWxfdDExNy50eHQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZXA9IjsiLCBkZWM9IiwiLCBoZWFkZXIgPSBUUlVFLCBmaWxsID0gVFJVRSkKCmBgYAoKRW4gbG9zIGdyw6FmaWNvcyB1dGlsaXphbW9zIGV4dGVuc2lvbmVzIGRlIGdncGxvdDogCgotIGdncmVwZWwgYGBgZ2VvbV90ZXh0X3JlcGVsKClgYGAKLSBnZ3RoZW1lcyBgYGB0aGVtZV90dWZ0ZSgpYGBgCgpzaW1wbGVtZW50ZSBkZWJlbW9zIHJlY29yZGFyIGNhcmdhciBsYXMgbGlicmVyw61hcyBzaSBxdWVyZW1vcyB1dGlsaXphciBlc2FzIGZ1bmNpb25lcy4KCiMjIEdyw6FmaWNvcyBkZSBkaXN0cmlidWNpb25lcwoKTG9zIGdyw6FmaWNvcyBoYXN0YSBhcXXDrSByZWFsaXphZG9zIChwdW50b3MgeSBiYXJyYXMpIHNvbiBmw6FjaWxtZW50ZSByZXByb2R1Y2libGVzIGVuIHVuIGV4Y2VsIHlhIHF1ZSB1dGlsaXphbiBsYSBpbmZvcm1hY2nDs24gYWdyZWdhZGEuIFNpbiBlbWJhcmdvLCBsYSBncmFuIHZlbnRhamEgZGVsICoqUioqIHNlIG1hbmlmaWVzdGEgYSBhIGxhIGhvcmEgZGUgcmVhbGl6YXI6CgotIEdyw6FmaWNvcyBxdWUgbmVjZXNpdGFuIGxhIGluZm9ybWFjacOzbiBhIG5pdmVsIGRlIG1pY3JvZGF0b3MuIF9fcHVudG9zX18sICBfX2JveHBsb3RzX18sIF9fS2VybmVsc19fLCBldGMuCi0gQWJyaXIgdW4gbWlzbW8gZ3LDoWZpY28gc2Vnw7puIGFsZ3VuYSB2YXJpYWJsZSBkaXNjcmV0YTogYGBgZmFjZXRfd3JhcCgpYGBgCi0gUGFyYW1ldHJpemFyIG90cmFzIHZhcmlhYmxlcywgcGFyYSBhdW1lbnRhciBsYSBkaW1lbnNpb25hbGlkYWQgZGVsIGdyw6FmaWNvcy4KICAgIC0gW19fY29sb3JfX10oaHR0cDovL3d3dy5zdGF0LmNvbHVtYmlhLmVkdS9+dHpoZW5nL2ZpbGVzL1Jjb2xvci5wZGYpIGBgYGNvbG9yID0gYGBgCiAgICAtIF9fcmVsbGVub19fYGBgZmlsbCA9IGBgYAogICAgLSBfX2Zvcm1hX18gYGBgc2hhcGUgPSBgYGAKICAgIC0gX190YW1hw7FvX18gYGBgc2l6ZSA9IGBgYAogICAgLSBfX3RyYW5zcGFyZW5jaWFfXyBgYGBhbHBoYSA9IGBgYAoKRXN0byBwZXJtaXRlIHRlbmVyLCBlbiBlbCBwbGFubywgZ3LDoWZpY29zIGRlIG11Y2hhcyBkaW1lbnNpb25lcyBkZSBhbsOhbGlzaXMKCi0gU2kgZWwgY29sb3IgcmVwcmVzZW50YSB1bmEgdmFyaWFibGUgbG8gZGVmaW5pbW9zIF9fZGVudHJvIGRlbCBhZXMoKV9fLCBgYGBhZXMoLi4uIGNvbG9yID0gaW5ncmVzb3MpYGBgCi0gQ3VhbmRvIHF1ZXJlbW9zIHNpbXBsZW1lbnRlIG1lam9yYXIgZWwgZGlzZcOxbyAoZXMgZmlqbyksIHNlIGFzaWduYSBwb3IgZnVlcmEsIG8gZGVudHJvIGRlIGNhZGEgdGlwbyBkZSBncsOhZmljb3MsIGBgYGdlb21fY29sKGNvbG9yID0gJ2dyZWVuJylgYGAuCgojIyMgW19fQm94cGxvdHNfX10oaHR0cHM6Ly9mbG93aW5nZGF0YS5jb20vMjAwOC8wMi8xNS9ob3ctdG8tcmVhZC1hbmQtdXNlLWEtYm94LWFuZC13aGlza2VyLXBsb3QvKSAKCi0gTG9zIGdyw6FmaWNvcyBCb3hwbG90IHJlcHJlc2VudGFuIHVuYSDDum5pY2EgdmFyaWFibGUgKHVuaXZhcmlhZG9zKS4KLSBFc3TDoW4gY29tcHVlc3RvcyBwb3IgdW5hIGNhamEsIGN1eW8gbMOtbWl0ZSBpbmZlcmlvciBlcyBlbCB2YWxvciBkb25kZSBzZSBhbGNhbnphIGVsIDI1JSBkZSBsYSBkaXN0cmlidWNpw7NuCi0gU3UgbMOtbWl0ZSBzdXBlcmlvciBlcyBlbCB2YWxvciBkb25kZSBzZSBhbGNhbnphIGVsIDc1JSBkZSBsYSBtaXNtYS4KLSBBIHN1IHZleiwgdGFtYmnDqW4gZWwgZ3LDoWZpY28gbWFyY2EgbG9zIHZhbG9yZXMgIm91dGxpZXJzIiAoZGF0b3MgcXVlIHNlIGVuY3VlbnRyYW4gYSB1bmEgZGlzdGFuY2lhIGRlIGFsIG1lbm9zIDEsNSB2ZWNlcyBlbCB0YW1hw7FvIGRlIGxhIGNhamEgZGVsIGzDrW1pdGUgaW5mZXJpb3IgbyBzdXBlcmlvciBkZSBsYSBjYWphLCBzZWfDum4gY29ycmVzcG9uZGEpCgojIyMjIEJveHBsb3QgZGUgaW5ncmVzb3MgZGUgbGEgb2N1cGFjacOzbiBwcmluY2lwYWwsIHNlZ8O6biBuaXZlbCBlZHVjYXRpdm8KCkhhY2Vtb3MgdW4gcHJvY2VzYW1pZW50byBzaW1wbGU6IFNhY2Ftb3MgbG9zIGluZ3Jlc29zIGlndWFsZXMgYSBjZXJvIHkgbGFzIG5vIHJlc3B1ZXN0YXMgZGUgbml2ZWwgZWR1Y2F0aXZvLiAgICAKRXMgaW1wb3J0YW50ZSBxdWUgbGFzIHZhcmlhYmxlcyBzZWFuIGRlbCB0aXBvIHF1ZSBjb25jZXB0dWFsbWVudGUgbGVzIGNvcnJlc3BvbmRlIChlbCBuaXZlbCBlZHVjYXRpdm8gZXMgdW5hIHZhcmlhYmxlIGNhdGVnw7NyaWNhLCBubyBjb250aW51YSksIHBhcmEgcXVlIGVsIGdncGxvdCBwdWVkYSBncmFmaWNhcmxvIGNvcnJlY3RhbWVudGUuIAoKYGBge3J9CiMgTGFzIHZhcmlhYmxlcyBzZXhvKCBDSDA0ICkgeSBOaXZlbCBlZHVjYXRpdm8gZXN0w6FuIGNvZGlmaWNhZGFzIGNvbW8gbsO6bWVyb3MsIHkgZWwgUiBsYXMgZW50aWVuZGUgY29tbyBudW3DqXJpY2FzLgpjbGFzcyhJbmRpdmlkdWFsX3QxMTckTklWRUxfRUQpCmNsYXNzKEluZGl2aWR1YWxfdDExNyRDSDA0KQoKZ2dkYXRhIDwtIEluZGl2aWR1YWxfdDExNyAlPiUgCiAgZmlsdGVyKFAyMT4wLCAhaXMubmEoTklWRUxfRUQpKSAlPiUgCiAgbXV0YXRlKE5JVkVMX0VEID0gYXMuZmFjdG9yKE5JVkVMX0VEKSwKICAgICAgICAgQ0gwNCAgICAgPSBhcy5mYWN0b3IoQ0gwNCkpCmBgYAoKYGBge3J9CgpnZ3Bsb3QoZ2dkYXRhLCBhZXMoeCA9IE5JVkVMX0VELCB5ID0gUDIxLCBmaWxsID0gTklWRUxfRUQpKSArCiAgZ2VvbV9ib3hwbG90KCkrCiAgc2NhbGVfeV9jb250aW51b3VzKGxpbWl0cyA9IGMoMCwgNDAwMDApKSNSZXN0cmluam8gZWwgZ3LDoWZpY28gaGFzdGEgaW5ncmVzb3MgZGUgJDQwMDAwCmBgYAoKU2kgcXVlcmVtb3MgYWdyZWdhciBsYSBkaW1lbnNpw7NuIF9zZXhvXywgcG9kZW1vcyBoYWNlciB1biBgYGBmYWNldF93cmFwKClgYGAKCmBgYHtyfQoKZ2dwbG90KGdnZGF0YSwgYWVzKHg9IE5JVkVMX0VELCB5ID0gUDIxLCBncm91cCA9IE5JVkVMX0VELCBmaWxsID0gTklWRUxfRUQgKSkgKwogIGdlb21fYm94cGxvdCgpKwogIHNjYWxlX3lfY29udGludW91cyhsaW1pdHMgPSBjKDAsIDQwMDAwKSkrCiAgZmFjZXRfd3JhcCh+IENIMDQsIGxhYmVsbGVyID0gImxhYmVsX2JvdGgiKQpgYGAKClBvciBsYSBmb3JtYSBlbiBxdWUgZXN0w6EgcHJlc2VudGFkbyBlbCBncsOhZmljbywgZWwgZm9jbyBkZSBhdGVuY2nDs24gc2lndWUgcHVlc3RvIGVuIGxhcyBkaWZlcmVuY2lhcyBkZSBpbmdyZXNvcyBlbnRyZSBuaXZlbGVzIGVkdWNhdGl2by4gU2ltcGxlbWVudGUgc2UgYWdyZWdhIHVuIGNvcnRlIHBvciBsYSB2YXJpYWJsZSBkZSBzZXhvLgoKU2kgbG8gcXVlIHF1ZXJlbW9zIGhhY2VyIGVzIHBvbmVyIGVsIGZvY28gZGUgYXRlbmNpw7NuIGVuIGxhcyBkaWZlcmVuY2lhcyBwb3Igc2V4bywgc2ltcGxlbWVudGUgYmFzdGEgY29uIGludmVydGlyIGxhIHZhcmlhYmxlIHggZXNwZWNpZmljYWRhIGNvbiBsYSB2YXJpYWJsZSB1dGlsaXphZGEgZW4gZWwgYGBgZmFjZXRfd3JhcGBgYAoKCmBgYHtyfQpnZ3Bsb3QoZ2dkYXRhLCBhZXMoeD0gQ0gwNCwgeSA9IFAyMSwgZ3JvdXAgPSBDSDA0LCBmaWxsID0gQ0gwNCApKSArCiAgZ2VvbV9ib3hwbG90KCkrCiAgc2NhbGVfeV9jb250aW51b3VzKGxpbWl0cyA9IGMoMCwgNDAwMDApKSsKICBmYWNldF9ncmlkKH4gTklWRUxfRUQsIGxhYmVsbGVyID0gImxhYmVsX2JvdGgiKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQoKYGBgCgojIyMgW0hpc3RvZ3JhbWFzXShodHRwczovL2dncGxvdDIudGlkeXZlcnNlLm9yZy9yZWZlcmVuY2UvZ2VvbV9oaXN0b2dyYW0uaHRtbCkKCk90cmEgZm9ybWEgZGUgbW9zdHJhciBsYSBkaXN0cmlidWNpw7NuIGRlIHVuYSB2YXJpYWJsZSBlcyB1dGlsaXphciB1biBoaXN0b2dyYW1hLiBFc3RlIHRpcG8gZGUgZ3LDoWZpY29zIGFncnVwYSBsYXMgb2JzZXJ2YWNpb25lcyBlbiBfX2JpbnNfXzogaW50ZXJ2YWxvcyBkZW50cm8gZGVsIHJhbmdvIGRlIGxhIHZhcmlhYmxlLiBMdWVnbyBjdWVudGEgbGEgY2FudGlkYWQgZGUgb2JzZXJ2YWNpb25lcyBxdWUgY2FlbiBkZW50cm8gZGUgY2FkYSB1bm8gZGUgZXN0b3MgYmlucy4KClBvciBlamVtcGxvLCBzaSBvYnNlcnZhbW9zIGVsIGluZ3Jlc28gZGUgbGEgb2N1cGFjacOzbiBwcmluY2lwYWw6CgpgYGB7ciB3YXJuaW5nPUZBTFNFfQpoaXN0X2RhdGEgPC1JbmRpdmlkdWFsX3QxMTcgJT4lCiAgZmlsdGVyKFAyMT4wKSAKCmdncGxvdChoaXN0X2RhdGEsIGFlcyh4ID0gUDIxLHdlaWdodHMgPSBQT05ESUlPKSkrIApnZW9tX2hpc3RvZ3JhbShjb2wgPSAiZ3JleSIpKwpzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0gYygwLDUwMDAwKSkKYGBgCgpFbiBlc3RlIGdyw6FmaWNvLCBsb3MgcG9zaWJsZXMgdmFsb3JlcyBkZSBwMjEgc2UgZGl2aWRlbiBlbiAzMCBfX2JpbnNfXyBjb25zZWN1dGl2b3MgeSBlbCBncsOhZmljbyBtdWVzdHJhIGN1YW50YXMgb2JzZXJ2YWNpb25lcyBjYWVuIGVuIGNhZGEgdW5vIGRlIGVsbG9zCgoKIyMjIFtLZXJuZWxzXShodHRwczovL3Bsb3QubHkvZ2dwbG90Mi9nZW9tX2RlbnNpdHkvKQoKTGEgZnVuY2nDs24gIGBgYGdlb21fZGVuc2l0eSgpYGBgIG5vcyBwZXJtaXRlIGNvbnN0cnVpciBfX2tlcm5lbHNfXyBkZSBsYSBkaXN0cmlidWNpw7NuLiBFc3RvIGVzLCB1biBzdWF2aXphZG8gc29icmUgbG9zIGhpc3RvZ3JhbWFzIHF1ZSBzZSBiYXNhIGVuIGFsZ3VuYSBkaXN0cmlidWNpw7NuIHN1cHVlc3RhIGRlbnRybyBkZSBjYWRhIGJpbi4gRXMgcGFydGljdWxhcm1lbnRlIMO6dGlsIGN1YW5kbyB0ZW5lbW9zIHVuYSB2YXJpYWJsZSBjb250aW51YSwgZGFkbyBxdWUgbG9zIGhpc3RvZ3JhbWFzIHJvbXBlbiBlc2Egc2Vuc2FjacOzbiBkZSBjb250aW51aWRhZC4KCgpWZWFtb3MgdW4gZWplbXBsbyBzZW5jaWxsbyBjb24gbG9zIGluZ3Jlc29zIGRlIGxhIG9jdXBhY2nDs24gcHJpbmNpcGFsLiBMdWVnbyBpcmVtb3MgY29tcGxlaml6YW5kb2xvIAoKCmBgYHtyIHdhcm5pbmc9RkFMU0V9Cmtlcm5lbF9kYXRhIDwtSW5kaXZpZHVhbF90MTE3ICU+JQogIGZpbHRlcihQMjE+MCkgCgpnZ3Bsb3Qoa2VybmVsX2RhdGEsIGFlcyh4ID0gUDIxLHdlaWdodHMgPSBQT05ESUlPKSkrIApnZW9tX2RlbnNpdHkoKSsKc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IGMoMCw1MDAwMCkpCmBgYAoqKkVsIGVqZSB5IG5vIHRpZW5lIGRlbWFzaWFkYSBpbnRlcnByZXRhYmlsaWRhZCBlbiBsb3MgS2VybmVsLCBwb3JxdWUgaGFjZSBhIGxhIGZvcm1hIGVuIHF1ZSBzZSBjb25zdHJ1eWVuIGxhcyBkaXN0cmlidWNpb25lcyoqLiAKCkVsIHBhcmFtZXRybyBhZGp1c3QsIGRlbnRybyBkZSBsYSBmdW5jacOzbiBgYGBnZW9tX2RlbnNpdHlgYGBub3MgcGVybWl0ZSByZWR1Y2lyIG8gYW1wbGlhciBlbCByYW5nbyBkZSBzdWF2aXphZG8gZGUgbGEgZGlzdHJpYnVjacOzbi4gU3UgdmFsb3IgcG9yIGRlZmF1bHQgZXMgMS4gVmVhbW9zIHF1ZSBzdWNlZGUgc2kgbG8gc2V0ZWFtb3MgZW4gMiAKYGBge3Igd2FybmluZz1GQUxTRX0KZ2dwbG90KGtlcm5lbF9kYXRhLCBhZXMoeCA9IFAyMSx3ZWlnaHRzID0gUE9ORElJTykpKyAKZ2VvbV9kZW5zaXR5KGFkanVzdCA9IDIpKwpzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0gYygwLDUwMDAwKSkKCmBgYAoKQ29tbyBlcyBlc3BlcmFibGUsIGxhIGRpc3RyaWJ1Y2nDs24gZGVsIGluZ3Jlc28gdGllbmUgInBpY29zIiBlbiBsb3MgdmFsb3JlcyByZWRvbmRvcywgeWEgcXVlIGxhIGdlbnRlIHN1ZWxlIGRlY2xhcmFyIHVuIHZhbG9yIGFwcm94aW1hZG8gYWwgaW5ncmVzbyBlZmVjdGl2byBxdWUgcGVyY2liZS4gTmFkaWUgZGVjbGFyYSBpbmdyZXNvcyBkZSAzMDAwMS4gQWwgc3Vhdml6YXIgbGEgc2VyaWUgY29uIHVuIGtlcm5lbCwgZWxpbWluYW1vcyBlc2UgZWZlY3RvLlNpIHNldGVhbW9zIGVsIHJhbmdvIHBhcmEgZWwgc3Vhdml6YWRvIGVuIHZhbG9yZXMgbWVub3JlcyBhIDEsIHBvZGVtb3Mgb2JzZXJ2YXIgZXN0b3MgcGljb3MuCgpgYGB7ciB3YXJuaW5nPUZBTFNFfQpnZ3Bsb3Qoa2VybmVsX2RhdGEsIGFlcyh4ID0gUDIxLHdlaWdodHMgPSBQT05ESUlPKSkrIApnZW9tX2RlbnNpdHkoYWRqdXN0ID0gMC4wMSkrCnNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSBjKDAsNTAwMDApKQpgYGAKCkFob3JhIGJpZW4sIGNvbW8gZW4gdG9kbyBncmFmaWNvIGRlIFIsIHBvZGVtb3Mgc2VndWlyIGFncmVnYW5kbyBkaW1lbnNpb25lcyBwYXJhIGVucmlxdWVjZXIgZWwgYW7DoWxpc2lzLiAKYGBge3Igd2FybmluZz1GQUxTRX0Ka2VybmVsX2RhdGFfMiA8LSBrZXJuZWxfZGF0YSAlPiUgCiAgbXV0YXRlKENIMDQ9IGNhc2Vfd2hlbihDSDA0ID09IDEgfiAiVmFyb24iLAogICAgICAgICAgICAgICAgICAgICAgICAgQ0gwNCA9PSAyIH4gIk11amVyIikpCiAgCmdncGxvdChrZXJuZWxfZGF0YV8yLCBhZXMoeCA9IFAyMSwKICB3ZWlnaHRzID0gUE9ORElJTywKICBncm91cCA9IENIMDQsCiAgZmlsbCA9IENIMDQpKSArCiAgZ2VvbV9kZW5zaXR5KGFscGhhPTAuNyxhZGp1c3QgPTIpKwogIGxhYnMoeD0iRGlzdHJpYnVjacOzbiBkZWwgaW5ncmVzbyIsIHk9IiIsCiAgICAgICB0aXRsZT0iIFRvdGFsIHNlZ8O6biB0aXBvIGRlIGluZ3Jlc28geSBnw6luZXJvIiwgCiAgICAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRW5jdWVzdGEgUGVybWFuZW50ZSBkZSBIb2dhcmVzIikrCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IGMoMCw1MDAwMCkpKwogIHRoZW1lX3R1ZnRlKCkrCiAgc2NhbGVfZmlsbF9nZG9jcygpKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgIHBsb3QudGl0bGUgICAgICA9IGVsZW1lbnRfdGV4dChzaXplPTEyKSkKCmdnc2F2ZShmaWxlbmFtZSA9ICIuLi9SZXN1bHRhZG9zL0tlcm5lbF8xLnBuZyIsc2NhbGUgPSAyKQoKYGBgCgpQb2RlbW9zIGFncmVnYXIgYcO6biBsYSBkaW1lbnNpw7NuIGRlIGluZ3Jlc28gbGFib3JhbCByZXNwZWN0byBkZWwgbm8gbGFib3JhbAoKYGBge3Igd2FybmluZz1GQUxTRX0KCmtlcm5lbF9kYXRhXzMgPC1rZXJuZWxfZGF0YV8yICU+JSAKICBzZWxlY3QoUkVHSU9OLFA0N1QsVF9WSSwgVE9UX1AxMiwgUDIxICwgUE9ORElJLCBDSDA0KSAlPiUgCiAgZmlsdGVyKCFpcy5uYShQNDdUKSwgUDQ3VCA+IDAgKSAlPiUgCiAgbXV0YXRlKGluZ3Jlc29fbGFib3JhbCAgICA9IFRPVF9QMTIgKyBQMjEsCiAgICAgICAgIGluZ3Jlc29fbm9fbGFib3JhbCA9IFRfVkkpICU+JQogIGdhdGhlciguLCBrZXkgPSBUaXBvX2luZ3Jlc28sIEluZ3Jlc28sIGMoKG5jb2woLiktMSk6bmNvbCguKSkpICU+JQogIGZpbHRlciggSW5ncmVzbyAhPTApIyBQYXJhIGVzdGUgZ3LDoWZpY28sIHF1aWVybyBlbGltaW5hciBsb3MgaW5ncmVzb3MgPSAwCgprZXJuZWxfZGF0YV8zCmBgYAoKCmBgYHtyIHdhcm5pbmc9RkFMU0V9CiAgZ2dwbG90KGtlcm5lbF9kYXRhXzMsIGFlcygKICB4ID0gSW5ncmVzbywKICB3ZWlnaHRzID0gUE9ORElJLAogIGdyb3VwID0gVGlwb19pbmdyZXNvLAogIGZpbGwgPSBUaXBvX2luZ3Jlc28pKSArCiAgZ2VvbV9kZW5zaXR5KGFscGhhPTAuNyxhZGp1c3QgPTIpKwogIGxhYnMoeD0iRGlzdHJpYnVjacOzbiBkZWwgaW5ncmVzbyIsIHk9IiIsCiAgICAgICB0aXRsZT0iIFRvdGFsIHNlZ8O6biB0aXBvIGRlIGluZ3Jlc28geSBnw6luZXJvIiwgCiAgICAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRW5jdWVzdGEgUGVybWFuZW50ZSBkZSBIb2dhcmVzIikrCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IGMoMCw1MDAwMCkpKwogIHRoZW1lX3R1ZnRlKCkrCiAgc2NhbGVfZmlsbF9nZG9jcygpKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgIHBsb3QudGl0bGUgICAgICA9IGVsZW1lbnRfdGV4dChzaXplPTEyKSkrCiAgZmFjZXRfd3JhcCh+IENIMDQsIHNjYWxlcyA9ICJmcmVlIikKCmdnc2F2ZShmaWxlbmFtZSA9ICIuLi9SZXN1bHRhZG9zL0tlcm5lbF8xLnBuZyIsc2NhbGUgPSAyKQoKYGBgCgpFbiBlc3RlIHRpcG8gZGUgZ3LDoWZpY29zLCBpbXBvcnRhIG11Y2hvIHF1w6kgdmFyaWFibGUgc2UgdXRpbGl6YSBwYXJhIF9mYWNldGVhcl8geSBxdcOpIHZhcmlhYmxlIHBhcmEgYWdydXBhciwgeWEgcXVlIGxhIGNvbnN0cnVjY2nDs24gZGUgbGEgZGlzdHJpYnVjacOzbiBlcyBkaWZlcmVudGUuIAoKYGBge3Isd2FybmluZz1GQUxTRX0KZ2dwbG90KGtlcm5lbF9kYXRhXzMsIGFlcygKICB4ID0gSW5ncmVzbywKICB3ZWlnaHRzID0gUE9ORElJLAogIGdyb3VwID0gQ0gwNCwKICBmaWxsID0gQ0gwNCkpICsKICBnZW9tX2RlbnNpdHkoYWxwaGE9MC43LGFkanVzdCA9MikrCiAgbGFicyh4PSJEaXN0cmlidWNpw7NuIGRlbCBpbmdyZXNvIiwgeT0iIiwKICAgICAgIHRpdGxlPSIgVG90YWwgc2Vnw7puIHRpcG8gZGUgaW5ncmVzbyB5IGfDqW5lcm8iLCAKICAgICAgIGNhcHRpb24gPSAiRnVlbnRlOiBFbmN1ZXN0YSBQZXJtYW5lbnRlIGRlIEhvZ2FyZXMiKSsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0gYygwLDUwMDAwKSkrCiAgdGhlbWVfdHVmdGUoKSsKICBzY2FsZV9maWxsX2dkb2NzKCkrCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgcGxvdC50aXRsZSAgICAgID0gZWxlbWVudF90ZXh0KHNpemU9MTIpKSsKICBmYWNldF93cmFwKH5UaXBvX2luZ3Jlc28sIHNjYWxlcyA9ICJmcmVlIikKCmdnc2F2ZShmaWxlbmFtZSA9ICIuLi9SZXN1bHRhZG9zL0tlcm5lbF8xLnBuZyIsc2NhbGUgPSAyKQoKYGBgCgojIEVqZXJjaWNpb3MgcGFyYSBwcmFjdGljYXIKKiBDYWxjdWxhciBlbCBwcm9tZWRpbyBkZWwgaW5ncmVzbyBwb3Igb2N1cGFjacOzbiBwcmluY2lwYWwgKFZhcmlhYmxlICoqUDIxKiopICBwYXJhICAqKmFzYWxhcmlhZG9zKiogY29uIHkgc2luICoqZGVzY3VlbnRvIGp1YmlsYXRvcmlvKiogKFZhcmlhYmxlICoqUFAwN0gqKikuIEx1ZWdvIHJlYWxpemFyIHVuIGdyw6FmaWNvIGRlIGJhcnJhcyBkb25kZSBzZSBjb21wYXJlbiBhbWJvcyB2YWxvcmVzIChwYXJhIGVsIDFlciB0cmltZXN0cmUgZGUgMjAxNykuICAgICAgICAgICAgICAgICAgIAogIFBpc3RhczogU2UgZGViZW4gZmlsdHJhciBwcmV2aWFtZW50ZSBsb3MgaW5ncmVzb3MgbWF5b3JlcyBhIDAgKCoqUDIxPjAqKikuQ2hlcXVlYXIgcXVlIHBvbmRlcmFkb3IgY29ycmVzcG9uZGUgdXRpbGl6YXIgICAgICAgICAgIAogICAgICAgICAgICAgICAKLSBHcmFmaWNhciBsYSBkaXN0cmlidWNpw7NuIGRlbCBpbmdyZXNvIHBvciBvY3VwYWNpw7NuIHByaW5jaXBhbCBwYXJhIEFzYWxhcmlhZG9zLCBDdWVudGFwcm9waXN0YXMgeSBQYXRyb25lcywgY29uIGVsIHRpcG8gZGUgZ3LDoWZpY28gS2VybmVsICAgICAgICAgICAgICAgICAKICAgUGlzdGE6IFVzYXIgbGEgZnVuY2nDs24gKipmYWNldF93cmFwKiogcGFyYSBzZXBhcmFyIGEgY2FkYSB1bmEgZGUgbGFzIGNhdGVnb3LDrWFzIG9jdXBhY2lvbmFsZXMpICAgICAgICAgICAgICAgIAogICBTdWdlcmVuY2lhOiBpbmNvcnBvcmFyIGxhIGzDrW5lYSBgYGAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IGMoMCw1MDAwMCkpIGBgYCBlbnRyZSBsYXMgY2FwYXMgZGVsIGdyw6FmaWNvLiDCv1F1w6kgY2FtYmnDsz8KCgoKIyBFamVyY2ljaW9zIGRlIHRhcmVhCgotIEhhY2VyIHVuIGdyw6FmaWNvIGJveHBsb3QgZGUgbGEgZGlzdHJpYnVjacOzbiBkZSBlZGFkZXMgZGUgbG9zIGFzYWxhcmlhZG9zIGNvbiBkZXNjdWVudG8ganViaWxhdG9yaW8sIHkgZGUgbG9zIGFzYWxhcmlhZG9zIHNpbiBkZXNjdWVudG8ganViaWxhdG9yaW8uCgotIFVuaWVuZG8gbGFzIGJhc2VzIGRlIGxvcyBkaXN0aW50b3MgdHJpbWVzdHJlcywgY2FsY3VsYXIgZWwgcHJvY2VudGFqZSBkZSBhc2FsYXJpYWRvcyBzaW4gZGVzY3VlbnRvIGp1YmlsYXRvcmlvIGNvbW8gJFxmcmFje0FzYWwuIHMvIGRlc2MganViaWx9e0FzYWwuIGMvIGRlc2MganViaWwrIEFzYWwucy8gZGVzYyBqdWJpbH0kLiBMdWVnbyByZWFsaXphciB1biBncsOhZmljbyBkZSBsaW5lYSBjb24gbGEgZXZvbHVjacOzbiBkZSBlc3RlIGluZGljYWRvcgoKCgo=

Clase 3

Gráficos

12/12/2018