phyloseq-test.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading required package: permute\n",
      "Loading required package: lattice\n",
      "This is vegan 2.4-6\n",
      "\n",
      "Attaching package: 'dplyr'\n",
      "\n",
      "The following objects are masked from 'package:stats':\n",
      "\n",
      "    filter, lag\n",
      "\n",
      "The following objects are masked from 'package:base':\n",
      "\n",
      "    intersect, setdiff, setequal, union\n",
      "\n",
      "\n",
      "microbiome R package (microbiome.github.com)\n",
      "    \n",
      "\n",
      "\n",
      " Copyright (C) 2011-2017 Leo Lahti et al. <microbiome.github.io>\n",
      "\n",
      "\n",
      "Attaching package: 'microbiome'\n",
      "\n",
      "The following object is masked from 'package:base':\n",
      "\n",
      "    transform\n",
      "\n"
     ]
    }
   ],
   "source": [
    "library(phyloseq)\n",
    "library(ggplot2)\n",
    "library(vegan)\n",
    "library(dplyr)\n",
    "library(scales)\n",
    "library(grid)\n",
    "library(reshape2)\n",
    "library(RColorBrewer)\n",
    "library(microbiome)\n",
    "library(knitr)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [],
   "source": [
    "otu.table<- import_biom(BIOMfilename = \"otu_table_json.biom\", \n",
    "                        treefilename = \"rep_set.tre\",\n",
    ")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [],
   "source": [
    "mapping <- import_qiime_sample_data(mapfilename = \"map.txt\")\n",
    "phylo <- merge_phyloseq(otu.table, mapping)\n",
    "colnames(tax_table(phylo)) <-c(\"Kingdom\", \"Phylum\", \"Class\",\n",
    "                               \"Order\", \"Family\", \"Genus\", \"Species\")\n",
    "#phylo.percent <- transform_sample_counts(phylo, function(x) x/sum(x))\n",
    "\n",
    "#otu.table <- read.csv(\"test_otu_table.txt\", sep = \"\\t\", skip = 1, row.names = 1)\n",
    "#otu.table <- otu.table*100\n",
    "#otu.table.modi <-melt(cbind(otu.table, ind = rownames(otu.table)), id.vars=c(\"ind\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"Removed 370 rows containing missing values (geom_errorbar).\""
     ]
    },
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAARVBMVEUAAAAAujgaGhozMzNN\nTU1hnP9oaGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PDy8vL4dm3/\n//9CWHaWAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2di3akOK+Fmf6ZpJPOdDqV\n07z/o566AEVhG8u2toypvdeaTsJQkpH5CizfuoGiqGJ1tQtAUUcQQaIoBREkilIQQaIoBREk\nilIQQaIoBREkilIQQaIoBemC9Jml/fpRdwQtOMo4tNAG9k1EkEwdQQuOMg4ttIF9ExEkU0fQ\ngqOMQwttYN9EBMnUEbTgKOPQQhvYNxFBMnUELTjKOLTQBvZNRJBMHUELjjIOLbSBfRMRJFNH\n0IKjjEMLbWDfRATJ1BG04Cjj0EIb2DcRQTJ1BC04yji00Ab2TUSQTB1BC44yDi20gX0TESRT\nR9CCo4xDC21g30S6IP348eN6kT/AIZk/+mP0uOHw/r8yLihobHY8SnhBkgJnBwhlfHH5CQ6E\nhb7bnyO5sL7hSG7fROpPpGukjUC612rY4Q9NkH6MjiKOw/YEBc4PUDpEMuOLy09wICz03b7P\n8BODlH6bFIA0/wg6/KH6RJpB2nYcs7dV4IIAPQRF0fj96lMcCAs9ECSPpov/8bl481n8nI9f\nT5r/X56fx1cAv8OHs3Iv6MGN4zipjoMFnv72Hk8t7L0G/EYTjU819iPNgbDULkg/PDfM4u/8\n2kQKBNKPKdqrn/N38Y/F/8v083A/Bxw+nJV7Qcv7Z/3ATX21m/FeF/jHpz9y179lhV1+d9w+\nFzKaZnyusSQHwggPXpCcsCz/zq5NpFBPpMXPT7cGH8/J9OPczwtvdiAlJhvu3+H+Avt/igv7\nY33nCaojbndxzXIHwggPq2TDVkkfIi+3byIsSNM3yEM+Zv4Wm45l+vGDtHKkCdJsL/+J9Plg\nwlPgQpDmD3nv87k60oyvvjyEDoQRHkKvdo8ldRN6cvsmAoP0+ZjFm6LzeCzTjxck5/tSEyRp\nflZQ8FCBsSAtqyMBpM8fq0uWOBBGePCD5CvpY7jl9k0EzNotLh4D0mRi4z58iH3mBS3voOX1\nrR9OkjqOFhgNUo7xVY0JHQgjPIRAckv6UJmHB+mxEeqPx6oSsvx8Tm4eyJ2cI0Ba1u+j47XC\n9qIFLgFpafwxxFvVIQFpPDPJgTDCw3aywX8DZdYmUqiRDaF86yJkxenvpY25in/8mH4+OMsM\n/RKPh29FlZENiwI73+3LiEmfSAvjq++qjeqQg/SZ5kAY4kj62/N3dm0ixbF2po6gBQ9+3vvY\nlBuPF9DnQFhodFCsRJBMHUELHvw8QcKLIJk6ghY8+HmChBdBMnUELTjKOLTQBvZNRJBMHUEL\njjIOLbSBfRMRJFNH0IKjjEMLbWDfRATJ1BG04Cjj0EIb2DcRQTJ1BC04yji00Ab2TUSQTB1B\nC44yDi20gX0T6YJ0mrX41X9geS7Sz+IA9oJEjhLspQcIZRxa6DT7ZbWJFEEydZRgLxig/v7b\nWcrGUYW2DHIVESRTRwn2QgG6s9PP/6gZRxXaNMhVRJBMHSXYCwSoHwhSon0TESRTRwn24q92\nBGlHIkimjhLsJYH0v4syrk8kjUIr2SdIBEktQHwiJdo3EUEydZRgjyBtH5DbNxFBMnWUYI8g\nbR+Q2zcRQTJ1lGCPIG0fkNs3EUEydZRgjyBtH5DbNxFBMnWUYC8C0uVfjmzYjwiSqaMEe+kB\nQhmHFjrNPkEiSPgAoYxDC51mnyARJHyAUMahhU6zT5AIEj5AKOPQQqfZJ0jPClL/mBBIsEeQ\ntg/I7ZuIIGEd9dn2CNL2Abl9ExEkrCOCpGqfID0pSH2+PYK0fUBu30QECepo0USCznRILSxB\n0hZBgjqyGsUDNQ4ttEKQdyGChHdEkJ5ABAnviCCp2ecT6UlB4qudQZB3IYIEddQPj5m7BHsE\nafuA3L6JCBLWkdFMB6hxaKE1grwHESRTRwn2CNL2Abl9ExEkU0cJ9gjS9gG5fRPVAunff/8t\nCIlZ6LUdhT/+zz//BO0XF7bMOLTQm/adA4vbRm7fRJVA+vffopAkhL4RkP75Z31TKoJUaBxa\n6C37vq/f+baR2zdRHZD+/bcsJPLQNwLSP/84N6UeSKXGoYXesO8ceLht5PZNdHiQil4hN99q\nwp7T7REkj33nAEFaH7B8IoFAOhEkgrTQ8dtITYDENpLPPttIopBkhDzdjx1IogsK22PWzmOf\nWbsd9SOZPZHKQNpDP9I0DMNyOEaaffYjESR8gMK2ZE+OaYSt6UjbNPsEyQokN5lGkKRtGYJU\noKOBlHd/ZzhyvuR3BNLfv39XRRVl1/rlT4KUJoKU58j9kt8PSH//PpIkB+nWNrLaUnNdboI0\nC3qfyPzYgOS5N3cD0t+/K5LEII0U8YmUIYKU5ahxkPydD2wjFYggZTnygCTq4oAGaDzbAcl5\nDw10hxOkAhGkPEc+jgSd7tAATaevOVpnRkIDtAhSgQhSpiMfR/FhYNAAjWe7T6SV8XZAclOj\nBOloIK0cHQGk3Y1s8KRGCRJBggdoPDsfpBqF3rDvy+gQpIODtKM2UhSk1LH30EJv2CdIsJAL\n/FQbIrTjrJ3T1kgbew8t9IZ9ggQLucAPx9rF09+JxqGF3rLPNhJBqhGg6fTcIUJVCr1pn1k7\ngpRqT3NiX+ag1YwggEFiP9LxQcqbrxG0pzrVnCDZiyBpXVARSKqLn/hyDU22kQjSYUBK0b8F\nBdcEKXv0d2qhPQcIko7QIRf44ROJINWQFUg6683E/dQDqWwVIcU20oFAYtYOcZ9I/NR8Iknq\nOPxxvazdcUB63n6kkMaqVLO3UbVZy83lOCJIngOqIHFkgyQkfCK5EQrZTyssQaqhw4NUtjbn\nhiNVkJhskAXl2UGq10YqXC16w9FuQTrOEKHnbSOFI1wpa1e6f8GGo/2CdJyRDczaVetHcucL\nNAEShwjJ7BMkO5ByllLQuKDdZO2O82pHkKqB5NwxsDaS7o59KgEazz5MsmH7gNy+iY4FkueW\ngWXtCJJKodPsE6RqIDWyYx9BEtknSAQJH6DpdLaRKuhYIOVuEpFzQfsFiVm7CjoYSG7yCzbW\nbr8g8YlUQW2CtCFnZKxkvl1QGxe0W5DYRqqhNkHa8FNxXTuBI2iAxrOzt3WpUug0+wTpcCC5\no1faAamRlVa3D8jtm4gg5TnyZAf3AlK0jdTK2t/bB+T2TUSQshzl5tmhARrPjj6RCBJABCnL\nUVMgrR+fBAkggpTlqC2QhDv2VSl0mn2CdDCQcnt+oQEazz7M/kjbB+T2TUSQMh15en53sq2L\nZw/ZlXFm7fRFkJQc7WejMWeIkGuc/UjqIkg6jna09aW6cWih0+wTJIKEDxDKOLTQafYJEkHC\nB2g+P/pq1yxIZdM0kSJIOo72BFI02dAsSIULByBFkHQc7QGkUWP6O+NqKxVabL90KRukCJKO\noz2ANJ4d7UdKNQ4tdIp9guQeSEvAJviptfXlftLfBKmGKoGU2CWY4Kfi/kj77ZB1R6q32Y/E\nNtLqQOoglQQ/be7Y5zmgmLXzzOtrdGQDs3YEKdVeAUgrW5xGYaDDgwRbIJIgqRQ6zT5BqtVG\nKnyrTqjj/cyQJUgVdPCsXWmeJ6WOdUHKCFDQFif24XXwfqRmQcp5ZIeNc2IfXAQp05G7G4Um\nSFmNSKnxhrN2BKkSSMA2EnRdOyxIzfYjESQzkPImruZcEHSlVTBIadFH2c2wT5CMQDrMIvq6\nbSSCBNexQDrQti6aWTu+2uFFkHIvaLeL6HtsrWLCZIO+CFLuBTUEEvuR8DoWSMdpI2mCxJEN\nBjoYSJmbRKg42g9IkR37CBJARwOp4kqruwGJu1FUEEHKcuRrjO0FpOgi+kw2AESQshy1BRLH\n2uF1NJDcJpIVSLuZRsFtXWroaCBxNwq2karoaCDlDcrOcsQ9ZAnSXUcDqd6u5u2AxCcSQATJ\n1NF8ivLy3EvjbCPVEEEydTSdob08d8Q4s3ZwESRTR+MJ6ouhPhY28rgjSAARJC1Hovb7eAIY\npEj07UHqz/L9TLZPkA4PkuzeHE+oC5J51q4f/1n/TLdPkA4HkruatmSVlel0aBspHn3jiX0E\nKVXFIS/3U2nJ4kSQkFm7eGETjevYJUgJ0gl5kZ9GQAL2I6kb17HrBel/Fwkvb98Sg3T7Atlu\nNe4RJMxYO/dAUhsJE6D5fOdxtzHlwwqkfuAT6aL+fvHhZ/QeQeL+SL6BgQRJW0KQ+oEgRS6o\nnSFCqcY1Cu29fTKC3DpIy+smSP4DBClst7//S5AWv3kiYtpsDEfabPQ3QUoodL/4QZAWv/CJ\nlAkSVJP73bWR+n5MSnFkA0Fq54m0z6ydjv0DgbTVaiRIMUcJ9jRB2kM/kor944C02WokSDFH\nCfbyQdIefwQtdJr9w4C03Wp8apB2vPgJQcIrDaRIq3GPIKFGNrjpQUkdQwM0nk2Qaohj7dQc\nJYFkOtWcIOFFkNQcpYBkPNWcIMFFkNQcJYBUd6p5qvGNIBCkSQRJzRFBIkhaQoc87sdsW5cd\ng8RXuwqyAqmsb13sx7Nh3y53NUe2kZhsqCEjkApHe0n9uMMz09bLkV/Qjp9IBKmGbEAqHX+c\n7Uc4AzzZUeGOfbVB4q7m6iJIWY4Kd+yrDBIX0dcXQdK6oN20kaLGudIqQAcHCdVGKt6xD7oc\nV8Q4QQLo6CCBsnbFICHuSalxggRQraxdWnM3308zu5pvpO3LQXKDzzaSsir1IyVWpdSP70Fh\ntmNfEUhbr6TFIBV+jYWDQJBm1RnZkPpyIfVjClJOHUsLnhWghKgk3fDhIBCkWQQp94IIkucA\nQdKRNCQokOzaSATJe4Ag6UgcElAbqZVBq06G2t8BlljwYGG3Mow7uCE3gkyQYiEBZe0amUbh\n9Jl6O8BSCx4qLJ9IBjraNIo2QFJfDHWzsO2ClJcaraKDTaOotmOfsI7HEwiSyH5mZ10VHWsa\nxckSJM3R31CQqi9ZnGk/d/hIFR1riNDJDKTCkQ3xNpImSI0uWUyQJCFpG6TcOp7O0F7nPhaV\nolSP3C5BUlJCSJ4aJM+UIYVG5Hx+bGh5K2Pt2EY6fBtJHySFe3I6/TjzkZi1K3hLl+z6vFG1\nTbSR6s6QbQck9iPlv6WLdn3e8NNE1q7uKkIECaC9DRGS7fq84aeJDtnKa3+30kYiSLGQbH0n\nPjBzWJAQPdbT6fHHXRtZu+0Dcvsm2i1I4/Yx45HVrs8bRfhnfeBf0AXpgqSa/uaSxfbaK0gj\nReVPJNT+SNhpFKcikJRveJTdDPsESf6W/hxtpGyQlulLo23eUHYz7BMk+Vt6qyClbX0Zm48U\nuieXgbDaeBRlN8M+QZKHvAwkd1C21ejvJJCyx9oRpHT7JjoaSBVf7RJAyh/9TZDS7ZtopyDt\nfmTDzkD6XySXWaSNIBCkSfsDqdDPk4Ek/HrhEwmt/Y21K/WzDv0eQcqfRvHYXd33fLXbiQ4/\n+tuuH6kkayf+plm3iwjSTnS0+Uj1nkii4Wsb9mT3JJMN6fZNVAsk2HJczgGj0d+yAdUJBSdI\n2wfk9k1UCSTYApEJIN3Tg/2QnB70fDFIdjQLl1PaiJzL6ZT1gCBxYl/kvoMtWZzwajfeg6tv\nd2GHlf+boQAk2zUbGgGJU81j3y04kMQ5gCnftQ+QOGhVFhSC9HjAEKRwW6xk4hNBUrCbERSC\ntDqAayPJs3Zzk8g/8Wl7sMC1ipcHrleUXXCCJAsKQVofQGXtEtLfpaNj19vHFKW/2UYSBYUg\n6YRc4CcRpOk3o9GxIXuNPpF0xqsk2CdIBOnRXu58pMyoYEBSGq8SCsr2hcjtm+jZQTKerzGd\nYbz2NwYkrfEqoaBsX4jcvokI0v0/O5DcFbNabCMpgyRZNZMg7RUk44lP4wngtb+PC1JRrheq\nJwaphqPxBOza39pJgaBd3TaSIChlvY9QEaRMR7prNqgEKGir8IbfCoJm1i4aFGGvdxURJK0L\nEr2+z6cAlyx2bJW+giUEAZu1I0haIRf4aQQkRIBCtpoBKWafIGmFXOCnGkhp69oRpBz7T9NG\nstJG6Os9kfYD0voVCdZGsgaJWbsneCLtByS30Q7K2tmDxH6kaiCVfYel1PFeQFLPrUMLvWmf\nY+12A1LhW3XCBRGkrEJv2efo73ogrSJfmudJuKBCkPRGNhwGJM5HgoU86mcd+WZA0hxrp93b\nmxAEgqQjdMhjfnJngGtcUNrEPug0ioPs2EeQYCGP+XFDb9ZGSlvX7hDTKErtRu2zjbQfkGBZ\nO9/6kOLFT/IX0c8rbKMgMWu3mzbSyWr0N0HKLHSafYJUKWt3IkjeAwRJW0cDqdp8JLaR8gqd\nZp8gVQMJNrKhbDcK5eFwscKCQNKdj0SQZqGqMsGP1ciGvP1jtuwZTjVPW1UwaEZ3hqyg3ASp\nFki4fqSWQUpc5zZkRnnNhni5TwSpVrIBCVJOViNoz/LVLnXl9ZBdPEhMf+8l/Q0DKTPPHrJn\nmmxoBiR2yNYCyWxkg2/0ytOBhG4jcYhQtCpzQx7zYzaywetIcEEJ9vbfRkJn7QhSvCrtQML0\nI+XWcTAetulvpaydUq2GzBEkWMijfsyGCGW+vs+nOAO0TdPfjXTIso20m6zdaacg2S4Q2SpI\nzNrVA8loiFDhq531ksWtguQc4CpCBGlpjyDl2X+ade3CIdHJ78T9ECRvVI4BElda1epxiPox\nG/3NNpJSoVPsEyStPvCYn5PlbhQ57eD5FMtF9EuNo+wm2ydI3hEHGSGP+ckdS5rhyCU2CSTE\nPYkyDi10kv2nbyM5ICX2rUv9GILkOuITqfA9Q6DzXQOxW646baTU0V5iP608kdpsIyHoTyv3\n0/cjmYFUcevLw2ftIPSnlfvZQVq/2hGkBkHCFDqt3ATpcCAVtZEIUma5CVI1kIwWiBTW8XRG\ni20kgrSlSh2ysKxdxW1dDp+1YxtpQ7WGCKH6kcwWPykEqcl+JPOsHUd/g3sctkL/8CdBUjAO\nLfSWfc5HqgcSn0j6xqGF3rDPGbKwkAv87K+N1FsFCGUcWugN+wTJE+Fq0yhgSxZLQertQeJG\nY/biNIpcR0KQ+swnUkY2Zjr9KFtfso3khOSA0yiEIPWZr3Y5/QPj2dyMuYYIUq6j9QH/E+QO\n0v8ukvodkyRZhSVINXR4kIr6q5KeSD5H/ZD3RMoa+jGeLQCJ69qp62htJLtpFBKQ+vmfRHsl\nIMXbSGorrbKNNOtoWTu3L7wqSDd57MUSawVtpKhxtbW/0SBxZAMq5FE/nu+wqq92F/meSLGH\nBvSJ1A5I8s666joWSL636j2CFG3GQNtIBAmgw4NklmwIvortDqRm2kgEaUcgWT2RZDf+eEJl\nkBrJ2m0fkNs30bFAqtdGEo6OHc/23OvOgzQ/2XCYkQ0E6fmeSGkgufe655U0e4jQUcbabR+Q\n2zcRQdK5oESQ1ve6So+1uLAESV+HB8kq2ZDURpIUnCBtH5DbN9GxQDJsI7kdv5I2TcgeQZLZ\nJ0hGIBmObMgaixS0pzGGaqOwBAktgpR7QQTJPZC3pE1CuQlStVc7WBtJFaRjvNplLrIWts+x\ndvtJNrTxRNKdZ/L379+Ma00u9PpA7rKfQfsc/b0jkJ7wiVSrQ1YbJM5Hioa8dIHIkMbQPxwr\n2lBn44KyZhAG7Sm2karNkCVIS3387Lrh9U+eNWnIYUsWW6a/nYW/BI4S7LUHknYbyft+UbIm\nFFIrkL5furOGrvtcn3gbwzxNU1v/HCUNee53V9yPVdYuk1hpgE5NgqSdtfNx1MjWl2/d+5mi\n4b/udXVef5813bs/J0lDjgPJaPGT3KyGNECnApCK2kglX49Zhd607+Oojc2YzxDN/y3VDwRp\nVcP7Balg0Go/r9aSUatZhU6xfwCQBl2Q7LZ1eUqQso33A0HKlP/V7r17W58YAylp2bbS7ak3\nQm+0itCO20j5xvth3yA11Eb67rur+q/1ibpPpMyQC/zY7diXk9WABqjYuAtS4tdjnhLK3UzW\nbhh+vXTdy/u3c2IjILkjhIq+w+SOykZ/qwSo1Hg/7P2JtDwgt28icYdsGyCt37hK36rFjgrn\nI6kEqND4XJnBWjXfsa9dkF6dttGkJkBycgAokHIdQQNUaHxezTJUq/G0Okd/T+qDTyiCpOEI\nGiAN4xtPJPVlvjLK3QxIf17fnTTDTaojG7aqUqKQWTcrDWojESSPXfXR3w2D1M3KsqZRlUV+\nfPORIFm7zMYYNEAaxje+HgnSlg4Gkt0M2bz0IDRA8/mg5bggC5anBaUZkAqVEBIQSPU6ZJXT\n3xnt9ul02HwkxBYaSUEhSIZPpNUBzKsdfIhQzj05nn2c0d8Ng9T8q936iWSVbDjpgpT1ljSe\nfZitL7cPyO2b6OAgmaW/TwQp2W6G/WZAuunr9VeeNXTI4358KQCTkQ2lIG0kAfXbSGmvYOFC\nE6RZ/ifPd5dHkjwkeW/TAj9GIJVONV/f6lv9X+pZu0Tj4SAQpFmBVzj0q11mfifuxzOUFDNo\ntWwVofVDw9uTLLAnLWzRe6PU7okgrfVf13uPx4SqygQ/1aZRpDyRnGaMp82Vfk9uRIUgoRVK\nNrxnWUNVZYIfoydSWRtJABKfSJEDcvsm8oPU53GEbUsL/Tz8aZi1K3oi6baRlF+sxXYJkpaC\nEdC4TyR+Wkl/x9pIRVm7+BAhZu3UZQOSyn0i8HOqCFLaEKHIjn3g9Df7kdS1BumjH4bPrlfu\nR6oGkl0bSeYIGqDxbHbI1tAKpI+uG74uC6Do9iPVA8kqayd89AXtKbaRDgSSJzXayOInL93n\n+b+PP9rpb7M2kjNo1Whbl1KQfNMyUgs+nn0ckDIf+1XkLhD5u3vR75DdalE0OY1CHSSFoR/T\n6UdpI+VOQ64iZ82Gr7fuz6WVlGVNHJLMkMf8nDJ3W1FwVNZGcg4Upb9BE/sI0oZWIP26dCJd\nHki6HbIVQWrziVSW/la+4VF2HfuRVGZLIA3vXf/7/GBS7pAlSHF7BEk0ALGRNlKhghF2uy9b\nBylvCMVGwZ8eJMkAxGaydoUKR9hJZDbfRnKTA4ptJIJ0kWdA492B3L6J3Fe7Q82QPeFe7dYH\n0kY2ECTHvidt73DUDEjvB5tqfrIDaTdTzSWF3SNIkrR9MyD13Z/X7uv71d1DViR5yFH9SHYd\nslCQsKO/dwqSIG3fTBvp/CT61f0evp09ZGUShxw2sqHmq53AkdxeQYfscUFqJ2t3HdnwAZ9q\nbjjWrtEnUs49iTI+nwre1iX6atdQP9LP7r+v7mX4JEhpFyR1NJ+CuCdRxhdmVYcerewLd7to\nA6QLQa+XXENwn6RNhSNsBZKb59klSJB7EmV8aVZzMGyy/YZAGn6/XHZkzhwhVL+NlLmUQvkF\nlU41VwQJNfqbIG2p1trfmKxd7gxwhQtaHojaqw1SWvShhR6O2UYqVDjCNv1IBElkPPF9YDoT\n3EYSLmyZAJKspf941mWKeE6uzfnEx89LM+lPsqGrwhGuBpLVEKEkkOq2kVJbqPMHwVk70XtM\nSss6B6TrX+Ugfb9cRzV08A5ZQ5AwU83LQNJe6CfJeDZI6H4kSUM0pTZzcs+Z+eo1SG/d+8XU\nf+gOWRBI6pOTEy4oDSRENkZqvB2Q8sfafb12P29QfL913dv35divvnv5uP7Pn7eVG7vuT/96\nPev838/u9eu2sONI09flg1/X06YPbMjtkJ3/yxA65HE/eWuSaFyQKkjYsXaZbSRzkPJHf39f\nFvD5eb2LL79dVk8Yx5F+jP/zzNn5Ln/t3sb7/e0ypfV7AdLtrPOh8199fPFhK5AqTaPYW55n\no+CGIDWyQKQvdSQE6f38SvX9ermLf10AeL+N1vm6raHwfqbn83aX355LV6S+h9fLn3Mb6WJi\nOnT+nx+R1Rf8r3bv2h2ytSb28YnkP5AUfZTdmP0CkF7O0AxfFx5ernf45fnTd2+/x//5fTvr\ngtYE0p/L+S8LkEYTL8vTNrRONvTj4t9f8jgsNF9lbPa9GkjrVvVBXu2ec/S3Hki3u/6GyDQt\n6Pf53n55QGJ51sNvnkOJIJ0fhS9nd+/f8jAsNV1kfPY9CKTDJBuecvS3XhvJB9Iw/Hnp+k8r\nkIo0XqNk9j0EpJrpb+VpFAX9SIcBKT9rt361m/RxOzS/2k3/drfzXwOvdveTg7IBCddGioK0\nz0GrBCnPvvRr8dcteXDNGbwPt+6cvvsc/tySDe/nX1YPnWty4lcg2TCdtqHl/+27heRxcEPy\nlE+kHU2jOCxI4hf1e/p7bPX/mdLfZ1a+poz4A0i3FR2HcV3Hx/T3dNqGlv/3pxZIz9lG2s00\nisOClJA6+vo5dche+lVfrwN13vtxm5U/r7eu1odXu9db7+vHBNKyQ3YYkkD66F5+5Q0NmjRf\n8jNm7fYyjUJS2H2CpD1oVa7cgUELC4vfv94uT7O3/zJTdkPi0J2MkLt+1pGv2I/UEEj77JCt\nOI1CF6SzPi/Z7+71l/ro7403roOAJLqgqdTaU4bSCrvPIUKyoGAWP1EH6ayvj6ndlS5pyLM6\n7r1+IiDZtZFkjqZSa08ZSipsjUGrt/upv2j8mREU3HJcCJDO+v7ZzOInMZCAO/at3UgefVOp\nY/cMdIhQBZBGbkZ6+sXvCUF5PCAMipWO/kTa524UzwZSPwhAOtRKq2Mb6SNvqB3sLT3shyCJ\nCgtqI8nH9D+wc3SQrlm7/u03IGunsUWq189eQFJuI2FB0sraJYxXubEzNZHmI/+7aDxlDIrw\nYvcmUD/SXtLfJzOQ0naj0F5WIVbYouxayExK72C//AffRvq/DQmjmSjMyIZoyA/3aid0dC+3\n7rIKscLuA6TpNzFIzquj9K6pC5LaWLtoyHHJBnehVZ2snXPfuwOTn243CmWQ3Md0/oCvuiCV\nSxpyO5DU+pFig/qecX+k5DbS+E8AJMXNmI8K0jrkZulveejTHOUOMw8GqEmQcrJ2j8mGTftP\nDFJY54As/7wGJN/aPbaRJ5IdSElZO+eeWR9oBKSckQ3Ln9v2nxgkeciNsnZmIKX1I8UD1EIb\nqdRu1D7bSKiQu37MxtpF2kjaIJKSPqUAACAASURBVHHNhosazdqVCx1y14/VWDsnXZ038Sls\nTyFAYVutgtRoP9JZhT2y6JA7ftz7EdOP5HYVeoZqJLSR8mfILpsXj00NgnRXdZC66xihbGvo\nkK/9eO5H94lU4GdyJFnNJSVrlz+xb5nwWiW/CNJdCiAlvqutF4j87zq84fW/wgUibUDy3Y+Q\nJ5JkNRebGbIESWT/gZxzpKu0kX6/X4Y4vOQ8l9AhX/khSATJrxVHDyTJC5Yi3wPs67ZwUcbO\nLuiQr/yYgSRZFslmFaEASMtR1OoKl1EZpHgGJgOk8SZZgzQOg7vsBXZbj3V1cOjuf69O9so9\n/ufn9XH0edlgJlXokK/9+HIAa8c6g1Y9uYaiIUK5WbvHeT3HSjYozkea+VlrAqkb/7lv0Net\nDy7+Xh33aX349+v8VpcxcBUdcsdPPGuntfVldNCqzZLFB361A02jCDyRLlow4gdnafLhZFfr\n9HfX/ZxWEMqYbo4OuetH0I9U4CfFkaiOiwNEkET2BW2kcUux66/jP9O8Bxek9cmu1unv98yF\nuG5Ch9z1E51GoTUfiSCp213Z94CkM7LBm7Vbvb09gOOA5Jzsap3+ll++Txoh9w9vDA1zNJvY\nR5DU7a7sCzrr9Mbard/iNkFyT3bldMjefvbpr3UXKYS8985cCQ6815lvF7+geGPMBqT7N8tw\ntGRDvI9BcfT3lGOIt5E638mubGbIykPe+6eASUHKTKZFL8iTUKoEkqCwjYIU72PQnEbR3TLc\nDyDd09yPf7snu3pc/OSuD3kcPCEpf7Ubf0sEyTvfLqNq1468r++rCypzpCGN6Fvadey7LaRm\n5yMVLt2qEfIYSI9dj4+rN42hfzhWMH8wLaHEjcZKQVqb43wkFZCWk5Lzn0iYIUK+KyRIyk+k\nZucjdd1QvY1UBpJlG4kgqRR6SAuypCE6EKSL3HVt95m1I0gqhR7SHvtNgFQujZAvO0nSQbLr\nRyJIKasICewTpLs0qnJBUFMgqS7HtRUgc+NBMwnr2gnsS0Y2tAPSx/lu/Rz3rE2XRlXOAxke\ntqTa38iG1QXpLse1FSBz4yEzntSObhvJ0+IVgmSvFUgf58bRdff0PJJQVRn2YzVo1WkirS5I\nfRWhPYIU6+dRztr5crCtPJFeus/zfx9/wBuN5Ybc9bOXJ9IzrCIkmN1IkKY/u+F395LdMYuq\nyrCfRkESZHp3B5JgUKnuq13LIPXd11v359JKyrKGqsqwHyuQYq922psxNwESOmuXuVTTsAOQ\nft22j+269yxrqKoM+9nLE8lqOS5ZYa1AQvcj5S0eOOwApOG963+fH0x5HB0YJN0O2SZBwryP\npgSloUGrhUJVZdiPEUjaQ4RabCNhMiQpQWkIpNe3Imuoqgz7sQFJf9Bqi1k7waBS1aydU+6G\nQOrrT6NI89MqSHX7kdK2upjOFHSYYkFqqI305/U9b7Him+RViQIJM2j1YCAlbr4UCgJ8ZENm\nRmdIAGm96Fa2nH6k6qO/0/zsZxqFzbp2sqhsG0/dDnAZAyBIkm+rLJDOZdx6Iu0aJFCz1PFj\nNLFPbTVd0cdvxcZtNNYuSFmvdtdCWoNUqOmCUYnStR+tPZKTHXkuSBck5NaXmSCh20ig9Pd4\nT6xBuq9nsmOQYF13Kz+nOEiorS/BIKXe60nGM9tI8Kydavr7H7/+z12OCwTSx8+z/dfM9VaX\nEakBUu7WrumOPEu6tgNSZtYO1fKdPwJJf/ufSIsl6yAgfb9c20ddl7cD5j0glUDK3No1wxF2\nXTswSJn9SI4Z5X4kyReAUhsJDdJb93554v2XsznSUL+NdFrf32oguYNWsQtEIttIJy2QtPuR\n4uVWy9qhQbptulQ+jaJS1u7k3N9qbSSnjsErrQKzdiclkNTnI8XLLQrykLb2965B2s/IBq2s\nnTVIexwidDCQkMmG8dXuvcsbc4eqyrAfs2kU0eZBGkhNjrU7EEjo9Pf3uJB+38Su5qd6E/s8\nQyhSQGpq9HdQ1yAUfD693HogXaTZ9+PY+vXSdS/vmfskWVXl/FH3i91mYl/uLOh7sQWd+KkF\nD9o6TNZOv42kpvWg1TJr8pBn3CceP54v9oOA1ETWTunrMcG+6qud6mCEdbJh3Ig5U8EIbA04\nyAfJdz8eA6RG+pEaBklbznJcXf8rf//LUATW913WfeL6qQeSfhtpY0QGQfId2DRZHaTh673v\nup954xqeCSTtrN0KzEZAareNpC7Pe+Lne9e9/JdlLRQBEEiGbSRBViMJpFgmeZdtpAj9qXYz\nyt0USOfHkvbEPpX7xOfHKmsnIVYVpKKsnXInVSgIFfqRsoYIVXsivZ2fSLp7yKrcJ14/9dZs\nAINU0I+k3UkVCoI9SIUDvpDytpHetNtIWi8Brp+DgKQSoI3CHgOkrGkUdZ5Il97YD/2snVaz\n1PVTDaTCZAMiQOHCYkAybyM1BFL3E9OPpJQodf3UWiCyMP0NCdCyrACQojn7rEKnBKUhkPIf\nRleJQwIDyX1QQLJ2hR2ymAAtyopoI8FXWlVsI9UFyXIzZqVkQzwhi3ki7RokVNYO9fWYYL+N\nrJ0hSErpb8n9DWkj7RskdshWf7UrlDQkqJENZiDtuY2kbjxohh2ydxGkLEf6WbsGQarQIdsK\nSN+/Xs9vdT/DvbHrTcYfNxuvDpLlksWcak6QFnoA6fc4P7brAz2y/fjP+uckcUhAbSTPg0Jt\nV3PoWDvPAYK0fWDTZBSk9RTz4jezpYGvrnu7zOz7/Nl1/jy4GkiorF3m/R11pP5Ecs2pdcie\nrEBqpY10vtd8TyQcSPclT94Ce8jqgWTXIasBkvoQIUEHbwMgtZG1u779mILUd9OSJ1/di/fs\nDZD+d9F84vk2KS3Zlu6BbRMkzLA172f9B5RAMu9HygBpbI/7Xu3GXp5xQaEyrfqRPL8+aEwu\nxJ5I2n3ra90/Ww2korW/wSCZdcju+In0r19LkLphbiuVr9+QBpLw1U59tNda98/agCTajHk3\nIMGGCDXZRtp4Ij3+LBNBkjmKf8nvBiTYoNVGs3beNhJBWvo5HeaJ1MJ8JMdMIyB5s3ZgkLrI\nWDtp1u4J2kjKIDUwH8kx0wpIK11PqAySeGSDcnN3rftnBYvoF/hBgYRdsphtJBlIsGRDuVBV\nGfJTc6p5EUjYRfSZtZM9kVDp73LdK3I/bSTUWLsykBBdMijjYTPtgqQuK5DaXrNBO2u3/fHc\nAKGMB800/GqnLiOQlEK+8nPiE8nCeMiMerJB6dtqOAxIsKUE137abSMh3pJEZcswHjKjDZLW\nt9VwHJAEa4UQpMdiNzhoVRkktSAPBwIJFHLXz0FAanLQKkFaaA3SO2bxk8bbSAQJVujhmCC9\nRzpkIwpHwCpr5y5rB1uzIaeOQwFqEiTtrN2R2kh99+e1+/p+7fJW/0ZVZdhPvazdbtf+do2j\nQNLuR9LL2tlrvWRxN/zqfg/f3WuWNXlVPvtuFC6XDWTtQAO/Fua1nkj2ckH63X1kjz0SV6XW\n/kjxV7t9ggQda4cCCTXwa2leqY1krxUwP7v/LtPMP8Egae3Y1+puFJgxVGFbKiDBBn4l2G8G\npAtBl6Xt5mVQ0iStShxImCeS9m4UBElmP+/bqorWT57fL5c1hAKLCEUlrUo1kNy3dpsnkifL\nRpCyCj3of1tVUZ0li3ELRBrNRyoEiW0kb7l9HGUEuYoqgaSTtRPlAHYJEnY+klnWDjuNommQ\n3nuVDllQonTlRwJS0ZMv7KisjeSJh26AVBUsI3gaRcsgKY1sQL0ErPwIQCrcBzvsqChr54lH\nC08k7BAht5gNt5H67leJtfEaYc1SgZ/Vni7iXUc3HXE3Cp8Z/HykdrN2hYtA3ANyMJC4G4XH\njPaY/mtlpn9sH3Je7Yq2Yx5jWBGkVcWqgaS07lc4Hg2CpNxGktw1ZS1epNZPoJ+vX97zZEoI\nCQYkp2p12kgnguQzYw5SYW0ilbiuXUTTBRslGyRT2lWydifJEIqnA8l8PlLp+wVSGJCsFogU\ngKS2itCq/Fs3q8AeQXLtR79+WwGpXPMlV+pHSgLptkTs9tqxdzNRkEQ9zOGPE6T4XfN8IFXr\nR/L0PITu7/6+cHl4NfO7mfgT6elAsl/XrpE20kXf7y9d95rbmTRe436ydqfg/d0PSSAJXu2e\nDyT4Sqvut2IrWbuvcYRQn5e7G6+xKkgrP5FXO/ETKXpvPiNIOrUaNNfwyIbX7pL+/notm4+0\nnw7ZUz5Ij5vixnX+shQX3BOPJkHioNVZ/pEN32VZOyuQZNMoQi8Duk8k2eu73F4LIHHQ6l3O\nVPPbyIayxU/MQIqPztq4v1VBEiaUxPZaAAk9aLVlkIa31z+XV7vM8Q3TRVp1yDrJtHXkt+5v\ngiQ0HjLD0d8LOa92RZ2y81UadciuQXKqliApGA+ZgYPUcNZOCyRQfsfV42jhsWrvB8b72/tR\ntpGExkNm8CA13I9UJlRVhv1EnkjRNpJ0ZEO8H0n0ZQkNEMp4yIw5SM83sqEWSJ63atSgVYJk\nP7KhFZAUB63WAkk+sqHUEV/tTuYjGwhS+3vIxkB6imQDKIUUNKc9uwwpo9HfSi8Bjh+CZGB8\nDgGoUyNkTn12GVKN7yErWErBZlfzJwAJ1s0eMtd0h+xNn++993hMoZCjQPIMtYOstCpwdPw2\nEkHakgek32991zUBUtmgVWVHh8/aSSatgNtIDYH0++26F8XvPGvBkGPaSHsC6fhPJMki99is\n3akVkG4UdflLcgVDjsnaqT0oyh09QRtJssh9GUjxrGAbII3PooJFIhcROdSSxfH5GiGQHgdK\nNA4SeGSD4K5pBaSf30PRaqvLiOxiYl9pF95sKJYeDDhaDd07Okj/ZqV2xg9I7ppWQFJ6Ih0Q\npOgQCv+j79Ag+SetJBZ6OCBIam2kJwApZVDfYUE6eTjKeJEeP3AgkIY5a/eZZ226SKM2kiCp\nodRGWo/+9nVxRBbQS10DoqCwZiA9HiBIjyrvR7Kb2OfhCDP6Oxuk3GRDRnNDbpwgqQsyskG9\nKsN+Ch4USY7Kn0hpAcppboiNK6W/13YLQTpO1q5cqKoM+7ECKd5GUgUp656UGj9lghS70UtB\nOkw/UrlQVRn2U+mJJJ34lJu12yNI8Vevsqwdn0h3oaoy7KfgQZHkKNaPFBgd+1QgsY2kJlRV\nhv0YzZCNjmwI1XHuyIYdtpEI0paOB9LasdXob1EdywO0v6xdBZBaHbRaLFRVhv3YzJCtANL+\nOmTt20gtT6NoQ/fARkFSmdjn/bJceyZIZWPtJKPLnwUkVFWG/dR7ImW9vkMDhDI+nYkarzJ/\nhCBNQlVl2I/R4idamVlogFDG51NB41UW5qM7AhMkDEjxrDSfSMXGoYUeNoL8vG0kecjz3qbX\nfiRZaYJUahxa6GG7Icqs3XbIM/M7Kz+iZBpBKjUOLfSgH+QqMlogchWS3B6HlR8zkNhGghV6\n0A9yFdksELkOiSFIatMoVMZTij7u/J1a2EZB4qDVWfeAYPrAV34EbSTQxL7cOhZ93Pk7tbCt\nghS3T5AgbaTsNUnSHQnGIhEkgqSl8RphfeArPzVBer4hQphCD3y18+gekGj+JSvkKz/5y82l\nOiJIqEIPm7VJkExAEiQbcG0kgqRS6CHpriFItUBS2/rSqVKCpFLogSB5NF2k4CFtBZLWmg3r\n8ud1uoftESSCdNd0kccHKXMYWDgeBIltpLuWEdnJqx0GJM/AZFEaMhwPhbSm3Pg+QWLWbtY9\nILVAAq3ZIABJ5CgcD4WOtvnD8RtynyCxH2nSvSIrpb9hqwgZg1S0ilD2i/W0UovlXjRp9p8M\npGprfwMXiIy3kfYCUvbX2LR2mOkWGmn2nw0ko7W/nVvGDqTMd8iwPYIksf90IIFCvvIjAUln\nV3PPBWE3Yy5oI5W9WBOkPB0LJLM20gm+GXNB1q7oxfoRpMe9aM5mU4InlTwoBMkq2WCVtTvt\nejPmghfrfgg/kVAt34SgECQMSFaLn/guaMcgFRjfAAmWi00oN0ECgWS1HJdvN4pHL4kgIbIx\nYVti4/3jPw92CdKWCFKuI7dNk9BGgrwlhW1Jjff3fwlSmgiSzFF8qnlK1g5zT4ZtSTtkFz/Y\nRkqTFUgbQzybACn6RErqR9onSH0/DmkIjWwA9Q4m2H96kLbWniVIXnt1kg2Wdtf2Ofp7VigC\nno7SxkASfFmmjGyI3zPPN/pb8u1CkBoHSfBlmTSNImpvhzv2qdtd2SdId4Ui0DpIanUstbfH\nPWTV7aYG5fGA3L6J2EaSOCJIfjM6KaTpE2wjzUKH3PVTbcc+gqT29Th/hFm7SaiqDPvRWSUr\n5kgbpII20iI1PaernajYgOS+sJdtfckn0ixUVYb9uCN3VHfU0a7je7ljX76Be3LdWWox3SFk\nxgGpbDNmtpHuQlVl2M96nVXlPd5mN9ogFQ0+6Fd/axlPLPQapNytEcYPEKS7UFUZ9uNMotDd\ndVS7josDtCeQ1l9bBElN81WCBpM4fpoFKTdAK5Cm3x4n4CkrXEanhVQCEttIdyWEpHWQyrZ1\nyQ5QAKRVVIyeSBqpxiHp2+XJQPLedybpb8M2UglIkifcE4IUL/fTg+RZk0RlfySrrJ1kKm4F\nkHqfcY8tggSXDUhaidKVn5NVP5Kao1CATkcAqTD9LSk3QdJJlK78nFoFSauNtDOQCjtkCdKs\n6SK9b3ZNg+Q2kcq2dclOa87LCs//eKJSC6S8lm+C/WcDyblPlHocHD9WIPmSJ9zWhSDdVWnQ\nqlYbSSkHEHMUb/QJHYUDRJAk9gmSztv02o9WVjrmiCDBCp1m/+lAshnZ4Et+HQWk55tqLrH/\nbCAZjWwwA8m+jfSEU80l9p8MJKuRDXYgqWftEH2bUuMngqSvWiMbmgeprB+JIOXZf3aQQIuf\nVHy1I0jldjPsPxlIki0pNUCql7XLdeS9ft8BtpFiB+T2TWSTtWv9ieRt9OU48l6/98DBsnbj\n8vze3Z4T7Bf1PkLV9HJcNUHK+7IUfTw3QCjjCnYfhzWthjfJ7ZeNh4Gq6eW4qraRCJJ7IPQY\n7QcVkISbUFVR22s2WLWR1CZvQgOEMh42Ix/4RZCShKrKoB+jsXYnyW4UzwdSwlDkAEhpa02M\nDsTnW2qvIK2bpaHmaWRHyhNBKjceMpMyOYZtpEdt3996VbkOeTD0Ovd3UNqORB93/k4u7FFB\nOkzWLnJ/24Ok1HQJ6m6GIDlmKoB0lH6kvYGklUwLav5sfA/ZJwApMl0Tnmw4HQukoS5Ii+bp\nmP5OuoQ0adexWoAsjU9nevoaVk3ScC8yX+0e1A/jbr23P9b3t+Jan33Q0UXLmoUucptQx4cH\nSRDtCEjFIxsOk2yYbu6dvNpJQFLZH0lyQQQJvhzXcfqRWmwj7ROkeJakPZDgC0QSpOSqVMza\n7RIkwTfA7kCKtpEIkli7A0mQld4jSEXNDY3CQrJ2cJAO1EYa/4GDlD2y4Sgg7XI+UmxyDLqN\ndJysndnIhojunz0oSLucIRufrpnxGE0r91H6kWJCVWXYT5sgRdtIewTJoZ8gLUSQtC5INWvX\nBEgpIxuUyk2QCFKavR22kbzz7U2zdieCRJBS7e0wawd5H00rN0EiSPgAoYzPpyLeR9PK/XQg\nITrufX4IkoFxqV2CpKbpIuMd93n5nbUfgmRhXGpXHyTlHYGRslr7W6Et7fo5ESQL41K76iBp\n71GPVB2QckO+8nMiSBbGxXaV09+5e+dUEUESOiJIAru6HbIECZYoXfshSBbGoYXesE+Q4lk7\ntpEIUtz+07eRBCFn1i5mjyAxawcLueuHIOGNQwudZp8gESR8gFDG51PdhdZVtkZIKDdBIkj4\nAKGMT2f6xqxqbNaTUG6CRJDwAUIZH08UzEcqBAm9bi5SBEnrgghSVqGHjScekw0EqUaAUMbH\nE9EgxScOnggSCqRWl+NqESR0G0kCKkHCgNTuApEtggTO2hGku1BVGfAjWB6uEKRZSkv1QwOE\nMg4t9BD+WiRIsJCv/EhAKlsJ7W6H27pgCj1sPPHYRtoPSIVrc94NESTYvOewOWbt9tJGKl0t\n+m6JIGEWLE8rN0GqlLVTA6mFvkJU9O8hiL5IEyQdoaoy7CfyoNACSZIePPoTiSBt6eAgKbWR\nROlBgqSdbCBI+wFJJ2tHkOYoaBc6zT5BqgaSSocsQZrCoF7oQT/IVUSQRI7YRhqjoF7ogSB5\nhKrKsB+rQatKr+/QAKGML2KAfLUjSHehqjLsx2z0N/uR0MkGgnQXqirDfggS3vgUAYK0IYIk\nc+S82REkj92yBSJd8xwiRJAqBAhlfA5BDKTCJYsd8xy0ejyQ+GqHW4g6ZJ/TKNSrMuhHkEwj\nSKXG5xBEsnYESU2oqgz5kXTvMP1dalwaBIKkJlRVBvyI8jzskC01Hjazus3ZRtISqioDfsxA\n4hAhrxnnRi/c1sX5smLWjiBVCBDKeMiM+gKR8XITpLbbSATJZ6YCSGVj+ZEiSGqOCBIcpMLZ\nZUg1DZJdsoFZO48Zc5BK5zsjRZCEF8R+JMcMQVroaCA5aR4OESo2HjJDkBaqtIcs7okEA4mv\ndo4Z8/2Rnq6NJGibtwVSE8kGlOZyRPt5CvuRmLWbdA94tO3SFEhMf89R2LJbOLJBUO4n60ey\nAslXtQRJ3bg0CIVj7STlJkh8Ii3tbX88N0Ao49IgECQ1SUOeWpUJfgiSunFpEAiSmqQhT63K\nBD8ESd34dCbbSBtqOmvHNpKJ8fnUaB8APGv3bCAZ9SP5/Dxx+htlHFroNPtPBxK4m+T+WYej\nNUhZ35GuI3bIggqdZp8gWYHkPpGKQn/3wyFCmEKn2SdIrYP0zINW0Uoo97OANOuv0i7gAd0D\n677aqU5ODjt6IpCghU6z/ywgTRdplbVz7m/t5TLufggSptBp9p8MJLMhQmuQ1BdwuvthsgFT\n6DT7BKlxkJj+RhU6zT5BahskdsjCCp1mnyBtNF0aaCMRJFih0+w/GUiSNTMxIIGydgQJVug0\n+88G0rptrjW73/Fj1Y/kGRyb5ch7/f4DLYCk856RUO6nA2kVgeZBEgzqE41FCgXIc6ABkMzX\nbCBIzYMkcPR0IKmvIqTUx1BFRkOEYG2k6MsGCiTX0fFBAr2wL8yr9DFUkdVYO1TWLgqs2qtd\nzJFoTls4QA2AtL7RlUFSy+hUUeuDVqMvG1pPpJgj2SxraIBQxscT3Rtdt41EkO5CVaXUTz2Q\nhIuAQgOEMj6eCOsdDNsnSASpQoBQxscTYeNVpk+wjTQLVZViP7A2UsxRKkiIufhhW5g2kkqh\n04JCkIxAwmXtYo7S2kiQezJsC5O1c+1y8RMloaoywQ+qHynqKCVrh3lL2iisDkgxu1yOS0uo\nqgz7iS5+YgZSSj/SMUHiApFqQlVl2I/ZyAaCFLVLkNSEqsqwn2og5e1oNhe7yTYSQQqr9ZEN\n+3kipQ1abTFrxzbShoxWWlUea3eXs1jRPyXWHG1UKadRuAcKs3ZMf09aRAQyKmvtZ09PJIKU\nVegh6X33yUBy2tIHBCmvwypsjyBxiNBdoZAcD6TMIRRBe88M0qjxrkn+3D5ktPiJ2ZoNRiDl\nDuoL2fMceB6Qxg/wiXRXOCQHy9o9J0iIVOPANpJHCSEhSOGAZAYIZXw6M16rzNopKSEkIJCs\nhgg9YRsp/urFfiQtoaoy7EdnbfuMC3q+rF0UJI5sUBOqKsN+qoH0fP1IBGlLBCn3ggjS2i5B\nUhOqKsN+Kr7a5TiCBghlfDozmmxgG0lLqKoM+kHnebTrGBoglPHxREE/D2fIKglVlSE/8J4H\n7TqGBghlfDwRvvgJQZqFqsqAH3xf+PxZbn1JkDZFkIQXRJDwqwgRpEmoqgz4IUgmxucQoEc2\nEKRJqKoM+TFsIxEkjmzYEkGSXZBSehAaIJTxewjYjxRU0yDZvdppEQsN0Hy+8kjHZQwIUkAE\nydQRNEDT6dpJAWkQCJKaEkJCkNQDlFBYtpG0VQukvPzO2o9VG4kgzYY3C82snZLEIcn87nL8\nWA0RaqmNxCdSDdUBKfdt2vVjNWi1pawd20gVRJBkjloCiVm7CiJIIkctvdqpG5cGgSCpSRwS\nrTaSEUhNJRvUjc+nRp50BElN8pDoZO0IkoVxqV2CpCZUVYb9ECS8caldgqQmVFWG/bCNhDcu\ntsv0t5ZQVRn2w6wd3rjcLjtklYSqyrAfs8VPOI1CYJcgKQlVlWE/BAlvXGy39NUOPU4FKYIk\nc8Q1G07w9Dd85CRSBEnrgo4PErhDFj+WHymCpHVBhwcJPUSIIN2FqsoCPwSp2Ph4Inr0N0G6\nC1WVYT98IuGNjycKbvSyrN2TtZH66z9nLX+OQlXlWvfPEiS88fFE9XlOTrmfKmt3BecG0f3n\nJFRVrnX/LEHCGx9PhIPkms/bhKqKUkHqBxFIyjNi1rp/liDhjU9nak8YXNl3Qc3cFrGKEkEa\n4YmBhAr52g9BsjA+nwr6erxbf7xtcjfqrSI1kP530XjWGBK1Qjq6B5Yg4Y1DCz08JUj9IHoi\nwd6mV35OTwjSMr1jlOqZT8U+kZz3mOOCNHOzG5DQeR6R3S1H2vf6MuJWqZ7pTLaRNpQG0k37\nAQne8zB/NnOsnfq9XhEkdNbumV7tLtrREwnfF343s1eQvIUlSOaCgGSVtds/SHPEHHsqIM3v\njctUj7oSos02klyikQ02/UiGIJU0xty05jWxmVGcFUj9YPlqh9+xz9Mfe8w2UlSoqgz5MWsj\nlTjyfdNk35M1kw3orJ1r7sAjG7aFqsqgH6OsXdGjzwNS/ltSVZCw/UgS+wSp7X6kEpD6THsE\nafuA3L6JCJLEUQFIfa69HYJk/mpHkA4GUn4bqc+2FwjQnOYZwqmeVpMNBGnSfJU2WbvT7te1\nm3qwTQKEMn63ik1/C0AqWjEeKgxIRv1Ip2aX44IECGV8abYuSGV7mEAFAclqZMNJ4f6eHhn+\nnjFFR/gAoYxDCz0kgPSwKyIgQQAAB+pJREFUuorcvokI0uKHO1bj7ocgEaQttQ5ScfNUCJJS\nOxgaIJRxaKEHguTRdMV2baTS+7tf/jQDqck20g6yds/WRjLM2hWDNDWRhmEFEmQcKDRAKOPQ\nQg9JtflsWTtBSPYC0viP8RMJEiCUcWih0+w/XT9SMyBdRZCq2M2wT5AIEj5AKOPQQqfZJ0h7\nBYmvdvXsZtgnSHsGaWPOr54jgwChjEMLnWafIO0VJGdEQ2hkA0HCFDrNPkHaLUi2jhLsEaTt\nA3L7JiJIpo4S7BGk7QNy+yYiSKaOEuwRpO0DcvsmIkimjhLsEaTtA3L7JiJIpo4S7BGk7QNy\n+yYiSKaOEuwRpO0DcvsmIkimjhLsEaTtA3L7JiJIpo4S7BGk7QNy+yYiSKaOEuwRpO0Dcvsm\nIkimjhLsEaTtA3L7JiJIpo4S7BGk7QNy+yYiSKaOEuwRpO0DcvsmIkimjhLsVQTJaAVXVJCr\niCCZOkqwVw8kqzXFUUGuIoJk6ijBHkHaPiC3byKCZOoowR5B2j4gt2+iHYNkON9O44IOCRJ0\nb9qMchOk9PsksNxcqh+ClGycT6QM7Rak3nIpBY0LIkhZhQYEuYr2ClJvuiaJxgURpKxCA4Jc\nRe2BZPHWPku7jvUCBDROkDKkC9Jdzr2+PrANQ2SVrAQ/EUdiaTsqDBDSeDDY2EJL7GvVpr72\nCdJ9l9TxF4JkaXw1skHNblQEyVEhSNPeqwQpSyjjBCmofYJ0FZ9I2SJI5iJIQhEkoF2x/ecD\nSUEbIxsoamfaMUgU1Y4IEkUpiCBRlIIIEkUpSB+k+6jtYfzlMVHQP3YSwfzs1hE0QCjj6Fo1\nq02U1EFaDpK7/TVm3Rr1o+4IWnCUcXS0zWoTJgRIc8fP6rcm/ag7ghYcZRwdbbPahMkepP4u\nqJ+9OoIGCGUcXatmtQkToI20DkQ//XI/QeOrJupnr46gAUIZR9eqWW2ipP9EevzWcL9HtF42\nYn726ggaIJRxdK2a1SZM9ulvs4i06ghabpRxeLAJ0lqt3t9mjghSFQeFQr3aua3EeyxUWoxx\nPzt1BA0Qyji6Vs1qEybQE8nqgs0Cq+0IWnCUcXS094tJXKhXO5JkbM/EOEkKCg/SPQOj+moX\n97NvR9AAoYyja9WsNvVl/0TSbTVumNm3I2iAUMbRtWpWm/pC9yN5Tnj4gfOzV0fQAKGMo2vV\nrDZhsk82qEbELPTajqABQhlH1ypBchWLuX7TpTFH0AChjKNr1aw29VWhjeQ0IzF+du4IGiCU\ncXStmtWmvpj+ruSI6e8K9oGyTzY05kfdEbTgKOPoaO/5WSMT12ygKAURJIpSEAAkq2e02buA\ntiP4S1JLdq3sowVoI13ajPigWPlRdwQtOMo4OtpmtQkTeM0GnKz8qDuCFhxlHB1ts9qEiSBZ\nOyJIFezjRZCsHRGkCvbxwqwiZNK/Y+RH3RG04Cjj6Gib1SZKTH9TlIIIEkUpCL/4CUhmIxi1\nHUELjjKOjvaux6OKxMVP6jjimNUK9pHi6O9KjkhSBftAEaRKjghSBftAMdlAUQoCJhuwXy9W\nftQdQQuOMo6OtlltwsQnEkUpiCBRlII4H8neEecjVbCPFmQ+0mAws8TKj7ojaMFRxtHRNqtN\nmCCjvweDNqOVH3VH0IKjjKOjbVabMBEka0cEqYJ9vAiStSOCVME+XpD5SCYRsfKj7ghacJRx\ndLTNahMlpr8pSkEEiaIUBHi1uzygLV7tjPyoO4IWHGUcHW2z2kQJkWwwiYmVH3VH0IKjjKOj\nbVabMHEVIWtH0IKjjKOjbVabMBEka0cEqYJ9vDDLcdm9ctnk2VUdQQuOMo6OtlltosT9kawd\nQQuOMo6OdvNrnzD9TVEaIkgUpSCua2ftCFpwlHF0tM1qEyaua1fHEbTg0IF8QDXMEZfjquWI\nJFWwDxRBquSIIFWwDxRBquSIIFWwDxT7kawdsR+pgn28mP6mKAURJIpSEEGiKAURJIpSEEGi\nKAURJIpSEEGiKAURJIpSEEGiKAURJIpSEEGiKAURJIpSEEGiKAURJIpSEEGCqhPF9/Gsj178\nQWo3Yn1BlQPS9S+C1JhYX1Dl8ECGWhQrDaWv1+7nDYrvt657+74c+9V3Lx/X//mz69+HCzR/\n+tfrWef/fnavX5dfxj/PZ10++HU9bfoAtVMRJJC++zMQP688XH7rXs6/vF9+6T7G/3nm7EzI\na/c2gnSmpuu/FyDdzjofOv91/ZUk7VcECaT37nX4fr3w8OsCwPuFn/ODZfjs+stfb+dfrrzc\nnktXpL6H18ufcxvpYmI6dP6fH13LaxocXQQJpJczNMPXhYeXa4wvz5++e/s9/s/v21kXtCaQ\n/lzOf1mANJp4WZ5G7VSsG5Bud/0NkZuG4ff5Be3lAYnlWQ+/eQ4RpD2LdQOSD6Rh+PPS9Z8E\n6YBi3YC0frWb9HE7NL/aTf92t/NfA69295OpXYp1A9KvW/LgmjN4H4b/Loj03efw55ZseD//\nsnroXJMTvwLJhuk0aqdi3YB0T3/fstiXXMIt/X1m5WvKiD+AdMl1X//q3fT3dBq1U7FuUPr6\nOXXIXvpVXz8vx977rv91+eXP662r9eHV7vXW+/oxgbTskB0GgrRrsW52IlLStlh9OxFBalus\nvp2IILUtVt9ORJDaFquPohREkChKQQSJohREkChKQQSJohREkChKQQSJohREkChKQf8PMlc9\nuZHuwOQAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_richness(phylo, \"description\", color=\"description\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"'prune_species' is deprecated.\n",
      "Use 'prune_taxa' instead.\n",
      "See help(\"Deprecated\") and help(\"phyloseq-deprecated\").\"Warning message:\n",
      "\"'speciesSums' is deprecated.\n",
      "Use 'taxa_sums' instead.\n",
      "See help(\"Deprecated\") and help(\"phyloseq-deprecated\").\""
     ]
    }
   ],
   "source": [
    "usa <- prune_species(speciesSums(phylo) > 0, phylo)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "phyloseq-class experiment-level object\n",
       "otu_table()   OTU Table:         [ 10046 taxa and 74 samples ]\n",
       "sample_data() Sample Data:       [ 74 samples by 5 sample variables ]\n",
       "tax_table()   Taxonomy Table:    [ 10046 taxa by 7 taxonomic ranks ]\n",
       "phy_tree()    Phylogenetic Tree: [ 10046 tips and 10044 internal nodes ]"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "phylo"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {},
   "outputs": [],
   "source": [
    "### microbiome library"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [],
   "source": [
    "america <- transform(phylo, \"compositional\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [],
   "source": [
    "america.core <- core(america, detection = .2/100, prevalence = 50/100)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAP1BMVEUAAAAAv8QzMzNNTU1o\naGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PDy8vL4dm3///92l2KZ\nAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3dgXaa2qIFUO+haXtO29Pbd/n/b31J\nVIQtKMhCEecaoyGuqEHYExCt2dUiMju7R8+AyBYCkkggIIkEApJIICCJBAKSSCAgiQQCkkgg\nsyD99yP7r8dJOb1j/fg5UI+sU6N3RQFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMU\nCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1\nSIGApAYpEJDUIAUyAlL1nr7vQVLfWC8xkh+c65Cq5kv3+xok9Y31EiP5wQFJDVIgN0A6ZU3r\nZg1zoB5Zx4fx4zMV0vE50l8fWW62RJ4rEyFVtUM79ex6kaH82HiOpAYpEJDUIAUCkhqkQOZB\n+t8+a1g3a5gD9ch6iZH84Ex4Z0PV+n4fkNQg7TPvvXYgqUH6DEhqkAIBSQ1SICCpQQoEJDVI\ngYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBS\ngxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCpQQoE\nJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqk\nQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCp\nQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUC\nkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1S\nICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDU\nIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIB\nSQ1SICCpQQpkFqT6ACk0LyJPG3sktT1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhI\napACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiB\ngKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKD\nFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQk\nNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRA\nQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlB\nCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKS\nGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIg\nIKlBCgQkdW+96KpNjd4VBSQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQk\nNUiBgKQGKRCQ1CAFMgJS9Z72xdO3IG23BmlarkOqmi/7iyC9RA3StEyFVNkjvUYN0rRMhFQ5\ntHuRGqRpuRXSXx+pD0t7sbmTh8WqnZZpkKraHulFanukaZkEqTjvANKGa5CmZRqkfZofgbTd\nGqRpmXz62x7pNWqQpgUkNUiBTHhnQ+uEwyEgbbcGaVq8104NUiAgqUEKBCR1HlLrxiCNCEjb\nrUGaFpDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBAUoMU\nCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1\nSIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCgQkNUiBgKQGKRCQ1CAFApIapEBA\nUoMUCEhqkAIBSQ1SICCpQQoEJDVIgYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEK\nBCQ1SIGApAYpEJDUIAUCkhqkQEBSgxQISGqQAgFJDVIgIKlBCuQM0j9fd7v67d9RNwZpuzVI\n01JA+vNl9556t/s15sYgbbcGaVoKSN92398V1T92b2NuDNJ2a5CmpYD0jqj5dz0gbbcGaVpA\nUoMUSP+h3ffdtzE3Bmm7NUjTUp5sqHafqX6PuTFI261BmpazQ7i/v+x2X77/GXVjkLZbPxTS\nj7fd7u2f/QBt0nrCMe6Zx13jBVn16iC97eV8+TgsAum+630Vc7Cl+oGQ3nZvv+r611vzGszR\nzTNB+vpZ7DcGVwPSduvHQfp5BPS2+3kYpM8H6ft+FnfO2r16/ThIX49vq/m5+3oYpM8Hqdo/\niH+9jvTq9eMgncZeCeiJIJ3N8sWAtN0apGkp5ujr7tufuv7z3XvtXr0GaVqKOfp9fEF21P+j\nAGm79QqeI/164udI7zujzxdkR520Gwvp2mIN1esckM9ar+Ks3Y/DIN0di5/da6wo0deRBpYf\nSE9YPw7S6XWkL8dBehil/+yqD0k/q90/c4btIgFJvTZIv7+03tnwOUiPo/TwlocV7pDOIH2v\nmjdkXA9I260fCOl913N6r93nIG1G44+v70Pz64+xo/uOOX9BFiT1f737e2rOXpCdcvQJ0nZr\nkKZl4AXZcQFpuzVI03L2guy4/4m0D0jbrUGalrMXZN/GvYT0GZC2W4M0LWeHdk42qEGaHpDU\nIAXiBVn1yiD934XMGa3LBiT1yiD9bzDPBOm7Qzs1SNPjnQ1qkAI5e2fDv2+733/ebvtrFCBt\npwZpWs7f2fD37mf957b/IQvSdmqQpuUc0s+Pt9s5tHv1GqRpOXuL0I/fuy/1L5BevQZpWgow\nH4I+//fUTZ9rB9J2apCmpdzz/Pzy8bdddt9H3Rik7dYgTYsXZNVPBun4kULt7+rjSzZ90/ZI\n776yc70rp4PJQOo+3qmLNVSvc0A+a/08kHbtcVxMTz/b7c6uO6Irp8Np/3DXzsXHeghI262f\nBlJL0/m0ucauPkczogNJPbN+FkgXHbWHd8/eZ7hr/4bpkD7y9eM/9v1++3rpNk1A2m79JJCa\nz2AdeIpUd58j3Q3S8b+a78ZJOjzA4rEPXUueKLNWWuLGw5BOf8HveCQ2eCi2K3Za4yHNPNlw\nuPYfh3avXj/FHunEpD2WW9PyWdTd9khvu/2h3bg9EkjbrZ8CUj+BNUBq/hrFtD99CdLm6qeB\ndDrl0Hdod7rBJEgX7mcg5Q/3f43i73EfygXSduvngdQ+f9f37zGQJgWk7dZPBGn/dKn/5MDQ\nOxt2YzvvbFDPqtcLaZ0pId321yhA2lwN0rQUYG78zAaQNleDNC0FmBv/GsVqIQ0Ph3UO3/XU\nIE1L/wuyIwPSdmuQpqWAc+NfowBpczVI03L2guxNf40CpM3Vj4O0iY8s3tp/owDp1vpxkJ4z\nrw3p/MfrHNUPqB8H6T+DeaI90rSAtN0apGkBCSSQAnFoBxJIgYAEEkiB9IL5/fb3qBuDtN0a\npGnp3/P82Y2SBNJ2a5CmZeAQzqFdcMaesgZpWvrB/NhVY24M0nZrkKZl6GTDqE/RB2m7NUjT\n0g+pmvjXKEDaXL1eSH2f2XDxQ/SP03LEd09O3/hfzLs3vzEgbbd+HkidDyYZmLY+0aQZ8d0P\nNLn1w/M793ZrQNpu/TSQ2h9Zch3Sru6HdPOH53furZWNfRwXSLfWzwJplKM+cr0fw9W+5/bn\nFF3P2f9H2tYHRIJ0a/0kkI4Xrj1FOt1wIqQbnyNt7SOLQbq1XjGkKR+i35ruCki9JxuKD88v\nPl38Qs7O2n1ONvMh+iDdWq8YUjNyr3+IfjP9cHHrod0tkKb9WReQtls/BaTuCB71ROlOkLb2\nh8ZAurV+GkinUw5XDu3GQMqctdu1M+bGIG23fh5I7fN3l/6BBNID6ieCtH+6dPlD9Mt3Nuza\nP2v33tkAUrReL6R1BiSQQAqkH9Kv7/4bRW7GnrIGaVp6IP38Vu38f6TgjD1lDdK0lJB+fvt4\nevXt56gbg7TdGqRp6UDaK9qN/iB9kLZbgzQt5env933R+D/tAtJ268dBev4P0d/tvv6pa5DS\nM/aU9eMgPWfskUACKRDPkUACKZCBs3a/Rt0YpO3WIE2L15FAAikQ72wACaRAvNcOJJACAQmk\nKZDG+QJpWkDabg3StIAEEkiBgAQSSIGABBJIgYAEEkiBgAQSSIGABBJIgYAEEkiBgAQSSIGA\nBBJIgYAEEkiBgAQSSIGABBJIgYAEEkiBgAQSSIGABBJIgYAEEkiBgAQSSIGABBJIgYAEEkiB\ngAQSSIGABBJIgYAEEkiBgAQSSIGABBJIgYAEUu+iAmlaQAIJpEBAAgmkQEACCaRAQAIJpEBA\nAgmkQEACCaRAQAIJpEBAAgmkQEACCaRAQAIJpEBAAgmkQEACaXlI5a1So3dFAQkkkAIBCSSQ\nAgEJpFsgXV6wIE0LSBuqI5AGBgJIlwPShmqQZgUkkEAKBKTJkIbvc2U0ptUgzQpIkyH9Z5+l\nHgZITxmQQAIpEJBAAikQkEACKRCQQAIpEJBAAikQkEACKZARkKr39H0P0loMRGqQZuU6pKr5\n0v2+BmktBiI1SLMCEkggBTINUt39HqQFHgZIT5lbIf31kfqwgOru8ivvYaC+R6786pvm7ABp\n7qytLcWyuLIuL/+4/OkDR8C9Mh2Skw32SPZIZwEJJJACmQypfZAH0gIPA6SnzFRIbUcgrcRA\npAZpViZC6jgCaSUGIjVIszLhnQ3V/tvK6W+QQCrjvXYggRQISCCBFAhIIIEUCEgggRQISCCB\nFAhIIIEUCEgggRQISCCBFAhIIIEUCEgggRQISCCBFAhIIIEUCEgggRQISCAtB2no2qnRu6KA\nBBJIgYAEEkiBgAQSSIGABBJIgWwF0pX1PnBjkE5TkGYFJJBACgQkkEAKBCSQQAoEJJBACgQk\nkEAKBCSQQAoEJJBACgQkkEAKZB6k45gCKfQwHliDNCsggQRSICCBBFIgIIEEUiAgdecbpP6L\nZQ1SEZBAAikQkEACKRCQQAIpEJBAAikQkEACKRCQQAIpEJBAAikQkEC6CGlcXfwYpGkBKf0w\nHliDNCsggQRSICCBBFIgIIEEUiAggQRSICCBBFIgIIEEUiAggQRSICCNh3S4GkggnQckkEAK\n5EUgnf8YpGIK0qyABBJIgYAEUt+iAmliQAIJpEBAAgmkQEACCaRAQAIJpEBAAgmkQEACCaRA\nQAIJpEBAAgmkQEDqWe8DvwokkAYDEkggBQISSCAFAhJIIAUCEkggBQISSCAFAhJIIAUCEkgg\nBQISSCAFAhJIIAUCEkggBQISSCAFAhJIIAUCEkggBQISSCAFAhJIIAUCEkggBQISSCAF8rSQ\nBlbwxdEBEkhLBSSQQAoEJJBACgQkkEAKBCSQQAoEJJBACgQkkEAKBCSQQAoEJJBACgQkkEAK\nBCSQQApko5CurUmQzqYDkIpHC9JAQAIJpEBAenVI/YsKpIkBCSSQAgEJJJACAQkkkAIBCSSQ\nAgEJJJACuQek1roAaXU1SJGABBJIgcyCVB+Wct1dfkPXiqb4XQMXy2n/nVy5VnHtRR7O49K/\nqJqLxaO9bYFeWbBbiD1Sa77Pr2WPZI80LiCBBFIgIIEEUiAggQRSICCBBFIgIIEEUiAggQRS\nICCBBFIgIIEEUiAggQRSICCBBFIgIIEEUiAggQRSICCBNArS1QUK0u15EUjFj0EC6TwggQRS\nICCBBFIgIIEEUiBPA6m8b5BCNUiRgAQSSIGABBJIgYAE0hRIxRofuDOQpmWFkEauSZCGHh1I\ntwUkkEAKBCSQQAoEJJBACgQkkEAKBCSQQAoEJJBACuRFIJ0PfpD6Hx1ItwUkkEAKBCSQQAoE\nJJDykMprgXQ5IN08fNdTgxQJSCCBFAhIIN0CaWAhgHRT5kEauPbAegdpoRqkSF4LUrlCQQIp\nFJBAAikQkEACKRCQQAIpEJBAAikQkEACKZD1QhqQcuXHIE2tQYoEJJBACgQkkEAKBCSQQApk\nBZCuDN/ziyAl6/LB9y85kK4EpJ5rXx5qIIF0HpB6rn15qL0mpAIQSEVAAgmkQEACCaRA1g9p\n4L6LWw1cuxgO5a8auPblOQEJpPOA1HPty3MCEkjnAann2pfnBKRhSP/pBKSReW1IA9e+o4FI\nXT74/iUH0pVsBdLAnIB0tQYpko1DKtb7bZCK+wbpfIEW1wZpWkACCaR91gvpyn2DFKpBigQk\nkEAKBCSQQAoEJJBACmQRSC05IK29BikSkEACKRCQQAIpkEUhFSOvWJOLQCpWMEhXa5AiWRGk\nARogLVuDFAlIIIEUCEgggRTIAyFdWdog3acGKRKQQAIpkEUhFYu1WJMgraIGKRKQQAIpEJBA\nAikQkEBaDtLQokqN3hXlaSG17hQkkB6eR0AqapAeWoMUCUgggRTI+iGdGwApWYMUCUgggRQI\nSCCBFAhIIIEUCEgggRQISCCBFAhIIIEUCEgggRQISCCBFMg9IQ0s7fJW/+2l0fopSMkapEhe\nC1JxI5D+OxPSlVU7tKhSo3dFAek6jeLHV679eBrTapAiAWk8pIH5Xh2NaTVIkYAEEkiBgHQz\npPLOVkNjWg1SJK8JqRg8Q+v78pwUc7AeGtNqkCIBqQdSsd4H7qSYg/XQmFaDFAlIIIEUyNNB\nGnftK3NS3NmV9X7lTlZHA6QHZKOQyjV5eQVfWe9X7mR1NEB6QEACCaRAQAIJpEBAAikAadxy\nfnFI1Xv6vk9BGhiY4+5kEUjT7nt1NEB6QK5Dqpov3e/rVUC68ivHreDb5qS41npoTKv7F+zZ\nshi3QC8vZ5BWBKmYgpSC1J2CNDEZSOMW6zhI82gk65FzsjoaI+v+RwfSbbkV0l8fWWyuRJ4s\n8/ZIK9iurmkO1CPrJUbygwOSGqRAQFKDFAhIapACAUkNUiAT3tlQtb7fZ03rZg1zoB5ZLzSY\nH5l577Vb0bpZwxyoR9ap0buigKQGKRCQ1CAFApIapEBAUoMUCEhqkAIBSQ1SICCpQQoEJDVI\ngYCkBikQkNQgBQKSGqRAQFKDFAhIapACAUkNUiAgqUEKBCQ1SIGApAYpEJDUIAUCkhqkQEBS\ngxQISGqQAgFJDVIgIKlBCgQkNUiBzIL0mb86k3J6x/rxc6AeX28tIKlBCgQkNUiBgKQGKZD5\nkEQEJJFEQBIJBCSRQEASCeQukD7/YObpr2Z+TKtD9sXpS+tvaza3al+1c2etn7R/RevaxW++\ndJ+tpvxx3ZrL4fuWV849IFXnX/b/Pi20R3H7z9QevlSHL8c/At2qD9c+fjletXUnxW/u3Of+\nu/NfdbyL061aFy7ct7x0loTUAVLVZ2LOR/Ox/tzW1/Vp0FflnTWQmrHchVRXbZE9N67LX1Uf\n5rJuFWX67hskqRfeI1WtyWGI1l0xdd220K67g/7o5nyPdLz2OaTjnZx+c88e6fSrGkinPVL7\nVv0zCJLss+yhXWcg1nVr3J1kNGaqjoFyj1Tc2dBurXsnvYd2zR12f1UL0mnOOg/j8n3LS+dO\nJxvak9Yh0/HnzT7mzNfpgKwq7+z09KhupvtbdH9V92RDdw5av6rqmcHzB3LhvuVatrykVnP6\n23hcZYotUHl0cX7FUfe2wawGkqwyLTjd4/TiqH0kke1uLpc92dA+OGue0ndPcnenF+rTC0ft\n47qzo8bOtP8w8fxsXJmehzE8r0++nT172J2HU3WvWR/P8fQ+ixz1626e0XVnIUjVabi1zxg0\nr9UcBmLdmo6tT3d3uNialNPihaLTmb3Ol+6F5vqtx1KfTgs206r1WzaQ7qnKoY1K+wTP8XYT\n9zP9zz6fPvMgDW3NihFfQjqtj34aU+tegWXdy6dzz0dI/buo5m7ad9dMni+dnWyxLz9tHs7X\ncPmAq2mP/zkX1vVk9kjlAdbwhn8JSHUbTWd8dOrRkIpn1sdVX77udTrzHlmG906D5XTgUDcn\nP9tf2g/vfI80jcYGd0WHRCC1tv37y+3x2hqB1fGoqPcY7krdo6pq1sxpsHemnYvjIZ3drpn9\n1rRqfvdzDo7WXud0PFwY6kLqe47UXHHw1xy2Yp+TJ11UY5KA1KyFzhqpT0PuNOJaC7V1cVzd\nn9YsnE/bY+DsZMPxPstpVa7uwTMZ5W95qrQgVUXV2ji1Ni79m6z6/Dbtn1Q9k01mPqTWcDqt\niL7FLavKcc/fHt7VIKTySXD/Fq3zrLhz9c7FLWYupNbWrP3cAaRnSLmrrxsHdf+uZ/iemsnp\nMLmo6/YGdnuZCen0/KFubXdax3L9h0/NZF1pNqzd6ZV6G6Oj3LsMHOYO3bqZnM5pdo59mwU3\n4U6fKtHT36fdU3sTVz6rr86Ot1eSzg71NN2Pjq2/jjSY6vgMs5iWVzpet7UYyz3SxN3cUyVz\n1u7su9NWqR6E1HOc/fjUxzHQmh63r/31s46K04MoD+bOrnb+r3/JdfZIrU0MSPNyBdLZE9i6\ndzqunnXjuiouVe1p+YLRhl5HakEqNVW91+pcsX3V1qIpNjOfl4rl/qSL7FLmPkeqmtPJnbPL\n+x8evjSv+HU1dU+71mfr8O6Smgv9LxgN1M96UrcPUsGgrsprDUM6LaJmWTZbzPMl9ZyL7FJm\nPkfafynXxPjDqHXlygtGS76OVCyU5lipZ8t0uFp57WtL+HSHrRuPg9T67rxp9kYX13Rndla4\n6mdnEUjHlTZ/9l4lVfe7w5jv3TLVdfMSUPtkR7nXaN1Z67b7nzaHBklIL55lIHUPleRqWkeV\nHTDnW6ajgWZaVaex3/5h7ynVo8v6UZDWeSgSSABS73Lv7M6LaWu7um/bk/MDqDH1rBvPqyMp\njno6g7W7ZSoh1fXprHQX0ml1zIB0pqU1nQ7puZ9VXszskw3dSeti++RW1Z7uV9l+a1rX9XFa\nXJxWz7rxvDqSqvtdZ3t0+q51SHcC0R7zXUitszlVm1uzIqakLqY3pny4m8mCp79bW/CqMz1s\nVg8HJnWxkyqm4+pZN55XpxZWd6T17P1a26HulevOAG8Tad1/M/v1+Q/vlarnu61k6deR9tPO\nocYJ1OFi33HfbfWsG8+r75BZv+jCjavutFqs3vL5iUWeI3V3Pa0jvu4hUvvIZOaKWm7lX62f\nPyAFMve9dsdJn5juc6b21Qt27cnzQmrvoqruQ28fc7WvfToIi46skfvQuy80kIZy+el4vcUF\nNpjTpqR8Lr/fNVfFoqqPV6xPxQJzMniu5xFbnw0Pi/mHdlV9WFH7MdGebnKJlSn2Kg2N416g\nPl9EnWeJR2XRNHPSPlyoO/UDIT3iRMfSSbwgO7jtO63CujXtbJYGDjtuqmfd+Pa6O3SqZisy\nCKm5+QlSua2eNWrbc3L6lfUZqPtDqqvWAttWMicbmm1wd1U1m8bOtH10cxiMzWb5dHFaPevG\n8+pm+3BcJKftRmtz0rDpbEVOkJLDtpiT48gt18ZD0jOItpHQWbvBVVaMvtaW/ATpNKBaF6fV\ns248r25vTtoP/njVlqj2SNovmWOXHWHdOTk/Iij4SSCp15H6No3HbW112gS2pidjG4HUu1ie\nYbAGd4aX6/Ojye3kPi/IdqbNxeJQqdxZTaln3Xhe/fyj4n6QqrLeTlIvyPZNr9R1c9DTOvhp\nX5xWz7rxvPqmh/+Cdev5Y721pP4bRX042ulM5SlyT0j1Nnbi5wFJ7grp+Hxza1kUUvUambkK\nHp77QtofG8+e6bVlSUinhVjVvVfM1Uvc58j6WTevj9zoPP/G5ywgza2fFdJDs71FFvuk1Qtb\noG1DWn4rvlhmrXvp5BH/sW9bkM7fOFA/Rd1sBVrT4uKi9cay+B9jfoE0LzRWzVCpe6Yrqz8H\n9+HC58Wq92XnJWrPkcqM2BC9SFaiY2K9/3cY7McT09Xidd0crGwnof+P1Lsh2uSWZzirOWgb\nVzcrC6REHvkf+4p918AubVw968bz6mbbUZ+ma9v19NXF4dfpUS1eg1RmFqTjPuu4rD9v11yc\nVs+68by6LWqFXK7WVXWcFhcXrTeX2ae/r22ILmZ/HwdSx017fUs968az6mZYNKOz7puur5Zk\nZp+1u7whOlyn7kzP2mKAVtPrWTeeWT9vbljdMpBFT3+XgrqEmrI6jtO+w5Fx9awbz6tt4aVe\nGtLlnB1y9B6RjKtn3XheXYMkD4W0leyfQTVPD4uLq60fmvutnTsFpNmpuv8+nxw+RV3uYOu+\n6SL1BrP0m1aPzy7a0yXqO/6qoq4O5++q3i/rrU+Ppz49rrpnuki9uUT/PlIxPX6pqs60WbHB\neon7nFo/nMZkSPV90LyEpczp7/6Fd1hbVd90ifqOv6qoh3Gvt97Pdd1curxRXKbeUBLPkS5u\niHqOi+oF6iXuc3y9Dhq3QLJHCiV0sqF3i/O5ua4OW77TtLgYqZe4z5F1+aOq/xZrrCnKZfk9\n0uYhtXa9x2lxca31cfW1J9ljt4F6g7nDc6TNQ3rOVA/Nox99PHc5a9edbhZS1Z1Wz1JLIIu/\njvQKOS6N7vRpagnEOxtyWQ+N8XV1OAQ/bA9aFxettxeQclkHjdF1dThMPfwrLi5ebyxzIV3Z\nEDVnItrTJeo7/qqyXg+NSXXzolLvl0XrLUqae7KhvrAhKl4WPE6XqO/4q8r6NCgeTQOkByb1\nkcUXlt/xFF5nukR9x1/Vrp839fBGadEapDJjIFVnx0XFxUi9xH2Oq2ctwAemav6BFMiSnyJU\n7sxP7Op0vcR9jqyfNtPbYiIAAAL3SURBVMVDqvof6VL11gLSy0I67E6r6jQtLi5X3//BLp35\nJxuGN0QnTXXfCNwIpLFPSFaYeete2pl9+vvChqiqXgGSSL3wn3V5lSy4DOVJ4p0NIoEk3tnQ\nPHs8ndysWj/cfA5PlJonTN2Lq60fmkevs3gC72yoG0iNnJan6mxafInUS9znyLo+PBM8/isu\nrrjurrzi4qL1BhN4QfYwuurjwGqmdxzdD4T0rHXdvLhcvrp8j3pzAelV6/06YykUkCJ18aAH\nlsWq6tOkO3WId1NAem1I9kihONnwwpAoyiX64Sd9C2/zkMqtSP9GZY11d+qQblYSH8f16eWw\neetMXyt1/8XV1g/N/JG7snhng0ggIIkEApJIICCJBAKSSCAgiQQCkkggIIkEApJIICCJBAKS\nSCAgiQQC0oz8+edrtXv7Z9yVdxb1lmPt3p5/q91nqj9jrg3SpmPt3p4vu2/vhH6/7b6PuTZI\nm461e3sONP58Tn99fd81fd+3X3df699fdl//HC69/T5e+8+33ac+2VpAuj1fdz+b73/uj/K+\nf4B5J7X78eX9y7ePS98OB3+fkD4PBr88bpZlqYB0e35Xuy/ff/z+/P7L7sf7k6YPLB9+fnyQ\n+rG/9PanftsDq+u/P775vht5ekKeKCDNyJ+/P/Y7X359Xvj98++3PZ3fH18O+6Dd7t/3H33s\nhD4ufflc3O8HfrK1gDQv/37/9vaxM3rf63zmcAjXfNk/jzp+t9sdryUbi3U6P7uqrr/tvvzz\n8zdILxvr9PZ8Hr/VLTB/+iD9/ji0e2sf2skGY83enu+7t/enR3++fzzn2e1+1X/e+iC9ffR/\n7y99/zjZ8OODlWwsIM3Il8M7G35/EBl6jvTx5Kk6XPqzfy/Evw+eb8kHpDn55+3jVdjPA7xv\n72R+9R7ave2+NS/I/v682iNnWZYJSMvGiYUXifW8bEB6kVjPywakF4n1vGxAepFYzyKBgCQS\nCEgigYAkEghIIoGAJBIISCKBgCQSyP8DW8S8odQDtZwAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_composition(america.core, plot.type=\"barplot\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>SampleID</th><th scope=col>BarcodeSequence</th><th scope=col>LinkerPrimerSequence</th><th scope=col>FileInput</th><th scope=col>description</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>CSM5FZ3N</th><td>CSM5FZ3N        </td><td>NA              </td><td>NA              </td><td>CSM5FZ3N.fasta  </td><td>ibd             </td></tr>\n",
       "\t<tr><th scope=row>CSM5FZ3X</th><td>CSM5FZ3X        </td><td>NA              </td><td>NA              </td><td>CSM5FZ3X.fasta  </td><td>ibd             </td></tr>\n",
       "\t<tr><th scope=row>CSM5FZ3Z</th><td>CSM5FZ3Z        </td><td>NA              </td><td>NA              </td><td>CSM5FZ3Z.fasta  </td><td>ibd             </td></tr>\n",
       "\t<tr><th scope=row>CSM5FZ4G</th><td>CSM5FZ4G        </td><td>NA              </td><td>NA              </td><td>CSM5FZ4G.fasta  </td><td>ibd             </td></tr>\n",
       "\t<tr><th scope=row>ERR1072631</th><td>ERR1072631      </td><td>NA              </td><td>NA              </td><td>ERR1072631.fasta</td><td>american        </td></tr>\n",
       "\t<tr><th scope=row>ERR1072633</th><td>ERR1072633      </td><td>NA              </td><td>NA              </td><td>ERR1072633.fasta</td><td>american        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       "  & SampleID & BarcodeSequence & LinkerPrimerSequence & FileInput & description\\\\\n",
       "\\hline\n",
       "\tCSM5FZ3N & CSM5FZ3N         & NA               & NA               & CSM5FZ3N.fasta   & ibd             \\\\\n",
       "\tCSM5FZ3X & CSM5FZ3X         & NA               & NA               & CSM5FZ3X.fasta   & ibd             \\\\\n",
       "\tCSM5FZ3Z & CSM5FZ3Z         & NA               & NA               & CSM5FZ3Z.fasta   & ibd             \\\\\n",
       "\tCSM5FZ4G & CSM5FZ4G         & NA               & NA               & CSM5FZ4G.fasta   & ibd             \\\\\n",
       "\tERR1072631 & ERR1072631       & NA               & NA               & ERR1072631.fasta & american        \\\\\n",
       "\tERR1072633 & ERR1072633       & NA               & NA               & ERR1072633.fasta & american        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | SampleID | BarcodeSequence | LinkerPrimerSequence | FileInput | description | \n",
       "|---|---|---|---|---|---|\n",
       "| CSM5FZ3N | CSM5FZ3N         | NA               | NA               | CSM5FZ3N.fasta   | ibd              | \n",
       "| CSM5FZ3X | CSM5FZ3X         | NA               | NA               | CSM5FZ3X.fasta   | ibd              | \n",
       "| CSM5FZ3Z | CSM5FZ3Z         | NA               | NA               | CSM5FZ3Z.fasta   | ibd              | \n",
       "| CSM5FZ4G | CSM5FZ4G         | NA               | NA               | CSM5FZ4G.fasta   | ibd              | \n",
       "| ERR1072631 | ERR1072631       | NA               | NA               | ERR1072631.fasta | american         | \n",
       "| ERR1072633 | ERR1072633       | NA               | NA               | ERR1072633.fasta | american         | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "           SampleID   BarcodeSequence LinkerPrimerSequence FileInput       \n",
       "CSM5FZ3N   CSM5FZ3N   NA              NA                   CSM5FZ3N.fasta  \n",
       "CSM5FZ3X   CSM5FZ3X   NA              NA                   CSM5FZ3X.fasta  \n",
       "CSM5FZ3Z   CSM5FZ3Z   NA              NA                   CSM5FZ3Z.fasta  \n",
       "CSM5FZ4G   CSM5FZ4G   NA              NA                   CSM5FZ4G.fasta  \n",
       "ERR1072631 ERR1072631 NA              NA                   ERR1072631.fasta\n",
       "ERR1072633 ERR1072633 NA              NA                   ERR1072633.fasta\n",
       "           description\n",
       "CSM5FZ3N   ibd        \n",
       "CSM5FZ3X   ibd        \n",
       "CSM5FZ3Z   ibd        \n",
       "CSM5FZ4G   ibd        \n",
       "ERR1072631 american   \n",
       "ERR1072633 american   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(sample_data(phylo))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>Kingdom</th><th scope=col>Phylum</th><th scope=col>Class</th><th scope=col>Order</th><th scope=col>Family</th><th scope=col>Genus</th><th scope=col>Species</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>DQ794326.1.1392</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Lachnospiraceae NC2004 group</td><td>s__uncultured bacterium        </td></tr>\n",
       "\t<tr><th scope=row>EU772937.1.1344</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Blautia                     </td><td>s__uncultured bacterium        </td></tr>\n",
       "\t<tr><th scope=row>EU778837.1.1369</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Blautia                     </td><td>s__uncultured bacterium        </td></tr>\n",
       "\t<tr><th scope=row>DQ794954.1.1392</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Blautia                     </td><td>s__uncultured bacterium        </td></tr>\n",
       "\t<tr><th scope=row>DQ794671.1.1393</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Blautia                     </td><td>s__uncultured bacterium        </td></tr>\n",
       "\t<tr><th scope=row>DQ800652.1.1393</th><td>k__Bacteria                    </td><td>p__Firmicutes                  </td><td>c__Clostridia                  </td><td>o__Clostridiales               </td><td>f__Lachnospiraceae             </td><td>g__Blautia                     </td><td>s__uncultured bacterium        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       "  & Kingdom & Phylum & Class & Order & Family & Genus & Species\\\\\n",
       "\\hline\n",
       "\tDQ794326.1.1392 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Lachnospiraceae NC2004 group & s\\_\\_uncultured bacterium        \\\\\n",
       "\tEU772937.1.1344 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Blautia                      & s\\_\\_uncultured bacterium        \\\\\n",
       "\tEU778837.1.1369 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Blautia                      & s\\_\\_uncultured bacterium        \\\\\n",
       "\tDQ794954.1.1392 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Blautia                      & s\\_\\_uncultured bacterium        \\\\\n",
       "\tDQ794671.1.1393 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Blautia                      & s\\_\\_uncultured bacterium        \\\\\n",
       "\tDQ800652.1.1393 & k\\_\\_Bacteria                     & p\\_\\_Firmicutes                   & c\\_\\_Clostridia                   & o\\_\\_Clostridiales                & f\\_\\_Lachnospiraceae              & g\\_\\_Blautia                      & s\\_\\_uncultured bacterium        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | Kingdom | Phylum | Class | Order | Family | Genus | Species | \n",
       "|---|---|---|---|---|---|\n",
       "| DQ794326.1.1392 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Lachnospiraceae NC2004 group | s__uncultured bacterium         | \n",
       "| EU772937.1.1344 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Blautia                      | s__uncultured bacterium         | \n",
       "| EU778837.1.1369 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Blautia                      | s__uncultured bacterium         | \n",
       "| DQ794954.1.1392 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Blautia                      | s__uncultured bacterium         | \n",
       "| DQ794671.1.1393 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Blautia                      | s__uncultured bacterium         | \n",
       "| DQ800652.1.1393 | k__Bacteria                     | p__Firmicutes                   | c__Clostridia                   | o__Clostridiales                | f__Lachnospiraceae              | g__Blautia                      | s__uncultured bacterium         | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                Kingdom     Phylum        Class         Order           \n",
       "DQ794326.1.1392 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "EU772937.1.1344 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "EU778837.1.1369 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "DQ794954.1.1392 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "DQ794671.1.1393 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "DQ800652.1.1393 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales\n",
       "                Family             Genus                          \n",
       "DQ794326.1.1392 f__Lachnospiraceae g__Lachnospiraceae NC2004 group\n",
       "EU772937.1.1344 f__Lachnospiraceae g__Blautia                     \n",
       "EU778837.1.1369 f__Lachnospiraceae g__Blautia                     \n",
       "DQ794954.1.1392 f__Lachnospiraceae g__Blautia                     \n",
       "DQ794671.1.1393 f__Lachnospiraceae g__Blautia                     \n",
       "DQ800652.1.1393 f__Lachnospiraceae g__Blautia                     \n",
       "                Species                \n",
       "DQ794326.1.1392 s__uncultured bacterium\n",
       "EU772937.1.1344 s__uncultured bacterium\n",
       "EU778837.1.1369 s__uncultured bacterium\n",
       "DQ794954.1.1392 s__uncultured bacterium\n",
       "DQ794671.1.1393 s__uncultured bacterium\n",
       "DQ800652.1.1393 s__uncultured bacterium"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(tax_table(phylo))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>CSM5FZ3N</th><th scope=col>CSM5FZ3X</th><th scope=col>CSM5FZ3Z</th><th scope=col>CSM5FZ4G</th><th scope=col>ERR1072631</th><th scope=col>ERR1072633</th><th scope=col>ERR1072651</th><th scope=col>ERR1072656</th><th scope=col>ERR2057152</th><th scope=col>ERR2057154</th><th scope=col>...</th><th scope=col>MSM5LLGV</th><th scope=col>MSM5LLGX</th><th scope=col>MSM5LLHI</th><th scope=col>MSM5LLHK</th><th scope=col>MSM5LLIC</th><th scope=col>MSM5LLIE</th><th scope=col>MSM5LLIK</th><th scope=col>MSM5LLIO</th><th scope=col>MSM5LLIQ</th><th scope=col>MSM5ZOJY</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>DQ794326.1.1392</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>EU772937.1.1344</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>1  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>EU778837.1.1369</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>2  </td><td>2  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ794954.1.1392</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ794671.1.1393</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ800652.1.1393</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       "  & CSM5FZ3N & CSM5FZ3X & CSM5FZ3Z & CSM5FZ4G & ERR1072631 & ERR1072633 & ERR1072651 & ERR1072656 & ERR2057152 & ERR2057154 & ... & MSM5LLGV & MSM5LLGX & MSM5LLHI & MSM5LLHK & MSM5LLIC & MSM5LLIE & MSM5LLIK & MSM5LLIO & MSM5LLIQ & MSM5ZOJY\\\\\n",
       "\\hline\n",
       "\tDQ794326.1.1392 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tEU772937.1.1344 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 1   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tEU778837.1.1369 & 0   & 0   & 0   & 0   & 2   & 2   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ794954.1.1392 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ794671.1.1393 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ800652.1.1393 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | CSM5FZ3N | CSM5FZ3X | CSM5FZ3Z | CSM5FZ4G | ERR1072631 | ERR1072633 | ERR1072651 | ERR1072656 | ERR2057152 | ERR2057154 | ... | MSM5LLGV | MSM5LLGX | MSM5LLHI | MSM5LLHK | MSM5LLIC | MSM5LLIE | MSM5LLIK | MSM5LLIO | MSM5LLIQ | MSM5ZOJY | \n",
       "|---|---|---|---|---|---|\n",
       "| DQ794326.1.1392 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| EU772937.1.1344 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 1   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| EU778837.1.1369 | 0   | 0   | 0   | 0   | 2   | 2   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ794954.1.1392 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ794671.1.1393 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ800652.1.1393 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                CSM5FZ3N CSM5FZ3X CSM5FZ3Z CSM5FZ4G ERR1072631 ERR1072633\n",
       "DQ794326.1.1392 0        0        0        0        0          0         \n",
       "EU772937.1.1344 0        0        0        0        0          0         \n",
       "EU778837.1.1369 0        0        0        0        2          2         \n",
       "DQ794954.1.1392 0        0        0        0        0          0         \n",
       "DQ794671.1.1393 0        0        0        0        0          0         \n",
       "DQ800652.1.1393 0        0        0        0        0          0         \n",
       "                ERR1072651 ERR1072656 ERR2057152 ERR2057154 ... MSM5LLGV\n",
       "DQ794326.1.1392 0          0          0          0          ... 0       \n",
       "EU772937.1.1344 0          0          0          0          ... 0       \n",
       "EU778837.1.1369 0          0          0          0          ... 0       \n",
       "DQ794954.1.1392 0          0          0          0          ... 0       \n",
       "DQ794671.1.1393 0          0          0          0          ... 0       \n",
       "DQ800652.1.1393 0          0          0          0          ... 0       \n",
       "                MSM5LLGX MSM5LLHI MSM5LLHK MSM5LLIC MSM5LLIE MSM5LLIK MSM5LLIO\n",
       "DQ794326.1.1392 0        0        0        0        0        0        0       \n",
       "EU772937.1.1344 1        0        0        0        0        0        0       \n",
       "EU778837.1.1369 0        0        0        0        0        0        0       \n",
       "DQ794954.1.1392 0        0        0        0        0        0        0       \n",
       "DQ794671.1.1393 0        0        0        0        0        0        0       \n",
       "DQ800652.1.1393 0        0        0        0        0        0        0       \n",
       "                MSM5LLIQ MSM5ZOJY\n",
       "DQ794326.1.1392 0        0       \n",
       "EU772937.1.1344 0        0       \n",
       "EU778837.1.1369 0        0       \n",
       "DQ794954.1.1392 0        0       \n",
       "DQ794671.1.1393 0        0       \n",
       "DQ800652.1.1393 0        0       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(otu_table(phylo))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>CSM5FZ3N</th><th scope=col>CSM5FZ3X</th><th scope=col>CSM5FZ3Z</th><th scope=col>CSM5FZ4G</th><th scope=col>ERR1072631</th><th scope=col>ERR1072633</th><th scope=col>ERR1072651</th><th scope=col>ERR1072656</th><th scope=col>ERR2057152</th><th scope=col>ERR2057154</th><th scope=col>...</th><th scope=col>MSM5LLGV</th><th scope=col>MSM5LLGX</th><th scope=col>MSM5LLHI</th><th scope=col>MSM5LLHK</th><th scope=col>MSM5LLIC</th><th scope=col>MSM5LLIE</th><th scope=col>MSM5LLIK</th><th scope=col>MSM5LLIO</th><th scope=col>MSM5LLIQ</th><th scope=col>MSM5ZOJY</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>DQ794326.1.1392</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>EU772937.1.1344</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>1  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>EU778837.1.1369</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>2  </td><td>2  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ794954.1.1392</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ794671.1.1393</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>DQ800652.1.1393</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       "  & CSM5FZ3N & CSM5FZ3X & CSM5FZ3Z & CSM5FZ4G & ERR1072631 & ERR1072633 & ERR1072651 & ERR1072656 & ERR2057152 & ERR2057154 & ... & MSM5LLGV & MSM5LLGX & MSM5LLHI & MSM5LLHK & MSM5LLIC & MSM5LLIE & MSM5LLIK & MSM5LLIO & MSM5LLIQ & MSM5ZOJY\\\\\n",
       "\\hline\n",
       "\tDQ794326.1.1392 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tEU772937.1.1344 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 1   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tEU778837.1.1369 & 0   & 0   & 0   & 0   & 2   & 2   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ794954.1.1392 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ794671.1.1393 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tDQ800652.1.1393 & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | CSM5FZ3N | CSM5FZ3X | CSM5FZ3Z | CSM5FZ4G | ERR1072631 | ERR1072633 | ERR1072651 | ERR1072656 | ERR2057152 | ERR2057154 | ... | MSM5LLGV | MSM5LLGX | MSM5LLHI | MSM5LLHK | MSM5LLIC | MSM5LLIE | MSM5LLIK | MSM5LLIO | MSM5LLIQ | MSM5ZOJY | \n",
       "|---|---|---|---|---|---|\n",
       "| DQ794326.1.1392 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| EU772937.1.1344 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 1   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| EU778837.1.1369 | 0   | 0   | 0   | 0   | 2   | 2   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ794954.1.1392 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ794671.1.1393 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| DQ800652.1.1393 | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                CSM5FZ3N CSM5FZ3X CSM5FZ3Z CSM5FZ4G ERR1072631 ERR1072633\n",
       "DQ794326.1.1392 0        0        0        0        0          0         \n",
       "EU772937.1.1344 0        0        0        0        0          0         \n",
       "EU778837.1.1369 0        0        0        0        2          2         \n",
       "DQ794954.1.1392 0        0        0        0        0          0         \n",
       "DQ794671.1.1393 0        0        0        0        0          0         \n",
       "DQ800652.1.1393 0        0        0        0        0          0         \n",
       "                ERR1072651 ERR1072656 ERR2057152 ERR2057154 ... MSM5LLGV\n",
       "DQ794326.1.1392 0          0          0          0          ... 0       \n",
       "EU772937.1.1344 0          0          0          0          ... 0       \n",
       "EU778837.1.1369 0          0          0          0          ... 0       \n",
       "DQ794954.1.1392 0          0          0          0          ... 0       \n",
       "DQ794671.1.1393 0          0          0          0          ... 0       \n",
       "DQ800652.1.1393 0          0          0          0          ... 0       \n",
       "                MSM5LLGX MSM5LLHI MSM5LLHK MSM5LLIC MSM5LLIE MSM5LLIK MSM5LLIO\n",
       "DQ794326.1.1392 0        0        0        0        0        0        0       \n",
       "EU772937.1.1344 1        0        0        0        0        0        0       \n",
       "EU778837.1.1369 0        0        0        0        0        0        0       \n",
       "DQ794954.1.1392 0        0        0        0        0        0        0       \n",
       "DQ794671.1.1393 0        0        0        0        0        0        0       \n",
       "DQ800652.1.1393 0        0        0        0        0        0        0       \n",
       "                MSM5LLIQ MSM5ZOJY\n",
       "DQ794326.1.1392 0        0       \n",
       "EU772937.1.1344 0        0       \n",
       "EU778837.1.1369 0        0       \n",
       "DQ794954.1.1392 0        0       \n",
       "DQ794671.1.1393 0        0       \n",
       "DQ800652.1.1393 0        0       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "tmp <- otu_table(phylo)\n",
    "head(tmp)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'DQ794326.1.1392'</li>\n",
       "\t<li>'EU772937.1.1344'</li>\n",
       "\t<li>'EU778837.1.1369'</li>\n",
       "\t<li>'DQ794954.1.1392'</li>\n",
       "\t<li>'DQ794671.1.1393'</li>\n",
       "\t<li>'DQ800652.1.1393'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'DQ794326.1.1392'\n",
       "\\item 'EU772937.1.1344'\n",
       "\\item 'EU778837.1.1369'\n",
       "\\item 'DQ794954.1.1392'\n",
       "\\item 'DQ794671.1.1393'\n",
       "\\item 'DQ800652.1.1393'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'DQ794326.1.1392'\n",
       "2. 'EU772937.1.1344'\n",
       "3. 'EU778837.1.1369'\n",
       "4. 'DQ794954.1.1392'\n",
       "5. 'DQ794671.1.1393'\n",
       "6. 'DQ800652.1.1393'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"DQ794326.1.1392\" \"EU772937.1.1344\" \"EU778837.1.1369\" \"DQ794954.1.1392\"\n",
       "[5] \"DQ794671.1.1393\" \"DQ800652.1.1393\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(rownames(tmp))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 62,
   "metadata": {},
   "outputs": [
    {
     "ename": "ERROR",
     "evalue": "Error in tax_table(phylo)$Genus: $ operator is invalid for atomic vectors\n",
     "output_type": "error",
     "traceback": [
      "Error in tax_table(phylo)$Genus: $ operator is invalid for atomic vectors\nTraceback:\n"
     ]
    }
   ],
   "source": [
    "rownames(tmp) <- tax_table(phylo)$Genus"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 63,
   "metadata": {},
   "outputs": [],
   "source": [
    "tax <- tax_table(phylo)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 75,
   "metadata": {},
   "outputs": [],
   "source": [
    "rownames(tmp) <- tax[,6]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 77,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>CSM5FZ3N</th><th scope=col>CSM5FZ3X</th><th scope=col>CSM5FZ3Z</th><th scope=col>CSM5FZ4G</th><th scope=col>ERR1072631</th><th scope=col>ERR1072633</th><th scope=col>ERR1072651</th><th scope=col>ERR1072656</th><th scope=col>ERR2057152</th><th scope=col>ERR2057154</th><th scope=col>...</th><th scope=col>MSM5LLGV</th><th scope=col>MSM5LLGX</th><th scope=col>MSM5LLHI</th><th scope=col>MSM5LLHK</th><th scope=col>MSM5LLIC</th><th scope=col>MSM5LLIE</th><th scope=col>MSM5LLIK</th><th scope=col>MSM5LLIO</th><th scope=col>MSM5LLIQ</th><th scope=col>MSM5ZOJY</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>g__Lachnospiraceae NC2004 group</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>g__Blautia</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>1  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>g__Blautia</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>2  </td><td>2  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>g__Blautia</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>g__Blautia</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "\t<tr><th scope=row>g__Blautia</th><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>...</td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td><td>0  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       "  & CSM5FZ3N & CSM5FZ3X & CSM5FZ3Z & CSM5FZ4G & ERR1072631 & ERR1072633 & ERR1072651 & ERR1072656 & ERR2057152 & ERR2057154 & ... & MSM5LLGV & MSM5LLGX & MSM5LLHI & MSM5LLHK & MSM5LLIC & MSM5LLIE & MSM5LLIK & MSM5LLIO & MSM5LLIQ & MSM5ZOJY\\\\\n",
       "\\hline\n",
       "\tg\\_\\_Lachnospiraceae NC2004 group & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tg\\_\\_Blautia & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 1   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tg\\_\\_Blautia & 0   & 0   & 0   & 0   & 2   & 2   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tg\\_\\_Blautia & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tg\\_\\_Blautia & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\tg\\_\\_Blautia & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & ... & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0   & 0  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | CSM5FZ3N | CSM5FZ3X | CSM5FZ3Z | CSM5FZ4G | ERR1072631 | ERR1072633 | ERR1072651 | ERR1072656 | ERR2057152 | ERR2057154 | ... | MSM5LLGV | MSM5LLGX | MSM5LLHI | MSM5LLHK | MSM5LLIC | MSM5LLIE | MSM5LLIK | MSM5LLIO | MSM5LLIQ | MSM5ZOJY | \n",
       "|---|---|---|---|---|---|\n",
       "| g__Lachnospiraceae NC2004 group | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| g__Blautia | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 1   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| g__Blautia | 0   | 0   | 0   | 0   | 2   | 2   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| g__Blautia | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| g__Blautia | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "| g__Blautia | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | ... | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | 0   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                                CSM5FZ3N CSM5FZ3X CSM5FZ3Z CSM5FZ4G ERR1072631\n",
       "g__Lachnospiraceae NC2004 group 0        0        0        0        0         \n",
       "g__Blautia                      0        0        0        0        0         \n",
       "g__Blautia                      0        0        0        0        2         \n",
       "g__Blautia                      0        0        0        0        0         \n",
       "g__Blautia                      0        0        0        0        0         \n",
       "g__Blautia                      0        0        0        0        0         \n",
       "                                ERR1072633 ERR1072651 ERR1072656 ERR2057152\n",
       "g__Lachnospiraceae NC2004 group 0          0          0          0         \n",
       "g__Blautia                      0          0          0          0         \n",
       "g__Blautia                      2          0          0          0         \n",
       "g__Blautia                      0          0          0          0         \n",
       "g__Blautia                      0          0          0          0         \n",
       "g__Blautia                      0          0          0          0         \n",
       "                                ERR2057154 ... MSM5LLGV MSM5LLGX MSM5LLHI\n",
       "g__Lachnospiraceae NC2004 group 0          ... 0        0        0       \n",
       "g__Blautia                      0          ... 0        1        0       \n",
       "g__Blautia                      0          ... 0        0        0       \n",
       "g__Blautia                      0          ... 0        0        0       \n",
       "g__Blautia                      0          ... 0        0        0       \n",
       "g__Blautia                      0          ... 0        0        0       \n",
       "                                MSM5LLHK MSM5LLIC MSM5LLIE MSM5LLIK MSM5LLIO\n",
       "g__Lachnospiraceae NC2004 group 0        0        0        0        0       \n",
       "g__Blautia                      0        0        0        0        0       \n",
       "g__Blautia                      0        0        0        0        0       \n",
       "g__Blautia                      0        0        0        0        0       \n",
       "g__Blautia                      0        0        0        0        0       \n",
       "g__Blautia                      0        0        0        0        0       \n",
       "                                MSM5LLIQ MSM5ZOJY\n",
       "g__Lachnospiraceae NC2004 group 0        0       \n",
       "g__Blautia                      0        0       \n",
       "g__Blautia                      0        0       \n",
       "g__Blautia                      0        0       \n",
       "g__Blautia                      0        0       \n",
       "g__Blautia                      0        0       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(tmp)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 82,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>CSM5FZ3N</th><th scope=col>CSM5FZ3X</th><th scope=col>CSM5FZ3Z</th><th scope=col>CSM5FZ4G</th><th scope=col>ERR1072631</th><th scope=col>ERR1072633</th><th scope=col>ERR1072651</th><th scope=col>ERR1072656</th><th scope=col>ERR2057152</th><th scope=col>ERR2057154</th><th scope=col>...</th><th scope=col>MSM5LLGV</th><th scope=col>MSM5LLGX</th><th scope=col>MSM5LLHI</th><th scope=col>MSM5LLHK</th><th scope=col>MSM5LLIC</th><th scope=col>MSM5LLIE</th><th scope=col>MSM5LLIK</th><th scope=col>MSM5LLIO</th><th scope=col>MSM5LLIQ</th><th scope=col>MSM5ZOJY</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>DQ794326.1.1392</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0.000000e+00</td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "\t<tr><th scope=row>EU772937.1.1344</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0.000000e+00</td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>1.012956e-05</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "\t<tr><th scope=row>EU778837.1.1369</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>7.130125e-05</td><td>6.051437e-05</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "\t<tr><th scope=row>DQ794954.1.1392</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0.000000e+00</td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "\t<tr><th scope=row>DQ794671.1.1393</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0.000000e+00</td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "\t<tr><th scope=row>DQ800652.1.1393</th><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0.000000e+00</td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>...         </td><td>0           </td><td>0.000000e+00</td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td><td>0           </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       "  & CSM5FZ3N & CSM5FZ3X & CSM5FZ3Z & CSM5FZ4G & ERR1072631 & ERR1072633 & ERR1072651 & ERR1072656 & ERR2057152 & ERR2057154 & ... & MSM5LLGV & MSM5LLGX & MSM5LLHI & MSM5LLHK & MSM5LLIC & MSM5LLIE & MSM5LLIK & MSM5LLIO & MSM5LLIQ & MSM5ZOJY\\\\\n",
       "\\hline\n",
       "\tDQ794326.1.1392 & 0            & 0            & 0            & 0            & 0.000000e+00 & 0.000000e+00 & 0            & 0            & 0            & 0            & ...          & 0            & 0.000000e+00 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\tEU772937.1.1344 & 0            & 0            & 0            & 0            & 0.000000e+00 & 0.000000e+00 & 0            & 0            & 0            & 0            & ...          & 0            & 1.012956e-05 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\tEU778837.1.1369 & 0            & 0            & 0            & 0            & 7.130125e-05 & 6.051437e-05 & 0            & 0            & 0            & 0            & ...          & 0            & 0.000000e+00 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\tDQ794954.1.1392 & 0            & 0            & 0            & 0            & 0.000000e+00 & 0.000000e+00 & 0            & 0            & 0            & 0            & ...          & 0            & 0.000000e+00 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\tDQ794671.1.1393 & 0            & 0            & 0            & 0            & 0.000000e+00 & 0.000000e+00 & 0            & 0            & 0            & 0            & ...          & 0            & 0.000000e+00 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\tDQ800652.1.1393 & 0            & 0            & 0            & 0            & 0.000000e+00 & 0.000000e+00 & 0            & 0            & 0            & 0            & ...          & 0            & 0.000000e+00 & 0            & 0            & 0            & 0            & 0            & 0            & 0            & 0           \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | CSM5FZ3N | CSM5FZ3X | CSM5FZ3Z | CSM5FZ4G | ERR1072631 | ERR1072633 | ERR1072651 | ERR1072656 | ERR2057152 | ERR2057154 | ... | MSM5LLGV | MSM5LLGX | MSM5LLHI | MSM5LLHK | MSM5LLIC | MSM5LLIE | MSM5LLIK | MSM5LLIO | MSM5LLIQ | MSM5ZOJY | \n",
       "|---|---|---|---|---|---|\n",
       "| DQ794326.1.1392 | 0            | 0            | 0            | 0            | 0.000000e+00 | 0.000000e+00 | 0            | 0            | 0            | 0            | ...          | 0            | 0.000000e+00 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "| EU772937.1.1344 | 0            | 0            | 0            | 0            | 0.000000e+00 | 0.000000e+00 | 0            | 0            | 0            | 0            | ...          | 0            | 1.012956e-05 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "| EU778837.1.1369 | 0            | 0            | 0            | 0            | 7.130125e-05 | 6.051437e-05 | 0            | 0            | 0            | 0            | ...          | 0            | 0.000000e+00 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "| DQ794954.1.1392 | 0            | 0            | 0            | 0            | 0.000000e+00 | 0.000000e+00 | 0            | 0            | 0            | 0            | ...          | 0            | 0.000000e+00 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "| DQ794671.1.1393 | 0            | 0            | 0            | 0            | 0.000000e+00 | 0.000000e+00 | 0            | 0            | 0            | 0            | ...          | 0            | 0.000000e+00 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "| DQ800652.1.1393 | 0            | 0            | 0            | 0            | 0.000000e+00 | 0.000000e+00 | 0            | 0            | 0            | 0            | ...          | 0            | 0.000000e+00 | 0            | 0            | 0            | 0            | 0            | 0            | 0            | 0            | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                CSM5FZ3N CSM5FZ3X CSM5FZ3Z CSM5FZ4G ERR1072631   ERR1072633  \n",
       "DQ794326.1.1392 0        0        0        0        0.000000e+00 0.000000e+00\n",
       "EU772937.1.1344 0        0        0        0        0.000000e+00 0.000000e+00\n",
       "EU778837.1.1369 0        0        0        0        7.130125e-05 6.051437e-05\n",
       "DQ794954.1.1392 0        0        0        0        0.000000e+00 0.000000e+00\n",
       "DQ794671.1.1393 0        0        0        0        0.000000e+00 0.000000e+00\n",
       "DQ800652.1.1393 0        0        0        0        0.000000e+00 0.000000e+00\n",
       "                ERR1072651 ERR1072656 ERR2057152 ERR2057154 ... MSM5LLGV\n",
       "DQ794326.1.1392 0          0          0          0          ... 0       \n",
       "EU772937.1.1344 0          0          0          0          ... 0       \n",
       "EU778837.1.1369 0          0          0          0          ... 0       \n",
       "DQ794954.1.1392 0          0          0          0          ... 0       \n",
       "DQ794671.1.1393 0          0          0          0          ... 0       \n",
       "DQ800652.1.1393 0          0          0          0          ... 0       \n",
       "                MSM5LLGX     MSM5LLHI MSM5LLHK MSM5LLIC MSM5LLIE MSM5LLIK\n",
       "DQ794326.1.1392 0.000000e+00 0        0        0        0        0       \n",
       "EU772937.1.1344 1.012956e-05 0        0        0        0        0       \n",
       "EU778837.1.1369 0.000000e+00 0        0        0        0        0       \n",
       "DQ794954.1.1392 0.000000e+00 0        0        0        0        0       \n",
       "DQ794671.1.1393 0.000000e+00 0        0        0        0        0       \n",
       "DQ800652.1.1393 0.000000e+00 0        0        0        0        0       \n",
       "                MSM5LLIO MSM5LLIQ MSM5ZOJY\n",
       "DQ794326.1.1392 0        0        0       \n",
       "EU772937.1.1344 0        0        0       \n",
       "EU778837.1.1369 0        0        0       \n",
       "DQ794954.1.1392 0        0        0       \n",
       "DQ794671.1.1393 0        0        0       \n",
       "DQ800652.1.1393 0        0        0       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "otu.relative <- abundances(america, \"compositional\")\n",
    "\n",
    "(head(otu.relative))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 84,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'HK555610.10.1388'</li>\n",
       "\t<li>'JN665074.1.1506'</li>\n",
       "\t<li>'HK555591.8.1386'</li>\n",
       "\t<li>'HK555587.11.1362'</li>\n",
       "\t<li>'GQ898680.1.1477'</li>\n",
       "\t<li>'EU773556.1.1338'</li>\n",
       "\t<li>'DQ798009.1.1371'</li>\n",
       "\t<li>'GQ493896.1.1380'</li>\n",
       "\t<li>'EF403447.1.1491'</li>\n",
       "\t<li>'EF400344.1.1489'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'HK555610.10.1388'\n",
       "\\item 'JN665074.1.1506'\n",
       "\\item 'HK555591.8.1386'\n",
       "\\item 'HK555587.11.1362'\n",
       "\\item 'GQ898680.1.1477'\n",
       "\\item 'EU773556.1.1338'\n",
       "\\item 'DQ798009.1.1371'\n",
       "\\item 'GQ493896.1.1380'\n",
       "\\item 'EF403447.1.1491'\n",
       "\\item 'EF400344.1.1489'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'HK555610.10.1388'\n",
       "2. 'JN665074.1.1506'\n",
       "3. 'HK555591.8.1386'\n",
       "4. 'HK555587.11.1362'\n",
       "5. 'GQ898680.1.1477'\n",
       "6. 'EU773556.1.1338'\n",
       "7. 'DQ798009.1.1371'\n",
       "8. 'GQ493896.1.1380'\n",
       "9. 'EF403447.1.1491'\n",
       "10. 'EF400344.1.1489'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"HK555610.10.1388\" \"JN665074.1.1506\"  \"HK555591.8.1386\"  \"HK555587.11.1362\"\n",
       " [5] \"GQ898680.1.1477\"  \"EU773556.1.1338\"  \"DQ798009.1.1371\"  \"GQ493896.1.1380\" \n",
       " [9] \"EF403447.1.1491\"  \"EF400344.1.1489\" "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "topx <- top_taxa(america, n=10)\n",
    "\n",
    "topx"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 86,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'p__Firmicutes'</li>\n",
       "\t<li>'p__Bacteroidetes'</li>\n",
       "\t<li>'p__Synergistetes'</li>\n",
       "\t<li>'p__Verrucomicrobia'</li>\n",
       "\t<li>'p__Actinobacteria'</li>\n",
       "\t<li>'p__Tenericutes'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'p\\_\\_Firmicutes'\n",
       "\\item 'p\\_\\_Bacteroidetes'\n",
       "\\item 'p\\_\\_Synergistetes'\n",
       "\\item 'p\\_\\_Verrucomicrobia'\n",
       "\\item 'p\\_\\_Actinobacteria'\n",
       "\\item 'p\\_\\_Tenericutes'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'p__Firmicutes'\n",
       "2. 'p__Bacteroidetes'\n",
       "3. 'p__Synergistetes'\n",
       "4. 'p__Verrucomicrobia'\n",
       "5. 'p__Actinobacteria'\n",
       "6. 'p__Tenericutes'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"p__Firmicutes\"      \"p__Bacteroidetes\"   \"p__Synergistetes\"  \n",
       "[4] \"p__Verrucomicrobia\" \"p__Actinobacteria\"  \"p__Tenericutes\"    "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(get_taxa_unique(america, \"Phylum\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 92,
   "metadata": {},
   "outputs": [],
   "source": [
    "ord <- ordinate(phylo, \"MDS\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 94,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAQlBMVEUAAAAAujgzMzNNTU1h\nnP9oaGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PDy8vL4dm3///+/\nbmhWAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2diXbburYEeS7jKY6HDPr/X72a\nxREggCZYsrvXermOrdRrArsOJZqym53jOMVpti7gOF8hFslxBLFIjiOIRXIcQSyS4whikRxH\nEIvkOIJYJMcRRCrS78VJeGgVDg+EK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCu\nEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwSFIQr\nRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK\n0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhC\nNJBycAVJEKndp/txO/icRVKCcIVoIKEEiiwXqb3+cfvf3ucskhKEK0QDiQRQxSJBQbhCNJBI\nAFXyRGonPrezSEoQrhANJBJAlUyRLi+Rbp/73z7ibo5zNyk4I7U+I60IwhWigXQOSJL5Gun8\nsUVaDYQrRAOJBFDFIkFBWZwfhyhAU4GBRAKo4qd2UFAG58clqxSigXQOSJIv0uBiwyG11xK3\nuUJQMudHNysUooF0DkiScWdD944G39mwFiiV8+PHjEm4I/v2IsVTey1xmysEWaQYhRWLBAUl\ncn4MIy9EAykHVxCLBAUt4XSMsUgbxyJBQXFO15mRRzeTcEdmkaKpvZa4zRWCYpy+NBZp61gk\nKCjCmTDHIm0ZiwQFWaQYhRWLBAUNOP0LCAs8skh1Y5GgoB5nZMdyj3hHZpGiqb2WuM0Vgjqc\nsSAJJyTekVmkaGqvJW5zhaAbZ8KQBI94R2aRoqm9lrjNFYIsUozCikWCgq6cKUemzJnxiHdk\nFima2muJ21whKFmk371H6AvRQMrBFcQiQUEXzvTTttAJaaVCNJBycAWxSFBQokgzz+uEhWgg\n5eAKYpGgoLBICSbhjswiRVN7LXGbKwRZpBiFFYsEBUVEWm4S7sgsUjS11xK3uUJQ8Kpd/wuB\nd/UJC9FAysEVxCJBQXGRrneyhk9JuCOzSNHUXkvc5gpBwTsb+rFIgFgkKMgixSisWCQoKHj3\ndz8WCRCLBAX1OGmnI4u0QSwSFDTgJGnkq3b1Y5GgoCWcGY0s0gaxSFDQAs4ij3hHZpGiqb2W\nuM0VgixSjMKKRYKC4pxlHvGOzCJFU3stcZsrBGWLtFYhGkg5uIJYJCgoylmmEfDILFI0tdcS\nt7lCUJ5IKxaigZSDK4hFgoJ8RopRWLFIUJBFilFYsUhQ0Ikz93zt9+JrDbwjs0jR1F5L3OYK\nQQdO6KXP4lMS7sgsUjS11xK3uULQLuem76lH4o7MIkVTey1xmysE7aIvfhaeknBHZpGiqb2W\nuM0VgixSjMKKRYKC4i9+Fn4rCXdkFima2muJ21whaIlIsTfHSgvRQMrBFcQiMUELDJl+3FqF\ncCDl4ApikZggixSlsGKRmKClIsV/xhDtyCxSPLXXEre5OpBFilJYsUhM0GKRot+3pR2ZRYqn\n9lriNlcIWurR79idRLgjs0jR1F5L3OYKQQkiBe9t5R2ZRYqm9lriNlcIWnBnQ91CNJBycAWx\nSFCQRYpRWLFIUFD87u/KhWgg5eAKYpGgoAPHZ6QQhRWLBAWdOAKVcEdmkaKpvZa4zRWCzpzy\n53e4I7NI0dReS9zmCkHjM1KmSbgjs0jR1F5L3OYKQRYpRmHFIkFBR07Sd2VXLkQDKQdXEIsE\nBU2L1LdpkVu4I7NI0dReS9zmCkHDy99jlRaepnBHZpGiqb2WuM0VgoIi7eVZ/IwPd2QWKZra\na4nbXCEoItLcs731CtFAysEVxCJBQRYpRmHFIkFBaSIFTMIdmUWKpvZa4jZXCApctbNIRwor\nFgkKShRp3iTckVmkaGqvJW5zhaDJOxssUofCikWCgixSjMKKRYKCpu7+tkhdCisWCQq6cizS\nDIUViwQFdThFHvGOzCJFU3stcZsrBA05FmlIYcUiQUEjTqZHvCOzSNHUXkvc5gpBFilGYcUi\nQUFjTt+cpR7xjswiRVN7LXGbKwRNcfriLNIIeGQWKZraa4nbXCFomtMXZ4FGwCOzSNHUXkvc\n5gpBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQXOcRRcYloCS\nAwMpB1cQiwQFBa7apamEOzKLFE3ttcRtrhAU/D5Sikq4I7NI0dReS9zmCkETnOW3Ba1RiAZS\nDq4gFgkKskgxCisWCQqK3Gu33CTckVmkaGqvJW5zhSCLFKOwYpGgoBFn5NFCk3BHZpGiqb2W\nuM0VgixSjMKKRYKCLFKMwopFgoIsUozCikWCgixSjMKKRYKCfNUuRmHFIkFBFilGYcUiQUF5\ndzZMfAF3ZBYpmtpridtcIShHpMkv4Y7MIkVTey1xmysEpd/9PfNV3JFZpGhqryVuc4Wgac6S\n09HgAbgjs0jR1F5L3OYKQXOc8Msji7RVLBIUlMqZvaaHOzKLFE3ttcRtrhBkkWIUViwSFJTI\nGXl0NQl3ZBYpmtpridtcIcgixSisWCQoyCLFKKxYJCjIIsUorEhFcjbLhEhbV/pe8RkJCvJV\nuxiFFYsEBVmkGIUViwQFJXNmPOIdmUWKpvZa4jZXCLJIMQorFgkKSudMe8Q7MosUTe21xG2u\nEJTDmdAIeGQWKZraa4nbXCEojzPSCHhkFima2muJ21whCFeIBlIOriAWCQrCFaKBlIMriEWC\ngnCFaCDl4ApikaAgXCEaSDm4glgkKAhXiAZSDq4gFgkKwhWigZSDK4hFgoJwhWgg5eAKYpGg\nIFwhGkg5uIJYJCgIV4gGUg6uIBYJCsIVooGUgyuIRYKCcIVoIOXgCmKRoCBcIRpIObiCWCQo\nCFeIBlIOriAWCQqKcSbu884DLQ4MpBxcQSwSFBTmTL7zaN1CNJBycAWxSFBQiDPzXth1C9FA\nysEVxCJBQQHO3E9nWLcQDaQcXEEsEhRkkWIUViwSFDTPmf0JdusWooGUgyuIRYKCLFKMwopF\ngoJmOSOPIibhjswiRVN7LXGbKwRZpBiFFYsEBVmkGIUViwQFWaQYhRWLBAUNODdhLNKZwopF\ngoJ6nJ4yvmp3orBikaCgDmdgjUU6UVixSFDQjTPSJskj3pFZpGhqryVuc4UgixSjsGKRoKAr\nZ+KZXIpHvCOzSNHUXkvc5gpBIZH8fqTfFkm5lrjNFYIunJFH3avgNQvRQMrBFcQiQUExkaoX\nooGUgyuIRYKCLFKMwopFgoIsUozCikWCgixSjMKKRYKCwlftNihEAykHVxCLBAVZpBiFFYsE\nBQXubNimEA2kHFxBLBIUZJFiFFYsEhQ0f/f3RoVoIOXgCmKRoKAeJ18j4JFZpGhqryVuc4Wg\nASdXI+CRWaRoaq8lbnOFIFwhGkg5uIJYJCgIV4gGUg6uIBYJCsIVooGUgyuIRYKCcIVoIOXg\nCmKRoCBcIRpIObiCWCQoqJxzvtCHOzKLFE3ttcRtrhBUyrl+6wl3ZBYpmtpridtcIaiMU3Yz\nxBqN5CDl4ApikaCgIk7h7XkrNNKDlIMriEWCgixSjMKKRYKCSjilb2HSN1oBpBxcQSwSFGSR\nYhRWLBIUVMAZeaQxCbZEysEVxCJBQRYpRmHFIkFBFilGYcUiQUEWKUZhxSJBQRYpRmHFIkFB\nvmoXo7BikaAgixSjsGKRoCDf2RCjsGKRoCCLFKOwYpGgIN/9HaOwYpGgoFLOVSPckVmkaGqv\nJW5zhaByzvlshDsyixRN7bXEba4QhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQ\nrhANpBxcQSwSFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSE\nK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXh\nCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4\nQjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCu\nEA2kHFxBLBIUhCtEAykHVxCLRAR94R/ZLQMpB1cQi8QDfelfayQDKQdXEItEA6l/kQTnyLQg\n5eAKYpFgIPlv28McmRikHFxBLBIMNBKpVCXMkYlBysEVxCKxQBMeFapEOTI1SDm4glgkFmha\npBKTKEemBikHVxCLhALNeGSRJiisWCQUaE6kApMgRyYHKQdXkASR2n2GH7fdT1qkYpBFWk5h\nZblI7fWPzsdt7yG11xK3ucWgWZHyTYIcmRwkEkAVi4QCWaTlFFbyRLp8ou+RRSoHWaTFFFYK\nRbq9RPrfPspi3zSzIm1dzAknX6R2/Lna/1HC/VdSAPIZaSmFlTKR+h9YJAFI7RHnyMQgxfQL\nky3S1Ee11xK3uQqQRVpIYSVXpHbicxZJA5J6hDoyJUgkgCqZInUug3ee7dVeS9zmqkAWaQGF\nlYw7Gy5X69rO506pvZa4zRWCVB7xjuzbixRP7bXEba4QtFO94xx3ZBYpmtpridtcIejAEWgE\nPDKLFE3ttcRtrhCEK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIU\nhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMpB1cQiwQF\n4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFB\nuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQ\nrhANpBxcQSwSFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQ0CQn5wfd4Y7MIkVT\ney1xmysETXDyfvQq7sgsUjS11xK3uULQiJP7w8BxR2aRoqm9lrjNFYKGnOxfT4E7MosUTe21\nxG2uEGSRYhRWLBIUNODk/8Yk3JFZpGhqryVuc4UgixSjsGKRoKA+Z+TRcpNwR2aRoqm9lrjN\nFYIsUozCikWCgixSjMKKRYKCLFKMwopFgoIsUozCikWCgnzVLkZhxSJBQRYpRmHFIkFBvrMh\nRmHFIkFBFilGYcUiQUG++ztGYcUiQUETnByNgEdmkaKpvZa4zRWCJjnpGgGPzCJFU3stcZsr\nBOEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJB\nQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQ\nEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIU\nhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMpB1cQiwQF\n4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFB\nuEI0kHJwBemK1AyTCqu9lrjNFYJwhWggoQSKWCQoCFeIBhJKoEhfpP6XLNKGIFwhGqh08sWx\nSFAQrhANVDr54vhiAxSEK0QDKQdXkAmRfrZN+5oFq72WuM0VgnCFaKDCwVdnLNLP43WGnzmw\n2muJ21whCFeIBioefW3GIrW/9n+8tTmw2muJ21whCFeIBiqdfHG6Ij28HT9z+PNX1mun2muJ\n21whCFeIBlJMvzD9q3YP+7PRi5/aEUC4QjTQkuFedDroP+q1XfwP+5TOx3/2DrWvfw4XG7I8\nskhCEK4QDbRkuDNEOv6tUKSDSnuJXv4kU86pvZa4zRWCcIVooCXDnfECJeffHP/d8BOvbdPk\nqlR7LXGbKwThCtFA4VH8fGyeTlL8eW6a5+NA759qPRy/r/P5tD9dHIa/+Wgfj4/a/99T8/h5\nuk3ubNPn4R9+Hh92+QeB9EQ6fQfp10PTPH1YpG1BuEI0UHAS/+xPB83T0YfDR83D7vLi//X8\nxb1ne0Mem+ezSHtrmvZPR6TTo/af2v/t+GHYpK5I1+8gvT3kneBqryVuc4UgXCEaKDiJL83j\n7s/jYYp/HgR4OfizP7Hs3pv28Lfn/QdHX07npaNSf3aPh79eXyMdEJdP7b/42oS/I9QVpvMd\npPcni7QtCFeIBgpO4sNemt3nwYeH44Qfzj9t8/x2/uL5pctBrYtIH4fHP3REOiMeug9bKFLB\nd5BOqb2WuM0VgnCFaKDwWDeXP29vCXrbP0F76CnRfVTvo4lPpYhU8B2kU2qvJW5zhSBcIRoo\nPNYTIu12Hw9N+15BpF3+d5BOqb2WuM0VgnCFaKDgJA6f2l3yevrU9and5c/m9PjHmad2twfP\nxm+jgIJwhWig4CT+PF08OF4zeDm8Xnk8vEZ6332cLja87D8YnHSOFyd+zlxsuDwsEIsEBeEK\n0UDBSbxd/j5dxT5cS7i+cvm8XBHviXS41n38Wzu+/H15WCC9r74/nL9jlfn93dpridtcIQhX\niAYKj+Ln0+Ubsofvqz6+Hz73cnnl8vF4+lZr76nd4+m7r68XkbrfkF2gRPer70dlHy0SAYQr\nRAPlDOhscm8M6hA6Hx+fEL61j9ng2muJ21whCFeIBiqd/F60Ip1on+2jRdoehCtEA5VOfi9r\niLQ36ckibQ7CFaKBSie/F61Iz+f78j6aR4u0NQhX6Ar6d4gCVJbSyRenK8zn5Yer/sr4KauH\n1F5L8rhROGrQv0tKQcV1WOkJ8/l8vsP1/dEibQzCFTqC/nWzbaPy2ZfG35CFgnCFDqB//xQm\nWaRYaq8ldNxQnO8p0t9AlBN/y4xIfo20NQhXaA/6N8yWjYKTaJFSV1PE4YFwhSxSMH5qBwXh\nCv3ejTzKNMkixVJ7LZHjBuNYpGNRi1SHwwPhCt2pSNeq9UV6Od897ji9TIi0daW5jDTqqLTO\n/8f+G3Hb5mX3dHw/U5ZJtf+jhPzvNozzrc9Ig7a1RHo9/ty85tfho+ccWO21RI4bjPOtr9pt\nJNJD87Z7O/5QSl/+3hyEK3SHIo36poiUaMDobRRPL9cPk1N7LZnjxuJ85zsbikRKTP+M9H76\n4M9PP7XbGoQrdH8ijV/S/asj0q/LecgXG7YH4Qrd1d3fcZHOPzSy2Z1/an4z+OSuuf198OCo\nSLtfD6f/zf0VSbXXkjpuJM73fD9SVKTm/Mft94o1w092/j74fFSk0tReS+64cTh6UKFGDJEu\nw39xZFqcgSm3B49jkaAgXCEaKDiJC0Q6/yakqwTN5eeET4k0fPA4FgkKwhWigYKTGL9qN3j2\n1hNnJNLoweNYJCgIV4gGCk5iVKThs7igSOMHj9P/PlInyRbtLJIShCtEAwUnMXpnw+UaQ/w1\nUjP14LBILxaJA8IVooHKRDpeyB6KdLvM3f/7+MFhkfYmvef4c03ttcRtrhCEK0QDBSdx47u/\nd8/hXzgbS+21xG2uEIQrRAMFJ3Hz9yO14d+BHknttcRtrhCEK0QDBSfx79+BSp2/l0z4fHzV\nDgrCFaKBgpP4NxDlxN9ikaAgXCEaKDiJ24o0uFSXfuWu9lriNlcIwhWigYKTaJFSV1PE4YFw\nhWig4CRuLdIgqbDaa4nbXCEIV4gGCk6iRUpdTRGHB8IVooGEEijiiw1QEK4QDRScxG3PSMWp\nvZa4zRWCcIVooOAkWqTU1RRxeCBcIRooOIkWKXU1RZwVQD8OEXBK81VBwUm0SKmrKeLIQT8u\noRT6cqDgJHbF+e8Qi1SHIwb96IZQ6AuCgpM40KinknLib7FIK4B+/Cg3iXlkIFBwEkcadVRS\nTvwtFmkFkEWqAApO4pRHF5OUE3+LRdKDfgyzdaEvCQpOokVKXU0RxyLdHSg4iZMenU0azr9G\nAYskB408yjKJeGQoUHASF4skU8AiyUEWqQooOInTHp1MWkcBiyQHWaQqoOAkxkW6/WAgiyTk\nWKS7AwUnMSpS50fVWSQhxyLdHSg4iYtE8hlJz/FVu7sDBSfRIqWupohjke4OFJzE6FW7dUV6\nf2geXk+f9o8sLgAJPIIeGQgUnMRtRXo/vr/88fhpi1QAskgVQMFJjN7ZsOrFhsfmZbd7ax93\nFqkQVO4R9cg4oOAkxm8RWvPy98mez4NJFqkQVKgR+MgooOAkLrv7W3mBYOLn2n22TxapHFSk\nEfrIGKDgJEbfjxT6DS1Z6bKem9OP0P9oHi2SDJQp1B0c2bag4CT+/TtQqfP38+Bn/g6wuXRh\nnxf2L/+iMRUo+yke/si2BgUn8W8gOZMdT0+Yz8vvR3p/tEgKUMFFB/iRbQ8KTuLGIpWm9lri\nNncAKrkMzj6ytBx/Q5EC1E1wEi1S6mqKOBZpPdD1d+aVggZ1QsGI5NdIAlDRrULoI0tI77e4\nKhsFJ9Eipa6miGORVgINfq+4sFHJ1K8QP7VbDTTyKMkk8pElZCORMGekvCSsgmQtt56SMMgi\njTw6mWSRYklYBclassfNIn1nkV7bw13g7c8sWMIqSNaSPW4WaezR0aTvINJr0+w+26ZpskxK\nWAXJWrLHzSIxRDqufG2RHpr3/f+9fjRtDixhFSRrCR83X7UDiHRd/Loi7U9Ib82DL39LQBZp\nc5F6y19TpLb5fG4+Dq+ScmAJqyBZS/q4FXgEP7KF2VqkwQZUFOnn/uVRezghveTAElZBspb0\ncfv2Im191W47kXYvTfu2PzFleWSRhqB8j+hHtjDbijR6bn0TafgW8+JvA/n7SOuCMjW6gyNb\nlgmPECINR98i4UFZGt3FkS3JliKNPDqZNDn6UpEOP1flmhxYwipI1nLrKVkThCt0f3d/h0Q6\nPrU7j/n5BwqVxSJBQbhC9/d+pJhIze76Wqn85zf4qR0UhCtUAOppxBFp8L9lsUhQEK4QDRSc\nxM1Fevw4/e+fpxxY7bXEba4QhCtEAwUncfHl77VEOn8n9qdfI20NwhWigYKTuLlIH49N++tX\n2zx85MBqryVuc4UgXCEaKDiJ0Tsb1r/YsLeoeXjLg9VeS9zmCkG4QjRQcBIXibTa5e9j3iwS\nAoQrRAMFJ3Hzu78/HvzUjgHCFaKBgpMIeD/S8a2xvtiwOQhXiAYKTuLfvwOVOn/Pmex4BsI8\n/Tn9ry9/bw3CFaKBgpP4N5CcyY7H35CFgnCFaKDgJFJEen/xO2Q3BuEK0UDBSUSI9PbcNn6r\n+dYgXCEaKDiJ24v09ny49fs57/p37bXEba4QhCtEA5XPvjQ9kU4WNc2fTFjttcRtrhCEK0QD\nCYZfmf77kY7novzbJWqvJW5zhSBcIRpIMPzK9EU6Xv22SAQQrhANVD770viMBAXhCtFAguFX\nxq+RoCBcIRpIMPzKzFy1e8+C1V5L3OYKQbhCNFD57Evj7yNBQbhCNFDp5IvjOxugIFwhGqho\n7PXxvXZQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2k\nHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMp\nB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDK\nwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBy\ncAWxSFAQrlAh6N8hCtAlysEVJEGkdp/hx93PWSQlCFeoCPTvklJQpw4ry0Vqr3/cPu5+bmeR\nlCBcoQLQv24s0vUPi1QBhCuUD/rXj0XaWaR6IFwhixSMTKT/7aOt5nyN/Btm60KrxGckKAhX\nKBs0FklThxWLBAXhCuWCRh5droKX1mHFIkFBuEIWKRiLBAXhClmkYCwSFIQrZJGCybizoe1+\n7DsbVgLhClmkYHyv3SH/HaJBwY4MAPJVu+QkrIJkLUWc/y5RwFBHhgBZpOQkrIJkLSWc/7pB\nNJJyAKDhEzuLFEvCKkjWUsH57z+tSZwjw4AsUmoSVkGylhbpPkCDKw0WKZaEVZCspYDz3zCb\nNxJzGKDeBTuLFEvCKkjW0iLdD6hz3dsixZKwCpK1LOeMPCo2iXJkXx6kHFxBLJJFuk+QcnAF\nsUgW6T5BysEVxCJZpPsEKQdXEItkke4TpBxcQb65SL5qd7cg5eAKYpEs0n2ClIMryHcXyXc2\n3CtIObiCWCSLdJ8g5eAK8u1F8t3fdwpSDq4gFsnvR7pPkHJwBbFIh8g0wh3Z1wUpB1cQiwQF\n4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFB\nuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQ\nrhANpBxcQSwSFIQrRAMpB1eQby7S9W5V2JQAC9FAysEV5FuL1Hn/BGxKgIVoIOXgCvKNReq9\now82Jbix5YGUgyvI9xVJ/R7z8karcL4sSDm4glgki1QLdPk5+hYploRVkKxlCUf+c7iKG63D\nwYD8i8aWJ2EVJGtpke4G5N9qnpKEVZCsZQFn5JF/ZsOaoOFvv1TUYcUiWaQKIIuUlIRVUCxl\nCcci1QT9G0ZRhxWLZJHWB1mktCSsgmAlizgWqSJo5JHCJOXgCvJdRfJVu4ogi5SYhFUoX8hC\njkWqB7JIiUlYhfKFLOWs4xHhyHAgi5SYhFUoX8hSjkWqBrJIiUlYhfKFLOb0PAKM2zocBGjC\npGKVlIMryDcWye9HqgaaEtgGRK4AABJnSURBVKlUJeXgCvKtRfI7ZGuBVjBJObiCfHORuCBc\nIYsUjEWCgnCFhHd/S0xSDq4gFgkKwhWSvR/JIkWTsAolS7gChwfCFRK9Q1ZmknJwBbFIUBCu\nkEUKxiJBQbhCFikYiwQF4QpZpGAsEhSEK2SRgrFIUBCukADkq3YLk7AKJUu4AocHwhWySMFY\nJChoVzxpF5CAoQIJPbJIp1XIXr/bex6Q735QgTTDdgjpyCzSsiSsQubq3e7Xhv6oBQ1IN26w\nIxMemHJwBbkrkSZ+YolKJe64FQ+coJAQJDvVKgdXkHsSacYjiUmocfvKIt1+ln5hlIMriEUq\nKLQSSHpxC3VkSpBycAW5I5FmPVKYRJoSi7SIwopFyi+0EmjkUeH3W4oLMUHKwRXkfkQKeCQw\nCTQlFmkZhRWLlF1oLZBFWkZh5YuI9F/3Qels1JRYpGUUVr6USAUnKNCUWKRlFFa+ikj/DR6Q\nSidNia/aLaKwcj8ixU5J08/11iy0FsgiLaKwYpHyC60GUnrEOjIhSDm4gtyRSLEnd0UmoabE\nIi2hsGKRCgqtBhJ6VOPIEmtapFjWXssVTWKJdFfvR0quapFiSViFvMX7PiLdzTtkM06eFimW\nhFXIW7zvJJKIszIo5+WcRYolYRUyV88iwUAW6Zx7EinpfGSRaoCyvuVlkWJJWIWEFTtbEbGm\nzCPe3OIKWaRg8CItPf1YpA1AI48WmWSRYklYhYWPW6jRf+OHpm5L4uNXB+EKWaRg2CIt9cgi\nbQOySNd8DZHGD07eltR/sDYogRMeYItUJWiRUk5IvcdnbEv6P1kXtJgTG2GLVCVfQqTBv0jc\nkYRCFUELOfEh9lW7KiGLFJan4PSTW6gmaBlnwRhbpCq5X5G0P0XfIuU1yvDIIkWTsArhLw/O\nOfPP53DzX1ekJScEi1QlPJFiL4gs0i3bi+S7v88hibRUIYt0zsijqVFe/cgSNbJI8SSswvHP\n3oucNI0s0m+KSH6H7CEbitRTIlUji/SbI9ImIOXgCrKZSH0pMj2iba4Q9JVFSjyDzVBY2Uqk\ndHMs0ij3KVLya6rpKAdXkHsV6cIp24xOIRroXq7apSZWd3kdVjYSSXRCok2JEPRFRYr3XVyH\nlTsV6bqaBTvR3xYaiHRnw4ltkULZRqQ8eUYaAef/C4okek3TZ5UzlYMryBYi5Z+FBhoB5//L\n3f0te00zplmkuSxbgXyPJlYzfyPgIMj7kXRPxSZoRUTl4ApikaCgBE5vIEfTaZGqpJZINxeU\nHvHmfwuROpmYz6JCwqdikziLNJnZg+7qINQIOP+bijQ5oRapSqQizSTzHNRJhZJfIIMR1ROL\nqWoeKBXOSOUeBf6zlP0fNDoogzP93/qSQgvPIMtPLcIznHJwBbkDkYKrmb8RcFA6Z2ZIVxcp\nRQqLtCiTB5wvT1Qj4Px/O5EStZB5ZJFKT0L91SzYCTYomTM39OuKlCqGRVqSqeNd1SPe/H8t\nkeJPxZLFUHlkkSzSOpxNRIqKFmKWFLNIUo948//FRIqdcXJE8jtko5k63jU1As7/9xJp7v9n\nOP6ZDbFMHa9FqsWZmWnp3d8DVyzSNRtctVvyE1QXr6ZiS5Agikjd1zQjWyzSNTiREldTsCNM\nEOLOhi546nqbRbqm/p0N489YJA1nNZFm6RbpGppIqatZuh1YEOPu7zn47ClpCckixTJzyGNT\nLNJKnImBFhWaVsYiXVL//Ui9vxd6xJv/jUWSv0O2z42ekhahLFIsgcMeaKLRCDj/m4u0Emju\n1ZBFOmf7n/19+GumRrhxE4JgheZECt07N6eWRYolYRV+a35zJWzchCBYoVmRZu+dmz9LWaRY\nElZBspa4cROCYIUmRLppEtJoQiWLFEvCKkjWEjduQhCs0KxIgTefzz3EIsWSsAqStcSNmxBE\nKxQwKfT2c4uUk4RVkKwlb9y+7pGFREp8d4VFiiVhFSRryRu3L3xkFikYiwQF4QolnJIiD7BI\nsSSsgmQtgeP2hY/MIoVikaAgXKE9aKlJFqkwKZuiCXHcWBwtyCLNxSJBQbhCF5BFmoxFgoJw\nhRJE8lW7wiSsgmQtweOG4WBFmvhnaXVYsUhQEK7QFRT3aOLOhu6jei+28uuwYpGgIFyhEpH6\nj9sFb2ldXIcViwQF4QrdQHGPwpf3hr9vLLMOKxYJCsIVEon0zyLFk7EphQGPG4SzBijqUe9r\nowcv8HBJHVYsEhSEK9QDLdVo+HMlZz6TVYcViwQF4QoNQPMSjDyJJ6sOKxYJCsIVWgyySMXR\nb0otDg+EK7QUlOGRRRpEvinVODwQrpBFCsYiQUG4QgtBOR5ZpEHUm1KPwwPhCq0oUl4dViwS\nFIQrJBPJl7+jUW9KPQ4PhCukE8l3NsSi3pR6HB4IV2gBaOHzOIsUi3JT6nJ4IFyhKGiRRkeR\nfPd3JLpNqc3hgXCFIqCAOUNtdr/9fqRwVJtSn8MD4QqFQaEz0FCb3e1flNRhxSJBQbhCJSKN\n3yErqMOKRYKCcIWCoJhHKzRSDq4gFgkKwhXKEmnFRsrBFcQiQUG4QiFQikYWKZ6EVZCs5Z2N\n2yacrURavZFycAWxSFAQrpBFCsYiQUG4QhYpGIsEBeEKWaRgLBIUhCuUdtVu/UbKwRXEIkFB\nuEIWKRiLBAXhCiXd2VChkXJwBbFIUBCukEUKxiJBQbhCKXd/12ikHFxBLBIUhCu0/P1IpaCF\ndVixSFAQrtAC0CKNFjaKX7JgxSJBQbhCVUELzm7KwRXEIkFBuEIVQYtebykHVxCLBAXhCm3w\nYitoknJwBbFIUBCukEUKxiJBQbhC1UAL75JQDq4gFgkKwhWySMFYJCgIV2iT7+wGTFIOriAW\nCQrCFVoNNHDFIlkkJQhXaCXQyBaLZJGUIFyhVUATvlgki6QE4QqtAZoSxiJZJCUIV6iWSL5q\nZ5GUIFyhFUDTylgkiyQE4QpVE8l3NlgkIQhXSA+aezVkkdLXsjTcKaFwwKA5kXz3d/paloY7\nJRQOGDQrkt+PlLyWpeFOCYUDBgVE8jtkE9eyNNwpoXDAoKBIcQorFgkKwhWqd9Wu9+V5CisW\nCQrCFZoHJZ9Lev9wTqTYWUo5uIJYJCgIV2gOlP60LHJnw/gr0xRWLBIUhCs0Dcp5hbNApAUv\nnZSDK4hFgoJwhSZBWdcKwnd/L+UqB1cQiwQF4QqtItLMM8N/w0xRWLFIUBCu0BRoycBHQRP/\n0CItzbcat005fJEWYKfAysEVxCJBQbhCE6BFA5/RyCItzncat205FqlOLBIUhCtkkYKxSFAQ\nrpBFCsYiQUG4QhVF8lW7xflO47Yt5x6v2lmkxflW47YpByJS96sLGi3AKgdXEIsEBeEKldzZ\n0H+ARYpl2YYsXMuqHB4IVyhfpOFDljSKY5WDK4hFgoJwhbLv/h7JtqxR7DSnHFxBLBIUhCuU\n/X6kTJH8Dtkl+XbjthmnAig88P+GETVSDq4gFgkKwhXKBVmk9CSsgmQtt5+S9UC4QpmgkUf/\n/lmkWBJWQbKWm0/JiiBcIYsUjEWCgnCFLFIwFgkKwhWySMFYJCgIV8giBZMgUrvP8OO2+0mL\nJAThCvmqXTDLRWqvf3Q+bnsPSVgFyVpuPyXrgXCFLFIwFgkKwhXKBg09ski7vjjt0COLJATh\nClmkYApFur1E+t8+ymLOl0n/SsMXTb5I7fhzCf85kfxHCfCf29VAuEIloN4JyWek3Uik/gcW\nSQjCFSoD+WLD7nKteyDS1EcJqyBZS8qUrAHCFZKJlPS7lAJ1WMk9I7UTn7NIQhCuUBFodMFB\nUIeVTJE6l8E7z/YSVkGxlEIOD4QrZJGCybiz4XK1ru187pSEVVAspZDDA9EKFQkw/qZsecQi\nlMb32kFBrEKFBliktCSsgmAllRweiFSo1IGRRwqTlIMriEWCgkCFih2wSIlJWIXyhZRyeCBQ\nIYu0IBYJCuIUKpfAIiUmYRXKF1LK4YE4hVYRqVwl5eAKYpGgIEwhhQOTJhWqpBxcQSwSFIQp\ntJ5IZSYpB1cQiwQFYQpJBLBISUlYhaI11HN4IEyhFUUqMkk5uIJYJCgIU0gz/xYpJQmrULKE\nK3B4IE4h0firTVIOriAWCQriFJJNv0VamoRVKFjBNTg8EKiQavgt0tIkrELBCq7B4YFAhSzS\nglgkKIhUSDT7FmlpElahYAXX4PBArEKKyRe/LUk5uIJYJCiIVqh08CdORxZpLgmrULKEK3B4\nIFwh5c9sUJzelIMriEWCgnCFCkDTGlmk2SSsQtEa6jk8EK5QPmgVjyzSaRXKFlHO4YFwhSxS\nMBYJCsIVygbNeeSLDbNJWIWSJVyBwwPhCq0hUolKysEVxCJBQbhCuaCgRwUmKQdXEIsEBeEK\nWaRgLBIUhCu0kkjZJikHVxCLBAXhClmkYCwSFIQrtJZIuSYpB1cQiwQF4Qqtc9XOIk0lYRUy\nV28tDg+EK2SRgrFIUBCukP7OBos0l4RVyFy9tTg8EK6QRQrGIkFBuEIr3P1d4pFFOq1C7vKt\nxOGBcIU070fSvUtWObiCWCQoCFeoEHSVRuSRRTqtQvb6rcPhgXCFVCCLFE/CKmSv3zocHghX\nSAbSeGSRTquQv4CrcHggXCEhSKCRRTqvQskSrsDhgXCFpKBijSzSdS0lQU4JivNlQcrBFcQi\nQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsEBeEK0UDKwRXEIkFBuEI0kHJwBbFI\nUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJBQbhCNJBycAWxSFAQrhANpBxcQSwS\nFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFsUhQEK4QDaQcXEEsEhSEK0QDKQdXEIsE\nBeEK0UDKwRXEIkFBuEI0kHJwBbFIUBCuEA2kHFxBLBIUhCtEAykHVxCLBAXhCtFAysEVxCJB\nQbhCNJBycAWxSFAQrhANpBxcQSwSFIQrRAMpB1cQiwQF4QrRQMrBFcQiQUG4QjSQcnAFkYq0\nPP/b5v/tfFwoGl4jUizSKS4UDa8RKRbpFBeKhteIFIt0igtFw2tEykYiOc7XikVyHEEskuMI\nYpEcRxCL5DiCWCTHEaS6SO0+3b/W/v8/SrfQoNwWgdXZERsRU1uk9vrH6a+bb0u30KDcFoHV\n2REbIbOtSO32uwKbE1idHbERMpuK1AJ2ZTQbFqkf2AJRY5Guf3Q/sVks0p1mS5HaHWBXhnOy\ncSG+SJsXYmZDkTwnE7FId5p6Ip2unHZFOqVagWih/kfbBC/S5n2g2fjy9/b7MryMuHHoIm1e\nhxqL1G2xeRu6SJu3wWazOxu6w7JpOoU2fq45rAO5jwC2QND4XjvHEcQiOY4gFslxBLFIjiOI\nRXIcQSyS4whikRxHEIvkOIJYJMcRxCI5jiAWSZWmaQZ/n3rUy9Rnm8u/PX+1aZou7f2xaR7f\nT19vf+7/50/z0PtnzvbxTojytp/qt+4nJof8ZfKzFyPOX/3oi/R2+use/rN5+9X8PDzurfvP\nHEC8E6I8N0/Nc/xBMyL1vvrWvHS/+tDsz0bvh5NQu/9y015OSLu5s56zQbwTojTNn+NYPzUf\nh3PK42nIf7bNw+v1MW37HhDp+tXX5tf4q4c/z//3cv26RcLEO6HJ2/509Hx4xnU8XTzubToM\n+cvxSdnVpJeZ0T8/sbt8sOc8NQ8fl68+nc5IT9cz0u2NDBYJE++EJgeJ3o7P7Y4vZF4up4/P\nvQLdN/CEntpdPng6vSj6vHz5qOPLEf3rrXl9vZlpkTDxTmhyHOnLU7TjKePwl7Z5fpt43OQ/\nvn1wvLDwenvFdRTr6fDRz8NVu7b9c756Z5E48U5Icr6ydrya9qs5voY5DPlb2zQPn90HLhFp\n8PHL4Qz0er0AsT/dXa7eWSROvBOSPJ9FOpxFOiLtdh8PTfveeWCGSOfT1OUJ4kPz5/xaySKB\n4p2QpG3+7A4XGo4/aeHhoTvkr71pXyJSezKnf4378pjDtfHLFTyLxIl3QpH38wua5+b9cLHh\n7fC86/Qa6X33kXyx4fn0XO5ySeHpcIJ7bR5Pf9ufkHY+I/HinVDkpTk9fdufLo6Xvw/Tfrv8\n3X01s0Skz/bwrx4unzjf6HC6HH68DH66ejdHc7aId0KR63d22vb8Ddmn05C/tIPra4teI30+\nNXsjr5/42P/16fxtpSP+dPVujuZsEe8EINk+WCRMvBOAWKT7j3cCkMzbuH33NyjeCUAs0v3H\nO+E4glgkxxHEIjmOIBbJcQSxSI4jiEVyHEEskuMIYpEcR5D/A99z+CUnq4NiAAAAAElFTkSu\nQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_ordination(phylo, ord, color = \"description\") +\n",
    "                geom_point(size = 5)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 98,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAflBMVEUAAAAArvoAt+gAu0sA\nvdEAv3YAwJgAwLcvtgAzMzM9of9NTU1oaGhxsAB8fHyMjIyPkf+XqQCampqnp6eysrKzoAC9\nvb2+gP/Hx8fKlwDQ0NDZ2dndjQDecfnh4eHp6enr6+vsgjzw8PDyZefy8vL4dm3+Yc//ZLP/\nbJL///8DECidAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO29jbrTPLKm7Xl7Qncn\nNOxmsRkCPZAFaw9fzv8Evzj+K0ml/5It2c99XZDEkW2VVfeSo9hKdwcAZNNtXQEA9gBEAkAA\niASAABAJAAEgEgACQCQABIBIAAgAkQAQQFSkG49teWo58Q1WXk6yiUAhIFL95SSbCBQCItVf\nTrKJQCEgUv3lJJsIFAIi1V9OsolAISBS/eUkmwgUAiLVX06yiUAhIFL95SSbCBQCItVfTrKJ\nQCEgUv3lJJsIFAIi1V9OsolAISBS/eUkmwgUAiLVX06yiUAhIFL95SSbCBQCItVfTrKJQCEg\nUv3lJJsIFAIi1V9OsolAISBS/eUkmwgUAiLVX06yiUAhIkS6PKDPL9oyiFSonGBzg1KEi3SZ\n/1selWUQqVA5oaYGJYFI9ZcTampQkjSRLsyyO0QqVE6oqUFJEkWaPiIty/75QLZqALRDRo90\nQY+0Tjm51gbFSPyMND6HSGuUE2pqUBKI5Cl36tlgv7QYqB+c2jnLnSZW3q9aDNRPukjaYEPP\nOnm1XkKfKCvuVy8G6ifhygZ6RcOur2w4nTSTIBKwgWvt7OUgEggGIlnLnXQgErACkfhyhkUQ\nCbiASFw5TqMHEAnYgEh6OYtEEAm4gEhqufP5DJFAPBCJljufIRJIAiIt5Z6yODyCSMAKRJrK\nOQQawagdsAKRhnJ+jR6dFUQCNiDSs1yQRxAJWIFIN4gE8oFIfbkwjyASsAKRbkEiPQfGIRKw\nAZFuASMNT43OGLUDViDSLWjIDiIBJxDpFjj2fcb9SMAORLpBJJAPRLqFiYQ5G4ALiHSDSCAf\niHQLFAlzNgAHEOkGkUA+EOkGkUA+EOkGkUA+ECnUI4gEHEAkTaTr1eLRFSIBOxDpRhwagUgg\nFoh0Ixo5+qSr+H4h0p6ASItHzk9IEAm4gEiTKE6NIBJwA5HCPDqJ7ze8nGQTgUJApECRcK0d\ncAGRAj3C90jABUS6QSSQD0QKUGgyCSIBGxAJIgEBDi+Se9p8FYgEbECkCCASsAGRIBIQACJB\nJCAARIJIQICji+SVh3zDhFE7YAUiuTW6QiQQAkRySaTc5ocrG4AdiOTzCCKBACCSV6QrRAJe\nIJLXI4gE/BxdJKtJEAnEAJG8Hl0njyASsAKRfBpBJBDA0UXya7R4BJGAFYgUKNJZdr8x5SSb\nCBQCIoWd2J3x05fABUTymTRqBJGAC4jkEWnSqDcJIgEbRxfJe263eASRgB2I5DVpFukMkYCN\nw4vk7ZLOEAn4gUi+LgkigQAgEkQCAkAkViSiEkQCAUAk62/GGmMNGLUDVg4vkkUjiASiOLpI\nVo9Gk07k+1iIBKxAJIgEBDi4SA6Plrm4Bo+uEAnYObBIvR1ukcbHZ8ErRAIODivS2evRzFAO\nIgEHBxVp/NgTJtLYP0EkYOeYIp0TRMIsQsABRLJ3QVf1u1qIBOwcUqRzqEiKSRAJ2Dm2SC6T\nrhAJhHNEkc7hIlGTIBKwA5FsHpH/R48gErBybJE8Gink7ze1nGQTgUJApDCNIBJwcmiR7Cd2\nvEkQCdg4oki+r5Est/pBJGDnyCLFeYQfYwYODinSzSXSFSKBeCBSBBAJ2DimSDE3UUAkEMBB\nRXqqBJGAGIcVqVcJIgEpDinS8yq6m2fGBogEIjigSPMcqrEiYdQOWDmcSOavWkIkkM/RRDJ+\n1dLEthxXNgA7BxbJ+o2spUO6XiESsHEwkdRfa4k6sRsHKMrWjy8G6ueoIsV+I3u9QiTg4Fgi\npXZIy0Bf2fpZioH6OahI0bNDQiTgBCIV6JIg0vE4pkgJl6xCJOACIsWZVLZ+lmKgfo4l0m0R\nKdaj0aTC9eOLgfqBSAVMgkjH42Ai3SASKMIxRbJeHiRjEkQ6HkcT6QaRQAkOJ9KoUrpJxetn\nFgP1c0CRnipBJCDKIUXqgUhAksOKlOLRCaN2wIKoSC2RKtLW9QZ1gh4pTqTV6keLgfqBSBAJ\nCHBYkZJMwv1IwAJEQo8EBDiuSAkm4epvYOO4IiV1SBj+BjwQCSIBASBSAZMg0vGASBAJCACR\nYk1aq36kGKifw4p0Sr1qdaX60WKgfg4rUtp9FGHfJEGk43FUkZJ+jPkUeG0DRDoeEAkiAQEO\nI9JTg/nVOfbXKCaK1c9VDNTPQUTSRTifE1VCjwRYDiGS0aecU0XClQ2A5wgimWdn51STIBLg\nObhI0R5BJMByAJEYISASEObQIkVqhPuRgJX9i8QqkTb4DZGAjeOKFO8R7kcCVg4q0ilFpH8/\ngEiA5bAixXv0FOnf/+636flZCoh0PI4qUrJHfa/k+4lziHQ89i+SmEn/Nk2yqASRjgdESjDp\n6jEJIh2PA4i0fpcEkY4HRMoTiTUJIh2PI4gkZdK/Q7skiHQ8DiGSkEqsSJxJEOl4HESk6Q5Z\nIY8gEtA4jEg9Yh0SRAIahxApvzfSPIJIQOMAImUKxIl0hUhAZfciCWkU0yFBpAOyd5FKewSR\nwBOI5ObqESm3fkHFQP3sXKRcjR6YJvk6JIh0QCCSWyNTpKvXI4h0QPYtkoBH1/llqEYQ6YhA\nJJ9Jmld+jSDSEYFIYSIFSxRVv8BioH4gksek2N4oqn6BxUD9QKQAkQyPIBLQ2LdI+cPffIcE\nkYAGRPKLZHoEkYDGzkXKNMnWIUEkoAGR/DZBJOBl7yIJmMSM3Xl+ShYiHY/diyRw3eqVPB1F\ncpsEkY7HAUQSnCJy+ZL2uV3bWR5EOh4QKcWkU2+S/QMTRDoeRxBJ0iP+S9q8+nmLgfqBSAkm\nzUZZTIJIx+MAIsl6dGIvYy0asGQTgUJApHiTGJGuzH7F4pBsIlCI/Ysk7dHsE0QCCxBJRqSr\nsV+5OCSbCBQCIkEkIABEgkhAAIgkZFLBgCWbCBRi/yJtMNoAkY4HRJIRqWTAkk0ECnEAkUqZ\nBJHAAkQSEalowJJNBApxBJEKmQSRwAJEkjAps36+YqB+DiBSIY0WkTLr5y/mbsGBTz+ez5m3\nJVsY2Ni/SMU8OtVxh2w38QMibQhEyhBJpH4BxdwtODThS/cBIm3I7kUq51FdIj0fH/9eusvL\n/Vf3vl/UP4yLlwIfu4/3n++7j78kWx5ApAIqbSjSx/4k7+Wh07fHoq/dZ0OkvsDX9/2HKsmW\nB3sXqahHNpM2EOnXp96Mrvvw6/65u9x/9Cd6j87nuyHSp4deD9O+4pRPFojUvkgjP/vnP++D\nMR+fYw+XuyHSs9QvfHaSBiIVMGkDkS5k+Lv//8fjk9C3oZPSPiPR/4AYEKl9kfTnz//fdz+f\nH5Qg0jpAJCtXfxGLSTWI9K17uUzCPBf8hEgl2btIGSa1LdKjS3oOOPQvLt3X+68PEKkkEMnq\n0TXIpNz6hRRzt6BFpG/dQ5/hxUv/KeozRCrJ7kVKNql1kcgQ3v1xlvcZn5GKApHsHrUhko3v\nw9UNYB12KdK557aKSOxv91Uh0ofnxQ1gJXYo0nniWe7Vq4LVo5ZF6oahBrAWuxPpTLklinTN\n8qgGkS7dR8mWBT72JtJZ5faa1iM1LxJYmf2L5DPJemqX7BFEOiA7E0nz6PzqF8naJfk1Ym+P\nlQ9YsolAIQ4gUmKX5Du9s9xmXiBg90F/syPZtuVpO5B9iaR7FCSS41OSQyXLvCclAnYf9Lbz\nj9B2IEcQKflTkksl2wxCBQJ2H/S284/QdiCHEMmnkrtL4k2CSNK0HcjORZpNGlTynuVFi7T9\nF7Jt5x+h7UAOI1LQSZ5FJM6kc4Ui/U9PW/lHIBX/3z1tBbIvkUyTboVE6rdtNWkbkf5noqX8\nI6gaKSptXbUAIFKARzaTzhWJ9D+UdvKPoGtEVNq6agHsTCTjyobbrZBIc6dUPmD3QWc8mkyS\nbNvyMB5NJm1dtQD2LxJR6bEgzSN+BBwiiQKRZvLypcjV34MRY28kL9K5EpH+Ryco/zr2VWcr\nELylNDiPRpMy992tEMnuRFLuR1JHDPpl75I8slze0Iu0QsDug54uUse3foBIRW5TLyeSo5BY\nJDsUab5DVv+cEyySrpHtMqH55LFswO6Dzno0mORprgpFMjwaTHKuB5FSywUW1H146vUuxKRQ\nkU4tiNT1d8ta2n6aJWWYDmV4Oj12dN1OeaT/P8vQdZLxiWQLhNRbq2+3hJkUSUxExxMpRKVA\nj3qTVgjYfdC9Ik2ScE0/v9fNnyTmDOyWdUmRpZylTDJekSyB0HqrdaEiJUQSFdF+RTL6lfNk\nUoJIVp8aEMnWzIpId2uaGe/ftfTTyiTj75H4HXjq2yVHApGe5IjEXdfAq9SuSNOf6zCR6LnS\nfDbVdUyZZERFWuqmixQeybQ8iN2KZH7QGcfyYsft1EVGuRUCdh9036idNf+U/Lm7RaInPWSR\nsn26MAXfqF2MSMu/jn8nJJKoYA4k0jVKJPZ0jjFphYDdBz1ZpOn/AJE6s6iRflEnQtZAZEQi\nSnSOEp5ISol0eaA/v9CFbYgU/J0sL5exqHzA7mbxXdlg+Yy+ZA/Jm24sPy8iadhpKcalXfap\nnevKhpDBBqMuOZFE/WkIj/wy/0eeX5QieflSXKSrhEghXVJdIvGjxrQfChr+VpZ36mrKuql4\nRQoZ/tbrssiREEmZ4e+WRJqSXlwkpksqH7C7Xd4Yk96U/GuEN8akmEC2DTRNpGmB6lEtItH+\no3yXVD5gd7u8vekqzUsiW3hj5mrrGvkDyf58lk+mSMtHpH8+EKxXOnreK5zku6St4317U1Ui\nr5/vjy3caWxYYwuk4qpGAYFsH1G6SBdzWd4fXpkeyexBqEenqEvAQ0RaIWB3u7zZiciDCmg7\nkDyR1CdVijTfycp+CwSR6qHtQJJF4p7l5YuESGbij2PeUh7pIlVyP1Kz+UdoO5BUkS7Msu1F\nYhI/+0ORLpLuFWMSREqh7UASRSLD4ORsLy9fyoh0EtXI7JA2FwlUQcKVDdNo3YUsG8jLl3yR\nRJWxiKRrxJmEHimFtgMRHTTMy5cWRFKvYR0fSgfsPuht5x+h7UD2JFJ5j5YOiQ5dGCZBpBTa\nDgQiZRr1pGzA7oPedv4R2g4EIgl4pJsEkVJoOxCItCORntP3tZV/BFLxv3raCgQiSXikmbSN\nSPOEsi3lH0HVSFFp66oFsCeR1jPJ/G6qZMDug65rRFSSbNvy6BoRlbauWgAQSYiCAbsPOuPR\nZJJk25aH8WgyaeuqBbArkXSTZC9qcG+3YMDugw6RqmDPIglfZRdAmYDdB53zaDTJ115m4zvu\nSfeSm0qcR6NJyfvNiSeOfYmkmlRKJNdWSwTsPujpImlTLFhSwZYh4gkpLVJkPJnsTCT1PnMB\nk9hJIZ1ryAfsPuisR4NJnuaqUCTDo8Ek53oQKbWcu+Cs0fV6vxURyUNlIoVOot/xE9Ebr4tN\npO8TyTWLEIljKjfFo8dhiWeIIWn+fLUWEuTli4hItGN4lssWKdqk2kSaZ5pimp7OQjU+N6aS\n11+rxdkySXhFsgTS0UetMlwctnj0YxEXyL5EYhKaLEjpns7nhC6pLpFszayIdDcTT3u809d0\nVaZMEv4eid+4IRJ57Oxv35nixsJwdiUSm9DX8YNS0q2yz7vU9ylSN/0fLFLhifSzRdIqM/+h\n6JTVjXjUKdAT5s9XaiFCXr4U+EL29vSIsoZIp6pG7az5x0yi7xSJ+Quv/7VXFsbiG7UL6pHu\nasVHh9jek+ux9IXh7EkkrnM4ZYk0TpyyT5Gm/wNF0k+BOJHiz4j0QIqIFBwPc54Xys5F0j1K\n6ZFiNdpCJMeVDTGT6LOJRpYXnUjfd2VD8GCDJR4mPj0eY2E4OxKJzelMkewjFMtyc1yvLpGC\nJ9E3J6Lv6PqlJ9L3imQb/p7PUdXKWIe/tbrS1ZLmz79PWxQjL1+KiHTOFcnGdMbHzZdX1dXf\noi1ckjfGJMFACh+HvYt0KuTRaZ69ddgunYCyrvuRWhPJej8SRNqjSHQOZDIr8pYiWe6QHVu4\nqUn0VY1kAoFIoQX9IolppP8upqIS5mxIo+1AdiSS70OSoEYnY4iBmASR0mg7kMOIJKsRu595\n3lWIlELbgexJJM6k61o3952JSRAphbYD2b1I62h0UrqkVUUCVbB3kdaDdEnokVJoOxCIJGkS\nRMqg7UD2JNK2HkGkTNoOBCJBpEpoO5AdibSxRxWI9J+etvKPQCr+v3raCgQiCYq07fD3fyZa\nyj+CqpGi0tZVC2A/IpWRI8ajTUX6D6Wd/CPoGhGVtq5aAHsRqYhG/475NnfbKxv+8x/GJMm2\nLQ/j0WTS1lULYB8iFdEojo0vEYJIG7MLkbaWqId4tIFI/9EJyr+Qxl/vfmvOo9Ek907n2ym2\nvDcEIskw3ed34uqXGbD7oKeL5L0rPDo5OvZpIMkizQ+OfcZWJyf0fPLyJVmkrSUit8uethHJ\n8GgwydNcFYpkeDSYFLJTiBRdrj6RrlfaIdUlknfu73Hi7mn+kOciZfZs7r07N4U2mTZEmY4k\nbCoRn0ieub8765QtenVoPN28rr18UPV3INKWAmkibfWzLk6RbJ8epuWd9h+Zh2d8YN/jyprr\nKmX8gThFsgSiiOSsnvLeqNS4rl7V6OpDpCyRrppIRQJ2H3R/j2Rp5u6u5otWlIhE32Ozi1lu\nZKIXf4/EB2IONujVuTPV0f9YkHJJ1YdIKb/csqyretSSSMtJjVqKnuAwBZhs7JSeiEyEvGR4\nSJoli6Q+06pD3goSKbX6EEmdxiR65UWk04Y/fekYtfP+IWdEItnlFaljlpO35r15s8c3ahcm\nkq86RsCdUtXk6kMkOrFWwtqnRcVSAbsPerJI0/+mSNxfa5tI7OPdyMSATBMRyVudNJH81T+8\nSMuAW+Lq0/lduYDdB913ZUPw3N+aQBEiddojkVDbgD8QzqOwub+N6jB/E9wi5VQfImWLNF/Q\nUCpg90H3iuSb+9sUaZ4GXJsNfHqvY8q6pgYPH/52iuQe/taqrleXm6mcKqJV9YjD31kmXa95\nJj17JF2lqq7+Fm3hkrwxJq0RiMx2jy0SVShdpGlTpQJ2H/S3N12leYl8C5dkrrauEUQqk1d6\nwddXLbn11x6PkgRatkCeFwrYfdDf3lSVyGvawqlTZq8HqbiqUdFApI7E4UXK0Uj/DqpQwO6D\n/mZHsm3L03YgOxBJT25DLJdIQcWCN1AmYPdBbzv/CG0H0rxIpkavoSY5OiT1lyasJunrj2d3\nECmFtgNpXCRWowiRHG+dJ43sv8dsbmCrG/uazT9C24G0LRKvUX6HdLoG/Bg6N1IBkdJpO5AD\ni+Qc8VY7JEYky5dP68/ZAKqgaZGM7I7zKAhbh2T5Ghe/j5RM24HsUSRZk06RIuH3kRJpO5CW\nRWLSu4RIJ4i0Cm0HskuRxLskiLQCbQeyO5FkHRoIF+m6iPT8cCUSsPugk3x7Vqit/COQij+P\nXVuB7EwkLa1lPOK6JHuHNIg0D5wLBOw+6KpGikqSbVseVSNFpa2rFsCORcq9jo6aFCjSeDvF\nXfkOKjtg90HXNSIqSbZteXSNiEpbVy2AlkXymCQpkm6Ss0O6nc9hJgmKdL0yJkm2bXkYjyaT\ntq5aAHsWScyjUJFGjyBSEhBpJlOQSJH40bQi6HtiPRoW3QyP7CbJiXTV8edfwu08nfYoC+fR\naJK7VuGBBFc8PsJmRWLSu6BIoRpxHVKtIikPzDveVYPKhpMsEl8T9/QOYcsjaFSkIb3XMont\nkHSFJo1Mj6wmiYlkeDSY5FyvSpGYYweRogUJF2nK75VU8uykbpH8c8+7JpDv7tr0O+pkQfGT\nzbsDcYkUMom+Xid9biBm5n82YnpUwqBF9bvhow9KpiCh5eb8Pq+jkm8XlYs0z0DFtTydnoo+\nzs+1At24RbasnlBxeEVyBsJV1oysMyO1RRwZTXsiKRm+iknePdQtkiUhtDbulkK8HJ0/BWPz\nxQzE3SP5AtEry9aWhumOmN+dBVUkrYLBWxnJy5ewcqWt6fmjvPKr2qZI5GE8tyHvTMlpFYm8\nvyRylkrJIqnPFJG0KEiBkIhj+hKIZPLnwfwiqM9TRKps1C5AJHoyQxapazM9klb2nqeSb9Qu\nRSTtjblASMRaaB4yu2OVvHwJKlfUoJE/f2aVpub0rNG2SC45IkXKSagVRQqJ2LY7C0zJz5fu\n8iV4A5S8fJEWKfUSIVOjSJHqurIh6IfuAgYQuoiySfiubAiaRN9dMzqQ4ItiKhOIWfLz81zx\nc/AWCHn5ElIuRog0kf6YJ3Yuk55pW7dItlHjZbBBHdI2J5y3D38nzJXvCcQhUtAk+s6a0eFv\nZ8Q00jDMkpevj/++XYK3QMjLF2GRnhmeJJLy2imSlr5zIGEerXP1t+jJe0neGJPaCYTW7v23\n55L+/69Jtc7LlzpE0obsXCYZH0xIIAEarXQ/Ut35R5irrWvURCC0dl33/tEbvezk1O6a2iXx\nIpkqGR6pc397NVrpDtnps1Dmd4TlIRVXNWoiEFqPXw+HLl9+9YMNSR7tQySDRJFkAn4Wc/Jm\nJ6kRN6PtQFShf708JHr5lbqxvHyRH7UrKpLh0XJyB5FSaDsQo2f8cum6VJXy8mULkRzjcbpJ\n7PZ5lSBSCm0Hoog0fIP09X3XffyRsrG8fBG/ssErknNgO1EkTMeVStuBUJHmb5C+vU/7DJeX\nLwVEChEk0CR2+xaTIFIKbQdChSHfIH3/mLKxvHyJv/rba1KAIM2LBKpAGf5O/wZpIC9fou9H\nChAgRKQwkyJEuqJHSqHtQKg2Gd8gDeTlS/Qdsv789/sBkaqh7UCMwYYMj9ae/KRaka7eCKIC\ndh/0tvOP0HYgol8M5+VL9HRcQbg1yRHJ7hFESqHtQBoW6Rb0datPlD2J9N89beUfgVT8v3ra\nCkQR6fv77v1wJ1K9w99LQevPT2oO+CQJ8sgv0lkR6VlCKGD3QVc1UlRKacPtUDVSVNq6agFQ\nYb4/Bxs+PBdXLxJJ5TVE4harHp2JSXMRkYDdB13XiKiU0obboWtEVNq6agFQYT50L/33SL1J\ntYukpnKmJ6oynDTe6xqe65keeVQSFOm//5sxKaUNt4PxaDJp66oFoN5G0f//szepcpGMfJYR\nyXadtwmjETFJKZofsPugQ6QqMEV6mPSxHZF8t0tEeERuzIzRiKzIWp0fsPugcx6NJnkbf7rx\nmkkGrSDznvSdQJxHo0meNX23JbFvdhERBBSkRT71p3YPfnQf6hYpXI4IzgrBHjEmacWzA3Yf\n9GSRFol8IllmHREmWSTlj4G1gMBybyVGfk5if0288TBTkJpEcplUn0iGR4NJQU3f1SSS4dFg\nknO9TnlwlMheHlCLgZ+fxjlPvn+oWaQ1PHKYdNVZ1uZPM3MDdh90n0j+yXfmInReHX0++uW9\nblonJUU8gbhECglEm86ImTxoDq4zl+fMqd/iF7IVijSuX6VIlv5Eyb/71DNNp0ncfPTcS0G8\nItkCmTOcVtA2nZ3ymgnMmOZOK2MDIlk8cs9kx5h0GkUy18gN2H3Q/T0S38yd9rRjc4oTaeyN\n1u+R7DslvQVzqtppL8wgzfVsZWxYK2ZfxU6mIIHlSngkIdLJ0iHtR6RlRknLNrPIEWl+m5x8\nciKR9zvL8nHRFKxexrl7ZjFEShSJWSM3YPdB943aCfdIzm1m4Ru1CxBJq6ghkuVUjlvPtq5r\n92Lk5Yv0lMVRWEUyehm7SA+T+CpmBPws5iRVpGmZmlhBIpU7tUsRiY2DvmME5Xy88yL5/nY0\nJVIxjVw9kj6k7RSJ/2o4OeCxmBPflQ22z+j690iBInEdlAy+Kxvsgw00Du7UTak4fd1Zlt/t\n69poSKSCGp2co3aTLX/OvElkI3HnduuIZBk17t/SPvJ0y7KOFliStPTwt1MkayDzpxdtbnzb\nvPhLvHJz6jNvvXTdp5+xR6E8ZT0yRFLeHHz582cZ444SqehxeWNMelPyrxHeGJPaCUSp3ZdL\n93L/2Kt4STIp7w+vp1xZjzyXCPW+/Jnesnp06i1jNp0W8FLMydubrtK8xGzhmpmrrWvURCC0\ndl96hT52X/tnn1I2lpcv7nIFFZok8Ih0nd5xi7TFF7JUJfKatnClc88TSMVVjZoIhNbjffft\n/q17/1ycVL+8fEkW6VXCI9Uk400qkn71N93EpiLppLThdrQdCBXmac/Hl/lpNHn54ixnZLyM\nPCqO75CWLml5qWtkubYhLWBazEnb+UdoOxC1R/o+PPn1ubpTu6Bsz8e+YVUk/jYoiJRD24FQ\nkb7OF//VN9hgZnqGSim/9qKLxHBm76NIDJgWc9J2/hHaDkQ5hfv6fnhM/YmkvHwJEUnJ5EST\n0n40SfmQxHNmbjZPDpgWA/XTyheyc64mWRCC/pOXGn6RzuY8QhkB02JO2v5DTmg7kFZEuo25\nKuaNgV+kV9eHM+272n5RXsCkmJO284/QdiAQacItUi/H6+urTaQz49FAcsCkmJO284/QdiDN\niHQ7lfXIL9Lp9XVUSXlnHkW0fbmUGvBSzEnb+UdoOxD1e6TML4zz8qVmkUY5Xo1OiQ7m8R6d\nepXGh7QD4z7obecfoe1AqDAvVYt0i501NQ5/h9TDirSYYxGJknBg3Aed5Nu/e9rKPwKp+P/p\naSsQRZiX6RvZRNIECS9XUiQN/erv8cnQJbFvTS/dHp2oSrIi/XuipfwjqBopKm1dtQDUnmea\njiuRVEFCy60pktLrLMsfIqkFdWsUkSxaRR4Y90HXNSIqZTXm6ugaEZW2rloA2inc5SVnY6mC\nBJcTMCQM6zi37pGBdqLHbyfuwLgPOuPRZFJOW64P49Fk0tZVC6CdUbueXD+CsX9j5L3UfDJp\n+QbX3FDcgXEfdIhUBW2JtJZJOdfFjiJRjcxNRR0Y90HnPBpN8rVX4KBScI7kJRPn0WiSb79a\nHLZ6lLx3ybiNwvoygHRBQssJSBJC1gXmT5N0j7RtRR0Y90FPFkn9JQpXwcjliSSLFBpH0UAg\nEke2SFePSKeYA+M+6KxHg0lBTe9v5aEQu/8AACAASURBVBVFMjwaTAqp3sZ/EaxfyKZ8l5Qu\nSGg5AUlCkBDprKMUijkw7oPuE8k/9/w0LZBrznn6OmeueU8gLpFCApln/qE/AhAVSGoAEInD\nNkgQRG0izZNK2Vp+EmmepWpORstr8mgrk4BXJFsgc6bSHwNQKhcTSGIAjQ02tNAlWTxSNxZz\nYNwH3d8j8c3cqU+75TmXZ8b7d0f+FRLJselOF6e737XK6VvQA+QCiQAiseR0SQ2LNJ7kjMtM\nScj702qduk7GuV2OSEaFPSItZ3NkyktlWSytibRxl+S7/Gcs5BUp6sC4D7pv1C5AJHJa5+yR\n6PtkkbIXy/lXAL5RO0GRmED0ZbHsQCTjqh27HYHlxtKMSTsSaVo2JBB3muZ8vC8peWfWTSBV\npCWOUJGsgRxbpOeVpFGKhGKqZF46x5nlFSnuwLgPuu/KhoBJ9IlI7Kkd+WOdO9e8NxDOo+BJ\n9JeKmiIxldQDUc9R49iLSCEmJXzg0U0KE4k3ibwfd2DcB90rkn8S/SkNOnWOeW7UWFmeMNe8\nNxCHSN5J9JXhb+UNSyW1QOiyWFoTiUvbwA7pfNLSOWglczZ9bQG/nlOkyAPjPuhvjElvSv4F\nIJoGibwxJsUFsmUUbYnEJ23geV3yMJwqiH6bhLWkzaPoA+M+6G9vukrzkvAWrkgk6/1IEKmW\nHxoTE2m0x3M3rCYSc7/5KnfITidvji/b65iJnlRc1Sg4EIgUUi7TgJOMSMwP9llLah4lHxj3\nQX+zI9m25Wk7kFZECk5053meXJcUIBL9nJR1YNwHve38I7QdSBsiZSb/wrpd0jR2Fx+wWsxJ\n2/lHaDuQJkTKzf2Fdyt3SSN5B8Z90NvOP0LbgbQgUmbmK5QQydklFRcJVEH9ImXmvUZ+l5Qi\nksUk9EiUtgOpXqS8rDeBSLXSdiCHE+md/GhDSMmcA+M+6G3nH6HtQBSRvr/v3n8ZFicJFiNI\nYLncrDdYUaQrRIqh7UCoMN+f3xR/eC6uXaSg+xk43iWup+8+rkOCSH7aDoQK86F7ud+/XXqT\nahHJkaKJCsiI5PjpCabEWiL9q6et/COQiv/fnrYCUS5Ver742ZtUt0jujsDJuziRXKeWwR3S\nsKXiIv1roqX8I6gaKSptXbUATJEeJn3csUixH5EcKrlrYXRYZUX6F6Wd/CPoGhGVtq5aAFSY\nT90whf6P7kPVIvm6AgfvEsYaHJ/TXHVgKllQpH/9izEppQ23g/FoMmnrqgVAhfk5XZT+NXEi\nmAZESvkayfFRzb4SW0eI5GA/It1/Tr+P9P1DFSK5UjTRpJVEslSxmEj/0vHnHzcJqG0m01Vu\n9OE8Gk3yrBlzd3ipUGr+QtaTpKkiCZ7cWbDXkAS2uUjKg/GcKxu8PIlkkSTmK8mOpEWR5mSN\nzO8ei0huVaJEcn7FpIQlJ5Lh0WCSc71Oe7zXIJLh0WCScz3mL0IYa4hUw2ekkIxVl/z1lzfN\nzbtkH1u5C15B4fmqVt3RGiL55p5fZs5RJpMfZ8Wf5hXyzz7PTlsfg08k7yT63VSM+REAZYok\ns/ZKJEkTCTUskq7SX3+FiqT/Kvld8Eokj0gaa4jU8c1MROrI4/y8I+vGTKOvFIjBK5ItkCnt\nZ5H02k4rjvPWsbXPrHzFp3YRWfvXRMDXrcqkPvN1ByE7CyTGo1VEsjSzT6Q7+4K8vvtWiMTf\nI/GBPBcvsvC60xe22udU/rgiPYhK+QhitlqHSGQyeWVieSYVyazz3ArTSGDCKU2OSHdqw9IT\nWUIhPRgXetL5WNsinXSP/CZxHgmL5J2oiyAjkmvULrRHupM/y3cm++Z3vSuMr2NTyzdq5xfp\nzsxhzoZypx2YEUlK5Y2Kfbn0V4FfPsdu50lpkczxtkpFiriIqSmRuBS1iRT9RzpVpI7WJVAk\n9XROiySl8nr5Lw8Vf14eHVySSaVF4jNW8chr0uzR6+uORHJc2eAZbNAzjzmbuysf333T6Gsv\nwvFd2eCfRJ8TSelPO2O5O5IItPLvu++Pf19+dJfI7TwRFck0ifsC6Hr6SxOJqMRIdSYizSrd\nQ/0IpyKRbKPG5MoGZZJ5bcL5IbWWgeExJflp9HOHv50ieSfR12pt1Gz5W2DWXnj4+7GBb937\nlHPEng1EOp1ORKTn63fzI1NY8WhSSXL4eyS4mxMSyX71d1JLbsEbY1JsIJ4yBY+FtulL9/NT\n96P/lJSyMVmR9Oy2XdszizQv0XsmZSNUo8GkWwGRgm/hlRLJej9SayJZ70fKEynpfC0CbdOf\nH53ape+QXlI2to1IJ02jHutnJU2jSaQCXVJYsaDj4uTtTVWJvKYt3GmktG9ZSMVVjcIn0XdF\nVThofdsv3eXbo2NK8qjs1d/2y01Nj+zoHdLDpNtuRNJJasTNaDsQUUmlRSL5rV3Zo5Il0mnY\nceD6woQdFydt5x+h7UAqF2lM8HmIwJaQcR6pJk07lhAjFoi00HYg2ilm3jl0EZHOlNzEdYgk\n4cWC2Ng3RGojkNpFUtI/2yR98HsRieR23i5GrCKJ348EqqDuUztqgPKYiE0kNdVz9jBiG/wm\nYYUfGPdBb/sPOaHtQGoWyeZCcnqfLSIZ2Z68hwnLXX1pB8Z90NvOP0LbgWgiffgxPP76mLIx\nWZGsOiSnN+uReTfSvPNko9gLhJbpVqe9QCRK24EYlwg9v0H6XMNnpMQktsN3SNYpSpIrwV8J\ne51EWnYDkShtB6IJ8+NDd/n69dK9/5GyMVGRUlLYjcUjp0gJ9bBcUn4dTLLvKF+kf/S0lX8E\nUvHfPW0FYvQ8D4u699/SNla5SOzgt//DTOxO+Jsz+HvaJUX6x0RL+UdQNVJU2rpqARgifatE\npMj0Dc3ykA4pUyTuFnbb5BByIv2D0k7+EXSNiEpbVy0A/dTufS2ndrGKBKf54z+qkbRIZ+XW\n22UOPssdhFIi/eMfjEkpbbgdjEeTSVtXLQBjsOF5a2wFgw3xjkRwXTQKGKeO27YqkoZnTxBp\nLyJ9/DU8bj/8nWZIGDd3cusZHrdxl0ju/WSI9A8df/4tl7Bwt297XuvLJb6O5DwaTXKtFngt\nTun7Rqr9QjbajmBu+s/A2spl1KUFkZhn0UimT6JI6dUQzX1+Y99fNr9D9jU+e8O4GXluL5qh\n9KoiGR4NJgW2fEUiGR4NJpWpRmmRvn26dBXcap6Wv2ou/+Ey18xy6xayqhHkUXmRvFNmaxPt\nLDMGTROC6G9pE35r7yfjE8k++Qm9eZYWpDXWJ0PpBOb7Zqow8+1Tv8VPaePfkiKlJ/DCH04k\nJsmtG8irRZCu5UVaJtKxtDwRiTyqk3+Tt0gucu8n4xXJEsi8lKkU/5o86suSUdYdLOq6X4kb\nkxPJmaDBF9uFiiQ/r525I8v7QcfFib9H0pt5bHk62KDk011LrU5/i89Jy36C8fdI1h1oIrke\ntXL6e8nQDYx9UXoXJyaSOzmDr/+2i7SeSZ7pizcUiT4jp3bGomCRMs+O8kWio5Ad81qLoCPr\nZGQ9rcL4vHuOftcuUviNFH8q6JJO7LXgyyRHIiK5Ru3iRDJPhIJFsp95heEbtQvrkfTKeV6T\n7cl9RqqmR3JlZcxtshaRrlN2r+MRe5vfPF9YdSIp4kSI5MjzMLYWKa/2yrq1fEayp2TU3eZ/\n/thMUlUK3mAqvEiDSTIiOa5sCB5s6GxiqK/V5Z3yfvapnevKhvDBhoDH+adcjKgS0dcdR+2+\nJ21MSCSp/LV5NJ9rraMRz3oiuef+nhNLHyE2eh46eGwZ/s7vkVwihQ9/380ak9fzNOAlh7/v\nFXyPlJiauhLWDin5l5wlmbokIZHsV39npceavDEmtRMIX7tNr2xIzExDjcEj1ph6RAo6Lk7e\n3nSV5iWOFq6Qudq6Rk0EIlq7DUUyz9KeHZLFmC3P6UbGaf4FRbLcIUtOeyiS7S4DqbiqUROB\n1CdSSlaa4wZ/Zo+qFinsuDh5syPZtuVpO5D2RVLviRj0GDSyz9K40midg3cQSaftQNoXqUdz\nyTHMQIsnOjBeovSadX36IFLgcXHSdv4R2g5kHyJFfr86FbupS8L3Nkz7kFTRgXcQyaDtQPYi\nkqJSYMl5ZzFfzQ5lMj0aRcK8dpS2A6lPJAGTAguOO6Mr+VUaS+Tddzh2SGcJkUAVHFAkrUOK\n+7wkMUYx/fp6f71Tvkht/yEntB1IPSI9cyxHpOAztEmk5VXkHlLr9/z/3TsqUohJ7oPedv4R\n2g6kFpHmbBMQKaxkvEcRwxmWDbyjnCGSQtuB1CFSWl7aMj16neAtx4ukXKv+WFHTKMgk90Fv\nO/8IbQdShUhRme9N9+hVgrcc65HxI4OPVc+qRqIi/a2nrfwjkIr/v562AoFIxUUiJj08MpES\n6W8TLeUfQdVIUWnrqgVQg0hRme9N9+h1grecL9KpnEh/o7STfwRdI6LS1lULYG8iJawTuOV4\nkWZVyHZKifS3vzEmSbZteRiPJpO2rloAFYgUnfv2bE9aK2zTEKk0EGlmY5HSSBEpaB3iyrKd\nQiL9Tceffwn385S994fzaDTJWak5kE1vTYJIQRQUyetRKZHi29e3Sl4yJYq07Dh89wWUg0hB\n6CIFmHTmRErpkAJEMjwaTHKuV6VIhkeDSWEVg0hilJMyViRVFsviVUQKmkR/nCpoKrnMrsNO\nmW9MvUPno0++/dsnkncWIcvk+VOtbBXVJlBKDKACkQSzfx2R/KV1WfQ36PPiIi1zaFlafhap\nIylJlnGz2FkfO3XbEXhFsgQyL+Unz++4d+7acyaYSCLWuDzQn9Nl24tkbkr4O6rAj0dWj06M\nVsVFsjSzOq+dkkJTaT2t9BesUJbd+fH3SNYtd0oBUwmX8bagIglf4zL/tzyny+7bX9lgeCP9\nZW/0wLchknY/4JYiqc8MkVTJtE0tJ0fmLPWp53ZyInV63cNEUoOKZF8iGQg6mnBJg+GReV+t\n0NXfjlG7SJHIaZ29R6Jv6huwn4B58I3axfVIygpBImlBRVKFSOVMktjyeAIWdeEEKxI30UOt\nItlOfNhTOS4/49lYJH3tSMRE+ueDtCo8EUh4luwNz0MDsWsFefSoYC6+KxvCBhv0gQZlGZuH\nlhyc3ksNhPMocxJ9v0gdE1QkdfRI5XqlzM0qQwORq2orWWYekumRXCJ5J9GfJ5WnKaEsY2aj\nnx47+v400FxGJP/w91I9tXM03rEMfytBxVGPSJK399E8NRI3YlMRvyHj3ZJtBi8ZkexXf0cn\nReK5TTZvjElZgUSQv+2KRJLJWO2DDCNS0I6GYoIelRbJej9SayJZ70cqVK/0D3XmZoJoQiRj\nPEDfbr8j//Db7WYMuOUxelRUJMsdstMJW+Dc89vNSk8qrmpUeBJ9kY1UJJJUzjJpqrzyfSHU\nlzEHrvM4ryOSTlwqbE3bgUS4OF/NQJ9LXNlQXCQy15f3AoXrohFEWpW2AxHtyHNEkspZd576\nrpjr35D3aBGp2Khdq/lHaDsQiEQY3iggUo+tS4JII20HsnuRlES13wmxLGav7REhtUtyH/S2\n84/QdiAHFklRaQ2RuGvt8kUCVXAokfS78xaVWI/kReJMyhWp7T/khLYDqUakNT4kmSJNJvEi\nFemSdJUg0kjbgUCknisjkmVAIhMy5DA8BBwZ90FvO/8IbQdSj0ilTHKLRH8jiYpkfopyEf6z\nY68EvXoQqeFA9i8SyVVWpL6CukjGZyg5NJFCDoz7oJN8e+6grfwjkIo/f027rUDqEalQ4irZ\nynukiHSlHhWo0OLR8zOYoEjzLlrKP4KqkaLS1lULoBaRCvYBfpGehXiRxCukiCT405fKTtrJ\nP4KuEVFp66oFUIdIJTO3x2bSolHPZJJum2hVyMejUJPcB53xaDJJsm3Lw3g0mbR11QKoQqTk\ntGUKs1twiKSvzIgkapIy/g2RCBBpRkCkuKw0ij+3xhTUdzWsrXvETE1cwCTlldDc38Ze/Pmn\nTmtnvJucBMlwHo0muVbrtMdobCvGbbgGkdIT1lzhZsoxLV72RhbrG7yyMsXWK4LtRIpt3dJu\nbSWSb8MlSnvIFUkgL/0ieYfZVxZJ4mddmO22KZLh0WBSQL3ka9ecSJ58jbxOxyHS8My7hXVF\nCuiS3AfdJ5J3Ev1uKHNXpps3J+MxZp6XTl2fSO5AlAqP0RizB2m/BsCEyvxkQNjMQjWJZMu0\nyGveLCIFr783kWYZLC3fTWU6UrqbBbJOBifdCXhFsgSyTKdnRsOEYJQwlmsvwsJtQqTsZI27\nbGJVjwK+k3UfdH+PxDfzMqsdLUNSTvnwwYkkjL9H4gMxReKiMUJxhWraZ9m1Wgkx8kSyZpqA\nSFGlDyISeRIu0jKnZE6iWAPJE8k9eb7+Okok77ldCyLlp2pQKfIDlXIevaMv+C0JiOQatZMV\niawvrZJv1M5+ftWp7xUQSYudrYMgaSJ5J8haBfpJrJRIvEqNiiR+flexSPZdkzoIsheRTmIe\n6SKxCIjkuLIhaLBhXsBkz3Qm1925TJTDd2VD9CT6atXNszU+1OVFp7xf/6nd7VSdSHE/0OdC\nv1MppUtyH3SvSEHD33czu/RZ5tcY/naK5JtE35w83zrbvyXUTt2MMvzdQI8U92t4hTAG2Z9V\nKjBtA4OASParv6XzvRhvjEntBFKBSFPSbi6SaU3uvA3M2gldkvugv73pKs1L5Fu4JHO1dY2a\nCKQOkUaVcnI2F6tIOdOgBK4mI5LlDlly2iM697w4pOKqRk0Esr1IUzY5RFrhBIvVpejMXAQp\nkXQk27Y8bQeyuUhFMzQcn0hlTBq3CpF62g5kY5GKpGcCrC5lp7gb9tD/7/EIIrUQyKYiJSUf\n/+MomTDCnDXkd3oauySI9KTtQLYUKSrlFn0svzOUlc+GMbpGBbskn0cekUAVNCMSMemp0n+J\nprPmEONRoeGGfrN5IrX9h5zQdiAbipSTf0VEWl5DpA1oO5BGRTr9V55I2t7d4wylRcKo3ZO2\nA9lOpLwEzBNJ373pyUoeQaSFtgNpVaRMTJO0AmuJNFcHIrUdSPMipW3Hv3/eo5xaOy6BEhLp\nXU9b+UcgFf//etoKpH2RCpnEaXTPqLXzWkIRkd5NtJR/BFUjRaWtqxbAYUXylmDO6nJEctcm\nX6R3lHbyj6BrRFTaumoBtDpqR3NQZkMmK3w4GskX6d07xiTJti0P49Fk0tZVC6B5kZ55KLcp\nlSo8gkgtBNLOlQ3uVBTc1vrki/ROx59/3tt5glNDKIc4j0aTAvY+362kLSW3LRW9e2knIiV/\nVqoBj0elRPK1pq1AqWTMEmmaUqHTXpLalpiwRa+GEJEiSaf+xtOnJJMvkuHRYJJzvSpFMjwa\nTHKuNwqizQSkvKTlCrGpSKI3l680L2oBfLN/uw+6T6SQWYSMWYPoLDracmUy/XmqeoHTJp9I\nzkACRFKjlmZHPVKqSJubV1ikZZ4pvuW1DOTmdTMebWVy8IrkCIT8Y15yUUuzP5FkN7oGvp9I\nch90f4/ENzOdRF9JOV2cO/O+rUwO/h7JEsjdKRIZVNnrYEO6SH/YpakicausquQ2IilPhtMz\n5fWyIpmbfi5qzFefnaWpIhF7OvMleiTXKdcfdlWPRzG31a7cu+WK5Bq1CxeJnj1RSbSTJJqe\nepkcfKN2DpE6+qi+hEiu+bkcPZJ1cxF3qF9Ff40zgFpEsn4m8okk9RmppEgSdbRTr0jxOezp\nkMJnekj7eeiciyByRXJc2RA02MDONE9PkMzzJvNcSkIkx5UN9kn0O/XR6C7Zl8JsKZL0n/sC\nHVKMSbWK5Bv+ts80r06iPy9Xhr/v84cmkR7JJZJ1sMAp0v6vbJA+b6J5rzvw+hos0jXVo6zL\n8nJFsl/9XS53hHljTGonkF2KpGvw+hosUr9Wyiek3AvFs0Wy3o9Ud/4R5mrrGjURyCYizSn7\nfMxIP41hi1fKLFGQSM9VbvFf7ebfji4gkuUO2el8p8655wmk4qpGTQSygUhL2g65m5F+On3y\nX1VeY0x6ahR/jcQ0IV56xWVE0pFs2/K0HcjqIpm5m5F+5sbyRBprE+tRRo0nIFLjgawtkpm5\nop+UriZxXdKzgs/ztFUvNnJ5BJFaCGRzkWQT0iNS0DZWmYBLAyK1HsjKIhXPSLdJARtYaSY7\njQyRQBUcSqSA9deaElIDPVLrrCtScqIFT1AMkSDSJhxJpIDVV5ukmNBXDCK1TiMiBZMnkvor\nY4WrOtJXzOkRRGqBnYnEeHSK6ZEm1uySHjWDSM2zf5Gu87V2UVtatUsSEunvPRBpE/Y1asd5\ndB2TNfaHZ+vpktwHXdVIUUmybYGbA4iU+J1vqkgJa0mI9HcKRFqdra9sEIX3KFmlNBIGKgRE\n+vvfGZMk2xa4aV4kcjE5J9DqKiWN+EGk5tn86u9cbuT2JrYfWq1jGnYxihS3r2yR/q4TIlLi\n7TxRq9Ryu1BxtrwfSTSDHedyq3g07/qccu34FiJ15P9QotOlY5/ukD2IdLI7pLwvv2O+BtEd\nUrZIhkeDSc71tBlDwoBINtYXqWwaO94vsOOT5bQyfjvlRPLPIqTPG8S8oFPnd/x7d27SfTL7\nkDL5ftkZfbZgH1/I+hK4XId0o7tPP4csKZJlOji9r+imoh334r48Wt/jyprrKmX2w5oiSSfx\ngi+BC5/Z1S2SpZlpRzO+7mj5zliZiMQV5MoyEi7LdsV6Ii1Z8/oqntS+BF5VpPgNOD0qKdJ9\n7EuMKfENkZYSfpE0PcnWyWSNCflVM6uJNCdN9LU6YbgTeL2RhqQ95YrkGrULEYku4kUiBnlF\nYk7x6FvTy32ptLpIZTTq2eyXkQp7VINI2umZUyT28W6ItLPzu7VEmpOmmEfbkS2SwP1InEee\nuee7+X//Z6TpbCxUpE57ZD8jQSQbASLt0CPv11ghFBTJPvf8PAatT4nPnNqN497T8Lf2XseU\ndU2+j+FvJ3aRRBO3NiREcqnkPui+q7/3la/VsrJILXRI8fdBSHjkMMl90H33I0GkVVhVpHfv\nkjKs6NC1BHWIZLlDdmzhSuee3w0rivQuzaOyXwHJICKS1ST3QX+zI9m2wM1qIr1L8yg/PddA\nwKITRGqatUbt3iWJJJOgKyBTS4jULiuJdM3xqH6RhK7WgEjtsopI12tah9TIiV38DEUWkkQC\nVbCGSNfr1CHFOtGESGIeQaSGWUekxA6p+P0PIshdPQiR2mUFkZYOKZ4WRBLD4hFEaoHKRYoc\nDmvbOYjUMOVF6lV4l9yvyHVJK//iUTw2jyBSC6wjUroNzlVjtrn6b4dFA5FaZjWRErNLbNyu\nXY8gUgsUFynzS1UpkWrvkOwaQaQmKC5Sngpi1zaU8aj4yDdEaoXSIqFDCsLlEURqgdIi5d1M\nJKlRzR5BpOYpLFINX6eu/SvlSUCkxiks0tb5uWhUt0cQqXWKirR1dvY0IpLLJMkmAoUoKNL1\n9Hvr7Dw1cmJ3gkitU0ykCi43fQ5OQySwBoVEquNGoueNQm14BJEap8y0TFVoNNxy9yopUrmJ\ny09F2gGsRpkeqQ6PBl7RI4HyFBEpvENaRTiIBIpTTKSg7Fmr56pepFeI1DglRArukNb7KFW7\nSRCpdUqJFJQ+i0h/lczSHogEirKlSPMY+V8PCmdq9UCkttlcpKdFf0El3CHbNhuKdNVEgkkQ\nqV02E2m+4e8vmDQAkVpmq+HvKyfSNipV89UxRGqYjUQid6D/9dfGKlVzEQZEapiNLhFaLmq9\nXv/SWSVr1aqsu0sbEKldthHpSqlApHX3aAUitUvB2ygcGXN1mbRa3j75HSqS/pVuiQvBIVKz\nFL2xz5Yv12pE+v07UCTzutcyd1RApEYpeau5JUOXye5YkxIzMOUE7fcTz5rzpA+aSaXuTYJI\nTVJ8Xjs+T2aHbppKOSkYa9LvSJFWuvIVIrXIKr8hy6XIoNHybIuPR0Emnc8rqwSRWmSlXzUP\n4u5PMlFSRFrDJojUIFWJtPJEeEQkh0kQCQQAkQaRHCqt7ZFhkmQTgULUJdKqJj0lej67OlWC\nSMBPZSIRlZQXJZg06nGqtPVwg2QTgUJUJ9Joz7TMl3Dp2fpbnVBZM4lKVVgjU2CI1B4ViqTi\nyECvaE70icmpSFr3tPIXSRCpQaoXiXVlOCvLEuk3KxI1ib656Teykk0ECtGASIwtz3ECm2Uh\n/DY8cnZJp1V/PBMiNUgTIum6TOPWqSLdfltFutLn2/zAk3lcQP00LVKaSdZVTJE2+a00iNQi\nbYik5vPvPJGscCKtbxJzXED9tCES/cDymyKa6YtI181EYo8LqJ8WRKLflv7+va5IclsPwXJc\nQP3ULxK5AfC3iWSub9wh2Y8LqJ/qRbp6RZLK9s07JIjUMLsQabqsKC+PKx1qgEhNULtI1zCR\niE7JbC3S+H0vRGoSiDSjXdcgsMVIzhaVJJsIFKJyka5Xt0lacaGMnjRaX6RBJYjUHhCJ4bpk\nM/9eGebrYiFSe7Qlkm6SUV4yry0bLDfB8dnSJUk2ESjEvkXKEssi5jJKboiQs7fTfK/GCSI1\nSGMiXd0eaZmfOb8XL5J9TtdMkeg9TxCpNSoXyTTp5tJIUSl7orxIkXLvV6K34UKk1mhPpNvN\npdGskuKULK45UtK3eoZILVO7SLpJURtMz2on7smGUrcKkZpmzyKlpnSmCXlrQ6Q2qV6km+lR\nbSKN2Z8lkjrll3ZcQP3ULxL9DZi4DQr74lPglOHRyTHWAJFaoAWR6G/AxGxQ0BZ/+lMP8jaF\nKxtapA2R0goK+sJnveFR/iZxiVCj7FmkciYx+uRqdFouETLCBfUDkeJ5nmjK9EIKw+aYcEH9\n7Fok/coGEbPmoQ9hjU7PW/vYMED9HEuk4E7KaogyGC89h/EVt5o3y9FE6glIaVtno309DJHA\nyBFFClDJ9vFHE0nGn2WvEKlZdi2SkanTGz4FbAMJxiW0Yg5Nu2XDBfVzLJGe9O94FNhGpGGf\nTLigfvYskjVjfSLZvmE1PJI1MsvguAAACl1JREFU6WwxSbKJQCEOKdJDpQpFOkOkhjmoSM6v\nlKwX/awjkmGSZBOBQkAkaz4PSU3fgkjAxlFF8mbz+j0S+fZKCxfUz55FijXpplvk/5AkIxBX\nFxouqB+IRHLX59GKIlGVJJsIFGLXIsVNx3VjTNLLaB4JXyJk1GcMA9TPcUUyZmW9JYhU8ubB\nJQxQP/sWyflVEpe3mkfMHPorndjNNbpBpCbYuUjOyxuYrPWKRFR6FfaGqeEYBqif3YtkVUl5\na15F9YhZ+fX1ddDotbhIU60kmwgU4gAiPbHl6fOJsj31e1FjpdeFshadIFJLHEUkvl/it0cu\nLzDWeIVIgOPYIp3c2+PWWNEjiNQQhxHJ1SXx27OlN0QCJscRyf45id+eI8HXPbODSC1wJJE4\nOezbc6V4ukcxXz7NYYD6ObpIJ9v2nCmeI1KwSvPtFJJNBAoBkSzbcyd5jkehKs03Jkk2ESgE\nRLpN1+T5SkoQcXHRGSK1BETirm8oJVL4VXrkO2GI1AIQSX3lKClA+PWuEKkxjiUSM2Wk/tpW\nUIKYy8YhUltAJO21raAIEWMNEKktDiaS4Y2RwJaCUoR/jwSRmgIi6Uv4gluAUbuGOJpI2tgC\nk75swW2YwgD1cziR1NFue/ZCJBDDAUUaHVmesdlbkUmSTQQKcUiRFqzJa3vXifjsXGMYoH4g\nEp+89veVgsoC6Z+UnSoj2USgEAcXyT5qZy9BytHvhNh58CDSUYBIPpHs9wPS3yuzTikJkY7B\n0UWyXdlgL0FKGh2SuEpDGKB+IJJXJOsHJeUHNJ0zHUOk3XN4kSxXf1vKaMXp9T4lRBrDAPUD\nkfj7kdgyd9cwXrEOCSK1AES6sXfI2rbnyPpSHRJEagGIFFXOlfYQ6chApKhyzryXFmneLagf\niBRTzpf62SKRcUCyW1A/ECmmnN+Ep0jpv0A23z+r7BbUD0SKKRdmQvpP+Q1rG7sF9QORYsoF\nmgCRjgdEiilXWCTeI4jUAhApqlxRjyBSw0CkqHJOD55Xscp3SBCpBSBSXLlEkQLssmkEkZoA\nIsWVc3o0mcRK4taoHzTnNYJITRAh0uWB/vxCFx5BJIdJfQmHSFaT1J9R53YL6idcpMv8H3l+\nUYqslM+biuS+95w3yT3lN0TaAxApoZxPJP0aIfePUJx9Jgk1NShJmkjTAtWjw4jUw3s0mKRd\nbXe9Ok2CSHsgU6TlI9I/HwjWq34UGegb6SKdT7adgdpJF+liLhP8gy9SsHA5ozea0C4AjxCJ\nvb1QqKlBSfJEUp8cTSQ697GCdi/F1W2Sdo86s1tQPyEiDedvmkjcM+k8zS24WTn1tiSIdABS\ne6QLswwiTeW0W2XdJumzppibA/WTKBIZBidneyvlaf0i3dJE4j9xQaQWSLiyYRqtu5BlAyvl\naeUiETuChht0kQyThJsclADX2gmXU/2IEmlaYOwW1A9EEi2nG2J2SYZHi0kQqWEgkmQ505D5\nuV+k+bWxW1A/EEmynEMkxyXgmkcQqUUgkmA5ThHOHE4ku0cQqQUgkmA5nyIQab9AJLlyNkcG\nSRxCuT2CSC0AkeTKWUXSPwQxxSBS40AkuXIZIrk8gkgtAJHkynlEChl34HcL6gciyZXLFsm2\nW1A/EEmwnNsjt0mu3YL6gUiC5SDScYFIkuXcHjlNcu0W1A9EkiznE8muknO3oH4gkmg5n0dW\nlZy7BfUDkYTLeTSymGSdZfW5W1A/EEm8nFujQST9SnCI1DoQqUg5h0dncpsfRNoNEKlMOYdI\n3FQo7s2B+oFIpcoFeRRkkmQTgUJApGLlAkTCqN1ugEgFy3k8Ch3/lmwiUAiIVLScw6PwL5Ik\nmwgUAiIVLhfUHUGk5oFIxcs5h+sg0k6ASCuUY0brjGsbXJsD9QORVisHkfYMRFqtnNMjl0mS\nTQQKAZHWKweRdgxEWrMcRNotEGndchBpp0CktctBpF0CkVYvh1G7PQKRNigHkfYHRNqi3Cnm\nUjuI1AIQaZtyER0SRGoBiLRVuWCPIFILQKTtyoVpBJGaACJtWS5EI4jUBBCp/nKSTQQKAZHq\nLyfZRKAQEKn+cpJNBAoBkeovJ9lEoBAQqf5ykk0ECgGR6i8n2USgEBCp/nKSTQQKAZHqLyfZ\nRKAQEKn+cpJNBAoBkeovJ9lEoBAQqf5ykk0ECgGR6i8n2USgEBCp/nKSTQQKAZHqLyfZRKAQ\nEKn+cpJNBAoBkeovJ9lEoBAQqf5ykk0ECgGR6i8n2USgEBCp/nKSTQQKAZHqLyfZRKAQEKn+\ncpJNBAoBkeovJ9lEoBAQqf5ykk0ECgGR6i8n2USgEBCp/nKSTQQKAZHqLyfZRKAQoiJZ+Gft\nG6x9e6B+IFID2wP1A5Ea2B6oH4jUwPZA/awhEgC7ByIBIABEAkAAiASAABAJAAEgEgAClBXp\n8oC+FN2gtvHNtya/PdAORUW6zP8NL/MzlWxQ2/jmW5PfHmiIFUW65CcWRAKVsp5IF4HEMtKz\nWpHu+nOwbyCSZcuZ27vrz8G+WU2ky72ASHkbLC0SPDoQa4kk85kBIoFKKSTSMPhLRRqQ26D6\nLG2bZBsFRIJHR2LN4W/pHil3c2VFgkeHomGRKhtMl64daIp1rmyg2Sq1wcxzRW1rolc2yNQO\ntASutQNAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgACNi9R1nfaaK/XC\nLe2mdcd3u66jW/v+oes+fB/ev3x+PPzq3iurAUBoOym+PbL6G13AJvkLu3QyYnz3hyrSt+Hl\nY+Ofu29fu899uW90NQAobSfFp+5j98lfyCKS8u637oW++7579Ebf+07o8ni7u0wd0t3W64Fj\n03ZSdN2vZ1p/7H70fcqHIck/X7r3X+Yyl8t3h0jzu1+6r+a7/f/jv5f5fYgETJpOim+P7uhT\nf8b17C4+PGzqk/zleVI2m/RiSf3xxG568tjOx+79j+ndj0OP9HHukZZ7IiASMGk6KXqJvj3P\n7Z4fZF6m7uPnQwF6L5Dr1G568nH4UPRzevup48tz01+/dV++LGZCJGDSdFI8U3o6RXt2Gf2L\nS/fpG1OOXXl58hxY+LJ84nqK9bF/9rkftbtcfo2jdxAJMLScFOPI2nM07Wv3/AzTJ/m3S9e9\n/0kLhoikPX/pe6Av8wDEo7ubRu8gEmBoOSk+jSL1vQgR6X7/8b67fCcFE0Qau6npBPF992v8\nrASRAEfLSXHpft37gYbnlAvv39Mk/6Jke4hIl8EcdYx7KtOPjU8jeBAJMDScFN/HDzSfuu/9\nYMO3/rxr+Iz0/f4jerDh03AuNw0pfOw7uC/dh+HVo0O6o0cCDhpOipduOH17dBfP4e8+25fh\nb/ppJkSkn5d+rffTgvFCh2E4/DkMPoze2bYGDk7DSTF/s3O5jF/IfhyS/OWija8FfUb6+bF7\nGDkv+PF4+XH8Wum5+WH0zrY1cHCOmxTJPkAkYHLcpIBIQJDjJkXiZdy4+htwHDcpIBIQBEkB\ngAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAgP8fDp5JN4zB2VMAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_ordination(phylo, ord, color = \"Phylum\", type=\"taxa\") +\n",
    "                geom_point(size = 5)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAA2FBMVEUAAAAAu0sAv3YAwJgA\nwLcCr/oCuOgCvE0CwHcCwZkZtvoZvuoZwl0Zw9YZxYMZxqIZxr4aGhozMzM9of8/ov9DvRlN\nTU1Qqv9oaGh8fHx/uBmMjIyPkf+Qkv+XqQCYqgKampqanP+hsRmnp6eysrKzoAC6qRm9vb2+\ngP++vr6/gf/EjP/Hx8fKlwDKmALPoRnQ0NDZ2dnecfnecvngmBnhf/rh4eHp6ensgjzsgz7u\njk/w8PDyZefyZufzdOn4dm34d275g3v+cNT/ZLP/ZbT/c7r/ep3///9Z804UAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2diZ8Ut/G3O3YObC5PDMMu/N4EWGJCjFmcABvYmMQH\n9P//H73Tt45Sq6SWekrT3+dj78z0UVNi9ay6a3rUVQ0AWEx17AQAOAUgEgAJgEgAJAAiAZAA\niARAAiASAAmASAAkACIBkIDlIv15KakCiUsoecuAXBKIlGr/hYFSxZEXCCIVAESSHwgiFQBE\nkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIV\nQBqRdtqSnfFobWDt3z2xNyJ2c0ZidNuZLKhAuw7WTsY77NwZDSGJfyUj1q5fB5EKIIlIO7o3\nMETaqf1W38qxizOSRyS+D0pCrj29wZwiTRL5RJq2gUgFAJEs8oo0PkCkkyKpSP1Ry657Ojx2\ni4YDGu2x+WmJNK3q+pu+pzvSmFC/ifVOSri5mJRIdtrazo6mK/9EeshaeVPjX8lMWG0ZkEsK\nkcbuUNfD39qhI42LduMq81H9u21EIfd0RVLOtcZuvHOEm41piGTmpATTdrabToxIqkg7bRcq\nlPkvBOSSXKTaJYy9vnaLVKsdiRfJKFpQ22m7O2O6ig07Kzcy4vTUIxK1ixEXIhVDApHGP9ws\nkfoDl2lTrbvZnZUdySnStJ1fJONYsyaCjLntlGWUFd5DO3sXM7nd8MZAOilE0rpUPd/91f5c\n6yLZUYIiuURStvOKtNMCKSLZaWvPMSJtnpVHpJ29aeSIZEVyiGT3S19MQiQi7TiR6JgQqXyW\nizR1KKNruIoNO73r6N1tR3Qk/dEVaUYk7qFdt61DpJ25YU1HnLZlfI4EkU6FlCIxy9/a8t3O\nFElZpXUub6QxjtYfxzhGOD2mui1VbLDT1nfmlr+nLQ17HaGG9wLSwbV28gNhRCoAiCQ/EEQq\nAIi0QqDdTjlKXBAHyAUiyQ8EkQoAIskPBJEKACLJDwSRCgAiyQ8EkQoAIskPBJEKACLJDwSR\nCgC3dSkg0OLfEcgORiT5gSBSAeQS6UX4/gsD+bptqkBHbBmQC0RKndDl5WWaQHZCQC4QKXFC\nl5ejSRBpQ0CktAldXk4mQaQNgWJD2kABIoUnBOQCkdIGgkgbBSIlDsQ/RwpPCMgFIqUO1HnU\n/IRIGwLFhiwJteMSig0bAiLlSOgSIm0NiJQjIYi0OSBSjoQg0uZAsSFLII5I4QkBuUCkPIFQ\ntdsYEEl+IIhUAFyR9geo5wK7m5SEINKWYIq0H3/oz2sUG/IHgkgFAJGyJQSRtkSsSBPiuhtE\nAusTJdJwjjQzNQdEgkibIkakfe0/tOODYgM7DpBLrnMkPick0jRdw8JAjoSAXCBSukDKV5GS\nZgSRCgAiJQukfjk2aUYQqQBQ/k6WUKhIKDacEqFXNuyV5x0QqQcibRl8jSJdQoHnSBDplIBI\nCRO6fPUKIm0UXP2dMBCKDdsFIqUKdHn5yjhJgkgbAiIlCnQw6NUriLRZIFKaQJetSK8g0lZB\nsSFNQpeXw5C0MNBcQkAuEClNQt3p0SuUv7cKREqUkPkhUnSgmYSAXCBSqoQaj/CB7GZBsSFh\nIHyOtF0gUrpA5sV2EGlDQKSlgabrgiDShoFICwM1nx71JkGkDYNiw7KEWo80kyIDcRICcoFI\nyxLSRELVbrtApGUJHUT64YcfXg13u4wPxEkIyAUiLUzo8odGpJr6RBYibQgUGxYGunzVDEiX\n9hfNUWzYFBBpYaBBIIi0bWJu61Jr839DJIgEYqbjqvtZi3s2LtJ4bhR8jhSeEJBLlEh7/4i0\nlWJD922+7imqdhsmRqQ949BuIyIp1zUsC8RKCMhlkUibv62L8inSskC8hIBcIqcsxojU0tS+\nD0AkEC6SUXfYdLGh/TS2+zw2Y0YQqQAiROoYV21ZpLodkSIP7cITAnKJK39jROrpTpHIS1Yh\n0qaASEsCXSrVb/uDJIi0IWJu61Kj2NDRzwo5vcDXKDYLrv5ekJDmDkTaNBBpQULNcV0zInUX\ngEOkLQOR4hNqjut+OLjUlcCDL1qFSKcEvkYRHajxpvk09oeJVyg2bBWIFB1ouAGFJlLAoV14\nQkAuECk60GV7gdCrVz+4TIJIGwIixQfqFNJMgkhbBcWG6IQutbEoXCQUG04JiBSdUPtdpNGg\n8HMkiHRKQKTohMgBKSYQOyEgF4gUm9ClUq571Z4q4XOkDVNeseHDhw9J4ixM6NJ7ioRiw5Yo\nTqQPHxwmrS6S4ZB9bAeRNkRRIn0YWRYnRULUgPSD/mVZiLQhShKpMei9FJFq0qMffsiQEUQq\ngIKKDa1B79+PIhk+rVxscIxI6pCEYsOGKE2kbkgaX/LjJBfpUjk1gkibpziRNI9Uk9YWyXFo\nB5G2SUEi6WPQsUVynSPhEqFtEnM3Cv3OFOtW7dTnYSKlTsjhEW7GvE0iZ1qtjz2vnXKytChO\ndEL9ydEr/UypmVPo0tofIp0+hYrUlx0Wx4lPaBiB+nHolWJS6owgUgFEzmt3NJG6Uej9e3M8\nWlukqbjQ2vNqGpxeQaQtskik9e9G0Z0XfXjfmRQSJ22xwazZTVXwV1PZDsWGDZFrptU8Ig0f\nJR08+ve/3x9PJFft+wftajuItCHKFOnDwSOpIgUFCksIyCXyHrLKqqOJdMRLhNwe/cAvf0Ok\nUyLyHrIKqxYb+nOkD0S1Yc1iw5xH+Bxpk0Te+lLhGFU79drVuDiLEnJcr9rVGiDSJom4G4WI\nG43ZX6aASOCIlPR9JA3rS0krijRzioQrGzZKSRetLoqTstgwe4rEFgnFhlOiCJFc852ExEko\nkvvI7hVE2ioliOSc7yQkTkKRmB5BpC1RgEjjFybmdVpNJPenscqNMDmBghMCcimg2DCI5BmY\nVis2uEVqv0SBqt0mKUKk/uPXeZNWE2mm+I3vI22WAkRqvjTx/r39ldjgOIkSmhcJ30faJgWI\n9OFDc4XqeykiuebhGkTC95E2SQnFhvfdtd4Lz5GSFRt8IrEDBScE5CJfpGY8+vcwJsXHWU0k\nlL83STkimd8/CoyTTqQZj/Qbu0CkDSFdpPcv/j1yGJNmPksSIJJxgySItCGEFxs+/FvlvTUH\nFzdOsoTmL1jNkxFEKgDZIukeNWOS26R1RJrxSJtlNWVGEKkAZIv03vLoyCLNTNag3xspZUYQ\nqQBEizR69F7GiDSrkTUgQaQtIbnY0B7YvegEUkrgkedIy4sNnUfOYoPpEYoNW0KoSNMx3Qtt\nSJr5TDazSKMvTpFCM4JIp0Suu1EsE0k5N+pE+vDe+1FSXpF+8IoUnBFEOiVSTKL/3//+93//\n+5++Q5RI/yboRRpGJFacljdv3sRlpASihHGINB/ob3/723fffaevhkinRAKR/vtfyiQ2U3ej\nPBoE6kckVpz255s3pknhCbkO4izMT5DMQH/7G2VScEJALqlEijeJIxI927crTvPjzZtok8JF\nesUSKdokiFQAi0Tq7kaRX6RmIPJO3HA8kRweQaQtUcKI1B3Q+SZAOZpILo8g0pbIdY4UU2wg\nT45ii22WRxGBSG9eEJ8Y+QKRHqHYcEoIr9p9iK9a56vaMT1C1W5L5LqH7EnPtLpyIIhUABAp\nW0IQaUtE3I3CvLJhKakCiUsoecuAXJZfawcAgEgApAAiAZAAiARAAiASAAmASAAkACIBkACI\nBEACEszZIO1jSzEJ4QPZDSF6Oq6jxJEXCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgi\nFQBEkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgiFUACkXYHGNu5tqG7\nGxly546ixtn1kFubi+xNxkA7ZstcoeyWzSXG+BcCclku0m78wdhubvmOWsiPoojkDzNH9EDC\nECk0l11MHuAIpDq083cRr0iKABBJ3QEiFUC6c6Td8LM/INrV/YGR43X/uNNFGhbu9EDDD3eU\nHSXkcBA1RVZijK+1N1ITUhqmvrXRSGcLZ0TaKc2iUxnizR7OAjGkF2nsd2O3dbxWH9tAxkJ9\nx50vimNEIt5OD2hlaPZ/dbWrke7c1H8iXaQpCyIV9d8BI1IBJKzajX2qdgtjrq/V7uYSqSZf\nmFEcxQazVxMBtUx2VrHBemsyVO3OzSw2EFk4UoFIxZBDJLr/KX1GO2DRRVI6787oyJ4onhFp\nOGQLEMk6tHM3UtvQzM11aFd7U1ETB6JJ+TnSTutrTpHU9TU1IinbjRv4o/hEqq1DrxiRHI3U\nEzVyWyoSRqQCSFm12yl/r5mPtdrdQkSyo/hF0nrrMpEsr505KoEg0gmT8nOkqY+Rh3bK32lr\n/RBD60BGAE+UGZGMtyN77/RIiWQWGsyoVpwlh3ZGCIhUAkmvbOi72lCorocOYRWH9eVDoNpY\nqJeC676HOaKo5W/tAgL77azer2UyBdopsScv7EZaifYrfeVvu21jqDE+yt+FkPRau6jfeGnX\n2vEbiWvtNgRECg0EkQBByvJ33CFIWSKFNNK8VjX2EA0iFQC+RiE/EEQqAIgkPxBEKgCIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgDc1qWAQIt/RyA7GJHkB4JIBZBLpBfh+y8M5Ou2qQIdsWVALhAp\nW0IQaUtApGwJQaQtAZGyJQSRtgSKDfIDQaQCgEjyA0GkAoBI8gNBpAKASPIDQaQCQLEhW0Io\nNmwJiJQtIYi0JSBStoQg0paASNkSgkhbAsUG+YEgUgFAJPmBIFIBQCT5gSBSAXBF2h+gngvs\nblISgkhbginSfvyhP68FnpKj2ADWByJlSwgibYlYkSbEdTeIBNYnSqThHGlmag6IBJE2RYxI\n+9p/aMcHxQZ2HCCXXOdIfCASOw6QC0SSHwgiFQBEkh8IIhUAyt/ZEkKxYUuEXtmwV553iOtu\nEAmsD75GkS0hiLQlIFK2hCDSlsDV3/IDQaQCgEjyA0GkAoBI8gNBpAKASPIDQaQCQLEhW0Io\nNmwJiJQtIYi0JSBStoRWEqnqePyufU6s5r4NWAJEypbQuiJV1TuIdERQbJAfyCdS+3BRnUOk\nIwKR5AdiidQ+Hv6/qPYX9XV11ixqHvrF0waPqkf11Vn16HpZUkAHIskPFCLSo+Yg7+Kg0+vD\nopfVM0ukZoOXZ81J1bKkgA5Ekh+II9L148aMqjq/rp9V+/pdc6B3GHx+tER6fNDrYNpLHPKl\nBcWGbAmtXWy4ap5f1Z0xj9raw762RGq3usa5U2ogUraEVhVpr5S/m5/vDmdCr7tByjhHUn+A\nZECkbAlFBrpz544rDolqxGRMfVZdtSdKEGkdIFK2hOIC3bljmRQl0uvqYj8I0y64gkg5QbFB\nVqA7N27cME2KEukwJLUFh+bFvnpZX59DpJxAJFmBbtxoTaLjkLhEel0d9OleXDRnUc8gUk5i\nbutSa/N/S+m3JyHSnRudSXQcEpdISgmvPhzlPcM5UlYipuOq+1mLe6T029MQqTPJESeIH7ur\nG8A6RIm0949IKDYEB7px44sbX7QkEem8vbgBrESMSHvGoR1ECg10o7foQNA5Ek3VlRrAWiwS\nCbd1SRdI8egLo9oQI9K+ehSxF4gmcspijEipAyUWCaxMuEhG3UHMuX3hxQbFI/PYDiIVQIRI\nHeMqKf22cJHufKGOSHQcIJe48jdGpNSB7txRTXLEAXKBSDICNR8gNWNRWwHHiFQeMbd1qVFs\nSB3ojnqKZF4jBJEKAFd/Z0soIJB+YGdetQqRCgAiZUuIH+ggjla0Q9WuPCBStoQWiKRXGyBS\nAeBrFAIC2SJpR3cQqQAgkoRA+jlSd3A3mQSRCgAiiQh058YNt0kQqQAgkoxA5oikHtxBpAJA\nsSFbQiHlb1Mj7cOkbCJV5KvKtQE70rr437taoSUQKVtCAVU726MvlO+b80X6+eef2ds2v3vy\nt88QKbs3t2/fZm/LSiZ7SyBStoTYgajx6Avl++ZskX7+OcgkuSLdvh1gEkQy9odI2hkSEcfD\nzz9TJlXNt2XJ7QeRqm6DbkqUanis1H0r7VH92W6j7pOA27cpk1wNUfI28q2mZka1JKRFKDYc\nP5BZsPvCuLRhoUiDJCaV8n9/GjHOKDksqsZV1qNrmwQ4RHI0RM1bz0UVKaIlQS2CSEcPZA9I\nkVd/u0akmv41ayLVzm5mra+N7mdskwDXiES/gSffKrolEKmsQPaAFPs1CvIcaab/1Wafcouk\nHiuNR1NVRWyTAvIcKUikKTdTJH5LhuUsINKxA1Eluy+0OSKXVe2c/U/rP/W8SOpBj7JIi68u\nXApVawgRafq/otdwWhLUmFwiodjADeQQ6Uaqa+1SjEiVvanV/YIOhGIIEElRoprZop5vCUTK\nGih1y4hSQy/T/O5cHOfoU+9R+k3Vbz8uUrphZXQxqttlnQeZU2ywclnSkqA/DRApW0LcEclp\nUporGxxVY3UcYpW/teWVvpu2by5Y5W8zl0mOiJZIKH9DpMUj0lhzSHBodwr4GnLchnLfXZ2B\nS78zhZRz+0KLDdYXKOyCA0RqmWlI9vMzP8x3tyY+wbx2aQK5PUosUmWwKOZRmGvI8VsEkY4b\niDEgLc4DrECESLX+XEq/LVQkv0cQqQQWiYS7USwP5LPIuTsQRaRImCAyUSBHzQ4ilQZEypYQ\nK5DjwA7z2pVGnEjqQR5EWhDI9SESHQfIJUok1SMx5/ZFFhs4AxJEKoEYkTSPxPTbEkVy1ezu\n3In5hiw4IqFXNuyHO42Na6T021MTCTOtFkWua+0i9t+gSK5TpGYuLsy0WhS4aDVbQoxAruL3\njRs3IFJZQKRsCfkDOY7s7tzoTJrfHYgCImVLKE6kdiy6kfAbsmAVIFK2hPyBHId1nUlEHCAX\nFBuOGMhdsYua1w4cEYh0vEB0qeFwTLfWPWTdMznML+JGW4e5913SnnRZ8JDSb8sTyVGyc8fx\n8uHDh4D8jCkWHF3B1UOyenPz5k32toEJQqSV4qwWyPUhkj4cheTx4UOQSXJFunkzwKTTFgnF\nBn8gp0iGSVyRPnygTOJOol/RE9Fbr1eYSP/mTcqkuVmElHYM2w3tMdvhaE/Xhqj58/UsovF3\nt6dPn3L2L0mkW7duLQ10xyXSDdOkhSKNM02ZK5T/lSnerKnkzdf65uQ2C3GI5GhIpT4ayVDt\ncLXH/LcIa8gKIj19OmtSiSLdusUxSYhI4w9ihdo3Z4RRtzE2J7dZiGtEooNbIimPlXt1TWxu\nLeSTX6SnT+dNKlCkW7dYJs0H+sIlknVst+wcab7/2Wa4RVpvIn3yHMkrkpHM+Iei0na32qNP\ngR4xf76WRTy+X/NCkcLzyF9sSCOSk9hzJLpq5+x/xCT6syIRf+HNv/bawiVQtQbWiFTrifcO\nkaMnNWKZC/lApIhAf/rTn5aK5NbILoAva1CqEck8BKJECj8iCiBeJHZ7iOO8oOwW4f01LztH\nCs8ju0i3brUmLQk051F8+ZskZBJ9sqMpy486kT672OBoD9E+sz3WwoDsQptj4f81L6raheeR\nW6RmMDqYtCTQnEfJRWJPom9PRF+p+x97In1n+Xs8RtWTcZa/jVzV3aLmz6+HiMuYrxHMS6Tt\nX0qxgXmGNBOou+rbUWy4YXqU4tDuFFjYkMz/DplF8hzWaftvRqT+2xPOD2SdcaKASEl2zx9e\n+zW34vz1wIun/cvD83mTVhbp/v37ywK9YH6K5Ag0CeMakawhKYlIpz2JPn/3XHDD827r0onz\nlwMv2oGok+qvs5HXFen+fa9JrM+RYjP6wiuSfWy39KQPrABTpNm7UfylpTdo4K+NSZ1H80OS\n3t0ePnwYlL8rjoP79/0mKYF+97vf/elPv2u0YbrjCuQqLLCO7SBSASQQ6S8krUh15xFfpIcP\no03KINLvethnRa5AQR5Z36OASAWQWaT2FIkv0sOH8SZlFOl33QewoSbFiZS6agdWYZFI3W1d\nZjzilO1WFSnsHGllkW7cuXHH+g6Fr0FABrlGpBeDPUHlb0KkY1btSJFivo9EemMUG9oJuCiP\nIFIJJBfpr39pj+Uiv/5mD0jH/ByJPEdKKRJhzVwcIJfUVbv2lOhp/PdIrQO7o34gS1XtolpG\ni8TzCCKVQAqRKPBV8wwtA3JJINJSUgUSl1DylgG5hF7ZsFeeAwB6CrzmCgB5QCQAEgCRAEgA\nRAIgARBpw3B++StPXBDB9L2kY3ZmiHRKvHnzJmBr7/QKwZ2jIp9G8PXXX4e+6fzcP6HpLGk6\nKJ03b4JMkivS118HmHQqIon72FJMQmt/IPvmDWWSdxL9fgb8YSKedpE2DT21rqbmolfm39Hm\n9Qmdk+frrymTPJPojzNsUekZ0wxN7anGfd3bs9JfYzou5v6lTMe1eqCFIrnOHobllfFDmdCq\nfyDXUdva+2rbcHGI5GiIJtJsetq6Xql+XzPV4PQhkvxAS0ekmv41V7XeX4xNFZHUdWTvIpZb\nPTEA14hEN8QuNpjp1EQ65h8L402C04dI8gOxdyfPkZz9b/hJiTTNCu4XSZlBvBq69TBCjZNJ\ncpvQQZ4jzTfElY6yiiVSbPoQSX4g/u5UrcH7h5wQSeldXpEqYrmyanw3diMaqFoDTyRfOlaD\nKy3V6PQhkvxAy3aPGJGov9YukcjH2uqJCXoaSyRvOnEi+dOHSPIDLRTJ6hPd4vGRFol7aKdt\na0toBMjQEFskamp8lkhL0odI8gMtHZHI4u2cSON8+sa0+sO6ith2bo79NLcf895DVkvdTJea\n8l9VxEgV5W85CYkR6UTI1ZA0cSGS/EAQqQUiMfeHSL44UfS/4di55+WQpyGp/iUgkvxAmLOh\nAFKItOtwbzKzKqi7pYiz84ThBSJC2IumQJ539ACRCiCJSL5NXBvsuv3HQDExlDxYcXzp+AM5\ndo8UieEYRCoAiGQth0ggnKQi7YYfw5Fe/7ir9df9Y/9T2Vvb3N52R6/rFo7dTd9SfxtqjZHO\ndIz65ymgntZObeROz1qNOgYiNjff1Gz4kK+aEJBLFpGsx51jefOg/N3eqZsT+zjX7YY37xKq\nd/abqiLNpWOPSFQrqMZZUbURae7fQl+3M/PFiFQA6YoNtdEzzdfKQnX9zjgA0jY39jHXkfHb\nfud4050/nRmRiExmG2kf2pk5T29KN26nJwTkkuvQTnutdBDtaE7ZtHaLNO0TKZIZYD4d69Bu\n+DthjiG+Rlots6KMb0o1HCIVRR6R6toeoXa12jnG7b0jkrJPnEjT/2YMKh3HiGS8K6uResuM\nN/eKNOULkQogl0hkRyc7kUck+w90oEh2x5xNJ0QkTyPpcyT6TSFS4SQXyTp82dX6abopB0Ok\n4EM760303ebSCTtHMqLpUS2RyH8b4h0gUnmk/RzJqAxTJV91vV7+dh3a9dXsoahtrFM7opaE\nGUDtr3Pp7NRAenG6391V/jbezy5/m2mpb6q3Q2kRyt9FcKLX2i3pe4EJud9qacuGyBiRCgAi\nzQfyA5FATYj0/FFV1efv+BGWHngkF2n+AtqAQMcVyb7CAgjGEOn6rP2KR1X9yI4gckQ6qUB5\nRIr4Ok9lPMogoCHsxMNbaOzxuLpovur0sjpnRxDX3aQkdASRLi8v2dtW2gOxxrsra9s4Hjx4\nwN7W0ZD56R14ywMwQnRTPgR9b1Bcd5OS0PoiXV4GmCRZpAcPAkyCSMb+EMkXx8PlJWWSf+75\nuQnkq9qYfkefLCh8snkODx5QJnEm0TdzMucGImb+J1us/qvwoA/tLqrH7AjiupuUhKSINM5A\nZSwffw6TUqmP43Njg6qPSG47hV2GQ6TZhlDJ2i2r7Ja6WhzYGrPYsO/O3PZX7AjiupuUhKSI\nNP4wluvn6NW0ES1H5e+CzDy9uEYkX0PMZMls1WbOt5h+OwfWls/Oqurs4podQN5dhMQklLxl\nPshzJGf/U1dPk4DX09GeNTG49rd9Wj915FQqkedInobUdrJWK5QNOC0OObZb3nT61/wifP+F\ngXx//1MFOmLLvFC1BoZI6sGMskjfmxiRjG3rdCpRtYYYkYwV4wacFhtN8wCRsiV0BJEo/CLN\nyREoUsLjOzrhNCJxWux6u7nsFB51+58tPUeCSGJEcvxl1UXyFxCqgG2zwJpEfz4ztZDga8Ww\nDTc7/eXFUBV8zI4grrtBJA1n1XgqNuglbXvCeXf5O8Nc+eENMZ7NZKaWv2dbrLaUm53Gvrs2\n6B0+RxIUKMGh3SkguyFGdoNAEElQIIjUIrshRnaPqsfXdX19gWvtBAVKIlJlsCylYyC7IUYe\nV8MHsvzvUYjrblISEiISWAVT6OuL9gNZftFO3ik5ig1gfZaPjOK6G0QC6wORsiUEkbaEKdLF\nPvQcTlx3g0hgfewPZNOIxAfFBnYcIBfrA9nnoRHEdTcpCUGkLeH4QDYAcd1NSkIQaUtYH8gG\nfBOpQ1x3k5IQRNoS1gey5/RHSPsD1HOBp+QoNoD1sQ7t6GLDfvyhP68FdjeIBNYHImVLCCJt\nCWZxwRJpQlx3g0hgfaJEGs6RwqbmcIBiAzsOkIslEj2JvibSvvYf2vGBSOw4qRm/Pzq8dm9I\nrJPyBQb/N3PJlVVACxgbGpu4JtEPPkfiA5HYcbx89913/LCTRD6RHJMlZOTJkyf8jb1zRcy1\nK2S5N4kJ1yT6EOmIgdi7f/ddiEnV+CBOpCdPAkyqtIeZLRYvZ2Qxvqym/1VQtQuPs3qx4bvv\nKJP8c4aMm6jTgZjTaE/rqmEfbv7BPHlCmcRpiDELCzHnydi4yl6+ZCpwiJQtISkiOcaTyt5k\nsKRS96rGEYl6mQWHSK6GjD1cTdA1C5f2mmiYNTuXsY0L+tDOnkR/uJphrzzvENfdIJKGqwdU\n9iZEn6JE6kej9Uck95sqowVxqFoZL+xG2vu5tnFhrEo2iT5EOsLnSOQ5UkKRxk/qfX+el0Ke\nI3neVD02UxdpeyrrK8fyftHQWHOb2bdXCZ9En7/p/P4oNvjieKFqDYlHpNmYyaBqDQyRjEQt\nkRyHcg18ACAAACAASURBVNR+rn3n3n4Z4rqblISEfI7k7H/V+BAqUu5DOxrPXwQz+dqWgfVY\n0yL5/nZAJPmBFork6vTG50hMkagBah3cxYa6VgYNjyja+sqxvHbv68xOyyhm3j1x3U1KQlJE\nclSN67o2T3mqaVmlbjB10nXK345snQ0Z+6tep9cbU03rp/ZO22mNj5gKPJdIKDYcodhAsnZ/\nz4bshuQ6tINIECkxshsCkbIlJEukymBRzKMguyFmHhfB+YnrbhAJrI8hDOa1ExgIIhWAIcy+\nendeXV2fm1+jmEFcd5OSEETaEoZIh5HoWfW6vsb9kQQFgkgFYIv0uplsFYd2ggJBpAIwhHlU\nvbyqzuofUWxYnhCKDVvCEKYx6LypNTxmRxDX3SASWB9z5Hl91nwpqbrgRxDX3SASWB9DJP6t\nY0fEdTeIBNbHLDacvQ6NIO6UXEpCKDZsCUOks6raPwu7IYW47iYlIYi0JcxzpKvm3peP7I9j\n9Xkaau+cDXwgEjsOkAtR5v7xoqrOXurLjJmD/JOf8IFI7DhALuTnRVfWtXa6SHv/iIRiA4oN\nm4IakR4fRqTn+jJNpD3j0A4iQaRNQZ4jPbbOkWiRZu5GAZEKEIl5lT/7KpdjfTfIbIcrj5z5\n2VW7s+dE1c6caRUj0oqB+CI9ffqUva0yaYhvw8DlCfj+++/5G3PbkbUh5udIj+jPkRSRjLqD\nvFNyKQmtX2x4+jTEpEp78G/IXr6c778PMIndjjVFcn2EpIrUMa4S192kJLS6SE+fUib5554f\npgWam3Nefb1krnkW339PmcRpyDjzj3oTgKCGxDbA2sd/ozHjqbjuJiUhKSJNs2vpy41nFTnd\nG/laeXRtswiHSK6GjD1fvRmAllxIQyIbYI5IjBuNGU/FdTcpCUkRafxBLJ+eVtNzqp9Z6+uZ\n/pdJpJnQlSlOVddGcmYEs4HGslCMXVw3GtPuRlGj2LBqoGXnSCEiKTNAkiKpM0TW45FcyFzz\nPMhzJE8X1xP2iDQdzSlTXmrLQjF2cd0faQZx3W27IpFVO4ZIymHd7IikrlcWae/iOP4KhKo1\nJBSJaIi5LBSIlC0hIZ8jOftfNT0os+LPiET1S7Mvxh4ZMfD8RQgQydmQdCI5bzTmRlx3g0ga\njEn0FZHIQzvlj/XSueYzNESZRH9K1BaJSNJsiH6MGpid/jLZjcb4oNjAjhMFYxL9oRtU+hzz\nVNVYWx4x13yWhoyVa7X8ra1wJGk0RF0Wnp0BbjQmLlCCQ7skGx0Zf47HbMXy9xbX3aQkBJHS\nUpRI5/xzowFx3U1KQrJEqgy0TUrwiNEQQSLtw3MRd0qOYgNYH0Ocd+cX/DJDh7juBpHA+hgi\n0UP/LOK6G0QC6wORsiUEkbYEqnbyA0GkAoBI8gNBpAIwRbq+OKuq82cBEcR1NykJQaQtYYh0\nhUuE5AWCSAVgfiBbnR8UujrHRavLE0KxYUtYVbv24RpVu+UJQaQtYQjzqOouV118D1mIBJE2\nhTnyPG7mPbk6P196jgSRINKmcH4ga3woq87Apd+ZQtwpuZSEUGzYEkyRrIlPMK/deoEgUgEw\niwoQ6YiBIFIBRIhU68/FdTcpCQkXibqm0jWTqfDvK4VcG5qrKYtEwt0oVgnEF+nhw4fsbbXZ\nGuzn1Lbs5Yt5+/Ytf+MU85UsbkmkSJggcsVAbJEePgwwqTIea0EivX0bYBLxFyFox8i9Z4LN\nAJHC46wu0sOHlEm+ueenmXPUn3U/K/4wr5A+HY9zh6VT0Xe8fUuZ5J1Evxo2I24CoE2RZGev\ntSQq+TiR1IM8cd0NImn4JtFX5t9Sp6zq56lSX+gb0jsYG8ThEMnVkKHbjyKZ2Q479vPWkdkv\nTT5KJNUjeafkUhJavdjgGpFquv9Nj/O9yexalfZ0ZodoXCMS3ZB28SQLrbv6wpX9ouTNnS7o\nb8iat75UENfdpCS0ftWOPEfiiNT/xofDnorofcOPaWVN7TD0nWUTE5HnSJ6BYrJhGokcTVFG\nMKrpUckbu4wemaGUu1HgRmMrB1pWteOOSLXyZ7kmet+41rtD/3qJSlStwS9STcxhXlNNqdUB\nTNl7ChacvDnyVO/Oq6vrc/P+SDOI625SEhLyOVJKkagu6hJp6fEdnbC7IUEi6Ydztf5cjRqW\nnfKyqp9Vr+trXP29PKEjfI5E4Sk2zJ4oTAdJygYVZwflHVLhn0SfEkkbTytr+XxLQrKzknpd\nPQ8a2sR1N4ik4awaK4fwY53YfN7/YE+jn6b8HdYQ9c20rK3Mpr8FdvaJy9+PqpdX1Vn9I0Ra\nnpAYkU4ETkM822T8tzBCNwadN0I+ZkcQ190gkgZEmtasJ1L9+qy521h1wY8g7pRcSkKSig3j\nkZyrKlsA/obMtipzo5fHFtfdpCQkRCSwChBJfiCIVACGSM2MDQ3Xj9gRxHU3KQlBpC1hlb/b\ns6NnqNotT0hIsQGsgiHMu/Nq//Llvjp7x44grrtBJLA+1shzsKg6ex0QQVx3W0ekm3/8480k\ngQISAnKxRHoNkTgJHTzymgSRNoR5aHeW6NBO5e7du5z9Syo2tB75TEKxYUNYxYb2ji7Liw0K\nd+/OmgSR2AkBuZjX2nVTf6csf9+9q5pkOwWR2AkBueT/QFYTiRidihQpxTlSeEJALqZIjq+a\nz+A4kz740jmjiHT3q69sk8osNqBqBzQMYZxfNXdD/prvHkT66q5iUrvwINJXpyLSioEgUgEY\nwiz9qvndr748cPfLL180j19+1Upz0Kdd14r0VdEi3bx5EyIBAu5XzXm3dek8auhEOpg0jUh3\n7/ZDkh65JJFuQiRAw/yq+ezdKL6c4avpHOluZ9JM1e73v//9N998E9kSq9vevn07QaCDOv2P\nzqP+aWCgr1uGh9iEkjIdw7sndHC+Npcf8etNzJOR3Bkyv2o+J9KcR1/eVYoN9AdKU3f7/e+X\nmGSKdPt2pElaoJsj9QKRDvb84Q+H/7uHUJP4It2/f5+9bUU8CyZX9/z48WP+NJImz/yqeRKR\n6EscDJGiTTJEun071iQ1UCvOH//Y+7NApD9MBJvEFun+/QCTJIv08WOYSfJEcn3VnBapu63L\nvEcBVzaIF6kO8mh1ke7fp0zyzj1vzFg1Tb01zKxjrjJmzjfWJ+DjR8ok9yxC6rfQ1Q3VjM1Z\nhaoEE+cTKfgIG5G++vLLF1991XvEv9aOFCm2RmCJFBXIECm2akeKlLzY4BBpmpFKX64+q+xH\nfRZ9ZZXSF6n1CXCI5GjIuJRIin6tPJrLomHOHcEXqS/LxXQ3ckCKLraZA1JcIO0cKSyO7xxp\nLZHGH8Zytdig9afa6FqVuYruk473icA1IjnfwBBp7tHYzlwXTQKRtKrd3b68HVUkpg7s4qvW\nxoFdZCC1ahcWx1e1S1/+Js+RnCKpz5RDO2sRW6TEx3ZkwrMiqVXIinhtBKqUfRbO+p9GJIpT\n/z7SmoGWVe3CRLIPhNgiuY+8wqFqDbwRyUzO81qJl+4cKVKkpaQKJC6h5C2LIlQkTZwAkWb6\neRpyi7Qse10k9wSCym1djCsbgGzYxYbKJYb+Wl9eaevzTsHoHvIUkYhMyeFTFSnFnwGuSKBU\nPJPoT+cK4zlDTYpETpZvlL8zj0js8ndtZ6y8HufTz1X+hj2nyMn8UmU3BCKdOifzS5XdEIh0\n6iiHPWUfustuCEQCIAFwB4AEQCQAErBcJHEfW4pJSMYHsmAVEoiUav+ipuNaMxBEKgCIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgCIJD8QRCoAiCQ/EEQqAIgkPxBEKgCIJD8QRCoAiCQ/EEQqAIgk\nPxBEKgCIJD8QRCqA5SLtDrC2cyz3dTdyv529XItjJuV6c2q5EojbNjqUldHOH282oaREfJ9H\n5BXO0xeTjppemhHJ/PVT3cHbl0NEIpar3XY3t6Mv+BSIHYaOav2JiAjV7MUX6datW+xtI37z\nvl3S9eRffvklZHN9FiHu9kk5SZF283t6gv/ZWBne/Y8l0q1bASZJFumXX8JMOiWRdnVz1NId\nu6g/x8dmA/X1uNUQaEeut/Zr32hnL7dFUnY2EvQlNeysPdnRqbTL+kNNo/nqP5ES0NOw6bW6\nEYNbtyiTWJPo91MFDVtOs+uQU+ZbU+9UyoQ8Cb7+/csvlEneWYQck+cPWbkSNSZQimxAOpGU\n331tPlc3sJabgXz77WbidXEmG5SNrARdQaYRaQgziuRIpfPJar5jRPI2zMyROyI5RHJMB0eI\nVCldUllGzWLnfKz02FE4RHI0ZFxKT55fUWtq4znRmECSFRuGX7tbpHED5bWySBOpNh7N/Wbi\n9d12Z4pjJegKbtYI6rE97ibtrKgMkeYe1e0WijT+MJZr89ppXaiadtX2Nl+QQjneLgTXiOSM\nXGkb2ErMGe9qVCBpRqSaEqmvURG9blpeT4+Hc3tyObnfTDztHIcv0nRUZgaa/jBMY4eeitLm\nMSoRaBDJ/Ieh/qHUwMvOkZwiWVvoIumSGaGmgyN7lvpUx3bchoxLp5HIzJ0nkt6oQDKKVOsr\nxg3UXqls51pO7jcTL04kJYg5kHSrdnN7TwvVAWxuRJqJFi8SWbULFEk5rHOPSOpKM4D7ACwA\nqtYQNiJpO7BEMhoVyPoikf1lCDQjEuuxi7Mb9+SKpD5SVTu2SGrz1xeJIk4k14EPeShH9c/0\nZBbJ3Dsmu0XMiqT2UeWPPnUk037+4xFl54vXxdlNA820kd3rHcGVYoOyC9kk9W3MaMvOkdSc\nForkGCJ0kcxCg7aM7IeOPjisS0/0JPp+kSqiUaHZBe9hooo0Vh48lea+k0z1AGK5VcVQyszd\nox6PvLJBK3/X/uDGqY1S/quNrafUrfL32Hzjn2gc4uz3pl6Pgcc4Ufgn0R8nlR92qM1lxGz0\nw2Olrh8KzZlGJG/5e0pPHxytNY7yt9ao0OyWIu6KNDVOTB+MCUSulnGtXfBvOIsFCciZ1/LY\nEGlpoJ1zNURKSqa8Ep3UnaBIaqdOJNLs0ZV6NOjIiH91wmycKIYDNubc83IngA9sCD9uiiCn\nKJKUhISMSGAVIJL8QBCpACCS/EAQqQAgkvxAEKkAIJL8QBCpACCS/EAQqQASiCTtLkJiEkre\nMiCXXCPSi/D9Fwby/f1PFeiILQNygUjZEoJIWwIiZUsIIm0JiJQtIYi0JVC1kx8IIhUARJIf\nCCIVAESSHwgiFQBEkh8oj0j6bFzW2izvmYPKeIwOsCwwig3ZEjpCseHOnTvsbUV/4e/Tp0/c\nTReL5AucY2sKcd1tuyLduRNgkmSRPn0KNil9dhCJXn/6It25Q5nknfu76raptVmy7TlErAmz\n84n16RNl0nxDtIT71liTnhiTmBNNJWY6502IApGyJSRFpFEGY7nyhJwle+iF6qO5LA8OkRwN\nmWYBG5KrtK2ppriaaofhNhfFBvmBlo5INflrnibjUrdRulxlBLB6ZjZcI1JNv7Elkr61oylz\nTbXtc7y1kd0ixHU3KQmtX7Ujz5GcIilP+CJNU+Fxk4qBPEfyizQ/57f5Okgk77EdRJIfaFnV\nLq1Iyv45VaJqDe7jq0pfl0Eko+1kDksR192kJCTkc6RcIuU+vrM4okjut9azY7A/QD0XeEq+\n2WIDDavYMC4ges9wJFfVVE9cj+C5v/XU7aO16QW9vNLWpzm0248/9Oe1wO4GkTR45e/a7l3m\n5Njrlb9pvHN/23N+Oycpr2uyqZUeRit/pxmRIFJ4HDEinQiyGxIr0oS47gaRNGT3vwBkNyRK\npOEcKcnUHCg2sONEoRz2JJ0ye3VkNyRGpH3tP7TjA5HYcYBccp0j8YFI7DhALhBJfiCIVACo\n2mVLSEixAawCRMqWEETaEqFXNuyV5x3iuhtEAuuzvHoorrtBJLA+uUSK2B/FBl8cIBeIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgAUG7IlhGLDloBI2RKCSFsCImVLCCJtCYiULSGItCVQbJAfKI9I\n3q/zsLvGcb8SVOkPxsta+dpS1m8vQST5gfi73717l72t9zfv2mANbz5//szddJj4ZJhvQX+p\nZJt3whaIJD8Qe/e7dwNMkizS58+hJk0zclEv1e0yAZHkB+LufvcuZRJnFiFr1iB1Fh1juTaZ\n/jhVfdLDps+fKZNmG8IQado4Byg2ZEto9WKDQ6Rpnil9ufakIh4rx/LavU0aHCLNNET5n3hp\nbJwFiJQtISkijT+M5cok+lqXM8WpifWubdLgGpHo9/CIpBRVSiw2QKQjlL/Jc6S5/qdvMJ6o\n14Ykytz046bWfPXJj+3IhB3HdsTgqY6dRpAcQKRsCR3hcySq1sAXST16UiUxDpLU7mlukwqq\n1jAjUqU+6i9LFylifxQbfHGiCBHJeU7kEyntORLNUpHy5giR5AdaKJJjsNBEImeaVw+Q7OMm\n+1gqt0jOUc84SbOGS/JlYriB9Xkaau+cDXwgEjtOFN7yt3umeX0S/XG5Vv6ux5Om/COS6zRs\nViRZVzYYMwf5Jz/hA5HYcaLI3L3XQ3ZDokTa+0ckFBuOUWygkN3/ApDdkBiR9oxDO4gkTCSh\nc88HILshi0SauRsFRJIiEliFCJH0m1HI624QCaxPuEhG3UHeKbmUhIQUG8AqRIjUMa4S192k\nJASRtkRc+Rsj0pqBIFIBQCT5gSBSAYRe2WDfkFncKTmKDWB9Vr36+8GDB/ZziMSOA+SypkgP\nHkwmTc8hEjsOkMuKIj14MNmjPIdI7DhALit+jSJOpPA8pNQIUGzYEhBJfiCIVABrfrEv6hwp\nPA8p/R8ibYlVvyEbU7ULz0NK/4dIW2LV8vf8/ig2+OIAuUCkbAmJFyny6zxBu0j5ulB2IFK2\nhI4g0jfffMPedpxrJ4Tg7lKRT08QiJQtofVF+uabAJOMGUPCdorZASLNI+6UXEpCqxcbvvmG\nMsk/i5A5bxDxQp06v6LX1dSk+8rsQ9rk+3ln9DkG636OpDzY+0MkXxwPDpF889qZM9lV1It6\nenSuo7b1zId3OqwnUv/Jkfphkr4/RPLF8eAakWry16wONP3rSt2+snZWRKI2pLYlJJyWnRSr\nidRdynDv3j3TJIjEjuODPEeaFanuxxJrSnxLpGkLv0iGnkp0ZbJGbqMKYbViw+BRZxK1P4oN\nvjheqFoDRyRrU0skxSCvSMQhnrpqeHlaKq0q0r17g0nU/hDJFyeKJCKZ50iudc7H2hLpxI7v\nVhOpbkXqD+7I/SGSL04Uzrnnq/Gn/xxpOBrjilQZj+Q5EkTSYPeSbkRqbKL3h0i+OFHMzD0/\n1qDNKfGJQ7u+7j2Uv411FbHt3OT7KH/bBPyaO5Nc+6PY4IsTxWn1V7Fw/5nVqez0W7zwf819\n1c5YCpHYcaKASKvA/Ge2ZhCKmSBS/WbfBERix4mi/w0LnXv+ZFhFpOmahmZIMlZCJHYcIJcI\nkWr9uf9MehyHiJodig0BcYBcFonEu61L91Hst83Jkf1xLEQKiAPkEilSyEyrnUffNmUG6iwJ\nIrHjALmsItJBo0ake8SVdhApIA6QS5xI6kGe/9d8717n0bftp7GB50hsxNUIUGzYElEiqR75\nf83DiHT474F1XQNECogD5BIjkuYRR6TuHOlb4riuhkgBcYBcQq9s2A+37BvXsERqqnb3yM9j\nIRI/DpBLzotWD8dzrTjtGVJNfDlW3x/FBl8cIJeMIjUnRt+2FzO0j7U9XYO+P0TyxQFyySfS\ntx0PhkfCIX1/iOSLA+QCkbIlBJG2RLbvI31rYJW9rf1RbPDFAXJZSyT78yNrf4jkiwPkkkuk\nB9aIZH1/wtwfIvniALlkE+meLRI9JkEkdhwgl2zFBnNEai8Qmt0fxQZfHCAXiJQtIYi0JTKJ\n9IAQyVEDh0jsOEAuq4pkf8+8hkgBcYBccolEDkjtNynMC4VQbGDHAXLJJBLp0TAo4W4UkXGA\nXPKI5PSo/3qfalJZIr19+zZNoPrjx4/tw08/feyfeuMAuaws0r1hUCL2L0Gkt28DTJrN6GOn\nz8Gjn/7z07xJEKkAcojU2GIXG+5135LtPprli/SifvLkSVAeGYsNjUYv/vWv5YEagV7852DQ\nfzp+mjMJIhVABpHaaxpskaY7jenXOPhEevKEZ9JKIv3rIBJzTJrL6DAOvfiPwk8QqWwSizRq\nQ30ge69xzJq1mCUSw6Q1RPrngUakwaT54zwy0MePP/XuaCL95ydGHCCXtHej+HZWpAfdLEKB\n89oJEulfnUijPp4zJirQ5BFEOilSTKLvrtHpx3b37lHzcSnd7f96/t+Tw49enicRIv3jH//4\n/vvvm+f9QxBKoNaTt//6Z3cw13r0z3+OIr19O2+SEug/XmaO7SBSASQQiafRvfGW5kboqbv9\nn45qEiPFKc7Bo7//vVXo++8jTJoCdaL8q5WnVkXq1vNF4ngEkYpmLZHuPQgWSTGJk6Iq0t//\n3prUw2siEWjQqDdJedqSUqS5AjhEKoBFInV3o+BY1E8TOT+vnUMkJvlF6kxSxGGfIy3yCCKV\nQK4RqS82tIW6e8Ntxsj5uDwiRdQIaJEiApkiNSa9VeNwq3akPC8+fmR5BJFKIJ9Ijm+WW3jO\nkaJEos6RIkVSzpEC47hF6k6IcPX3KZGraveC65GvahdTtSardjGB9KpdYBy6avfTTz/1hQWI\ndErkuofsEb+1g+8jgfVJINJSUgUSl1DylgG5RNyNwriyYWs4unV4b08WCAhg+bV2WwMiAQKI\nFApEAgQQKRSIBAggEgAJgEgAJAAiAZAAiARAAiASAAlIMGeDtM//kyVEsic/jt63K4L+3ZIF\nAhLIdse+8P3FzWtHsVd+aov31OI1AgERQCR3IAqIBEggkjsQhav/71OJFBwIiAAiuQOR0Kc2\nzfLA7p8sEJAARHIHAoANRHIHAoANRHIHAoANRHIHAoANRHIHAoANRHIHAoDNcpF2A/Uuav+F\nAoxvOhtnpz8YL8c2tOvimgG2TZoRqet7/B6obrnKiDQk2D8aL5V8dhiRQAwbEal7x93wQL4c\ntoNIIJy0IvXHRcNRUt0e77UvtDXqz6nfmnuN3XxYo24xhhzXK3GILLki1RAJxJBUpL5jj91z\nV2s/aq3jWp34z9Zetb2XtcW4XBmRCJN2+v/ES61BAISR/NCO6Pj0GqdI9F5EFE2kepFIU7GB\nHtAAmCeLSH2nDBRpfi8iSohIyrvu7JcYkcBCso1ItVOJuRHJvRcRJVCknfqov4RIYCEQSRdp\nB5FADNLPkXZEPFIkT7HB0JGyfXgJkUA4OUSaytTWD/XyAWf5ewrY18Ct8netW8Uof3tEwpUN\nYBm41s4dCAA2xxfJPEdanAdEAutzfJGyjEg7g6hAALA5UZGSBAKADURyBwKADURyBwKADURy\nBwKADURyBwKADURyBwKADW7r4g4EABuMSO5AALDJJdKL8P0XBvKJFB4IADYQyR0IADYQyR0I\nADYQyR0IADYoNrgDAcAGIrkDAcAGIrkDAcAGIrkDAcAGxQZ3IADYQCR3IADYQCR3IADYQCR3\nIADYoNjgDgQAG4jkDgQAG4jkDgQAG65I+wPUc4gEQM0WaT/+0J/XKDYAUEOkuUAAsIkVaQIi\nARAn0nCONDNXCEQCmyJGpH3tP7Tjg2IDOAFynSPxgUjgBIBI7kAAsIFI7kAAsEH52x0IADah\nVzbslecdEAkAfI1iJhAAbCCSOxAAbHD1tzsQAGwgkjsQAGwgkjsQAGwgkjsQAGxQbHAHAoAN\nRHIHAoANRHIHAoANRHIHAoANig3uQACwgUjuQACwgUjuQACwgUjuQACwQbHBHQgANhDJHQgA\nNhDJHQgANhDJHQgANig2uAMBwAYiuQMBwCbmti61Nv83RAIgZjquup+1uAciARAn0t4/IqHY\nADZFjEh7xqEdRAKbYpFIuK0LAB2RUxZjRAJAJVwko+6AYgMAUSJ1jKsgEgCR5W+MSABoQCR3\nIADYxNzWpUaxAQAdXP3tDgQAG4jkDgQAG4jkDgQAG3yNwh0IADYQyR0IADYQyR0IADYQyR0I\nADYoNrgDAcAGIrkDAcAGIrkDAcAGIrkDAcAGxQZ3IADYQCR3IADYQCR3IADYQCR3IADYoNjg\nDgQAG4jkDgQAG4jkDgQAG4jkDgQAm5i7Ueh3pkCxAYDYmVZrzGsHgAJEcgcCgE3kvHYQCQCV\nRSLhbhQAdOSaaRUigU0BkdyBAGATeQ9ZZRVEAiD2HrIKKDYAEHvrS4XjifTp06ckcVwJAcAm\n4m4UUm409umTZhJEAkek3O8jffqkmwSRwBEp96LVUJFQbAAZgUjuhABgU65IoedIEAlkpGCR\nAqt2EAlkpNxiQ644EAlEAJHcgQBgA5HcgQBgA5HcgQBgU3KxISgOig0gJyWIpFfnamIBIw5E\nAjkpQCTj8yLrAyReHIgEciJfJO0Khk+//fbJvKSBFwcigZzILzao3hw8+m1QKTROeEIAsClD\npIM97dPD46+//vobRALSkC9S3XrUivOp9ejXX6POkcITAoCNaJEOCjXG9EdzjUitR71W/DiR\nCQHARnKxoR2KXnxSzpI+/dod2YXFCcwIIoFwxIr0az/4DFW7zp7fujOkgDjhGUEkEE6uu1Es\nFenXnkYk9YMj+jMkd5yIjCASCCfFJPq//PKLtUOUSL8SvGhPjiZ5XB5ZIn3+/DkuI4gEwkkg\n0i+/UCaxmQSgPPrV5c1MnPbn58+mScEJAcAmlUjxJs2L9BvXI0Okz5+jTYJIIJxFInV3o8gp\nElsjiASOiuwR6beoOM0PiARWJdc5UkyxgRyPYr+PZHmEYgPIiOSq3aegQKjagSOS6x6y+IYs\n2BQQyR0IADYRd6Mwr2xYSqpAyRMCgM3ya+1oHL0xvJNmDgRrQBIgEgAJgEgAJCCXSABsCogE\nQAIgEgAJgEgAJAAiAZCATCLt9Q9th6XtCkGBIuIAQJFHpL3yU1u8pxYfL1B4HABIIBJEAglY\ndP1ZQQAABJVJREFUV6R9KpESBQqPAwDJqudIzfLAbps7UHAcAChQtQMgARAJgARAJAASAJEA\nSABEAiABEAmABEAkABIAkQBIAEQCIAEQCYAEZBSpqtIH10M+31uLeDvGb2Pw+nHMXsTbPX4d\nGQXIIJ9Irw8iJe8deq9tXx1TpB/3UfpRb7f/MTIMEEE+kR5Xj6rHqYMSIsXsGL+Nzv55MpGe\n49rZosknUlVdN13lujprX55V7+rrx1X1+Lpd925/fviD/qiq9hfN2qvz6ux127PGbfog7YbK\njvW0W9UePDbvQ7xFx/gOhy0fVedXQ4i62/Pq0fT+j/Tg2trhiRH9Yjy0vGpWXOktaXm2r86e\nazHUlNSI3VpQKNlEen0Yjh43x3aPqqaDXTWdfd90/abTV9X5YXVz8Hfg0IGu993TWtmmS6/d\nUN2xnnYbRCLfok9ieIfqMD4eOvC1LtJeff9HWnBz7UE0M/p1NfjQbdFEV1rScNG+eK7EUN9A\ni3hRTYaC4sgmUiNRI9PhR9PdLg4vnzXPLppu1Xakwwjysq7fNf3pWXVeX593z4ZtuvTaDdUd\n1d2GcyTqLVrUTc+v6/Ox/9bjsufVvtljeH9jj37t4/pHIrln7Tlgs6LZv4s+taTP/+qwqxpD\nz16J+Lp6lut3AfKTTaSpEHDW3cGi6UPtikdd/2q4ev2s775XzYhSqdv0UZoN1R3V3cb3IN6i\nZ9r0qh+ztEO7Yf/x/Y09+rX9WGFEf2Tuf6ZHanKq+nLc2TTeqNkrEa+UrEFx5BKpP4Jp/mY/\nr348/DF+1p3TjIdjDef66+6Zdmg0rNA21HdrfhBvUbvfYe6Ze4/amZwjUvvPcDh0O7tSl+hv\noEbM8GkBWI1cv7zHfQ953JxKPO5OAEyRHh/Ow19fBYtk7NZVNKy3qN3vMPfMvUftTG5GpMNR\n3FnVVLYdKUGkUyHXL2/fHspcN6cHh77THbacjW+m9Jxr6tCu1jfUd5x2mw4f7beYdr8mDu0M\nVab3N4JTh3ZGcrOHdg3PtRj6G6gRIVLJZPrl/dh/hPT4cMzVnGQ3D4cx43Bm/bI5Lx+64I/9\niXl/sl6p23TptRvqO067TSLZb1Hr71B1RYBnjeIv1d37c/62FGEHr4ec3hHJTedIU7FhaknL\n/hDuXVdsuBhKDOobKBFxjlQ0mUS6qLoP6l/35bm2wNuXht9NfgzHNVPReNqmS6+yd5x2q6rx\nygLrLWr9Habyd7vsma7KVP5W9xjWXg01aiP6VLXzlL+fKTH0N1AiompXNJlEGme+ap88b0q+\ndfex5XljWN/R2pfdodZ5dfayezZs06VXETuOuz2fRLLeotbfoWo+bXrU1gov9ocua5zPXD0a\nPpBV9xjWvjvvP27Vo0+fIxkfyL6cjtIOb7ZvBRlj6G8wRcTnSEUj6bi8Ku0qmQvXv15MSypc\n2VAyMkRqT3Au0l+al5vmWjud6JbgWruykSFSf+Jwdew8QvnR6v3RLcHV32UjQ6T6+dlwjlEW\nr62hJ7Il+D5S4QgRCYCygUgAJAAiAZAAiARAAiASAAmASAAkACIBkACIBEAC/j8V79vajhr7\nNAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_taxa_prevalence(phylo, \"Phylum\", detection=10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [],
   "source": [
    "gil <- subset_samples(phylo, description == \"gil\")\n",
    "american <- subset_samples(phylo, description == \"american\")\n",
    "ibd <- subset_samples(phylo, description=\"ibd\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAA2FBMVEUAAAAAu0sAv3YAwJgA\nwLcCr/oCuOgCvE0CwHcCwZkZtvoZvuoZwl0Zw9YZxYMZxqIZxr4aGhozMzM9of8/ov9DvRlN\nTU1Qqv9oaGh8fHx/uBmMjIyPkf+Qkv+XqQCYqgKampqanP+hsRmnp6eysrKzoAC6qRm9vb2+\ngP++vr6/gf/EjP/Hx8fKlwDKmALPoRnQ0NDZ2dnecfnecvngmBnhf/rh4eHp6ensgjzsgz7u\njk/w8PDyZefyZufzdOn4dm34d275g3v+cNT/ZLP/ZbT/c7r/ep3///9Z804UAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2dCZvUxrm2FZyTTAwMbi/NDOSLB4aYw2EZcIAxjO3E\ndqD+/z/6Wnstb60qSW+pn9uXp7u1PF3F1D1SVUvVlQAATKZauwAAbAGIBEAGIBIAGYBIAGQA\nIgGQAYgEQAYgEgAZgEgAZCCfSF9PAzH+GMCXjCLl2Rsx9hjAF4hUUAzgC0QqKAbwBSIVFAP4\nApEKigF8gUgFxQC+QKSCYgBfIFJBMYAvEKmgGMAXiFRQDOBLVpF2yoKd9ij0DbS9uyfmNsRe\ntiB/07UXgYrZNYTsoufvrKXpE4l/Hy1q166DSAWQU6Qd3SYCRNpJTVfdyLKHPWgoTcReBpoB\nESYrG1AijRL5RBq2gUgFAJEo5hRpeIBIW2IOkbpzl137tH9sF/WnNcqjfPqkhuy6AH1Ha5AU\n0+1vDXMkEiJRJZZ2pWutxgh50fiO2r+PXlqpUoAvGUUaGoUQ/V/cvh0Mi3bDKu1RbrpaCLmj\nNahjNzTBnSXMkziUxiyPFKXsatSaOCLJIu2UPagk7d8G8GUukYS9nevrhVUkIbWm0CD5CbXV\nTltnS+yeKIMNO6NcZN7w1CMSsYdeMohUCvlE2vU/g0TqTl+GTZU2ZzbY8CD5CbWVXyRZHamP\nZL5Rb5lVJC1GKWC4SDi1K4GMIintSrjbv9ykhSKSGRIXJD+htvKKtJNjpD6S+UbKm+KIdNys\nc0TaGZsmHpHMIPkJtZVPpJ0SM4hEvVGKSP1OO3oPvWQQqRSyX9mw0xuIbbBBWa6NFO/M1qQ9\nWoNEXwyhLg09teu3lStleSNb8x+2DfgcCSJthBlEChz+VpZrTXenrJFbmC+oj1Ga5JCihRl7\nykUWXbyjxMqbhg1/jxtq6lqShKw14AuutSsoBvAFIhUUA/gCkZaI2fVMiwF8gUgFxQC+QKSC\nYgBfIFJBMYAvEKmgGMAXiFRQDOALRCooBvAFX+tSUAzgy6xHpGcJeyPGHgP4Ei7Sfnx2QH5s\n4dXmNhkD+BIs0ujMvvuxH1408Gpzm4wBfAkVaS8g0uoxgC8Jp3bhIkXAdJyMVwzgSx6Rpo8t\nMW26vGIAX3BEyh5zdXU1U2kAXyBS7pirq8EkiHQ8zCpS+d37+Jirq9EkDDYcDxApcwxEOk4g\nUs6Yq4FZSgP4EitS/RNXNljQPIJIRwSu/s4Xo3uEwYYjAiLli1EtmqE0gC8QKV8MRDpiIFK+\nmKtXrxSPINIRgfuRssUcJDqYNGdpAF8gUq4Y48QOIh0TEClXDEQ6aiBSrhh58LsTCiIdDxhs\nyBZzpTJDaQBfIFK+mF6hZvCuNgkiHQ8QKWsMRDpWIFLWGIh0rGCwIWfMQaJaoZcvX3r7SBhs\n2BYQKWNMcziqj0gHk+YoDeALRMoXM4w1NMxQGsCX4HntxnuP9vvuxV65IalgAzLFQKQjJlAk\n7W7Y7gY/ZZNlu/cfP37MEZOpNO1HsJJFfpFSSgP4kiiSIdbCTffjR9qktURqh+kajzqZ5igN\n4MsEkVSPFm26Hz9aTFpJpP5ihlftyHfnEUQ6ItJEGqZs6BYtPdMqV5G0C1ch0vEwRSR12ZLd\n+ySRZhxsSBAJgw3bYoJI2rNFm67hUfdyrVG7/nqGV8qdFBDpeEgSSR91aFi26ZoeNQtWG/6u\nPWoGGkLnbIBI22KCSIwmiBxO9dYTqR2sC5+zASJti4kiuSeIjGBavzxIpFlLEy1SSmkAX2Kv\nbJCN8s60GsHmRKqfQaTjYSO3UYT0keYtTT/cML68uoJIx8NGRAoZtZu5NMrI9xVEOjJw9fcs\nMX6RMNiwLTYh0jgWvqJI7fRB7RSRV69e1ud5EOl42IJI0qez64k03kLRXLz6sjYJIh0PGxBJ\nvl5ozc+RrprjUKPSq/omWYh0TGxgsCFUpFlLY4jkO7VLKQ3gC0TKUxqIdOSUL9LHjx/C+kjz\nlqbrI708nNKJpouED2SPiuJFqiX6EDRqN3NpmlG7RqRmHqFXmNfuqCh9sEG7M2nlz5Hac7qX\nIRNEYrBhW0CknKWBSEfLJkT68GHtD2TlSYSaeVYh0pFRukii9WjlD2Sv+ptjm1lWh6vAIdLx\nUPxgg2g9WnX4uzsWXbXzfr8avksWgw3HQ/kiMfgcSRJJmf8EIh0PCVMWC3nK4nELiASRjpiU\nW833xLIVRQq9aHXG0tQjdS/bO/u6PtIspQF8mVWkY7mNov1GpObaoJcNV/gy5mMjQaQ9sUys\nKtLKMcPU+b1HLzFqd3SkiNR3kcZllimLuRuQKQYigeQj0h5HpIHen16jdgTcc9EqRNoWE74f\nic1gw9oxV608o0cvu49nMdhwPECkyTFXskLdEekVZhE6MmY9tYugbJFeySd2/TUOEOmYSBRJ\nG2yoKc+ATDEQCaRNWTw8913ZwH2UIFNMd273Sjuxw3Rcx0TxV39ziLnSRu36y4Qg0vEAkTLE\nyIMN3bwn+BzpyIBIGWIgEijsNgryi2PjYzKVRnQXfuuj3y8DREopDeBLWSJZvoI5NiZTaUT7\nZS6GRs1owxylAXwpSiTrl5nHxWQqjdA8qm+laAYc6pO7WUoD+AKRpsSMIrX9om6SVdzYd3wU\nNdgwimTTadnBhloceYzhVX9Yau+UxWDDEVGUSELyiDZpUZGkE7t2dtXuw6T6zA4fyB4ZZYkk\nJI9Ik5YUSRmwa+YP6j6TrU/wINKRUZhILfxEejVMadf2liDSsVHUYENPmki5SzNNpJTSAL4U\nJlKnT1IfKXdp5E+Qmk6R9IGswPcjHRlliTQIlDJql7k06kexr/q7Kcaxh1cY/j4iihKJ0+dI\n+iUNr9SLHHBqd2SkzrTaPy46+ck0kfKWZqpIGGzYFhNuNVfmcDh6kV6+UqZugEhHRlEiTbto\nNXNpzKtVlem4cGXDcTF1FqGRBT+QnRyTozTE5EHjyIPAF40dGVNEGrtIlplWI1j4atMMMcQd\nFNL1qrOUBvAlUSTMIgSRgMwEkdQnS30g++Hwn/30bkkfLed1V68GlyDS8ZAmEvVsmQ9kP3z4\n6YPDpAVFsveQBpMg0vGQJNKeWLbM8PfBo59cJi032GD1SDIJgw3Hw8QvGlt2gkiIBLiSMNPq\nPvg7ZHM23bZ31Ij0009tP4kYC19MJIdHEOkYKeV+pPpgNJj04aePH+mrHJYSyeVRfVnDPKUB\nfCnkotXGo8akg0XteEP9v2HSQoMNbo+6OYQw2HBMFCbSx+YqoQ+sRbrC8PcRUoxITd/oAxOR\nPCd2EOn4KEQk0Y8ytBeufkjpI+UrDTW7qnRmdxUYE10awJdCBhu6I1JvUjtgt9aonduj+kbz\nmUoD+FKgSBNi8pQGIgEDiBQfA5GAQRkiffygemS9LWkJkdwWSR5BpCOiiMGG/oKGnz50r603\nys4/2HDldEjxCIMNR0QJIg0e1cPfwjl1w+wiuTx69eoqNCatNIAvECkuBiIBEuYiDYMMch9p\nPZE8owwvNZMg0vHAe7Ch9ejZ4FF7RErsI00fbGg8cg42XF0FxCSXBvCFtUjd8UgWaTApIiZT\nabrjkXvUTjEJIh0PRYnkusncEZOpNBAJ2Jk6ZfG4BUSCSEfMhJlWjTkb/v3vf4v//Oc/SeUY\n21xtjPiJwu+R2XTfvn07qTS1HO6Lve0eyaX55z//KX744YeEskCkIsgo0r9r/pNokioSbZHf\nI0Okt2+TTFJFSvVIivlnzQ+JJkGkAsgtUqpJfpEiY5qfb9+mmRQgUlzMP6eYBJEKII9IzZTF\nEMkeA5G2zqxHpKTuvenQszwiJZXGNOhZHpEw2LAtZu0jZRQpzCNnHymrSJEx5gEJIm2LWUft\nkkUSukiBHjlH7ZJFEqZI0aUxRu0g0rbIKZJB/u9HOu4YwJeMIk0DMf4YwJeEKYstVzYAcMTk\nu9YOgCMGIgGQAYgEQAYgEgAZgEgAZAAiAZABiARABjLeas7qs8tNxgC+MJ+OCzGT9waLAJEK\nigF8gUgFxQC+QKSCYgBfIFJBMYAvEKmgGMAXiFRQDOALRCooBvAFIhUUA/gCkQqKAXyBSAXF\nAL7kE2l3IGQzejHd5sjEnTVE2nvXQW6rLzI2UWJs70UXjYzRi2Wpge/fBvAl7xEpoNH5Gou8\n3hpnW7EjYmJEMEoT2Yb9IsWWZBdfCLAGmU/t/A3Fe0SSNoBIEKkUsveRdv3P7qxoJ7qzI8tr\noZ3qNCJ1y6SfzX79D2vIeB6miLTrlwxZfcLwWnkbqTRjmPy2Wv1slXOItJNqRJejj9tBpBKY\nTaSh8Q0t1/K6fVSOSPI6db+dM8R2RDI20+P0t9EMkFfa6keVyyPSWASiHPo/AeBN/lE7+Vdv\naRnGehEgkiBfKCGySHK3fqdvZsZJq/QY4m3JIGG8sA02EEWgywGRimFGkehGKLUc+ZxOFUka\n2lKGuTwhviNSPwoYLpJ+amevn7Kh0M7JLKd2wlcOiFQMM3yOtFManFUkeT11RBJqK6JFUkO8\nIgnjpDBeJEv91EK2/0Ok42GGUbud9Ec78DFVJC0kQCSlwU4RyXCaKB9EOh5m+BxpbGjkqZ30\nl3xHtDm9kZoN1h7iEkkrC9mAh0dCJH2gQc80Uiac2mlFhkgFMMeVDbv+tdJciBFiabna5pQx\nYGU8WHTNjAyRroRQr2zQNyPav/w2QonR6kLVzyhkuzJBJHlAv/2TgeHvIpjjWruUv6BMr24j\nY4Lrh2vtjgeIFB8DkYDBDMPfSaf05YgUUT/iU61JpQF8wW0UBcUAvkCkgmIAXyBSQTGALxCp\noBjAF4hUUAzgC0QqKAbwBd+PVFAM4Eu4SPvx2QH5sYX4dT8LL4frjzdiAHuCRRqd2Xc/9sOL\nBl5trvSY0wbr3oAboSLtBURaMOYg0clJbxJEKoCEUzuINHtM49FgEkQqgDwiTe8SMx0nWykG\nIhXHrEekCNZuurxiIFJxQCSOMXUH6eTW4UetFEQqAYjEMKY7IDWHpAMQqQAw2MAvprGnsahV\nCSIVAETiFwORCiRWpPonrmyYM+bk5FbLQaFbt04gUhnMetFqIU2XVczg0cGkrp8EkQoAV3/z\nipE8ag5HB5MwalcCEIlXjCJSd8EdRCoAiMQrBiIVCkRiFiN7dNJeAQ6RCgCDDbxiTk/k49FJ\nc40QRCoAiMQr5nQ4tzsZbkiCSAUAkXjFQKRCgUhsYurrGIQYPDppXlr2BtzAYAOXmP7Gif54\nBJGKAiIxiWkvY6gPRP3hCKd2JQGRmMRApLKBSExiTpWPYvvRhgyFAIuAwQYuMae3dNBHKgiI\nxCXmVD8i3boFkcoBInGJOdVMwqhdUQRPEDnexLffdy/2yp195TVdXjEQqWgCRdJuK+/ulFU2\nKa57zyzmoNGJKtJplkKARUgUyRCrxKbLKuZEHbU7GXpIEKkIJoikelRe02UV036KdOtEnrEh\nTyHAIqSJNMx90i3ClMVTYyBS4UwRSV1WXveeU8wJ8XlsMzEXvTfgxgSRtGelNV1mMdSnSKch\nd8hWLRfvm+fE6vDygnSSRNJHHRqKa7q8YowLG4YZi8NEqqr3EGlFJoiEU7ucMcaFDeEiNQ+X\n1TlEWpGJIrlnWo2g2FGCXDFTRWoeD/9fVvtLcVOd1Yvqh27xuMHD6qG4Pqse3iRXCxDEXtkg\nG+WdsjiCcg3IFSOZdNJ9HhvYRxofq+phfZJ3edDp9WHRi+qJIVK9wYuzulOVXC1AgNso2MRI\nh6T+9tiQUbvWkpuL2oyqOr8RT6q9eF+f6B0OPm8MkS4Oeh1Me4FTvrxAJC4x0rV2Jyd0DMkw\n2HBdP78WrTEPm7GHvTBEara6Qd8pN7j6m0vMNJH20vB3/fP9oSf0uj1IaX0k+QfIBkTiEXMq\nD39HiqQ/b36eVddNRwkiLQNEYhHj8ihNpNfV5b4XpllwDZHmBCJxiFE8uqV5lCbS4ZDUDDjU\nL/bVC3FzDpHmBIMNHGJGkU6ki1XD9raJ9Lo66NO+uKx7UU8g0pxAJA4x8hGp/fJYWac0kaQh\nPHE4y3uCPtKsQCQWMbJJ/TdemjFRvGmvbgDLAJF4xCjfeNldHzStEOfNxQ1gITDYwCNGvtQu\nh0hVO9QAlgIi8YjJLdK+epiwF0gGInGIuaXOINTeLmvGAL5AJAYxt3ROlY9lIVIBYLBh/RhV\nov5LKU4GkyBSASTMtCrkmVbHLUpqurxiINIGSLlDdk8sK6vp8orRRGptujX2kiBSAUCk9WPM\nCYROusuFchQCLEKCSHtimSise88p5uSEPh4Ns+hDpAJIEanvIo3LLDOtcm26vGJkkbrZVruf\nEKkcUo9IexyRcsVApC0w4WtdIFKmGKKPdHo6egSRSmBWkSIocpQgUwzx7bHNlzPj+5EKYtZT\nuwiKNCBPjOmRdnMfRCqARJG0wYaagpourxiItAVSZlodnuPKhhwxpki3OpE6oWYTqSJfVbYN\ngpOWxf/e1QI1wUWr68cQJrXLT2O/H+m3334LL93hd0/+9gNEmt2bu3fvBm8bVJjZawKR1o8h\nRu3qy+xOT4Pm/pb47bcok/iKdPduhEkQidz7CGNOdItO0kT67TfKpKq+W5bcvhepajdop0Sp\n+sdK3rdSHuWfzTbyPhm4e5cyyVYRqdxaeauxmkk1iakRRFo/xjwgNV9pnkukXhKdSvq/60YM\nM0r2i6phlfFo2yYDFpEsFZHLrZZFFimhJlE1wv1Iq8cY34zUj9vF9pFsRyRB/5oVkYS1mRnr\nhdb8tG0yYDsi0W/gKW+VXBOIVFQM5dGt096kqEKQfSRH+xN6m7KLJJ8rDWdTVUVskwOyjxQl\n0lg2XaTwmvTLg4BIa8eYX9U3iBRdCGqswdr+lPYj3CLJJz3SIiVfXjgVaqwhRqTx/4peE1KT\nqMpApLVjcopEkeOIVJmbGs0v6kQohQiRJCUqxxbCXRM+IrHt3rOKobtIwVMW+7D00cfWI7Wb\nqtt+WCQ1w0prYlSzm3Ue5JDBBqMsU2oS9acBIq0dQ17YoFwjNPWIRJ7oy8ehoOFvZXml7qbs\nOxdBw996WUY5EmqC4e+CYtQvdGm/hvlE/UKKDKd2W8BXkXUrCpFWjoFIoTgqMnv/zM+sIqXs\nfWwxxJndDIMNoh+kG5iUuQquiqxfI4i0dgwpkvKFY9MKARYBIq0cQ3ukmASRCgAirRwDkbZB\nqEj6lMX9IyY/mRgDkbZBoEjUnA3KZCgFNV1eMVaR8G0URQGR1o0xBZIOSfa9ATcSROoXqB4V\n03RZxRBHouGINJzbQaQCmCLS2EWyTFkcQXmjBFliINJWSBQJ03HlibH1kCBSaUwQSX1SStPl\nFeMYasCoXVGkiUQ9K6TpsoqxHo9OT3FlQ1kkibQnlpXSvWcVYzkcnea8aBUsQopI2tTFHWU0\nXV4xEGkzxF7Z0I/WBX0ZM8OmmzXmzp07E2Ns4wwn+e6QBYuA+5HSY+7c8ZjkjaEmEGqHGk6y\n3UYBFgEXrSbH3LnjM8kXQ3k0fn/s/IMN9pkc3ItC05bB9b5T6pOvFHGUY0CmGIYiffz4MXjb\nYd6T8aVlq7jlWbh9+3bwtpEFhEjcYv76179OFIk+sUsX6ePHKJP4inT7doRJEIncu5iYO3ca\nkybEBHoUXJePHymTQifRr+iJ6I3XC0ykf/s2ZZJrFiGpHv12fX30eljq09Yhaf58tRSTKWiU\nIEdMfTA6mDQhxu6RNgI+UaRhpil9hfS/NMWbMZW8/lrdnNxmIhaRLBWp5EetMFQ9bPXR/y3i\nKgKREmP8PaQpItExHmxHJEH/mhWRhNnwtEchv5Z3JbaZiO2IRIcbIkmPlX21IDY3FoYDkRJj\nJovk8ujWqTwl17Q+krv9mWbYRVpuIn2yj+QVSSvM8IeiUnY36qNOgZ4wf75SiumUYkCuGL9H\nrphTp0gnyuR200btrO2PmETfKRLxF17/a68snAI11hB0RBJqwTuHyKMndcTSF4Yzq0gpe5cT\n4/XIEUPPZqe4NJo0rS65jkj6KRAlUvwZUQTpIgXXhzjPiypdFsoxgEHMkiLRR4mx/WgNz2ho\n0vJVJ9IPHmyw1Ieon14fY2FE6WKrY4V50+UVs+gRKXQSfXMi+kref+2J9K3D38M5qloY6/C3\nVlZ5t6T580WfmAfz1/348ffff//4wLjgsbGRvjdzA3LEuHtHg0iZLhGaq10vzsSKzPzvMKNI\njx8/+8c/vv/H94M+jx/bTSpvsCE5phXFNdhwctJ+HbO9EBFApCy7Lxev/7oPx6ODSAd6kx4/\ndphUggF5Ym55RGov/cYk+gYTK8JEJNtMq+MWECksZmmRwCIEikRNEKnfal5LIw7/d758//0/\n0kV68ODBuC6p6X5nrEuKufOnP/1J/PWvfxqHupNiakPUvhFE2haZRWp4XA8xfH/4+Y/UPtKD\nB4pJ4UgimSalxPyp5q+H/70fGjljHB0iw6PT09Oc3yELFmEOkf7xfUNtUtqo3YMHqSbJIk0w\nSROpIcGkeJG6m8xzfocsWIQ8IjUzrRoiObwxOFqR9JlOXDGAL3MekSDS8AQibZ0Z+0iPHycP\ncKkepQ02GB4lxZh9pOTBBpVnwR5BpBKYb9RuikhHM2oX4hFEKoGMIpl7MfnkZjMxgC8QqaAY\nwJfYKxvkGVa1KxumgRh/DOBLgddcAcAPiARABiASABmASABkACIdMSG//JUmLoh50+G+pDUb\nM0TaEm/fvo3Y2ju9QnTjqMinCXz55Zexb+qe+ye2OFOqDkrn7dsok/iK9OWXESZBJJCXt28p\nk7yT6Hcz4PcT8TSLlGnoqXWCmotemn9Hmdcndk6eL7+kTPJMoj/MsEUVT5tmaKxPNexr3z6o\n+BnnbGD12eUmYzxYRLL1HvrllfZDmtCqeyDXUdua+yrbhGIRyVIRRSRn8ZR1nVLdvnpRo4uf\nUaQ8eyPGHuPBdkQS9K+5Emp70TaVRJLXka2LWG60xAhsRyS6IuZgg14cQRRH/2OhvUl08SFS\nQTE+yD6Stf31PymRxlnB/SJJM4hXfbPuj1DDZJKhVWgh+0juitiKI60KEim1+BCpoBgv1FiD\n9w85IZLUurwiVcRyadXwbsGVqKHGGsJE8hXHqHClFDW5+BCpoJgkEo5I1F9rm0jkozBaYoaW\nFiSStzhpIvmLD5EKikkieBJ9TaAIkSrtUZJQC5ihIqZI1NT4QSJNKT5EKigmCe8k+qZIw3z6\n2rT6/bqK2NY1x36erx/zfoesUnS9uNSU/7IiWlHXHP7Oszdi7DFJ5PsNr8xcFcmTC5EKikkC\nIi2SC5EKikmi+w2nzj3Ph3kqkutfAiIVFAP4ApEKigF8ySjSrsW+hWNVTJubHrNzhwTFEAHG\nojHG/XYeIFIB5BTJt4Vtg3p5oEi+9wj20VUWb4xl5zSR/I5BpAKASNRyiAQimUOkXf+jP9Pr\nHndCfd09Nj+/lnZWtjY33dHrxvh2mbTdsHv3DuYa5Q3EGPN1n6YVaSfXbyd2lvop/zb0v4L8\nU6lXX1ipNIAvc4pkPO4sy4XS5nby1sQu1nU75VCyM99RFslZFu2IRFWAqpe+XDkiuf4V1HU7\nrbA4IhVA9sEGoTVO/bW0UF6v/vFWt9Z20dfJj7IBlnfcBZTFJhJRClf9zFM7XV259lS9dkpp\nAF9mPrVTXkvNRDp5CRRp3CVJJH13Z1n0U7v+T4R+EPHVT6+UEaLUHiKVzKwiCWEeoXZCaiLj\n9j6RpF1SRBr/1xPIslBHJO0dQ+qnHpG0d/aKNBQWIhXAzCKZTcfVlMYYlywJIhlt01OWYJHc\n9aP7SLbaQ6SSmUsk4yRmJ9S+ummHHEPJEnlqZ7yDupOzLBF9JC1LyTREIv9ViDeASMUxy+dI\n2vAwNfArr1eGv22ndt14dj+sra3rW+M4iq5u17+j1GTtZZE6N33nSBtFsQ1/a++m/nXQy66+\no5og/cDwdxFs+Fq7Ce0vrjTWN5paqd2kvcGSQKTppYFIwBTp6cOqEufv45N4ieS8ejZzaWYS\naajBPCIl3M5TaY88iKhIcMHja6jtcXPWlKmq3kQn8RJpkzFerq6ugretlAdijXfXoG3TuH//\nfvC2loq4p3cIWx6BFnFRXdb3DL6ozqOTeLW5Tcb4uLqKMImzSPfvR5jEUqR27pSkG3B5tblN\nxni4uqJM8s8975pAvhLa9DvqZEHxk82HcP8+ZVLIJPp6mfS5gYiZ/8kay/8qYUCkgmI8WEQa\nZqDSlg8/+0mp5MfhubZB1SWS246x07CI5KwIVVizZpVZU1uNI2tDn9pdVhfBCT282twmYzzY\njkiCbn9qH70aN6LlqPxNMLCcXmxHJF9F9MKSpZWr6a4x/XYWtC1v9m2p9tfBCT28vgFlkzE+\nyD6Stf3Jq8dJwMVwBldVldk2x7/b4/qxIedSiewjeSoizMIatZA2CKlxzLmdseWTs6o6u7wJ\nDhggft3PEvZGjD3GCzXWECCSfDIjLVL3Jo5I2rYin0rUWEOKSNqKYYOQGmtV8xC+5X58dkB+\nbOHV5jYZk4RfJJcckSJlPL+jC5xHpJAa297OVboQRmf23Y/98KKBV5vbZEwSQV90FzCAUEVs\nOwtBk+i7SyYPJPhq0W8TWjrt9cM250zvI+0FRFo9JgnrqPE42KAOaZsTztuHv2eYKz++Itoz\nR8nk4W9njeWahpZO4bJ/nwtjywSRImA6TsYrJokZm/ay8K6IVrp9e23Qe0J9l0hRY0skTJsu\nr5gkeLe/CHhXRCtdL1CkSDW82twmY5IYfqMqkzJXgXdFtHI8rC5uhLi5JK61g0irxwC+aCJd\n9x/ImvdRYLBh9RjAF/3IeHPZfCBLXNgAkVaPAXwJP8WESKvHAL7EilT/xJUNK8UAvugiXe5T\nB0N49cs3GQP4Yn4gC5HYxgC+GB/IPk1N4tXmNhkD+GL5QDYBXm1ukzGAL8YHsgl3IrXw6pdv\nMgbwxfhA9jz+3tgWXm1ukzGAL8apXc7BhvKbLq8YwBeIVFAM4Eu+i2d59cs3GQP4ApEKigF8\nMUTayHQdDfIAACAASURBVCT6m4zJzXAjdv/aviGxjsudQP5b3MmVVUQNAjbUNsEk+pxjvPzw\nww/hsaNEPpEss47MyKNHj8I39k664qpXzHJvIUbyTqJffveeV4yPH36IMakaHtiJ9OhRhEmV\n8uDYYvLygFIML6vx/0h4tblNxnj44QfKJP/kO8Mm8rw6+nz047qq3ye8BpE8ekSZFFIRbToj\nYvKgoXKVuXzKnPoQqaAYDxaRLMeTytykt6SS96qGIxL1chYsItkqMrRwuYC26eyU10TFjGnu\ntG1s0Kd25iT60r1H+333Yq/ckMSrzW0yxoPtiCTo9mduQrQpSqTuaLT8Ecn+ptLRgjhVrbQX\nZiXN/Wzb2NBW2SbR1+6G7W7wUzbh1S/fZIwPso+UUaThk3rfn+epkH0kz5vK52byImVPaX1l\nWd4t6iurb+N8exl6En1dJEMsbm1ukzFeqLGGzEckZ2Y2qLGGAJG0ghoiWU7lqP1s+7rePgBK\nJNUjZm1ukzFJWNtfNTzEijT3qR2N5y+CXnhhyhD0KGiRfH870kQapmzoFmGm1UVikrD10fXP\nkQJFog5Qy2AfbBBCOmh4RFHWV5blwr6vtXRKiawTWJIiqct49cs3GZOEbdRYCKF3eapxWSVv\nMDbSZYa/LaW1VmRor+o4vVqZalw/1nfcTql8wpz6E0TSnvFqc5uMSWLp9j4bvCuSdGqnjzo0\n8Gpzm4xJgnf7i4B3RSaIhFO7pWOS6PviGpMyV4F3RfRyXNLls4nkniAyAqbde14xgC+aMNZ5\n7YbZVYcfATOtRsC06fKKAXzRjzzV+/Pq+uYct1FwjAF80UQ6HImeVK/FTZ7bKFL2Row9BvDF\nFOl1Pdkqrv7mGAP4ognzsHpxXZ2JNxCJYwzgiyZMbdB5PdZwEZ3Eq81tMgbwRT/yvD6rb0qq\nLuOTeLW5TcYAvmgiJcwe1MOrX77JGMAXfbDh7HVqEq82t8kYwBdNpLOq2j9J+0IKXm1ukzGA\nL3of6br+7suH8R/Hcmtzm4wBfCGGud9cVtXZi+gkXv3yTcYAvpCfF12nXFTLq81tMgbwhToi\nXRyOSE+jk3i1uU3G5CbwLoTgP6pr3dKg18NWjjnLR/aRLjL1kcpvurxivDx+/Dg8Vp1A37Vh\n5PIMPH/+PHzj0HrMWhFz1O7sKUbtmMb4ePw4xqRKefBvGLx8Os+fR5gUXI8lRaoe4nMkvjEe\nHj+mTPJPmd3PZuKaKlt+PWWK7CCeP6dMCqnIMGGJPHd5VEVSK6DtYz0YyTfxyVMWj1vwanOb\njPFgEWmcFEhdrj2ryFmqyNfSo22bSVhEslVkaPnyHOZK4WIqklgBYxf6i8aUW833xDJubW6T\nMR5sRyRBtz/1aTU+p9qZsV442t9MIjmiK12cSgitcHqCXkFtWSz6EcnyRWNpIpXfvecV44Ps\nI8WIJE1cR4okT2wnhjO5mCmywyD7SJ4mrhbYI9J4NifN1Kcsi0XbxfZFY8pUDcQywa3NbTLG\nCzXWECCSdFrnPCLJ66VFyrtYzr8iocYaMopEVERfFou2n+37kfQ5T/bqMsuUxeU3XV4xSVjb\nXzU+SJN5O0Si2qXeFlPPjALw/EWIEMlakYVF6n7giLR0TBIBc39LIpGndtIf66lTZM9QEWnu\n77GgpkhEIfWKqOeokaVTX9q+aIz6fiQMNiwdk0TA3N99M6jUqbGpUWNlecIU2bNUZBi5loe/\nlRWWQmoVkZfFl04h5ovGINLSMUkEtYp5mn5e/GVcsxbGe/u/aCz81C4Cpk2XV0wSEGkRAt9b\nF0kbbKjh1eY2GZNEf/KmoWxSgkcBFWEk0vkFvZkyZfHw3HdlQ/nde14xgC/66Fy61Lza3CZj\nAF80cd6fX17TG3rh1eY2GQP4YnyORJ1DB8GrzW0yBvBlVpFS9kaMPQbwJd9AB682t8kYwBeI\nVFAM4Isu0s3lWVWdP0lI4tXmNhkD+KKJdG25RCgAXv3yTcYAvugfyFbnB4Wuz/G1LhxjAF+I\n2ygO3GD4m2MM4IsmzMOqvVw1z3fIlt90ecUAvuhHnot63pPr8/MsfaSUvRFjjwF8sX4gG/2h\nLK82t8kYwBeIVFAM4As+kC0oJivUH0vbTKbM71eK+aM/V1VCc/WZVvtHTH6yYIyXBw8eBG+r\nzNZgPqe2DV4+mXfv3oVvnGO+ksk1SbxDdrxFdoBXm9tkjI8HDyJMqrRHwUikd+8iTCL+IkTt\nmLi3I8wBROIQ4+HBA8ok39zz48w58k/RzYrfzyukTsdj3WHqVPQt795RJnkn0a/6zYgvAVCm\nSDJLr9QkqfAJIvULVI+YtblNxniwiDRMRKUtHx8r6XF4Xkn7xkyjr2yQhkUkW0X6Zj+IpJe2\n37Gbt44s/dTCTxFp7CJZZlqNgGn3nleMB9sRSdDtb3x0tya9aVXKU8cOydiOSHRFmsWjLLTu\n8gtb6ScVPlEkzCK0RowPso8UIlI3ftef9lRE6+t/jCsFtUM/EjhtYiKyj+Q5UIw2jEciS1Wk\nIxhV9aTC67tc0p8hUSKpT5i1uU3GeKHGGkKPSEL6syyI1jes9e7QvZ6iEjXW4BdJEHOYC6oq\nQj6ASXuPYdGF13YYPHKLRD3j1eY2GZNETpGoJmoTaer5HV1ge0WiRFJP54T6XE6NK93Ivnp/\nXl3fnDu/H6l7gkn0l45JwjPY4OwojCdJ0gZVyA7SO+TCP4k+JZJyPK2M5e6axJTOKNST6rW4\ncX0/kj7jagevNrfJmCSso8bSmccwTqw/734ET6OfZ/g7riLymymlNko2/i0wS595+PsQ8Lp6\nSpwjSjOt7oO/Q7b8pssrJonc7Xk1Qiri2WbGfwst+mH14ro6E29wYx/HmCQg0rhmOZFqg87r\nI9tFdBKvfvkmY5LoT3o0JmWugr8izlrNXGk9+/VZ/W1j1WV8Eq82t8kYwJd8kvJqc5uMAXyB\nSAXFAL5oItUzNtTcPIxO4tUv32QM4Isx/N30jp5g1I5jDOCLJsz782r/4sW+OnsfncSrzW0y\nBvDFOPIcLKrOXick8WpzS8Tcvn172dIAvhgivc4oUsre5cTcvu0zCYMNx4N+aneW89QuZe9i\nYm7f9poEkY4HY7Ch+UaXTIMNKXsXEwORgIR+rV079XeO4e97977429+aZ3/729/u3bsXuHcB\nIrX6HH7+5S9/gUigYbYPZA8effGsMeng0Rdf+EwqaLChPxDVHqWLhMGGbaGLZLnVPAD11117\n9MWz+pjUeOQ1qTSRbrciuc/tINLxoAlju9U8gOMTydtJgkjHQ+Ct5tYpi8ctINLspQF8SbjV\nfLhTVlp24Otal4M2X9xrtPlb/ZDUR/rzn/8svvrqq6TqmE337t27U2L+Yq4c9IkZtfvyyy+V\n/5NKk5Xx1MM+oYP1tb58xdubAs+h5i5h4K3moSJ90Rx9epOSRu3+XPNVokmGSHfvppgkiUSb\npD3xxhzc+fJ/pP+jTAoX6bvvvgvetiKeRTNX8/z111/nL0bWwgfeah4s0oBXHRVNpFSTdJHu\n3k0ySRaJMCk+pvbnf/5n+D/OpGCRvvsuwiTOIv36a5xJ/ESy3WruEamZshgi2WMWEem77yiT\nvHPPazNWjVNv9TPr6Ku0mfO19Rn49VfKJPssQvJd6PKGcon1WYWqDBPnE0UYsNxqnnZESure\nmyJNGCWQRUqKMUVKijFFmmGwwSLSOCOVulx+VpmP6iz60iqpLVLrM2ARyVKRYSlRKPq19Kgv\nSyZw34Q+0r3ENmcekKYMt0kHpESR9HWpIml9pOVEGn5oy+XBBqU9Ca1pVfoquk1a3icB2xHJ\n+gaaSK5HbTt9XTJygOPYFj9qV5/YpRlgjNpNGrceT+zSRDLWpZXGGLWbY/ib7CNZRZKfSad2\nxqJgkTKf25EFdookj0JWxGstqJL2mTjrf1aRzL2YfQBUfIwXaqwhTiTzRChYJPuZVzzUWEPY\nEUkvnOe1lJevjzRRpGkgxh+TRKxIijgRIjnaeR7mFmla6QNFkqcstlzZAHgSPNhQ2cRQX6vL\nK2X9vFMw2g95kkhEScnDpyxSjj8DqkhFz8QJSDyT6I99haHPIEiRyMnyteHvmY9IwcPfwiyx\n9HqYT3+u4W+ItEU285vkXZHQUztQKpv5pfKuCETaOtJpT9lnHLwrApEAyABEAiADcAeADOQT\niddnl5uMAXzJKFKevRFjjwF8gUgFxQC+QKSCYgBfIFJBMYAvEKmgGMAXiFRQDOALRCooBvAF\nIhUUA/gCkQqKAXyBSAXFAL5ApIJiAF/yibTb7YI2oxf72hy5285YLsfstBLZikcsH2P0EBfG\nhkqldj2RIXOJlHA/D8srnMcbk1YtXtYjkt4IqDaTUyRzuRSzc+3mif5aWRdskp5pVCohKWqv\nO3fuBG+b8Jv37ZKvMf3+++8xm6uzCIVun5XNirRz7+eO1koT3/7XEenOnQiTOIv0++9xJm1Q\npJ2oz13aMxj55/C4E+rrfqs+ZkeuNnZr3mdnLDdEknbVSucskVSpLqNLoorRLOvqoNacjvHV\naXw9vEMQd+5QJgVNot9NFdRvOc6uQ06Zb0y9U0kT8mS4/fv33ymTvLMIWSbP70tlK6g2gVJi\nBbKLJLUAoT+XN9CWq92JgN125HKqcyNtYpTOUqLx1G7XK9T+tBVDdH8M1JpbjkjeOukFDPnn\nF1aRxjm01OXqs2qc661pgtIyahY762OlZidhEclSkWEpPXl+Ra0R2nOiMpHkHmzof/l2kYYN\nhNxKSJGE9qjvZsapTXeni2OUzhKtjVmIoSr22uyMTL9IrkeioD5sRyRB/prVee2UJlSNuyp7\n6y9IoSxvF4PtiGRNrpQNTCVcxtsqFUnWI5KgRNpJ525q05PP6fRDiV0kZxzVdMNFUs9FlUoZ\nBw+1GFJ1h0z7GaL+T0L9ExEF9UL2kawiGVuoIqmSaVHjyZE5S32uc7vQigxLxyORXvYwkdRK\nRTK/SN1qo+XLTVMbJ3OJZDk0OI4BwSKN0cRgw26sDS3hqImzNLZ/koDXfqixhkiRpNM6+xFJ\nXqkH2E/AIqDGGuKOSMoOQSJplYpkNZG0VhJ6aud5pEbtQkWSHqeIJNV8cZEo0kSynfiQp3JU\n+8zPzCLpe6eULgsukeRmKh1SpPMZtVfiFmZnj5PPEPuSyIMNeuks0cTnSIRIcmDSYEPAozKi\nmUTYYIM+0KAsI9uhpQ326/KTPIm+X6SKqFRs6aL3sCF/5NKP33oGm7umooxbq4ul3UTfsnZq\nY1PiqCsblOFv4Y9WOjfS4J/Qth32NYe/+5qr/zaDEsQbU6+Vuibjn0R/mFS+30Hoy4bxZNE3\nOHLEeBhonumI5B3+HounHhyNNZbhb6VSsaXLBa/L0qSYhHaYEEOtZnGtXfRveBYLMjBnuaZn\nQ6TpMTvbaoiUk5nKlalTB5HCYpyXF8gD5mSMbYPI0iTRn7AFzj3Pd97qyIqE5+YIOQaRthMD\n+AKRCooBfIFIBcUAvkCkgmIAXyBSQTGALxCpoBjAl4wisfoqoU3GAL6Ei7Qfnx2QH1uIX/ez\n8HK4/ngjBrAnWKTRmX33Yz+8aODV5jYZA/gSKtJeQKTVYwBfEk7tINJaMYAveUSa3iVmOk7G\nKwbwZdYjUgRMmy6vGMAXiFRQDOALRCooBvAFgw0FxWRFndbOWDvLe85BpT0mB0wLhkgFxXg5\nPT0N3pb1nbOfPn0K3XSySL7g3Fvvh5+4smGlGB+npxEmcRbp06dok/KXbi6RfPBqc5uM8XB6\nSpnknUS/arcRynTz5mQ8xszz84n16RNlkrsiSoG72hizB2nfBkBUlfjKgLCZhXD1d0ExHiwi\nDTJoy6Un5HTzfSuUH/Vl82ARyVKRcTq9vnCVsjVVFVtVzZjQ6kKkgmI82I5Igvw1j7PaydtI\nTa7SAoyWORu2I5Kg39gQSd3aUhVXVU37LG+tlS4LvNrcJmN8kH0kq0jSk3CRxjklQwuVAtlH\n8ovknjxffx0lkvfcDiIVFOOFGmvIK5K0/5wqUWMN9vOrSl03g0ha3cky5IJXv3yTMUnMJdLc\n53cGK4pkf2u1dFng1eY2GZNE0GDDsIBoPf2ZXCWolrgc0ZPoq0U3z9bGF/TySlm/5qld+U2X\nV0wSYcPfwmxd+izzyw1/03gn0Tcnz7fO9i8EWdVKjVGGv3FE2k5MEku399ngXZFZRUrZGzH2\nmCR4t78IeFcEIhUUk4R02pN17vnF4V0RiFRQDODL6iLdv39f2ZtX0+UVA/iy9mDD/futSUy7\n97xiAF9WFun+/c4kpk2XVwzgC0QqKAbwJVQk6Sa+/b57sVfu7INIs8cAvgSKpN1W3t0pq2yS\n9usO6SNFsO0YwJdEkQyxMGq3QAzgywSRVI+YtblNxgC+pIk0zH3SLcKUxYvEAL5MEUldxqtf\nvskYwJcJImnPeLW5TcYAviSJpI86NPBqc5uMAXyZIBJO7ZaOAXyZKJJ7ptUImHbvecVkxXsX\nQvBFL+veyVCpD9pLId1tMetNF7FXNshGeacs9tB9hKTuzavp8orxcu/eveBtvb952wZLePP5\n8+fQTfv5GvrbxNWXUmnnnWdixdso+osa1L15NV1eMT7u3YswibNInz/HmjROJES9lLebifVE\nGi6zU/fm1XR5xXi4d48yKWTyE2OyE3nyD225Mgf4MMN21tOmz58pk5wVCRBp3HgO1rv6O1yk\n8kcJlhlssIg0To+jLleeVMRjZVku7NvkwSKSoyLS/8RLbeNZgEgFxXiwHZEE3f6kub+VJqeL\nI4j1tm3yYDsi0e/hEUkaVOEw2OAnurEE95HKN2Ch4W+yj+Rqf+oGQ0ddaJJIU2oPmxrTbGc/\ntyMLbDm3Iw6e8rFTC5mDFUUKHrUr34ClPkeixhrCRZLPnmRJtJMkuXnq2+SCGmtwiFTJj+rL\nTYiUsjdi7DFJxIhk7RP5RMrbR6KZKtK8ZYRIBcUkETTYQE6QLZ8gmedN5rnU3CJZj3paJ804\nXJIvM7O8SPIJHYa/o2KS8A5/2yfIVuf+HpYrw99i6DTNf0SydcOcIjG7ssFP4K9bHmKQnjNt\nurxikpi5eS8H74osPdggD3rLz5l273nFJMG7/UXAuyIQqaCYJPrzHZ5TZkfAuyIQqaAYwJfF\nP0dK6COVbwBE2jwYtSsoBvAlVCT53iN5ptVxC15tbpMxgC+BIil3yO6JZVG/7vvffntfW8S0\n6fKKAXxZQ6SDR4ZJTJsurxjAlwSR9sQyEdGhbjzSTWLavecVA/iSIlLfRRqXWWZahUh5YwBf\nUo9IexyRlo8BfEnpI3XPk+e1+/abb6L6SOUbAJE2z6wi0dy/fzAJo3YJMYAvs57akahzNRh7\n82q6vGIAXxJF0gYbaiDS7DGAL7FXNshXNMRe2VDrczivg0ipMYAvC160Wuvzbfe/7hHX7j2v\nGMCX5URqPPq2M8m+N6+myysmM4m380TtwuV2odlZQyRTI7ZNl1eMl6+++io8tpJ+xu2TtsO2\nnYJIBcX4+OqrCJO0GUPidkrZASKF4f1137f1j5S9eXXvecV4+OoryiT/LEL6vEHEC3nq/Ipe\nJ6hJ96XZh5TJ9+ed0WcNlryxrx21Iz3i2nR5xXiwiOSb106fya6iXojx0bqO2tYzH952WP4O\nWc/eiLHHeLAdkQT5a5YPNN3rSt6+MnaWRKI2pLYlJByXbQqIVFCMD7KP5BRJdMcSY0p8Q6Rx\nC79Imp5SujRZY2ilCmG5wQYxTNFAnd4x7d7zivFCjTWEiGRsaogkGeQViTjFk1f1L7el0pIi\ndVc0UBc2cG26vGKSyCKS3keyrbM+CkOkjZ3fLSjSfQXb3ryaLq+YJKxzz1fDT38fqT8bCxWp\n0h7JPhJEIoFIs8ck4Zh7fhiD1qfEJ07tunHvfvhbW1cR27om38fwtx3Pr/v+N998038gi4tW\n02KS2FZ7ZctSItUe1TfGfns/vo+UUohNxiQBkRZhIZFajw4m2T6UZdp0ecUk0f2Gmc49vxkW\nFsl2hRDXpssrBvAlVCR9yuL+MXDyk0kilT9KsOZgA1iEQJGoORuUyVB8jUXqI5Ewbbq8YgBf\nlhKpnoPrG2KqYmNvXk2XVwzgS4JI/QLVI98RyXk3EtumyysG8GWKSGMXyTJlscQUkSLYdgzg\nS6JIsdNx3a9HvrvBBtIlpk2XVwzgywSR1CfOX/fhYFR3kb4ZLmwwtmDadHnFAL6kiUQ9c/y6\nm2nz1UuE9E2YNl1eMYAvSSLtiWWuDnUn0nCdHW6jwGDD1kgRSZu6uAMizR4D+BJ7ZUM/Whf0\nZcxtY+m+D6m70I6+ZpVr0+UVA/gy//1IvUff9l/BHD1qV74BEGnzzH7RaucRPXU+sTev7j2v\nGMAXiFRQDODLAiJ901+v2pzaYaZVil9/+eWXX3/1xQC+zH8/Ui9S+8WxtuNSqQbkiTl49PPP\nVpMgUgHMPtjQ34nU3o1kPcNj2r1fJqbxyG4SRCqA5URq+kkQiYqBSOUDkRjEQKTymVekgzOK\nR2l9pKHNPXr0KLQQcxrw7t275v+JMQeBDvzyy68HkX5GH6lwZhVJ8qi98FtMGrV79Mhr0hKj\nBAeH3v3rXYhJntLUGv38SzNeVz9i1K5k5hRJ9qgeaQja295qHj3ym7SASI1H/woyyV2axqOf\nu2OR1SLb3oAXECk2BiIBgtlE6j+IHfnW/qUuJYn0rx9//Nc0kVqBfm5//tzJ1OrkjgF8mUuk\nxqNnqkmOi7+DRgkm9pHyDDa8e/ZjbdKEPlLr0bOfTSwmQaQCmEmk9nikidTP2JB8GwWDUbt3\n/3p2OCT9GOQRHdMdjyiRLCZBpAKYOtPquMUCIvlZRKT6xC49xhDpF4i0ASZMEKnfal6rIhRx\n0kT6+9//Xv//97//P/Ho8OPRoyQD/u/58+ei/n8gKebH9vFd706iSPUot1AOPhBpW2QWyUp9\nh2xYH+nvOv4TOirmf//3+fNapueuzf0xPzYmvRvleRfukSzSz7/88rNOM8xQX/eNPlL5LCSS\n+Lb/QNY7ameIFGOSLNL//t//pZoki/RjJ49kUqBHikhUh+iXg0dC1J/I/oJRu8LJI1Iz06rl\nUBT2BuWIlBRjHo2cnxxZYgBfZj8iQSQBkY6AWUV6FuyRs4/0LE8fKW2wQe8jpcWofaT6lO5Z\nsEcQqQRmHrUL9aiYUbtUkaRRu+Yq1V8xi9C2yCiSuRenD4C2EAP4ApEKigF8SZhp1XZlwzQQ\n448BfMHXxHv52vnStzp3DOAJRPICkYAfiOQFIgE/EAmADEAkADIAkQDIAEQCIAMQCYAMZJyz\ngdVnl5liRP2xs5A/d04lUwxgyvxf6xK5N6+Y/lqoUYG9ej2HLkj9ivIlUwzgCkRyxhgG7KWf\n5Grtu94zxwCuQCRnjNHkJ4iUIwZwBSI5Y4TQmjRhgAgyIFMMYApEcsaYGJ0bobR4ffXMMYAL\nEMkZ05KpScOMDQORnDEtEAn4gEjOGADCgEjOGADCgEjOGADCgEjOGADCyCfSrkPsUvaeaED/\nnq6YnfqgvRzLP64DIJSsR6S2/YW3QmnLBY5Ifem6R+2lVJgdjkggliMSqX27Xf9Avuy2g0gg\nkllEak+QRH+iJJrzveaFskb+OTRdfaehofdr5C2GxH79GEOUMFQk9JFANHOI1LXsoYUO3Q5j\njRieK4eSnba9sZOxhbS8iyFM2qn/Ey/lQgAQwVyndkTLp9fYRKJ3IkIUkcaYeJHGwYa08RJw\nzMwpUtcu40Ry70SEhIskveXOfIkjEpjA3EckYXXCcUSy70SERIm0kx/VlxAJTAAimSJh1A5E\nU0YfaUfEkSINNpAiqTJSqgutNACEMaNI4zi18WO4gmAnrMPfYsjrxsCN4W+hWuUd/vaIhCsb\nQDq41s4ZA0AYEMkZA0AYGxZpp5ESA0AYGxYpRwwAYUAkZwwAYUAkZwwAYUAkZwwAYUAkZwwA\nYUAkZwwAYeD7kZwxAIQRLpL63T7yYwvR+J6Fl8N1KFkxBoAwgkXaS1+VIMYvIRlN4mUARAKL\nEirSXkAkAKwknNqFixQBBhtA0eQRaXoHHSKBosERyRkDQBgQyRkDQBizioTBBnAsQCRnDABh\nQCRnDABhxIrUfPs2rmwAQAUXrTpjAAgDIjljAAgDIjljAAgDIjljAAhjVpEw2ACOBYjkjAEg\nDIjkjAEgDIjkjAEgDAw2OGMACAMiOWMACAMiOWMACAMiOWMACAODDc4YAMKASM4YAMKASM4Y\nAMIIntduvPdov+9e7JUbkngZAJHAogSKpN0N293gp2zCa5QAgw1gURJFMsTiZgBEAosyQSTV\nI2YGQCSwKGkiDVM2dIsw0yo4cqaIpC7jNUqAwQawKBNE0p7xMgAigUVJEkkfdWjgZQBEAosy\nQSSc2gHQM1Ek9wSREWCwARRN7JUNslHemVYjgEigaHAbhTMGgDAgkjMGgDBw9bczBoAwIJIz\nBoAwIJIzBoAwIJIzBoAwMNjgjAEgDIjkjAEgDIjkjAEgDIjkjAEgDAw2OGMACAMiOWMACAMi\nOWMACAMiOWMACAODDc4YAMKASM4YAMJImLJYyFMWj1vwMgAigUVJudV8TyzjZgBEAosyq0gY\nbADHQoJIe2KZ4GYARAKLkiJS30Ual1mmLIZI4FhIPSLtcUQCYGTC9yNhsAGAHojkjAEgjFlP\n7SKASKBoEkXSBhtqeBkAkcCipExZPDz3XdmAwQZwLODqb2cMAGFAJGcMAGFAJGcMAGHgNgpn\nDABhQCRnDABhQCRnDABhQCRnDABhYLDBGQNAGBDJGQNAGBDJGQNAGBDJGQNAGBhscMYAEAZE\ncsYAEAZEcsYAEAZEcsYAEEbqTKv9IyY/AUBMutVcmcOBmwEQCSwKRHLGABDG1FmERngZAJHA\nokwRaewiWWZajQCDDaBoEkXCLEIAyEwQSX2ysgGfPn3KEZNlb3CEpIlEPVtVpE+fWpMgEliH\n9z3aKgAABqBJREFUJJH2xLJVRwk+fepMwmADWIeJXzTGZIJIiARWJmGm1X3wd8jOK1LXLeqe\nQiSwJuXej9R3i5QXEAmsQ7EXrQ4HoeFlUoynNACEsRWRUmM8pQEgDIjkLA0AYRQrkqA8gkhg\nJcodbBCERxhsACtRsEhLxAAQBkRyxgAQRhkikQML8THxpQEgjCIGGw4S/fe/QSZhsAGsQwki\nNR6FmQSRwDpAJGcMAGFAJGcMAGGwH2z4448/nuXpI2GwAcwHd5H+qEXCqB3gDnOR/mhE+mNq\nTHJpAAhj6pTF4xYQCRwxE2ZaNeZs+P3335PLMRpQq1M/+fTHSEJM9/j58+cppQEgjIwi/f77\nBJNUkf5I9MgQ6fPnJJMgEogkt0ipJmki/SF7FDTMoMc0Pz9/TjMJIoFI8ojUTFk8l0j/hUiA\nPbMekZIGG0yRnuURCYMNYD5m7SOliyT1kf77acLgn3xAgkhgPmYdtUsWqX7yaTixmzKKLp3Y\nQSQwHzlFMsCNfeBYyCjSNHjGABBGwpTFlisbar52vvStZhoDgJ9819rV8DIAIoHFgEjeGAD8\nQCRvDAB+8ooEwJECkQDIAEQCIAMQCYAMQCQAMpBVpP1e6B/Rlh8DQAA5RdqPVw61r7VLH7SW\nXb+iGjqvGABCmFGkvfSTXL1XVjONASCEzCKJPAYwigEghLx9JKE1Vddre9PlFQNAAHOO2hm9\nEqE0VX11GTEAUOQWKVNb5BUDgA+IBEAG8IEsABmASABkACIBkAGIBEAGIBIAGYBIAGQAIgGQ\nAYgEQAYgEgAZgEgAZGBmkaoq/xuokU/3xqKwHdO30Xh9kbIX8XYXrxNTwPrMK9Lrg0jZW4fa\naptXa4r0Zp+kH/V2+zeJMWB15hXponpYXeQOJURK2TF9G5X902wiPcVFtsUyr0hVdVM3lZvq\nrHl5Vr0XNxdVdXHTrHu/Pz/8QX9YVfvLeu31eXX2umlZwzZdSLOhtKMYd6uak8f6fYi3aBne\n4bDlw+r8uo8Q7Z7XD8f3f6iGK2v7J1r65XBqeV2vuFZr0vBkX509VTLkIsmJ7VpQILOK9Ppw\nOLqoz+0eVnUDu64b+75u+nWjr6rzw+r65O/AoQHd7NunQtqmLWKzobyjGHfrRSLfoitE/w7V\n4fh4aMA3qkh7+f0fKuH62oNoevpN1fvQblGnSzWpuWxePJUy5DdQEi+r0VBQFLOKVEtUy3T4\nUTe3y8PLJ/Wzy7pZNQ3pcAR5IcT7uj09qc7FzXn7rN+mLWKzobyjvFvfR6LeokHe9PxGnA/t\nVwzLnlb7eo/+/bU9urUX4g1RuCdNH7BeUe/fpo816cp/fdhVzlBLLyW+rp7M+fsA8zGrSONA\nwFlzY/e+bkPNiodt+6q5fv2ka77X9RGlkrfpUuoN5R3l3Yb3IN6iY9z0ujtmKad2/f7D+2t7\ndGu7Y4WW/lDf/0xNqstUdcNxZ+PxRi69lHgtlRoUxZwidWcw9d/sp9Wbwx/jJ22fZjgdqzlX\nX7fPlFOjfoWyobpb/YN4C2F/B9cz+x7CWjhLUvPPcDh1O7uWl6hvICfO8GkBWIQ5f3EXXQu5\nqLsSF20HQBfp4tAPf30dLZK2WzuiYbyFsL+D65l9D2EtnEOkw1ncWVWPbFuKBJG2wJy/uH1z\nKnNTdw8Obac9bTkb3lBqOTfUqZ1QN1R3HHcbTx/Ntxh3vyFO7TRVxvfXwqlTO61wzlO7mqdK\nhvoGciJEKpUZf3Fvuo+QLg7nXHUnu344HDMOPesXdb+8b4Jvuo5511mv5G3aIjYbqjuOu40i\nmW8h1Heo2kGAJ7XiL+Tduz5/MxRhhou+TO+Jwo19pHGwYaxJw/4Q974dbLjshxjkN5AS0Ucq\nlhlFuqzaD+pfd8NzzQBvNzT8fvSjP68ZB43HbdoiVuaO425VNVxZYLyFUN9hHP5ulj1RVRmH\nv+U9+rXX/Ri1lj6O2nmGv59IGeobSIkYtSuWGUUa5ltsnjyth3xF+7HleW1Y19Cal+2p1nl1\n9qJ91m/TFrEidhx2ezqKZLyFUN+hqj9tetiMFV7uD01W689cP+w/kJX36Ne+P+8+blXTx8+R\ntA9kX4xnaYc32zeCDBnqG4yJ+BypWLidk1elXSVzafsXTKlJhSsbSoWPSE0H5zL/pXlzU19r\np5JcE1xrVy58ROo6DtdrlyOWN0brT64Jrv4uFz4iiadnfR+jLF4bh57EmuB+pIJhJBIA5QKR\nAMgARAIgAxAJgAxAJAAyAJEAyABEAiADEAmADPx/xM1so0CrEFkAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_taxa_prevalence(gil, \"Phylum\", detection=10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAz1BMVEUAAAAArvoAt+gAu0sA\nv3YAwJgAwLcCuOgCwHcCwZkZtvoZvuoZwl0Zw9YZxYMZxqIZxr4aGhozMzM9of8/ov9DvRlN\nTU1Qqv9oaGh8fHx/uBmMjIyPkf+XqQCYqgKampqanP+hsRmnp6eysrKzoAC6qRm9vb2+gP++\nvr7EjP/Hx8fKlwDKmALPoRnQ0NDZ2dnecfnecvngmBnhf/rh4eHp6ensgjzsgz7ujk/w8PDy\nZefyZufzdOn4dm35g3v+cNT/ZLP/ZbT/c7r/ep3////no9c5AAAACXBIWXMAABJ0AAASdAHe\nZh94AAAgAElEQVR4nO2dC3sbt7Wucbq9T9XEkcPYpqRot47lxsdxLLuJrdZqfJLUmf//mzbn\njsvCdYDhwvB7n8ciOZePgIVXMwBnQNEAABYjjl0AALYARAIgAxAJgAxAJAAyAJEAyABEAiAD\nEAmADEAkADKQT6RvloEYfwzgS0aR8uyNGHsM4AtEqigG8AUiVRQD+AKRKooBfIFIFcUAvkCk\nimIAXyBSRTGALxCpohjAF4hUUQzgC0SqKAbwJatIO2XBTnts9A20vYcn5jbEXrYgf9O1F4GK\n2XWE7KLn76ylGROJ/x8tatevg0gVkFOkHd0mAkTaSU1X3ciyhz1oKk3EXgaaAREmKxtQIs0S\n+USatoFIFQCRKEqKND1ApC1RQqTh3GXXPx0f+0XjaY3yKJ8+qSG7IUDf0RokxQz7W8MciYRI\nVImlXelaqzGNvGh+R+3/Ry+tVCnAl4wiTY2iaca/uGM7mBbtplXao9x0tRByR2vQwG5qgjtL\nmCdxKo1ZHilK2dWoNXFEkkXaKXtQSdr/DeBLKZEaezvX1zdWkRqpNYUGyU+orXbaOlvi8EQZ\nbNgZ5SLzpqcekYg99JJBpFrIJ9Ju/Bkk0nD6Mm2qtDmzwYYHyU+orfwiyepIfSTzjUbLrCJp\nMUoBw0XCqV0NZBRJaVeNu/3LTbpRRDJD4oLkJ9RWXpF2cozURzLfSHlTHJFOm+MckXbGpolH\nJDNIfkJt5RNpp8RMIlFvlCLSuNOO3kMvGUSqhexXNuz0BmIbbFCWayPFO7M1aY/WoGYsRqMu\nDT21G7eVK2V5I1vzn7YN+BwJIm2EAiIFDn8ry7Wmu1PWyC3MFzTGKE1yStHCjD3lIjdDvKPE\nypuGDX/PG2rqWpIaWWvAF1xrV1EM4AtEqigG8AUirRGzG1kWA/gCkSqKAXyBSBXFAL5ApIpi\nAF8gUkUxgC/hIu3nZwfkxx5ebW6TMYAvwSLNzuyHH/vpRQevNrfJGMCXUJH2jVckVt+AsskY\nwJeEU7vwI9Kr8HK4/ngjBrAnj0iWv5v1N11eMYAvOCKViLm9vS1RGsAXiFQg5va2NwkinQ5F\nRYqA6ThZUszt7WASRu1OB4iUO+b29g1EOj0gUuaYg0Fv3kCkkyNWpPYnrmyw0ynUmVSgNIAv\nRa+1q26UYHlMf1b3BqN2pwZEyhvTHo4GjSDSKQGRMse8aSlUGsAXiJQ3BkekEwX3I+WNmT5D\nKlEawBeIlDcGIp0oEClzjOQRRDohIFLumNkjiHRCYLChohjAF4hUUQzgC0SqKAbwBSJVFAP4\ngsGGimIAXyBSRTGALxCpohjAF4hUUQzgS/AEkfNNfPv98GKv3NnHq19+hBjpk9hCpQF8CRRJ\nu618uFNW2aReA/LEyNcGFSoN4EuiSIZYFRuQJ0a5WrVQaQBfFoikelStAXli5hlPCpYG8CVN\npGnuk2HR8qnemXbvQ2OG+/kiREopDeDLEpHUZXUakCemnzroTUwfKaU0gC8LRNKeVWlApphx\nEq7CpQF8SRJJH3XoqNKATDHt0Wie86RYaQBfFoiESfRH2qPRj+aZHQYbToiFIrlnWmVvQJ6Y\n9rzuxx9/xOdIp0zslQ2yUd4pi7kbkClmGmqASKcL7kdaHgORAC5azREzTPcd1UdKKQ3gC0TK\nEdM6ZHoEkU6IikX6+PFjjpgspeksijq1SykN4Eu9In38SJh0zA9k4661SykN4Eu1gw0fP1Im\nHetzJPl7+sqVBvAFImUoDUQCEClDaW77S4Qg0glTrUjxfaSyIr2J7CNBpG1R72ADn1G74fNY\njNqdMhWLxCNmuqjhdngpyQSRTgeItCxmuvC7F0g9vYNIpwNEWhTTHY/mWyi0D5Mg0ulQ72AD\ni5hepDfjzbERImGwYVtApEUxg0ijOxDpZIFIy2K0SU/C+0gQaVtApIUx3Q0U8svAUTuItC0S\n5v5u5Lm/5y3qGiWoMgbwJWXOhj2xjFubWzGGuBGpUGkAXyDS0hhi8vxSpQF8SRBpTyxrKjQg\nTwx1H1Kp0gC+pIg0dpHmZZa5vwuOElAX2iXELCtNO9Dw4/BxLOUTBhtOh9Qj0v64E0SSl37H\nxywrTXd5UEt/iVD3s2hpAF8WfNHYEUWib0aKjllWmsmj3qThVoqSpQF8gUjJpZFEuoVIp07R\nU7sI4vrlSSLlLo18ZteK1M9aXLI0gC+JImmDDS2rDrel9JGyl2YyqRtreNMZVbQ0gC8pc39P\nz494ZUPCqF3+0tx2Y3Y/dt/nIl8EXqo0gC+4H2lRzPwpEua1O21w0eqimHHu/GHubwx/nywQ\naUnMeBOFZRZ9iHQ6QKQFMcP3uQyndfjGvlMGIi2I6Ya8f3wzCVW6NIAvGGxYEDN8Hjt4ZHyp\nOQYbTgiIlB5zO13YQF3WUKA0gC8QKT1mFmkavStbGsAXiJQeI4lE35UEkU4HDDYsiLkdPbLc\nJ4vBhtMBIi2IGUftuufEXbIQ6XSASAtiXLeZlygN4AtESo9px+qmI1K/BPcjnSoYbEiOOVjT\n345kmWcVgw2nBERKjbm9HUft3tAzf0OkUwIipcZQIinzgEOkUyJ1yuLx8XTntSNE0u/tg0in\nw4I5G5TJUKoaJcgTM3SR+s+RugUxImGwYVtApPSYUaTpdcypHUTaFkun45qpyIA8Md2Z3Rvp\n9omowQaItC2WiDR3kdafsvj4MbfjXFzzqpjhb4i0LRJFOvZ0XMePma5YVRZiXrtTZYFI6pNq\nDMgUMw3ZrVgawJc0kahntRiQJ2YcaIBIoCNJpD2xrBYD8sRMHv1o2aBIaQBfFn5jn3umVZ6j\nBBliZo/MiRoKlgbwJWHK4n3wlzFnNcAySXFsTJbSzCd26h3muPr7ZKnmNgrbtPmRMXlKI4kk\nm4Th79OlFpGsX+QSF5OpNG/UI9JgDz6QPWFqufo7g0gZSzN/w9htqkgppQF8gUgpMfMX9XUy\n9V+RBJFOmVpEytBHylea+f6JafRuNqlgaQBfqhFp+ahdttJMVwcpDCaVLA3gSy2DDZxi7CIV\nLg3gSyUiffzXP/8VcEBaSSTKI+MLZAuUBvClDpEOHv0zyKSVRXqjeITvRzphqhCp8yjIpDVE\nsnuEb+w7XaoYbBhE+udH74jDCoMNxInd+LFsjEgppQF8qUOk3qPDIck3Bl5eJGqk4SAS9V3M\nEOmEqEKkf/4z1KTiItlG7KjvYoZIJwREioshRXpDnthBpFOC+WBD1zl6pYj0L9eYQ9nBhs6a\nVxaTVigN4AtvkfpBhleaR45jUlGRfrSKZLm/DyKdDqxFGgbrXuke2U0qKdKPDpF+hEgnztK5\nv+ctyovUCuS5ChwigeOwYMpiffKT/7+kHHOb+6eVKJF+zlMa0pp4kf6epTSALzlFWmJSgEi9\nP+5xO0mkJSZFi0RPgSKJ9PccpQF8ySrSApP8Io3+OMe/ZZEWmBQhUjcebplKSBbp7xlKA/iS\nR6Ru7u+SIgVd+t2sKVJcDETaOkWPSEnde9OiV3lESiqNadCrPCJhsGFbFO0jZRMp1CNnHymr\nSJEx5gEJIm2LoqN2eUT616tgj5yjdjlFio35e5bSAL5kFMnci9s94rXHAL5kFGkZiPHHAL4k\nzP1tubIBgBMm37V2AJwwEAmADEAkADIAkQDIAEQCIAMQCYAMQCQAMpDxVnNWn11uMgbwpYrp\nuBADuAORKooBfIFIFcUAvkCkimIAXyBSRTGALxCpohjAF4hUUQzgC0SqKAbwBSJVFAP4ApEq\nigF8gUgVxQC+5BNpdyBkM3ox3ebIxJ01RNp7N0Buqy8yNlFibO9FF42M0YtlqYHv/wbwJe8R\nKaDR+RqLvN4aZ1uxI2JiRDBKE9mG/SLFlmQXXwhwDDKf2vkbiveIJG0AkSBSLWTvI+3Gn8NZ\n0a4Zzo4srxvtVKcTaVgm/ez2G39YQ+bzMEWk3bhkyhoTptfK20ilmcPkt9XqZ6ucQ6SdVCO6\nHGPcDiLVQDGRpsY3tVzL6/5ROSLJ69T9ds4Q2xHJ2EyP099GM0BeaasfVS6PSHMRiHLo/wWA\nN/lH7eRfvaVlGOubAJEa8oUSIoskd+t3+mZmnLRKjyHelgxqjBe2wQaiCHQ5IFI1FBSJboRS\ny5HP6VSRpKEtZZjLE+I7Io2jgOEi6ad29vopGzbaOZnl1K7xlQMiVUOBz5F2SoOziiSvp45I\njdqKaJHUEK9IjXFSGC+SpX5qIft/EOl0KDBqt5P+aAc+poqkhQSIpDTYJSIZThPlg0inQ4HP\nkeaGRp7aSX/Jd0Sb0xup2WDtIS6RtLKQDXh6JETSBxr0TCNlwamdVmSIVAElrmzYja+V5kKM\nEEvL1TanjAEr48HN0MzIEOlKCPXKBn0zov3Lb9MoMVpdqPoZhexXJogkD+j3fzIw/F0FJa61\nS/kLyvTqNjImuH641u50gEjxMRAJGBQY/k46pa9HpIj6EZ9qLSoN4Atuo6goBvAFIlUUA/gC\nkSqKAXwJF2n+3mX6y5h5tblNxgC+BIs0OzN+u/n0Lec9vNrcJmMAX0JF2jcQ6egxgC8Jp3Y2\nkVh9ldAmYwBf8ohk+XW/Ci+H6483YgB7Mh6RzF3qb7rrx5yfn3f/qBjAF4jEK+bg0PnZuWoS\nRKoAiMQqpvPoTDMJIlVAUZEiYDpOtnYMRKoViMQqZhTp8I+IAXyJFan9iSsbysX0faTuoGTG\nAL7gWjtmMe1JnXZyB5EqoKhINXTvWcUM9pz3OPYG3IBIjGJGfSBSfUAkPjGzP4pHEKkGIBKf\nGOlAhOHv2sBgA5+Ybuj7wdlwSCJiAF8gEqOY1qMHZ/3Fdji1qwuIxCjmvPWo/TgWgw3VAZEY\nxXRXNUCkKsFgA6OY8wc4ItUKRGIUczizQx+pUiASn5izs84kjNrVCETiE9N1kLpDEm7sqw4M\nNvCJ6T16cNZfs0rEAL5AJEYxg0ftP/SRKgMicYrpP0eCSBUCkTjFnE9ndxCpMoJnWp3vht3v\nhxd75RbZGrv3zGL6i+26kTv0kSojUCRtfobhlnNlkyqbLquYbrRuHG2gYgBfEkUyxKqz6fKK\nOe+nPtFHvyFSDSwQSfWoyqbLK6YXabi4gYoBfEkTaZpEaFi0fKr3ykcJ8sSMIj04UxZDpApY\nIpK6rMqmyyymu/y7OySRMYAvC0TSntXZdPnEDLM1nJ3pYw0QqQaSRNJHHTrqa7qsYoYhBohU\nKQtEwiT6GWOmiU/ODY8gUg0sFMk9ZTHrpssrRpqKS/fII5Loefahe06sDi0tWELslQ2yUd65\nv1k3XV4x3XDdmfEdY7a9JcTIB4h0RHA/EpOYs+HKIMIkn0jdw424gkhHBBet8ojpP4g1b+rz\n7z2a0j4e/t2I/U1zLy7bRe3DsHje4FpcN3eX4vo+qirAA0TiEdOP1i0X6bo9ybs56PT2sOi1\neGGI1G7w+rLtVMXVBbiBSDxizh/0R6Qz/dNY7969JffPWjOEuLpvXoh986E90TscfN4ZIj07\n6HUw7TVO+fICkXjEnPd3T0yzn5AxJNNgw137/K7pjbnuxh72jSFSt9U9+k65wWADi5jhPqTx\nrj5LDElv0V4a/m5/fjj0hN72BymtjyT/ANmASCxihgsahrlPIkXSn3c/L8Vd11GCSOsAkVjE\nnE8eJRyR9Ofdz7fiZj8K0y24g0glgUg8Ys4nj+L7SPrz/uel6AYc2hd78bq5v4JIJcFgA5OY\n9sqgQSRrDIlNpLfioE//4qbtRb2ASCWBSGxizkeR9A+S0kSShvCaw1neC/SRigKRuMSMd8c+\nMD6STSvEu/7qBrAOEIlJzPl8d2yeyU+uuosbwEpgsIFJTC/SWa5ZhEQ/1ADWAiKxiDkfPkEi\nr1tNEWkvrhP2AslAJA4xQ+/obPwmCtwhWx0JUxY38pTF8xZ1NV1WMefjJ0idRmdxo3aABSm3\nmu+JZRV27/nETCKddyZZYwBfIBKDmPEDpAfmDELLCwFWIUGkPbGsqazp8ooZj0hnxvz5GQoB\nViFFpLGLNC/DlMWLYoaPYvsrV3FqVyWpR6Q95rXLFzMN2j0wh+zovQE3Fnw/EkTKFSP3kaKn\n4wIsgEjHj5FHv8/OzE0hUgXg1O74MZJI1PyQEKkGEkXSBhtaqures4qZRCLujl1eCLAKKVMW\nT899VzZEUKUBuWJmkcy5uBYXAqwCbqM4fsx0R5/5rZcZCgFWASIdP0Y9tVtRJEG+ErYNgpPW\nxf/eYoWa4Orv48ecneU6Iv3666/hpTv87snffoBIxb356quvgrcNKkzxmkCko8fIZ3bL+ki/\n/hplEl+RvvoqwiSIRO59ejHn5/IRyRXj4ddfKZNEe7csuf0okug36KdEEeOjkPcVyqP8s9tG\n3icDX31FmWSriFRurbxirmZSTWJqBJGOHnPmOSAtFWmUREdI/4ZuxDSj5LhITKuMR9s2GbCI\nZKmIXG61LLJICTWJqhEGG44dc+4Z/F5+RGroX7MiUmNtZsb6Rmt+2jYZsB2R6DfwlFck1wQi\n1RRzLg010B4t7CM52l+jtym7SPK50nQ2JQSxTQ7IPlKUSHPZdJHCazIuDwIiHTlmFsmi0dJR\nO2v7U9pP4xZJPumRFin58sKlUGMNMSLN/wS9JqQmUZWBSEeOUYbs2v5S7s+RchyRhLmp0fyi\nToRSiBBJUkI4tmjcNeEjEtfuPacYWaSezPcjWfroc+uR2o0Ytp8WSc1QaE2ManZF50EOGWww\nyrKkJlF/GiDScWPkLpLNpKVHJPJEXz4OBQ1/K8uFupuybymChr/1ssxyJNQEw9/1xMhf51JK\npI3gq8hxKwqRjhtzbnoEkWgcFSneP/NTVKSUvU8t5tzrUR6RhMaizKPgqsjxawSRjh2jjzbg\nNooqgUjHjlFFwq3mlRIqkj739/iIW80Xxuindrixr04CRaImP1FmFaqne88rhugiYV67GoFI\nx42BSBshQaRxgepRNU2XVwxE2ghLRJq7SJa5v1k2XWYxukcPHthjAF8SRcK8dpliTI/Mm2Qh\nUgUsEEl9Uk3T5RUDkTZCmkjUs1qaLqsYwiOIVCVJIu2JZbU0XVYxukKkRxCpBlJE0uYAH6im\ne88oRvOoG8JzxAC+xF7ZMI7W4VvNc8SoHrUXguNrXSoFt1EcMUa7XrW7oQKXCNUJRDpejHmX\nOT35N0SqAFz9fbwYQ6S1v4zZPpODe1Fo2jq43ndJffKVIo4ami6vGOqIRM2iH16Ijx8/RhRP\nm2LB0hRsLaSoN19++WXwtpEFhEibi7GIZI/x8fFjlEl8RfryywiTIBK59+nEmNerPqC/+zK0\nEB8/UiaFTqIv6InojdcrTKT/5ZeUSa5ZhKR6jNuN9dHrYalPX4ek+fPVUiymhu49qxjLiV12\nkaaZpvQV0j9pijdjKnn9tbo5uc1CLCJZKiLkR60wVD1s9dH/L+IqApGOFUMdj4qINP0gVsht\n0yGMvI22ObnNQmxHJDrcEEl6FPbVDbG5sTAciHSsGMoj8gv7FvaR3O3PNMMu0noT6ZN9JK9I\nWmGmPxRC2d2ojzoFesL8+UoplsO/6fKKITtIi74fiR61s7Y/YhJ9p0jEX3j9r72ycAnUWEPQ\nEalRCz44RB49qSOWvjCcoiKl7H0qMbbjEXFut6wQuY5I+ikQJVL8GVEE6SIF14c4z4sqXRbY\nN11WMfSJ3VnrkWHSQpHoo8TcfrSGZzQ0aflRJ9IPHmyw1Ieon14fY2FE6WKrY4V702UVQ3r0\n4MH52Tlh0tIjUugk+uZE9ELe/9gT6VuHv6dzVLUw1uFvrazybknz5zdjYh6YN11eMbRHZ2VE\n2ggLK1L4/6GkSM9fPY/fe51RgqdPny6Iefjw4ZLSdNLQo3bdeANEIjlZkZ4fRAo2aV2Rnj51\nm+SOefgw0CQ65oFLJGrkLotI255EP3z3UoTG26YsnrfQf93PO5FCTVpVpKdPPSY5Yx4+DDWJ\njHngFom4SGiZSGAVAkWiZlrV52z4a8/h6eHnQaHnf3v1twSRvjXWHVOk/5KW9vYkiWT6oorU\nnI9X3hHXNkCkCsgv0l+b7ufzv3UkiGSaFE7YKEGMSLNJoz55RFKBSLVTQKSBv/01VaQFJgUO\nt4X3kf5rMmn2J6GP5POo6U06Iy+2g0gVkEekbspiXaTOI54ihY/aUSIljNp5PepM6kbsMGdD\nlRQ8Iv2t7ScxFSk4hhQpPsamEHltnTUG8KVcH+l54vC36dExrzY1+0hJMaZCr4I9gkg1UG7U\nLvUD2RVG7SJiiFG7lBhapDCPIFINZBTJ3IvZjQvVxwC+QKSKYgBfYq9skKcq1q5sWAZi/DGA\nLxVecwUAPyASABmASABkACIBkAGIdMKE/PKPNHFBzJtO9yUdszFDpC3x888/R2ztnV4hunEI\n8mkCX3zxReybuuf+iS3OkqqD2vn55yiT+Ir0xRcRJkEkkJeff6ZM8k6iP8yAP07E0y1SpqGn\n1jXUXPTS/DvKvD6xc/J88QVlkmcS/WmGLap42jRDc33EtK99+6DiZ5yzgdVnl5uM8WARydZ7\nGJcL7Yc0odXwQK6jtjX3VbYJxSKSpSKKSM7iKesGpYZ99aJGFz+jSHn2Row9xoPtiNTQv2bR\nqO1F21QSSV5Hti5iudESI7AdkeiKmIMNenEaojj6HwvtTaKLD5EqivFB9pGs7W/8SYk0zwru\nF0maQVyMzXo8Qk2TSYZWoYfsI7krYiuOtCpIpNTiQ6SKYrxQYw3eP+SESFLr8ookiOXSqund\ngivRQo01hInkK45RYaEUNbn4EKmimCQSjkjUX2ubSORjY7TEDC0tSCRvcdJE8hcfIlUUk0Tw\nJPqaQBEiCe1RklALKFARUyRqavwgkZYUHyJVFJOEdxJ9U6RpPn1tWv1xnSC2dc2xn+frx7zf\nIasUXS8uNeW/rIhW1GMOf+fZGzH2mCTy/YaPTKmK5MmFSBXFJAGRVsmFSBXFJDH8hlPnnudD\nmYrk+p+ASBXFAL5ApIpiAF8yirTrsW/hWBXT5pbH7NwhQTFEgLFojnG/nQeIVAE5RfJtYdug\nXR4oku89gn10lcUbY9k5TSS/YxCpAiAStRwigUhKiLQbf4xnesPjrlFfD4/dz2+knZWtzU13\n9Lo5vl8mbTftPryDuUZ5g2aO+WZM04q0k+u3a3aW+in/N/T/gvxTqddYWKk0gC8lRTIed5bl\njdLmdvLWxC7WdTvlULIz31EWyVkW7YhEVYCql75cOSK5/hfUdTutsDgiVUD2wYZGa5z6a2mh\nvF79461ure2ir5MfZQMs77gLKItNJKIUrvqZp3a6unLtqXrtlNIAvhQ+tVNeS81EOnkJFGne\nJUkkfXdnWfRTu/FPhH4Q8dVPr5QRotQeItVMUZGaxjxC7Rqpiczb+0SSdkkRaf6nJ5BloY5I\n2juG1E89Imnv7BVpKixEqoDCIplNx9WU5hiXLAkiGW3TU5Zgkdz1o/tIttpDpJopJZJxErNr\n1L66aYccQ8kSeWpnvIO6k7MsEX0kLUvJNEQi/1eIN4BI1VHkcyRteJga+JXXK8PftlO7YTx7\nHNbW1o2tcR5FV7cb31FqsvaySJ2bsXOkjaLYhr+1d1P/OuhlV99RTZB+YPi7CjZ8rd2C9hdX\nGusbLa3UbtHeYE0g0vLSQCRgivTyWojm6kN8Ei+RnFfPZi5NIZGmGpQRKeF2HqE98iCiIsEF\nj6+htsf9ZVcmId5FJ/ESaZMxXm5vb4O3FcoDsca7a9C2aVxcXARva6mIe3qHsOURaBHPxE17\nz+BrcRWdxKvNbTLGx+1thEmcRbq4iDCJpUj93ClJN+DyanObjPFwe0uZ5J973jWBvGi06XfU\nyYLiJ5sP4eKCMilkEn29TPrcQMTM/2SN5f+VMMJFmr/A3PKt5uFvSsC06fKK8WARaZqBSls+\n/RwnpZIfp+faBmJIJLedY5dhEclZEaqwZs2EWVNbjSNrQ5/a3Yhn+oazM/vhx3560cGrzW0y\nxoPtiNTQ7U/to4t5I1oO4W+CgeX0Yjsi+SqiF5YsrVxNd43pt7OgbXm/70u1v9O22zdekVh9\nA8omY3yQfSRr+5NXz5OAN9MZnBDCbJvz3+15/dyQc6lE9pE8FWnMwhq1kDYIqXHMuZ2x5YtL\nIS5v7s0tE45Ir4KL4fzjjZhQqLGGAJHkkxlpkbo3cUTStm3yqUSNNaSIpK2YNgipsVY1D+Fb\nukSy/N2sv+nyiknCL5JLjkiRMp7f0QXOI1JIjW1v5ypdEDgiHT0miaAvugsYQBAR2xYhaBJ9\nd8nkgQRfLcZtQkunvb7ucy71PhJEYhCThHXUeB5sUIe0zQnn7cPfBebKj6+I9sxRMnn421lj\nuaahpVO4Gd/HGLVLESkCpuNkvGKSKNi014V3RbTS7ftrgz64PkeCSMeKSYJ3+4uAd0W00o0C\nQSSOMUlMv1GVRZlHgXdFtHJci2f3TXN/Q1xrt59+4sqGI8UAvmgi3Y0fyMbfR8GrX77JGMAX\n/ch4f9N9IGsO2nnh1eY2GQP4ku8Uk1eb22QM4AtEqigG8EUX6WafOhjCq1++yRjAF/MDWYjE\nNgbwxfhA9mVqEq82t8kYwBfLB7IJ8Gpzm4wBfDE+kCXuRAqDV798kzGAL8YHslcJHyF18Gpz\nm4wBfDFO7XIONtTfdHnFAL5ApIpiAF+KfiCbsjdi7DGALxCpohjAF0OkjUyiv8mY3Ew3Yo+v\n7RsS67jcCeS/xZ1cKSJqELChtgkm0ecc4+X7778Pj50l8olkmXWkIN999134xt5JV1z1ilnu\nLcSMdRJ96Sa+/X54sVfu7OPVL99kjI/vv48xSUwP7ET67rsIk4Ty4Nhi8fKAUkwvxfxPRrut\nfLhTVtmEV5vbZIyH77+nTPJPvjNtIs+ro89HP68T4z7hNYjku+8ok0Iqok1nREweNFVOmMuX\nzKmfKJIhFrc2t8kYDxaRLMcTYW4yWiLkvcR0RKJeFsEikq0iUwuXC2ibzk55TVTMmCf+2B8A\nACAASURBVOZO28YGfWpnTKJPiaR6xKzNbTLGg+2I1NDtz9yEaFOUSMPRaP0jkv1NpaMFcaoq\ntBdmJc39bNvY0FbZJtHXRJrmPhkWRU31TsK0e88rxgfZR8oo0vRJve/P81LIPpLnTeVzM3mR\nsqe0XliWD4vGyurbON9ehp5EnxRJXcarzW0yxgs11pD5iOTMzAY11hAgklZQQyTLqRy1n21f\n19sHQImkPePV5jYZk4S1/YnpIVak0qd2NJ6/CHrhG1OGoMeGFsn3tyNJJH3UoYNXm9tkTBK2\nPrr+OVKgSNQBah3sgw1NIx00PKIo64VleWPf11o6pUTWCSwpkTCJ/toxSdhGjZum0bs8Yl4m\n5A3mRrrO8LeltNaKTO1VHadXKyPm9XN95+2UyifMqb9QJPdMq/U3XV4xSazd3ovBuyKhpZum\nKZ5+BExZXH/T5RWTBO/2FwHviuQrHa82t8mYJMa+uMaizKPAuyJ6OW6Sy8erX77JGMAXTRjM\na8c5BvBFH1QQH67E3f0VbqPgGAP4ool0OBK9EG+be+L7kXzwanObjAF8MUV62062islPOMYA\nvmjCXIvXd+KyeQeROMYAvmjCtAZdtWMN5rea++DV5jYZA/iiH3neXrY3JYmb+CRebW6TMYAv\nmkgJsweN8OqXbzIG8EUfbLh8m5rEq81tMgbwRRPpUoj9i7QvpODV5jYZA/ii95Hu2u++vI7/\nOJZbm9tkDOALMcz97kaIy9fRSbz65ZuMAXwhPy+6y3StXf1Nl1cM4At1RHp2OCLFf5Usrza3\nyZjcBF6cHPxH9Vi3NOj1sJWjZPnIPtKzTH2k+psurxgvz58/D49VJ9B3bRi5PAM//PBD+Mah\n9ShaEXPU7vIlNWon3w0rz/09b8GrX77JGB/Pn8eYJJQH/4bBy5fzww8RJgXXY02RxDX9OZIy\nZ8OeWMatzW0yxsPz55RJ/imzx9lMXFNly6+XTJEdxA8/UCaFVGSasESeuzyqIqkV0PaxfYQE\nkTjEeLCINE8KpC7XnglylirytfRo22YRFpFsFZlavjyHuVK4mIokVsDYhf6iMWXOE2JZw63N\nbTLGg+2I1NDtT30q5udUOzPWN472V0gkR7TQxRFNoxVOT9ArqC2LRT8iWb5oTJ88aK8us8z9\nXX/3nleMD7KPFCOSNHEdKZI8sV0zncnFTJEdBtlH8jRxtcAekeazOWmmPmVZLNouti8aM45I\ne0wQuX6MF2qsIUAk6bTOeUSS10uLlHexnH9FQo01ZBSJqIi+LBZtv5gvGoNIa8ckYW1/Yn6Q\nJvN2iES1S70tpp4ZBeD5ixAhkrUiEOk0YpIImPtbEok8tZP+WC+dIrtARaS5v+eCmiIRhdQr\nop6jRpZOfRnyRWPhp3YRMO3e84pJImDu77EZCHVqbGrUWFmeMEV2kYpMI9fy8LeywlJIrSLy\nsvjSKYR80dhe+geR1oxJIqhVlGn6efGX8Zi1MN6b/qIxZe7v6TmubFg3JgmItAr53ptXm9tk\nTBLjyZtjymw2E2g78VeEkUhX8bMHjfDql28yBvBFH51Ll5pXm9tkDOCLJs6Hq5s7ekMvvNrc\nJmMAX4zPkahz6CB4tblNxgC+FBUpZW/E2GMAXzBqV1EM4AtEqigG8EUX6f7mUoirFwlJvNrc\nJmMAXzSR7iyXCAXAq1++yRjAF/0DWXF1UOjuCl/rwjEG8IW4jeLAPYa/OcYAvmjCXIv+ctU8\n3yFbf9PlFQP4oh95nrXzntxdXWXpI6XsjRh7DOCL9QPZ6A9lebW5TcYAvkCkimIAX0Jl0acs\nHh9xh+yKMVmh/ljaZjJlfr9SzB/9UlUJzKXmbFAmQ+HWL99kjJdvv/02eFtltgbzObVt8PLF\nvH//PnzjHPOVLK4JRKooxse330aYJLTHhpFI799HmET8RYjaMXFvR5gD63RcM7za3CZjPHz7\nLWWSb+75eeYc+WczzIo/ziukTsdj3WHpVPQ9799TJnkn0RfjZsSXAChTJJmlV2qSVPglIs1d\nJExZvEqMB4tI00RU2vL5UUiP03Mh7Rszjb6yQRoWkWwVGZv9JJJe2nHHYd46svRLC58oEqbj\nOkaMB9sRqaHb3/zobk160xLKU8cOydiOSHRFusWzLLTu8gtb6RcVfoFI6hNmbW6TMT7IPlKI\nSMP43XjaI4jWN/6YVzbUDuNI4LKJicg+kudAMdswH4ksVZGOYFTVkwqv73JDf4akiUQ949Xm\nNhnjhRprCD0iNdKf5YZofdNa7w7D6yUqUWMNfpEaYg7zhqpKIx/ApL3nsOjCaztMHjlF2hPL\nmLW5TcYkkVMkqonaRFp6fkcX2F6RKJHU07lGfS6nxpVuZi8+XIm7+yvX9yPpUxcP8OqXbzIm\nCc9gg7OjMJ8kSRuIkB2kd8iFfxJ9SiTleCqM5e6axJTOKNQL8ba5N67+lqYs3gd/GXP9TZdX\nTBLWUWPpzGMaJ9afDz+Cp9HPM/wdVxH5zZRSGyWb/xaYpc88/H0IeCteppwjMmtzm4xJInd7\nPhohFfFsU/D/Qou+Fq/vxGXzDiJxjEkCIs1r1hOpNeiqPbJludU8ZW/E2GOSGE96NBZlHgV/\nRZy1KlxpPfvtZfttY+ImPolXm9tkDOBLPkl5tblNxgC+QKSKYgBfNJHaGRta7q+jk3j1yzcZ\nA/hiDH93vaMXGLXjGAP4ognz4UrsX7/ei8sP0Um82twmYwBfjCPPwSJx+TYhiVeb22QM4Ish\n0tuMIqXsjRh7DOCLfmp3mfPULmVvxNhjAF+MwYbuG10yDTak7I0Yewzgi36tXT/1d6bh75S9\nEWOPAXwp+oHs0KF+9OhR+N68uve8YgBfdJEst5oHYG0sjx4FmMS06fKKAXzRhLHdah6ArbE8\nehRiEtOmyysG8CXwVnPr3N/zFhCpeAzgS+Ct5tSUxfrkJ/99YDCmfRjliRXp/0bXgYz5Kk9M\n++PLL788/PvTn//cPkmL+T9ZSpOV+dTDPqGD9bW+/Ii3NwWeQ5UuYeCt5qEi9Sa14vzlkWKS\nrxySSEtMkkRaYpIi0kGfL//85Z9aIk2SRFpiUrhIT58+Dd5WEM+iKdU8P336VL4YWQsfeKt5\nsEj/PRyA/vIXxSRvOWSRFpgki7TAJFmkzqM//+lPCSbJIi0wKVikp08jTOIs0qdPcSbxE8l2\nq7lHpG7ub6tIIUCkgBgPT59SJnnnntdmrJqn3hpn1tFXaTPna+sz8OkTZZJ9FiH5LnR5Q7nE\n+qxCIsPE+UQRJiy3mqcdkV7lESmpe2+KlDhKoIuUFGOKVGCwwSLSPCOVulx+JsxHdRZ9aZXU\nFqn1GbCIZKnItJQoFP1aetSXJRO4b1ofKanNmQekRJGyxDRGHylRpByl8WA7IjXkr1kZbFDa\nU6M1LaGvotuk5X0SsB2RrG+gieR61LbT1yUjBziObWmjdmkiGevSRMoT0/5QR+3SRMpSGh9k\nH8kqkvxMOrUzFgWLlPncjiywUyR5FFIQr7UgIe2zcNb/rCKZe9X/yQ2vGC/UWEOcSOaJULBI\n9jOveKixhrAjkl44z2spL18faaFIy0CMPyaJWJEUcSJEcrTzPJQWaVnpA0WS5/62XNkAeBI8\n2CBsYqiv1eVCWV92Ckb7IU8SiSgpefiURcrxZ0AVqeqZOAGJZxL9ua8w9RkaUiRysnxt+Lvw\nESl4+LsxSyy9nubTLzX8DZG2yGZ+k7wrEnpqB2plM79U3hWBSFtHOu2p+4yDd0UgEgAZgEgA\nZADuAJCBfCLx+uxykzGALxlFyrM3YuwxgC8QqaIYwBeIVFEM4AtEqigG8AUiVRQD+AKRKooB\nfIFIFcUAvkCkimIAXyBSRTGALxCpohjAF4hUUQzgSz6Rdrtd0Gb0Yl+bI3fbGcvlmJ1WIlvx\niOVzjB7iwthQqdRuJDKklEgJ9/OwvMJ5vjHpqMXLekTSGwHVZnKKZC6XYnau3TzR3yjrgk3S\nM41KJSRF7fXw4cPgbRN+875d8jWm3377LWZzdRah0O2zslmRdu793NFaaeLb/3FEevgwwiTO\nIv32W5xJGxRp17TnLv0ZjPxzetw16utxqzFmR642duveZ2csN0SSdtVK5yyRVKkhY0iiitEt\nG+qg1pyO8dVpfj29QxAPH1ImBU2iP0wVNG45z65DTplvTL0jpAl5Mtz+/dtvlEneWYQsk+eP\npbIVVJtAKbEC2UWSWkCjP5c30Jar3YmA3XbkcqpzI21ilM5SovnUbjcq1P+0FaMZ/hioNbcc\nkbx10gsY8t/fWEWa59BSl6vPxDzXW9cEpWXULHbWR6FmJ2ERyVKRaSk9eb6g1jTac6IykeQe\nbBh/+XaRpg0auZWQIjXao76bGac23Z0ujlE6S7Q2ZtFMVbHXZmdk+kVyPRIF9WE7IjXkr1md\n105pQmLeVdlbf0EKZXm7GGxHJGuyUDYwlXAZb6tUJFmPSA0l0k46d1ObnnxOpx9K7CI546im\nGy6Sei6qVMo4eKjFkKo7ZdrPEPX/Euq/iCioF7KPZBXJ2EIVSZVMi5pPjsxZ6nOd24VWZFo6\nH4n0soeJpFYqkvIiDauNli83TW2czCWS5dDgOAYEizRHE4MNu7k2tISzJs7S2P5LAl77ocYa\nIkWSTuvsRyR5pR5gPwGLgBpriDsiKTsEiaRVKpKjiaS1ktBTO88jNWoXKpL0uEQkqeari0SR\nJpLtxIc8laPaZ34Ki6TvnVK6LLhEkpupdEiRzmfUXolbmJ09Tj5DHEsiDzbopbNEE58jESLJ\ngUmDDQGPyohmEmGDDfpAg7KMbIeWNjiuy0/yJPp+kQRRqdjSRe9hQ/7IZRy/9Qw2D01FGbdW\nF0u7NWPL2qmNTYmjrmxQhr8bf7TSuZEG/xpt22lfc/h7rLn6fzMpQbwx9VqpazL+SfSnSeXH\nHRp92TSe3IwNjhwxngaaCx2RvMPfc/HUg6OxxjL8rVQqtnS54HVZmhST0A4TYqjVLK61i/4N\nF7EgAyXLtTwbIi2P2dlWQ6ScFCpXpk4dRAqLcV5eIA+YkzG2DSJLk8R4whY49zzfeasjKxKe\nmyPkFETaTgzgC0SqKAbwBSJVFAP4ApEqigF8CRdp/gJz+lvNebW5TcYAvgSLNDuzH37spxcd\nvNrcJmMAX0JF2jdekVh9ldAmYwBfEk7two9Ir8LL4frjjRjAnjwiWf5u1t90ecUAvuCIVFEM\n4AtEqigG8KWoSBEwHSfjFQP4ApEqigF8gUgVxQC+xIrU/sSVDUeKAXwpeq1d/d17XjFZUae1\nM9YWec8SCO0xOWBZMESqKMbL+fl58Las75z9/Plz6KaLRfIFl9jaBa82t8kYH+fnESZxFunz\n52iT8pcOIm02xsP5OWWSdxJ90W/TKNPNm5PxGDPPlxPr82fKJHdFlAIPtTFmD9K+DYCoKvGV\nAWEzC+F+pIpiPFhEmmTQlktPyOnmx1YoP+rLymARyVKReTq9sXBC2Zqqiq2qZkxodSFSRTEe\nbEekhvw1z7PaydtITU5oAUbLLIbtiNTQb2yIpG5tqYqrqqZ9lrfWSpcFXm1ukzE+yD6SVSTp\nSbhI85ySoYVKgewj+UVyT56vv44SyXtuB5EqivFCjTXkFUnav6RK1FiD/fxKqOsKiKTVnSxD\nLtI71BcXF1y797xikiglUunzO4MjimR/a7V0WUhuLBctTJsur5gkggYbpgVE6xnP5ERDtcT1\niJ5EXy26ebY2v6CXC2X9MU/tghrLBUQKjUkibPi7MVuXPsv8esPfNN5J9M3J862z/TcNWVWh\nxijD3+yPSBApOCaJtdt7MXhXpKhIQfhFSinEJmOS4N3+IuBdkeOL5O8jpRRikzFJSKc9Weee\nXx3eFWEgknfULqUQm4wBfOEgkrI3YuwxgC+hIkk38e33w4u9cmcfr375JmMAXwJF0m4rH+6U\nVTbh1eY2GQP4kiiSIRa3NrfJGMCXBSKpHjFrc5uMAXxJE2ma+2RYtHyqd6bde14xgC9LRFKX\n8Wpzm4wBfFkgkvaMV5vbZAzgS5JI+qhDB682t8kYwJcFImES/bVjAF8WiuSeabX+pssrBvAl\n9soG2SjvlMX1N11eMYAvx78fSdsbMfYYwBdctFpRTFa8dyEEN43j3skg1AftZSPdbVH0pguI\nVFGMl0ePHgVv6/3N2zZYw5s//vgjdNNxvobxNnH1pVTasvNMQKSKYnw8ehRhEmeR/vgj1qR5\nIiHqpbxdISBSRTEeHj2iTAqZ/MSY7ESe/ENbrswBPs2wnfW06Y8/KJOcFQkQad64BBhsqCjG\ng0WkeXocdbnyRBCPwrK8sW+TB4tIjopI/4iX2sZFgEgVxXiwHZEauv1Jc38rTU4XpyHW27bJ\ng+2IRL+HRyRpUKXawYb6my6vGB9kH8nV/tQNpo56o0kiTak9bWpMs5393I4ssOXcjjh4ysdO\nLaQEEKmiGC/UWEO4SPLZkyyJdpIkN099m1xQYw0OkYT8qL7chEgpeyPGHpNEjEjWPpFPpLx9\nJJqlIpUtI0SqKCaJoMEGcoJs+QTJPG8yz6VKi2Q96mmdNONwSb7MDESqKCYJ7/C3fYJsde7v\nabky/N1MnabyRyRbN8wpEq5sQEyWvQs37/XgXREMNlQUkwTv9hcB74pApIpikhjPd3hOmR0B\n74pApIpiAF8gUkUxgC+hIsl3w8pzf89b8OqXbzIG8CVQJGXOhj2xLPTX3X6FCwXTpssrBvBl\nZZG6LxWjVjBturxiAF8SRNoTy5qwX3f/NZeUSUybLq8YwJcUkcYu0rzMMve30aFOE6n+UQIM\nNmye1CPSPmmCSIi0KAbwJaWPNDxPmWk1qY9UvwEQafOsLFLSqF39BkCkzVP01C4Cpt17XjGA\nL4kiaYMNLbza3CZjAF9ir2yQr2jAlQ0rxwC+4H6kimIAX9a+aBWDDQtiAF9WFgnD30tiMpN4\nO0/ULlxuFyrOuiLhA9lFMV6+/vrr8Fgh/YzbJ22HbTsFkSqK8fH11xEmaTOGxO2UsgNECiPk\n142LVhfFePj6a8ok/yxC+rxBxAt56nxBr2uoSfel2YeUyffLzuhzDFYetcNtFEtiPFhE8s1r\np89kJ6gXzfxoXUdt65kPbzusPfyNG/sWxHiwHZEa8tcsH2iG10LeXhg7SyJRG1LbEhLOyzbF\nKiJdPHnS63Nx8QQipcf4IPtITpGa4VhiTIlviDRv4RdJ01NKlyZrDK1UJawx2HDwqDfpon2G\n4e/kGC/UWEOISMamhkiSQV6RiFM8edX4clsqrSBS51Fr0kX/DKN2qTFJZBFJ7yPZ1lkfG0Ok\njZ3fQaSKYpKwzj0vpp/+PtJ4NhYqktAeyT4SRCKxi/T4AETKEJOEY+75aQxanxKfOLUbxr3H\n4W9tnSC2dU2+j+FvO9Zf9+OOBX2klEJsMiaJbbVXtpQXqffo8ZP2OUbtFsUkAZFWYV2RrB8j\ncW26vGKSGH7DTOee3wyh/6H6lMXjo/8OWfWIhA9kF8QAvgSKRM3ZoEyGYu1QX1zMItkvtePa\nvecVA/iylkhPINLyGMCXBJHGBapHviNSO2zXD9pBpNQYwJclIs1dJNeUxdMh6WK+VsiEadPl\nFQP4kihSzHRcnUnDR7FJIkWw7RjAlwUiqU88H8g+GcCo3YIYwJc0kahnvuHvJ08eWy8QYtt0\necUAviSJtCeW2X7djx9PJvWX2tGbMW26vGIAX1JE0qYuHrB0qCeR2oFvaxeJa/eeVwzgS+yV\nDeNoXdCXMUsidRd/T58imT0lpk2XVwzgS/nbKOSLv2ePdJOYNl1eMYAvxUWSrhBqZI80k5g2\nXV4xgC/Fr/6WRRoXRYqUUohNxgC+FBdpGrSb1RmGHei9eTVdXjGAL6VFejJ61A3bDQuJO2WZ\nNl1eMYAvhUUaPRoHwMfF3SUOF9TevJourxjAl8KDDYpIsz1mL4lp975szKdPn6JiAF8Ki/RY\nFenxoA9EamM+fQozCSJVQFmRLtQj0nxMMobtqjIgT8ynT4EmQaQKWFWkJ8rJHb13BQZkioFI\nW6KoSE/UM7uL4Yo75968uvclYxSRXEZBpAooKZLu0ZP+3M69dwUG5IpRPbKbBJEqoKBIqkeP\nu8+OcBuFjOqR1SSIVAEriuSYQ6g2A3LHQKTqKSVS584r7Yg0nNldTD+IvVmPErx//755dfi3\nLOagzC+/vPrll18O6nzqXvy7fQ6RaqaQSI8NkZ4Mc6BMHyJV+DnSwaP3P716H2wSHXMw5t//\n/verw79fPh38OVjUPv0FfaSqWTpl8byF/Ot+bIrUTdowneD14+AXxN6MReo86kQKNImM6T3q\nRGr9+eXf/x6e+WMAXxbMtKrP2fDYQBdp+BzJLdL/GG+eZMD/yxPzj8Ga9uFg0U+JIg22NKM2\nhkiOAxJEqoGiIj1OEsk0KRxJJNOklJh/9Ca9749GP/30j59+WiCSAUTaCmuJ9ORiunfC00f6\nnyUmySItMEkW6R/vB7rj0U//CPfIK9LcR3J5BJFqII9I3ZTFbo+kbxlzj9oxFql1KcIjl0jt\nQN08auf0CCLVwBpHJMtnsAp1iBRjUeMQ6Zeg2yeMGMCXFQYbQjxy9pHSBhsMj9IGG6Q+Uu9R\nUozpESY/2RblRQryqIpRu/7HEpH6UbvueASRtkVGkcy9uHwAtJUYwBeIVFEM4EvClMW2KxuW\ngRh/DOALvibezzeOV+6VJWIASyCSH4gEvEAkPxAJeIFIAGQAIgGQAYgEQAYgEgAZgEgAZCDj\nnA2sPrvMFNOy3zfyB8+pZIoBPCn+RWOxe/OKacaLoZQJKyQfVD3aFxZZMsUApkAkZ0yjG7CX\nfhIr9/JKhUwxgCkQyRnT6G1+iUg5YgBTIJIzpkVp1aYBTaABmWIATyCSM8ZE79w0cpPXVjrI\nFAO4AJGcMQOZWjXk2C4QyRkzAJGAB4jkjAEgDIjkjAEgDIjkjAEgDIjkjAEgjHwi7QaaXcre\nCw0Y39MVs1MftJdz+ed1AISS9YjUt7/wVihtucIRaSzd8Ki9lAqzwxEJxHJCIvVvtxsfyJfD\ndhAJRFJEpP4EqRlPlJrufK97oayRf05NV99paujjGnmLKXFcP8cQJQwVCX0kEE0JkYaWPbXQ\nqdthrGmm58qhZKdtb+xkbCEtH2IIk3bqP+KlXAgAIih1ake0fHqNTSR6JyJEEWmOiRdpHmxI\nGy8Bp0xJkYZ2GSeSeyciJFwk6S135ksckcACSh+RGqsTjiOSfSciJEqknfyovoRIYAEQyRQJ\no3Ygmjr6SDsijhRpsoEUSZWRUr3RSgNAGAVFmsepjR/TFQS7xjr83Ux5wxi4MfzdqFZ5h789\nIuHKBpAOrrVzxgAQBkRyxgAQxoZF2mmkxAAQxoZFyhEDQBgQyRkDQBgQyRkDQBjhIqnTrsmP\nPbwMgEhgVYJF2qvTgu7nxwFeBkAksCqhIu0biASAlYRTO5tIrL7YKFMMAGHkEcnS+F6Fl8N1\nKDliDABhZDwimbtAJHAqQCRnDABhFBUpAgw2gKqBSM4YAMKASM4YAMKIFan7ajlc2QCAStFr\n7TDYAE4FiOSMASAMiOSMASAMiOSMASAM3I/kjAEgDIjkjAEgDIjkjAEgDIjkjAEgDAw2OGMA\nCAMiOWMACAMiOWMACAMiOWMACAODDc4YAMKASM4YAMKASM4YAMKASM4YAMLAYIMzBoAwgmda\nne+G3e+HF3vlFlleBkAksCqBImnzMwy3nCub8DIAIoFVSRTJEIubARAJrMoCkVSPmI0SYLAB\nrEqaSNMkQsOi5RPPQyRQNUtEUpfxMgAigVVZIJL2jJcBEAmsSpJI+qhDB69RAgw2gFVZIBK+\njQKAkYUiuacshkjgVIi9skE2yjv3N0QCpwIuWnXGABAGRHLGABAGRHLGABAGRHLGABAG7kdy\nxgAQBkRyxgAQBkRyxgAQBkRyxgAQBgYbnDEAhAGRnDEAhAGRnDEAhAGRnDEAhIHBBmcMAGFA\nJGcMAGFAJGcMAGFAJGcMAGEkTFncyFMWz1vwGiXAYANYlZRbzffEMm4GQCSwKhDJGQNAGAki\n7YllDTcDIBJYlRSRxi7SvMwyZTEGG8CpkHpE2mNeOwBmFnw/EkQCYAQiOWMACKPoqV0EGGwA\nVZMokjbY0MLLAIgEViVlyuLpOa5sAKAH9yM5YwAIAxetOmMACAMiOWMACAMiOWMACAMiOWMA\nCAODDc4YAMKASM4YAMKASM4YAMKASM4YAMLAYIMzBoAwIJIzBoAwIJIzBoAwIJIzBoAwMNjg\njAEgDIjkjAEgDIjkjAEgDIjkjAEgjNS5v8dHTH4CQLNo8hNlViFuBkAksCoQyRkDQBhL57Wb\n4WUARAKrskSkuYtkmfs7Agw2gKpJFAnz2gEgs0Ak9QkzAyASWJU0kahnvAyASGBVkkTaE8uY\njRJgsAGsysKvvnRPWQyRwKmQMPf3PvhbzYsb8Pnz5xwx9tIAEEbV9yN9/qybBJHAcaj5otXP\nnw2TMNgAjkOtIrUCQSTAhkpF+iyxIMZbGgDCqFMkm0cQCRyJOgcbRocwageYUK9I//nPf5bG\n+EsDQBh1itR0HumHo/gYb2kACKNSkZrOI9MkiASOQ52DDeRnSCkxvtIAEAZEcpYGgDBqFYm4\nPCgpxlMaAMKoViRz6Dstxl0aAMJgP9jw+fffcRsFYA93kQ4e/f6K+MAoMia1NACEwVyk1qPf\nX/0ebBJEAsdh6ZTF8xYQCZwwC2Za1eds+G1JOWYDfu/5/LtEgkh/ZCkNAGHkFGmJSYZISR7J\nIi0xCSKBSLKKtMAkl0jhHikiLTAJIoFI8ojUTVlcSCTqIu+AGIgE1qToESlpsMEUKSnGFAmD\nDaAcRftIOUQ6HJASRcpRGgDCKDpqt0Skz/OJXZpIWUoDQBgZRTL3wkyr4FTIKNIyeMYAEEbC\nlMWWKxs6vnG8cq9kHAOAl3zX2nXwMgAigbWASP4YALxAJH8MAF4yiwTAaQKRXgLGfwAABO1J\nREFUAMgARAIgAxAJgAxAJAAykFek/b4xPqOtPgYAP1lF2s+XDnUv1Usf1HbdvrC0cl4xAARQ\nUKS99JNYuZdXMo4BIIDcIjV5DGAUA0AAmftIjdpW7S+dTZdXDAB+So7a6b2SRm6re+La8Rpi\nAKDILlKm5sgrBgAPEAmADOADWQAyAJEAyABEAiADEAmADEAkADIAkQDIAEQCIAMQCYAMQCQA\nMgCRAMhAYZGEyP8GauTLvbEobMf0bTTePkvZi3i7Z28TU8DxKSvS24NI2VuH2mq7V8cU6d0+\nST/q7fbvEmPA0Skr0jNxLZ7lDiVEStkxfRuV/ctsIr3ENbbVUlYkIe7bpnIvLruXl+JDc/9M\niGf33boP+6vDH/RrIfY37dq7K3H5tmtZ0zZDSLehtGMz7ya6k8f2fYi36Jne4bDltbi6GyOa\nfs+76/n9r9VwZe34REu/mU4t79oVd2pNOl7sxeVLJUMukpzYrwUVUlSkt4fD0bP23O5atA3s\nrm3s+7bpt41eiKvD6vbk78ChAd3v+6eNtE1fxG5Decdm3m0UiXyLoRDjO4jD8fHQgO9Vkfby\n+18r4frag2h6+r0Yfei3aNOlmrTcdC9eShnyGyiJN2I2FFRFUZFaiVqZDj/a5nZzePmifXYj\nutOhdtmleN00H9r29EJcNfdX/bNxm76I3YbyjvJuYx+JeosOedOr++Zqar/NtOyl2Ld7jO+v\n7TGsfda8Iwr3ousDtiva/fv0uSZD+e8Ou8oZaumlxLfiRcnfByhHUZHmgYDL7s7ufduGuhXX\nfftquXv7Ymi+d+0RRcjbDCnthvKO8m7TexBvMTBvejccs5RTu3H/6f21PYa1w7FCS7/W979U\nk9oyiWE47nI+3sillxLvpFKDqigp0nAG0/7NfineHf4Yv+j7NNPpWMuV+rp/ppwajSuUDdXd\n2h/EWzT2d3A9s+/RWAtnSer+Gw6nbpd38hL1DeTEAp8WgFUo+Yt7NrSQZ21X4lnfAdBFenbo\nh7+9ixZJ260f0TDeorG/g+uZfY/GWjiHSIezuEvRjmxbigSRtkDJX9y+O5W5b7sHh7bTn7Zc\nTm8otZx76tSuUTdUd5x3m08fzbeYd78nTu00Veb318KpUzutcM5Tu5aXSob6BnIiRKqVgr+4\nd8NHSM8O51xtJ7t9OBwzDj3r122/fGyC74aO+dBZF/I2fRG7DdUd591mkcy3aNR3EP0gwItW\n8dfy7kOfvxuKMMObsUwfiMLNfaR5sGGuScf+EPehH2y4GYcY5DeQEtFHqpaCIt2I/oP6t8Pw\nXDfAOwwNf5j9GM9r5kHjeZu+iMLccd5NiOnKAuMtGvUd5uHvbtkLVZV5+FveY1x7N45Ra+nz\nqJ1n+PuFlKG+gZSIUbtqKSjSNONi9+RlO+Tb9B9bXrWGDQ2te9mfal2Jy9f9s3GbvoiC2HHa\n7eUskvEWjfoOov206bobK7zZH5qs1p+5ux4/kJX3GNd+uBo+blXT58+RtA9kX89naYc323eC\nTBnqG8yJ+BypWridk4varpK5sf0PptRE4MqGWuEjUtfBucl/aV5p9i/1Jck1wbV29cJHpKHj\ncHfscsTyzmj9yTXB1d/1wkek5uXl2Meoi7fGoSexJrgfqWIYiQRAvUAkADIAkQDIAEQCIAMQ\nCYAMQCQAMgCRAMgARAIgA/8LRVhT/Wcz1r8AAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_taxa_prevalence(american, \"Phylum\", detection=10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 30,
   "metadata": {},
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAA2FBMVEUAAAAAu0sAv3YAwJgA\nwLcCr/oCuOgCvE0CwHcCwZkZtvoZvuoZwl0Zw9YZxYMZxqIZxr4aGhozMzM9of8/ov9DvRlN\nTU1Qqv9oaGh8fHx/uBmMjIyPkf+Qkv+XqQCYqgKampqanP+hsRmnp6eysrKzoAC6qRm9vb2+\ngP++vr6/gf/EjP/Hx8fKlwDKmALPoRnQ0NDZ2dnecfnecvngmBnhf/rh4eHp6ensgjzsgz7u\njk/w8PDyZefyZufzdOn4dm34d275g3v+cNT/ZLP/ZbT/c7r/ep3///9Z804UAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2diZ8Ut/G3O3YObC5PDMMu/N4EWGJCjFmcABvYmMQH\n9P//H73Tt45Sq6SWekrT3+dj78z0UVNi9ay6a3rUVQ0AWEx17AQAOAUgEgAJgEgAJAAiAZAA\niARAAiASAAmASAAkACIBkIDlIv15KakCiUsoecuAXBKIlGr/hYFSxZEXCCIVAESSHwgiFQBE\nkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIV\nQBqRdtqSnfFobWDt3z2xNyJ2c0ZidNuZLKhAuw7WTsY77NwZDSGJfyUj1q5fB5EKIIlIO7o3\nMETaqf1W38qxizOSRyS+D0pCrj29wZwiTRL5RJq2gUgFAJEs8oo0PkCkkyKpSP1Ry657Ojx2\ni4YDGu2x+WmJNK3q+pu+pzvSmFC/ifVOSri5mJRIdtrazo6mK/9EeshaeVPjX8lMWG0ZkEsK\nkcbuUNfD39qhI42LduMq81H9u21EIfd0RVLOtcZuvHOEm41piGTmpATTdrabToxIqkg7bRcq\nlPkvBOSSXKTaJYy9vnaLVKsdiRfJKFpQ22m7O2O6ig07Kzcy4vTUIxK1ixEXIhVDApHGP9ws\nkfoDl2lTrbvZnZUdySnStJ1fJONYsyaCjLntlGWUFd5DO3sXM7nd8MZAOilE0rpUPd/91f5c\n6yLZUYIiuURStvOKtNMCKSLZaWvPMSJtnpVHpJ29aeSIZEVyiGT3S19MQiQi7TiR6JgQqXyW\nizR1KKNruIoNO73r6N1tR3Qk/dEVaUYk7qFdt61DpJ25YU1HnLZlfI4EkU6FlCIxy9/a8t3O\nFElZpXUub6QxjtYfxzhGOD2mui1VbLDT1nfmlr+nLQ17HaGG9wLSwbV28gNhRCoAiCQ/EEQq\nAIi0QqDdTjlKXBAHyAUiyQ8EkQoAIskPBJEKACLJDwSRCgAiyQ8EkQoAIskPBJEKACLJDwSR\nCgC3dSkg0OLfEcgORiT5gSBSAeQS6UX4/gsD+bptqkBHbBmQC0RKndDl5WWaQHZCQC4QKXFC\nl5ejSRBpQ0CktAldXk4mQaQNgWJD2kABIoUnBOQCkdIGgkgbBSIlDsQ/RwpPCMgFIqUO1HnU\n/IRIGwLFhiwJteMSig0bAiLlSOgSIm0NiJQjIYi0OSBSjoQg0uZAsSFLII5I4QkBuUCkPIFQ\ntdsYEEl+IIhUAFyR9geo5wK7m5SEINKWYIq0H3/oz2sUG/IHgkgFAJGyJQSRtkSsSBPiuhtE\nAusTJdJwjjQzNQdEgkibIkakfe0/tOODYgM7DpBLrnMkPick0jRdw8JAjoSAXCBSukDKV5GS\nZgSRCgAiJQukfjk2aUYQqQBQ/k6WUKhIKDacEqFXNuyV5x0QqQcibRl8jSJdQoHnSBDplIBI\nCRO6fPUKIm0UXP2dMBCKDdsFIqUKdHn5yjhJgkgbAiIlCnQw6NUriLRZIFKaQJetSK8g0lZB\nsSFNQpeXw5C0MNBcQkAuEClNQt3p0SuUv7cKREqUkPkhUnSgmYSAXCBSqoQaj/CB7GZBsSFh\nIHyOtF0gUrpA5sV2EGlDQKSlgabrgiDShoFICwM1nx71JkGkDYNiw7KEWo80kyIDcRICcoFI\nyxLSRELVbrtApGUJHUT64YcfXg13u4wPxEkIyAUiLUzo8odGpJr6RBYibQgUGxYGunzVDEiX\n9hfNUWzYFBBpYaBBIIi0bWJu61Jr839DJIgEYqbjqvtZi3s2LtJ4bhR8jhSeEJBLlEh7/4i0\nlWJD922+7imqdhsmRqQ949BuIyIp1zUsC8RKCMhlkUibv62L8inSskC8hIBcIqcsxojU0tS+\nD0AkEC6SUXfYdLGh/TS2+zw2Y0YQqQAiROoYV21ZpLodkSIP7cITAnKJK39jROrpTpHIS1Yh\n0qaASEsCXSrVb/uDJIi0IWJu61Kj2NDRzwo5vcDXKDYLrv5ekJDmDkTaNBBpQULNcV0zInUX\ngEOkLQOR4hNqjut+OLjUlcCDL1qFSKcEvkYRHajxpvk09oeJVyg2bBWIFB1ouAGFJlLAoV14\nQkAuECk60GV7gdCrVz+4TIJIGwIixQfqFNJMgkhbBcWG6IQutbEoXCQUG04JiBSdUPtdpNGg\n8HMkiHRKQKTohMgBKSYQOyEgF4gUm9ClUq571Z4q4XOkDVNeseHDhw9J4ixM6NJ7ioRiw5Yo\nTqQPHxwmrS6S4ZB9bAeRNkRRIn0YWRYnRULUgPSD/mVZiLQhShKpMei9FJFq0qMffsiQEUQq\ngIKKDa1B79+PIhk+rVxscIxI6pCEYsOGKE2kbkgaX/LjJBfpUjk1gkibpziRNI9Uk9YWyXFo\nB5G2SUEi6WPQsUVynSPhEqFtEnM3Cv3OFOtW7dTnYSKlTsjhEW7GvE0iZ1qtjz2vnXKytChO\ndEL9ydEr/UypmVPo0tofIp0+hYrUlx0Wx4lPaBiB+nHolWJS6owgUgFEzmt3NJG6Uej9e3M8\nWlukqbjQ2vNqGpxeQaQtskik9e9G0Z0XfXjfmRQSJ22xwazZTVXwV1PZDsWGDZFrptU8Ig0f\nJR08+ve/3x9PJFft+wftajuItCHKFOnDwSOpIgUFCksIyCXyHrLKqqOJdMRLhNwe/cAvf0Ok\nUyLyHrIKqxYb+nOkD0S1Yc1iw5xH+Bxpk0Te+lLhGFU79drVuDiLEnJcr9rVGiDSJom4G4WI\nG43ZX6aASOCIlPR9JA3rS0krijRzioQrGzZKSRetLoqTstgwe4rEFgnFhlOiCJFc852ExEko\nkvvI7hVE2ioliOSc7yQkTkKRmB5BpC1RgEjjFybmdVpNJPenscqNMDmBghMCcimg2DCI5BmY\nVis2uEVqv0SBqt0mKUKk/uPXeZNWE2mm+I3vI22WAkRqvjTx/r39ldjgOIkSmhcJ30faJgWI\n9OFDc4XqeykiuebhGkTC95E2SQnFhvfdtd4Lz5GSFRt8IrEDBScE5CJfpGY8+vcwJsXHWU0k\nlL83STkimd8/CoyTTqQZj/Qbu0CkDSFdpPcv/j1yGJNmPksSIJJxgySItCGEFxs+/FvlvTUH\nFzdOsoTmL1jNkxFEKgDZIukeNWOS26R1RJrxSJtlNWVGEKkAZIv03vLoyCLNTNag3xspZUYQ\nqQBEizR69F7GiDSrkTUgQaQtIbnY0B7YvegEUkrgkedIy4sNnUfOYoPpEYoNW0KoSNMx3Qtt\nSJr5TDazSKMvTpFCM4JIp0Suu1EsE0k5N+pE+vDe+1FSXpF+8IoUnBFEOiVSTKL/3//+93//\n+5++Q5RI/yboRRpGJFacljdv3sRlpASihHGINB/ob3/723fffaevhkinRAKR/vtfyiQ2U3ej\nPBoE6kckVpz255s3pknhCbkO4izMT5DMQH/7G2VScEJALqlEijeJIxI927crTvPjzZtok8JF\nesUSKdokiFQAi0Tq7kaRX6RmIPJO3HA8kRweQaQtUcKI1B3Q+SZAOZpILo8g0pbIdY4UU2wg\nT45ii22WRxGBSG9eEJ8Y+QKRHqHYcEoIr9p9iK9a56vaMT1C1W5L5LqH7EnPtLpyIIhUABAp\nW0IQaUtE3I3CvLJhKakCiUsoecuAXJZfawcAgEgApAAiAZAAiARAAiASAAmASAAkACIBkACI\nBEACEszZIO1jSzEJ4QPZDSF6Oq6jxJEXCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgi\nFQBEkh8IIhUARJIfCCIVAESSHwgiFQBEkh8IIhUARJIfCCIVAESSHwgiFUACkXYHGNu5tqG7\nGxly546ixtn1kFubi+xNxkA7ZstcoeyWzSXG+BcCclku0m78wdhubvmOWsiPoojkDzNH9EDC\nECk0l11MHuAIpDq083cRr0iKABBJ3QEiFUC6c6Td8LM/INrV/YGR43X/uNNFGhbu9EDDD3eU\nHSXkcBA1RVZijK+1N1ITUhqmvrXRSGcLZ0TaKc2iUxnizR7OAjGkF2nsd2O3dbxWH9tAxkJ9\nx50vimNEIt5OD2hlaPZ/dbWrke7c1H8iXaQpCyIV9d8BI1IBJKzajX2qdgtjrq/V7uYSqSZf\nmFEcxQazVxMBtUx2VrHBemsyVO3OzSw2EFk4UoFIxZBDJLr/KX1GO2DRRVI6787oyJ4onhFp\nOGQLEMk6tHM3UtvQzM11aFd7U1ETB6JJ+TnSTutrTpHU9TU1IinbjRv4o/hEqq1DrxiRHI3U\nEzVyWyoSRqQCSFm12yl/r5mPtdrdQkSyo/hF0nrrMpEsr505KoEg0gmT8nOkqY+Rh3bK32lr\n/RBD60BGAE+UGZGMtyN77/RIiWQWGsyoVpwlh3ZGCIhUAkmvbOi72lCorocOYRWH9eVDoNpY\nqJeC676HOaKo5W/tAgL77azer2UyBdopsScv7EZaifYrfeVvu21jqDE+yt+FkPRau6jfeGnX\n2vEbiWvtNgRECg0EkQBByvJ33CFIWSKFNNK8VjX2EA0iFQC+RiE/EEQqAIgkPxBEKgCIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgDc1qWAQIt/RyA7GJHkB4JIBZBLpBfh+y8M5Ou2qQIdsWVALhAp\nW0IQaUtApGwJQaQtAZGyJQSRtgSKDfIDQaQCgEjyA0GkAoBI8gNBpAKASPIDQaQCQLEhW0Io\nNmwJiJQtIYi0JSBStoQg0paASNkSgkhbAsUG+YEgUgFAJPmBIFIBQCT5gSBSAXBF2h+gngvs\nblISgkhbginSfvyhP68FnpKj2ADWByJlSwgibYlYkSbEdTeIBNYnSqThHGlmag6IBJE2RYxI\n+9p/aMcHxQZ2HCCXXOdIfCASOw6QC0SSHwgiFQBEkh8IIhUAyt/ZEkKxYUuEXtmwV553iOtu\nEAmsD75GkS0hiLQlIFK2hCDSlsDV3/IDQaQCgEjyA0GkAoBI8gNBpAKASPIDQaQCQLEhW0Io\nNmwJiJQtIYi0JSBStoRWEqnqePyufU6s5r4NWAJEypbQuiJV1TuIdERQbJAfyCdS+3BRnUOk\nIwKR5AdiidQ+Hv6/qPYX9XV11ixqHvrF0waPqkf11Vn16HpZUkAHIskPFCLSo+Yg7+Kg0+vD\nopfVM0ukZoOXZ81J1bKkgA5Ekh+II9L148aMqjq/rp9V+/pdc6B3GHx+tER6fNDrYNpLHPKl\nBcWGbAmtXWy4ap5f1Z0xj9raw762RGq3usa5U2ogUraEVhVpr5S/m5/vDmdCr7tByjhHUn+A\nZECkbAlFBrpz544rDolqxGRMfVZdtSdKEGkdIFK2hOIC3bljmRQl0uvqYj8I0y64gkg5QbFB\nVqA7N27cME2KEukwJLUFh+bFvnpZX59DpJxAJFmBbtxoTaLjkLhEel0d9OleXDRnUc8gUk5i\nbutSa/N/S+m3JyHSnRudSXQcEpdISgmvPhzlPcM5UlYipuOq+1mLe6T029MQqTPJESeIH7ur\nG8A6RIm0949IKDYEB7px44sbX7QkEem8vbgBrESMSHvGoR1ECg10o7foQNA5Ek3VlRrAWiwS\nCbd1SRdI8egLo9oQI9K+ehSxF4gmcspijEipAyUWCaxMuEhG3UHMuX3hxQbFI/PYDiIVQIRI\nHeMqKf22cJHufKGOSHQcIJe48jdGpNSB7txRTXLEAXKBSDICNR8gNWNRWwHHiFQeMbd1qVFs\nSB3ojnqKZF4jBJEKAFd/Z0soIJB+YGdetQqRCgAiZUuIH+ggjla0Q9WuPCBStoQWiKRXGyBS\nAeBrFAIC2SJpR3cQqQAgkoRA+jlSd3A3mQSRCgAiiQh058YNt0kQqQAgkoxA5oikHtxBpAJA\nsSFbQiHlb1Mj7cOkbCJV5KvKtQE70rr437taoSUQKVtCAVU726MvlO+b80X6+eef2ds2v3vy\nt88QKbs3t2/fZm/LSiZ7SyBStoTYgajx6Avl++ZskX7+OcgkuSLdvh1gEkQy9odI2hkSEcfD\nzz9TJlXNt2XJ7QeRqm6DbkqUanis1H0r7VH92W6j7pOA27cpk1wNUfI28q2mZka1JKRFKDYc\nP5BZsPvCuLRhoUiDJCaV8n9/GjHOKDksqsZV1qNrmwQ4RHI0RM1bz0UVKaIlQS2CSEcPZA9I\nkVd/u0akmv41ayLVzm5mra+N7mdskwDXiES/gSffKrolEKmsQPaAFPs1CvIcaab/1Wafcouk\nHiuNR1NVRWyTAvIcKUikKTdTJH5LhuUsINKxA1Eluy+0OSKXVe2c/U/rP/W8SOpBj7JIi68u\nXApVawgRafq/otdwWhLUmFwiodjADeQQ6Uaqa+1SjEiVvanV/YIOhGIIEElRoprZop5vCUTK\nGih1y4hSQy/T/O5cHOfoU+9R+k3Vbz8uUrphZXQxqttlnQeZU2ywclnSkqA/DRApW0LcEclp\nUporGxxVY3UcYpW/teWVvpu2by5Y5W8zl0mOiJZIKH9DpMUj0lhzSHBodwr4GnLchnLfXZ2B\nS78zhZRz+0KLDdYXKOyCA0RqmWlI9vMzP8x3tyY+wbx2aQK5PUosUmWwKOZRmGvI8VsEkY4b\niDEgLc4DrECESLX+XEq/LVQkv0cQqQQWiYS7USwP5LPIuTsQRaRImCAyUSBHzQ4ilQZEypYQ\nK5DjwA7z2pVGnEjqQR5EWhDI9SESHQfIJUok1SMx5/ZFFhs4AxJEKoEYkTSPxPTbEkVy1ezu\n3In5hiw4IqFXNuyHO42Na6T021MTCTOtFkWua+0i9t+gSK5TpGYuLsy0WhS4aDVbQoxAruL3\njRs3IFJZQKRsCfkDOY7s7tzoTJrfHYgCImVLKE6kdiy6kfAbsmAVIFK2hPyBHId1nUlEHCAX\nFBuOGMhdsYua1w4cEYh0vEB0qeFwTLfWPWTdMznML+JGW4e5913SnnRZ8JDSb8sTyVGyc8fx\n8uHDh4D8jCkWHF3B1UOyenPz5k32toEJQqSV4qwWyPUhkj4cheTx4UOQSXJFunkzwKTTFgnF\nBn8gp0iGSVyRPnygTOJOol/RE9Fbr1eYSP/mTcqkuVmElHYM2w3tMdvhaE/Xhqj58/UsovF3\nt6dPn3L2L0mkW7duLQ10xyXSDdOkhSKNM02ZK5T/lSnerKnkzdf65uQ2C3GI5GhIpT4ayVDt\ncLXH/LcIa8gKIj19OmtSiSLdusUxSYhI4w9ihdo3Z4RRtzE2J7dZiGtEooNbIimPlXt1TWxu\nLeSTX6SnT+dNKlCkW7dYJs0H+sIlknVst+wcab7/2Wa4RVpvIn3yHMkrkpHM+Iei0na32qNP\ngR4xf76WRTy+X/NCkcLzyF9sSCOSk9hzJLpq5+x/xCT6syIRf+HNv/bawiVQtQbWiFTrifcO\nkaMnNWKZC/lApIhAf/rTn5aK5NbILoAva1CqEck8BKJECj8iCiBeJHZ7iOO8oOwW4f01LztH\nCs8ju0i3brUmLQk051F8+ZskZBJ9sqMpy486kT672OBoD9E+sz3WwoDsQptj4f81L6raheeR\nW6RmMDqYtCTQnEfJRWJPom9PRF+p+x97In1n+Xs8RtWTcZa/jVzV3aLmz6+HiMuYrxHMS6Tt\nX0qxgXmGNBOou+rbUWy4YXqU4tDuFFjYkMz/DplF8hzWaftvRqT+2xPOD2SdcaKASEl2zx9e\n+zW34vz1wIun/cvD83mTVhbp/v37ywK9YH6K5Ag0CeMakawhKYlIpz2JPn/3XHDD827r0onz\nlwMv2oGok+qvs5HXFen+fa9JrM+RYjP6wiuSfWy39KQPrABTpNm7UfylpTdo4K+NSZ1H80OS\n3t0ePnwYlL8rjoP79/0mKYF+97vf/elPv2u0YbrjCuQqLLCO7SBSASQQ6S8krUh15xFfpIcP\no03KINLvethnRa5AQR5Z36OASAWQWaT2FIkv0sOH8SZlFOl33QewoSbFiZS6agdWYZFI3W1d\nZjzilO1WFSnsHGllkW7cuXHH+g6Fr0FABrlGpBeDPUHlb0KkY1btSJFivo9EemMUG9oJuCiP\nIFIJJBfpr39pj+Uiv/5mD0jH/ByJPEdKKRJhzVwcIJfUVbv2lOhp/PdIrQO7o34gS1XtolpG\ni8TzCCKVQAqRKPBV8wwtA3JJINJSUgUSl1DylgG5hF7ZsFeeAwB6CrzmCgB5QCQAEgCRAEgA\nRAIgARBpw3B++StPXBDB9L2kY3ZmiHRKvHnzJmBr7/QKwZ2jIp9G8PXXX4e+6fzcP6HpLGk6\nKJ03b4JMkivS118HmHQqIon72FJMQmt/IPvmDWWSdxL9fgb8YSKedpE2DT21rqbmolfm39Hm\n9Qmdk+frrymTPJPojzNsUekZ0wxN7anGfd3bs9JfYzou5v6lTMe1eqCFIrnOHobllfFDmdCq\nfyDXUdva+2rbcHGI5GiIJtJsetq6Xql+XzPV4PQhkvxAS0ekmv41V7XeX4xNFZHUdWTvIpZb\nPTEA14hEN8QuNpjp1EQ65h8L402C04dI8gOxdyfPkZz9b/hJiTTNCu4XSZlBvBq69TBCjZNJ\ncpvQQZ4jzTfElY6yiiVSbPoQSX4g/u5UrcH7h5wQSeldXpEqYrmyanw3diMaqFoDTyRfOlaD\nKy3V6PQhkvxAy3aPGJGov9YukcjH2uqJCXoaSyRvOnEi+dOHSPIDLRTJ6hPd4vGRFol7aKdt\na0toBMjQEFskamp8lkhL0odI8gMtHZHI4u2cSON8+sa0+sO6ith2bo79NLcf895DVkvdTJea\n8l9VxEgV5W85CYkR6UTI1ZA0cSGS/EAQqQUiMfeHSL44UfS/4di55+WQpyGp/iUgkvxAmLOh\nAFKItOtwbzKzKqi7pYiz84ThBSJC2IumQJ539ACRCiCJSL5NXBvsuv3HQDExlDxYcXzp+AM5\ndo8UieEYRCoAiGQth0ggnKQi7YYfw5Fe/7ir9df9Y/9T2Vvb3N52R6/rFo7dTd9SfxtqjZHO\ndIz65ymgntZObeROz1qNOgYiNjff1Gz4kK+aEJBLFpGsx51jefOg/N3eqZsT+zjX7YY37xKq\nd/abqiLNpWOPSFQrqMZZUbURae7fQl+3M/PFiFQA6YoNtdEzzdfKQnX9zjgA0jY39jHXkfHb\nfud4050/nRmRiExmG2kf2pk5T29KN26nJwTkkuvQTnutdBDtaE7ZtHaLNO0TKZIZYD4d69Bu\n+DthjiG+Rlots6KMb0o1HCIVRR6R6toeoXa12jnG7b0jkrJPnEjT/2YMKh3HiGS8K6uResuM\nN/eKNOULkQogl0hkRyc7kUck+w90oEh2x5xNJ0QkTyPpcyT6TSFS4SQXyTp82dX6abopB0Ok\n4EM760303ebSCTtHMqLpUS2RyH8b4h0gUnmk/RzJqAxTJV91vV7+dh3a9dXsoahtrFM7opaE\nGUDtr3Pp7NRAenG6391V/jbezy5/m2mpb6q3Q2kRyt9FcKLX2i3pe4EJud9qacuGyBiRCgAi\nzQfyA5FATYj0/FFV1efv+BGWHngkF2n+AtqAQMcVyb7CAgjGEOn6rP2KR1X9yI4gckQ6qUB5\nRIr4Ok9lPMogoCHsxMNbaOzxuLpovur0sjpnRxDX3aQkdASRLi8v2dtW2gOxxrsra9s4Hjx4\nwN7W0ZD56R14ywMwQnRTPgR9b1Bcd5OS0PoiXV4GmCRZpAcPAkyCSMb+EMkXx8PlJWWSf+75\nuQnkq9qYfkefLCh8snkODx5QJnEm0TdzMucGImb+J1us/qvwoA/tLqrH7AjiupuUhKSINM5A\nZSwffw6TUqmP43Njg6qPSG47hV2GQ6TZhlDJ2i2r7Ja6WhzYGrPYsO/O3PZX7AjiupuUhKSI\nNP4wluvn6NW0ES1H5e+CzDy9uEYkX0PMZMls1WbOt5h+OwfWls/Oqurs4podQN5dhMQklLxl\nPshzJGf/U1dPk4DX09GeNTG49rd9Wj915FQqkedInobUdrJWK5QNOC0OObZb3nT61/wifP+F\ngXx//1MFOmLLvFC1BoZI6sGMskjfmxiRjG3rdCpRtYYYkYwV4wacFhtN8wCRsiV0BJEo/CLN\nyREoUsLjOzrhNCJxWux6u7nsFB51+58tPUeCSGJEcvxl1UXyFxCqgG2zwJpEfz4ztZDga8Ww\nDTc7/eXFUBV8zI4grrtBJA1n1XgqNuglbXvCeXf5O8Nc+eENMZ7NZKaWv2dbrLaUm53Gvrs2\n6B0+RxIUKMGh3SkguyFGdoNAEElQIIjUIrshRnaPqsfXdX19gWvtBAVKIlJlsCylYyC7IUYe\nV8MHsvzvUYjrblISEiISWAVT6OuL9gNZftFO3ik5ig1gfZaPjOK6G0QC6wORsiUEkbaEKdLF\nPvQcTlx3g0hgfewPZNOIxAfFBnYcIBfrA9nnoRHEdTcpCUGkLeH4QDYAcd1NSkIQaUtYH8gG\nfBOpQ1x3k5IQRNoS1gey5/RHSPsD1HOBp+QoNoD1sQ7t6GLDfvyhP68FdjeIBNYHImVLCCJt\nCWZxwRJpQlx3g0hgfaJEGs6RwqbmcIBiAzsOkIslEj2JvibSvvYf2vGBSOw4qRm/Pzq8dm9I\nrJPyBQb/N3PJlVVACxgbGpu4JtEPPkfiA5HYcbx89913/LCTRD6RHJMlZOTJkyf8jb1zRcy1\nK2S5N4kJ1yT6EOmIgdi7f/ddiEnV+CBOpCdPAkyqtIeZLRYvZ2Qxvqym/1VQtQuPs3qx4bvv\nKJP8c4aMm6jTgZjTaE/rqmEfbv7BPHlCmcRpiDELCzHnydi4yl6+ZCpwiJQtISkiOcaTyt5k\nsKRS96rGEYl6mQWHSK6GjD1cTdA1C5f2mmiYNTuXsY0L+tDOnkR/uJphrzzvENfdIJKGqwdU\n9iZEn6JE6kej9Uck95sqowVxqFoZL+xG2vu5tnFhrEo2iT5EOsLnSOQ5UkKRxk/qfX+el0Ke\nI3neVD02UxdpeyrrK8fyftHQWHOb2bdXCZ9En7/p/P4oNvjieKFqDYlHpNmYyaBqDQyRjEQt\nkRyHcg18ACAAACAASURBVNR+rn3n3n4Z4rqblISEfI7k7H/V+BAqUu5DOxrPXwQz+dqWgfVY\n0yL5/nZAJPmBFork6vTG50hMkagBah3cxYa6VgYNjyja+sqxvHbv68xOyyhm3j1x3U1KQlJE\nclSN67o2T3mqaVmlbjB10nXK345snQ0Z+6tep9cbU03rp/ZO22mNj5gKPJdIKDYcodhAsnZ/\nz4bshuQ6tINIECkxshsCkbIlJEukymBRzKMguyFmHhfB+YnrbhAJrI8hDOa1ExgIIhWAIcy+\nendeXV2fm1+jmEFcd5OSEETaEoZIh5HoWfW6vsb9kQQFgkgFYIv0uplsFYd2ggJBpAIwhHlU\nvbyqzuofUWxYnhCKDVvCEKYx6LypNTxmRxDX3SASWB9z5Hl91nwpqbrgRxDX3SASWB9DJP6t\nY0fEdTeIBNbHLDacvQ6NIO6UXEpCKDZsCUOks6raPwu7IYW47iYlIYi0JcxzpKvm3peP7I9j\n9Xkaau+cDXwgEjsOkAtR5v7xoqrOXurLjJmD/JOf8IFI7DhALuTnRVfWtXa6SHv/iIRiA4oN\nm4IakR4fRqTn+jJNpD3j0A4iQaRNQZ4jPbbOkWiRZu5GAZEKEIl5lT/7KpdjfTfIbIcrj5z5\n2VW7s+dE1c6caRUj0oqB+CI9ffqUva0yaYhvw8DlCfj+++/5G3PbkbUh5udIj+jPkRSRjLqD\nvFNyKQmtX2x4+jTEpEp78G/IXr6c778PMIndjjVFcn2EpIrUMa4S192kJLS6SE+fUib5554f\npgWam3Nefb1krnkW339PmcRpyDjzj3oTgKCGxDbA2sd/ozHjqbjuJiUhKSJNs2vpy41nFTnd\nG/laeXRtswiHSK6GjD1fvRmAllxIQyIbYI5IjBuNGU/FdTcpCUkRafxBLJ+eVtNzqp9Z6+uZ\n/pdJpJnQlSlOVddGcmYEs4HGslCMXVw3GtPuRlGj2LBqoGXnSCEiKTNAkiKpM0TW45FcyFzz\nPMhzJE8X1xP2iDQdzSlTXmrLQjF2cd0faQZx3W27IpFVO4ZIymHd7IikrlcWae/iOP4KhKo1\nJBSJaIi5LBSIlC0hIZ8jOftfNT0os+LPiET1S7Mvxh4ZMfD8RQgQydmQdCI5bzTmRlx3g0ga\njEn0FZHIQzvlj/XSueYzNESZRH9K1BaJSNJsiH6MGpid/jLZjcb4oNjAjhMFYxL9oRtU+hzz\nVNVYWx4x13yWhoyVa7X8ra1wJGk0RF0Wnp0BbjQmLlCCQ7skGx0Zf47HbMXy9xbX3aQkBJHS\nUpRI5/xzowFx3U1KQrJEqgy0TUrwiNEQQSLtw3MRd0qOYgNYH0Ocd+cX/DJDh7juBpHA+hgi\n0UP/LOK6G0QC6wORsiUEkbYEqnbyA0GkAoBI8gNBpAIwRbq+OKuq82cBEcR1NykJQaQtYYh0\nhUuE5AWCSAVgfiBbnR8UujrHRavLE0KxYUtYVbv24RpVu+UJQaQtYQjzqOouV118D1mIBJE2\nhTnyPG7mPbk6P196jgSRINKmcH4ga3woq87Apd+ZQtwpuZSEUGzYEkyRrIlPMK/deoEgUgEw\niwoQ6YiBIFIBRIhU68/FdTcpCQkXibqm0jWTqfDvK4VcG5qrKYtEwt0oVgnEF+nhw4fsbbXZ\nGuzn1Lbs5Yt5+/Ytf+MU85UsbkmkSJggcsVAbJEePgwwqTIea0EivX0bYBLxFyFox8i9Z4LN\nAJHC46wu0sOHlEm+ueenmXPUn3U/K/4wr5A+HY9zh6VT0Xe8fUuZ5J1Evxo2I24CoE2RZGev\ntSQq+TiR1IM8cd0NImn4JtFX5t9Sp6zq56lSX+gb0jsYG8ThEMnVkKHbjyKZ2Q479vPWkdkv\nTT5KJNUjeafkUhJavdjgGpFquv9Nj/O9yexalfZ0ZodoXCMS3ZB28SQLrbv6wpX9ouTNnS7o\nb8iat75UENfdpCS0ftWOPEfiiNT/xofDnorofcOPaWVN7TD0nWUTE5HnSJ6BYrJhGokcTVFG\nMKrpUckbu4wemaGUu1HgRmMrB1pWteOOSLXyZ7kmet+41rtD/3qJSlStwS9STcxhXlNNqdUB\nTNl7ChacvDnyVO/Oq6vrc/P+SDOI625SEhLyOVJKkagu6hJp6fEdnbC7IUEi6Ydztf5cjRqW\nnfKyqp9Vr+trXP29PKEjfI5E4Sk2zJ4oTAdJygYVZwflHVLhn0SfEkkbTytr+XxLQrKzknpd\nPQ8a2sR1N4ik4awaK4fwY53YfN7/YE+jn6b8HdYQ9c20rK3Mpr8FdvaJy9+PqpdX1Vn9I0Ra\nnpAYkU4ETkM822T8tzBCNwadN0I+ZkcQ190gkgZEmtasJ1L9+qy521h1wY8g7pRcSkKSig3j\nkZyrKlsA/obMtipzo5fHFtfdpCQkRCSwChBJfiCIVACGSM2MDQ3Xj9gRxHU3KQlBpC1hlb/b\ns6NnqNotT0hIsQGsgiHMu/Nq//Llvjp7x44grrtBJLA+1shzsKg6ex0QQVx3W0ekm3/8480k\ngQISAnKxRHoNkTgJHTzymgSRNoR5aHeW6NBO5e7du5z9Syo2tB75TEKxYUNYxYb2ji7Liw0K\nd+/OmgSR2AkBuZjX2nVTf6csf9+9q5pkOwWR2AkBueT/QFYTiRidihQpxTlSeEJALqZIjq+a\nz+A4kz740jmjiHT3q69sk8osNqBqBzQMYZxfNXdD/prvHkT66q5iUrvwINJXpyLSioEgUgEY\nwiz9qvndr748cPfLL180j19+1Upz0Kdd14r0VdEi3bx5EyIBAu5XzXm3dek8auhEOpg0jUh3\n7/ZDkh65JJFuQiRAw/yq+ezdKL6c4avpHOluZ9JM1e73v//9N998E9kSq9vevn07QaCDOv2P\nzqP+aWCgr1uGh9iEkjIdw7sndHC+Npcf8etNzJOR3Bkyv2o+J9KcR1/eVYoN9AdKU3f7/e+X\nmGSKdPt2pElaoJsj9QKRDvb84Q+H/7uHUJP4It2/f5+9bUU8CyZX9/z48WP+NJImz/yqeRKR\n6EscDJGiTTJEun071iQ1UCvOH//Y+7NApD9MBJvEFun+/QCTJIv08WOYSfJEcn3VnBapu63L\nvEcBVzaIF6kO8mh1ke7fp0zyzj1vzFg1Tb01zKxjrjJmzjfWJ+DjR8ok9yxC6rfQ1Q3VjM1Z\nhaoEE+cTKfgIG5G++vLLF1991XvEv9aOFCm2RmCJFBXIECm2akeKlLzY4BBpmpFKX64+q+xH\nfRZ9ZZXSF6n1CXCI5GjIuJRIin6tPJrLomHOHcEXqS/LxXQ3ckCKLraZA1JcIO0cKSyO7xxp\nLZHGH8Zytdig9afa6FqVuYruk473icA1IjnfwBBp7tHYzlwXTQKRtKrd3b68HVUkpg7s4qvW\nxoFdZCC1ahcWx1e1S1/+Js+RnCKpz5RDO2sRW6TEx3ZkwrMiqVXIinhtBKqUfRbO+p9GJIpT\n/z7SmoGWVe3CRLIPhNgiuY+8wqFqDbwRyUzO81qJl+4cKVKkpaQKJC6h5C2LIlQkTZwAkWb6\neRpyi7Qse10k9wSCym1djCsbgGzYxYbKJYb+Wl9eaevzTsHoHvIUkYhMyeFTFSnFnwGuSKBU\nPJPoT+cK4zlDTYpETpZvlL8zj0js8ndtZ6y8HufTz1X+hj2nyMn8UmU3BCKdOifzS5XdEIh0\n6iiHPWUfustuCEQCIAFwB4AEQCQAErBcJHEfW4pJSMYHsmAVEoiUav+ipuNaMxBEKgCIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgCIJD8QRCoAiCQ/EEQqAIgkPxBEKgCIJD8QRCoAiCQ/EEQqAIgk\nPxBEKgCIJD8QRCqA5SLtDrC2cyz3dTdyv529XItjJuV6c2q5EojbNjqUldHOH282oaREfJ9H\n5BXO0xeTjppemhHJ/PVT3cHbl0NEIpar3XY3t6Mv+BSIHYaOav2JiAjV7MUX6datW+xtI37z\nvl3S9eRffvklZHN9FiHu9kk5SZF283t6gv/ZWBne/Y8l0q1bASZJFumXX8JMOiWRdnVz1NId\nu6g/x8dmA/X1uNUQaEeut/Zr32hnL7dFUnY2EvQlNeysPdnRqbTL+kNNo/nqP5ES0NOw6bW6\nEYNbtyiTWJPo91MFDVtOs+uQU+ZbU+9UyoQ8Cb7+/csvlEneWYQck+cPWbkSNSZQimxAOpGU\n331tPlc3sJabgXz77WbidXEmG5SNrARdQaYRaQgziuRIpfPJar5jRPI2zMyROyI5RHJMB0eI\nVCldUllGzWLnfKz02FE4RHI0ZFxKT55fUWtq4znRmECSFRuGX7tbpHED5bWySBOpNh7N/Wbi\n9d12Z4pjJegKbtYI6rE97ibtrKgMkeYe1e0WijT+MJZr89ppXaiadtX2Nl+QQjneLgTXiOSM\nXGkb2ErMGe9qVCBpRqSaEqmvURG9blpeT4+Hc3tyObnfTDztHIcv0nRUZgaa/jBMY4eeitLm\nMSoRaBDJ/Ieh/qHUwMvOkZwiWVvoIumSGaGmgyN7lvpUx3bchoxLp5HIzJ0nkt6oQDKKVOsr\nxg3UXqls51pO7jcTL04kJYg5kHSrdnN7TwvVAWxuRJqJFi8SWbULFEk5rHOPSOpKM4D7ACwA\nqtYQNiJpO7BEMhoVyPoikf1lCDQjEuuxi7Mb9+SKpD5SVTu2SGrz1xeJIk4k14EPeShH9c/0\nZBbJ3Dsmu0XMiqT2UeWPPnUk037+4xFl54vXxdlNA820kd3rHcGVYoOyC9kk9W3MaMvOkdSc\nForkGCJ0kcxCg7aM7IeOPjisS0/0JPp+kSqiUaHZBe9hooo0Vh48lea+k0z1AGK5VcVQyszd\nox6PvLJBK3/X/uDGqY1S/quNrafUrfL32Hzjn2gc4uz3pl6Pgcc4Ufgn0R8nlR92qM1lxGz0\nw2Olrh8KzZlGJG/5e0pPHxytNY7yt9ao0OyWIu6KNDVOTB+MCUSulnGtXfBvOIsFCciZ1/LY\nEGlpoJ1zNURKSqa8Ep3UnaBIaqdOJNLs0ZV6NOjIiH91wmycKIYDNubc83IngA9sCD9uiiCn\nKJKUhISMSGAVIJL8QBCpACCS/EAQqQAgkvxAEKkAIJL8QBCpACCS/EAQqQASiCTtLkJiEkre\nMiCXXCPSi/D9Fwby/f1PFeiILQNygUjZEoJIWwIiZUsIIm0JiJQtIYi0JVC1kx8IIhUARJIf\nCCIVAESSHwgiFQBEkh8oj0j6bFzW2izvmYPKeIwOsCwwig3ZEjpCseHOnTvsbUV/4e/Tp0/c\nTReL5AucY2sKcd1tuyLduRNgkmSRPn0KNil9dhCJXn/6It25Q5nknfu76raptVmy7TlErAmz\n84n16RNl0nxDtIT71liTnhiTmBNNJWY6502IApGyJSRFpFEGY7nyhJwle+iF6qO5LA8OkRwN\nmWYBG5KrtK2ppriaaofhNhfFBvmBlo5INflrnibjUrdRulxlBLB6ZjZcI1JNv7Elkr61oylz\nTbXtc7y1kd0ixHU3KQmtX7Ujz5GcIilP+CJNU+Fxk4qBPEfyizQ/57f5Okgk77EdRJIfaFnV\nLq1Iyv45VaJqDe7jq0pfl0Eko+1kDksR192kJCTkc6RcIuU+vrM4okjut9azY7A/QD0XeEq+\n2WIDDavYMC4ges9wJFfVVE9cj+C5v/XU7aO16QW9vNLWpzm0248/9Oe1wO4GkTR45e/a7l3m\n5Njrlb9pvHN/23N+Oycpr2uyqZUeRit/pxmRIFJ4HDEinQiyGxIr0oS47gaRNGT3vwBkNyRK\npOEcKcnUHCg2sONEoRz2JJ0ye3VkNyRGpH3tP7TjA5HYcYBccp0j8YFI7DhALhBJfiCIVACo\n2mVLSEixAawCRMqWEETaEqFXNuyV5x3iuhtEAuuzvHoorrtBJLA+uUSK2B/FBl8cIBeIJD8Q\nRCoAiCQ/EEQqAIgkPxBEKgAUG7IlhGLDloBI2RKCSFsCImVLCCJtCYiULSGItCVQbJAfKI9I\n3q/zsLvGcb8SVOkPxsta+dpS1m8vQST5gfi73717l72t9zfv2mANbz5//szddJj4ZJhvQX+p\nZJt3whaIJD8Qe/e7dwNMkizS58+hJk0zclEv1e0yAZHkB+LufvcuZRJnFiFr1iB1Fh1juTaZ\n/jhVfdLDps+fKZNmG8IQado4Byg2ZEto9WKDQ6Rpnil9ufakIh4rx/LavU0aHCLNNET5n3hp\nbJwFiJQtISkijT+M5cok+lqXM8WpifWubdLgGpHo9/CIpBRVSiw2QKQjlL/Jc6S5/qdvMJ6o\n14Ykytz046bWfPXJj+3IhB3HdsTgqY6dRpAcQKRsCR3hcySq1sAXST16UiUxDpLU7mlukwqq\n1jAjUqU+6i9LFylifxQbfHGiCBHJeU7kEyntORLNUpHy5giR5AdaKJJjsNBEImeaVw+Q7OMm\n+1gqt0jOUc84SbOGS/JlYriB9Xkaau+cDXwgEjtOFN7yt3umeX0S/XG5Vv6ux5Om/COS6zRs\nViRZVzYYMwf5Jz/hA5HYcaLI3L3XQ3ZDokTa+0ckFBuOUWygkN3/ApDdkBiR9oxDO4gkTCSh\nc88HILshi0SauRsFRJIiEliFCJH0m1HI624QCaxPuEhG3UHeKbmUhIQUG8AqRIjUMa4S192k\nJASRtkRc+Rsj0pqBIFIBQCT5gSBSAYRe2WDfkFncKTmKDWB9Vr36+8GDB/ZziMSOA+SypkgP\nHkwmTc8hEjsOkMuKIj14MNmjPIdI7DhALit+jSJOpPA8pNQIUGzYEhBJfiCIVABrfrEv6hwp\nPA8p/R8ibYlVvyEbU7ULz0NK/4dIW2LV8vf8/ig2+OIAuUCkbAmJFyny6zxBu0j5ulB2IFK2\nhI4g0jfffMPedpxrJ4Tg7lKRT08QiJQtofVF+uabAJOMGUPCdorZASLNI+6UXEpCqxcbvvmG\nMsk/i5A5bxDxQp06v6LX1dSk+8rsQ9rk+3ln9DkG636OpDzY+0MkXxwPDpF889qZM9lV1It6\nenSuo7b1zId3OqwnUv/Jkfphkr4/RPLF8eAakWry16wONP3rSt2+snZWRKI2pLYlJJyWnRSr\nidRdynDv3j3TJIjEjuODPEeaFanuxxJrSnxLpGkLv0iGnkp0ZbJGbqMKYbViw+BRZxK1P4oN\nvjheqFoDRyRrU0skxSCvSMQhnrpqeHlaKq0q0r17g0nU/hDJFyeKJCKZ50iudc7H2hLpxI7v\nVhOpbkXqD+7I/SGSL04Uzrnnq/Gn/xxpOBrjilQZj+Q5EkTSYPeSbkRqbKL3h0i+OFHMzD0/\n1qDNKfGJQ7u+7j2Uv411FbHt3OT7KH/bBPyaO5Nc+6PY4IsTxWn1V7Fw/5nVqez0W7zwf819\n1c5YCpHYcaKASKvA/Ge2ZhCKmSBS/WbfBERix4mi/w0LnXv+ZFhFpOmahmZIMlZCJHYcIJcI\nkWr9uf9MehyHiJodig0BcYBcFonEu61L91Hst83Jkf1xLEQKiAPkEilSyEyrnUffNmUG6iwJ\nIrHjALmsItJBo0ake8SVdhApIA6QS5xI6kGe/9d8717n0bftp7GB50hsxNUIUGzYElEiqR75\nf83DiHT474F1XQNECogD5BIjkuYRR6TuHOlb4riuhkgBcYBcQq9s2A+37BvXsERqqnb3yM9j\nIRI/DpBLzotWD8dzrTjtGVJNfDlW3x/FBl8cIJeMIjUnRt+2FzO0j7U9XYO+P0TyxQFyySfS\ntx0PhkfCIX1/iOSLA+QCkbIlBJG2RLbvI31rYJW9rf1RbPDFAXJZSyT78yNrf4jkiwPkkkuk\nB9aIZH1/wtwfIvniALlkE+meLRI9JkEkdhwgl2zFBnNEai8Qmt0fxQZfHCAXiJQtIYi0JTKJ\n9IAQyVEDh0jsOEAuq4pkf8+8hkgBcYBccolEDkjtNynMC4VQbGDHAXLJJBLp0TAo4W4UkXGA\nXPKI5PSo/3qfalJZIr19+zZNoPrjx4/tw08/feyfeuMAuaws0r1hUCL2L0Gkt28DTJrN6GOn\nz8Gjn/7z07xJEKkAcojU2GIXG+5135LtPprli/SifvLkSVAeGYsNjUYv/vWv5YEagV7852DQ\nfzp+mjMJIhVABpHaaxpskaY7jenXOPhEevKEZ9JKIv3rIBJzTJrL6DAOvfiPwk8QqWwSizRq\nQ30ge69xzJq1mCUSw6Q1RPrngUakwaT54zwy0MePP/XuaCL95ydGHCCXtHej+HZWpAfdLEKB\n89oJEulfnUijPp4zJirQ5BFEOilSTKLvrtHpx3b37lHzcSnd7f96/t+Tw49enicRIv3jH//4\n/vvvm+f9QxBKoNaTt//6Z3cw13r0z3+OIr19O2+SEug/XmaO7SBSASQQiafRvfGW5kboqbv9\nn45qEiPFKc7Bo7//vVXo++8jTJoCdaL8q5WnVkXq1vNF4ngEkYpmLZHuPQgWSTGJk6Iq0t//\n3prUw2siEWjQqDdJedqSUqS5AjhEKoBFInV3o+BY1E8TOT+vnUMkJvlF6kxSxGGfIy3yCCKV\nQK4RqS82tIW6e8Ntxsj5uDwiRdQIaJEiApkiNSa9VeNwq3akPC8+fmR5BJFKIJ9Ijm+WW3jO\nkaJEos6RIkVSzpEC47hF6k6IcPX3KZGraveC65GvahdTtSardjGB9KpdYBy6avfTTz/1hQWI\ndErkuofsEb+1g+8jgfVJINJSUgUSl1DylgG5RNyNwriyYWs4unV4b08WCAhg+bV2WwMiAQKI\nFApEAgQQKRSIBAggEgAJgEgAJAAiAZAAiARAAiASAAlIMGeDtM//kyVEsic/jt63K4L+3ZIF\nAhLIdse+8P3FzWtHsVd+aov31OI1AgERQCR3IAqIBEggkjsQhav/71OJFBwIiAAiuQOR0Kc2\nzfLA7p8sEJAARHIHAoANRHIHAoANRHIHAoANRHIHAoANRHIHAoANRHIHAoDNcpF2A/Uuav+F\nAoxvOhtnpz8YL8c2tOvimgG2TZoRqet7/B6obrnKiDQk2D8aL5V8dhiRQAwbEal7x93wQL4c\ntoNIIJy0IvXHRcNRUt0e77UvtDXqz6nfmnuN3XxYo24xhhzXK3GILLki1RAJxJBUpL5jj91z\nV2s/aq3jWp34z9Zetb2XtcW4XBmRCJN2+v/ES61BAISR/NCO6Pj0GqdI9F5EFE2kepFIU7GB\nHtAAmCeLSH2nDBRpfi8iSohIyrvu7JcYkcBCso1ItVOJuRHJvRcRJVCknfqov4RIYCEQSRdp\nB5FADNLPkXZEPFIkT7HB0JGyfXgJkUA4OUSaytTWD/XyAWf5ewrY18Ct8netW8Uof3tEwpUN\nYBm41s4dCAA2xxfJPEdanAdEAutzfJGyjEg7g6hAALA5UZGSBAKADURyBwKADURyBwKADURy\nBwKADURyBwKADURyBwKADW7r4g4EABuMSO5AALDJJdKL8P0XBvKJFB4IADYQyR0IADYQyR0I\nADYQyR0IADYoNrgDAcAGIrkDAcAGIrkDAcAGIrkDAcAGxQZ3IADYQCR3IADYQCR3IADYQCR3\nIADYoNjgDgQAG4jkDgQAG4jkDgQAG65I+wPUc4gEQM0WaT/+0J/XKDYAUEOkuUAAsIkVaQIi\nARAn0nCONDNXCEQCmyJGpH3tP7Tjg2IDOAFynSPxgUjgBIBI7kAAsIFI7kAAsEH52x0IADah\nVzbslecdEAkAfI1iJhAAbCCSOxAAbHD1tzsQAGwgkjsQAGwgkjsQAGwgkjsQAGxQbHAHAoAN\nRHIHAoANRHIHAoANRHIHAoANig3uQACwgUjuQACwgUjuQACwgUjuQACwQbHBHQgANhDJHQgA\nNhDJHQgANhDJHQgANig2uAMBwAYiuQMBwCbmti61Nv83RAIgZjquup+1uAciARAn0t4/IqHY\nADZFjEh7xqEdRAKbYpFIuK0LAB2RUxZjRAJAJVwko+6AYgMAUSJ1jKsgEgCR5W+MSABoQCR3\nIADYxNzWpUaxAQAdXP3tDgQAG4jkDgQAG4jkDgQAG3yNwh0IADYQyR0IADYQyR0IADYQyR0I\nADYoNrgDAcAGIrkDAcAGIrkDAcAGIrkDAcAGxQZ3IADYQCR3IADYQCR3IADYQCR3IADYoNjg\nDgQAG4jkDgQAG4jkDgQAG4jkDgQAm5i7Ueh3pkCxAYDYmVZrzGsHgAJEcgcCgE3kvHYQCQCV\nRSLhbhQAdOSaaRUigU0BkdyBAGATeQ9ZZRVEAiD2HrIKKDYAEHvrS4XjifTp06ckcVwJAcAm\n4m4UUm409umTZhJEAkek3O8jffqkmwSRwBEp96LVUJFQbAAZgUjuhABgU65IoedIEAlkpGCR\nAqt2EAlkpNxiQ644EAlEAJHcgQBgA5HcgQBgA5HcgQBgU3KxISgOig0gJyWIpFfnamIBIw5E\nAjkpQCTj8yLrAyReHIgEciJfJO0Khk+//fbJvKSBFwcigZzILzao3hw8+m1QKTROeEIAsClD\npIM97dPD46+//vobRALSkC9S3XrUivOp9ejXX6POkcITAoCNaJEOCjXG9EdzjUitR71W/DiR\nCQHARnKxoR2KXnxSzpI+/dod2YXFCcwIIoFwxIr0az/4DFW7zp7fujOkgDjhGUEkEE6uu1Es\nFenXnkYk9YMj+jMkd5yIjCASCCfFJPq//PKLtUOUSL8SvGhPjiZ5XB5ZIn3+/DkuI4gEwkkg\n0i+/UCaxmQSgPPrV5c1MnPbn58+mScEJAcAmlUjxJs2L9BvXI0Okz5+jTYJIIJxFInV3o8gp\nElsjiASOiuwR6beoOM0PiARWJdc5UkyxgRyPYr+PZHmEYgPIiOSq3aegQKjagSOS6x6y+IYs\n2BQQyR0IADYRd6Mwr2xYSqpAyRMCgM3ya+1oHL0xvJNmDgRrQBIgEgAJgEgAJCCXSABsCogE\nQAIgEgAJgEgAJAAiAZCATCLt9Q9th6XtCkGBIuIAQJFHpL3yU1u8pxYfL1B4HABIIBJEAglY\ndP1ZQQAABJVJREFUV6R9KpESBQqPAwDJqudIzfLAbps7UHAcAChQtQMgARAJgARAJAASAJEA\nSABEAiABEAmABEAkABIAkQBIAEQCIAEQCYAEZBSpqtIH10M+31uLeDvGb2Pw+nHMXsTbPX4d\nGQXIIJ9Irw8iJe8deq9tXx1TpB/3UfpRb7f/MTIMEEE+kR5Xj6rHqYMSIsXsGL+Nzv55MpGe\n49rZosknUlVdN13lujprX55V7+rrx1X1+Lpd925/fviD/qiq9hfN2qvz6ux127PGbfog7YbK\njvW0W9UePDbvQ7xFx/gOhy0fVedXQ4i62/Pq0fT+j/Tg2trhiRH9Yjy0vGpWXOktaXm2r86e\nazHUlNSI3VpQKNlEen0Yjh43x3aPqqaDXTWdfd90/abTV9X5YXVz8Hfg0IGu993TWtmmS6/d\nUN2xnnYbRCLfok9ieIfqMD4eOvC1LtJeff9HWnBz7UE0M/p1NfjQbdFEV1rScNG+eK7EUN9A\ni3hRTYaC4sgmUiNRI9PhR9PdLg4vnzXPLppu1Xakwwjysq7fNf3pWXVeX593z4ZtuvTaDdUd\n1d2GcyTqLVrUTc+v6/Ox/9bjsufVvtljeH9jj37t4/pHIrln7Tlgs6LZv4s+taTP/+qwqxpD\nz16J+Lp6lut3AfKTTaSpEHDW3cGi6UPtikdd/2q4ev2s775XzYhSqdv0UZoN1R3V3cb3IN6i\nZ9r0qh+ztEO7Yf/x/Y09+rX9WGFEf2Tuf6ZHanKq+nLc2TTeqNkrEa+UrEFx5BKpP4Jp/mY/\nr348/DF+1p3TjIdjDef66+6Zdmg0rNA21HdrfhBvUbvfYe6Ze4/amZwjUvvPcDh0O7tSl+hv\noEbM8GkBWI1cv7zHfQ953JxKPO5OAEyRHh/Ow19fBYtk7NZVNKy3qN3vMPfMvUftTG5GpMNR\n3FnVVLYdKUGkUyHXL2/fHspcN6cHh77THbacjW+m9Jxr6tCu1jfUd5x2mw4f7beYdr8mDu0M\nVab3N4JTh3ZGcrOHdg3PtRj6G6gRIVLJZPrl/dh/hPT4cMzVnGQ3D4cx43Bm/bI5Lx+64I/9\niXl/sl6p23TptRvqO067TSLZb1Hr71B1RYBnjeIv1d37c/62FGEHr4ec3hHJTedIU7FhaknL\n/hDuXVdsuBhKDOobKBFxjlQ0mUS6qLoP6l/35bm2wNuXht9NfgzHNVPReNqmS6+yd5x2q6rx\nygLrLWr9Habyd7vsma7KVP5W9xjWXg01aiP6VLXzlL+fKTH0N1AiompXNJlEGme+ap88b0q+\ndfex5XljWN/R2pfdodZ5dfayezZs06VXETuOuz2fRLLeotbfoWo+bXrU1gov9ocua5zPXD0a\nPpBV9xjWvjvvP27Vo0+fIxkfyL6cjtIOb7ZvBRlj6G8wRcTnSEUj6bi8Ku0qmQvXv15MSypc\n2VAyMkRqT3Au0l+al5vmWjud6JbgWruykSFSf+Jwdew8QvnR6v3RLcHV32UjQ6T6+dlwjlEW\nr62hJ7Il+D5S4QgRCYCygUgAJAAiAZAAiARAAiASAAmASAAkACIBkACIBEAC/j8V79vajhr7\nNAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot_taxa_prevalence(ibd, \"Phylum\", detection=10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {},
   "outputs": [],
   "source": [
    "gil.2 <- prune_taxa(taxa_sums(gil) > 0, gil)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 62,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "phyloseq-class experiment-level object\n",
       "otu_table()   OTU Table:         [ 4692 taxa and 24 samples ]\n",
       "sample_data() Sample Data:       [ 24 samples by 5 sample variables ]\n",
       "tax_table()   Taxonomy Table:    [ 4692 taxa by 7 taxonomic ranks ]\n",
       "phy_tree()    Phylogenetic Tree: [ 4692 tips and 4690 internal nodes ]"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "gil.2"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 63,
   "metadata": {},
   "outputs": [],
   "source": [
    "gil.rel <- transform(gil.2, \"compositional\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 48,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<dl class=dl-horizontal>\n",
       "\t<dt>DQ819318.1.1377</dt>\n",
       "\t\t<dd>24</dd>\n",
       "\t<dt>DQ799333.1.1394</dt>\n",
       "\t\t<dd>24</dd>\n",
       "\t<dt>DQ800305.1.1380</dt>\n",
       "\t\t<dd>24</dd>\n",
       "\t<dt>DQ824162.1.1399</dt>\n",
       "\t\t<dd>24</dd>\n",
       "\t<dt>DQ807372.1.1409</dt>\n",
       "\t\t<dd>24</dd>\n",
       "\t<dt>DQ823878.1.1392</dt>\n",
       "\t\t<dd>24</dd>\n",
       "</dl>\n"
      ],
      "text/latex": [
       "\\begin{description*}\n",
       "\\item[DQ819318.1.1377] 24\n",
       "\\item[DQ799333.1.1394] 24\n",
       "\\item[DQ800305.1.1380] 24\n",
       "\\item[DQ824162.1.1399] 24\n",
       "\\item[DQ807372.1.1409] 24\n",
       "\\item[DQ823878.1.1392] 24\n",
       "\\end{description*}\n"
      ],
      "text/markdown": [
       "DQ819318.1.1377\n",
       ":   24DQ799333.1.1394\n",
       ":   24DQ800305.1.1380\n",
       ":   24DQ824162.1.1399\n",
       ":   24DQ807372.1.1409\n",
       ":   24DQ823878.1.1392\n",
       ":   24\n",
       "\n"
      ],
      "text/plain": [
       "DQ819318.1.1377 DQ799333.1.1394 DQ800305.1.1380 DQ824162.1.1399 DQ807372.1.1409 \n",
       "             24              24              24              24              24 \n",
       "DQ823878.1.1392 \n",
       "             24 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(prevalence(gil.rel, detection =0, sort = TRUE, count = TRUE))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {},
   "outputs": [],
   "source": [
    "core.taxa.standard <- core_members(gil.rel, detection = 0, prevalence = 50)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 49,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [],
      "text/latex": [],
      "text/markdown": [],
      "text/plain": [
       "character(0)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(core.taxa.standard)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 43,
   "metadata": {},
   "outputs": [],
   "source": [
    "gil.core <- core(gil.rel, detection = 0, prevalence = .5)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 45,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'character'"
      ],
      "text/latex": [
       "'character'"
      ],
      "text/markdown": [
       "'character'"
      ],
      "text/plain": [
       "[1] \"character\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Kingdom</th><th scope=col>Phylum</th><th scope=col>Class</th><th scope=col>Order</th><th scope=col>Family</th><th scope=col>Genus</th><th scope=col>Species</th><th scope=col>OTU</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>DQ800652.1.1393        </td></tr>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>DQ804685.1.1389        </td></tr>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>DQ809699.1.1388        </td></tr>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>DQ905421.1.1468        </td></tr>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>EU462231.1.1388        </td></tr>\n",
       "\t<tr><td>k__Bacteria            </td><td>p__Firmicutes          </td><td>c__Clostridia          </td><td>o__Clostridiales       </td><td>f__Lachnospiraceae     </td><td>g__Blautia             </td><td>s__uncultured bacterium</td><td>DQ809662.1.1394        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllll}\n",
       " Kingdom & Phylum & Class & Order & Family & Genus & Species & OTU\\\\\n",
       "\\hline\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & DQ800652.1.1393            \\\\\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & DQ804685.1.1389            \\\\\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & DQ809699.1.1388            \\\\\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & DQ905421.1.1468            \\\\\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & EU462231.1.1388            \\\\\n",
       "\t k\\_\\_Bacteria             & p\\_\\_Firmicutes           & c\\_\\_Clostridia           & o\\_\\_Clostridiales        & f\\_\\_Lachnospiraceae      & g\\_\\_Blautia              & s\\_\\_uncultured bacterium & DQ809662.1.1394            \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Kingdom | Phylum | Class | Order | Family | Genus | Species | OTU | \n",
       "|---|---|---|---|---|---|\n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | DQ800652.1.1393         | \n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | DQ804685.1.1389         | \n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | DQ809699.1.1388         | \n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | DQ905421.1.1468         | \n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | EU462231.1.1388         | \n",
       "| k__Bacteria             | p__Firmicutes           | c__Clostridia           | o__Clostridiales        | f__Lachnospiraceae      | g__Blautia              | s__uncultured bacterium | DQ809662.1.1394         | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Kingdom     Phylum        Class         Order            Family            \n",
       "1 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "2 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "3 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "4 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "5 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "6 k__Bacteria p__Firmicutes c__Clostridia o__Clostridiales f__Lachnospiraceae\n",
       "  Genus      Species                 OTU            \n",
       "1 g__Blautia s__uncultured bacterium DQ800652.1.1393\n",
       "2 g__Blautia s__uncultured bacterium DQ804685.1.1389\n",
       "3 g__Blautia s__uncultured bacterium DQ809699.1.1388\n",
       "4 g__Blautia s__uncultured bacterium DQ905421.1.1468\n",
       "5 g__Blautia s__uncultured bacterium EU462231.1.1388\n",
       "6 g__Blautia s__uncultured bacterium DQ809662.1.1394"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "core.taxa <- taxa(gil.core)\n",
    "class(core.taxa)\n",
    "tax.mat <- tax_table(gil.core)\n",
    "tax.df <- as.data.frame(tax.mat)\n",
    "\n",
    "tax.df$OTU <- rownames(tax.df)\n",
    "core.taxa.class <- dplyr::filter(tax.df, rownames(tax.df) %in% core.taxa)\n",
    "\n",
    "head(core.taxa.class)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 50,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'DQ905741.1.1519'</li>\n",
       "\t<li>'EF403447.1.1491'</li>\n",
       "\t<li>'DQ824110.1.1395'</li>\n",
       "\t<li>'EF403722.1.1491'</li>\n",
       "\t<li>'EF400344.1.1489'</li>\n",
       "\t<li>'EU531977.1.1448'</li>\n",
       "\t<li>'EF404835.1.1474'</li>\n",
       "\t<li>'DQ809284.1.1400'</li>\n",
       "\t<li>'GQ159011.1.1484'</li>\n",
       "\t<li>'EF604198.1.1495'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'DQ905741.1.1519'\n",
       "\\item 'EF403447.1.1491'\n",
       "\\item 'DQ824110.1.1395'\n",
       "\\item 'EF403722.1.1491'\n",
       "\\item 'EF400344.1.1489'\n",
       "\\item 'EU531977.1.1448'\n",
       "\\item 'EF404835.1.1474'\n",
       "\\item 'DQ809284.1.1400'\n",
       "\\item 'GQ159011.1.1484'\n",
       "\\item 'EF604198.1.1495'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'DQ905741.1.1519'\n",
       "2. 'EF403447.1.1491'\n",
       "3. 'DQ824110.1.1395'\n",
       "4. 'EF403722.1.1491'\n",
       "5. 'EF400344.1.1489'\n",
       "6. 'EU531977.1.1448'\n",
       "7. 'EF404835.1.1474'\n",
       "8. 'DQ809284.1.1400'\n",
       "9. 'GQ159011.1.1484'\n",
       "10. 'EF604198.1.1495'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"DQ905741.1.1519\" \"EF403447.1.1491\" \"DQ824110.1.1395\" \"EF403722.1.1491\"\n",
       " [5] \"EF400344.1.1489\" \"EU531977.1.1448\" \"EF404835.1.1474\" \"DQ809284.1.1400\"\n",
       " [9] \"GQ159011.1.1484\" \"EF604198.1.1495\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "top_taxa(gil, n=10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Kingdom</th><th scope=col>Phylum</th><th scope=col>Class</th><th scope=col>Order</th><th scope=col>Family</th><th scope=col>Genus</th><th scope=col>Species</th><th scope=col>OTU</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Bacteroidales S24-7 group</td><td>g__uncultured bacterium     </td><td>s__uncultured bacterium     </td><td>DQ824110.1.1395             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Bacteroidaceae           </td><td>g__Bacteroides              </td><td>s__uncultured bacterium     </td><td>EU531977.1.1448             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Bacteroidaceae           </td><td>g__Bacteroides              </td><td>s__uncultured bacterium     </td><td>EF403447.1.1491             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Bacteroidaceae           </td><td>g__Bacteroides              </td><td>s__uncultured bacterium     </td><td>EF400344.1.1489             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Bacteroidaceae           </td><td>g__Bacteroides              </td><td>s__uncultured bacterium     </td><td>EF403722.1.1491             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Bacteroidetes            </td><td>c__Bacteroidia              </td><td>o__Bacteroidales            </td><td>f__Prevotellaceae           </td><td>g__Prevotella 9             </td><td>s__uncultured bacterium     </td><td>GQ159011.1.1484             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Proteobacteria           </td><td>c__Gammaproteobacteria      </td><td>o__Enterobacteriales        </td><td>f__Enterobacteriaceae       </td><td>g__Escherichia-Shigella     </td><td>s__uncultured bacterium     </td><td>EF604198.1.1495             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Firmicutes               </td><td>c__Clostridia               </td><td>o__Clostridiales            </td><td>f__Ruminococcaceae          </td><td>g__Faecalibacterium         </td><td>s__uncultured bacterium     </td><td>EF404835.1.1474             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Firmicutes               </td><td>c__Clostridia               </td><td>o__Clostridiales            </td><td>f__Ruminococcaceae          </td><td>g__Faecalibacterium         </td><td>s__uncultured bacterium     </td><td>DQ905741.1.1519             </td></tr>\n",
       "\t<tr><td>k__Bacteria                 </td><td>p__Firmicutes               </td><td>c__Clostridia               </td><td>o__Clostridiales            </td><td>f__Ruminococcaceae          </td><td>g__Ruminococcaceae UCG-002  </td><td>s__uncultured bacterium     </td><td>DQ809284.1.1400             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllll}\n",
       " Kingdom & Phylum & Class & Order & Family & Genus & Species & OTU\\\\\n",
       "\\hline\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Bacteroidales S24-7 group & g\\_\\_uncultured bacterium      & s\\_\\_uncultured bacterium      & DQ824110.1.1395                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Bacteroidaceae            & g\\_\\_Bacteroides               & s\\_\\_uncultured bacterium      & EU531977.1.1448                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Bacteroidaceae            & g\\_\\_Bacteroides               & s\\_\\_uncultured bacterium      & EF403447.1.1491                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Bacteroidaceae            & g\\_\\_Bacteroides               & s\\_\\_uncultured bacterium      & EF400344.1.1489                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Bacteroidaceae            & g\\_\\_Bacteroides               & s\\_\\_uncultured bacterium      & EF403722.1.1491                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Bacteroidetes             & c\\_\\_Bacteroidia               & o\\_\\_Bacteroidales             & f\\_\\_Prevotellaceae            & g\\_\\_Prevotella 9              & s\\_\\_uncultured bacterium      & GQ159011.1.1484                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Proteobacteria            & c\\_\\_Gammaproteobacteria       & o\\_\\_Enterobacteriales         & f\\_\\_Enterobacteriaceae        & g\\_\\_Escherichia-Shigella      & s\\_\\_uncultured bacterium      & EF604198.1.1495                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Firmicutes                & c\\_\\_Clostridia                & o\\_\\_Clostridiales             & f\\_\\_Ruminococcaceae           & g\\_\\_Faecalibacterium          & s\\_\\_uncultured bacterium      & EF404835.1.1474                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Firmicutes                & c\\_\\_Clostridia                & o\\_\\_Clostridiales             & f\\_\\_Ruminococcaceae           & g\\_\\_Faecalibacterium          & s\\_\\_uncultured bacterium      & DQ905741.1.1519                 \\\\\n",
       "\t k\\_\\_Bacteria                  & p\\_\\_Firmicutes                & c\\_\\_Clostridia                & o\\_\\_Clostridiales             & f\\_\\_Ruminococcaceae           & g\\_\\_Ruminococcaceae UCG-002   & s\\_\\_uncultured bacterium      & DQ809284.1.1400                 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Kingdom | Phylum | Class | Order | Family | Genus | Species | OTU | \n",
       "|---|---|---|---|---|---|---|---|---|---|\n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Bacteroidales S24-7 group | g__uncultured bacterium      | s__uncultured bacterium      | DQ824110.1.1395              | \n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Bacteroidaceae            | g__Bacteroides               | s__uncultured bacterium      | EU531977.1.1448              | \n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Bacteroidaceae            | g__Bacteroides               | s__uncultured bacterium      | EF403447.1.1491              | \n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Bacteroidaceae            | g__Bacteroides               | s__uncultured bacterium      | EF400344.1.1489              | \n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Bacteroidaceae            | g__Bacteroides               | s__uncultured bacterium      | EF403722.1.1491              | \n",
       "| k__Bacteria                  | p__Bacteroidetes             | c__Bacteroidia               | o__Bacteroidales             | f__Prevotellaceae            | g__Prevotella 9              | s__uncultured bacterium      | GQ159011.1.1484              | \n",
       "| k__Bacteria                  | p__Proteobacteria            | c__Gammaproteobacteria       | o__Enterobacteriales         | f__Enterobacteriaceae        | g__Escherichia-Shigella      | s__uncultured bacterium      | EF604198.1.1495              | \n",
       "| k__Bacteria                  | p__Firmicutes                | c__Clostridia                | o__Clostridiales             | f__Ruminococcaceae           | g__Faecalibacterium          | s__uncultured bacterium      | EF404835.1.1474              | \n",
       "| k__Bacteria                  | p__Firmicutes                | c__Clostridia                | o__Clostridiales             | f__Ruminococcaceae           | g__Faecalibacterium          | s__uncultured bacterium      | DQ905741.1.1519              | \n",
       "| k__Bacteria                  | p__Firmicutes                | c__Clostridia                | o__Clostridiales             | f__Ruminococcaceae           | g__Ruminococcaceae UCG-002   | s__uncultured bacterium      | DQ809284.1.1400              | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "   Kingdom     Phylum            Class                  Order               \n",
       "1  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "2  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "3  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "4  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "5  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "6  k__Bacteria p__Bacteroidetes  c__Bacteroidia         o__Bacteroidales    \n",
       "7  k__Bacteria p__Proteobacteria c__Gammaproteobacteria o__Enterobacteriales\n",
       "8  k__Bacteria p__Firmicutes     c__Clostridia          o__Clostridiales    \n",
       "9  k__Bacteria p__Firmicutes     c__Clostridia          o__Clostridiales    \n",
       "10 k__Bacteria p__Firmicutes     c__Clostridia          o__Clostridiales    \n",
       "   Family                       Genus                     \n",
       "1  f__Bacteroidales S24-7 group g__uncultured bacterium   \n",
       "2  f__Bacteroidaceae            g__Bacteroides            \n",
       "3  f__Bacteroidaceae            g__Bacteroides            \n",
       "4  f__Bacteroidaceae            g__Bacteroides            \n",
       "5  f__Bacteroidaceae            g__Bacteroides            \n",
       "6  f__Prevotellaceae            g__Prevotella 9           \n",
       "7  f__Enterobacteriaceae        g__Escherichia-Shigella   \n",
       "8  f__Ruminococcaceae           g__Faecalibacterium       \n",
       "9  f__Ruminococcaceae           g__Faecalibacterium       \n",
       "10 f__Ruminococcaceae           g__Ruminococcaceae UCG-002\n",
       "   Species                 OTU            \n",
       "1  s__uncultured bacterium DQ824110.1.1395\n",
       "2  s__uncultured bacterium EU531977.1.1448\n",
       "3  s__uncultured bacterium EF403447.1.1491\n",
       "4  s__uncultured bacterium EF400344.1.1489\n",
       "5  s__uncultured bacterium EF403722.1.1491\n",
       "6  s__uncultured bacterium GQ159011.1.1484\n",
       "7  s__uncultured bacterium EF604198.1.1495\n",
       "8  s__uncultured bacterium EF404835.1.1474\n",
       "9  s__uncultured bacterium DQ905741.1.1519\n",
       "10 s__uncultured bacterium DQ809284.1.1400"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "gil.mat <- tax_table(gil)\n",
    "tax.df <- as.data.frame(gil.mat)\n",
    "\n",
    "tax.df$OTU <- rownames(tax.df)\n",
    "tp.class <- dplyr::filter(tax.df, rownames(tax.df) %in% top_taxa(gil, n=10))\n",
    "tp.class"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.4.3"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}