From 5c1ad7185f78159e4ffd04c32ea2aeb0cc4f5dde Mon Sep 17 00:00:00 2001 From: Alex Date: Tue, 7 Oct 2025 12:16:47 -0600 Subject: [PATCH] Working on 1990's --- Data/Pop_1990s.xls | Bin 0 -> 41472 bytes Scripts/Data_Load.r | 27 ++++++++++----------------- 2 files changed, 10 insertions(+), 17 deletions(-) create mode 100644 Data/Pop_1990s.xls diff --git a/Data/Pop_1990s.xls b/Data/Pop_1990s.xls new file mode 100644 index 0000000000000000000000000000000000000000..d8d219dcc7a1660f33fe1e0953a9f21c1d958585 GIT binary patch literal 41472 zcmeI5cUTn3xAzM~1wq7|MjgZiVt_SZ1~ChYU`{Z=5F`u|M8tr3%{k{BF{d@6Yg}_) zbIz`7&a3bFp6W8-?C-hvkN16_dml%;dip!n-Ss)A>Qr@g4|C#p?(6f`7P%oZz3PfA z;?rjvk?kAZg5I}O+YW+0|NI%7YTbg~ll1fTKga?$*5t@+S;dR8N3-wtq_^bc8^Tho zvD!_k5I1S*EaHTf5XsSzN&5d+uligDg9XZvL1n6Akxf{TmPO2@)Lsh&&>~qNDI}9bVLfjv#2?_LiQUZxp8`Ikl(MLTu)JF0$e#iim@h|8u{wsP6R2 zYT+f~MWir@Xz_phQwuupb|BM|`Mgi5r2qcuH)YPWZ*eP~$SMj7QL z_a~DC-=B|*_RT5l)%$wVYN9;(|LaNB{$I|kcIH!m-SfK0$MxvdXFacFlA(u=D#rRt z_0fOUQ8mov|2G{+HJAT?vu+{uz|&sJp5>(--e%UF|3!EG7v1GwbQ`le&c@}@e}CRD zdQfgH%Gg+`dcygG9R5Y;Dnq*u`#yi1uoz~QMnO9BadK05$Lj}O%3qFSA`#lG)S_y}=ET6H?otBN) zdD5(Soi{BzuSJ^Rb-uK$pM$s;9!!0E^E^0DHW3hEG$y)1In(nS#U09}ly8(@M$-5M zHF&p$H7!B}MOuiD;l00S_sW$kQ>DeGT)D}WyIlPuS5@Sys$5l*tLk#) zAy+kMr5()6zo8ekBkzVS0@?&v3(+tkF*3%GXr#K?u0u=TrY#!VQo*Bx4Y4VD@7TnY z975>zK8AQhOr%kt6C3`fkSM)>WDjFJw(CcR>zkP3V>vS&Pp_|UNQjJ;S?edoM-y%$ z(aVog;^{3_Og$MOIog;a-#0KCa5SpRdVQmKLu@RaN?$H6v7$4TMXzrhZ%heJijJ0< zeM~)!^xh7i_>$3#@dB=nB2V<)@NrFK%n6D>@FoVM} z)Yzzb^f1IG$P=@1d?Q1XjZ_~Q+n4JfOgwc=~jc828r@kOQlA6IchmAHGr~*-A;PW>y zqOcNXrnPs7QdY- zp6yL#Ye(jzV}8lm!k8RlNJu0*@M+q_;Zve&7fJq+jQ+-iiW8}#nG%g!&k5h5x6>yi zlK)-xAqe6rddM+Ju@t7M8AOs0_qA^}#2aO=`(8iJq4RK6$2{jwG&VmX*49&(zgr?qmmh- zqf_+p)WQ=erzNxFeVTdV~Mj;`3uUJELN&+3DK_s0Jfx28oVq#p)N|lU;(8wMY z*?bj~Qz|AUIDZ!7g|)a#UZ6T7I#J#4PwSbq-a~5}svnhT0F+AWd9;2+>)e(?gpo@} z()u*5-_g1u?HrXwh@G^)P3v-q5HvQKOzZ8mrV*AXlU0ZqT2G+$by{bm(Mnr#d2d=D zru8#g*P)sgLVnp&O?F?mErqSvWGlCY zC7Fp{AeH{Hwj=}b`dRgQW(7A5oDVf3 zvsS>2MpI@#kSxDKkAg<8)8A`DtrMO?VM=x}jw7s&Dl5c3Wa_d?uB^xP&Qg<&f#3>~^ zDZSrcG`#Jn6l+q9^F4icK2b-uA?44tPOowwS4s}D(*9EZxm)kO=qbxxJfVv`igOU&Dg7(n@jTx#YHNrD>H6A8Pbe3aoT|&AwwFW-A3&TC*YU&C{hy zft5m=j4FBlu2Ntnj|H#RHg7pWJ2I@)-L#^IF-j@0(qZ2R!&_8S3ape??%BlJQtz}2*)I=| zIZnyaT`6EW?q0Hi-F>Bi(OTOD5JBT3ab# z3A=5%Y2MN>_De2i*-t|S_ys+Pj(Ro8;viWv4D3^kU#V{7D$;4ZQ?RChrO?XkS2izJ z3RtdGzPfm+eTbF^EICdrD!MmaDe%h_zed4T`h;qEz*2K&qJNgpN&!owt=s$>I~%n; zV99lE^KR37rGVv3;V1oSct{opW;vy?pwH6L*g~@8mMkx4@X>Ic;Uqd_$?%-^Kq+9U zRjAL(r*<>7JYXphUa4XqE2V&?e_Eyf{hBHTER|2>Nv(WTDPXDFrqz?uSCs;m^X;C$ z?$|>qV7dI_Rb<#>rGTZ`Ip0T}XU$~4e0?Uf3?kyW;RSH-}*%e-ty_ZtJ(!=BOq|M#uGfN(3xm!xIpwH6LKgp6;t7EPC z__(Q0bz|1pdUY$b(G;*ukN&$t&0R_X%e5OPuXJ&1tK|X9FV(BRm~u-gU^zGQ^M##9 z+i7{ga_acn*U4SlYYJFK&fIi+(om&<qgw~#Ej z($L`!IrqZ2wOc}@t-6dJR)2+3&!b4i8KfCHjKRbP9*?>67_2=~u@>X5G@I+x3wtJB z_mrbaT(9VORF4Qr<9X`)JxiYCQsrkWU21n>;k-^tft9>-PhLNBvr=HC5htS7En1@# zSSdZ%(JLEIC@?+r>|5M~0P3T3+d#r>jz6rOi?MlkP_-1y-sxed{rgaY})e zu2;zDdUoe2wo-n!(tCF~?n0lXBg;sS7myzJlRbC=X6e--zx#xNN&(BgE^g_=uP6m9 zp01$hX%@vbk`xC=dqj=U_bR7hG$bZ3@AY^77a-a*kFlmaVdKR@Bo zUn`XYD;>!{bn39^cx^9O$?*A~ryRLz^^dLIgN3s-=ES|DI zEy65iw>ZyxUqUJDm(bBQ*MAJ-GZx`7tPD|U1kspSF7 z>Jbyyzr8wwS#->@mAxTrfvifN7AouD@0gL6nyC;K}%2r&A>)7Q&*Ecx5k!`;i`{i1~i8Dzq zN&(B@m5s_cgvV<~2Fs>%)>fWJx-&~LW@$!KBw)czlune@Sc*#)|2@2Kac0SS|KzU5 z`IQ2edy{%REpmRhmIo|Xf?iK9on7StOQ&D*7tZ@wf^ta z0>7LKc=u`g0i}TDm|fMZhZiaZEVs*euGKHu%`C;4W$Q@Ef<8+p%4sYmB#WmUhm>HJ zP9w|p{N2!+OJ0Izvz$a#tFB$94w12?1h*IaYL70umsSc`)(wAdku6cis1iK3&sDfl z;jm{i`jue6_&M6d-ttolSayug`sdoIe%iUfk|V-rU6+$BH3cj+8gI*&zPSanl#uO( zN`GF|7vrfLZf{vgEEG#AUq@b!h$Hk4>G%JnmiZIRVe9E=ndec_XJyt9`!j2Zp_w(r zqRblFbY=~0BeRA&mRW~^n9=CD${%c6%Zygrj8?~tR@aPHFO!Doq9;v<=RgH|FuiP% zduMYC&~uCY_1qkH%fd=QiyR!5&~barEG-YBOR=zntN-Y!6tu`YF~4=Pvr!77OD*3i zmAc=M*JpZek!LFPc~EqiQqUsD7uwe5VK$|pMRu`h`rzPbc}=OO@|G0tw=Z~_TFu}V zspl5?o`w`)LA%k>1F@3DQHw5ehQpCr8r1P0v#6)+jU73<%p1Gs^zpTQn8lH!i`&}C zhB6D30+uB!eFHxiQVLj#mVGv{<$2k!IxTksw1u2z!@Q$t%V|8%L0;$g zS(3N@EkYra;Xj4Ua(S|H_s+IxhMrzTJCJqDQAjO(4XwyxU_TZLZ!e;MFTHq zS$IY%uu>V*T=(GqE5OHbSW?~dh~$1J6I-s{}V8MEK#Rti`?hu(b`rd@ zd`F^Ez*2DG=2v-VC1~q$EpFzGvjPE1uSoq=D*kZ*k}s;QmF2bce)$dGzBbPrNT-K z*=nUJV6pGqug}L$mYM>V3cV+0S$^|#J=~WlO?RH0#I}@YerGzo*A%ei+A{QQ(VDO7 z!SLW*XWw<3KHXLHvvtx>OF0gEDwPlyVtCyyL zWr+X4>)z9q0+ulcU5EYCQI3mo7lmln9t;F;VzYJp*XJ(mAw>RK%^dLIAk11JP zwAyRnGT_MxClUGh&FChv!I}b=85aka-Q7pd$hvSpQnJX#g#|jw`BxXNy*u_lTNCj{ z&bGR6?VVa6F?`7dd0p$mwbv)>s%E1r$~kEl_DiWJ+wN7Z6sesHEFV|RPyXYTQo!=` z^UkMd_H<(w7iQ_DU7?}}(a~L4$x>dj92v()!}A|bV%Vp*{?9fm1uSny_%3;OMJe!$ zWAR7T0#7Ifez8p+;_47QUONu_Vqab4FWf>Y@XN8(3yn-;l>)z9aD19zIZ`QL`Q&`q zc~mE*fTgsn`|A&t#xqNKW+_9{weSo2ES}TbQRc2Pa_?(yly40 zJ}Yp%Iy%EpaKA|@uu|vxS$#eoR|>3@vH04?#iis`Yz6jsP|tatQYR?|Rj}hPboMG zktQQ#MP_+!xA5J&ElPpMS3G(+&T)rQz!G}6;iBK(D+Mf9L+;-_QbESmip=8ji_Uvx zPo;n*_u@u%FN{(OST0u^I$b|fDPRfizq0O#K1uE~u^dLHc zF*H~zNfy&K_6wf4a1vE+ZK)73L@8kL>TrK)RIpOO;@YatF=HR4fW^>hY5cVjNW2v&Z_1z7FFh`(k3Ex z&wz_c0n3O}DFe^-meHv)N0pmrcaLcOUMXOiu{zKD^l%xkDs%ttu=B3-;KND*%VU2F zdkgnaW~t09lPx6+`Yav33&t#NlI7iQF1Z`CT-f zrGRC4dV>l59w-GYkBWJ1pB~v?+Y2l;CU#wt@KGsXDO$#^XWgg)S{|@mvD@9G$sbAq z%k4g%rULqbS{|_EsTlae)N>%SxHHQW8_9w`ODAxRhzR)$vC#P6!>GFdZt3(~72>I}LHC90nq7%5%gq5mDD+S3r?N!)Hw_l8QtKC8=@c5$l z`P!^&uM}7*y01-;?I@+dN)vl;+urtz0xR7JuzhlAn92hyISy?-D1Ek4V5JFJR_rcY z#KbnK!nHT0^s37N=_(Jb)T?hP-z=@=o&PFqrDIy3h#o{IaD@z(s**)S^U4H6E+{eYl|Ku}4Y)OBtuK_nU7~3Rv#n+%{_Zlzz-ojalAn zBW?6qI^n6YRF^DyH?d`^Gt01zPG=(XCtMEk2m8hU zdi_3Eb}9udlV82On^8u_Z4Zw2yC3yiYMiYUu=r2@c+Ei@i+XT-v35_GSGBJkoqEuy zp`>_|=+N=?N*V1vm}RjR?a^oHXvR}Ul^VoC@!`-q#FI2m&v81M(=6+uU*`9Y{C)zb z)7B%Zc&w+W(#%Ii74#rF;Y}%8VohnKx$>!>nrx-eJ*ioKKc*B|X_d=Ow`Y%KYpuyG zG3?IXP0tF+)>@OTl=sE(vqxfOYpuy+mFo@aOzCx0De(AIkB(J_UXd}RCfD9j$Hk57 z&5`Z5CR@q0e#D%&uap8SiPW6y^E{7ZkJn@?sd;+zAUe@NW2q%s(tO!>wU{L#ani@| z2R@nt7MDj>huxd2Jn*<}?%qkxn^hjvUe6=hf|@i|dEoKbhy{`3?y5Xs8FKXAPJMZm z2Oi&%(skIwbxJ|)?bO)0#gj=&0ZaXn-HfHK`Y=l^X1PnH#~2blh)y)rSZYg_uFJUO zwV5UGUGSC`x0Y%O*WUbBeG=-bJYebg>{xwHW<8Y$ES3ZOFS%}43RnhI?YnKza;1RfT7?ZAV)HCxmfFlRo(3skL7$})jVMK* zSVz`gi!G?7UY!2Q=~+$({|4P*E7C+xS9AL3R@B~#+o<-Aj#af6J%~;;rWCceuC&s0 zS*p5hrA3V+>yCM;6j&*v^p;kI+AU|h)#cioWWQ~tT_hA9PB3Yhe_Z`P~nY^AzvrRU^o zSP4Cdj_e~@>PZ$MYkoau`SY*sftSw6_EL{WLE~q1m{@d;QsD8kqx8aVtWv=8aID?& zN%xfkmg70@-7B9>9T_ZT^NxSw{z2sdOS|=Vdbn>?3Rn*Lmfg6$ol?N^*RKP!y1AN| zrJk(4)W4sn7TCHlJ%nlb{k@p4_g=of`##6lJ2%LIdo!M7jm-Bxyv%5bjG6Nxre)R; z8!~HXW0^J7)yx`dS!NC1%B(dtqct<5H8-PCSpMO7zGk!*X0(=OG(R(1D>E8R=KgTr z05e)^Gg=!nT3a((J2P5)Gg=2T8g=PEl&_N+t+N@eiy5t}87(lAhBoO*nohu@h+Li= zxq>b|qu4Yz*K`Rkn_@ErJ%K+F0lId_E`e8 zG}(IP`6HDFtv!0k9|dQfR|;BtjZMwo78$J+wD!5bUhLkysZ!9|E9`v`_Oe7* zZtY&&+J&H-)np~KKAk{)21|X(k|84n{s0cmZaj!Rzu!SdocbKOHoZRH^lpk$z+zp$ zxJ`u%N&!o${Qs25>MY0Z^?3~8*ZX$SzAcmjmR6gG_88bhDIA5ZgV(=IQwmsCk6Bl< zUMcWPwOww5 z*5`Vl$Vet9|j!i$GDlmeFD9rE}ed7~7tWQ;EQy2Y0~ z+@s9Tf93Ttl?N;?{-vLGJ@bHByxA{7Hy^NH5bbmV@dGRkBume+T+Rl}QYh3h{o)*@ zfThGeU(2}`MX_9KRjW<@9-_fF+x2 z)zMeZDFrN@50|-d>QAMB<@l%zgIhlu$1Dwqr7S(EF8zWitrLiQXo(Gpg|4fY^3`&? zL)6y9e57gCe;~caY45|(cOgw1#_z`+#u&ol2(`pbx6~K{v0f(-Jz=FrY^7e*e_>v} z5nCzmwL{lR7MRX9X~ebn;G4O*UNlzSezTQN)iz>} zchgBLp^wrDM18O{mL3<8T!zNXvc<;t*qXXAngWl{?%#KGrOC40H5Oo5Zfx3ZnL(nPYH=*vfI!Yo(DKdN=s zPhQzJVZSs#e(0fyL=SdNzppI>_oHV4^#bMfU zz%n<;*tu~XrGRC@oXW>o1@*+aI+e*Kn z&(aBu4)9qs$ue~bAFUa)SWNkp`}gHaK^=QOdj0t49h3r=LU|5NpHy5aVCnsQLe#~2 zN&!o!W`&M+E29*!%sI2=`uuH+wR3@GO5JbDPYNQ((O@-zf$0r9R;IK9JN}+ zEX~+2vCfhOeU?sOR0Edg-_^0^%rd&#sx$xGk+rTl`z6$J+T$B3N&!pfVeyOCIV%M$ zInQ6-Udvx8U}^2xv722*rGRD7+8MdG%#m%OIk%T4~n)%ICHZl%C4wNK|P{<4vL3f)JxeGAEgK1(MsiiBT$CCeHaqkNeqWOuNubDQp5 zDqm)4Q-0qJ!)B#`<(ES97S*gMGK}k;d6PrL=NBq;Zvz>dQQ(o@;K!r_^)#)qUzI$B^i= zbOK{&SgED7QXv@)TC$bItlj&bEKmwsqU|!DHOcle^0ee=-(Zzb*M&or0*_a(X&X_t z@<_IAOOB99b<5n{rQK<3$yVx->ug}JX(|t_G;!IHsF6370*^OZIVAhTyGntTy5@H4 z{M1g~Gi%9Knr|;Xjy_8#F!l$FAG6FodzZ`L$1F!?_dYkK(mhQ9i>39JRXw7V0*_ay zGe5Y+I;DW6QR4QNJxj{bnjf=F_TIWKcXg$p_O2f1uxhV|QoyqObF(^YTPp=DgWC^# zIJKHmz*2hO=4zX(-1n5_MTAVNbDzgu=(BY66ryBlCH-<;&V03EmSzqsHZ-WO6tLv} zyIkq_iLzgA#eNxEz_;R)^l0X7#kF_rG~<&q_DVtRExx_nq_O{W)AE4D>dLR@_nwhG zek+bDB^J*dS7cv=mIo{jzgC~%kP@ybV5z#GOoIVUj9@JsoD=_QL9elGl>(L>`L7h%^-;#{0A?wE zA@|kmCzJxe*d}bfpG|vKJb>Ga(R)JbpNTTI2e4mG_1U_8^?4cF130QI)g2FO`9?nN z5x~*DLTuT}an)Y_U^-o8%1>|1<3+p0B3$T9Yt zUzLwj3RrSh>+Lw{uu{-o7IYd?HcQh5+FoEOTg<_-R$rySFAZH2pA1{56!@h_)qS~> zuPX(9DLve0L)pKS0>7+W<($nf_d;$jt(m27Iq4VlSvrAhazw~B#6qL=Aqyz(i7oSy zp5wGQD>_cYI33Pu5T`R2U~KQYz|&F8F0ID)=s|P>SN5<{Tegx&leM=kTWLdD`MA)b zlbN?ITd7H@y50U;lqC=s|QMNMmUySv+M= z-Husu^zcpY9M_In+A&MUtLOGT_A3P}W0s76KFwe41(x*f?zfxwR|;4@PQ3BRHIMA6 z+i~qpT=@4|^$oIiTzlhspTFNAR^_CkoGrl2MI+Wir;a*UIvfMt5?8b_KuFRdwH@piYHJ|lZM zO#zF0(xXDbgIqKPeyLU~_Z_bbu9^bB{8Qr0h?ZL`Y6@6-p6ilz)SSwi0+yrE<+nHU zbz_$H%z|++Wq1;58_K@E3U1?WL^B7{;{u%oong`Hfgj%=m;RVNquy@QTyCHvvhO6Wnpeh;^k=J7&&#!k%A=A=h~VTENK=)|?R z;nqvGAp=WkdBF1K$dbJ=wVgEuEDc*^uUWIM^j#X zZP}Sy;*)@u<>r=AdBAeuVyC(HODF{_HaF}h96zqk1(s>2MfW)O9?a62S^8?DQ}iG@ zVboZBPaSLf$whW|2I1T1>08+7!-#hHar{25K5?k#?KQc`9 zBj`bNBAimR#6ZpCa!iH4=S1T!`y$uyGi zH=`w((GtyQNoF)evCOtgHly`4qotV9dYREu&1k*NXno9Rea&e7GHGb-L8R#fyo@#( zB-><=Y=J@CCS9YlG?=?UDQJ_8ymobRd#@C<$s&V0-`>$uw#gtK&F>oEey#Rfr66*R zEb(CbhG5xBgSbuJ-E*w<%&f9a2Jv`k;|RAbx3?$-k!zG?z8N-+WGfBgHkmH&PMJM9 znj=>bx5>#_WaL7-(a|60mn;U!VmF?nfPq=Y?|eHY?x~zBH*oKG(s*`Nk(){Z%cs?s zUN=0Y6vUUN86^UpJ}3n&FL$pyT^ttM6tF~FuL(-l zo-8&nOXQoyjraT_pAj}N%ah!a1?^oY(5m232R+_%@? zODSMk=uzoIa9O2*Wm)~n%_}ui3RwOu;@fFnZKZ(4Z`Ytj`PwQ4ELj{sy{*(!DPY-A z=l02Cy_JF!D+Mh5TI7%K*>Smc9I$xLp6QfttWv zW0n!6=1)DeL@8j|UiZY}3;73XdBD=9Q1FqGqm=@dHj_H1y??0`u)H3ebK01egS5TC zGGuMJ1E*#w1uSL!{M%pMtQ4@6@p^b?{}rWxWzV6>`O3W=#4KUVGChZ6L9eJ2=zG8t zE?M-0`HbPrvLbZrC4FI~fTcn8yCL2|N&(BX8Po6dU!xST1VmS@UG|Yuz!K7TXz6YR zhG<9T+8gWPG~Zn*V9Bxl>YCO0l>(LnE)}hBSSbZ8&$dr59CmLovxGCtYmEhQUPpfq zUa~|;mU4&rj1kPTc+8ldIlCwYET4{y8*TkgDPVDJ(6;!V1xK{Kz%pv@j#C?|9Mu%C zRGxGy-=OtM0ZXG(M(0xcV_F`tyqr42x2va8z*4HF$BZl8l>(Nb7sn>{8GnpfBADg* zYv~und7VICk8x@wvCxR~(K@uX(Dg`XbLz?8ZK6>%DI++&!D$u#KGP`vKGR`*pJ@PH zkjNQfL|q;I%!{;AH)*9HIqTGoty ztTgfX;W6XesJ&pN62+fbuCP`Ltkj|NxYA;x6^;3sU_Kr${m5RT3vO8_5oZ;%m z{YdiPhvTht$QiC~Y$Y|rg{Z3&80nz)MoE?vvIRvkORu!S4bM8uwh$%fZW>mpf7(+i z@c2;QL&i-&T4YQCBB0LIX>*WJ#1gY&5e>3)#4++cl-Y zFO74==}P9Dz_l)#{gVB!tCb9MlmeD_$6^ov88cDK1HUvbwzApCgGvF5U#gAQh+LDj zJYX4A-`JyBfKuR>4+pQDiJhqwjw)r!&Imd@iED2(v*gj{p%CYF0wYV*-WaaE*I(X5 zEp2m)(zIbnJ;x#y1Ci>JI4#f01LT~0<|bWbWz4zh=_uxQx#=luFQTqaV0;QI#nO=- z1$}vzOCHNsI=o}#5_eOSroc+W&R%HvGOrw)#j=$Ky)AQOQ4cxBi{%kr?ZBL#H!{Ms zyCKUxqn0!(MdzfLR>cHw|_cCgIbwe8Hd-UpZ^j#&n5kt~S1I)UpLuymI!(@*if-I?WMu62`= zJ}U(*BO`uw+*RYWmIo{$wt06HY^)Tp1lo?fzr|B2U}>-~_x*KW_5#b2SBB^^Z`6^& z;(gP7e3k7=0n4Py@f&)sQVLk+_8l?Vm?r-URd;6bFD3s972>>3;Q9+J@v@FNbmwx$ zGs~9cj**rPlmeC&`y15E>ZcTD`Mvh3yuT;~EN6}#TszfDDPXZ5y*6&oS$Y38p09xB zZm2zHV1iP>(yi7^R}1ai81Wn-?>!9YS>T9#4lJId{o7Z+i{Y%%^}X~ z1g;ywk|0?`EVCpq%dcf)>f66n3Rq&s98V~kE{~tUZU3V2;~!(~WT_Iky;Su2qfb$H zrGVvTo-z5Zwp9xJGGtcO7EPNd1uS{8*7CQhrxf^Q``|?o@G5Ns!_|4j0@Ob#@d{^r4+@dM4Qfjk@d2`TH*tnmR#2!zNE*Skbe4D1gN}}wb z)K)LIYYMCswzU4}yQAa`brO5ree1{f**V6?*C_>7GQ^g8@@}nCU?u0CH)l0Jsua|v)JEQg9xmC>R!U|o9a}H0gs7_%X&OsU z$uf5qm$N6c__+R(q1SlZn?(f`pSrGTZQNB8G9=FDc6p3Ks$xMV@p z)rtNZONwNfIG)Rp!Yum_-dkJuq*B15Ki2J^Y1!qNCxvV8hXU1G#J*E`z>*vtU|Xz= z$^(|HcP39td9Lz+rG-bk9*@Z zK`F3OmBTh2X3tUztYmFm@Ynb>rNBy`_7yFgI9n;OQjS(t+HBpT6j-VJko=WB+9a^Y zQ`t&;v`B~;s1t)Umfn&jb`!JoW|qS1-2+`LlmeE*yV5^zuAmgK93A!EF-IY#fW__c z-AHRorGRBmkJ*9Y_hppp&GAZiX#eds^OXXYJh}3Wsy|yPU^&y}NqEOeN&$;_^XigU z7I}A}H?!oRM+4ToCff>SZueF z$4}Aax%4<DHCA*_M@G${z2_R=QhBS_x6Nn4l0Zz|v2$%pJ|;?8huKhV4Ie%tI+)S={|*jYy+X zz>+2EWwB>_M`?S3Wz&p1QR^=&1uVthE?zQVyi&kYyV1fdB1kD#+Qr}|v{(CCwPKa8|`zF{@id-Ybosu-N zM&=oJM8V7&qDf{AaUipX_LNyez5G@~jZGu1i1?LK_#%ybQBK6Ru@LCf)5sUj!g^uI z-rbYVvVGEMwBRhRwQPIx++w9zk<$ADxl2WWmvESIBLLa&>F3)a5%C%#2wwzm_lpIvL+P=Bk=$4-2dX+}La1qU- zEch1#V6XD@7bkxFhrhi5T39c?pj&p7ACVcq8DZ|9%niHd7sIvO1OG#A9Bt5l_#Eek z_4A7nl%A)*IQ`UuCUVI4CFyTJR1|tq*D{aTL{Di7;fX|h6{BBP$YR4A7BpPOyT55V zLhv7spjoef`5_ty-a{oLsZag?_MeJvo&L zn?b%+$NTS_VFGo>|KH5;4b1;VGkkNFpKpJ#z^Bi2y+HLY^9xn#`rtXw-?fZzSTW98 zlrOvfLS@qC(vqDPeC|n$6)jC@p?b>?)aIde1TA*7q|rh>0{;SMURqD31!uZVJJHCN z&MSXZobHsE-A0S`jig^jOu%m=HtZQIvfEw@Px?IV$k^U^pM~E4eEqb* zPYe9Cz)uVOw7^db{ItMN3;eXePYe9Cz)uVOw7^dbn76=xy8gF3d-UwgibWkJOrh(4 z*LSOM{ePbp%(&tD-;b7Dw6v$CAT79kOV91_4P0Ei526Lv{Ud3iXJEucS}-3llNQVm z?4#w|`2czjRs`Ue!u9kU+1f8>i>QPMT-)0h#gAUf*T1cc(@BvR^Aq%w@5V&8uW#MI zzWqhmQAV5?lMpx<{q8xP20v!c`~RFvAe;Pr{j|VO3;eXePYe9Cz)uVOw7^db{ItMN z3;eXePYe97vH-5*aVd;zUfj#aJ$XD!gKKEq)5oXkC;R9WBLZ!DV*|TJ*Fy(o&KZCt6C;Qks@Bw3MZ# z94*eYxX@Cb7FSv-&{B~WdTNe;*vgI8?zH?uOBGtG(o&6<>a=*!QiGP7wA7-dHZ65% z`SkhoXFPV}NsAXP^=a{@r2#DsX~E}>Y2AdDrnEGpr8zA=wD{73&;OwX>;LI5fBK4z ziDqu}L>^1)c>an9LH-wC1w>X0WdqbBy){xHGB~Bb1NzM?Bb&)Rou1Wz-IUyp&K^%+ zQVZsCL@D{dyr!SL|8jnm<~tPsX!f|5vIGBlC$ y?=SkXGYbp)813i3dj7gN92yV3vQn)x(HEpq1|xgmzgHgmL5BY}KRZP`|Nj9#rMqST literal 0 HcmV?d00001 diff --git a/Scripts/Data_Load.r b/Scripts/Data_Load.r index af2147d..88a4851 100644 --- a/Scripts/Data_Load.r +++ b/Scripts/Data_Load.r @@ -1,6 +1,6 @@ library(rvest) library(tidyverse) - +library(readxl) ########County, Death, Birth and Migration Data #Data found on the page http://eadiv.state.wy.us/pop/ @@ -110,21 +110,14 @@ CITY_POP <- rbind(CITY_TBL,CITY_POP) CITY_POP$City <- gsub("LaGrange","La_Grange",CITY_POP$City) COUNTY_POP <- rbind(COUNTY_TBL,COUNTY_POP) ####################County and City Population DAta for 1990-2000 -PAGE <- read_html('http://eadiv.state.wy.us/pop/c&sc90_00.htm') -NODE <- html_element(PAGE ,"body") -TEST <- read_table(html_text2(NODE),skip=21,skip_empty_rows=TRUE) -TO_ADJ <- sum((!is.na(TEST[2,])))-11 - -?read_table -?html_text2 -?html_text -TBL <- html_table(NODE) -TBL - -ST <- which(toupper(TBL$X1)==toupper("Albany Cnty")) -END <- which(toupper(TBL$X1)==toupper("Balance of Weston County")) - - - +if(!file.exists("./Data/Pop_1990s.xls")){download.file('http://eadiv.state.wy.us/pop/c&sc90_00.xls',"./Data/Pop_1990s.xls")} +TEMP <- read_xls("Data/Pop_1990s.xls",skip=2)[-1:-4,] +colnames(TEMP)[1] <- "County" +tail(TEMP) +TEMP <- TEMP[1:which(TEMP[,1]=="Wind River Res."),] +TEMP <- pivot_longer(TEMP,all_of(colnames(TEMP)[-1]),names_to="Year",values_to="Population") %>% mutate(Year=as.integer(Year),Population=as.numeric(Population)) +TEMP_COUNTY <- TEMP[grepl("Cnty",TEMP %>% pull(County),ignore.case=TRUE),] +TEMP_CITY <- TEMP[grep("Cnty",TEMP %>% pull(County),ignore.case=TRUE,invert=TRUE),] +TEMP_CITY