From 13b3aab00ebdf23a0c98371ead36f7a8bc9c8597 Mon Sep 17 00:00:00 2001 From: Oloo Date: Wed, 22 May 2024 14:10:46 +0300 Subject: [PATCH] Added readme and benchmark --- R/merge_outputs.R | 83 ++++++++++++++--------- auxilary_info/CLEANED_benchmark_RGQ.xlsx | Bin 0 -> 32521 bytes auxilary_info/ReadMe.xlsx | Bin 0 -> 16793 bytes man/combineOutputs.Rd | 6 +- 4 files changed, 54 insertions(+), 35 deletions(-) create mode 100644 auxilary_info/CLEANED_benchmark_RGQ.xlsx create mode 100644 auxilary_info/ReadMe.xlsx diff --git a/R/merge_outputs.R b/R/merge_outputs.R index b91d621..974bbfe 100644 --- a/R/merge_outputs.R +++ b/R/merge_outputs.R @@ -47,14 +47,14 @@ #' soil_carbon <- soil_organic_carbon(para, land_required, biomass) #' ghg_emission <- ghg_emission(para,energy_required,ghg_para,land_required,nitrogen_balance) #' combineOutputs(para,feed_basket_quality,energy_required,land_required,soil_erosion,water_required, -#' nitrogen_balance,livestock_productivity,biomass,soil_carbon,ghg_emission,filePath) +#' nitrogen_balance,livestock_productivity,biomass,soil_carbon,ghg_emission,filePath,readMe,benchMark) #' } #' #' @export #' combineOutputs <- function(para, feed_basket_quality, energy_required, land_required, soil_erosion, water_required, nitrogen_balance, livestock_productivity, - biomass,soil_carbon, ghg_emission, filePath){ + biomass,soil_carbon, ghg_emission, filePath, readMe, benchMark){ if (exists("para")) { para = para }else {para = "ERROR: Data is not provided"} @@ -107,6 +107,18 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ fileName <- sub("\\.\\w+$", "", basename(filePath)) }else {filePath = "ERROR: File path is not provided"} + if (exists("readMe")) { + readMe = readMe + # Load readme workbook + readMe_wb <- loadWorkbook(readMe) + }else {filePath = "ERROR: ReadMe file is not provided"} + + if (exists("benchMark")) { + benchMark = benchMark + # Load Benchmark workbook + benchMark_wb <- loadWorkbook(benchMark) + }else {filePath = "ERROR: Benchmark file is not provided"} + feed_basket_quality <- lapply(feed_basket_quality, function(x) {x <- x[,-1]}) ############################################################################################### @@ -679,40 +691,45 @@ combineOutputs <- function(para, feed_basket_quality, energy_required, land_requ soil_carbon = soil_carbon, product_waste = product_waste) - # Flatten the nested structure - df_land_required <- output_list$land_required$land_required - df_dm_required <- output_list$land_required$dm_required - df_land_and_dm_required <- output_list$land_required$land_and_dm_required - df_overall_soil_impact <- output_list$soil_impacts$overal_soil_impact - df_nitrogen_balance <- output_list$soil_impacts$nitrogen_balance - df_water_use_per_feed_item <- output_list$water_required$water_use_per_feed_item - df_water_use_for_production <- output_list$water_required$water_use_for_production - df_consumable_livestock_product <- output_list$livestock_productivity$consumable_livestock_product - df_manure_produced <- output_list$livestock_productivity$manure_produced - df_ghg_balance <- output_list$ghg_emission$ghg_balance - df_global_warming_potential <- output_list$ghg_emission$global_warming_potential - df_biomass <- output_list$biomass - df_soil_carbon <- output_list$soil_carbon - df_product_waste <- output_list$product_waste + # Add worksheet to the readme workbook + addWorksheet(readMe_wb, "Land Required") + writeData(readMe_wb, sheet = "Land Required", x = output_list$land_required$land_required) + addWorksheet(readMe_wb, "DM Required") + writeData(readMe_wb, sheet = "DM Required", x = output_list$land_required$dm_required) + addWorksheet(readMe_wb, "Land and DM Required") + writeData(readMe_wb, sheet = "Land and DM Required", x = output_list$land_required$land_and_dm_required) + addWorksheet(readMe_wb, "Overall Soil Impact") + writeData(readMe_wb, sheet = "Overall Soil Impact", x = output_list$soil_impacts$overal_soil_impact) + addWorksheet(readMe_wb, "Nitrogen Balance") + writeData(readMe_wb, sheet = "Nitrogen Balance", x = output_list$soil_impacts$nitrogen_balance) + addWorksheet(readMe_wb, "Water Use Per Feed Item") + writeData(readMe_wb, sheet = "Water Use Per Feed Item", x = output_list$water_required$water_use_per_feed_item) + addWorksheet(readMe_wb, "Water Use For Production") + writeData(readMe_wb, sheet = "Water Use For Production", x = output_list$water_required$water_use_for_production) + addWorksheet(readMe_wb, "Consumable Livestock Product") + writeData(readMe_wb, sheet = "Consumable Livestock Product", x = output_list$livestock_productivity$consumable_livestock_product) + addWorksheet(readMe_wb, "Manure Produced") + writeData(readMe_wb, sheet = "Manure Produced", x = output_list$livestock_productivity$manure_produced) + addWorksheet(readMe_wb, "GHG Balance") + writeData(readMe_wb, sheet = "GHG Balance", x = output_list$ghg_emission$ghg_balance) + addWorksheet(readMe_wb, "Global Warming Potential") + writeData(readMe_wb, sheet = "Global Warming Potential", x = output_list$ghg_emission$global_warming_potential) + addWorksheet(readMe_wb, "Biomass") + writeData(readMe_wb, sheet = "Biomass", x = output_list$biomass) + addWorksheet(readMe_wb, "Soil Carbon") + writeData(readMe_wb, sheet = "Soil Carbon", x = output_list$soil_carbon) + addWorksheet(readMe_wb, "Product Waste") + writeData(readMe_wb, sheet = "Product Waste", x = output_list$product_waste) # Save to Excel with multiple sheets - excel_output_path <- paste0(directoryPath, "/", fileName, ".xlsx") # Change this to your desired output path - write.xlsx(list("Land Required" = df_land_required, - "DM Required" = df_dm_required, - "Land and DM Required" = df_land_and_dm_required, - "Overall Soil Impact" = df_overall_soil_impact, - "Nitrogen Balance" = df_nitrogen_balance, - "Water Use Per Feed Item" = df_water_use_per_feed_item, - "Water Use For Production" = df_water_use_for_production, - "Consumable Livestock Product" = df_consumable_livestock_product, - "Manure Produced" = df_manure_produced, - "GHG Balance" = df_ghg_balance, - "Global Warming Potential" = df_global_warming_potential, - "Biomass" = df_biomass, - "Soil Carbon" = df_soil_carbon, - "Product Waste" = df_product_waste), - excel_output_path) + excel_output_path <- paste0(directoryPath, "/", fileName, ".xlsx") # Create path for excel + saveWorkbook(readMe_wb, excel_output_path, overwrite = TRUE) + + # Save the benchmark + benchmark_path <- paste0(directoryPath, "/benchMark.xlsx") + saveWorkbook(benchMark_wb, benchmark_path, overwrite = TRUE) + # Save json jsonlite::toJSON(output_list, pretty = TRUE) } #end of output function diff --git a/auxilary_info/CLEANED_benchmark_RGQ.xlsx b/auxilary_info/CLEANED_benchmark_RGQ.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..3809cb392474c65ec0051f919c5da0071eb39430 GIT binary patch literal 32521 zcmeEtRdD6nlBF5S%yyZX%goHo%zVtu%*@Qp%xssLnb|H=nW4<=@x5=}o9^h>5&b(c zqmOeGAt|-Ba;?l%?k#yKP%u;=2p}jRARt1Z5+^XlU|=AiDo7w86d))NEg@SQClebd zJ!N-06GxpNZq`-=1z;c)c|agv=l}oh|6v3sRmN=k=@GltPWgm?st)pFsG#`^r5Z(o zy#t{j3=-AT&hYPEaWTlNphY5zA0|+=9MPgY%apd3jT^%QM>nRM70bl?O=YvXB!tiG zYV9kKh>u&SaKfakgGA^)zEm)2d-MiX(gF$yZsZgVb@_|wo$+X{qIAko|CpwU*WQ$8 z_*t=KA~3q9^eP5gz|LKC^{P)vO6p>Cbty73s*=o9IB^vPeHyENCl z{@Ou`3Mr}u>8_0Eo)Dqz(N2rW$}D*mh_RNjQqZI{V(WOk9vPt6uXF|wHupez6~#OR zAGdWQ;<{oK?0*P4ala+P@6mu^<(BFtLplC3B%qb*bsP}_;~CU01M=X{YDjE^d5Z3q zgB0`SV~^$50m0b`mPuM!f}7z-9PO1$vxOPL7sZnyZ^b=bD;2QaO|f5g>G{&==O-wT z{C`q!vkE=&-4`XLzr+dirCvP;6Dvo$AAkM+f7Sj!EY<(;=v4_aas%|RAy?vWp`(vW zTXBejQmz8xorKCheiEAq&C!J<*jqj1IEc#M13|@nyM5lqH@3K=Pe%zK_L!?8kx{vb zTU@I{QeW(yA*sk5Qbg^mb_bDMmhP7x(#0g*DO|c^sVdvb@}>A|A$>ldjyCFOXu4M8 zHEKn8|NLD=$&ACi&M?P;lgM4q*sAwdII{=k-HTQ>YgCbl8TpBEMr?#M@7`CliTTe& zw)-F(^g!k4^;ke8e%bcF6$w0=@fiBo5l?U+pzlCXz;0G_|Imr6t%IeZt*zx>N$#JT z0shK#U+4b6y>%tYSPal320sRG3z+FmxFEC9#y3I-TWLK4_2YdaYB6R=Xzl#$FOCKk z*uu00V+!1UWe#ZF@O7qr1&WNGOAr$n#X8$s(lGDO)y+^8z|}z5B3v z{8mlm3Vl{0_FI`*QWxcZMo?c@sFa?b$Bd0K`U16mUbR5&Swe+ik6t<`+v568G7%SM z?4sW8V{Mk}=(AZygOvkE+UJsg0S?BWx#<#^MyUlP;jI)NhZv*vLd|jA_q%8RcfTKC zzO<y?|H!8zQWPj5BFC8!t#N{{%b3?x&4+QO}M z`5K*hwqWA*G5dk^cmH(8vmm}rUmni=Nq2fIGiJtJu9K(d^Zn2hh>MADe}a+x?V;(q zYRLqC2@^`$ji^fqadE68bIV+C+9fB)wF^q>of5zgEaZWixQ)=)U+wmCs|o5Blu4O; zi5V6{$gQ{rS7^_uMm)|Y>+7AKitB424N00Gy3$gb7N^lHL(o<+k8O+Y=cI?&mPwJ) za8AB6D1dK~?i@$=6GU*1HJaBnd7WFC%B!%+v+B)dncIC(Dd_^B`HCrR4$eSy`j?kd zHO<$fMGM&v`p#`pTT@IJLp5JLzvY*f2L7Rlk;_aZITiFYhjZf)+aDX?yZo%xqkZh+ zmkgynoYB;f5Sd$L&74OW1XI04_v*8#MB&XXLWnsibuB|$;FVAPQIi_!-rWp{w)+o04P7>@<$-KJN$jDI=X!gtc@)Hq0Y`ECZ>a@sd-+KbEP;!l*yxFF9 zn@PFBOPRP!w!0|W+2^+KgRguN13Ff&AL+u?a;I1mBZu)DUv9Gj1n6ap+A;P;W_pV# zm|N}PZA3?t*?6jgFDq@c8CAfzQGuC0hQ=ZV7Rc4HvNI+Ig54k9OY8tXST3wy*#`s1 zj%wa0Y&g3@@6C#7$Cs5ZBFLAFo2&ciNB?9^d@%3te(PjV9$MgL0z3;{nvcVO*e$GK zUUE0i*}katU-N#cO=FeoSH(V$3j~Duf5_)(W@6&xNcZ<2^IuUdNkb>GfF0F)r{Wy} z^(v5rfT&oueAGtm!p8dIe1xfbRgu^bn1_d_$H(?3K|8_v`|Rn|n2fBAjY9$ruP@#7 za%)w^?M*{d`2M=8%UWva+t>c*GuJcfy6RR@s*uMIy0v+q8H?B3)1zE;Ta)`{UK0%? z|4^y!COH|$XtG2P-|>hhmvKuM{{$lqG;>hC%2WyO>V~^sYP2J0=PiB3qURxWyn<6C z{KG$KSB-6(J?Lx2NU{~@S*)|4FG+fqht;cmdo|*fwY4j9uMKShkw2FHt>wA1u3 zy2?SS!hKJ>(-e10`lzZBa*@`XnQGzwOvTSwn1|0!Kk{rWua5Yj+VPpXNmT-E4CZvi zL}q22+vS-)YR8m z*=c>DcUD4UEEncPwW)9d&s*GCQ(Db52crP2efzMh)GU{!!R`wB?V#g9Z2b-`xEE&k z)vOamAUD=2i}l1pA=wsP+CEQ3Pbr0-q=UtS-U_zEV6|9=XF5xxg-2?$@!TUtxK%n2 z-`Z6F?ryp+&tsO70m3@Xc2NDnVJZs<8zThibcMdTr+Rbf09(4L+mMI>%wyg#EPM^# zpe#H*lwRq;Y{h>SOn*NGlgtQ8pO^c4EXx36i2!z-%udrqrlCQAY|{Zx;%ZIowT$q* zn6y?fP064#kC zJR?JM%SZx1Z-@kQz=dxC2-imHgL3K2KK(_vF!HP;4Jicd_rL363W2^ui6TPEL(cXR z%i0;S&hYZb86XLm&nvoA%D*TEbzs22Cc|!}2d-e^{&KHD*>hR~UVH=zbqY6}lqaie z!Wv)x1v#I*B&b|GCN3KQ(uhXD)4|SFj4k2K>58ad3d)bge*440uzm^HiSrTn5yJTx zq6B`7?Wb%#XILAfd7^sSaDuYx9&orWcE5u6lWmX?1Kh=bd{@yC9{a)bd%WZpm6f=$o>ldyupI^1EUvWV zPsR&a=JZgdkqeXd^HKdanQ8oZ4Xf}YsW!60WSN~(t<6mj*8Ld(Mf34AKAu=Vq|!k>A@X;^FhS zbVlZ<>+AP4;WiA|E6K3T({hP+R9CDJPY~&>Ifz135V>S)gvG80gCi2q^K!-AQCK(o z`Ag2F&C5CDGMOB(9Tn{;fh_UJf_#ebt1a`xSD{Z;F~uh5(i}j2RL(#SLZM1Jb)(0; zb>)97x*bW^Sy;cZc+@53)$7O#a_eaevh(Vmp!FsK1(4!G1hEamE)7j~Q#jJk+g8hH z9Tr<#u_YqfQbFG-SAv8c!Uth}4*&zTVO&(1)CmDy4}Q2ZXqhizB6)J6WS|wH>2w{h z#{tQzgQm)L?%(cun+G4$2>=ZM`|I%qV?p2M zZA;QXC*6x67?SxLZU^)!E-R@8vr%y2kJV%Pg71pY5%A_;7Pr{VZ@6@w$A4m<`9~65 z`W4sZ)I8P(D6=%<+g`d1V(HDvWZYqG&iJ z-2fapT3<}4J(Pf0csH9(?F~_o86^230xJYaE-yx7zWP9)H_eH1Q{-`Cp9+o1XQzqU z`SQ+2;8zdf^w;z*=S^0(7(p1^ zv#cE4_s%I))2q>TDzfIPRe<$lqEyqGmWWSwO zi_gG`tHAarT?tvzpZc(!&CRBCGkBpSi}leMqsG7AUaSeBrD!#fZ|Nm6Yb#lKSF&jGyh=%K5%e z45(?mEBGF`GXcSUz27~}F|Qn&DdY3q+~z-wTl)A@+nPA@GGCkC^H$WV__$ePXUi4N zK9&~V=C{F?hnO4|6nc45$2@m%`{dk82_-8(pUn0?oyG2HI$9qUMt0ohzwF<>T&U;N z=IwdfQ)TE?&+q>7(k8n~ZQ%6c>+}AE9S$X4+4{&Y(-f z=Hcl=w}Tu!52W(-#NmaUp!tp>#q_z=YXr`ypC;fd#>^N){d$Oh}|=U9vD zj2>KGxv2{7_f|J+Uc698TlDC{HRDmb_r|yN!=YC(&;h7!aP=5WyXP0n>=m(V9N59k zIK0?H=*5B0Kt}-p0p`bbRhB%jr6KWH1nayixZtI8XZ7?6)?r)DrzTd4((Z8=d?O};6B9=kVgdE*G z%EoJftG=}jy?78<(x^k&k!vaiz(K!C>jQaX(yEt2*nYa*;EVG0=86q>(UbY*;-ZXB zN{$3EHZC*l2g6$1Al5Ts?W>{I^LLX_*`J9p;z)bD4j`oof1d*(yxD*W zEaKo0xs7J5+i(iW%3m99YGUHN6S563&47}|*tR-_`HYijCF0hYe=KVC72FYy>J1DLTwp7`ZCjh|E78sa>3&2rYa7MqXd1QFT$gaTc4H$re+; zZKN7Ee8{HCaiNBefha+P5Uf2jxp%Zmnq+Vdt#q&(%39QNJg8d7n%Z+fpCKu4sI8fp z;p*nY%LFW|>+**OF%cFzQER6GbQJ7_uwqztep+im9Q(6fl!?VLSPc3$SnyCZRFt=E z%s_=3PX@Sdn4rld(7?CVwfMm>@etDINJjz!dPW)yXn(&5>A56i<_w6$b~e1o4MHMWIaddFnOLS8D1_}&l^kO0-vtn_I9J}ieTd@`w z62JhHj67EYCem0IiSwC#7dbP7SteD>$VsYdpqGb^eY(@&h(WRdbB%@SZ3*b5Z1vak zUyQ~Ohva3aVXc+CE0U!MZ^p=zFo96-SalgDh>TRFg8@ipELkheDkEGfC=^6IRgx+S zq>;zSdY=&_h79-$#vD>JHyR{TGNDGK92Oxrg4pIH(W+JEMA58O6srF7MGyn-2n_1% zfAl3YP;7Ku3XL~8#UxtKtx)p2u$ki2hf#9x#m4?TG1Eq^WYfNP)40P$yr9gkis_u#Y9@!Qg z9++ZlqHk>rwTp^bW|+rvFI&il4U#WQLWl^5l?LSOIRKPBG95RC#!-cfAl~*VZ|tgn z2nqR(Te5+zt#se?@+U&MFz%v`8kYpJ*e-J*ACZ4UoIIR|tLQe+-DhLj30ADbZ;FZeQi)X#WHi4ktKUkoMK6~fVN%X zKuMJ~(cg_`Ig5!tVkHD5sLT>Y+EQJaN=0d4;*MX=d|BL`Sv(YXrVl+$DFo|vOxj3_ z(^;h+gJahCks2PH9>b&pz+?t+1o0@^*wDgCfKP<)PCC@KAW!gA&e@Fs2PO>quT9_v z8_HYV)+Pb(rNk&MOoomAJWtkz%y`R~D3W2~$6k(57}iOoyjo6akdf@&jGV3Mcn(p$ zOS$hzyNPxyppg%K%iPJg_gCbxBj{oae2|U?mbefH2$QUYbThuEh!!Wxk_l^)FDRLoUB5EMFml#Z22|YKj zeKL!l7_@HKm);-=TxD&)7JQcPkcVf*ZXcS=9HT9>3c_u@{dHM5DP!Y5La)<60+QHYK~`^ zrvW-U=168)w9VJuKqfE@_(Ar#*!YsIp_zjMGu!?WxM`Dee)mpVcChTAK)MTwDpO@!hz818*$$Sb-d0NbI9LYBKLL z!LjcnMcA^_Pc&E#voHxnDtbm#Q-r)77eC-pBz&KCZ?G=u3NO9adybp7=sz|Yb-t|| zOnh^oYEPFqcBtcIp;4bQjGL-rWTx5Ps}dFt7)jQg>}uE4G<@H7P)QOTc}t1Xsv4Mp zh4*-Xmp<(^28ce`)>bH%l~Xx0+D8^=G3c0xBiKsP-fbr#veQ#;8?))(m1Iji$zb38 z>y|Q#2=+cmWX39(Cti~#1#IP$U1tq0kB_ZzSC_mE&BXP%YhOY1Uo?4!pHA@B9XqTI zgCY%61@#aKnuw|mqaSSwwZ=)S21Vhb=Yk}&*Z|+Kh;HT}bsvrcOL;bkUwE3a`0M)d%iA?(kRpNI5vRID4q;`$^P^Sh zURV3HkJ8t&hc9@st01@R1<$>aaZIdgX9D6U#i6fvui6BMm*}A(^{ zHez?r(bSQ%yehcY%DPY38+%uZiV|)Ffc**RIhRzMy}B0MtK)Q_D)_286XfS+w?u`> zpBMJ3gq3Bh!pr^B(yzI(f72-AvSyU(`)ZI0epTkg|D{p(k7p4g{P>vxDl01)J`$&n22&rbK=O_`;4`>Z9|K(; z$NPItBHW#R>^Ty9wyMIy`bH13iB7ipisryuEs&E(QRCx0#v7m8rm$yP{AMOdf+J3! zw?Ld@ROI5u&rsmZ^&!X78y>90dUE3S0s7w|fHFvf(*Hj};O}>kzo$XI5csS8FMJjJ z7P#t3!WAkXL8>Q7xI*?0B%-@f@E~c{O8WeIyc#4JGhnn$uj8wMaUU6MLUNbt|IVJTN9+|4S#{p1X60|ZvAF~~{OS8YPQWC8&mNvOp zG)k9#*xisbbCGFeJFErW%vQpMfH|aZ%9CBuPR;FHU?29oqI|3R3xYAy1bvPIah_3? zi;18w2*e)JTwidYqs}I`99{n{37GSt6aGgKF#Sgo`~w32zabzGRtz}Q79?0B&aVI>@Hff zT~N!)T7-|JX{h|o0{mzLzP)qx(kSJzxbgF%VPt8Sk4umYp#|>Dn+@Qt{_>jcV26vx zJeyeU)KAw^gD||AG2bs1jQkCOyHLDGT;+Q5Uo2qJIwF5Zf|g#%7`nauY776@hOtlz zQsMsyg1_6w|Ct5<8-k?&%ONnnWhVL`LBR6gvS9ZAatNd~sXYEi5U~DN2>uZZN+FdZ z4z(o-{)z=E|A+-_gdeZR{}jU19|pP8m~KL)ZZxN#d0$EyGw)>p$K6?6}LUE7wUK42628w+}$H`glJK3RMb1(*II1JCuJ3M(UP`gYqs zsIOBTWidm*IbABH?G0 z=>3UQoLN1;^){f;L)Th*s@=T=T!uXw+~Ju6UjjONcXzGX4cwX zG*?`v?RnSgVrFTm(*05(FEG|X5eaXME*F!30U zgpDLb9b-2)ePuiM?tvRl?{u+F(>|B#kHubi;xtI+tX;QHuW$Gee7nci_O5ii(!vam z_+%w%!3a!EWD`FK?8$;?9f^oU{gm9AW5HB|){pl{)RAb%s@$ zgrW(!0`^baoH6--n9k&4l6FC{caORmw<8G<3dcieq_q#GSq!J3C`dWV7bu{rLlO=g zp+G|sI;xlC`AJ|F4eZ|CjM$`+Y5q6{uC@QmNsCS`4s?&~6 z)AYF#KEMfh!eyMq^}#5ts-}vsSD|EV{jQ; z(WajQ^&^c7i6fK%JIZf*YxfqA)~rFx)9nF3Q~jUC`AR#W4Xa z)Ywu$v`Xz>drUfKZ;&OxSl<V1~)h!sbct6XX%_mhWT; zFZ7au^~r^dAnAgX#^em(ZHB3je;UP+m=~rb0hemyPou0@>c}Gk+^on=hrQBMG*c+i zAd!a$VDzv91Xczmzbdi65g|ZZqRKAR`YyFB$7* z``pXdLYa{5sxtBh9rBY2GA$Y{ud$wpj-mmD~Wbwe-2+M+kp<80CzTm2;(SF~l1!^uMk66WU@P0k8l$XSxwioI1R(Zl&j z5w6JC&HQFaDcNislK=zoPk164*H*ZUNReC;c^yZq4iB@LCQ;AM9Qar&KIFDt-!Fpc z=AXN3D4Ik&tT8)@P^~eO5q6>@3-9NbCdkB^@~02F9d=G-$_vx7rWs*Dv1#y;p$m|904yrBMU}0K z8gWrZ97YN;dVTN;H(xq+u_S!sLI#D4=Ld$U7nkQZm=3Oo?2N=rS@o>?eRds7qY=>~ z#+EQU&KcLD+Jx*rjy=UAk80t@1yrvbpvk`#XToN@1ow58;oJeQ!v<{QXmtu!iwM?) z!(!VqaV3zoSPB);{0P2A!L+L}OWylv1ER$*tyPCTg9%B%vc&h1EollwS2LsmG|B&C z%VOcR%zZEax8yLJIMNWQZcuM6TZZKoK@+1_3BZD9sErdB!lgomsfj#Ih0S;@Xm%@DWx$y9R2Asdy^_$L@**S&sN|}#p96C=BUoNYGkG|?n#?YL#i~OSc*%>BRc7_k>x5i$0$;pZBvnkek&{2$W`kom!~uL z)-%q1Ev8#zi_H6>0GSC_gwBd>hiGxEWl=x4fVjfQ1nI;!Xph+#UWJ|D`hUhDa8)^h zEO(?cA-$kG=dQMY$I(;^heV)t8%J9ul(sQb4Y*X~Gi~rcyi;BCMal=u0&E2=H;d0N{mbjmN=k`o0VH2 z6>Vm&Z}(uEyU4f>7l}r^@N>@65O%^mKcu@hPl^XTJ0+bgg+0L`dw)ZN&7@3Id!qHj zK~ctb`(B-Hiqvq`XhUbHUbD>EwtO#-l0wgD7_L1bzN^yCYCAcPl`}Knu!#dNpzJtZ$ipx!Yzj~Rmx0me*D zrlp0{2l9-r*Nr=O;Edg`h{e8G0G-|AktcFL%2gT^S$q#;bF<7Z0Tk>9hlRC9wG|?~ zDTlT?=c7=VU+Hb*&bc&(n0s3GoSuI!NdkBRkaT2b{un>d^e{P{gJ}7Sc8&Z9r?Wh(tm>UJivcl`kF_SfEXY3Tm%?x)w^ce;4f-8z4ky;Px&j!AmBVTahv zot;tfu_J6zdem6FD9b+Xfp?P8uQ_Bffu`ImD>UCh(aG*UbQg0+be*Yo9fy7^&5eB2 zb1s$2XbjBU^M8D$d6!5d=vt$j(ctMepfpck9jK(pe$qM(7V`11Xm+0iS$g1WQ5?8 z)0fZpr6$c*u2SOTHZF82(r5NkDeH=rq-(jK_ahUxOIMxy=Du#-=D`A;&dr|Q+}sy> zJv&VwkG`V09o3Z!?yoOR-n?CxHk!U)6Dq!2UkAKDoY_BIUg|fpYxxJxPD<|gy?oB} z^m6fh&vjc$e_gkD1}E8u?oT|xescTt@OI<6Zj{~>q#m7>ZOPW^wY;vREY9-19J719 zw)k#t;p6%KJlCC39J7Dy;t_h5<9o0rFTOaO6Wf}2c-ok0m5U8cWt0Eo{Mp6#sX=9} z)6M-*x}%3MaGUbB-Syy0E*!0pz^WkoUs#SmU{pckq59;A)TC; zKew8G2EB)ppomMn?f5*NEk3=T-tAvodTsL2KGbrV(V3Z#J{vrCd2(Onk{h2_r3vR z`CD|;d*R!AF|(;XvT5Fn(}&U~#Ny%p%);|^fJSJUC{>s|@LNFujd%k^a`CMqFjkU@ zpPn+3ph4kd5|IGfb)|A|u5SB4bV~bxtqQ1mtL{pv8_(NvF{F@X>ePNQkr3MTtJ)dj z*M!H9Ul=MyeVyw_(k043Jt|lQ%#-~!t&~uXsl#Bt%EfMSIw8p%{rJftt{F;Y(u!|? zRwD9g7^^OzD{ghHzf*O7vm6-RULnbEfcZ0`XM<{jWnle1`*AyxF@`?6(>Yn$Ti)cL zz%m(Edd+*=c4lK^W@Mn28Z$LdM9x-=VLbT#S`iYQCsDr#>Zt@RIop}CT}VRFg*O1p zEWtBr)JK+HNQQBq#7Ks5j#-XnOgeFrWlS*fVBMRRMIv89HN&`Cf>maWMcG~D>KZZ5 z14Bp{_MYzb&SJKW-mnY;Ni*+oU4O~$9eQ|s$Cm5l=xj$MlGw>KKyVyZT3R^W6D84! zlDUeIp(1=4@1&q!LS^zM^LRzZc}_a~mqAqpL5z9%ZM!*PurOVyEXP&@ ze}psBb|$u^x&*LV1`!fzgcofwA2S#R3Ad8;*I~GV*eHNW1mJltlBI1YQU&03CQ?oj zK_}pK$76v9grVun&TrTu&^ubbja-9M%7NAJPW`A|TvC~kY;qzF#@3J^`C%$-g5SAJ zf-Q41n}i68miWyUpTF0zgX9RiAh2ga1e7x1PZc90pyDxMbbUUcK~~K2C!s(Ay=5bB zWKpIJY<%4$ct%wEEZ9P!6q)FJA;Ir0w2~1w9=Y5^r`F*5b7q*zMV%IUHbr$LLoE6d zGaWTdNcvydzUTP9om^qz)oWrWabo4!{BRQFipRzfMUfDSi_CfOS0y9~&{I7-{awno z+k`}R1If6en-OIhy6BKt*e%0hqpC51NuE?HFGGOzj`(!!^v?KT?6IxU`Dj$tAax`+ zu#fjhzjXJ!vRzC#)FrdkI5_;rgt5G=d+`w~Gc$dn64Rh4oU?xBXb_tSBVoI`1+fAN zaP1aEHbx~hLar%!Y@{O=JBHj~$i&WxhA*hl2+@fI>pLP*!!SdClfK{Qh#mAx!-yDz zpf!wm5)fvN1c9|kv7JFM8WXY$Z9 zol@o(vg;3J&pEMX_xF!0u)q?j8o)T%;{;8zO-guhg{_r!8J}qT_RTkP`WmXxdw4w^ zlR7bC&wqKNp`9<`I6}TTqs??u14mVwqdImW50v5dl+Q*WC?*;`C=BzbN(loS@mO9m z#}pKcq|`B(&Lw`jgK-IKs&qtlsf|pLFcJ+8;!MDruB@3l;Fz@n_QN=xjsp*X)$XV1 z(|64-kts7@Nu7vU0M+NyMw%j-PWjy!G>Ij;ejwZ4xQycluPQ_`lv)z`I4@mlI;|gbWZCc4*A9J3Z);}|^rVeQ=oPar(Erj) z3R$2lX&bMBceD^Stx9+2Pvr6$15_KOmawK%?mt`%A-QZNIQ1zQ#;IR59Lhqnu7QtX z&N(@w;me}Rzwi?UPoj)4UJBEgJBc3{6G5YJCTgwjr>RWyBw`rzz*G7^yD4=HKP9h>1)K^<29^r<01;dF`8l|$ZJL?m?{ zYMm+?SVe2$0ruJ{MUntb>68FYnr2>=;%0g#1i+V7?zGK74UfM}r4SJ%eWVcWr#n^6 zn}F79!s^6tea1^K72dT`$4DmShhe6XDsn5b55scyHf|efTXsE>$a1HZLox|LybMIT zPw}LEk=c`83ZbNqY0*ZQe__YQ_$hH6ZajmKtX?G#r{9W!EXYoMYQ3Ak5vRO_8d7&( zJt#=~=r~xSw=0q1HwY(9i{haXR`lj%)lcHcYJIRZ#hl>KoPQ3mg{VK})2mFvif--= zKS|*;lp_PQYyR|8T%`P5$0Iw3^$M>5{m#$O&TRkpd4RJhaWW;m1EKUr#vJi)uNb5& z37ir)8q^^N1jVVXVXj^dUsU7C>fCZq0AR;NGp6z8xkLU<^2 ztxz9R$!PV25=@+5=uV$XK^ae-3=_9>cqu)ru^Hdrl=4bQ}u*{!pvk~x+gsh0@!jY4L+!rl)()y`or-^OCVhG9bPG+ z!fLe1f8dBvO8T3vM(lsCIS%`W)wWRZTf3W!asQlxW_Rvovn-wDzg2huAWw4`AQXCuPguQFC1Z5e164WUg@U3eCoq!})IIwvR@!Fu5ufXBt1 zBHD!?N6V%wAdO;L2oo8glX7hdFcrw8o+73&fh{!8cXJoxw56cOzEQ+x$#6_-d6h^y z&yoFhZl~kg$CLiw_{eW~s9j^rs+wtiS@loQNZmmMxhk(|{-Nhnncu(=9f$)_JEsu1 z48R^pjwyj7_bN1jlc?PFaY_C5S<0k=;8k@Fca!8k!R!)?r>2LD6|v#+Y)N)5f56QmEP4SHwW;Fe{E+?l2P) zZla7r61213@%~yR`kEm};0bg^gi@3}9WP&Mv-x`30l23A%~S@Vf&^+6;R6yhI;aaWiQd`v<_D-Y3&&zOuqM{{E0c^n^|1=t|y8NY_5jq0n7cUMG2M1CU8&fvZ?Rpfc<$9aH|wjn1tAkg!G~)_vAN?${PkPs&_b-tJ0fHexw?X7 zLN3mhDReB(ivWymEm#F98scQ@pLF^`Ck|RbI2*H*Isk$N16OEgf0hB;dAsRg^UV4A zAVNM07Nw!SMEPt#TW+GmU^pnR86=5NbMhV8BsD*i<>Je|8;~%qiHM|wMD_bGYYU*U8@kQt0C2N{flVbdPm1_WU62oZTR{l~cSo@j$ac zx8caNWj!OaZah=OOy)W4(YsU}0|0aE+PAn$2Fy+oVZvzwqX)VWiKs+HYO2~8Ux>2W z90*|f+sw_Lhg=NtxHXQ7<>XK}BK=tn5y1XRen^4K(>9c49Hs|cIYjni-M^|l*u18yKjs{k61iEJm_8><4wmRZg+Sx7y zC@k0DUIIG|etqW3Ms1Qpa4;K)VaJJc7j}PR;=BSu&3aiBQhj{IW`w3`lTq&h3I3<*z%LqLhlPE7MJnia*;KTs&2KO}$9{X)vrnRG!Q$eJ6VApHQT5>^%J*>a=tden* zRx!K<*sG=jL@s1t&W4joH?DJ5wO8Cij%&Z6h;-4#7yTSQkEw92RvaSN4Y$UeQSV@5 z)|fTaLmp0_e%>{>(x{oP(>$!h$}ekaNTj5NQ}sAsv0yTxwkQTMPSu2wOM_7w<7jlX zhD9YPQk5Ldi5@5$+E;Iz0^mz+O~-Xrqq33LPONCf1XH19PqvV^jrU}N~ zGbCfqk3s>Ee>#`VB{SsG57uSGabzhS*|U%(RVE{1JB22zjsA#>;Z0&0NHFkbAE?A)02qZQ z$XJkKbT@vL5x4rk@h1BN$Iy)IQ@?WCZeJC5S~Fy0J=3C>Or?ddtB^)ir4h+n#a|xr z($pqs4AI+~6gL6P{YxtD^p1afH=_PK!*YHwCHLJwO#IQuOUlP0Gw?c`>_`^qnrhk9 z-Z-~i>X&0$r!s**Qqw8((59sb_VX|R;j89T98v&!2ijcJ8UF5_*x;j?i@NfAg*3sZ9#M z?Al+o%12Olz!IYAneZ~YBtIucKJbHFmXjo;m@d%DkFoMLQo5qU@WZ1eUs3UXX|fiV zl0Ur@P~Ff(HUEuz%}WYyNuN6!F(;YDL zEABDK0w1F{m`+NLQ-#gc08pepTYT$^F#YV^r`ENq3R*yP*^e!sDdiG1P5p8+Ey||Y z7N3l*(HS3&mfteHvdp^|W*abJJyn-3@Ks}P{TV`IXMtJhFw-7ZvZ)62F}^o|tF35p zni*FC&Hwz0U?v}zQ}3PZi^xHHjZ8{>UZyd*5FH>jV& zrf^B5Aw#Tx`82dK@=Uj7>zky4qkTY6hzJ8Zj}Zb73Ifl6;vgK&s6|V4ZF}>-G5{la zVEIikYiIfQn9{ybj>G)Jk_k(8kCKbLA(%=yxcKEP;Ek>nP$(|_Wx)@tUSTZv7%IXWI)^;f_Ux8?T%SM@2nHgSFXiG7}vE2kD4 zn!D#&Zujl>!I3m2H?%wQ<+_-eeRBLjuiyitko&|p-n6v6pvYIvM>%|=^PTHiP%{Tn zaQXT{faj`{J~-(nepYhhatEvN6WRGy@4(fj*)k8Tu5~p|j>cwNJpfY@$lqyz1v&|c zjH(2+4A=c3htyp1eOjIy|<$K`Voy zwa!i{_`tM3zWS5Niq~#G@usiQ^zLi%uW?Usy_8{GK$~iQ;=-HWBa8|kd#`5u{?x&Z z@qF^Idp1ALT;AAq7^|d^ZvddbH?sX zb#c=1vUz{u`?Zkb-z+JjZ9-K)`dVy6WdsBS_m8D@j!y1YCXRot9XZ$0id`2)^{HL_ z)aOvdukeW0Aeewy1-J&HQbwyzsh$cICo_O@Mbj=$<3(cZV!jdn7zV<|5ec9OvL#c%X#@MQU!FZ_co2iKPH}w! zD4eSY#Rw(4+GV^p=7ipS+V=vuE6_Va;~C&5lAcX4gIwKQFh?1>9)K8s;OBO(L1YVw-G4|oDi>x(wvfeQt2jA*r#tmKAp96OZ2>-f~ozrX0GySxbIyOu7jU*dHX zBdk-K1#XjkV}rs48ldQT!xYUOAbf`}f^9o73e>$BdOCQq8_Cahi^m^=0R97P<3jEP zI+)vL@68>-;BB=Bv8s2oA+vlr7mYFtx{cO7;H1CA*h_#E65peg$;LE{E9J-=>^L5p z)I-_>13~Y8v2Q+V5;rLpjQ+EngwR3`YoR$BVU zX^|~-0OEBdDn5x})Rb&FkX|-JvcH97n06mH(jyi$3G-^sbpMgUZlE+Jc}*`9Tk3%v zcp}o6_T2%3l^ZN|ik8mv$I*%T`HyUXmYIGd2E0ch1>S(Z z?7J?;8)Og5@w1sAe-1+q?|ctQM&D;)7~*wl;5KIG0)>(AO1TiRh z#h#!622FzNx?dpfzIUV|JA_Lt@(O-oO%p)Tf4J56b)s_#Uq=v?bgR`#w?Y_F{xnlK zoT%BEA2Kxr``!*2#B~^Yk z5%{;i3h=7DDM|G`;dC~7Hu(__?T;A=CrDVw{S>O^_FACaDf@J??qf0GJb(KPrqu{Y1)SggNV3dA?i+O?}=Xs&dwO@*#*);58(t(dbYUZWcbNwg+6w2lH3A;i(|e znHId%#J{4%d2J9fe0{}B&6IFAs!(*l$3HEY%9v{cK5_o~zuG(Npt_oDZ{q<11b3GJ z!QFzpySux)OK^7y?!ny&1P=svcR0AaUf#^i%{$!8)O+jus_s7n1-njh*2CUw_vv1{ zd-ZR{s}?6Cir$>s$?r~}Q!=$RdCe_W&7HKV#w{LbNWW7PxloOXSK=3e$fM;fGP)9l z!n%y;t8q~yUvD-29tX+w4%wnDf?{`o9R}YyQ%!vz5&(0RPLQLa9oj8;Hg>F=EDV!p{9zTrdhs-U zs$^(}-XUR>w_&CnRmYXRIQJtlDgnXz7pti{ctDgCo`a1Z2%t{nQ@jCo&Qu8iGcXi6 z<7kV*+_NTJG=}~(F=lKEw&E;;b{*P|GYDg_q9Q$X8QG+2zObA17>wA1Ta#Vau@iiY z5_i8vp73o|V{p5%T%{TATk=%KC?;vFyuRE>htkL$9IYJf7Kxj04kB?6?bNI15r%YP z_{1M$(A#juu7+L2LUeJWGp!hrkw0BD`@)%;&|x5BK$B3i?LaGyu}<+!QQ#I{sH_`J zs7{T=#Iu(n9nH^XmR>TzlCf!hWmFlJWgKvJdOyP~!#SYEIYLDi+aaZ=s*VwiM1C15 z=RA#3n$WQN& zsoriXG-uMj0(r2zZ*vS*CrQMycZQyFXwb+PR))5G`#p440O{g!(beh{ljP&fwTXIS zI=Mbx(&w5-dbct&ir(vVPd)MqKql*lxXcgl^tmcprKVHL#QGGd-X$8^mdo82@fP1i zOvzB#>wNj*=5*&vAuv1sBpnz08HL0DERavOzbrO(Uo9A-EOCj&ItSlo;;@tFz$DVs zk6&&6Buz0{T3o(7!&_Q>?xyoeFB_Pq?kTSWC)AWUwjOAKuy&OsY9<-z(xr;rxBrgl zf)rfEc902Y)xFnbec02k{i)j8itG7h!xAW6N#W5+VQ?k&-S+l5hZ^hLt_)$e#7YYo zG+39mKJG@_?Q!aU($WG;SApYLV_T&f;ESc>!c2owi=(}#JI4X@=ZMs2e{EKm-eauF z6NH?DO;M-uwmB) z%=+|g%R-nQ5;MREe&aY{{Fdod!RaGg~bBjhPJ~2?=DR_7pspE z11g@l&TOkUD;A1fgi`k-xkV#79%m_ZQzeUMtac}#$C?w_5|o&SW_O}da;$(yE1Tbr zBnA~_A;kBo2f`xc-j+2jGm2rcWCqs&1_zOVd?Z!&(vF0WIO^7CTa=-BVqZ%wELwpT zPp8*@JiJ#xXoh*&`}l*FGI>9w-))md-w>H%v5K}@EFFx#YYG~1kTE|sed%h6NFoFX zp6_Bf6_xUb5^;JY&9Gpsl;SN4e2yS!g z{8*dQJ5-C)+wS3H?zAg25|5MJ>n1m0OLDQ-bzREi_R!ed>yhqmW0!>n&l{mv9PN4k zUFO5tIY1YGbH?JCrp@DQp@x*E?e60G828O;D#*2_OO%m7j`}9#;VI0O5zL0U)ZMxV zgBy9lGEAD^fzM8)80Tskoe_aX*iCN>g^wEFxBcAvjPm;;baG6UTcOXc-*ARi!@{zF zt#<0L-(Cy3B5G-bYb@gS24&YRuwH8{V4!>}g0DWWw=V3Kw@+HrSo7Z$Ab1SNgGWqu zijo^C=U_zDILqd{CNtB;WE73M`pWZJa=rlL#t>T$UgL1i2taLSi#mUa%61VG4WA4i ze~hr5a>|ZNo)#c*Wz(ziX{GxEEO`?*YE{_22zZ7Ra^S;lv#=d199{Mpk(QE1Fq}Y359jioJV} z?UOw@&&9hHX7kJkveKFBk;F4R7`MamKdZ&5H@k+U2w4jcMo{{jpBsg`)cHL z5d|Blgmw((AzC(qh1v#WX!nVtX~%c^Dg1hMU2mLRdJYu}^&|kFlf7K3M?+C zX*{#3W65!&$A#Ti&bf*)NhS3R5ru&9cH7R8@z_e3YG)f%4k@MVl1ivltk%CaoQ~(s zWw?q04nrIano`p!g@uQ{$ZD4hll2NRVDhEH;?;n(QacufsDd~vRv|JUNJ|S(x+VxjxIk;1pO|Kj^01?h z8~!T8z{(M+8nYg2Ijb(?T+?)J-IMnKZrKC7@jRz=;R=F= zOaXf6i*A(&F2t^#ih%ZE>l>e-*haaJIa3!7Je3V6OccSFRj-8yv`v}k1~y~E87&t)-kNEpLDFh{|5o(Iq1V0G@w!MMQ;w91`|4YU<<$E=peB}Pkx^b}( zFh>Rtw<|wj_DGw*-xexyF{g~ENzOH^@s!Z45d%zrm5I|`ZMSy1qKyu%#s${x2a zv1;3?RfGFnR{a|j(jqlQa7c1!@>~+h9naw@=c*FeF_(pF0DdveTqmfhU+u+gP-j2f zyv}%zMTeYH1Dcjl2dt~=uGCBbrDvSjby{x*s_~PZ7IjMZ!XY2)S9XzP$6AoUV`)2?n_s6b8NXu< zF$a>bXGocoZl~J!o1{1U&hIlVO{MCcmx#Iae5T)y)K13wmN>f*W{j>8=qjG_?J7 z77(F~69yXJs&vU^y{7-jY!>MlW8ETlzeI)}Wt{7&g&VlomDAQOe0is46{=WwJBt>S z$Waugxy<*RdVMx4VtqeEa&+bTc(`$6D1R8Wx^CV?v5=WQv8L0m+HDUs(2 zQ4uvW;>v5ZRXI~u)2il7=9|eUsb__$rxD3E3NL;AR?y2{9m8givSRB&-d02WMr>8C zE~%uI{f>HiI`atA*>JwKA6Wl*Pe9e$@-%%O>i9hHF$c$W{(?FlN-S!x6I#=bo~J+Zdoc?LB#Ab{R3_T9X%*$h7-p$$>YOiB%b`kIE%Op{`gZ5isO zDJiLJ-lAoZ8mpzuFrjER^8+R>`)w&mAobUh$cIS!WZ36Yb=YQ_B1<*92@N_5D<3Yh zA*)fIc`(eq(f6Z}LTNq~lTAv~%)V+NmLPSp(PeoC6e%Sr{Maf9)M!B+_;Bj}laLZ) zJlx`t+qY(qJ!5rzP!vM=T z#p%&yg~TyUko>}^V;A^qX$CMx>}D}MpIwlR&aL_-n}r%gh-CY-5k&oo5k&opXzK!9 z%h0Za^Im=gm@{Jqwh3Wkbha8bh#`n#@E68TADAw>xZLzqOniDRM# z#1K=$XgB?q7Pjo@(ECXw)F{=(#E`m#%{M|B?l8lYx&C-}ELf@{!!fGhO`X=q%WX2D z9=FrQ)OC2FzyG6@*^aCA{HP9*_qy~>9t_A+iP(P6#-NEdT`b`lbukk!7c~2j+U~*I z(lzQ3bdS`(F7G{>WFU!1CrV5l^YdJBbP-xKgdvD<@X1xSi8KSR(MRYisJ z*UTb{qGqCn5bMQ?h!B#53<{zX-bSZ1YUD=>(UYeZ#8t9&C6@w%^%)VzMFfbYUW|+EM#NlP#_--5Jn=iB(~^_Dh3V-L zNyyYzFeNUC@fVWA>`x0O-&J%)j2?&f87QbIO|uW+Q9aannJeI0F3Pe~ryH9(e|xRg z#7bc%K?D_%#~90oAYWAyOWGz8zH>VxUoB8@o#RHSEPO+&z zT@ZP%?4P4`YRJU=V#G?F88*zg;_X$RUGKd{OcJg7WlMGn#` zq+KyqBvYIbA{#Y88SvAUA6ylcdX7a)$Wn2)SphKioeA@W$-*`d?!Fd+)Y(RR3<5p% z{?$xDe#D3+O2cmdILkZD1glf`Gpd1t{XRD5Q3iQJV6GDJb~!rpOh0-?lVzdeHhy~c zB0l$j7{pdhJoaF`tOkOFcllLf0885q`}7fDoOn>IrfglwnI<9yg^64&VLayv_f?A$ zLM_Ssyl=!X71}avi5~^FZj5VQZdqm^ zBjSXJo`b=9c7>6c`}efqq7}uWq%6|Q9ED>r5lf978zaKU z5-NK z&P)1D<$ctWV$HInZ%MB;{aKjReU2AJVvp4f4D-~RmSD(~(LQ&>Z8VBFAZjK0y68vO zYL}yO5Z(L3b&Q8ulnlQf`6T}i6u%z(OivWb)p14XE-nQh1`Fx8aXm=w#zCnk#xh&w zBdWAoAFroF{J=FP^^&-yH!fVf2UkM1&+p1UGJeuLo!4CU2NfJTc8=t9Sy2*p%8%1T zeo(8knUM2x3tDIa*EmIY&zdk-tUCi`?0k4qt;Or(RZOxWuWgCGr~Rnps17iEJM*sN zNg5oyWva?QHS?hS!y<>3cw>iK^<)_0QR(z)J(5lyH3s+7Z^Mhm@3IHeFIu6ksQ)s& z__^^kPh}x8mlfVq+w>Xul*`9=Q6^Rv(T?}CW|`B~nFJCkFRU$?!}W#7V`7!02f=Qw z6Yl%;F55XrvISD6$Gcq0Qe}-PHntIqO_%zB5sWziU}NyaI?t_K8l44IfOUr9ev&ciyW{?W|BqUy@8Fqh{k{r@^WSFncBYe{3-6s| zR2$m>uuJqqBg|p&ic#J8LHrqO$p$neTr89#0b#YimotSAa$zQhS0at{Wf|Jk+VpZ- z_}%han?vqcll23XVv)vj`O@HE-2kTseAQiF}D_G`p2)-#FtwUdOxO% zY0*Zv<&*Mdm^KDvgi z(@5p1l2W+~N>_3$d7Bix4!fGHnL(eVagUnEsgpkf@im-x6()P{WOa-NO>%L%lf_~{ z=-=EQL2JAhC~la_A|r#W3$Ta>blA|^)h5*`Vnk|r zFKw9D&tvy%hUPGElH+}>M2#1BG*aeu4}=QF**qlZ#b@?v z9eFZN@S>0J9y+?AF3T$9!b1;mSIWP)APWkya^WV%*cFA3hx8Nd!fQe$dW@K$Ne;4R zuUJ_iM+(D@J8mMgb~X=8UtjgbANIv-HY6_CE$5Tj$yGe>Kol-s)uTCY#uBVe<5E+PD6Q|~Rm?5gSME3jC!>Smf z1%%@B;AbD7k6Y%+@GvU0Vvkx`MVW1yPZ4dSJ@~-q6WSA1(l7Tq>apLF+)9wi;wyfW zb~y%TN^hRo>rleR(%ercvXNVKQuoAOvc9yv&{wuG5S{HLNk9z97t3+IU4D@YtR~Xc z+fv5eDbTDux+9ZnHqH~kcCvLHmT@j+Cm0=3OQ#+C;PL}XjJFCK< zH5V?f+#zzQMp!R7+NhMIej4g7qJ0difYG8Zlo2BSgf={1>>R^A(w{rYLqDj0oOW5W zg{T+G5&~5E))<>BH0dgBbT$xE*WiFxNG6Xy%fF&Tx_E@u;tOuqD5QiFBhGO~{u=R- z=||xeUUS|?fC=uZ1-LL*fePV(P#l4hWT|NnCK*Y2q)R|pPCfk@pSx70H(&w|6^Dsi zt&+2VQTV5zWt`Qw2MCKS0ShdO+VjsS_jZ@J(~rsxl%IPuqUm*7*Fl2VWb^y5+ITW1rK#if z>$?N*!HJ-YMPrNocIdcs+>z+$-W(f+yNFbvLj%Qf_&>C+-#L2cfXGuzDkT?>nJA1K zhx3o)8+Pp&Kc1*C@4q3A$(gYZF4B?X^gMQM+9lE4Afsmb49;7kswyp0TzF4PXaOE5 z5}XCpbd5f8q3L#RF+KB@`hax`s7}?n8E4kquM@Sv98+9aO+j8()DNCW)^fXSm;kQW z6F(x$Ad}-0o}wlKYxRtqy0?Npw=-{?3v(Pnxz5S8Y6~XKamI!V2kiml z6Is?$UH%C33kD|mR35HgZ>F0Y9I9Xt3_`CfP&X_i;-@%&K-~3(Ct@NndNjC5h#^I@ zQA$^^T~Ep5T^^fILl;dUY<2Y9Uef10-S%L~Cl}9xQ4Wo5M#R>ZyfmI?4#Z?%Rpb!x zINfOv5ibhq#sRq#x<$OXZTr=a;s|djTtd$o24(fiV0PR~5}Ka^ByA990F~#sJ<=Uj zobgm4DkN33A+z$e#h~Aqk&{x&rN}`y90 z$Eg0881Be!ynW~)L*!M3X}RRy#? z&Yk?ZR5K<*VK+(&)LZ1lJ>S(hD<+=Uo+)KeUPA3;9r2CC=sGB1kMIquU3ZxWYtc;S zcs40={>MT$eevWB1=B^M3Ny0Cso_VRUDL%Tt8lfxqe%U%_-2~4p+O8=44myU)1 zsT&BI#P%JF0oy4ixiX?!1DT2Q7_a68^Tjq&V6zvb$-&5i83n;nRvA;Ur6k}$wngJG zdZxG(FuB}CVPT_i)9JJpxUEdGfYW`i(mAQ_;-X>kR4aZif6o7i26snuTBxOyK1kzQ zGa5x*^7cs2*Ig;N!%Lv{Wp6vBqZ^e~_ZA@VGI z+L8)KB?4`9kg8w$El~K)9N1UnCv#j4=e?HHTS0y|W%<8%Kiz-a|9|Oz`v189|I+=; z|8f8SKligX5A~_N^!=tUT@%7fSsepweHlAz8+#gkYdga~asXc{Q2nQx&dZ?a5i2X+ zMT;D;0{+b3ALpm}*(r{y7Uv5LL};}mSzExS6-B+MNY293SJRdu*q**c`=dU#q`VDF zO>k`;iz0(S5gI;Vk#YfYWehdsIGbRQ{bb})IYjze(6HXyEx`e%t$}Z0vY6o%9S|AB zR9o!)<^aZ?*)yie!K+q&H`^kKp)~K$DAVEIl_;yMp;orAkx<*{RzBHWh-0|qHwZ=C zl2agHeKNeTlp z1sJ30t8I#OnDmluG8|wd#E8r|_7u37p~)jCj!FhhTrS)ueE7Xm0s3(2V9I>1IBf3 zxevP=>{CF=V5Gd-i$VN{w9J`XE;L!I3bPm&_>-)H8tAprUJ48-r!c23BCWi*(6)>>;MLkdhfG$Dzpp&31RhQ=v=s_DvU;d>Qpt(Xl` z*1BtWD4l&9nW#OjN(e72(Oq`f(CY!qob$s5Y7`BAXZ+{Zx$0BbPuv5k_p)9|6R2=z zet6y)55JYM99b2v?ffIyeo@KzYr!_d&+$%SNNiCCos*&JaHjwcdC@^OkHU5bCa!2n zF(uDQY}}uiq0yGkK@Kv!KUzQ_-|q&KOC*U}^9s1xiJ<3=O)j8-VKy;4d{yY?Xscyq zgp-ZsI@*Jo(1SM=4C9c(uGR0yM?Q^iwvuAKRnUTn@wBT8(nYlSRK&?v4UrF^cYxUs zNxKaLn96Sn=IqLM6%y}J#Pu7`3_qW-V5j0}Kgad&cpOo0U{};l?cE=Cq|Fj=bFz>%cCA%Q z2M`zCL>T8VOn&3M9EkaTTG2xT_@~IHwk0!^o!vmrru*GalUovkb`#9Q=1ql*FwXnU zy}7>pn(5Pb)1{}lADlIyOU@FilyBL~3eN;jo}lgrshws)6^wVQSH4)S=8TYa;a_Si4u`j>^TzZ?J5RQ_`%ve%T?MNxiH^j}g( ze?$2xPyCwlTHg5=Wd-*&<+ozbuYs@Cl79i$@cs?(mv-`N;A`#SU%*ZLe*-!q`S{L^haF6ic0Dr0Ez6QQlnf(PkB>FeNUz)S8fv+`Ne*sU3 zUju(Oyr15CO?fRa^@|ch`&-J-gyq+i*Sns6QP_okQhx1$dTshTJ^Giagw#*d*U8ea z0k1REegU8re|rT#UHY2xdLjB3#Z>dRl%IF{HRbgZ#xIJa{@?uYdO_ng;q^H7i@;^_ zlkjTh@V7IGe;xYO^shjF&X4_d=tuLv0{uDb^Vgv*7Jmi$b1vgG^q-%}e|Z!Lh}{YZ z=zlz+zc&BpC#XN0|FHR!`QM+XUR%G8Pk-5$*#DI)`WdahhW_hTQtkLxpg&_D8FBEJ U@ev3J>*c%iW$OZ+^B=GN3!PZ=qyPW_ literal 0 HcmV?d00001 diff --git a/auxilary_info/ReadMe.xlsx b/auxilary_info/ReadMe.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..8b5acd7eb64436fd6fca9494bbdc210dc94a1aac GIT binary patch literal 16793 zcmeIZ1zTLrvNjCCCAhl>hv4pR!QI_mgS)$HU~mrv*C2u5!DSdExVr~}N&m);biH=+TTWima-F zC+Z;5quPhd@=npFYT3c3{pJ78QbnTyzK>ePeoBw#N&v5Rg+@nAWXqoUQRf4dF;aPa zt?Py0v&<*SkdhkB_%BJZoP~IA&(2_Ho8c7NR!o^~DPAe4aX6b0+4uS`l@7$JqlCq& zyXkkU-aITF36AvZypgB#z%%9X4pn6$kXzI0>QZ52*QBb?btBebPP>bz!)j1&Z+aw^ zJsh3EDl}-Y#^)0!6|t#-tZ-l>MP`pcKx=r9bxCFw1j|AR>KJWfLmXJ~_A@?`#_P!6 zs%!Bu`o$kIofM~0_+h@$tKD`x5$P)1?dq80dueSn)2Ob+vC?l5?_2s9fI#9GG*`ZbYT?VEjsi)&48+;iNgG?aun9-hR!6^KkP6WruF zz8hrdVB}+QSL>zQIHHGYAPOiSAWFKCae+ek0*U}fz3+(7)CoeNqyxJHevJY_0`Z66$!~vh)Wl+7@l&>V)kb7Kx_H3R)3|0xxzub9 zqI=HY%-?29%lXiHb|=zTw^bC$kE~Nl&0a_}piMDr5g=fe5=Gz$W(VsIDeA15-q%6S zi>aN|MtpANE<8+~$_-r1C_8v79L1|}Jd=(6-Obc$xz6vqJ^9T8frgqjugz!E0#`l? zA0u=7uU8Vey_nB_OiFp*RVg?y?%AfKhp7v10(F}>F2?eG2DuRis=uF)gv63otbs?Y z{~08~LTQ;-V2^ZwgMYE->f~hido=rJ%s_&NG%(8l?yE*sQGO7d z(ve;wS-o;SvC)^^StyP*j!@x8n&^Nu_0>xA?j2HFeqEKp7nK4%ldo_CxmKcO&h z`WPx=FrYtT+Mn^mI89tlK*5`y)RKfq!(d_@A0AboAfe>AVYUmUd}l1c;@Q2YrN)me zE~AjRZl8(Zu$^S}V6%1mK|BiP%vjTQ&|{d|acxLbYb#j}o#oDJyEyO`_EU%t>GTyo zf~>$>ABgGwIdX>kKFM47%dTIRiawKeeZ`N+J4Ds;BvqV(ei80uk>90B1L;!Sb^zI( z8fTmCVo#%Vy}(PxvFkI-?UCX6b#PDrPs&(hl}zh^>CyuY0f7qs1(-7bN|qXRMJFID zayRNyAgjCAGkT|DJdb3qw{}n+ZDYW(aiOv~9}b0l0Tl~E#Pi+sZI{PU>40a0O!P;Z zbxO`op1J;qH!IH6Y8ZL_CQYAZ@c7 znn+HX`T|$<9=@ii;zYEq$WPfycSWX-k4M>3P)rIi#&(&iYZaxtrUgrX5Lw+Y@B4p!=hNEt6jl941& z`#~DGm8Gkc3X0M?$y`cy2cN<8DPQ_&x_Sd8bN}@iF?I#SP;w^UHbtmD=eoZ=rcL8C018cq;z)^tI%R>|HtZxKp3h|}b zh+i~&Y0fkb%d{VGDFfOV~v27HJee-`|Fyb zE&%L1Q(E{d3F@Jm?u&(A{Qr@K=$+VRr$`VGxxx?-SpQ(5o3)9ng}Iu$tBs?T+wZ(J zPPpv2%5&)-^Z*A4h9NROY03BYt!gWAXBby7sHW^`LE(LX=O}$H313(jb{f1+(O7o58CmJyeu2V74?=SnH+$_h&lV>GE)uTM>N>&qW7HM{t|}b5-aVWP8Bt=5 znqP5lJx;BK>Lz2%-L;QZn}QaM!|jmmF5Zl z%RH>0)}C^O=r7}szNr(8Xg&)zVqsdg&{|4ie6b6n!hk#0GHjK-@aY&W74pkmcvq^F z)i_ak{DZH}(dK7(Nq&rFMaXZx_%yAwr{VLXxJju!4HRyxk0SJ!K zXuXqh!mek%TGvl`_-fv0=9S{i7Pu>tE=8^Fp86Hm=S zZ@;mz>!~P)S~q|bvgdFXBU|tdQP*4bW+)ooFMy9faQRZGs4tH)hyyQ|^GVz6{u21TEYJP=- zNUUBN>N~c0{4GBKOlPnkO>8_S4s7$+sZ`=bg(w}2wRO~8ObO?>_fs^rcbAd)4866e zaU8WJeaVB2dST~n=iWJOdp1BsB50uDJo==X0QuNu>bENA71FaCi)cE@3Mm82ZyF!H`5<5xT>FPr_)xKy-X}zj36PEU)&VyUVcE zv;7-AIc$?5ledCu>J9yBNzANY87-0Q#tN_D0PCK(FrX18(1WmE4sZ1PM`~k^P;th* z9|~76rVpppRDNF)u^fr43GkP=7f7__fkYkDk$gbvL}tM{{0bK?V;(AaGjHf4zMshq z&v@4gM{WHzfqsq@b~HtCVW;pAVlOKFOY{*cJ$rGk>74I5Q&315RO+ z&ZTR#U%m7iL;{WguX5E3l7wjnns2Iz6dk{d_!2KRXRC7pA-|W5^u1N{^dF9)(K1b6 zH$jZoxml#ikgMo)q^b#aF0u$xQw$HS;6iemdXBDL!o{s$Qp$Vd0V_*t#S_~T9w>7Y zwpl4;#j4>{$TfM+M+njK_CAN0`F9?){SDi=jPt!f|(<~B}xKzi3jg{Wt z&D7WKiOGU7r@l&%728-n1xvJW18>B`6n%!naq5ZXZYjC?tIST1;Y7=rHon3I#IwlD zKwInJe=28TtQ)^kVy0BcmUwd`9iFQ0PkdtNe2y!NVKQJcaL6lgCbN+|zL`EzB^mfm zjRoG5(DNDV+7kd#`w27s(sid>JjbXUh%WPWp~w6}Y^WT0p_>8Aiq^ zVh6>wa|^P;P$F~3(OOIjFYCAdpcl-1UgSYH151k9PVG#Nl7Q+s@TkK!d68Nk z{YpQ{Ga$Zv=fC~d>x40zJ4xq5=i@J6kIGt?|A4^6jVA!R&j4fod?~p{Ctlh8jCgEv zO{loFnxPMpH#y~P%{jw0QXZ!UH|7jCv0Nmz1Y687m*DIhya9J&f5vRKir4E-?L>jp zi{=e;ey2-}j{RdV@3bh7Q8?=)5eJD#?hd+`Qa37M)Uu0w)wjhdwB3dzB+GhOY{9sc zoM|0(^Y2fm1MqU|P%j3S+%@iUZOqgY>nX&u9Id(z(PUa1k+}@M0fO+DXleKaW)$HX zU;7BMjSXWl3WgR9_3Z@1)`?SU0|s8Kg{kyA3CPX{jF5PurDVP*Mde00VK}|%`OxGT z*^S9#RZOft(?W8rCPP8$UxVLe_l$_VI1*(Zb)d`bdAhe+2X~*Fw1br4AaZp}HU%R= zkf$tiwod>R6%r8jJ>!S0EmRD1)BEdvM+Sw3DWjfmQMm(KCiZbM)}N`)bAw8LOy_Vo zGe4081z1ND*Hfo;qG9ueRBFNYM-XM3*ailWO$`)-iv3q0dwc72LtaU#v8gLmNe3wr z1!)d(SD%oQ`U*o=hgNckwt_AiZeUx({q3`66BJwso=^8f26Ad)TIUFEfW|gqrLp8Y>&;#YtC-e&!HJ#4TxJ?xb zW{J@-2T9K>W6{?=vUXxFZ9thH#XoLvo#O2^Z@Si!eyf&-Rn3}Pr|`(IMyJ--jb(?` zHLBwS{$=N`e4ez8;(}^y29hItrp7x#qf}Id^l5()B?468vS{;xNDH}ME{{R|?`b+F zR6C6N4Ktt<2iswY2^!AkBa!{@Z2}X4+C1!i-tU zEZI;qI>IcNcS-J+0&F{70n>7XSRDe#5ahl?8O*_tum{XmogI><)c`$t6B+I3qoJFp zEl42&hzKPFA8(*&(3**iECJMGWra$|L~nkL$Sj1p`yG26U)FLdmtwK)>X8I8=m6zT zNf|;=K_;cF|5noWrPWav*yV>ut^wQTt$sAXTIKm-NECQ%I8YDDwCRE4O564O;L0hy zB>cFu_|W&|IZ%MwA^q-$alg^%rqc%gwm$1Nb-9ZUN?E(xz032#>wkPcaNbH8e*#Oc zzzY_X|9C$5{gmovZDHZ=_Frope|>oW-zyw7$qh%bT8D|znyLo-t)FlAUR!aipYaCY?f#^+v9^GEQyIH3Te#_e<;M=E zQblejMm6XB^-cB8&HPX7&`JUIybqGB;W4mUb|00i+)<>}%oSv6uHPq?xn{$qE3~ph zRmskdtG`SH?I5Vt)JAl*V4~%U|C|W?Vz&N-LTYyRo?;$}L4CAw{O13MSEfO1ZlJQ46-;*n+m=!7KWEdiL-zcxZV(e2t z+qEd#sD1DK@or*?vUbNY$B~RlXMnBv;rjZZn|nQ#1D6F9U+EU6rldXNS&d6y7n+Jr zm}4XATT6W|dobn#P*yrFC-0o}h^nAw*U_#%-`IW$BDa@YT~OOo*TUgc$5l+w6M;6lsEhuR?jIbghEP_=Z|BSKJJf;#f%}8)&4E-nVat}d1b*7=Lt-Ppr{zyZfycit zwsUb4dp>WqC%oQ7eh7GYaN|d#(evJX$V?3MeY}6r`tmI?)s6cqXB{9x)if zWjuZT$x}<@LmA5;n!)oU68zG*FVW79nB}oi^VH(5##E})Hj#s9nc?wdVJqhoYfR;1 z6%Gr6e&!UL;UaTl0a2BkLu1y=%J%HM67T1UdtxQbDcgHxr1|Q=qt(Y4I=4r&@%GxO zW~|+6m}kVOSixgocl6xv>Ph0c69$7>3C9fstYR1AquEr+3C}^KVlfnZe3)GKB<$;G zKBz7tBSX&X6ie`T%VN%$?i%IlR8f9xAD9}t;<6uvnD?PgO4-PsB65bQc-2-uM0dO@ z&3&nI*PY|1Yv|GCFE8=KJQb$h5ajq!XXb6SfV9N_98kV~`fAwA-95HfzY?w-8i8Bw z(d?PX%?x@MHsjw==$%j%(Hu!uLu{T#&>alppb z7UunYXxrJ7nGgN73{gcO!(|i&CSy9ik9SeV$(3fF9Rde)44IY!l%mhA^kI@&zF8}( zNmNXpJ2fmL0-az>fd8gA^(xMz8opBWLx<@D7ZwM>1UI@J9YuLlFinT*k3n9?PEk9uL}RU|rq| zJ)t##L&BwcK?H40*Oe(Ly)~W)8idSNpl~j;Z?dRcQvO9x`Cfsc=7YxFBHUPkJ<8@< z;?VFUWPUj}T1nP=g&bT0LL^k7?e4_;V9bg1B@EIU7;Mr6CgifB`Pa_{iUe4-Q-;jWO)}MThKDHJ|Si-clWNc6M)*FNN;i=Vf1H-Jc||??qHZ$R!tU zj7y`Shci|#QSBdT>`o@nS~JRxmyjW>q{4P98ui8yc3W+`%13!Zh;bmS*cz}1*3-3w zZS5*7NPNweqfg*em>;sUm2_UldpFtjodCQW*+3c0qeJKK@RWkHh7uR?9EH3ASP2aB#~S{?eyz;2c-?AV|BP7E+gg_ z;)~=GXDo^Z;AZ>4KptzAx?Byk_aQSvUe2^7DbP!cn+Ihz!;j0h{v=}0VX)26$Wm)L z8!x&6n$C+v@za_$Y@P`6!ZZx+<69E6o)!tAGmCtKtXLaN9=}Ou4UmAvEGIQOv8&*Kv}&nF z?K~YkjPHLUi<3er0I|lqRm$z7iy!3DpDEak%an@N0di}7Y;^_#nVTb^(ub(O5z?`; zbMkp#LnW!94KXW{K4^keo2!YYFXN6-EkX(@vkyrk$Vx~(y+P3Dq;7~`UrpY@Eph?_ z9etG4ErDsE30+0T#4qXdfqA`V?vy<59U%5~B3a~YRjq+iCkR(VhkUh^+2~>CJ8by| z9;#0FZEJmv1GzY`ozxeJA}M1a^<8K9Ye!7FUq?c80DsBY`|kImXPeM; zQr|eQeF!~%@5GX>G$EQ3^1 z5L*?Dhz)7>d0r&sR$RaP^d2I0C$ET6fxoa;vSMXV8&L|h->3^JpQXxuu)dtst3k@odAtzjpAf0<|hJ;Tm3 zFmMCPr1GG@F z6PG7fZy+c>@KkB5H}LT;@acZb`IqO%wUbH8sdLW`Lg7zSXQYl!A5f<{7f%j$&wG5Y zlFJ7!JbZ6o1p>MSyGgx(!{_4lEUokAY`y-V)Ab?ZfygaRqR8^{=K)85@B5byUw$vD zVbIv^@!9KjSD^5XeLd>pk8a1r^`73>lg;zTQ@WmGquaet!R`Vd{qN787F!2go_4++ zy^JZgq6&K5M*;#t!bGU$1G5i9vmj6ID$aUGt=58r+2P@Ctsg?S(=K=J+%Nk6OKk_H zeoqHx-eRwv>(4xruY!C|y}ufKmj&~@5_^hASze0WLuaz+YDRG-bAch~Hse@ULs z1Ra1^GrEf}_BWpn{Jfv7;65B2BIUn6iE-CD;&85hZML69%6)z6-!0=#T{ds{wRk$o zfH*b$3c9LwtQs*5u|-1MduA_K9NX-1oqA}oEBdj0bmH@Luyt{6wjG%qxK@7Wz)uT; z3*_$#_n&Q9Duao9clPOZFg)0Tp-LKk_0_Doc*F^`+6(VVy_I=&1*$ zwH0`~nl)(Go3rhP)I<0rT%4O*_J$xnJ4hnlna;EpeSi`^(N+93Ot_@w&Il;-NzWN5 z;xPMFkkjA($EnC;cLaoKF}g>Yi~noaOOKv&;QDzOhBQj(O6GC{CA&f-PmzCIYqKj1P;aeaeOs7cv z!UZoUdIo&dzT zIgPD}%SQNT%9KNbkOhij7+`--$`1YYFMsaa$wu>aN8K+Lk1O}jQ-a&_bJx4D+$)I zRhznz_PGYP%8P3mKq>Iuo^%x^2C{-4p=+&$ zFkUc4owp&>eZ)%ByH(h=AjrjCWwxQxwUu#D(7Y#+@LrXu^`(NeOvz3>e`5q z1^1JTgQ6zAS^`!3eujDBcnL2%epXNhc{HpP045nZlq=2HU0zjrSHr}zkrk4OV!9tp z2vxl-Yyy@3;$bQn3%`|dbJI7v5`bth>q@xZGc*ChBAcj2YO~Grz#_BXqWI)}vKh%r z`abwo%p|!>DrxC#7-!2yT1e2k(CHI60jvqh`nd48vC)kC6lslBHc@X5X~MP!}WNearK5kaMxHpN7{LbDhy;kIH!{jwx5?)*U<@GW=tw9mwJEQf8A znI6XCcwpR|^o{Nc#GMe8ZklX{|G1-$8Vz+StK=}Fja?4%AR`yrw2#)E7{xR|q49jH z=vxjOU3OUIsCHEQh!}KJ6OAr>bcQ*ba#}wQ$x;qmkpkjq7FZ+!-Sk}olN_v+@-{Y` z*>1GN9HVUiJM}@6TWUPKb#gS97(gXVzhT9QO8Tl8iWTONy9D)mpXRHvmKz*UHP*@(-y+3@>e zOyX!Mwqo_dNgP$Qo?%ur8clmV+RO}gZlBDcQ+}r1WUw1Ysn)3FRJxjImM!}396g(9 zpQ#-bQW0{7Y2c?k38Qf|FfhZc8105i2*G~nbgTSJ=1V)hd}3jZp#^wigxZ|!(0}*Q zxQ(T`s4$P8HM`KqJ_K+Dj8*t4*Q5a35AtYNV#G8$rls9N!J)y#`oYFA4K3R=XF~_i z?Tin9SH^{vwrsAQrJ($~!J-)P=2hb&u>FjQZ!JcT51ABRXbL4EAHkMjqiF$BcxW+6 z?v$15iWFWfr}biPpDK8N%PhdAVDRFljyjiQjxDu?kE}zxuji;Nm~(f^G|{GN` zW~hfUxG8;h7EI!X9xRg3~Yr327AL-HQb>R z3r~gU@qLAVNS72gbUyxWmnn@p2AWy_loB_tGClj1psOChB^uP%c(;@md zO_};sdMp(_mYrnHz))YUv~Vn^1mR>`%l{5FBDlXWYh|-EvlWZdM>>B;%o#XwD!g%3 zvGi{$am|gvglPN%+v1qY(v2%Uw&ULc58oHmYQQ`Vaa+;cR_uDiN=_OPg(n4D(aBD z?0a$K^AxUKlv;09m<6DK=M0uL&AD0Q3UHZ@agLVonXruF?fdNchW2|OQ&8k|HGPZe z^$P7x8#$Q2`ZmymR&d?s3?atw698E8UiT#wT4@Y45_P=Xe z?FSe~`$7c3NT{eBnlzqwMvrW`pNqoj=8=%ZFu5oeZO*x+P+$@@ zNiI?Jvioc;5&3c;;Z$Rii`8)RtbahZ5OggRGIN73%LI&RBG`<<&=jeih%13{aG|>l z&y40IvqhjEo$J-EuO3}#M3P!YBU{*&ENrU1q^N0QLa)9vqt|Gfe$Ska*{9OZ9i^8bV=H92?_s@}}>o>GEIw6ZE80edwb!|O3T&3Wh2P@h)8PMOeY@BV%99EO?r z90u0H%Y|TeA*;n0iwJUhb&+Fr?$Jzt`@LdvJ=Xf!1J(oy)8|-HIA!K>Q=qf@?jSI* z+jeD7#%{lgqJx;2@utJUrqX@exVwk<0Sa|^r5!=Kxyf>J$B*ct zZdeSB@;MoJl?1(n&T;ZnDp=`yf%e}#JB^B{>$&bR4uBcnRDg^^0LEqJe1=OhZ;Z2K z?$VEzmhMj_=XIpoRSxy8swLKr*cz#4^R~=v_9HOGU1(@_?5eT|hQj7)+NO3gvlv(b z)L%SH&{)vrD*(j4Xm&s{xtNPbm(oGQonn~=5Mnj2PeWMjxC(SS!}^{Wg8sl|>OHMS zR%`LojjnuGB7K@-`*$MAHrMoDd9`9raHPAm&G8b5dns=bB2+oQMA}IfC`_ruF=)+A zEyvt=o{QG5*i&%2XX`e`myBAWE)vWgnv5}LF(B`WJpjR8Q*B*DWh81T$zjHnA5Ww& z0fBV+Xrr{n(izbA>|y-)?|(GfipR{YS(rxOsZcjZ+I@S*8~d!R?tYs#`MpKAhna5o zXgJ+=rJAcmreRG^W09mzLsPyEk2)h*7nq=~y11CgP=WTuwAV#@x zU^gk{XLrDNT4F6;D%HGJRhR){ag*luw~~^jMPMpZPlp z&0!c73rP^yVNVE4FabfMeu6*kn}hhLGw`(5PeA5&T^Xm4~5ooh{jGYpnO*)A=JeZ+p&dKM`%n`7rwiS!KdDGthz|VP0)`fS zj-!{hz?jOfJ#>Q03@AN(LAfXzW+h%(o~u%&-y0>K0@6Qqlr+_!?NtdjS()(RA+~W1 zGy|+Kh+E1W2Q|AFWhYk82?sTv*T@YWQB%T0eS{6+L@OyGTc_)50$(0__79zaI}h~NdUWOagj)aHTL4}j0yR8mlHPoX9B6-yd{w+=IwS48y1ScxT382?KD~k$ zpPn&%c}~5Y_D*~Py*mkeNfY+AJOdL>KRvqy6PYv*%wGa4& zH9Gh}zPXc`va6G`8;hBftHpnnmi^y3e6Z`{QdHyzSh2#_VP3^YQbQb8924+YP}E_e zA{#ZZ*2P>~v4K=n(~hreO`t<_L?N2JRhB*d6onRz1OE`Na4fo*5HugMtnF~^@_pV< zk7nEW@-XG4SV;h4JdTmcDU34sRDyyg^+E^8AvY=$cs05e?P~a;2!}!djWf#TVEP<( z^J&GRw#u#2V$c>V(Iz6}&YbEhg#SF|G|7lgqB?1ZJ!GBd2tp5x%m0~+ z&~V`~j$j^U(LzAH`^Va@Gx%_|yM?Qog}eLjQ`Rhhe16YtYU6mEJ!OX}iZ$H(B{yqD z8y-@gjaEW!zbWyNjUGIbCY8bfZ?O3u5 z$ff>V7oMxVy@w)ShLz)V&x1?SjqsLP6^e?rqL3IG-rl~(v#sLO+v)JMqXO8J=2Obb zk3+O|P-m=tGyQ{x9tc;~^LJLc3PuwF6?e0cYR7>|o_aGWdkp3iRtKTSrI=H_if``^ zBfqJa1@ky+v!`UDv73A1)3@N=^wwGBMkCNdrO;VEaEgU8@UY@NF8zEcF#dC|9v+B z-=GmeMwz>MAbT*VoelF@)l2v(vK7A@??8PLy&`J>u}(ij*l1{Mv$mK=^-be2b#GAl zDvPbX?5IJ8#ncnvI6Vjh4EmRmh0tk17(Cq2FaI%p`a3P|#e&l(I(X|3?O)TUiL>+n zWlyln{_Dz1`KwAN;tcAR6d6Rw3xbOf(R^P*_))vTSQhw&X0}0D2SZ{(=JrS$Xnp9; ze>0SbTTharsuekjD`@WiUfr~vRuZyrXeHdA`qXosr6=mmNZ86fULl6Gh)d~uuUak< zrnzenj2?82gnXK&D!`$Ly=}vDLkZK(Dr&YXv%w}W{K)zfA3PPy*yWcnDA9_d9+`LI z?|JJ!eyp}3KKUAX*J);IT-#H&ozFR_cBp6NHn^mGabn!Z!0SX`1`P2ZO-SfacP*%@ zhw;Tp1-t18z(%`j#D@x0k=5c9KD6wjG{I`>$CY>2>IjcrJX z+~OJSin0YFOs>(GK4DXzKM^F|O$0-fhXfaj5JtEc#V<{AZuRAT_KSE|9%dpk=2_TP zYD^32pL(-Q1s>NetY_y<^s^aeL&A_fj{@BJ7EXNIp075b@{o>AMN8qV z8a>QgWnsG)2jt=2PXTR)0lI0Vay>^iW!qy$3xQyo{-e4I@(mNXhUGt(m;bZF{`vkN zip`bf{~h4p3t#`K`1`#a92Ngk2K%StzZV1ktKvBLG}!-lY2cqYe^!Y7jr0nxp#P&@ z>`&!C3w!=n4hNU}fR+D8na`gHe;)n&8=(|D&i&Wz|NjmG{t5W!dAPp;H^Ez;V8B05 z$NdTL=V64u0ZK{#(Wd`Cn((LUpZlwStG=cDvoU|~w*HCo@3YFkF(4oexF8_@#~kxd z^*<*9e*+xw{AI)+(}4dtE%+1k-&6J9kPr}g;F7QZw&}kTx3WA8n1c`y$lyO3FpUj_ Het-IZIq6#7 literal 0 HcmV?d00001 diff --git a/man/combineOutputs.Rd b/man/combineOutputs.Rd index eec2b40..529d9a9 100644 --- a/man/combineOutputs.Rd +++ b/man/combineOutputs.Rd @@ -16,7 +16,9 @@ combineOutputs( biomass, soil_carbon, ghg_emission, - filePath + filePath, + readMe, + benchMark ) } \arguments{ @@ -65,7 +67,7 @@ biomass <- biomass_calculation(para, land_required) soil_carbon <- soil_organic_carbon(para, land_required, biomass) ghg_emission <- ghg_emission(para,energy_required,ghg_para,land_required,nitrogen_balance) combineOutputs(para,feed_basket_quality,energy_required,land_required,soil_erosion,water_required, -nitrogen_balance,livestock_productivity,biomass,soil_carbon,ghg_emission,filePath) +nitrogen_balance,livestock_productivity,biomass,soil_carbon,ghg_emission,filePath,readMe,benchMark) } }