From 00af14315e2199e8efa0d054255e5a1bdbcfae70 Mon Sep 17 00:00:00 2001
From: EduardoHidalgoGarcia <eduardohidalgogarcia@gmail.com>
Date: Mon, 4 Dec 2017 22:49:37 -0600
Subject: [PATCH 1/2] Tratando de subir al git mis tareas

---
 intro-to-data-science-2017 | 1 +
 1 file changed, 1 insertion(+)
 create mode 160000 intro-to-data-science-2017

diff --git a/intro-to-data-science-2017 b/intro-to-data-science-2017
new file mode 160000
index 0000000..7d86024
--- /dev/null
+++ b/intro-to-data-science-2017
@@ -0,0 +1 @@
+Subproject commit 7d860243917fd2a67ef00356d573ac1dfbce8b3c

From 183017570352faad49803990037927cc2aa280d5 Mon Sep 17 00:00:00 2001
From: EduardoHidalgoGarcia <eduardohidalgogarcia@gmail.com>
Date: Mon, 4 Dec 2017 22:52:06 -0600
Subject: [PATCH 2/2] Add files via upload

---
 EduardoHidalgo/algas/00-load.R     |   1 +
 EduardoHidalgo/algas/01-prepare.R  |  15 ++++++
 EduardoHidalgo/algas/02-clean.R    |  13 +++++
 EduardoHidalgo/algas/algas.R       |  79 ++++++++++++++++++++++++++++
 EduardoHidalgo/algas/algas.rds     | Bin 0 -> 8270 bytes
 EduardoHidalgo/algas/metadata.R    |  81 +++++++++++++++++++++++++++++
 EduardoHidalgo/algas/utils.R       |  34 ++++++++++++
 EduardoHidalgo/german/00-load.R    |   1 +
 EduardoHidalgo/german/01-prepare.R |  15 ++++++
 EduardoHidalgo/german/02-clean.R   |   1 +
 EduardoHidalgo/german/german.R     |  37 +++++++++++++
 EduardoHidalgo/german/german.Rproj |  13 +++++
 EduardoHidalgo/german/german.rds   | Bin 0 -> 13500 bytes
 EduardoHidalgo/german/german.zip   | Bin 0 -> 22312 bytes
 EduardoHidalgo/german/metadata.R   |  81 +++++++++++++++++++++++++++++
 EduardoHidalgo/german/utils.R      |  32 ++++++++++++
 16 files changed, 403 insertions(+)
 create mode 100644 EduardoHidalgo/algas/00-load.R
 create mode 100644 EduardoHidalgo/algas/01-prepare.R
 create mode 100644 EduardoHidalgo/algas/02-clean.R
 create mode 100644 EduardoHidalgo/algas/algas.R
 create mode 100644 EduardoHidalgo/algas/algas.rds
 create mode 100644 EduardoHidalgo/algas/metadata.R
 create mode 100644 EduardoHidalgo/algas/utils.R
 create mode 100644 EduardoHidalgo/german/00-load.R
 create mode 100644 EduardoHidalgo/german/01-prepare.R
 create mode 100644 EduardoHidalgo/german/02-clean.R
 create mode 100644 EduardoHidalgo/german/german.R
 create mode 100644 EduardoHidalgo/german/german.Rproj
 create mode 100644 EduardoHidalgo/german/german.rds
 create mode 100644 EduardoHidalgo/german/german.zip
 create mode 100644 EduardoHidalgo/german/metadata.R
 create mode 100644 EduardoHidalgo/german/utils.R

diff --git a/EduardoHidalgo/algas/00-load.R b/EduardoHidalgo/algas/00-load.R
new file mode 100644
index 0000000..a68f80d
--- /dev/null
+++ b/EduardoHidalgo/algas/00-load.R
@@ -0,0 +1 @@
+algas_data <- load()
diff --git a/EduardoHidalgo/algas/01-prepare.R b/EduardoHidalgo/algas/01-prepare.R
new file mode 100644
index 0000000..f8cddc2
--- /dev/null
+++ b/EduardoHidalgo/algas/01-prepare.R
@@ -0,0 +1,15 @@
+colnames(algas_data) <- algas_colnames
+
+#german_data$good_loan <- as.factor(
+#  ifelse(
+#    german_data$good_loan == 1, 
+#    'GoodLoan', 
+#    'BadLoan'
+#  )
+#)
+
+#german_data  <- german_data %>% 
+#  mutate_all(funs(german_decode))
+
+#german_data  <- german_data %>% 
+#  mutate_at(c(1,3,4,6,7,9,10,12,14,15,17,19,20),funs(as.factor))
diff --git a/EduardoHidalgo/algas/02-clean.R b/EduardoHidalgo/algas/02-clean.R
new file mode 100644
index 0000000..a3e8c02
--- /dev/null
+++ b/EduardoHidalgo/algas/02-clean.R
@@ -0,0 +1,13 @@
+colnames(algas_data) <- algas_clean_colnames(algas_colnames)
+
+problematic_rows <- problems(algas_data)$row
+
+algas_data[problematic_rows,] <- algas_data %>% 
+  slice(problematic_rows) %>% 
+  unite(col="all", -seq(1:6), sep = "/", remove=TRUE) %>% 
+  extract(all, into=c("NO3", "NH4", "resto"), regex="([0-9]*.[0-9]{5})([0-9]*.[0-9]*)/(.*)/NA", remove=TRUE) %>% 
+  separate(resto, into=names(algas_data)[9:18], sep="/", remove=TRUE) 
+
+algas_data <- algas_data %>% mutate_at(c(2,3), funs(algas_clean_data))
+
+algas_data <- readr::type_convert(algas_data)
diff --git a/EduardoHidalgo/algas/algas.R b/EduardoHidalgo/algas/algas.R
new file mode 100644
index 0000000..9822576
--- /dev/null
+++ b/EduardoHidalgo/algas/algas.R
@@ -0,0 +1,79 @@
+setwd("~/GitHub/MineriaYAnalisisDeDatos/algas")
+
+library(readr)
+library(stringr)
+library(tidyr)
+library(dplyr)
+library(ggplot2)
+library(ggthemes)
+
+source("metadata.R")
+source("utils.R")
+source("00-load.R")
+source("01-prepare.R")
+source("02-clean.R")
+
+summary(algas_data)
+
+glimpse(algas_data)
+
+problems(algas_data)
+
+
+library(mice)
+md.pattern(algas_data)
+
+library("VIM")
+aggr(algas_data, prop=FALSE, numbers=TRUE)
+
+matrixplot(algas_data)
+
+
+x <- as.data.frame(abs(is.na(algas_data))) # df es un data.frame
+
+head(algas_data)
+
+head(x)
+
+# Extrae las variables que tienen algunas celdas con NAs
+y <- x[which(sapply(x, sd) > 0)] 
+
+# Da la correación un valor alto positivo significa que desaparecen juntas.
+cor(y,y) 
+
+summary(algas_data[-grep(colnames(algas_data),pattern = "^a[1-9]")])
+
+algas_con_NAs <- algas_data[!complete.cases(algas_data),]
+
+algas_con_NAs[c('max_ph', 'min_o2', 'cl', 'no3', 'nh4', 'opo4', 'po4', 'chla')]  %>%
+  print(n = 33)
+
+
+algas_data %>%
+  select(-c(1:3)) %>%
+  cor(use="complete.obs") %>%
+  symnum()
+
+ggplot(data=algas_data) + 
+  aes(x=opo4, y=po4) + 
+  geom_point(shape=1) + # Usamos una bolita para los puntos
+  geom_smooth(method=lm, se=FALSE) +
+  theme_hc()
+# Mostramos la linea de la regresión y no mostramos la región de confianza
+
+
+###
+
+
+c2 <- ggplot(algas_data, aes(max_ph)) +
+  geom_histogram(aes(y = ..density..), binwidth=1) +
+  geom_density()+
+  xlab("PH Maximo") + ylab("") + ggtitle("Distribucion Empirica del PH Maximo Por Estacion")+facet_wrap(~ season, nrow = 3)
+
+p2 <- ggplot(father.son, aes(fheight)) +
+  geom_histogram(aes(y = ..density..), binwidth=1) +
+  geom_density() + xlim(58, 80) + ylim(0, 0.16) + 
+  xlab("ht (inches)") + ylab("") +
+  ggtitle("Fathers")
+
+grid.arrange(c2, p2, nrow = 1)
\ No newline at end of file
diff --git a/EduardoHidalgo/algas/algas.rds b/EduardoHidalgo/algas/algas.rds
new file mode 100644
index 0000000000000000000000000000000000000000..33fca7548b9235aac58bc12d68fc77bf9dc8d0b9
GIT binary patch
literal 8270
zcmV-UAhF*ciwFP!000002JKx5blp{%4{hj1Eor)!G)b3qqkVb%(uH@^v`zP>Y11|>
zG<i*vCT*5B3zUjbMMQ>0v^s){BH{va9L8d0u+E^Oq87yg#{op^QBe@J$TFaS^Z&o^
z_q%!bCNFu7Z9z}oIpOxZ%Xh!~?RR;Pts}CsvIb=h&ORq=&|v4EgU2}k$#wp6oWF;&
zva^Oe<&eu7TRQ662(|BPYi!v~DAC!`+1!#zn}wybxw#AKt!Hnun^=0A!EEc5vR-B|
z+cM`%f7g&Xmea%QUiq2v+Rp^eGr@_|LrZVcJQF?pZ4a5xo;j9&%IGcD<g?7rvtTRz
z<jd)?mEL@0=5lyzE#PeTJUwx<x3)9kKl_U%b4h2e1^te<{j}TuO6)Y*STEM!U!L{b
zNA}XzUkg9mn$;tnR^Hp*oM>vQ9)Jd*0qCC-YOdSW*x5V)4L}3X0QB~Oni6fh>#7H!
z0qCqiR^EGhbhx2$cSCh`CQyIJoq6c=tncl+hRj!V=Cz<VsHyd`>a$79ndj15E9uk2
z!Lz;EvmJ%|tDn6={as(?GxT@%v+W}@U*Flb@H3CIzmo1Roo}s%oNX;X6V}mRoNujP
zIukRzojCD#LRnd(oWF-vVOH{^3XcTbk17nHoc_}hi}&5B3iI#Z@cU~DRN*1?TXWp`
zJfaFG-RgWkrl!^>KdQj(mVdv>KQ8T4Q0Bk<%@15W`xTY{%d#(xJ@`viaI1{V$2<kV
zpTF-j&V>8b6ylrh4xFP3l4vVb9`F@_-u#0u!gs2Ii<2Ey!PsPl$^(1>*Ma^VKLzu1
zodxWN_QHQz>{6npV%|dbC!ehGx}JPtJImu%z4X88r2F5Ycc^@<cM8@^n0U!AmXpyw
zo+a?JzFP@AlZXfF%1?@8h01fq^YXXU6qI=%NHS36k<V61eoZB8>ka0e7O?8cCkr3t
zF$MiJOg&+L@`>v}f7X*8>Lcf!YV{`{*`IVyrGDA?S#QBMU7R=HmiNy@9}B^EO`k<~
zfyJlkY-hc#PZl1{XN!*<M?75bG)teSS}^5d>z^%0Jula3jkE2{#zX$;^}`S7^_~Qb
zbx-|zvO|}jvFWtt%eVPx$%lNHPW>T2zLaz*-SkrH%lTp_Q|TXB(l31m{&TM*_6^T>
z=_mP*{<gmAbz1gh%g5$F@o0R+LqBcXhowhT;eYfzwjNu43H`DdN2XhJ&BXXImcGpe
zJOllU0H23)I>ybwe6vtaNBb;{(=hPPrX0~e19*mW9{MGeoL~C^^e?jbGm~_o|4fu~
zFm8rbPx|e+QY5AJ`}8+Oz%w3Yp5;fVk8=TY-r2xEhxDPG34J5~XcsfNPLxHcCqD^K
zx7xX`85aGNi^fB~TKoc?@mB?J{B^8@>!kk9uwce-%7yqQpd4YzbGk(b`8#vV2sfZ>
zIwx{{i1Q<f-|`c-K2T36FU>c=;{fLZo@CiC*UNZ3j&@7_qMm++ddHG<r_;w-*7~>}
zEuY2WH)mly=VzWU&611O6Y`h%XqS|eML*@AZ|S%852Od}l%KY9)K8@RP)}IvCrX>&
z<S+Gz__&@imOYG4!@nZ<clr;GqrT8@(f>>U%zTV;okO}g4*BV5OTOAKlMZX$(@@WN
z#Q7&#a$z~+!;%kcd$jmQc@<gy*0yKrFZsoIO8-uLx*z7#ao*xro`q+!v}ZAntV8{p
z6Vh+#AjwNNZdv`E&;RL@YV|#WuY8}hSCmV+_Wg%Dj_tWhg<gc+kuH=|6SDspYw61{
z>JjxHuw9m;+$?4MS*%ZW%Km27*M8e{ed)idBFsN0x8<WZuK$JR5B1M$!E;eAKp7kt
zzv2%cY)~ai;KiWxqHBJ&@&A7KMEuXP&x-#a>VvmSzwpY4!=RIDBgU<sDEqOMz`Htk
z?SH>;*XwEn_*VHK)^!;E4*fhReQ1XPs)Y+b>k#lGHSvpsMy`BdhZ;A*S>3{2j0gQK
zRnDe2UOc+&4wbt`_&?eu^RK^ELoa>!zS!0rH3I7#KK|MZ2aQ~%6yU|*5xUf}WFn<X
zbA;ZK>|=YbeC;Wfz&dK?q5cH;c}U8I(6a^D_fWrCGJm)b@a$C&UY*-=i;4qY1w2a%
z{?nyYt*ERixh}Fst-5j4=In`wRW<O}-7o#N+$#D1s=Ghs4p18~e*HH@FV}2$)cdwC
zt99=)^}p%><aOl}E(g^5M+M$=?PLeh_f&bMD~4@q?c5!q_!WOtE6`r{tB<^U$c(2|
z*=^Fk6!Kg;PUuuaFLVW|Cfwwb+o`5tT?O0n?iuErrB)pU9nW81>R^f=cey(4$MIK_
zV%e!CU_VoF_q~M=ef)E(rs?=sAD^&PEx*GRU$a`ap`q>G!f&e;;b#v#{>Dpc)*X-j
z#+g|ax#(v;tMj$^1hMNym7@0-6-s@POLg8oYQ`*wEAvOGne&CO4O^xC0Qgc<DRHe7
z{49A~{N57CkM%2Hmn&~dDwg)MGaCQu817QF@gZmSwtLkk@U#3}M=d}71GV&a@GVc;
z%fP=f;9dIRr;8m)Xnj~dS@MeNmjzE%Nc3|H+BYaEX_tYh*eUE^+r@IUFT=QH*GpdK
zMSZwR=-+e{dhuDIYuW1(UrO5@cX;Jr)Rv#RY;9LN|MK}K?|l7EwJn$wu-fo5SD@3?
zp7X@6ch@~N&5@AG^~k<wB<2|hd(29@p9$(5@NEd%N8wy&TAs|C-|n#O``=KdHwyp4
z9U_ki)*Xi4%z@q&j}`l$eTmD)%hVM3gUDkdui2Q_S0m%+VPBQFDoMBI*QTRM|Bz+g
z=MD{f{DG*~OVH=>M^nI%ClK&<fqqZG>(}5gpVt%gg}a(#9)Hll6$*s9z@R4<OTp#!
zM5E!<&VkfcXRJSBfKii5e;^eMMvSpRlZ=4hY_-6kfhywb8avwWiTa)1(MTlX3B_Vz
z9~**BgR?eY#2@o`y~eV_L4PX8VyU2uK4dJ*mohfsiA4;Sgd%<ebHJD=VuJpFfhu5v
zk*EQBQ+VL6(p_{Q<O>;#8SV9W9csPdpx0|Q1RSn8mA;tIXD>gJDsxB3<^qGhV5&xV
zBfc&$?D59Jshy+#SQi-egi-|+@kCP>81#ffhOR{;W~)h+#j8|qxS%!GYiLtA<Vyv8
zri^0ddi}wadHo)L>O_8zOL96r^?O{lr;y=Gr7Gm8iVJ3C4gZ_-NyTB>iPy4|pdqV>
zA-b4pRQ{B8k9J#~rTGF;$77_BJ=#$KmmyAPM~y;WUrK|^8L!_Lj(7qQug{+%*wl49
z24w1HBoask1F0@1<ne`r29eQ-u_9B>;ZW2>WeUe~PXU9$!BoQydwi)5DCh}#4a|{1
z&;(OB<fyp|h9ZGz(ki2Dh<Mzkd4t|az-UPFz#`n3JRCE8v@c+I9K)eG%L*Do4wzme
zkh%`XFv5}4d1I+$ID+>Y{PP7(eNELhM;T&<^@h#35)6e?I~ziddLp5ivEHy@MPbtt
z!ZAZ5LIDGeMhu4=2^i)Yi272&VAuq`VFL^r%H`;^!7Hz6uBq#FBpnN-((E-E8#X!V
z3mb-*w7e8267U(QQu*w}n~<rAely4h3~u;+MsNzGxQEeUCpbA|1cG6QJ}3D3y2$mW
zGQ#O+Ix07;8`^0`eZRreaH_G#Oxw5C<}(HFCL<|Jje26ypn)nS(mJN*F3ky8F>li7
z0x3SxipZ%B#Sw+q(3eoaP+Nb*Q2A8<GA8I~rt9bYjur*YDCwwh)buqz!(YT)qxAU#
z&WclLb)s(A^_;$7EM!OBfSEXiL&ln-mY+ArT1&L$6$~4~^;?7+0mTr#&s08#2O-0;
zhf{38SzE}pJ)bWewNs5`Sn_$JCO4867ft19C{>vq51r~m92XigOgk1dqPW)=Fj`}#
zl7@}euo?0rp{U6NV{9@{Oc|T1(T+z=ZFQ{GbaYX#(Q5cxSE{D+nbAAsGfc<pHF@td
zv^*3w6R&{L*>CEu1O+SeaEX<KM2@N6lau9s)MbTIcHaHPH|{%Lq_$o!+o|TTY@ZLF
zkoN6|q-^}k)}rl$FIH9e3e01}(1+ap?Ih)ImhIL;9OnpnXFEShwq5gqr(~`iBgC<7
zUV-{|-+BC-<!!^%yP^VbQc^Aho;@RE8#o8>TC^_$9JI<EDA!r#iU-YpJhooDPhcLK
z@R+gb7Afm17GLv;8xE@-I9_<~q7Ni?PcKp%(QoBZIWAZN{9&w%+j!zzin0Xt4Uh+q
z5&S6CkL4JG<9Pf>IB3CEskfJY)Gx$*y8wHv(hGU+#d`NFY`S#SFJ4tUe+@nqO1WK0
z*>by-`(Bb#p}uMOOotI~s+#*`yS@wks?gqgLdqJzJANX^4V!W7bgk^))eSdGdGN8o
z;(xpGRdxBdHw{`HcuMWRL-e(JgdE>gl}o=`(6@E2)NlQW;7y=@&nt4=u&q{(muhP;
z4*GU*o8a96diT8W{RgkkZB>`~zH?jql0T|zk4k;}8YxRhg<L_YW~}GN{JYO7y7dq0
zeYaJ<`DFbVb;Zx6e&tQlF9tq0{x}kT<j=d+C3hx|r_|o4DZkiHME-L++|#Ocs-{!y
zZVTEwKU(&gTMDPBH6HhrcA=`tUG`~*QdM_J@|;nXV|~j&SIZB?t~Y`&Rajp$^q~s;
z-y-)1DuQ_~dr-;-^rJnML2lK6FAfV|uY$blFmDOkYu*oe65mH;J!OFFFs>Q$s05vx
zaSXK@^_xKlkC*Dl37#t(fahg_o69jT@NW$Xp7o$Rf%=`5@Ml>6D)_0YJu-jG;lPRu
ze|JnJW*@73-_i=z)GqLQ!KbS~R$TD(@1Ic3H^}i}C-oA?g5@|~Z1}p!Wi{lYE|KFv
z`mt5duY6!fD6VEkAAjS;qszOlH&7~+^c%FZT?^*DcFDS%)n*)nQQn(y4D0)@9FtaI
zz2%q4ao!RfuU6oAoc6NmB;<-?#C4;R$7$M+EF688d)}DEII<0N96XM3;M=;7%KF#l
z$uXTD{np(M`Qf;E36JN|J_qtGs&vUK*2k<~l)P>jjnaR&9Bb1L@|gJjc@jt713f5)
zUn8DjR>|vw9INED2I;6k*@Ag^Y|7(Q+D+w@<gsr2FMzXAHXN4Yzxqey*f;UY{q?_I
z@CCINabw?2_1m92?+&$p?X7o?dufN(gM}6!##;5{3;Cy?m6+>`pX|L<Sv|vA{v+;^
z<K`@LUGbOQQ_k_%#$N)=Yx2(5WF76dO1XdksG39VTh(&Vxf*2x_Ebgw)kqneEAm}}
z`X%>Dxd8FH6#aPZw-EXO0@e0Mfj=O2y9RW<=QZ)qS6}mVLCu6)RKo+3SL{0`{ddcK
zzuHkK<xcpST49Wq^EUYZt+1DsC#0Tv&7#`{o&!5%9M}fDrR7paLHBClWxlX(53XAt
z6nHx9g4e`TcgnTcl0SUeO~BL=j0^8i3QBnqM@Hh>c3+jqp&8dtJAr4{PfPE<{A*uQ
z^`Li2hs5o5pnH9}DX%KT)e7*bgx4jo>lNtF>!Uj0t-v~VLvGCb=+Bs+m4lBpH%sZ|
zHSFBvHIBZ1+6cby$M`bLubz?htpGmeE97e!_QCkXyeJCzQq0TvxO$|_AB3DP!aAzZ
zzVkWJpL)bKKEs#~d6h#ytKb(a#~{x-CUK(?dD8yDH!gVQny1u(B@#zAL0`%zy0=de
zRf#xN`x}|Z3wmky`MBO3p1h5luSOxC%0WLq4+!C!b^+wF%_G;7OFt+5S7QCkdF`}c
z@}Ls%G4Oy~vjyPasn>*8Jqo?Rb>T+Q7wtzxJ=~APkviag_odK}#A8G5`1gG(u^I8H
zPU6-Y$anim$RF2^w2v}e!v+BduwEZZ=DF*jPg}9hm8f6yoY1=t<M}*;d}bcaI843a
zGm7P-#SShM`FCB19Wv=*{?QJ&2G@dvL|*adK_8!M*zv0M3n+gl&)(XAzwVa@o_*!6
zxaz!4?7XA-=)$7b*VR(+Z5igJ9Z(;3fd9cCxni24RzPlH*b$$X@ER2UN5_erEEC^M
z3!Z0{lcA><0M6sH8NfxLk8yK`H6Neh)nY%mcD-C<w@RQ^&0Z<@$N=rHwzY_!Z~tGZ
z-wu4#EBc>pC^x)Qt}XX~Z>^6>9H}cDw!Gj|gY+{PKKE*SS@tIfu8{uwJ`8#$3!N=k
z*Iw{DQI7T#D3RwkA`a~Vyc_*$Me$TU^4zvn0`GsS>Ckr<d|fq0#ZT<_uYBmqo3m9l
z{8j?-t>%NGA3nq<<~QEE4!DV@s=|Jx^1s}0exaIyeAK^M<TV%m<ej6WU&j#SE8z3K
zy`O$?>FjlC@AqW?w*%{~{-OAX&B)XDgP;2=g<tiOz^RHDu7y7#ex&?fsrNwt+8-6T
z5_IpmUCPacQeF(aTd$M(6Npa@cOJg(D}}>U3GhU&ka*ZQ)V-x2rgk0_{_xoq_oEe$
z2%jziA9usQSIm?3vwqbLQf?fF=M2SSM~glvbnqOYx?S+E?i9Qgm}fWiq4j3)@k#Oj
zWzifb!v9%SqP?y`o-Z`#N!-}EPM!m_{6y&5`!3mM1P>?kF*O#~(Ys!k{t4(uL#gQT
z-Y*Cog5RXw&ijhc$LB+Q#+84Y<QZPt4fY+Y_6gjC^P@^!?^ix7^;Ot+R6{<SYUP@J
z<pOzbumf~${;oU=S$Dta-A3qD#cOiCpSU*p98&w$#LY=LWHFAwkH=pEy~z9Hukd*o
z=w1Yv&*S(EaJ)Rz;PWV5{t9}rROA>xfq5PS{uj`X<rC)kEbGJZd`1@kEAZf%DgC_e
zcdkVb>-ns22-d^%IK&_QOwup%jeig0LARQX=Ll1umAw8Pz(+f$-p;~v^7Anc&sQ})
zFIaT&c`u*Q<(li^xWD)L6-&L3p*$!r?oUow{C^X4#<0Gz&=)=n4gOr7w{u_R-yv|C
zc&zme_;p+eu^-xpqMq%;d)5z~U+@_V_j7!{#r-Px0l~-RoTwsS&V#nzC+7*o7eXAr
zD9c>04|usA=I4aVo1`D(EzhrzN7;N=S%NqIqKQ|_iFQc4i#{j$G~?&=Z^^j?>6-La
z$(P6DnbFuk%KFYh`{o>}-+r4szgd|FKSp{$FZ5OOm(SIi-?5(g2A_|zejNBU3HpB0
z8W%u+@{Mx22=x(+ryMa*g^vjA1<dD3;A7Xm1TgnW3jhbvzobU$Hw+ehTlR{7-NJL7
zo$^eO^m1RY+LLswDg^${NBzYAalBy1F>OEaPilN?G61M)4}IKm^slOgpOm;Bgxu->
zV1L>_z&`Y|(;Uz-M4n%1e@^<!hD$%+yCmMsM||~flIK`aJii)`ud5WUm*>u7vF~Nx
z%IBVg?i2gS1sp$?d=A%jKEB3y#!EfX`pW0}v|~Q|_JA*g>1SytXy?Aei*+mH3(Ujg
zIB(>+<A%$n<b6pT^R3kM86Q=QGJ<(4z$f~x9MG{CdUg@wybt)57^?pI$_1uB(q9)^
zig-R7^pry{D_%71?3|wcnZ`$YRzf~}&bk`&lz=ar+XaT+>+z*n-zM;h=Ot0BYtuba
z^1Pr7^OXT#8OE3Yhm5D)&Z9j6Pch`R8uajMGUX#pdKiBh7x{GtJj-XCiNA(=+IM+O
zO6m{i$8&O?XK6pmugTCpZGSezg!}psZ#Vhy`Tt1EkLRGBUtjS;Zp;tYLO=L50P6j0
z^yk+JB1epQbv!K}1NngeJcnUE;)lK>|5D4I5V-Pl!e8<k^wMrM-)X<|(N2FhqG!J8
zJS+$F<(T+2{j__2T?%@l$J0+Nnq>HO?N@jnuuMtG_`|Pt&|XThUIln|y|M0ea@KYY
z{m{?CXQvy1^^-r8UmnJtXRe?AUc+419E%R-le5i!Y3b&Amxz4TD$uiHCj1BBHPp8?
zrrkqdZ2Ii=>G}9|4(4aHQ^rX@{M8)7Y3LrT@fvYN<6i~(sK=a-dP)7I-j3_tpX&9T
z#5`mB>UnA(o?~{K&(b?RzZWIrOQD62`-YQg<||cFV!uOwquZClj}No#lJlR}Grhdu
z&uG!9<8n{Uuj+B5O+S;apY{{k@CzqVPy5S3JNI>kfTsgL`ZKT0lrHiuZNF?Q?s}lV
z%$u2?jz>M^G1eLvhu!d9L6+%92&bhZWZHoWpu7<CP6AvCJ$SWeJlZeK2b`uK?OX2;
z{V4f$%vrtjSuLR-!Z_7CpS#JM@pHi;!N>dAp_adbd{lAI`1N{cn(f+u@x6=}CG*ws
zJ>yd$p(kCu(fFAE1Y!T&pM;Lc`W9iGz}F2A&wrWcq|pzZcfmgCr**y(nq>M7e*Kd_
zd%$}7ciyKm|AL-rxiG)u*X(#7oY&(rwBOMD4x^rNko;i&R1Ca)4^X60nQ>$c>|X2V
zGse2?{k0yK-7}rK-L}hup8c1$bABCkIrRO4KK$H^eb^1{+KPiJXs);SRixmv<3f?O
zj{G#^c+S=by_v2{<2^sKe%;2=-&*oe%OGc-H{@F|&vA)|`7h5AeBig0FX(+F?|ZEL
zL(h-%q;zpy;~NaR(NFIKm<KS=;n!J5_KruxB{vxHQUwl4$#;9akK_3q=FxVOYsD!m
ze(E^O^AF6EHlMWgK*eB}IET>n{JOg3H@I)mF!TNyCjYd3$6$AZEdS2^3hjBK)ov3`
z`iYl*3i+?D=lNW|#W#)zee`QKKeRp1v(|k<&w9xBBN}F&)Q25udYM<J@q46O=b3yz
z;<fs5|H-ex^IUyeA9+ha_@MJQJ+HMcp8JzOGt4;F&2G3Z#;ft@PrHPjXu79qlFW0h
z4E<?3e%tv-rXRh|F(^k{cEg_yu=SejvHSz`fK#U9l?>O<ec(H+d|-SZ@*mziU3#C-
zJi$6Qv;Cc}r(atHeVm&nKk8#$+D`g7uhaN!`banVauRq^>O6w^AYp4iWycS#*Tl~}
zm-QvR^IhB1YZkqudtN8~n$}C+w{V|Ce~o*zbb6!pVorv7)yKZ)R6jbdaUYp3PiJ1l
z{uUkf&uXQekM~_UJ-1U{S|27_^B{lJ_lDqmTK-Z#I1gZa$Ta`b^Y(Q<oyP8LI&^>Q
zTtWMboJ=V?GoQZB9r_%9(kz*OX7QfA1pB+mrd+jO;XaG^$NJ}G(#&V^RmVT-X-?1M
z^w0E+?86@~wDMT$(=<CjO5;yGrd;iPb*3NY8ycp6WZY)nVBZ(}kMtZ5iY)(?;d$X(
z^-*)NUj1`PsApW`yGgE_c`)}u-1qZ-m3l`0<(vLb`!oAoiu+g2hx<!?k4b*=XMq@R
zXQ$B*-s}3%PyalYrC<D+D&~2XzvFop;Xe1x!^zJK`Oo)Fd@s-Y3EwkPhGEw{?<x^R
zPkUd)bG<^q%K?{T9OL4A;2V$mm=AD&MSk;rCgXv%-|Dun=Y1>p?WniopQexZTN^<K
z&vp9nlzp9_q#ZXoO&o@twf^zF1Mk-?KS@8)4Ue@?%apEe=UU9OxE~s0`4yf|S?ke$
zYN92VF}>?;mj3zPKH@R$pZA~KhfY1U_4f7AajURryVUf|G}ooiFJ@Tv>BbjZ`n;^l
zwD&hnK4$vieXHIl^Zu27b2|8zcKjrhjx^`vnSQ$EN$K{HgZuDr)GPXPeLjlygit>g
zCC^g}dbbOG?!bJ_cSP{<oQyx0$ajx?|HSiKi*7wX-$$r+vz_rKNImOA?^hf#?5|t9
zV&0r49%c7jpLRa_qwpFtPUiNGhwnGE9q@dd=iWR|=g%^FkC=QZ?wJp1&u4L-ru96{
zxwCyQ((N4cbt@l8bB^Eb9ESc8?|8b+n``zv)pP4^_?S;D>tnuE%A{ML6I*)PN1kxX
z=j@DE)_z^L53^vtXYyKpFwMTeJ{RrbW8RPO+;h6=$F=<WIJeS#!#$MNGve**-ZT&W
z;8*N-s%hs<w_oSH>CQ2SnsGYa``B*dW?1$C`?SwZPW7YnQRWrHPw#%j-q&jRrt$Oq
z^u-r#=XTs;es!{Ey!xFM^M`qm7xU;i_z(kME<!#0V7H%>Jhx|l+4I}`@^p0Sew2%K
z-m3fY-6rF#y-(%6LLc!u(@#3TZOgIS{)qR(JSXP)9O%+=@SE$={6#-qGXAG|H=^lC
zV;5S_<EFjq`=$)@sC0JPO+P&5I@8j_JcjWKd4hiT&HXjkXW3OcJF(x(b$bVtCSS?)
zW1stXYiB-dy$kAV-frj2JV%(oaoK~M>T~dODd)B%n(N%J=H)nlxu_h{UYBTZ<^P3x
zL|fyfb#2w{jR)&cGpfF+vvF7TrFBiMwT&H@b5wKUKy~>F4K=n@ujfy#4JvKIzXq>c
zAJG3?5yU^UTg%t;--EmUnO)k@lpu<PPyb7!O$7A6g8E+}{jae8SHxQPuzhW<JDcj7
zouv;R<MP4zdx!Jqe%szX(H-afxhE>_sg3)MJoi^w++SiSbN<{fFuLE~zQ+0ckn?w|
z^Y;no?>6V}i_YIYV5f^qewya3FNGcm)E6zRZEfmoZfPH=>7&NxT%=pyftsFcOwLuz
zYUt?L*S?^*IMG(y;5ZadV{N;qv$oMwx2v<bxv980;Z(QO&2Oqpw6!$0?4G|X(UI7h
zXs>H8u5E2>n%~^Ct2oh;Xu7<;vEAdg%^JWwfO!D(0OkSAZ&S?4jO!d`ALlZ?YiqrX
z|8!yn^Rc=E`|4^t>UJ@GOw@LCCfJ%?-`G@VWpKkCJRWARZt6DZkn<lW+xe57;?_1L
z+8K`q6Mx6frs`ewB*cLj!d%)t^=%Gf2YOR*W&f>T!`-2S|7MXFwaCkEcNUH;)Ttlj
zmbrkltmy|~%ovApO%A(S+p23D5^WBz>e|Q_-6Z7yL*dEk!n3Qj)5*{Ov5^e0WdO+l
zlHQOQ5#pcw_@Pgpo!`Z?-JNyq?U}HQW3!!3958fOU45dnsl%E^pL{r7t0m^R=(67Y
Me>TR1m|vFw0Q_l<(EtDd

literal 0
HcmV?d00001

diff --git a/EduardoHidalgo/algas/metadata.R b/EduardoHidalgo/algas/metadata.R
new file mode 100644
index 0000000..49f5a5f
--- /dev/null
+++ b/EduardoHidalgo/algas/metadata.R
@@ -0,0 +1,81 @@
+.## German credit ---------------------------------------------------------------
+
+## Nombres de columnas ---------------------------------------------------------
+german_colnames <- c('Status of existing checking account',
+                     'Duration in month',
+                     'Credit history',
+                     'Purpose',
+                     'Credit amount',
+                     'Savings account/bonds',
+                     'Present employment since',
+                     'Installment rate in percentage of disposable income',
+                     'Personal status and sex',
+                     'Other debtors / guarantors',
+                     'Present residence since',
+                     'Property',
+                     'Age in years',
+                     'Other installment plans',
+                     'Housing',
+                     'Number of existing credits at this bank',
+                     'Job',
+                     'Number of people being liable to provide maintenance for',
+                     'Telephone',
+                     'foreign worker',
+                     'good_loan'
+)
+
+## Códigos ---------------------------------------------------------------------
+german_codes <- list('A11'='... < 0 DM',
+                     'A12'='0 <= ... < 200 DM',
+                     'A13'='... >= 200 DM / salary assignments for at least 1 year',
+                     'A14'='no checking account',
+                     'A30'='no credits taken/all credits paid back duly',
+                     'A31'='all credits at this bank paid back duly',
+                     'A32'='existing credits paid back duly till now',
+                     'A33'='delay in paying off in the past',
+                     'A34'='critical account/other credits existing (not at this bank)',
+                     'A40'='car (new)',
+                     'A41'='car (used)',
+                     'A42'='furniture/equipment',
+                     'A43'='radio/television', 'A44'='domestic appliances', 'A45'='repairs',
+                     'A46'='education', 'A47'='(vacation - does not exist?)',
+                     'A48'='retraining', 'A49'='business', 'A410'='others', 'A61'='... < 100 DM',
+                     'A62'='100 <= ... < 500 DM', 'A63'='500 <= ... < 1000 DM',
+                     'A64'='.. >= 1000 DM', 'A65'='unknown/ no savings account',
+                     'A71'='unemployed', 'A72'='... < 1 year', 'A73'='1 <= ... < 4 years',
+                     'A74'='4 <= ... < 7 years', 'A75'='.. >= 7 years', 'A91'='male : divorced/separated',
+                     'A92'='female : divorced/separated/married',
+                     'A93'='male : single',
+                     'A94'='male : married/widowed',
+                     'A95'='female : single',
+                     'A101'='none',
+                     'A102'='co-applicant',
+                     'A103'='guarantor', 'A121'='real estate',
+                     'A122'='if not A121 : building society savings agreement/life insurance',
+                     'A123'='if not A121/A122 : car or other, not in attribute 6',
+                     'A124'='unknown / no property',
+                     'A141'='bank', 'A142'='stores',  'A143'='none', 'A151'='rent', 'A152'='own',
+                     'A153'='for free', 'A171'='unemployed/ unskilled - non-resident',
+                     'A172'='unskilled - resident', 'A173'='skilled employee / official',
+                     'A174'='management/ self-employed/highly qualified employee/ officer',
+                     'A191'='none', 'A192'='yes, registered under the customers name',
+                     'A201'='yes', 'A202'='no'
+)
+
+
+## Algas -----------------------------------------------------------------------
+
+## Nombre de columnas ----------------------------------------------------------
+algas_colnames <- c('season',
+                    'river_size',
+                    'fluid_velocity',
+                    'max_PH',
+                    'min_O2',
+                    'Cl',
+                    'NO3',
+                    'NH4',
+                    'oPO4',
+                    'PO4',
+                    'Chla',
+                    paste('a', seq(1:7), sep="")
+)
\ No newline at end of file
diff --git a/EduardoHidalgo/algas/utils.R b/EduardoHidalgo/algas/utils.R
new file mode 100644
index 0000000..d05e437
--- /dev/null
+++ b/EduardoHidalgo/algas/utils.R
@@ -0,0 +1,34 @@
+
+load <- function(){
+  if(!file.exists('algas.rds')){
+    algas_url <- 'https://archive.ics.uci.edu/ml/machine-learning-databases/coil-mld/analysis.data'
+    
+    algas_data <- read_csv(algas_url, 
+                      col_names = algas_colnames,
+                      na = 'XXXXXXX')
+    saveRDS(algas_data, "algas.rds")
+    print('algas.rds se bajó y guardó\n')
+  }
+  else{
+    warning('algas.rds ya existe\n')
+    algas_data <- readRDS("algas.rds")
+  }
+  
+  return(algas_data)
+}
+
+algas_decode <- function(columna){
+  if(is.character(columna)){
+    unlist(german_codes[columna],use.names = F)
+  }else{
+    columna
+  }
+}
+
+algas_clean_colnames <- function(x){
+  str_replace_all(tolower(x),"/| ",'_')
+}
+
+algas_clean_data <- function(x){
+  str_replace_all(tolower(x),"_",'')
+}
diff --git a/EduardoHidalgo/german/00-load.R b/EduardoHidalgo/german/00-load.R
new file mode 100644
index 0000000..62c7f44
--- /dev/null
+++ b/EduardoHidalgo/german/00-load.R
@@ -0,0 +1 @@
+german_data <- load()
\ No newline at end of file
diff --git a/EduardoHidalgo/german/01-prepare.R b/EduardoHidalgo/german/01-prepare.R
new file mode 100644
index 0000000..2ca6ec3
--- /dev/null
+++ b/EduardoHidalgo/german/01-prepare.R
@@ -0,0 +1,15 @@
+colnames(german_data) <- german_colnames
+
+german_data$good_loan <- as.factor(
+  ifelse(
+    german_data$good_loan == 1, 
+    'GoodLoan', 
+    'BadLoan'
+  )
+)
+
+german_data  <- german_data %>% 
+  mutate_all(funs(german_decode))
+
+german_data  <- german_data %>% 
+  mutate_at(c(1,3,4,6,7,9,10,12,14,15,17,19,20),funs(as.factor))
diff --git a/EduardoHidalgo/german/02-clean.R b/EduardoHidalgo/german/02-clean.R
new file mode 100644
index 0000000..6c22fea
--- /dev/null
+++ b/EduardoHidalgo/german/02-clean.R
@@ -0,0 +1 @@
+colnames(german_data) <- german_clean_colnames(german_colnames)
diff --git a/EduardoHidalgo/german/german.R b/EduardoHidalgo/german/german.R
new file mode 100644
index 0000000..8ac8c74
--- /dev/null
+++ b/EduardoHidalgo/german/german.R
@@ -0,0 +1,37 @@
+setwd("~/GitHub/MineriaYAnalisisDeDatos/german")
+
+library(readr)
+library(stringr)
+library(dplyr)
+library(ggplot2)
+library(ggthemes)
+
+source("metadata.R")
+source("utils.R")
+source("00-load.R")
+source("01-prepare.R")
+source("02-clean.R")
+
+ggplot(data = german_data) + 
+  geom_bar(mapping = aes(x = `personal_status_and_sex`, fill = `good_loan`), position = "fill")+
+  theme(axis.text.x = element_text(angle = 60, hjust = 1))
+
+ggplot(data = german_data) + 
+  geom_bar(mapping = aes(x = `good_loan`, fill = `credit_history`), position = "fill")
+
+ggplot(data = german_data) + 
+  geom_bar(mapping = aes(x = `credit_history`, fill = `good_loan`), position = "fill")+
+  theme(axis.text.x = element_text(angle = 70, hjust = 1))
+
+german_data %>% 
+  group_by(credit_history) %>% 
+  dplyr::summarise(count = n()) %>% 
+  arrange(desc(count)) %>% 
+  ggplot(.) + 
+  geom_bar(aes(x=reorder(credit_history, count), y = count), stat="identity", fill="gray") + 
+  coord_flip() + 
+  theme_hc() + 
+  ylab('casos') + 
+  xlab('Historial de crédito')
+
+summary(german_data)
diff --git a/EduardoHidalgo/german/german.Rproj b/EduardoHidalgo/german/german.Rproj
new file mode 100644
index 0000000..f43d039
--- /dev/null
+++ b/EduardoHidalgo/german/german.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: ISO8859-1
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
diff --git a/EduardoHidalgo/german/german.rds b/EduardoHidalgo/german/german.rds
new file mode 100644
index 0000000000000000000000000000000000000000..313c0802ccedc10a8286a2d74c15d97fb67affae
GIT binary patch
literal 13500
zcmV;tG(*cDiwFP!000001MPixcw||2*Hz^z#a6e}QcJB)>ZIQ8R+ZFgJhKya>|J)q
zuy_H(GM<@T8^*h4b`}E$Y=glj7#x=PeI$eZ88Fdg0|papY+%X3CYcW~!Q^0q+2QxL
z?(KJV=e#=i+)#SzsXt!V)vNo?J>hqL=iFOr)dvSksfKDc8>-R7uz4E)tl?V0_}{3O
z>K8Yk9}dgms2m=W6Nco3Lr%ho9MTKZtI-Rys<T$G7F%}@!mOZ|poP&B*tx8K*|<pp
z%etCXk~Wj}89StPU>9bGf$)?VFF|U2xFx8T;7nq1;9V9PY>KchVWY{W2+I$w6@d#&
zGJy7(M0GYo5?YY}F);Pw`9YH1ff*}F|G-$pmu5*hNXjJ=KLmP*jr@T?E?v~()d@^J
zT6Gp0EM3KeRx+fmpv?@#q@+!X?}`JxBjJ+x07zgjsc(`T3hbj;5U^<~DF-aLXn4{(
zNOmakd#Av5MnWJGeI+G{_GDlkk{A@<+q0cmJTb*LM1j;M+5QF+o<wyC??~JynGk={
zAOV-8H0SE@BuYx!8A&x|(<w0hC0oy=ag)rA@7i)DnWW4F_B(;GkmN<+0T5gAC6!l#
zzCa1_twi97R$!@<M4ml<l<Y4gyc6G~#~+tUnlkouCa}$yxFo)T3+x72Dh@oFk{ta7
z_8M&a71-0VryYR@VUn;&7$%S><26g#uS@t>va<}_Z?b`v;7qdNmmF@zSO564E6IsK
zV5y65hyoATBzOqi4+U;%*%OyQrVZQ@#FM$CuqLf!xkxPV;6tKh(z7c`6UkbUD~AH1
z!7_oQPnGmLf%;0k6WE^xHW-21bqV3IR!Gja19x?SWhS0%0voOA&Xu4<vL_4FH*f<I
z-;oAN2&Cd%4SnEVIw|ZWd?w)?Nrc!YC;r$?k^%8mPjcE3zZncH<AGMNt#BaLB_tMj
z03VqC9&Du4qAGs>RjCfHeOwE;_Hb?B+O=Mb`#bv8%q!ko)~_4-eKYQBnFBp{pnvY@
zpS!r8#<i;Fuj>27bz85os-NpyYp?2Y@&3Hlt)s_Ar!8yluC?Z_b+4~=-_^40=geGl
z6}tAcUyLvI^qTiAyO%9{jNPl&x(m*=p<nMibI(|Q?`U1k{8ekbq~Bk*o;C5=(>h$z
z_tvcS1{M04XLl``PwV@}H_Q69qvvhud29Mv*VhIE21`Z<+oq0X+p;ykqwmdI&n{cf
z_4K+18)oe_D|Ty+>|)&&%ikMX?=AiOZB=5|_PNp5#>kF(do25wUv?Zjj1LCt?KrTp
zXyh0Sn6(QTEz4(XmLBHbzIwY(wtqX$GkqOnGj~}X%_W1Afu*Ctp8fv5zIL=sbKk6O
z;%4Gd+`DT%XX|U$*mK@DxLs2v{)|8O^*s}lp4MYu9mQQsm3d;@Y;)JDzIxU?6G!v@
z)0XVw{-R~qK)<e8vW)*0t!MhyW&7FogNc=$uN~`WBY)R<9cUemp2fYcWycwPZ{1nL
zTqak{IyM(wcl5J;X0Tz#c8xG|4JR2}jT{qOv%ax+&3b=ZmHAk_wk>}eJlnY2v*avj
zyA57Vu69+41G`>qSl7Hd>U+bHMy_q|zP8c)Z2V@PUDZCc@n_cCQAat}+#gs!8?Lh7
zH@RSP+~$rAOUAMl4?B*w4o3E_H8!&Mt?@biT+5p4$})M-v7WbU*pBnFovZtnAI#Y1
zLYv!dU%R!&#Kh=s*K5-UP=2)e+^lJ@Z}aS$I;w-sCB<u39p&_aHOJ(v(PQA)R_Oh-
zI?8Wr)_XRu8m#SE>)H8i`^41tJ!{Ug^~|odo*NU}S4-A=E?1e@8=vf0GIlIE#=bS{
z{`)Ll4Az&OXH2iqx865%I@YV5r^e6wmQGvxzR}I*Wuup=l{=Q5#q(#>(Vn5N${aO)
zlv&GMJ^gBO$F|ehZ{wiIRa0Y(UroG?zwKC=wQY`BwVvIup0WE8<6C=<jZyPz^OxaO
zQ&0Bwb;FWl=Y(BX%+JRDGnP!7i}$n*JyqtoS;yunx7Xg)&)BtP)q38nds`jtQ%tX5
z=csvp!;xp#oimmkx92n1wCyckx2*T=dTaZ@)@|OBZT3b+PaBsu_Z4%uRf%&W+sH9B
z*66UJZ83aq<gHov3^$r}=dJZjy|Q_5-|~}@XYSkB?OXE<MooU%y{h5RmMU}CmTU8v
z-DhlAGPhNUPm@#TXPXzye$U?T8ZI#N&6=j4+_(I-VaZvvWY|78`q{aBTVE^6{(q_m
z<%a%X#N9n0@3KQ$Sm0c1!hV>rLvA=Cml#I7M52zwzqC3MGbNE{Ek59UCV?CsZZ`6P
zLy6B=M<rEK62g6fK`iW9<0W`th0%av<p$<k(#T8hN&*|mF!W>b3_}Mi5NGjLund!w
zUIR-KZACm!(yS~A3q6-+0`_h^bFoyx;vs3(+vhZsG$Vm!Jkaa$P)<6RE+{PQ13NrP
z>Pghe)ieZ>?i8ZQa!H`q<2@N@kfb-tm1Ojg4J=LkfiaFR&60jSX$a$$l(;XDjRLpI
z@!QFG5Ddv7y8{eVN3uIeYO%zMz)mdCQSpArb$k=Z;PKToFvcvWO8UuoC<nI9Qz$+x
ze&ew--91B6edD2=v?-$}NE*ZVWC-M_Tp$RnrtuMyEWz>v+ieH#Q0S9WcJEJDf0i|J
zVLiS==Gs&Q_8PRS=@`>&B$3NbNLq1d?63zaxtJi(;#`~>*yhub&vo(?f4&pA8oL*X
zKjdQ<PU=3E90LngJbO-ICn4E22cCmVjw0AkbOU`x!!t0^C1*jjL9~Rx<GjG3Bm*Qd
zPFmdKbqG8%V3!EwbxFe+NFebsjt|yQ;3&x+GTtSD#<L$C27V|c@s5P;<9j2Cqu9Mj
zV6mLSz9q2N2rLJ=N<OWQ1mN*rk0%gG`b*eT!bX9Zq*s&dX5vq8bA3F)9u@_*YVrH5
zcrJ-|RNyvMf(Q23M*`g!SbUP!mLsdVzyEr8Ko0Mh!}9UNeQv^#6t+(e9|`8tN<I=S
zOy3=nR*blXX&oMMKBFhlUbpTZ3e>qr+BW1|!cJggOiN%xxKA!YLxXlTZ9KgM?O(#6
z7Vgr4yU#g-7R*BG5xp{P{)p6PpYsH*FpJgu<Xs7RCIiVanI6*UptY0$kXDWM2^(5k
zUs?j4skG`e*|L~o0m@P(>zzlO>Jl!cRi|-px$j{Z-y8~5XNR;O*kI9Y!upKPQ&xv~
z?x$CyS%Ix<bWLHo&039)JT2^yl)$D4Yvx040viC@JG7ECvD1K|?@Abvg`9*-=#*yN
z$8rga^}x=Kt(I($!Pap}t12ld5(by_E3^(o>Q#3!EW+s_T?A<AlGJfY-{IXpIo7lK
zNNNtdF_SbY5_r*aX|zkWRfk~~(>Ril8{Iq7>d>KQQ=QF2n)+Eh(3!(xhb`|F0G1Fw
zn>v!i07(-f!7__3Nj9+Ru*n%;MJKcI(Yx$MiIqS*iZzJt-YYh~^kkX<?vYv&YtUvm
zE7OQzbDdV0tr@h3*}L?a5ZnLI-Ik;YmN4N%f${7?hlC&5<YR%)_G=P#SS#olOSm@h
zgpX#E!2U?mmP*bO=^`oVzFDWzkFn_#k4Z_d#WwitNvEXelmJn(rD1CWTkP1!ST<t)
zKvxtN4|Ma$`mCbuVml=^0+K$5J$|R-LZ70sn-IxfUt&DF!DnO0o>j5JSiWL8=$=3r
z`>7MH8M}{Uiwj#V1BudTR^1S?8$L-(E+H1l=_VU3wliU!#(v(#Za3(;lFxP}t`2l6
ztGeWKj=-I~q-0A@#@P<-kek4=qvSA9vZZ8Cm)H+!<J)veXU%q>Y!4#Aq-6ik<}v#@
z2m84!&HRDqNUZzV>ccW^V2jM6kL_IO)H4#Q&$U^gvAqqgI~`<66DUzqa$G^5uLN$$
zCB)8V*+YR2k}U?irKg#cb%`~X-a$xwMuT1QAuml3G~^@)2<%2*;`PAO6Lz;Oan$6R
z?{J0WD3xuLB%4w;iC6}f>|)p!PI8PCc$e+P*s3J~PhbIKPjlFX*-lE*eM*{lmI@@t
z3T#6jxR3Yv?Yzg|+0yztrOrO9RBvCYo$pcVbVsQxA5v=mv{GBUc>Qlmoq0p4_Oend
ze^;r_1w8Wy@$;ABYADtJ`AS{*YNdu(Ao9bI^HY=>d@f%9f>PZDysly1&s1ve_u~4^
znEx@Q&izrm_Y0I-#_RgOgS`KYIp3+&>aT(>{}j(0;@)4yeCX3ZkMXZiYU62KxA6X3
znEP`v=l|mMeM)WPes6O;@9dAk-2VtYM!5HfVIOqfd{L>ZSik#w@cakx4A$?=;pg9}
z)I<Ed@I|oib1)zFH2)LsZ$Z{igH3-~smAv~-mih&7jXYi;o1KQoqsX({9Q`z{$r(<
z{ukbRfH{8_GB4u#empymd0#p9*AQ#>U`OjGL)Op6y|2I;&~xb$#@Cd3_m6^H$QisF
z&*9z{V$p`IK78N&-FWZIF#Z~)?tCNccnWL%ImGBD=KNAzuxAc_-*^-E5RcB+!tVbA
ze;|H6thWMv`;gm(&z86GK4RTO%)8L7hjklRrvdq0=(za%l)7{sarr^$@=4tL^GaR+
z9nkw9;{G>b-luW@TX6rUVhq2memkD|Amslx$U^KE;q&I_;XTCo4C2zc1N~kYueA;t
zJ3kh-Js9Jq-Gkmg3D5jVybqtuKg2p0#&O$*ubZ%U9`?3=4&=brWyt9MI^6%`kPq3t
z703V{7J;+#&p@wJkoOZY2R1Z53$cDxsZ$@pvxxH&FxZ5D+CLt80s5`qh&hnG@U57G
zSTDD5y#$%S(ELBZynliV7;gRv$o+2k5V32*?iPG|`u|~!b=#PC^UKCMwQ+wF@3((B
zWWu&3=y&G#<2|goxHOL80&uYmf6xDQ%qwsJ?6&?8UjO3Q&Q;{%;GR-@e+zypF!opQ
z3~;=Hoa=utbo&{Q^ZBp`e(S<d4}r14r!WsV>jR(7Z@_!7`xNwR0n>|Lf>-2J1M9Vl
zJcDj?$c4slfviFv>{~%Bx`n@im%%T>z1N`ozr=jts)M}jya#r`--ADcdswS^88`zT
z+F0YtDt<0-0y*tpsMOtG2|NBfFp9h#VBCLo9Lv=v)<AA8-hez{y$u|-ft6*9Z~hCs
z58ciKKP}*|_|w}h<oqty+ywSlvF>^3e+`&jg)Z$b<o+GVhkqK-V+lFaeh$yT$JY^u
z4&GmdZ4Jbx_4i=!8Ku_RxV{Q=3;ZG`?Z1!b|1`#b3HHA=#{UxhwgOJ-em!geM+{!U
z^H63He6WuEYX1-T75-?w3wl9zx8NJta2xNhVC_X<w};rZ5cd_txcy)7T!A~}{sM4(
z3Ou+BAGE&>K0`d0{s44^KU-gn3tZa#4$S+l@a+SwJABv&|D1x1CgR<Pk6XCE_+G5@
zU3m6i;~w<tAjg*nkcS*w{CUtFep!GI&cc5^VC5eC_o(0s_@Iw`X(Im~ASQFjw;nJ#
z0{+^FPa8bBf^iRXTUcxRZ(#oVm|MEwj3(Az0Cu|HG}h%dY#$*0efXmVecC^StKfOm
zi%Z`<#>qT#yZghC`Rg$UT(<zOY$7+i;HYizZ4X%KAaC2i-1^^!JjDCbS-isb7Gy8L
zPhH4uLZ=S=GC&O&6qrX&w!pn@@MP<oVK?f|yMTc%a=Qm#^uR~$zXm^ka*UTn_@?nP
z-UlyrkavU6#?SEm>7wQVKV8^9SQ+PV8~1L3vl{U00Co*N3Open2gs%6=OGK+JBL`F
z`mgXgYGMceo(DHH@N*X!o_`(pP(QYTive_4MZ6Y(!8!0~<JV$6V6O#kS=ht-;Gr|%
zgx2CX*B61Y7JR&fyl7&6>sR9{;)&QT6}UxBT!b&WkaO{uXnX@dz4v2X<j@tocEBO+
zqRxWr7Y=~?PmJT)D&)a$ZN#Aute*SMF;`sz&o&UFRp4R(E^7e0y-$t()&2?K>H>?v
zYy&u2`(=;`jBVll#iAyl23**|ydS~!&+r^-L*qB#^#>s9z2kdr@YDk0)L$Og{v}{(
z2e_F3xA+<JyTH)~ur`mLqXjN$BZs=cb_eljApV!ZRZZ|w2Y%av-@D(ddk)yv!@Se*
z(c(YHebm2s#Jhv|H-NEyU~2UX@H1*c`}4+FUB=vV@WsM6j_df^BglrYTZriZYs?pT
z15eB&@0-AV3$a-M7qt=7eu1qIjPX1`y=WIT1bFWuZgZ&RUBssYJPd$=HhkFx*4tQT
z1$BG?A1(veee@<x_@{dtI<JknVjg|bDR996dEP7X5Ljvat8u+uEcyfZr3+u&MV-2W
zdb<Q$7Ew1EUyd>OvJKu|M%=rwX8?Zfq8|5(`{0u0?-}<cOFvrsq39zJ$M#F(zN!7Q
zlzQeWUV)=i@J|E0&_;Y#5vwlvu!}spfc!pH#07lOEN}ol&ci2N)Q29p^8)PY1Ix?6
zQWJT29Wqvsn;ZWK&tT2wSC0F?);V18!3O$*Mbyb9_+s_nk8@`QSY1b+-2kS0@c95f
zIQ2)68^G4u_m6$wF8qtS+WWzAuAD{;uEFn{z-$|JVIDa<z&cA9H$OGT-#ngMMeKS%
zH0IdWkHdS2Pq(O_MePO0Z@^z|V7-rA?*m6?kh7b>_B?7qtKd-Naiho~#HbJ3TfoSD
zVDS96j`Ok&tS`X78^BEa(YU_0AfpNH92DOtf%vq6i!S=e&6RP?H;a0Rn%_Wd2C#h*
z{#=G1ZzF!E;Qw=92%n%Q>K7Q<fc&Drg6|(d-)_O<McshhGr+)n!2!^v`8RPPch`aO
z4tTU(=!VzU507Kr!1Jg780>+rJ#gj_`O^RGc)!T$qPPFRxEJk!=LX2<3-Iki(IXVO
z20m~9bm&>+J!GuIkIRVDY4B+Glj9z=`Qo_0?t<$FAIF7ywgLa2MO<6J-A0j5!0$ZP
zpGWW9L;rC8bIbmuvpB8=-R8Is751D5_IHbVSmYCOX&15WfM=VqaSr)<6&RlfhL)k*
zdBn7hJnjI;&!G0U!PPDFPV>-x@S7k5I9fuz?;uZ>fwL9pei8k`xnjTY-Z4Mkf&WjV
z9`w(SIiU%zYk=eCQNIV^n={CX`Jx7*ckE!!BKU0itH<$b{ebT2U}Nvw$GO-3jxh)9
zed%~l)5N-q$gO4gc=3P3kBD0jJw^Yk#vIVY+#Yb=M=TcMhi%x=06(7xPqv@c{V4Kq
z3AL%cH}?HfvBy9?IENm12R-R7eAq)Sw!jI?$iXIhh<R|;GvNG9aOe(dTpx9$dv(0e
zS^t*tzV9;jb_3*4r|4tw{tB=>DC!-2eB(ci^S=c>THx*_U}*_?w*-7IK*lNPwOU{i
zSn0th3-H-{f$e!<<SE3kj~Fh33%c<2u;_iEYZvwY95}9l`qskz8(6RV(zuuFpug+D
zmKI{yz#8rE8}EM_s2M%@Zv!@*L;tq;U1Pp)qStL>?JjD^#cv*S>-?>8kGgbq?5`ej
zd<8n}p||M1HtuDY-Z$=Zm+{Oz=5~;`ebmoIV5^T_dk#F)fvx?5i&3YxVE;05uno*^
zBi=1wdK-B%zpQbLc=h3rzTU@PEcUVBo_XwFE?yn?GHvk6#@CJaf1BSn?g1C!-wtxG
z`?X_i^x>ZlY+o+;b9ZdlDR7hXe^&38Cm;8Rf}!=;0Xg9?OfEefkqgtR)9TQ7X}Pox
ztU>ey$r6&`fxxzS39Rb$1U6U_oCVIM!@}yDOC36K*kG}FA(23bg>@9Y1Un(ACj)(U
zz!^_3LFYwM+u|kAX?n;RAJ5fv0O-4i+yu#7_AZM_wn$8&sIlRWM_<ywN<t`^kkoj|
z@Q~C&QUh`&dVDj&(qJH0vyVw!!p2xa6%w4WN(L6zcwT2qQqn$Z#CeidCqDg?rbu8>
zV|j<>2T2CRXG=W8Nc<q76*@(7wSe)Jf#$w=lmr@-w2CC<oj}mC6`g%7(CdL^QG!&-
z9x|}F2ktr~m4PiNG~r2N9N(fypiFc1u_X@czGEB4A6rNghm{a`U`2zA-smPxe+jiE
z-5Rmv$TswWoml+&Lwo?@&&1-ZQ!bwcwg-WU6MvA)YQ`QJB&DF~1|X@hz*E*-LkXg2
zB?FsjNjDgeRC<ZP<|)vr@g&BoGlhk7bro!#m#EGj`o^C;No->ep(N=<&rOO4mK0e3
z27WdZUxy@|O8b{R`A@nFmFz6p&PLKM=1ShcMj&ZlGKFKez$%jTmk1;u@df4(ozj6P
zvVl6}YRYoe?)agk`A>@KT&f33kdTceV*|4=FaUwSTqCI>xe_udj3l4f1Xll~O#>@I
z^5G+UHx~sZ{g5U8my9Hu(fxYh#!=F>B|QRV+gnNh8+bU7bcv+ra<n?RPU}X>{r%Sm
zrKAU?mmVCF!vk{2N+=b0Fd~PnFnYp>yvs^pb%<9-GM9ZUP_sjU&xQh@NnCQkEy22v
z4J@r$yi@OSo}^c!vxN>fZIHxbHe+dF?2t8x^$z{mA!h|GflYLYzU&gTzAV54(MRV6
z3nMnsSyBjOMB3GC<Rt_hD2$y;t3Kp3qsteYWNeH_+ypksBsgP1JLEjc!bp-WY)VV|
z5>`T>zBDvwxvbCFJeCaE)RWLF+qJPNBB`4agILOxcs(#eY;MNaSP8gj;{$t7Nf*y{
zue6dZ>?KSf>7!V6B*`mrHETTE*+|HotxkaiLI*$+SV{LP=`|!Bza)=o36jSG+pj>v
zV_hO?h*%0@YayF@k{n{=#x}AN_GDu$Au&ns$;OS1MIhTt8X~smO4?<zwy`8eGh*Pe
zMPS_wJYJB%hy|jA6eQJ@)j?7uB;b-5BuQz>HdS)EC^<Kh^gEKaBXASM(pBL8O|o#H
zl9C3FE;E6>r-b|BNtZTAlBSY6#G+54FB?J$lmic3C3_Lc#$3{VNjimGi6iO3*^?28
z4w4}&A#h6@$m^0C%cd!Nw!#XN_$=@|l~yv)lPn`j+FQx7g``RcwqKI!BsoErU{Z3j
zCm|+D4<k9^2t5Cl_$)Alfy5uk%2UX0b~SqM#0G%fceAV!nCNWf4Q${fNR^x}vO8fG
zMuErCfqNV_(It1;A$wTF?($h6O1cWkiA$jS;y0P>YJn0Y{d)Xk5^9t5%93GVac5B-
z_*oshngr{TB#S>bmNfK%R!F*v`2A44#q8cm;vIG`A}J{GAKpmZC)wDr2Q_SEV4Iv=
zC6oni;OPN9WDym=jbaNRn_2Ad6R<mp_+6;=JuRyEl7xnJHJ#Unp3~IVob^o088@w;
z=PVg>j*KQD-&~Y@SB^b*&iT1%Jv-;vRi(E(w)JQd@7eyc=h?5ejH;_S;pZl?mRWC(
zS=aVI^**JC>v#9n)`jwmt52gsCWR3<26Mzc$}d%MbMLvjyK`(=RWYMtW7{<6tl{F3
z!n!SsT9?ADi+4A#s${q^c5S6%)gWZr&$w8hBV<!LRdI+L7Z>ME^>#nGIB@aq>SK?q
za7JOs)wMZc-kft$_RLj0UxfqL1}bN5oow7q;u#m0_Oo-&D}^PBSF12W#m4oE8&ArI
z6jrM0iEATeYtxb8>S4b>r{3;U_xY+^r2JClE0<@fysE+|<p+w}s^+;iyEaidH%TAc
zRw=i;^Gyug^(fy^oIuqxH<nbN;bM)_d(N5f+FO-_E<Pxprtnx5ORBzAVXI1?s$6n&
zbCNIJ7~A#Uj!_k-yRo2RLvfzVC0rj?)rU-)SC!)w4^c5Rvh3HYwcU9XE?gZa*>3yE
z<@QN>P&`^y=iOYT{6NLk<yZS>s(!e2)a4>d4rNnS{o-<CQeRkQ<0PL_{WF!bHZNCk
z6Q!do!_6VeA8!4r>LaWA9x5(Xmrt)UsVBDmIEgE%eF&A)lzna<QTn<20m`Q?PAJ<~
zl>PryAC<fKM<eoX;IKSYcyvfEK@VwlSk2;9KjiMROVAQ>=}WtsRh@NpE+yH(j#7G(
z6?Sak3dFiZ-=yf1%w=62pDos7LxImEAQ*8=1OkS&I55WXk4aeW*x;EIMoH<4=HEcT
z(85^ampmqMYSQ#)UBXtfz{m$?VLYN}0txhQuA#(}64FgdR}w@8%9XHve8(ioc?r(g
zCE_6`5k|wF9<rn`-3lp5UJ0$_YH#CV6z|md5VCUv8GH)F#L{bEwj}MC0(-f5uO|(F
zq?!f_W7A&}A-0EM&r9N)k)(AqDN-dxO;S3NGC}+%GieBux;k*n#V!%w=_cK8=4u+)
z43HdKu)SO$*#th8w9}RNSK=K>!x`9@1QK3+zDW)~a-Gg3J;9K;S~7vwVG4~);K4^O
zYKyP)Nn43ro8qKf+IZuWW;fgKOu-NFK9lsyNn4-z`WE=9QQ+=?9VU%&{Jt<LnJ0~L
zE`nzFoACuO7gq;DBiD8^z5@xQ%)nF2T-&HzWig(sB^wY)R~!h9z@yc`QwbU+bU!Is
zE&hCG3RIl*!!e26_#JC}ca@YB;u$=i*QfiTP|}LSsw4TNSQ2^3Fz}!zkX{2NOraZ0
z+UdscyOZw5B`{)3vxKgae*6>f)Ih+*GmJzXkKX9$@4vR5AMOu5#s|Xr@8t0`eKo3q
zy*c!e`mk!<8Ez;0A-8{?RD90#Iaxe8&2^t7&Uun-nc04_{FZ}@Qt5VF*zobmI}NvW
ztD$wqQYv57+2`*x{O7QD<RQP#9C*^l?=%e0#wTl>BL{tC9@qKOG<_1I+l)6R$6}gs
z&#~4!;k<5!;gjpnlhPB$;QS=!b=`EUL#?a>*PRrdef(VKbH8c&zs~xfL`>G18)xHL
zyz1<?y2WCeb>t+DpQO*k-)VKQZnnP@_I){GREOBr&Cfoc2c480sdIc!qMoUKSM#Lg
zLT<l}guXiIe#kR^`}Z+b{oQKnZ&Fi#@7w(w<?i1>cmIC1`%KmMh){p8pVH6$o8j)?
zf3Nxu0qXB=yMI5M`pyjdZ<9~@8{Y2Uk)QN^1yz4D-2HAD*VnEt)OQ|Ges?cdKQ|8U
z_W-zmQ=IyH>s0Kh?+l>UrM`>7{k!ngcP~`^?Q{EY;=4X|-?#0tb)(*Q*R$hSg+B_r
zE@o|esK1x*=8(Onn|svXi??M@!Xt%47sr&}C*>KJ2Nb?0aRv4F?5Xdrp}zCQ{Z0=z
zzLZW?Jmlha(s!d&+2^i9eRoOK_hwXmp8=(J)pr|Fb~YVZ)OYJp7<c1HaW#eMrZc86
z=jJf=Jvy%LRo_=JiEmtdyE$gZ)qbt=zdfcnjN*|h{_y$!l`7x6dQ^R%NEH_5oabG<
zx-wnNRDExbJIB6XrK5{ETL&sXsTkYe$wBerr0?x;{o&RrH%DBXsqYxEZE>;CAmmo*
zMES|Jk(24x3YRA*eNPLOpEhP)EV@2$V`KZme$S4Po7+|O#m!%L?CLa$)0)J3Rb21J
z#pNfe=df+7!Zl@&E0^l^tN6#&m5P~bYZb@(tmpEEZR@0%xEOHXbJwf#kBh6ST1d%r
zb#w7hg&j9;uJ0%HaaA>u>c!o8Rq=CUF{y62IY9B3%jeYdF2C4Vr+PA*TdA62^Kli<
zC_LN#uHq*uzOEmt`h_Yktjft1b>#n}kA@y&>s(}XSTVNe98}0Ts2Ep0>ocx;_R!;5
zAA5alsgiRj^h1?DtNibykB{wAzg6kx<HIUBRd)I4Q}wKmoGM$Yd?l6RW0zEBm7YFv
zk><D$&VA%aV_GFM2J=2R_gPEo+Z=i7!!tg%_^c(xwv;EOxfa9!KJ!!6l$g3x<!2vW
zjmaG!K9}ZN%(_1H!Y95`ev|ejK720a6Q8`6@{-igJ~E{-mG(ka{`9#o<tS-wmG(0}
zW9hR}9+UP+(sg5cR3G2^^nN}%_{3By$0rw3#n-1ENqZY<Ui)xVOn;uLSIJQ$Qq>C|
zIWe`shcjdL!ZA5m#aF3%%a|TgI*#dYec~d`{VLx|<15|E$L!yIbe3|aH10X}m_9vK
z3_fFc$tO3Zb8_s9rFkmte`0b$dhQW(wh*&Fjq#iGeoS8xbH*s`Nn-NUhp%FA5_9h7
zQ%8J!E1l!B7m)6eQ}J_5UGq7Uk@{I$zfzt1Np1Jh!3XC)Sk2x4$JBJ`{@tfO#+<pu
z>;+Qo>7?~b%6l>AuF|uJ82*>$X{z2YrY}l$4kN{hv~I@qIjJxpJvWXyi%7*w(pv1p
z+tSY~WBUA5XDrgs)}?3QInKLMo$vXKW6nQg&OKsmm)6jjT$4U4&AXU=sI;F?b%y4H
z`I!DZreBKT1RooHxFY84H0Eqd+IvWAuC!kJtQ8~EC%&on7cu-J^+T#0@xgE^o{{2H
z%DvM3N_B=N{rwQBU8#PzB<Ac+x-W>~nV9oWX+BENXJUF?X&sU7<x}-+F=w7q9i+d%
zB<*!$_Utj|8`AsIy+ce7?BlB#-^S!rOpooy+vWd9e-Ey8Tti&9aoxjp#d>`P*EX(A
zTpN1s)B4^;J+FB0UAQjb+Sg<AdJfkvuIsq=a9zgrtiHE}YX{dOT$i+*LdI2nZRq#U
zX<5b3Pieghd1v)&q04za*T{IJpF7k)pVe2f=1AMMspstL=hyYRn_AW#T!pW0;<|zB
z1+D*qUUyyVb=T7EP|MoV_jj~@4{_bscAnAWr?eiIwLf<CS{wShqV>D3uZvpV70V_Q
zn=96OTl&3S{hpEetmX3?`t`Ebcf-+p4c9gO^9x%3yR7H8wEbuG&)2nIwzc2(^z%mU
zuC}}I^=<v0v3p0qevW><X!*&+^OE+(Wovv-uVZ5Tyk6hfH`4No_uh}|MJ@A^_P<&G
zytenUett{ezoBJs>Gh0HitCnj?}3(iTd(<oDluZ>RQTaJ{fzOMiRYHS?rEQ{>v;#-
z@0;4r9sTSxs?34&dftYXVdfvI5<lyD?j2R)%AS8-%YCHpJ<#?)(mGz%KVQ=}ZaVk3
zweK$K^@e(E<c{>cXZ15iuM7JAzW%w8Q()|&*7cl@*KO_Zi#l$5TFy|<zohLkuj@K?
zCciheE*G>7`&!nPDtXMr-f-1W-@Bmizoh+da`UWS+r)NT&)u-ryrlKKrAq!Wembjl
zx~9sUIjh$-zA&*ieqPgZ4R@|<U)<35F6n0qKR>OXGZ-&od8lo>X8FeGx~AnAEEcw&
zRwafnXuTh3UGHeS4F8(vZfU)4sWNZ2bsVo)`d-nO(b?qq8NK#ht-I0fyk7H+*5UoC
z<P}ppHnpt6?&np>ojZE&O+CJ;Wna;<p0Vbb`xh+vSF|k`tyo-EC5Jt$=U&unUQs1C
z8cZ3^+R%CydKvtj)A89+Wj!fk^=?(>$~o=3Exqn_?Tho;pBJq-6!V6v<X^*Q2IIH2
zJfp9vM_0A1vpRmes;s;BEM0fBfA;k2O>6y|>L~tS(sK9ox`m9V^>dfC?{Dcj7gfnm
zXZ8HcT7T20m|DN3O8zi4#`F!Q_FdNc7!JOsN<Q4Od~-=1#l6YFOF9l`RGEKwwf;|O
zn@n9ZF)(YJe7UX4I%{&eSiivUNR@S?xVNv$KE(XIrEOZ%dKnyE({rBJ{<^73ygsK&
zE-ltOt>bZ5-#4}HoGS5jL+f(UTH~Dc-bm|lTib0gepBB!u{S(7(sM>yo{8fvt%r%<
zo{odTjp6X;^v@5q{7d?|3zjUq7c%*OUfaE`*ESrxq3tj{a#xkOHTBTQxN6<Mqwf{#
zJ*&z%8&15e%9`+k_U%nAzj*GmRGI&4mTp&7Ss$;cqd9q2%UD-s|7dv4_-JVPx>)Cd
zezw4s;p{7VeWRc0HEvk?Z)>|u&K9~JYFmsiHnk7mqsJzHO)g*2GOwvJ-q*Da#rQz$
zwywv;>wW!P@w%^$_9do<KCkUE{I{*&yRYL?yuMrCGyRy!YZHSj+U`r*w!2zSlN&`0
z_OxC5I!303-qG(H|Bo!0FY5b+f6e~omVWP|j^`!q7sFXbzin$?vF;gF^0wLc+)!l?
zWcbb0dAmn7{micRSD{0})t6P-Z`{!L@2Ik7nSRLVa!Id$OZ&#|E6%8rEAQyJrZ#V?
zviG^DuNU<k(;E~v87!OrVNJjPlwNbgnzN_M9(mikcSrlxVAtH+(U<AVFKFFOUv^I0
zTf}LoN**)M-PP|KPBT6Fear8rr?GpELf&&)50mdh{hnFZ>`5=_x#xAfOmAlF99eo_
zQ{`TD<>>!MKRkGX#={!Rx1SwFtd&Ym)!0X74qy4$mBU`CoGKlB;*}epsbW{R9IS&(
zpZRt0e{Ni*!gKCisDnN;U&ZH(53e4V-=@j!sW?YEKZYk`{4>q?N^5%EYE#{~;<$Rw
zI@_4r5689lk@m?x@?(1JI$-0Z*O$8aGY3D^fphB6KS+I*qmDmG{yeVplWF?D4p_|*
z>pE~kj@&%1c+~+XCviOUTm8q<bNFd;U8?<;&$`n6ejTu#YJXjaUdU(vmE&`h9OvOu
zZ0E+<N!fqZ0f)!6Rt_Ha;X`SDy^}Few{acfm1C_`7&z&_M-g+LUx)bC!Ou@peLN{K
zJ+8BwI^=tf-xsP|Tw?ZFQu%emwp7pD{nbg~1S#fI?aQ8|{rfa+@yX@f{pXYVdD(I4
z`K0cxPI~`VJ$~Eox!)Ukj1N4<_WYrT%wfcQsm`f%NTpkh93Q)4)|L7#l@2j>P1A2u
z|M<+$9n)#X!bb<GZdG~eBR>aLkBc{|);-8<?{VQ|n&X&ykz4;9+?ZSEY5GL!AD_NO
z+LPpnQI5JW&G@FmK$Rb)_fJX<J+7RM(K#j`WBil5cdA3LTV?NY_3BbCJ+3$&SBz50
zkLi1T*3I3=O8e3r^)yG0#Q5JQmwo&x-B+fvF}MF?_@r**96q1sely3}#Wdqs2h8N&
zBOKTK+<s2gd;8S5m>Q9LkC40njOhVl>eMv%XgNM>@TpU&&LvXK&oP$vEx9@8xHw;W
zHhWyQr~0fU)mcHz{W|P-rkR6v=x0*-KL>v5;KSqUg<|shxXxEo`Ot@ZV>m6xzA1;C
zR5(f1FXhmuZh0DW_LVBWF>+G%QOETe^fYUSPcI?$L(CcJG~?nUrw(U3(%(<3+qp-M
znke;8?)sQ27SsG}?zn!B>$vKm^!`cVhg8qT^hn2bZj(cYR6R+mSWL4f=H|5AJ!%fV
zJ+9A#j;>pN?^*-boOQWBQ}-IqxM}^|bmq8otL{~;?XKJKe16ip?m8{c^?ZCYrzYz-
z$<9glxfoQ<r}TH9t@_y>Hx;cL<*P|?tkR2nhO?i#+_^S3DSOOwE#ldR^Q`+khwVu=
zarV3ZukuHuV!m&lxOv?4v?~Pb+<Y$Ae0=7MR}O2EcyaeREc@6#X%3g`(r0{p$MJHL
zSj#8YRq=N7*e8ZL@LQ#$FD@l`rhLx%QK|>^>bu^g_)G1cgvlzMq<U20cT)b_<JN?E
z6eeS?N!%~tj;h|Q$`4igP`3NTuquwe7_F*DRclPbYN(7!oafr^!>61-eEj5c<0L+J
z<yFn+urkROpL;%-YY{Sha+8XKo0F4pF$uq}U#PVv#mv_hN)CtDNtkUZKm9n&`QX48
z6O=C}<&FFEq*zqp+Q#;z^?b&@{-R>z>&KO&{~!IqLB)6!G3T&i&Y_1)ANfAIrCO_M
zj?aAQxXM>CYgPHd$G26_4im|d`oRZdsqm0Hj)y|sq!_5esx&S+@+bzwsd6C|9;Euj
z_&mlBK3ttUzCK(rtk7+m`I{<^G4<=XxGNPWNaw`(WH`mOa@5?Ix|ym^OC>Wm|EJ=a
zDnI-5Hq)#Z()ym`S!sV2quX)iS}JbOQFDFjU@D!fxHJdGs_K3!nK65l96h;@e4jcc
ztz}ZKmgaH{XU6zB6<7G+KX<PcV@qxxi|OU0`IUPwoTK-sisLkEM9g`MPcFoqUHI5L
ztQbr2km_70)jmB3SERyxj{Qig8kD<s<gP)}+&kpp*c@D%8@JQkd!{;z%Tdd6pNCKL
zbD5Z2NcDM*)ZUmgoS3zwbug7ra(s>uqi62VR;I~yxpnsG@p8m*n){a+&d=Td`1B9c
z^usj!7U^15d-GJE59Z*&7%auiNp)71qo1kT-{q)ZIqG1H-%_0~`Cuv4IloUmmD&}v
zpN-k?=g>{+&zLiI>9anclh)xgyO`RSo7+>>$~x?wr>Rd4{><&G9A_ypoG)EhS`%}h
zUrEo#WA?(Sd^pW>-5hxl^I1%ee#u9s^mllC<mcd-m@^-rXQiKm$IQvW1JYPX{pOd0
z<^M;o`u`L@|JQ)~zZ4-dB>%4=)icunW8*8E@<Zra5;=9aeE&aAiWpJv`}{wu5S&i>
ze`Be9B*lQ_|F?wbm?}mRd`RQ%yIzQnG4W1?l~jJnE#Jq_K6N65Cv*79hj%%fV`_-R
z7LN0LYnE?ZW9xlReN)CfHdazU<XStV_WJza)li>?%HePlTZg3fhWH?~4+_Q5G%g>T
zQuVPRc=F||SiGmQy$Ub6Vi99=i0`Dl-%v+wsj5XWxSFJQN?!2I`IV#pAN`TF*MBq=
zj;o%{Au~o!)i}3qKI`VbFV!cvA5!^88f)n|#`aWp)d6GE)H8S9Nqu!({*2K%M=s~!
zmK?dCTc6w<I8AQMZF}z6<<8|)Yo*G~9CGT+hdFA{H2croYfZC;PSci?SUaZ4UAgOZ
zj(#IYJ*{(o<+isD{a&hdbJU}{`5`yYOtWW*(WlPO#^7_BzRDfP7@4X1!<c7t-#;!t
z<j`T7H7j>-mV-;{R!3sEs}40H_jsB)eo}CigL`xHWDbta9j{a}bL<(9i_edXA5J0{
z9T)${<lQv+ZJK>`svOMCfw}WEH{a&w?K<e611BeiS7YX<dbSSu%)#Ng{gy+1j&*a?
z!5p<FM?ZF4dgjn4M_!+ly~8xQYnpXunl)>hy<ZGB=J0=xzAiVGa`z|GtP82)QU`43
zSSwWzQwLn-?qloLf7YQ6%5%Z}J@?W6a5nzTcqF_(8_&kG@sl^6X1>q3rJg>C(V-6d
z*TE07@ho1m@hpx~TV{QDK6{@eAJ)N^I_Pi`$1}gp#&sU2!siU<v+-;^%jJ_k9?kqP
z8_&kGam~gvE}D&J<0pGO%kkOxNgB`aJR8q&H5)%kc&Hop>ZZ?0vHeNK%t^#U9dxdP
z4zuxWEFT~J-Zk#;`&a$F`_S(Ni22SX>30Q4zw1J(oA37vRq5bsi?2^4-(}<bT?MJW
z4<-~NRoDx`s{1@8FZO$YLci;$>N_Q>=J>?U2XnFC|3TRt5^L%AZ%o38k9=vo8pI{F
zmBXZuzEU6g#4rS}z8LZ49A9ku;)VJ-WL@99ufj?Q&LnG0(pzG)WStao_tC4$9*(bl
zc!9%|FUL@NO^Sn$j=pn!o|(jpoZS?LLvmJv?G*epX?@>1;G+|lV<~w?iiudR4bis>
z>yp??IL%kLNqNcPLgIU0zg5YV;F!a=RJIRK`r1_GlS%qj#mvW+D)~NG@x?ZWlSy0<
z7~j_Tb-Z_PfAr-qdhO%tGyh3lt?8SM4-OxXMvq4ak4J}(NB16&?mr$qcszRec=Sk*
znjakQm&0K>9F@a^a(Gw{@0G**<?ul{d{_?4)kfuNqoHg1E3d!&abtQ@-|W2k`LBQI
z)eoDe@RJ@6UVZt^m+yS|4Y<pZ(|_Y*UvkH|aj`J>%kj@!Z~e%IGqLsYFMjP62t7TH
zMdS2mTt5C;jpsJr()u*?GpAqq*z2#q_R5<dd*ef|e8J0ay!^_Wuf1W`ef$=F_%tKu
zR4L~RKl<it9|@C^N}HKgGplCWJn2@|OPi@%RXjaso_^v>E9<xA(r+L6#A_(L9$qug
qwlK*&(0%o_55N40*WYxOF-5kAsUI2_+CrTA^#2F&E3cNT&;kJYurV(H

literal 0
HcmV?d00001

diff --git a/EduardoHidalgo/german/german.zip b/EduardoHidalgo/german/german.zip
new file mode 100644
index 0000000000000000000000000000000000000000..38f1dea78565b0f6507c1350393c629cb074d481
GIT binary patch
literal 22312
zcmd42byQnXn>|d6l|q3+aWC%f0ZJ)u#Vt6L;@04V21+Sz#jO-~cXubayL+HOkP!I#
z&O7s)nRm^6f6vW2cV(@t=j1&5+55TK_nv%IMn!vx@{a@dTv_?w-u(Ls69pf|#@fx%
z+=*L99|uLGV%1=(c+~*@><!Atzd>(MUi^LiYY_f_261VAwsrsF?B@NC=zm21NA#)T
zvD2~~@guY#S*ISKOp9dL14yBPN^cv(<;EN5;0bZkBa5ZCwTqL1#?;UB!Hwbjk7uYH
zmEKjzaU4dCYD&xaT7_7QABvgF>6c?E{5A?>i!rjXdY@C0Mzb*2RuCl(W=}}<5GwC*
z1l2?K2rpOB1**Eu<6Hfyz10ISv)K7>QLOR(6L3f!AFdInb5*6f#z^>Yi9yQMV8EMw
zUu@U_f~t8`{5F8($rl?6Jc#2cuu~%8<vuESW_%|C=fz(o_0$?i3)gwOpr3nm6sFk2
zq*UY7aJ*^`GaILOV~6LsNC9x7ySF>j!T_(yMS3OE)n(ZoRKK-hwRR1~+VloXO|ntQ
z(Xr2-vruw>*QiWeSzaGIz{Q1Ru=xERQb{(SX+YbX|H^r&+!T+*u$GKa!)@zx>4Dvu
z%wT@M+UG(ZzS2bzjvezV+FfCuefAUY7Z?wt{aYx{{E=NF9_Hcw{cctVuEK-30$5$R
z=VsRb7rJ_LRnyfL8)43e)M_EV7g<?xc_{Jh1F6TsS#J*CW5VKqRe-U}OGn8~1{Gn#
zT@}V;ITSI>bWvFT%FhoXB)>bY*39uX_409A(02UNUj_*b8N5__TlYgbk8zcq0gXQ}
z6j1)b#Ns1!kFqrYz?IHIlM-kX@km#|#7DFmn8e?KE{%(4*xTQ@OdjNEAAw;c7MRu-
zfw5F3b253dq)<1vL0o2^GuEiK#!FsxJb5<r8<pKHyp?Jn*Ov`V^{WEKkM$Q`rM1Lg
z`aTSYMtEC<rdWK79{>U3lZGSgM1`qbQ1g+F6Sn8!N{Ox1V8fvXDa+)aHasI+9K6C5
zD?_(uc1+tT9q~6I=HVRmfiPZ&Ba8AsVzf|Wp=Zl*;T4HbSN<ESae2isFFLK@LDp%|
z;_u)DOAp2GiJMvgvVb@<@356~8Z_SYK~L>s;G4Q}d?CYUa^}7`d2B>?wLreAiMPF4
zW*S%>^+azO-szj2{km&d8NY}a0ClFT76a<vnQ8}q-S~!_ibcBtB_}#7d^1Pc{M58@
zf7(%5UKgn2RICzb5a+;Rfo_T1{|({pCld^0q){sRLtge3x!pz=5u3P0A6O)7aF~AA
z@Ri)_=}IY~Q0G0l$uGOJ@wN#gbRb$OB={-H!BTdDW$2X89y62N$V|Q>c$}J*t=s!<
z^z4PIc1nOPC#OHHm#tc@5|v2dLB4ih!W0&dd9BX37XYoKtq2G0mDI%@Kt*-cg#De$
zp37zxF$wLf=Z5cPt(gz9+b%om)LJzYqWbFPr6X$sBnYH5T<6KK4NmKWmvy)1qcbP*
zg;6&vKB15BDc_kjQB<-^5}h#j1KA-s=c=s(TZhym<>yv!9)Yi^%G7qaP(2s%9wlA+
zTb19vyCmg+>GJ1R2@RWFRvG0MOZ$2)m`e3h;-h7bst!%RQN+*ck=}0TVv$|Mm7Mvb
zl(`=|OwG=z5+s%tm0(9;l`UHh{=(V$NAUwPr*M+CP!DSQU>$PFDehrUvQM_uaYd#S
z5}|tRL8|bTuI3<c@p#MUJ18)UWJLHX?2<L_t+4UZTr=Sq|K_~hhiV~IK@Nu?jmsiY
z!D!LEY%)nn|NEokjc6M+j;mo=Y2_A2hx+=qjf|f4lhcZ`Jwf%sSbK0K-X&_PQD)^*
zeB!0m{I{pG!GbM?w@OhGl{#r+*{%^RuTs0%)QQxOdb;aZv@b2>O0IRA<hL~Yw{)dF
zX&ZHLvQ0gm47d%Ixn8Vl_x0$)iY%|G3BN4NjH|-(dSa=4)|=lu`XE-NVR<f<$tI32
zn3CcH>%_%MDQgEi154Oz8fwn_4rEytB|CS8Q}tLbr>efXiG7L{`_06YeO8_&`W~{H
z*VVODKBp$%3nytnnq8o%nd6V}h*+t7d67IjyT0`6dkcOtEBY|=mNxR#!VwIoZ)5L1
zJuVgDzxp6HESgc_C>N4Rl&$h9^0R_L0A>8TlIyN8PFd;uF}o%b!c)B;gc*^kzewJ}
z(D3yEgcqW#=OVf~CIlGKY^V23DK$9$BN0DD)|slU_zzgyXon5*uxm?SG2y<e3)Opw
z)4iFpbB?e~u2NcPo!sJyr3)vXIpv|hTrj-rxBkl5jVirO@?11CY38ESk#dHYfvTcQ
zhQ@hzypltET<a6i>wsY53>td<I~^;srgK3znOf}=r7D_)fPa@PlL$>%9lH&=L<^T=
zdV$vQ&~tCgIXUZ|#kadn))E>-DhnUnjQ5!4h#5uns|iG^d7)6nD|NfpB8?Y1xmRJK
zwVDVqNP<YsXAqXWLBF+0SbF>bVV>emoq{Z{RuhO?fUZC^=QkaPZ?QIC_n&dw0^?n|
zErOo<$<t{TJG|vpr=(RIfA~R4B!K+uoXt(hC@%(5(7uEC$xc5WQnAUZNn!N0>lQ82
zSN!|esw0)5x8c91rM`m8J(xBQ!5yFGek42qcO*L7e!l@Sq3}rBC?+)9E)}4p@~NhK
zvVHtA|H(!xCR;3@Lr+gFD6oHO8#^t{PddzwFPqtiU!iXhOY=)rVqQdS@`%nahdmBV
z!^o5U;uRO6N+H}AXfuHGJ{{Gt#N6Ru10aDgi$MAxy`mqkdSw~01J`(m%*P0ed>A!%
zG^a48aLGh==$34+ruaU6*^B@Av7Z-DQ5EH7(w_p%n-|5oVUFf5eDbt+Nh`7XA&f8Y
zK4dR+QqQdU+j4GxWN~ldQ@A9p<t=+-esu9RY_@y*#m(FhX_@;Ob+8h&<Qt$gCHH+c
zwNOe7u!LGa=w}%_AFIYM9dH!ZxUUN}S*u24>6wOAFmQ+<R0lv_N>v)4TDT)q3*Rs^
z7F3HK3<?s2eIBB3>q+ob{lojp0qVuf;-B;~kLS>wdrO;&(EfU1yuDH5#d7AH8*6Jv
zy*!AGD9W#rX@0AXJ*BWDZ^_&};=9F6^oiJ5QuK~WshCijg-H*|we5n=VO^|j(BK|A
zamcS~V+zukXQEXGANWX}fI|Y=Iu_a-vQ7HX32kiY&?t=0?}?VomWxM(zuX9OUJr_l
zPHsudRu>T)awT$cPew$spNQPpod$sndD2K^-DQ59h<({j3#?L(fy=h|aaaeS<4909
zf5yT`DE#3$ji8F-NEpI;?)Kb>Y+lCw(>P<@q`nQ$a#2Gmxmj9-YOLV0Va~I}(WU%%
z`Yb@cL_k?&BgbIXtf6*QNPhhIaBxcc_(xoBHrz(*o{x_5GuB9vr5`JM`|p$SB~>+u
z(ZXncXIH$1Ybl{G@cB^4_=nZ;R4UdLvQKvIX_pHLam~+o;Z=ue+AvHkI(Gb7--slk
z*Lsl~y$Z{fOF?dxa4%?=6q81hJhBhqqy{pW6-TuHBIWI_-%|ftnKcCHeVc+g|Lyph
zUYs#4;DCBc{yV0~NyJArEovi3Ld_X|uBQUvow%AQV`7(6t>>FQ0vv}@dxZziA1`YD
zuw5LEyf!wHx=!RyQQ<D15GI3<9Z%b|$<Kf#YZ#kv&QGDC>BY_Ha=xM&ngg(9V$h%v
z<zf#C8%1OjoWIn^ut4NlcdTf+v(v%o+P5no0me`r%Rfvn;0GfVQ4y5O@(ph;tCi&{
z?PFW$-`=Jx;r+O|r%OYATvX@La49Qj$AIa&anKl>q5j%lJFRmm--e&xSJyEup-y4s
zt-~e^Y~zVRFPC`h78vlvJi<6!<+C1#WDwZ505{3#jmra)i@P=n4oPpk`Rxk-B|vK1
z-NK%6huA&o-V?W<%=eniQqzqFg<sc0@7g1WxJ=t_s9Z*FF`3sV2i|W9pDtkLPYaq-
zz#J=)z9pY5rjt7PPTSqxs*jlcd>g;!t>C4jEjdLn_@xh74wR7zGOfOP;jkgY`BRR*
zPVlY2{oCsp&Vvx<YYEOq^AVxoYG5tp`<^-NOWAOhftU4i@!G_a5{CM6H4Bm)nv(ey
zq6frFSAYhn`iaYD8iPPdwGO1P-^bIvJ-f){_3Y-?#p?t-!lgx=m6E1@;MrbRX)cfU
zOXKX|%d{WLh?;U##B%XA&r!%EZ3J%j0Z&9!_kjrI)w*e{!QrVpp73fYGPg#Dfg&W)
z)GQZIblvaZaMPy`kuXk}Wi!#@_Ehu1;w~yEDa+<ToF7u4<y0@_M+WJ(Gi|W-X1y95
zq*+ahtBo5v(9C5^JX<yC-_NOGhO6!6kf0(!Bkgp)j~44DnUoW<8EuvG_kUaxr#!pw
zEg781kXGzsqQ4!b-}Df#tis0-G#`~QU+C0=N!@TzQ0O>O{)>MBwkZ8K)AL{a3l9&c
zgR{96m*zkGi)+!UK}^O!-H)<5=dkK%xVj>TqITt^&ft)`%H#yv-$^lF0Pu2Ok^J>f
zM1RLWOwvD{l>+*IcUD+`O_Hgps<e!{mj3_qR{!u<|KY9v=dgdQ?f-@Si!=ML(f@R2
z|C$-a{}9b(`oAV=X+~seV`gD?uBxJYj;H(M<Jadgq^QjJ6wfZ6(_&n3^WvjZ%DfN!
zr4kcG^sY2G|J!T2^0@S@k|h0)G4aJoX@+shar$weiLy?Qw+!M^DGbvM-^3-GjCRIo
z$HW@|EzByvqS~R*$0-heCHyz&64#y=I{t-i>ffRJXBNEwVoC}B(_ixNa=N%#yO_IK
z|FcAne@pa_@edFa)TMC)dGK3rh<sxvm`bvL5D;8!^o0k|rfL3Av?XMDYM^CfGHE>>
z9X~l?vEcyuY?PgeSL>)|qNUeYn$?|<8DR;Pxr3}J7ZnwI%IS8Ep=6zHlb<H0(ax7O
z5@}z5lJ<Lb!WnZB-Z(*s$&h^eGI&;xKWcn(=SWW7M9&JxSq{PaJE5fR7WREVOnJrf
zyZmU?yOdul8lPD3SloZ2=ZAKR?yZV_0Q_6(#Li*V#edV5efD3e`LC%{|IY>d|3TsZ
zNDWon{=3Fr|Cbu_aauZ9n>+od$oR7VU1a0XA>~n3&N+quRNKry<o5MXyt}3}Ln<4o
zX*~A7!55NABE$R_zIXqPIsf{tl>ak)|LX$&kASD}F9N{(Pw@WP0{#hI@?YZrWBh~s
zby^b6%RKn2*X%EzL0CW3r{i$qccO=V`W(U`>v^wYVnzIhm6BE4@IFB7hIuFYnql!m
zz6CvF(ATr^<}8+k7s<o-WFUdDDtMq(`bD1i!^Q6MK*7;#f*;JsWfdjr+#Qi+GCK5v
z8<%fK(pO(k&|-CcyddxY01UuLo_l3uZrs3?i*Tnst?C-&v^-GA8KqD$OZK}?2#qpJ
zDh($Y^lAI@Y?RTX!2!#Nw)Gn<X^HL@YxL7Aw_JP*-ss%^Li~oegc0B5PQO~AI*v@c
zyf*tOk+n>`NQ<Y|hgKB+vQ^_X!jUzz%-vF!Do}%C)Hz(UmTt)^X#ayG@lGEnp$eh$
zfg_OdWZLc|0(XG<BRy@`JT94E16SXpFA3o~EKFEQ3QIh6_FF$wT>~#V`D59wW2qj_
z(?G#Zz}=TA7AMISmA9;4%9dXJ(bRAqRj0Y$r1MZkwW3#|5|a|Ts`lc1{&w$!EzeQY
z#!vCa+GZi^Y6}_CL0aRgBnv0aFi1+&&4sh0o4uD>+IK&=L;O6N4EUfNwLuFyUjOH-
z%BP|>$^M|A4B+Pte-p}I;6O?B8RB#v7J;@03kh@HvvmQnik(GNn}C0#_F%$w@4(-#
zz=-x=JHx+ng8YA^_WwqY|0Bf4Y5!ll!oRQF&C2~hF1<;=|4Hp<tpYM5G~qA)D*f+)
zdg|}#Wo6(oud~b6r`s^2sa&RZl)HAOn=oSws3G(?G4>d&^m^9AmziQr(ckjPgBTUV
zA*hRqlrr(wpCJfI#xrS!ib3e$U^djnl!C|8wPO~zxOr25cIpY*Zxy>)`RH?0BxN!`
zTY?yu*z^SNuNc|QVqz*4eYX>$D4y)C^d^5Q-8AgFT`x>LA`#A_!5!Hwq@<1`{J!%|
zMy>k?<rMaG$s~47agA;zv5_ZUcj>RBU%``v3r(c~i;arUN19W0;)LSiWa7CXGm=js
zkn^9U+|qV_jf{nf8!8sA8^*-s4q=sC<~c+8FGlc6i6Gd@d|%-yA3#Fy2@GRVczLe3
z?xf>ZA!O`|Po4U`NuLx&6^0oJq|kgqA|D{{xQu7EX0cQx3_--?9L9Y?x_r51zs7KS
zb8}V0U}30j^qX<FC<<oWMb2@QFHdsx@hffFSTQ*oKYLAyDR{74_!e|}$i1f}@MmNU
zg<F|X#gV>QU#`i}2k`a@e}K#|Ek0rpWPSi)!4y`QQ}6?(XrCqJ3hW=9Gbkx7ktqsV
zPqXqM8I7R1uJNOhuq8Lfl-yA?xHzOLW=D488NSgU#ss~<_IFqpWgj*|b<K+6KV(XP
zf1YqNv=Xl84$veirSieQFjbBvH8QkAuum`y*l+=<ag<1OIJpCYXkog#fC_?X9#^SA
z$`r%AEvURyp?s@XU4ygYTn$OsP^sQbqIBxhd%CS*9}0bERuu01<2l{}gV&1{Jai}9
zMZ%<a`L9+8dgGgNE1AlyniM$BH)MWWP1Ud~5)K*0vWGm+?&5>wswZ5DL++JY2^X@^
zg-9XGAgs+QU4`*_R8J7Znkm!aIYrswc*3s_)y&v4!Y-%;>#-P0FLJklulzSm#8^)l
z{g^hX6u&JnF+VP-#yz{xQFmK<-9d)Ku?^9!EOViqV`L!qLZL~1q;|-i`OOA?(ka3%
z_XlD(!d)CUmg-Ex5#sl=qwH%&a}^Z#{`_b5DX0>jzXHw<vRWE5`|FDLD~=F-Aft+^
z;;dsM`-&sii^tZvvYY|A0#5t0^18ipP(=l3eYW~!e-!9W)C{jRjo^k~rQUG1Bysvi
ztd`6*V~^Kmo5IB1q55FhXXCL49sAbYb<_Gx!HdOdG2qnAT<J9i(S5RwCufTKF`{31
z<i0Lv-|^7f{@!4I9s?CaSq^hKKgxQ!TCgJrHf99nGJ;-THDgeGIu&I1u#Y;iSS1=+
zr!a(ZA|D)eEau@&lk@$9Q9iyLh(uElO7RFhjH6SL%Bs&hq&UfS*kqg|Huj0sdu#1J
zEo$`v;^X}ORF?dn22^8=LGh5hoUTmdV|%+tt&014spHnCt&b}$_7XP7_HzsFYr>7j
zT8xhoQa9HUgz=ekmZnsF#>xra7RwIq^Tq8xa{xm5%g5=&ldZ?!*7NT=$_=U`o`}nA
z?&qu#i}0Y(gp3NRV;lN_d2g!ERFRo|ZROSjWd6>p20cI~y-_hC5@XM+8vjp~=KUU#
zJnpZU$&4Z?35{ynt31bi0*n&w^jqsW1IPi(jmtGV9G_cWnW&a~=!BxSm^kRqw~8J4
z_QcASJHp!QCm$RhK4luuO4eT3%q?rki_Wdk=u1(QSFZ~<nYpd(MZHq)uO`A1kE+L&
zgO>{mRo|3dh$4X_smH^7-V;@s4fYFBmo*tBh(wyvg}wJ_%Z{ckb^X1)2Tt?$)0iK@
zwRbC}wiV8oC#hn^L1T=4_IgyiR}jI0ozh9mjRoBUWUbh+v;CZ}Pz8DEsloB$odcqG
z1}<SgUVS}UUYAKhxU8o<=gXy+vOtk_qR;2SA==+Ac>IXqFvgin%CJ$Xm}poNb{Cr~
z$tdWDA`;b%?%OBF_N;S~iW0;VGx{!VW+pSUD~2fr{eK#a040!iZUgnx3(niW26eP7
zBTQ9WBRfv@Q|cU}4C*phD>JJQueXhSqarmf?Jkoxb+pvs*Pxy_%l&W0dZW<(NB%^W
zwD6nSR}wmVjRpgItPS&Pv(SY)>sg<*QePvgQ!SMWv;9JEa8Inwd<K6aWy3!ILhUK1
zNki$)sgFIPbIx%s&Jivrr%sV1bVKCcpcCp&zdXn*ICoI_+mYALX{XHK21hs*v|o0u
z(pK&5vi>JN*5+(^;ne67M@|*I*jBtbk;vvgpJ;!XylUg1&-Zr*^?0p4n>3P9Fmw$@
z&c$;%mYScn((q7cK4eg9wIC^czu4qwWXeAL7*LG4`~A_ZcU6KGRxM+wzX7!G1}9g_
zIElPXB9&|T@H?uvqgIT7pE1^kQ*y(P2|`KbB=iR&6AIOrXVlRo==O(5bDS7#GkTc?
zPkuGu#n>~N8dN@0dQLIOb7gsfBZJ9~Z*!qri4*_R1XY>9Q5K*+Rmy>dEs^x;Iot{0
zUZvf&MQ1y^ye|+hKo7A7OdMZ)R1-_$V&OPJ6$dCDDb5Vd3ZTWEz4<-lrub`qTY~I!
zOs?>7g4I>bD-P8M2yYbkSR7cw_QiI>&qnT;$mb2i7t2Fl_&7s!EvPu!^3~!Bc2&J$
zooXBt8W-R}kRRdT#>K1vPd`V2(*2MZ3ugV87K<bYc)N;!RYFG7e>*$9mNkc2fxPF|
z>cvhWkoHAs{>AG!j;=qb%Z`|59}nWSJYed20f~Zc<`V7i_m;HL;N-O>hosXE46!3>
z3WlzqPbx9lnv!WJwt(s63wzVCP|%+@0qum1<SitjQahF;YDbcZl&IJ`0ADq8X1YZ|
z%*-I=sJ9F1Ur_z!diZ%J8EvF%rE9-+Znt)3GoUi?su`|qgI)mm%#vR0fE0Vk6lgDa
zqwwZFZm<kd^Q|#L`fF&YFu*Jf7g66%w|(hDa~9eZ%&OA6+Zik8UvOYHDM^+^p>154
zL^I<n-YYL?b<07LbM@j+K5eNxyZZyWsEN_*?Jf|dUR<G`+8aVTftc`l`RA)7`hIb9
ziS#8+9Zx=9?{HyBJ%28G{GGaE-qfq((qQdPDM=D=sH{`P=|(gL+fq@xO6D+6m^7SG
zznp23UlQ5@cB`3LswkVuG^%q+%LI7{Is)3zPEEUi5uZ&#TA-qV#G~(zUbpc%KK_`o
z$+|=<;|ZTd>=<MDFrg0drch5E{Hptj5~CXl$D%MaG&OvlQB->*uvndJ@oZR=@i;?1
z{fK}oPp81uxd~=Yx=#60+a{!zX2ERIq5D2!TuV2^>#RU8#{g1h|3%fjY0NM(3cz_1
z^RqMmh5eq4({l=xCGpxgfvV}R*)S#2*x>YU$_GC`tq!<hg<p4$N0lWyM0d@(DweRZ
zvJhY-U9s2VemK(c<mKo-q%%hQd=xk1s<^(nDk(ZwbFW~B+rk?!z)IjX>1JE2T(1*i
zPCP9V7elcsK6NyaZKIVjCX;$^0GLSWu?XRW5uqgFOQwm%^`IyczU|@*=Ta1^JgOWb
zGnHkoxtMG@kqb?DCmtsF<7|yxsQt<+73D0}kidT8lL-6t4>R`+-Q+T|+K|PTs}%g@
zr-{|XT&zT%O&Q3=iFC*}n#CPU2o!El0MchaAXRP@I{y~^DZcYjVJcB+obd21>tVY=
z!BlkB;hShh#fm<m+Y`lt-2I;@8r6B`_NYcD3j_K>7RYycZ;0`}Tn^rs{yw!3XB2uK
zCmA9EF4%sb^}8w!f5^nt0?^WBV>y_qQ`N2CZXtS*`HmD(L|8`F5^WWZZN!NhI`vt1
z6~CH7Qc;<Uj(F&hiGs79-#nuqyw>L=e9#mJ^<XT={lZq#yyG6#nbDeSrL5M!h<h57
z)>)mi!}GB^&q_UM0nc`O`HP~>m`9ca-rKHRt0(9lFG3U((Zn(K0NGb4MJyck@Hv`=
zkN%E61s=@s6BI-141QI$y($x@vQi{u(a>}QN@rD|ISn%Qj(=K|f#Ak*VzlHHr2GVh
z3MQ>dEBMI;8ULZ<R>c?CVZeNGB4@gF-8oI@(ZJz4vy%#Q3Ep8zaQw-TrYRJvkCAv{
zu|TZm7V*X_>9lX5nDLpq*)vOZ_l4j^HKi$krBu(vmka|h9b~8*qi=3cTL;z`r|!k_
z#wAO%olT1}U>ZkX<crv8H0>U1HH})lkj_dO-ZDk-YEAY4y`ph+z$NCzWzv=%%k0yg
zlJTuw-giCPKRq#*T0hDCxJ;e`HCNGF%gxuI+ID9*TlZthPrP~KNR8GT?4O4H$M+pU
ztxpl6>qRq16@gq&Z=jT0Yo>jE2h&o~7Zo4vwrzn8=Z{9o2zTE7r>$#$CC6>BvpWEG
z65X}(^g=?e@$chinlEd98bu}g9SGm^2h4MvIoRmt{@)2@9$L?3D`D<DG;o0@!ZT;-
zIrSjb0E43b8|k$Q$O?(elltc36IMn5@705`(&?jRUg9Ikn(tT90AfDwt$Q#)Jlfk-
z6h4n{e`6+p%q%kp?Qg5-B%g3UB<P?2>2nhu2plA9rGRd(5nD`tFO~FLe^~W`jqp5@
z=bib{pLo5rM~e0yFzr2P0xNBB!RuaxH~7)x^WA4pr~$NKiPDDW{)m|6U}$2)g`~ym
zhtZaavJeo3e!;Ul<AcUq#Lwn0RIYc@2Y(b-5SL2EPgD~Knyp7+^R)ukCnJ}q0t=ju
zQm}aD9qrDO(BS(M;?2vw{Y{D9Tb!+_CRC&eX+<3_nYa{jy#(oY-fGaA6c+SBu@x_C
zRH|2uq~CS<dqrBMCpEktjJwl0XFYiED7Nyn9fP;nMl^^*O$@2IgubiLin$@=#S{{d
z#I6GC6lu|P)%>_5;92+<up~w8^X$HC{fB5w+j&`XkUn>VOB-5B=fs0lXKO$pHmTDi
z)*#a97Qf2A`;6Gn_x{N|0<@g$c{$QAR_7W(2x|xswd$^CJn-DR*_J46Y7~gteC|?(
z699bzjk3F-oYX(!n>=kTjO*-dZDeZt24I8Pc;I^HI4-S$>Bj-wUl3$5mv@zz;Nxy}
zJV;en0S}(YF>2PBbEj`5;?0%)v*~ctK)oGp)Z@A^K#-IBU~s=Pr1U-YiIFr%b8rVF
zsf)Y2ZT=Ucqt|bvIH>ic71N`0JxD6ZSHHxYOazsBNq>8o4b0{8T=dkmaAwsMOZ-us
zC#;pqY$X6hIWo&M_s)rP?JK~n?G<GmB*8ku`4PJnZ*?41igTmlc6ym}=YeZ(1r4rO
zb>@8#@G99jnCp~l=aFhKB!GOv5=(R%j0^1?n13CDyJi~f_^LPm`o;`KmN&Q5*#6QT
z`{6CqX-D+_lR$p}7Q92S|B2wC{<+!_Si%8C9>=8X^5du1ew9%Vc29V>M30}_uzjRG
z8a5~vTqs}_W~Z`d4IvA4_%}qojY!jTAVhrU@wtoNOF$zIO>M_3Nf|)WBg&UxDI?Pe
zY~a!Z?kJ+{{1mlJ+;0K%DLpWPX=^nk+NiPP)}-{(*b8pDO?`DlJCKAK6GCb9;5|VF
zHu#D+-W?!ewoCnRQ@HW+_E)r@?b|16S|<0w25KJB=Z{N2)F}W>fv$M&M*8*$XS2uq
zWTWPd2&Op`6p!Y0fw^5F2O8Q(|JxjN|0St!B^%x|;mYe0{X+n^7DP|X-7zmFumPpq
z;jM7XMxo=mBcA>tt@Co{%KiFxKrdp-ptT!LY{lKFZanDtz5w@u@7*iXH_7s9^_^{w
z=T^sQ=E6tgEngvAZY`LmSDo^w9T-wzw}>R!+x!c@HB4?$jAszEA9{{F{Jr-~%6LIi
zpKRZS;>HP5Lw<gY;_*uIC4i0wb1-jrpALIPJVZb9zT#Ze&I0o>6H{2=+?|9pGl1&m
zqf|X4{Mi?M*;eAOU83iox92S+%qq~G3>JD28`=CD-{!VN=1Cw`#D1;cT0dKWkM*|M
zwn7&;i5g{9f#0~BW85#2KKr3cwcS`6?@SQ2dUVpA{vHoJCc*uRP><MNWZUU-cI?f@
zE6qfV^XeHthYI26=xkV^aM`1@w5dlTXCJXPj-H2iI-rUeBCKPuA{;l7eZQH0VE`Ap
zT4}njq34u#GTXu%*O;`&ZQH(%=QGc@W=yH)9~sSTF&mSg8g9uhTRJB(DutpmbI`eL
z=|h@3Juojm(>^A3>8PG-V1kze*IU+0d~p}%dRnK?C%2>q{AW76ds~8Tg}+w$o7r7s
zpYz+jM_l&n8~3lcpZ9eOM;+fT(GPyFF#2(bVn0gag{nSE4@>Lx$F4F!A*p*k4ThBA
zMO*;hwS6WLMDv2tIk^|^8uu2U0&u=Ug!~rK=9cws&_RAEG+e0j{#Q(@w*|fwVil21
z7S#TetS((B-fQfC@bzsUN?hBFIqp$!^RP`<WHXureOl0rh&6=CO`~{kt6!~|$gQ+g
z+Ms|>e^cLtAvWT6VPrRq%2I}i>;roI0l4yZdl9ncr_Uan2_#4BTphJ_Le5Y3bqUvP
zWjLVu>w~0DFS_3(hYO0tcn`DjObB)3<@1w6)RB=+O+s%kDn8wqG>WGeP_wZ;y(mP-
zoG9?T3*$aec4mn2*5Z0S+T8|S-&j6#6(!&I{0>D@<XS$4qH}KPCfa|U>mj^(3DM<R
zo-T(|-t`w52MUlmwWxTfm@=ublwkilAk#?p#79bCZ(%OF$M=VNLt&QeDf)nOr>Ub^
zTQm@cDsK~0lhz3b*h!aceB5!(8Kmni#9KD%9P~Fke`tuhtbSF>-Pu9Wse+hnY_F%y
z!8)USv(5~;t%Zbh-4Bi>xQ+^k`}{~<f9HTv>Hqo>_?^a?9$c{T<Zk*R>lgD83F+e3
zhu<B6Fq(JkPF>rwt6x|6J3IZlo=xQ43A@sH&O<J6y=sjQzR%C$MO&_RUKTu&o<Pba
zT=wwqrk+l{ItCAaH#~JVlAM0s#~9qlK0kdwN&lt^L(=)_%Yng;gjH!z^vI8C+w;#i
z@!Qn3cUz4eXMx9<Gy}mt_0OKNWPwJVt8%gGoiM;$mON}l=E>#JedIB>Mx-2lb*~YZ
z2%e4!_YC*Z-yw9fC8;|7YLiy!ihJinM4E;9Ju!RPySFwHaE3Af{ROY@n&rGwyPWVp
zPow>-koRpcTJ=Oo4bcJkHL|<OqT_sxS85INq@F{41&tET#wxe}y1l2-fw_^!KNx!V
z8{@a<iP`wuTZg-nfeSn2*Rw-2OW5*2)BIx;FXoB=p_lq}Z*%xynf0yLML<vV4<kGY
z*{70z%88y8YL_*64&u!a$Aw80sVq$O`m9+b%O4l4x}r8=I8w7};GKj>2(=fc#37g8
zf(%!EC)UVd7n9EqZ<ksAjR#ei16(^G4Jg+a)Cx6tO1x-?@xeV%cRm&zSe`$=tOT$e
zQTh38OGR9Epi3BToc&cZmUjc1ANRX{)`L1jv)B5EUCh|$i@uOkZ?hfN-pXiFu0ZVO
z^Xtk3|7?4b>qknFa>)H$H<CiX0x{K?bo{I1xHFO1V!o676h;9HATK17xOGMqN|$-6
zzcsdOcm6%^XnD$IH_+!y?SA}F<{I7n1$0tD?dFFrc9Pw2&@OalowO!==ALvh3fS|A
zY4D$c%9@o#oA}}arXgj>z;KO%db1}!x5`(ePV{S>W<C_&d>y5(5nk7u(d}ykCLHjp
zjZE(oQ!W##8$QSL;r{u^n}D=+p|fWso9no46^J@ZhpWvjTnAIGTX#=~c~+PB%K%+i
z5;M(BNMQE$!ZXoL9u+PL%2@2_;_0IaPur$i+*0W)v>}4HO-N_G7gp)f6`GJfK|1<)
zUQhQ?nlhD`>w;O8H(l(zkYLc8HZ*a%B4$*7k4`dmZs~nl&E+k|30t2*G8*XY7nFmR
zkQKBcAe<{)v0gzXyRd3AO5Sv;Q|UcRO3aMc(0R;^v?i(>qmLhd_mml}UQM(ju)AOX
zJrO~Al@bQ=oR^7>vgVYeU9WeXF0&*uK3~C1!_qrs4^t7N*G3u8qwqkRO(Z7kR`>NH
z0kYTb^%IT!XKfh6ZpOQbYN8B(j)`N4wML-!UxQrPh<PT)kO1Li5!h6;pj`j0@Jq%0
zx{49^xZRSXpT<amAS40b%S<*XeC>cqH2|xQah1GkXHe)0lA-@_C*y~*1?}A`(c;QN
zug8Rh5(dPK*!5GBG35O^#Goyz?9`eA%3%He%!rz1t0+twt?d)qxyL$DbivSH%pV-=
z4kB{MNGcqszVFWhC^}f;WiuRpfU1UJCce>s!T<{qnuai>D<P63?$n#H6HYi5$K|HD
z_LSB-<!Eh9`GPGQI@#i`l3p;-T%hmaXG}qut07`LcEfJ7XSdn8cj{qBz+z0Ln3zZg
zOVk=39u!CikiO_`69FG<1Vh#Wn(kAsDk{75pG|sSVG?vkWDMhDQUpWlB+_T2Ut_9{
zQR2DvvXSBwg_lUom(bjOw_33#wPU$qByt`zFBdZ}iJCI52i0v*iG|3E=WR$Sk5BiH
z))6H$&<{O%z9fH+k2Nw7==bMYia@tc&aUR@R~%&qty(bG%v`;knqXXE$CzFVAxm5H
zlNiAt*SN?9IvaFOi0YTn_7j5Ic8*TeN%?(rY<i(d1I-s!AC_hvb{Ns9SRyi%OC)y$
zaz;qftQ;cbSI~rp7(^_k#diQh-3oD>4ob@R1iJ5kwF?M*ZYqT?01|N)XW}Q=m+Pun
z-xj421nCd|^pfCt@8HxwuaDLEc^lPNU6BOpQBfPmal)uVdzhmSVi;m~6|@H|FDeYC
zm#IO}-ebNa&{w=+I}~J~>R^br#flqvzFhIH+tT>0?GOEz7WQ;$K5>*5+x<e-1aK=$
z4mw^%*ie6Dq%7^SGWpy3eWfMq>iQ}MIev?cDp|8t9Dqqo=MVJX-`+6H{+yN8WMJ5c
zBV|yu9TL)UYi1D@j=K_%tEYD%?48otcvP)+`4tz35yiz1X)E}K*iuXqQi#is6YKr0
z{+pZPJ=RZDJRqa*>!E(&6j)I#7#K=_*tHn{IutjKj-Ad$nPTubj(jAa)wjO;W&AD2
zIUqroZz7(9UTMi_s46&D3A5fb?ubEDI?+tit(uvRNfD1;bn6A+DdCob=NqJ#W^h<*
z(8)v42iA-6b=9+`^mX!q!|p4G4F-jTbgpV~b7DEjz$C<%QfQLVbCJ$hzxV8q0j*N=
z%b`%^Ux+Q?loLA$0Rz(K!IHo({%SbR+|1QRgX-3RswEZeIF2D)N+?m_3Zkpf9CnNR
z*xGlprnp7r!Tpw%<$`AI?*o~|g-T382WzvmbRgqTbjOXuXA)Mgi8>-JuxZl_PGE$U
z;-R<3g@5-672n2v`wkM!nE#$RJu{zvtujI;T$Z)ZLFOJ6!9=$X{OP9`CE+=K*JLXp
zzQ3T8*C1Yh{h0u^_*lKaSWzEQTq3%;&s3FY;2dQz50|=@%nLd8yqTQ~{u5rJp7Wk5
z__Z*Gd#}VWw~nhjtf{%h-N8VIH^;(qSzy0(b1SyHnKRrlsk<!PQ@Enos*%^jG0$R_
z)@ljbsGmh|r6s20`h$XmWMB2#L#j!{<>KtfGP=Y?&U|pTPSkuY-CYAdssk_$MxDoC
zvvJIDSW(>~BT0hSxR0|3GluDv@VxKqzYeER9}an=TYMC1Pj78M9lLpC-XT@6cBXZ6
zR}9R3(A;HDvMFjU?q=D=3|lVVYZ7V^(hwC^q*>NwZD_ev#aX##S^t>+ZkAs-Q9EnX
zB67-iJO#F7ln}%v$&#6Wu1};~+^%C@qLft(baQu)<6b3QzFv#cAS!67`eh;GnmNJ<
zq|u!XQAyQH*nWej!7EUGGGAP`>ivcbNX5M9gc#a|EBbr{80ze=0`nf;_08_;A#94l
zji8y`w@SFyS~|!rH%m=Zed}$8EKMYTLX8l&o-1Kq4tviS-7t+4vgnAu<er+1OD9Ra
zg0G0V9w`#aUgZBGVfv@P6Sc;D6XMx$0hb!fvffYRlQvC4%dI^9AE%8<fVS5c1ukhk
zTaf<PmX6fUS+(*6f!m>SOR7!=2*ky>*cqki6G!CXu<^3D`NMkdLHww-F;y1loaNun
z#6U~xs*Lvhdz}bR|3$Q-{@KDt${RVw!?3;ecbya6`ddi=CRe+uD;wi(-RjOk%unWk
z-=CjjT{)L$_r?=UsVeCad_W&gsPy+6U>Neo8ed@CqGNt7*ON(Ioy)WOl2y?Jt8B;4
zdE5LAY~~if+8ve5?`3cAl)YI!!)fw!-zKjL=2u^HQ!!pzPMZ?Y)rXivmABGjb3y#9
znvAllnqqN$(hp4hwlCtF#au@ExL&UxGOarA*^w{c#84VlwgG7u(IgXVrxR}Vwy6Hz
z^<79pBQWu6SHzWc%NS>n=!$7H<b%wazl>Dg=#uBM3$M6TGztZ#ZRHv*d2Ppk5?+R>
zbm3h{{*|SoQP%A}@okaD#@SaYrbyR^b{^Ig=15nrz)v@67w9}BdYJF&=RNq^QL%DI
zJGDlD%Y{H|-pmq43VcO9$`_HHIkTNwSmcafq*x6&AN_1zYNucI@P@A3QrY`?Cj5M}
zMFz;6FF<5}oC@nHroYS8C-5HPIse5JV}i=4l1-tqbl4ATi9hRS<grk$`BokWejtR+
zyzA`ckN7|py>@T_>!{D9Im46a$Lzj??OX`>3l>A#M6Y7+EA3XvoR|@G4FQ?je&bi7
z1_049P!_|ucbr4YBDne?F(_Q~&;z(|elaBessU7z4eHlqGo4-BhY39FS9<Qyb&OMb
zO%1>VaG?Fn_UZJP{#MlUcT)oX1UbtQ!b}4esjkqfIq}U_r|+Bb$I$pG!v2j1hCR^g
zmlBz>Qq=j3HyQp9z<u`)+xw33`>YQtb14)y+Xk&iCk@Sg7O9{ehN!GuXz#i$sM4vv
zgAnd7YM~vnFgpg7%)-q0Nm=CXr~W&$2&{LRyYt?uBl26j*dch3AB?!+)j_V>9XV@i
z1;Cb(6uW2Z(w<M?I)uvX&5w@(6<JeIWZLH0dO*cJ?z1D9Q%itU+Wj~V!Z}|3o?`86
zJvQsgA6+Mae+B78Ha}m^HRDPB5$wsWCnbz~c7xIwpp|~_d#rs@2*dd`m)9QNg={&W
z@#NM<p1LEPw^}4Y>kX$>pqw?&`I>FLV5yfaT%R0$3p<ivdogYKX}&Y-;SJX6-SojS
zBm+O!nRm&OFyFK@xuRd+oD{*zv)eEGkZO3s?LXCY06SZtDbF13#r<*_e^15Pn@`&Q
zS<mu3XFVx2JcOtWW;~BSl6r0{xC#az=JV(C?C<ehONf=9>8$JVhB^cNT0}n$%!14Q
zbV%fjL~O;fJ)Yk^Ca|ry`23wlfrxl7ec!mXna_As+uu1#e4yPlFDG2o2$M~!h;(^<
zNcv(c7k27`+?-<-mItO4!APqdU8^Q&cXSUw+zr*m#vjhTOk!sCSI17s68dD!(Jbj=
zX^H3tL!)BTmUXWC#!Nj=js!xdQ+s`MfUy3)UFPEbO2?9JLF;Jtq@(MS+kx4HuoQcH
zqJjI;{XgFwk8_h7NnO_6=S%)XhnEx^Dh#=U+%G-`Qwckj!<esKbp&IN`c}PlF5E47
zi<}xo-(4h)?9W_sbu8!?`0%9}6{T8Sx)P1E0G1!ix0u=5%V~=5gW0%BhlhwjJ5M>$
z->EH+fmUDidF%HnwFgBDN%bU-`OAIa6WazfzWxqHaqcWvG6_;853ro*=u^!Oox{ED
z9yU=OkGlh{>(c0SHlt!c#)NIlB<)WLnUb!tdyRPG{yPemhK&3emy#kk2Fgdvl-@@@
z{F3#zrHp;`KbiBIh<lzSFSTZWCO2#C+R&Ip4pGraChZxHHcMW2Gq-Dk<KYaFeq6hR
zS*?kG;%1<de0jVH@b@~8S54fzEVhmbaDGY4!x~NMc(}q8$kIofX8ryOEGc%|tIamR
zOrqI0UqG$sOJQq*aM4x?$Sl?y(xBIz#ikMEt?LZow}f}|it6|275R)LQ)`Mv9Xk7O
zy&Xfctt)M_uZ|3ytowgSbjuew6NM*BO6cH7T6zsJ3+K7JorLFkvz-Q5xJmn*y>_q1
zuaSzpNV@{7n7(%JXE{~0_%jnyVc|mHezvbA@8`#!v0XzFa~7+0;jUtQDH<PpZ(!J=
znSoGryqWC6+?UiJTYVas`EvNUS|Hh<-qd%3u6cTxd#ya|%e!AbRr7=NF=@}Xc#S)s
zTM2|q-xpfz)PE&f#6v3~93>jA(5F0Qc+#^x1!cFqf6%t!n1asb*=&f8w`gX-?jkJ5
zr7XuKEF6;NCX#{ilI&wG$^M14S?ZwgdqH=}kAQsBuuU`?3jfBpdnW>W4oXYD3ijo-
zCWulZ`f29&A~*@}1O2s3G37;<3tMLFmez3F)PoY}I};L#Uu0YaZeZ9uQETS@v6+&5
zsctK&1huj7F}9_OJ=@i~cHp(i)TGMo=wLVnS;9|v_bH|jQ*AOTcqiK>r0e}V+A7hf
z1IxQl@&S0|AfODe!F9C<)aT=mF)viE3Z(Eko4#L@m8kH788>omEX`Y9`ryuUl^_4z
z@?qS6UE1CdY>zol4@{~}f8Vd;?|5(nwKeF2s@t}`^tQRS&mQrXm>=}Y%@UuH%9_=y
z+EZArE80If-k-m2PBWaN0tQz&Z8bxV(aWA7CZ5K}p!uoOk0VP{H=ea%JlEBEkIc#K
zf?DdNIw_B9LyG(6-`6eW72$?!L?cXuY3y@8M)z&T$jsQg(%nmn`|IjC&z?!&SM!3%
zOKii(meT!(TBOZ2biU5CzHS|Ubt!jNUf*(l?TE~*@|EuZM}gZu-wpL%#=-ln?fuj%
zEG-^dP1YBLr~ZW9tVJKoa{m3K!{Dj4{-zoXR$lMOwst<ej!+LfP6WXqiQYyPcY$oY
z7F*i4o1(~wi<Hp)#P&1Wtny=T%q3Xb(l{0Jgui$ca_O`7J<)uRrkFtL*yoH&XKOe!
zz+}Wf7bY<QmzokYnUyk~7IG51X{dv79bJF-aoCBvYO}fKm#e_Oe{6qjiqSGV$)3AT
zkD7Npg@ubb`5KOYgm&bf@>U#+c`$Vd*Kv{5zCswzC9-*s_O7|ieq3+)1?$K~I=fw#
znk@Hv7(rJn=UQ{GTl172dBI{OpyvGHbkUM|!FHZ1A+X7`+bhp<d()MP8?Hl}mr_z?
zS^T8j7T$%9EuZfC51R9LNjZq?Gj$oibAN85`D_gP+=BCzy6<G$=2XPzTo0nG(7!jC
zOqyKWxg~3Z8<(|Ap0=7?M$By@i+6~$#D(fgyU+G@hBCx`&QvAZi>ys2t23+ik`W{v
zcY3v)BxU+QUB(cJl6{jIdlL;tVR99+@udkLVjr@H^y!O54QmNji)$yHy<ySQ7S6Ua
z&}sPPQWi;>$eYXW#XF`wHW=Ftb%30TB6+>K(i$;vOL1w-4TrI3Z2<i0Sk)excEs{%
zI^}kA)f^mAaP6K{2Xj6YCD9pDx4C{8F$|b4NH*;F3k#26|JAE}xbfUQDQ<hdlH^LY
zpSvPeU)xZZvKX$--~S<c);+4*rl}b7^YYlI`8Aadi`lz1>vwd*6cRu=jSUsUlD!YD
zd5(tDK4g?8)9#t`kIh9&t&#;wT%2>_W!tWL>%w(s>1-EYWRBe?4Y$*;*A$Ljjg}pG
zz*_6VRl)$_DR();%+PJlvXIdA%&4HQ$j$TpD=1#wgYtb7b|Oa$3Ey3S$#PrSybxte
z_9+j*O)sHQ@Oomf(QftcJ|?1LiIQOv3boeK;ned$_^B#qhu2w+cFL1|qLZGE0Zm0=
zj;Ocph`yfn(`T=-+s~ixn)UY~;QG#l%@cMX|D3EtK_~rtXZseFapGobJEI70p*p<v
zoB^f)RW8#>zKSBgwfVYNeYfw9>&plFj{T9qi{^?bIAi{I$%<3HhlaBCmWpl7)^?+H
zeq{2HJz)_0(wXv7eT$)bJcTR{yw(^YCYS$xZ4yTD6wQ&seS`=O7<=4J1jBwu?K7T|
z^ccu>INF<3ossGMsbBoNkI@>>>UM0#yG33QIa&_a%a-YyP10F({>xEVVfCjJ@Zf=)
zVnu*5qW_G2yfBU(cF>eB<Xl{R(^ObNa!ol+@kWS@Bkj>#wd3ihiF;3KO~Ej=_j0qR
zJYv>ter0(w>2QSm^Qx+;huX4HuWg|cH9vH97Dl1QFLCcb0?RL`@{M}G=5B}=50gP=
z8qA+4avwJBgIZObKb=q-_?T+#nt*l>p5&zfUV;5R<RcAPRI;TBN@}wU@}F=`?-mkz
zOp4OksQk7PD6)zy^cpBjgH*EaK<5EYz`SnvGhktmB)@6jemGtQb<%qN&}or~yqMH?
zX3Gcuv0Ej3pH(}p)yAzxpK-C}<Yl~px|>+|kmMgrpA#{&?cDjK<~x2&sTqj-(S($O
ze?m@_l;R_x{4)OU&r)3dvDe39F7KmO0Oek@&zPBA0hdO|fhqS}TQ}okWD>M_3JIpF
z%&-eE4lx<Dc}m!JkEh(<)O6VIUr<~On0*#9P^XJa4d0Zp1-HfXer#~1+Dfo2(<T);
z?2v!$o@p9#JJ$tO*YpRl@=BD~q>AnMMy-<+8v!lg2AX%Eo_cNQ3UXF)6ODCG>vSYD
z7l{yXycpVDLGH)jdoQ{k-sPT^srfwVN`RMPP3sii5qN-p_(OKcsClnn(Rk4pg*>AO
zN}3jnxrBSp1YBMZ)oEwVr`u5|)wFGYw>)N%laBWhy%eTybhvQwoW!65%yrW$bvxN7
z*64|HCD~}-_Wr{WO;)??QvA*jji_dxvD^IacL_APH|k2SB+AnxCq<cPEFa=qJd0&2
zjI3d<*GHOM66GS)dJ&pK(TBeNb7QLmN{A`SYXSMF-rIHNB>xB2RlWRb-i9a3+gzt@
zO3AD}F#o_}pTM?0=IG8EJ>~qv3RrE{7ctYAOdjhS9n<m@arn&QXhz`Xv#6x~d68Dp
zIHTqmls6I1*(AE(C}Qd(<O{4XxG!axHIN=fik*1orv!lxY&7qrFu_L~J=;gY7Ju#=
z$Mv-CCPI8IMK}lASwqsbMHFYbcP9#*yvg0+32g1WZkpE`1J`6%0`?*5+;rD6qhyBy
z+gtPnxHjTb>*^)TP4ZExEZ6F1_sML;(+>`3jo|3x#-m?XkBXZi+R*+hg#nOLyiAC;
zgkrJ2N)6NAUhRs69d5fsIW#D$+z1RaM4e9uHA!jRkdHUoB3HibHM*Ca>6D$8FQ5B?
zr<%{iIHA{me*6VY$09@HiZ@N9+G7P*o>^u0i`2qIWfZ$5ims(o;lAH%vYJ<#goIdq
zN8LHM7QbJXA^;($ibAgNmdA=e@;Mgm&Y6wgD_6DbXvZslT=RZ@d*OPx_HkaWH=-Pf
z1xZ`nq~j?YKfi$sw|M;#<~f}UkIMz-@1o~Mc{$u%j9&SE<98axnAb-wYq__|r<vb|
z*fMf`v^PC9AD6f1zInf4vMg6z;ogiYUMn5O)4BgxkLayri)tq=E0))>SLwDZj8IJ9
zUpnh4NSE?^*m2utko4Tu8QZVq8zRo~l}xsO&FAM99~P7rAMe78)lqI*SjW^iI!~;G
z8#1q$?8qvG6dAqS=p-Th$<4eQiMY(w*WO&}hv#1V^|wF%w%9%%NXU7jL3T;^dA;G?
zue2D?4pE`GlWfj2EU}A%`W-e7>+#y_+;t5!=s<A^hhp!$FfEJDW5lCE-mm787Iqg4
zaEbn5!RRS+qa&iuz3;sR^y5haGsN2^fxM*?j;VKPY*D<|$Bm8bM9d2Ny|-2(eRXa#
zE6L3%#p=q8{K8KKTPbW(h%2G#Qj)3r%xweP0HT~_*Ih$4C#Z(I|B)G6MoFUpW`FS!
zm@S3ZH=a_WDcUbfjIqpGvpjLn4acVcR+LEZc0<aug2+<Yi8}mnH}@{VmpeV@rZ8+<
z!2ZLicepxNZ@TgAf_N#Z@<q%MkY!d<0#h%y+b;^KP)z=_#bc*jdU{2CXJdg9m`c$w
zz2ciM7Cxde;+7Sne(9c)3{<%Gj+|Lb=1)(q%LVZysJr<^;pf<#L3Q(oKusX{;e}hT
zYbqj%bR4?+bbEz2ebpm?AU-tI@x9c}!rR;EB<1KERRrlK=42Hut?w3^iXNFotZQa)
z-<h$_igu_=BrFltWJNB*_9s-2pvn9mhc%K}@pGH}Ey+tsY0Fx(!(t~H1x4z(kE5q0
zls2rq>D<P8hW}qPXC4oA{>O2V$TeulG0eKMxpR{UIR>H0RgQ_V#JDmha@HcE#!3`p
zBWGAmZc60H%{Ue*_kA>u$T1ARnYEkIquu@e_xsH}zK_TJGtbBCbIkiYpLxvtc><XN
zgWwuSr;?mN<#yx{=oZ`R6(e+TvtHJkuV3Kg%xK~hIdF<|W=d#dTXPLfx0OC|`f(`f
zD>Rm{2UOqdzr9@z6p$6(!wU4ub??C^#4(?>XRorWpvnXHG>oITE-h{EXymdc8xum{
zIf26OZcpx&h0Q(@(`66TpTNJii$tGUF%FM63vQAeX~e0c1j9s;n=KK(Dj2wHWIZQ(
zH4u^DX#-yfG7h@jpr&X6)tJ0`He;QzGtz6Ca<^s7i`_aRWBu;t55)k6cb)Q5U<~w2
zfq>uVsXVL7?7}w;(iIMDaAf3CM&*d9o_kKN&YAM03||Ag<@T*Vwrp%ke~3H~o%gg|
zKu*`VSGmkXePOyvx>vLe4BgV>LCh&Ptef5JJp%9fUCwtH5`?nZz2BvxCp9yg0IEo_
zP8kF#U-W2m4_JIZ)iGs;$ZTl`dC#{+sJM2@Z{r3L7mMy1_awwwoy}^ttyn;zgN5|Y
z<s*ZqO3PS?cDX3z@9D3$1e9<_Mb433*&VosQDjn83tuBwVh*A1i8FFULrP<^(>_T-
z+}AT9)NsK<&!IezML}@GFG(dB>J=XvfLwKCLAUc^&18|ExMQMmG0|XS!IOL^_ZlaM
z<hR_Df>61jw)Q&}tMW=C)6;m>*%TU4(Qr%nbhdvf%Vt~6SOqabI~Yw$QUfYErKfSz
z#(%m~RL?Hu(VIH?3PcjhIY|ML^ajSHG`$>xu98wp@ZJ#Z`HeAW97^XlV<m15xJ+j=
zwFqD63+a2t(t@lZp4;f!^-|nz^AoPr;Kel*t;8ukb*jRZXFgTG*Y%8r&|d>6T9L3L
zU1+GaQ;?r}K#DN9uO>lt){DJSuDZPe#h+a}!!%R0;-=O*6{pVMz9U2C+-Pr*lS+Ev
zJRusO*19sV3E{yltMTHz6nHfte$RQ==d*B-0wRR;A*t8q^LY`<LIOyD!Ng&O#ieaa
z;+yTxCECcX4v{%uTK(z;tz68~2BZ1hC?XnbB0Tcb#I`MMP8Hx3P{{l}V@>Y1nuzpz
zz-_JSh3xsWBDvF>^&ND`f{{JV0T4T4Zo|{4_8#dUER{U<A|>&488KB*@K(LdQEV00
z$`lCZMi>t#s5sh=RAOrl=sScFM%~s9MUKA$Z)|ksweX{{L4J4Y9!WQv`d^F+jX_r-
zgPtbVM<)*f?`nHn{EP?g$h!oMsE($ecnm*%OE>DC)eGjXGKPhR?+ujOEz2Ocn#Z)p
z17OwW&GDm8>dMSY0VaeGW>awxg893)#ssk~b*q(kiV<-T8&<B7zD-o6uV={Gl(av7
zVqR_!Vw*pQc>rJm$LPlB(Z%RR#OQ7C$1G~_pYv1m-}GD4k4XZ979ZEytAOI`LcRU0
zSeD}Jwx^agRRXP8T6=Y;T+^Q+2;$i4of~lf%OjsEx3;h$v%LUJ_HrCQi(SxG`{Sj+
zP3H2}*q)FHILy1T{6>MyM(YaB+LPFHSFYg8igYlZgZ|t(w9dquvyJ-hl?OA5!`%e=
zHMwlk7s>@}^?C~i95A7c4XkPPtlVkAVBgsH1?_MKZ^{eJn4O+s)F4bFz{ler8ekI5
z<?@_9sLfgQ8e(#+&DG91KMfu?6kjNt>h>h92ja&{emgl_sZ6t4XV8}tK=sbO{t=&q
zGdiUaIbfcXAGDGQYkPFd;@E_|PU=6Jy23_}4b;d}QB{(z1C!FrioflLa{tN4-qGI2
z{-8?|k+k0rm2WxVF`)<y+OTAeqf<E#x?(r(^h>df?D-z*xT8<1c#HL0!%jm5PK!Pr
znHODaoVGI<?iS#a{}L@SOkDO*Ju6g=ybRUxu1oaF*eHNyBX8>R`=}@lvNu3p{A4TU
zy7zk6c#Md-b4tgs)4xaPmeSVr^E}Be##&f7N{d4n_Bk*dAdf@k+jw^gXl#qXT(y7g
zjH1^u$RCt#y48QX@F?R4x1ZfiN^**)vVZTCo$ph6b!-XWNA!8YQDl#~En|sZE_~>J
zc|4s%3~+WOq7ZE`ry>xH?y?-5TsCGz>&w~;FsVM)Z$)wUeW`!Y8)e{tL8L~pwZcMo
zVmz9eC+k4hiiJtP_cNPsddsSBp17}lO|&*ZmM87Tm|+s9`XqBUTi%28ajIMcD93bl
zze2hB(K!H0g)UsrWj^kR46<I+Ay&maFLfuyf0t#5qo2d(LvniX=^bX(i(={hxA{)z
zn4-m_evm3YF18bGXeU|15X#hT1B|M?UNmm66W-@`O2Hg5Gw2)kI%L-=trL8mM#J;?
zZ*z3)srXYp5{4det*wUM+Jwp0ey>xGG}k`GVXV8o00hy^i2QMwr?p*^y`hK#uU0<o
z1sQXRpQHQ5R7%i}>b-&ndZ}h}8)f-(FGmcDxhH3%@__6pU+ATpAD(^YurIm)sFpQW
z6{u#^uz}Fz+KcaR?5;m9lfGtnfjO<UJcD=S;q0-Jxp&kfsi3j?hVz<SNTKAWXJGe$
z>~&Nn%4G&_>Ea7qxMj6M-_?<GL|~VFqO~-zWJ;nT(o51cJuHveWD6-N)`p2ZDhU7a
zgeuAugRr-E6*;M2^PIc*dZf5$ac=7Tvr2buP&!vcbfnL#xmgC!nBIz%@CTzu(XS96
zK(YMxJPb@{R_S*+85d7__HfTCR0)g^C?vNRXnKG2PY`&%>zx#u7u4(|8nw(Yrk!Ow
zfVMs^EC`*@7W8`Bsq{IkAj`MX@BV17EA8n#Xe8hK&UJ|h4r5vA0Vc<e%F^a*VAw~%
zGVo3NdKKE(D0A*;5FeiQl=YE}2fjBz{IGN-k#NW|_p$A(b*aud;TdlSaJ5-4f)YNb
zI$njsFPPPNd2&ajGvVUqzFfzB6f=e$?UBAjGogLbB(aH*=!uCfIHtyhdJ$0d(3|J=
z^lvdMcttM2O~s}_f;QcFIr}>!=FUe}n}u4M^!9d)%`Y{s{K~kfxScG{H1l2vdYZGm
z%F4<XZq525h(FJyOYr?$7TSsC{^9U!t$@r9?lV|>?#ief5Z>_T&7|kXQr3x{(d`}+
zurscMX+bfcMeBx2Mi<I8Sz|Y_O@MVl&W7hydW+QOT{DIsT{Cd~$x`OFa;Vd>Qh&T6
z_iH;?VT5-8w~20^wF4rOMoi}A1*zxvT|6Gz*1W<m0WF*=X7S0kQ4YsxRx7f+2FA|^
z<f#>UT`XGoM1K+Xj@Lu_?KbsQr3eW9H5slbW#}r;i?py)M#~tn-)@c~oO?Rr?_k+8
zi53xvAu~?!R&hX4FJ6OhFGaf1E+Q?&vl=An=B)b2@*W$)!^t8L@a&<4qvU(Hc9Gv*
zUs8`I!JJJtG;>Xh8Z{&RPa336j@{rA9*WTtCa!U1=;-?zLTKb|n*EfH$WAUJmA2JX
zNL|M3J=v=rTL7|4;mRG5#CuZTt2ygGmC5h7b^m?E{6Fb_b@-;Oo8_Rb8|CBThTJdp
zO{9))@<s0I4u=|ggvtO1kqnQSe_(rW*`5Z)m|M0N=66ODwQRUUcbfIwjpKzT9ZHy8
z^n0^7o2Z@cCay$ZV7xzgv8mg@)la<VlaOGTbPq=4q}6BwBE2U=xA(RLum{4)8n%WN
z%L|+FO=Zq%Zh5j;DxulM0fX1%NJ&i5%33Q5Hq)$>#Xn+Jj;g<R-t=Lsf9>11)bjIC
zUYWFfY<GZCorT{bM|p!slJJ1?UFS^@!yR)bTF-9e+v<3Nj`bzTbyE}P4U^Tzy;04l
zMi8U%;n2GZ>Kbi5v5%AMXFBMtvdiTsio7(NsE1?d3WZ8&-=QNcxxMj2547MRW|*pO
z#(5TfWg8Gzwc^-C;@Vi|P-dr<NMl0Lb+AshbB1JHbd9&jfNrfzRk_qG1JE>de*2@$
zRSSlhPZ{|5wN|QIt@#atkMKOnwAwSNG(VQBVV-$pRo<U<fnWZ(tmkf)`SQg10%`$h
zPt?r`H}@hnDGf-nX#B$UJzDZMOo)v0_aU`lOVUto!*AD*`@1dJf3uYT<2`tUnuF%=
zl#e7q%Kqa#UX%Rdt7e4$s{qo}kPJA`KT?WSSg8&G8Fv&802DGv`mZubN)lODLTOJq
zO!`8?{uzbBSVI3*%d$`UzBc7JMJA%=Rc5LKiHf<^{;<gQlz&1{h9PRkQX;;Ypaar@
zg@w{=!b=e*;|}gSq(e@YZ%23_MWJ+toHzuHXE~UwLvj#$s=pK|loL<Zj8G=zKLq;)
zKrvl^j+K<~zu=Pn8<b`awnN-2q@w=Uf>J0r_Qy+hfKWyxqbMVS4xw-))VEq3QpA6y
zk}V39eg(iGY69EWfcrVg6`7uj?ARb*l<~+Q%6L47K)ENr7w_MgWIF=oIpOf^c>=!;
z_lGNCfA+|(1j=~ig9YWi^e`#}@)bpS)7(dqj~U;hC`WpDA+n6WH`0Hnl4~htm1Q|J
zf9@t<1AZ;1^i+S{87b5K!J)7SaUbGHUix0T?;>fBkxL&N=_x=<MYTeDBNf$u0N$@p
ABLDyZ

literal 0
HcmV?d00001

diff --git a/EduardoHidalgo/german/metadata.R b/EduardoHidalgo/german/metadata.R
new file mode 100644
index 0000000..4bc5fca
--- /dev/null
+++ b/EduardoHidalgo/german/metadata.R
@@ -0,0 +1,81 @@
+## German credit ---------------------------------------------------------------
+
+## Nombres de columnas ---------------------------------------------------------
+german_colnames <- c('Status of existing checking account',
+                     'Duration in month',
+                     'Credit history',
+                     'Purpose',
+                     'Credit amount',
+                     'Savings account/bonds',
+                     'Present employment since',
+                     'Installment rate in percentage of disposable income',
+                     'Personal status and sex',
+                     'Other debtors / guarantors',
+                     'Present residence since',
+                     'Property',
+                     'Age in years',
+                     'Other installment plans',
+                     'Housing',
+                     'Number of existing credits at this bank',
+                     'Job',
+                     'Number of people being liable to provide maintenance for',
+                     'Telephone',
+                     'foreign worker',
+                     'good_loan'
+)
+
+## Códigos ---------------------------------------------------------------------
+german_codes <- list('A11'='... < 0 DM',
+                     'A12'='0 <= ... < 200 DM',
+                     'A13'='... >= 200 DM / salary assignments for at least 1 year',
+                     'A14'='no checking account',
+                     'A30'='no credits taken/all credits paid back duly',
+                     'A31'='all credits at this bank paid back duly',
+                     'A32'='existing credits paid back duly till now',
+                     'A33'='delay in paying off in the past',
+                     'A34'='critical account/other credits existing (not at this bank)',
+                     'A40'='car (new)',
+                     'A41'='car (used)',
+                     'A42'='furniture/equipment',
+                     'A43'='radio/television', 'A44'='domestic appliances', 'A45'='repairs',
+                     'A46'='education', 'A47'='(vacation - does not exist?)',
+                     'A48'='retraining', 'A49'='business', 'A410'='others', 'A61'='... < 100 DM',
+                     'A62'='100 <= ... < 500 DM', 'A63'='500 <= ... < 1000 DM',
+                     'A64'='.. >= 1000 DM', 'A65'='unknown/ no savings account',
+                     'A71'='unemployed', 'A72'='... < 1 year', 'A73'='1 <= ... < 4 years',
+                     'A74'='4 <= ... < 7 years', 'A75'='.. >= 7 years', 'A91'='male : divorced/separated',
+                     'A92'='female : divorced/separated/married',
+                     'A93'='male : single',
+                     'A94'='male : married/widowed',
+                     'A95'='female : single',
+                     'A101'='none',
+                     'A102'='co-applicant',
+                     'A103'='guarantor', 'A121'='real estate',
+                     'A122'='if not A121 : building society savings agreement/life insurance',
+                     'A123'='if not A121/A122 : car or other, not in attribute 6',
+                     'A124'='unknown / no property',
+                     'A141'='bank', 'A142'='stores',  'A143'='none', 'A151'='rent', 'A152'='own',
+                     'A153'='for free', 'A171'='unemployed/ unskilled - non-resident',
+                     'A172'='unskilled - resident', 'A173'='skilled employee / official',
+                     'A174'='management/ self-employed/highly qualified employee/ officer',
+                     'A191'='none', 'A192'='yes, registered under the customers name',
+                     'A201'='yes', 'A202'='no'
+)
+
+
+## Algas -----------------------------------------------------------------------
+
+## Nombre de columnas ----------------------------------------------------------
+algas_colnames <- c('season',
+                    'river_size',
+                    'fluid_velocity',
+                    'max_PH',
+                    'min_O2',
+                    'Cl',
+                    'NO3',
+                    'NH4',
+                    'oPO4',
+                    'PO4',
+                    'Chla',
+                    paste('a', seq(1:7), sep="")
+)
\ No newline at end of file
diff --git a/EduardoHidalgo/german/utils.R b/EduardoHidalgo/german/utils.R
new file mode 100644
index 0000000..c04456e
--- /dev/null
+++ b/EduardoHidalgo/german/utils.R
@@ -0,0 +1,32 @@
+
+load <- function(){
+  if(!file.exists('german.rds')){
+    german_url <- paste('http://archive.ics.uci.edu/ml',
+                        '/machine-learning-databases/statlog',
+                        '/german/german.data',
+                        sep='')
+    german_data <- read_delim(german_url,
+                              col_names=FALSE,
+                              delim = " ")
+    saveRDS(german_data, "german.rds")
+    print('german.rds se bajó y guardó\n')
+  }
+  else{
+    warning('german.rds ya existe\n')
+    german_data <- readRDS("german.rds")
+  }
+  
+  return(german_data)
+}
+
+german_decode <- function(columna){
+  if(is.character(columna)){
+    unlist(german_codes[columna],use.names = F)
+  }else{
+    columna
+  }
+}
+
+german_clean_colnames <- function(x){
+  str_replace_all(tolower(x),"/| ",'_')
+}
\ No newline at end of file