switches/immune_analysis.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:46:59.391230",
     "start_time": "2017-01-06T17:46:56.250Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading tidyverse: ggplot2\n",
      "Loading tidyverse: tibble\n",
      "Loading tidyverse: tidyr\n",
      "Loading tidyverse: readr\n",
      "Loading tidyverse: purrr\n",
      "Loading tidyverse: dplyr\n",
      "Conflicts with tidy packages ---------------------------------------------------\n",
      "filter(): dplyr, stats\n",
      "lag():    dplyr, stats\n",
      "\n",
      "Attaching package: ‘magrittr’\n",
      "\n",
      "The following object is masked from ‘package:purrr’:\n",
      "\n",
      "    set_names\n",
      "\n",
      "The following object is masked from ‘package:tidyr’:\n",
      "\n",
      "    extract\n",
      "\n"
     ]
    }
   ],
   "source": [
    "library(tidyverse)\n",
    "library(magrittr)\n",
    "source(\"../data/env/variables.R\")\n",
    "source(\"../wisdom/code/r/clean_theme.R\")\n",
    "\n",
    "options(\"readr.num_columns\" = 0)\n",
    "\n",
    "# read switches\n",
    "switches <- read_tsv(\"../data/pancancer/candidateList_full.tsv\")"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Stoma/immune associated switches"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:01.796751",
     "start_time": "2017-01-06T17:46:56.261Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC31BMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYY\nGBgZGRkaGhobGxscHBweHh4gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgpKSkrKyssLCwt\nLS0uLi4vLy8wMDAyMjIzMzM0NDQ1NTU2NjY6Ojo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJD\nQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRV\nVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZn\nZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29xcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6\nenp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uM\njIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6f\nn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCx\nsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLD\nw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV\n1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn\n5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5\n+fn6+vr7+/v8/Pz9/f3+/v7////9knGNAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4\nnO3di3/cdZ3v8fFwjhQFxAJSBIUV1gWhejbcWd2KlAJWYJu20KONXLRNK1twBaFCi+4ibBH2\nyGkQFxdB3KU90t21VnaFerhoQaBkaZNM7slkkubWZJpkMt8/4Pzm6qTTy3S+7+9kfr+8no8H\nv0fa+faT34Tva26dJiEDwFpouk8ACAJCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJ\nECAks+g/p/sM4H+EREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKC\nACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQ\nEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACER\nEgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFB\ngJAICQKEREgQICRCggAhERIECImQIEBIhASBoIfUutDE65Ytq4sXHrNLCAn2Ah5SbPV888La\nWOzeLYXH7BpCgr1gh5R48DfzzaoGY3avLjxmFxES7AU7pH991Mw3i2PePdPSwmN2ESHBXqBD\narp9zAup2stmtLrw6C1oWOxZQEiwFuiQfjE/pdErpra24OgtePdSz3xCgrVAh5Q032xeH59Y\nt7nwmF3BQzvYmwEhxTfWLK+LFx6zK9Qhjd6x5Pr/MGbrlxZuNf13Vt8cyXwcXbl4ZVT7qVAx\nAh/S4alD+tkGU/8FY65oDl9h7nvOPLku+/FT5qn7tZ8KFYOQ5CG19+3bvsSYpdu3LzXzH5lX\nvTXz8TW7zK5rtJ8KFYOQHDxHWl71qjE7qqreMBc/En3s5uzHo2b0EvWnQoUgJHlI45OTv15o\nTPXLL1Wbq3pN3+XZjxvM7gXaT4WKQUjykL7/dGLnVd7zonD4C+Y7zyb+5dbMx2ufNc/cp/1U\nqBiEJA8psuKGG35rzNaFC7eZ6IqFt7RmP66tWdWr/VSoGITE3yNBgJAICQKEREgQICRCggAh\nERIECImQIEBIhAQBQiIkCBCSIqSqUglOHxWBkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFC\nIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRC\nggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQI\nEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAh\nERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIh\nQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIE\nCImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQ\nCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQ\nIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIBDuk+hWLbtkR\nr1u2rC5eeMwuIiTYC3ZIt72cePXLL6yNxe7dUnjMLiIk2At2SDvisddWrmowZvfqwmN2ESHB\nXrBDMmbBVe8tjhkTW1p4zC4hJNgLekhjz62p9rIZrS48epf2/dyzkJBgLdAhjf79pBlYVNto\nTENt4dFb8PZcz5WEBGuBDsksf3ny+W9uXh+fWLe58OhdPrjV8yVCgrVgh9S0evE32uIba5bX\nxQuP2UU8R4K9YIdUFEKCPUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIk\nCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIA\nIRESBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBAS\nIUGAkAgJAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRES\nBAiJkCBASIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIODfkMbvOO/4+q+N2A8i\nJNjzb0irz/1lqP/TNfaDCAn2/BvSia97J//KifaDCAn2/BvSSbu9k6+fbT+IkGDPvyGturoz\ntGvBV+wHERLs+Tek8QfOnvXRlcP2gwgJ9vwbkgwhwZ7PQ5oQnD8hwZ5/QwrdGCMkVAofh7To\nM22EhArh45DGf3j6S4SEyuDjkCbMm598hJBQEXwdkhm8jpBQEfwbkgwhwR4hERIEfBpSaI0J\npdnPIiTY82lI9RFTn2Y/i5Bgz6chKRES7Pk0pNjXTjXmx6d8ZHXMfhYhwZ5PQ/rWn2414f92\n94ufusN+FiHBnk9DOuPfjfneeQnzr6fbzyIk2PNpSEc3G/MX6435wzH2swgJ9nwa0mnPm573\n/96Yn55nP4uQYM+nIdVWvVR9zmT89Y/daz+LkGDPpyEN3/Sh0142T4SWxu1nERLs+TSktMEB\nxRRCgj1fh6RBSLBHSIQEAUIiJAgQEiFBgJAICQL+DWnTifx7JFQM/4Z0xpI3+fdIqBT+DenY\nNtEgQoI9/4b0ud+LBhES7Pk3pG0XbdrJQztUCP+GxDc/QQXxb0gyhAR7hERIEPBvSLFvnznr\njHv22Q8iJNjzb0i1Zz2z45lP3G4/iJBgz78hzXndO7xyqv0gQoI9/4b04eQr3+/Oth9ESLDn\n35CqL3479vbFi+0HERLs+TekvuveF3rfdX32gwgJ9vwbkjGxsOA1O0KCgp9DEiEk2PNpSPx8\nJFQWn4bEz0dCZfFpSEqEBHv+Den45CHyAftBhAR7fg3pqMxTpAvtRxES7Pk1pPr6Y1NPkSbs\nRxES7Pk1pLSEYgghwZ5/Q+pe/KRZs6DLfhAhwZ5/Q1p4cYPZ9RfX2g8iJNjzb0gnvOkd3jje\nfhAhwZ5/QzrtFe/w/06zH0RIsOffkO75k2fe+PlZ37QfREiw59+QJv72rFlnrB2zH0RIsOff\nkGQICfb8G9L4HecdX/+1EftBhAR7/g1p9bm/DPV/usZ+ECHBnn9DOvF17+RfOfGQa95aseiv\n2+N1y5bVxQuP2UWEBHv+Demk3d7J1x/yuwiNXP/WxE/vfGFtLHbvlsJjdhUhwZ5/Q1p1dWdo\n14KvHGpJ6zpj9ty0qsGY3asLj9lVhAR7/g1p/IGzZ3105fBhViX+4YeLY8bElhYes0sICfb8\nG1JR6msfj1d72YxWFx69i9+e67mSkGDNxyENxk3kMK9+b1oZNqa20ZiG2sKjd3n4Fs/VhARr\n/g3pyaP6N73v6OcPtSSydCQej29eH59Yt7nwmF3FQzvY829Ipz+WqHrqB2cfasmL8z3XxjfW\nLK+LFx6zqwgJ9vwb0tHNg8eO7z7afhAhwZ5/Q/rkhge/aB45034QIcGef0N6/n/89//89fuf\nth9ESLDn35DMUNSMCN6zSkgQ8G9ID7WIBhES7Pk3pHM2iAYREuz5N6T/e95P/sA30UeF8G9I\n/FgXVBD/hiRDSLBHSIQEAf+GxPdsQAXxb0h8zwZUEP+GVMz3bCgKIcGef0Mq4ns2FIeQYM+/\nIRXxPRuKQ0iw59+QivueDUUgJNjzb0gyhAR7hERIEPBvSKkfMRb5gP0gQoI9v4Z0VOatdhfa\njyIk2PNrSPX1x9YnTdiPIiTY82tIQoQEe/4NadOJ/DMKVAz/hnTGkjfr+Yd9qBD+DenYNtEg\nQoI9/4b0ud+LBhES7Pk3pG0XbdrJQztUCP+GxPdsQAXxb0gyhAR7hERIEPBpSPU59rMICfZ8\nGlIox34WIcGeT0NSIiTYIyRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKC\nACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQ\nEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACER\nEgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFB\ngJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQI\niZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIiJAgQEiFBgJAI\nCQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKCACEREgQIiZAg\nQEiEBAFCIiQIBDyksWXGxOuWLauLFx6zawgJ9oId0pbV8415YW0sdu+WwmN2ESHBXrBDeuc1\nL6RVDcbsXl14zC4iJNgLdkjGeCEtjhkTW1p4zC4hJNibASFVe9mMVhcevUs77vdcS0iwNgNC\nqm00pqG28Ohd+vZcz5WEBGszIKTN6+MT6zYXHr1Lx9o9NxASrM2AkOIba5bXxQuP2SU8R4K9\noIdUBEKCPUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJ\nAoRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBA\nSIQEAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRE\nSBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQE\nAUIiJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAg\nJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAiJkCBASIQEAUIi\nJAgQEiFBgJAICQKEREgQICRCggAhERIECImQIEBIhAQBQiIkCBASIUGAkAgJAoRESBAgJEKC\nACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQCAkChERIECAkQoIAIRESBAjJlyHFFmSP0ZWLV0aN\n2fqlhVutrwZKR0h+DOnnC6qyx/ueMk/db8wVzeErrK8GSkdIfgxpMl6VPV6zy+y6xpil27cv\ntb4aKB0h+TEk7zNmjxePmtFLjNlRVfWG9dVA6QjJ5yFd1WB2e0+Vql9+qdr6aqB0hOTzkNY+\na565z3uOFA5/wfpqoHSE5POQorU1q3qN2bpw4Tbrq4HSEZI/Q0KFISRCOqB3LzNm/vz5V15k\nRu9Ycv1/TPfpVDxCIqQD6bo9fW6/+t/mZxtMPc+/DoeQCOkAhldFU+c2cNuYae/bt33JNJ/P\nkUnfh6bf89F/Z/XNkTJ8TkIipEKTd7yXfjlj7VvJ4/KqV6f3fI5Q+j40/Z6P+54zT64rw+ck\nJEIqNJw6uQHTttz7xfjk5K8XTvcZHZH0fWj6PR/zH5lXXY53IRISIR1Y8tw2/sQ7fP/pxM6r\npvtsjlDyPjT9no+LH4k+dnMZPiMhEdKBeeeWuL7D+yCy4oYbfuvgEyTfu+7mGUz6PjT9no+r\nek3f5fLPUIiQfBBSEDvNvHfdyTOY9H1o+j0f33k28S+3yj9DIUIipOmReu+6m2cw6fvQ9Hs+\noisW3tIq/wyFCImQpkvyvetlegbjHiER0nRJvne9TM9g3CMkQpou3umV6xmMe4RESNMl+d71\nMj2DcY+QCAkChERIEJiRIcXrli2ri2d/NeNDcjx+ZpiRIb2wNha7d0v2V4TkdvzMMCNDWtVg\nzO7V2V8RktvxjlXI2c/IkBbHjInlvg0cIbkd71iFnP2MDKnaC2k0+d2rRt/1XPnD39n6VKlm\nwnjHpvHs8/fUjAypttGYhlrvg7fnes4KAaXI31MzMqTN6+MT6zZ7H3Tc7/mf82uAEuTvqRkZ\nUnxjzXLpy9+Y8WZkSFMREuwREiFBgJAICQKEREgQICRCggAhERIECMk82TPdZwD/IySzfbpP\nAAFASIQEAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAwOchjU33CQAp/g6p\n5bKfTfcpAEn+Dum1qgen+xSAJEICBAgJECAkQICQAAFCcmpiqC/avzfhavz4oDd+1PF4V9PN\n69+6/ppVv5h0NX7fQG/vQMzZF2c/QQrp6NzhkMp4lUd7Wts725v7HG0Wb3xHZ3vY1fi94baO\njrbmPY724mPpn/e1atzJ9MSQd/adbeEBJ9MLzZyQFmQ/WOPwhKaK93REPN3Nbv5vTjSlx7cM\nORk/Hu5Mn72b8b/N/uS8x52Mj4W7kmff1TziZHyBmRPSNFzT4ZZISldT/PCLj9xQa3p8Z4+T\nu6TBtux4J3dJq7IhXeHki7OnPX32Hb3leXAXxJBCPzn/Ez/oufrkT75odl940qVh73ee+Pi1\nobnPnzP73IdSVzm1wv3p9Wf+Z0aa97kYv6cjMz7s5J1SvZ3Z8RMuxn8h98Nc2xxMT/Rkzr47\n4uxJ2BSBDOnvzIvHVN81+cLZicuendxyifc7tU3eNT3/ocm33p8OKbnC/enldnpzzMX4Psch\n5cY7eRbzuVxIjQ6mJyJdmZDcPBooEMiQvAf1odl93lZIHBMKhT7k/SqavKaTr2xcGkqHNFSW\na559cOToNn0gc4fXHXayV/ozZ9/l5jb9f2U7usTJ64LZm4GuMn1D6iCFdIL3vHLvCenrFPpQ\nvzFvjH+kw0y2ZX7HLLxuU0cmJFOWaz6WfsIbaetz8jh9X7g7PX6Pi+lmtDk9vrXfyfinsyF9\ny8n4vemzd/VKTIEghXTd19v2fv2vMplc++3Ev508eeM98YevyfzO+HHvJn4UmihjSGaoubM7\n0t3W4+gV3sHmju7u7tYeJ/d3JtGfHN/VEnUzfvzWqj9PdnR1xMn4RF9LV6S7s6W3PE+RAhVS\ndNHsk5b2ZTLp+PyJZ201kXkfvqAl/TvzPrbh5HPWf7amnCGZkd6mpki/m52YGd8z4Gp8Ym80\nOd7Vc4x9j82rqrr0nqij8ZNDPd7ZD5apo0CFVJEmJ5y+/Op4fNzt+M5ml68EJOLxcr2vgZAA\nCUICBAgJECAkQMDfIb1V9eh0nwKQ5O+QEjuGp/sUgCR/hwRUCEICBAgJECAkQICQAAFCAgQI\nCRAgJECAkAABQgIECAkQICRAgJAAAUICBAjJjMeAUuTvIkIiJJQofxcREiGhRPm7iJAICSXK\n30WEREgoUf4uIiRCQonydxEhERJKlL+LCImQUKL8XURIhIQS5e8iQiIklCh/FxESIaFE+buI\nkAgJJcrfRYRESChR/i4iJEJCifJ3kY9Dan/80Uf/T7f9HEJCafJ3kY9DeiD5M7E32M8hJJQm\nfxf5OKT7kiF9334OIaE0+buIkAgJJcrfRYRESChR/i4iJEJCifJ3ESG5DWlkeHCv2/Ejo+7G\nR199MexuemxkaMjlF6dr+2/aHI4PdEhHlzDHYUijvZ2NTQ3dg47GjyTHN3YPOxrfc+9F3lf4\nxjccjR+JNnhnH3GVUuvtyf1x63uOxifl7yJCchjSaLSpraOjvaXRUUk9yfEdzZ1DTqYP3liV\ncrmbkka7m9pTZ++mpMgX02f/+SYn41PydxEhOQxpoDG5VTo6WrqcjB9syozvdjL+H6syvuxk\n/J7M2Tf3OBn/YPbs73QyPiV/FwUvpNCaOXffddZx90/5yCT/C/3k/E/8YPeFJ10anvJn3IUU\nbU5tlY72BiePvrLjOxqd3KjXZLdiVauL8d2t6ZNv63TyJO/q7Mlf6ub+Oil/FwUwpGd2hjaM\nb5s15SOTCunvzIvHXPbs5JZLpvwZdyFFWjI7vWnAxfjsVuxocrJXFuRCes3F+K62zNk3uLgZ\n2HtB7uybHYxPy99FAQxpLBGaMInQlI9MKqQh73hMKBT60JQ/4y6kntxdhpMnSblOG52EdENu\nK77jYnxXa/buesTF+MtyZ+/moWNS/i4KYEjZbqZ+NBRK/+IjHWaybcqfcRfSnqbMo5cOJ3ul\nLzO+1c2Do/uyO/EvnT4wbe1ycvYrsme/yMX0tPxdNDNCOvo35nuZkG68J/7wNVP+jLuQRjpT\n9xntTVGn4xv7nIyvvySzFR93Mn64MXWX1Nbo5GFv7OVsSJucjE/J30UzI6SHzzyvLhNSZN6H\nL2iZ8mcc/j3SUGdTS2tzY4+jvzMdTI1viDoa/4v0w6O7HP1Nz4B39i3hxl4302M/Tt8OPORo\nfFL+LgpYSKVw+c6Gkf5opNfNTW5q/J6eSO+gs7c2hB+t/er6l1xNT5+9u9fU3v12VdXqHc7G\nxwhpP7zXLqDeqara5vQT5O8iQiKkoCKk4hASDomQikNIOCRCKg4h4ZAIqTibv+TZaj+HkAKK\nkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKK\nkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkMqLkAKKkACBXVVVL5XtkxESgoqQAAFC\nAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQivD2VfOSrhD8NAoEFCEV4bnM\nD39/cLpPBBWLkIpASDgcQioCIeFwCKkIhITDIaQiEBIOh5CK4JOQJkcG9gzFEq7GRzbefvN3\n3W2W+F7v7Mccju93Ob5xbVXV7e84G7+fwIXUPP+kU67rmI5TOoDxaEtbR1t4wFFJr/5l6mvw\n7XE34/f1eGffGh5ydPaxnpb29tbwsKPx/3xp6ouz0c30AoEL6eINw2N/83ljFkzHWe1nsqc9\n4uluHnQyvvPSzBfhESfjJzJnH97rZPx4uDM5vis86mT8q5mvTdUWJ+MLBC6k4/cYs3dZZVyx\nvS2RlM7IpIvxG7J75TIne3GwNXP2USf3GQNt6fEdbsavzH5xql1ML1QJ+60UBw3p6gs2JW9B\nrw3NNaEnPt63ZM6pS/tMaM2cu+8667j7zfPnzD73obKdZH9mr0TC+1yMX57dK1VvuBjf15E+\n+e6mCRfjo53Z8XEX4y/PfXHcPBzYX+BCij1w/qzq7tQVC9U2LanZt2/5TSb0zM7QhvFts8z5\nD02+9f6yneSe9kxIzbHDLz5y1bm9st3F+N6O7M2AkxcEeroy4510Gr8g98XpcjC+UOBC8rQs\nmpcOKWpm9xjTfbIJjSVCEyYRMpOvbFxavqucffTSHXbycsDq3F5pcjF+T/YeKezkLqMvcyvT\n1ePkod012a/NpY5eitlP4EI69j3vxu74dEgmFVLP7MwvvP8WXrepo3xXORbuTu2V9qiT8Zuz\ne+WvnIwfyZx92x4n4/e2ZMb3Oxn/cPaL8y0n4wsELqSFiwd6773Ku2Ljyeu2+Ktj+2qW/DGk\n495N/Cjk5CH/gSQGmr3HL93tbp4imfitmdvc3zsZn+hrST76autxc5OeG+/mf8fAwvQX54oy\n/VVI4ELae9OcE672vnjzPpa8br2LT5mTfLEhG9KGk89Z/9masp1lYqgn3NzU66Yj77quvcj7\nElz3mqPxkwPhcLip19VDo8mBpnBzuM/V+O4Vyf3xFSePeg8gcCFVmMnxfS7vAIf/8FK7s/dN\neGc/Nubk+VF5xu95/ZUeh+OnIiRAgJAAAUICBAgJEPBrSM9nQnp4uk8ESPJrSMP/9FRKed7/\nARyGX0MCKgohAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEZMZj\nQCnydxEhERJKlL+LCImQUKL8XURIhIQS5e8iQiIklCh/FxESIaFE+buIkAgJJcrfRYRESChR\n/i4iJEJCifJ3ESEREkqUv4sIiZBQovxdREiEhBLl7yJCIiSUKH8XERIhoUT5u+hAIU1s2+QX\nW4YJCdPlcCH9qso/HiUkTJfDhfSL6a7jCAh+0BghoTSEREgQICRCggAhERIECKmMIXXuHHI5\nfmTvqMvxe92OHxlxOX10ZMTp2Qc7pHkf/GDogx/8YmWENPJPV1dVXfT1na7m93c3NHRG9zqa\nPrqnKzne1WYf7UuO73U1fqS30+XZJwU6JM/RR1CR25DuS5/k5TucTB/tbWxtb28Pd7opabSn\nyRvfFu5yO77b0fjuptaO9ramLoclEVKZQno5e5aLnDzEGGxs70hqjriYHhtoSo8P9zgZ39+Y\nmt4e7nUyfk+T0/EpMyKkUOq/0Jo5d9911nH3m74lc05d2mdCT3y8jCGtzZ3m2y7GR1s60pul\n0cmtbk9zZnyHk/GRzNm3dTq5lelqzY53MT1tJoX0zM7QhvFts8ySmn37lt9kQrVNZQypJnea\nW1yM787slY5GJ69n/HH8sIvxnW2Z8Q0uHtuNdmTGtzsZnzaTQhpLhCZMImRm9xjTfbIJRQuX\nuwvpttxpbnUxPnub7iik7G16e6OTrZgd7yikznan96cpMyWkoVDymC4qGVLP7ANeXXchPZQ7\nzbCL8b3hzF7pdLJXopmHdq1uHntlHzm2drmYnruVael29xL4jAjp6N+Y7+WFtPirY/tqlpQ5\npF2XZM5ytZPxww2pG/X2JjfPp4cbnY4fbGxL39/1ORk/kBnf1O9kfMqMCOnhM8+rywupd/Ep\nc5IvNpQ1pNimdEmLHD3hHWgMt7a1NHY7evCyp7G5tbW5KeLoJuJo6SYAAAP7SURBVL0vOb6l\nqcfN+NHexuaW1ubGqJPpaUEP6Qi5fGfDzu8sufK2Hzm7URzu7e7qGXD22CU93tX02FBvl8vx\ng9Gu7qi7L06MkMoYEoKMkAgJAoRESBAgJEKCACEREgQOF9LvLpzuPIr3NCFhuhwupBmGkFCa\n/F1ESISEEuXvIkIiJJQofxcREiGhRPm7iJAICSXK30WEREgoUf4uIiRCQonydxEhERJKlL+L\nCImQUKL8XURIhIQS5e8iQiIklCh/FxESIaFE+buIkAgJJcrfRYRESChR/i6aEtIJJ552ygnF\nqqy1bxISyu2gITVum3tHY7G2zb2z6LW/mvtNJ2u3zv2bzEf7Sg8JsDf1od17c9cV/Sf/a+76\notfWz33Aydp353636LWAQ4QECBASIDA1pNi7XUX/Sb+tBRzi5W9AgJAAAUICBAgJEAgtq4vH\n65bljvtdXL9i0S078i8/xNq3Viz66/Yi15qxZcYUu/bAjmQt4Fgodu+WF9bGcsf9Lr7t5cSr\nX86//OBrR65/a+Kndxa31mxZPd+YItcexJGsBRwLmd2rVzWY3HG/i3fEY6+tzL/84Gtb1xmz\n56bi1pp3XvNCKnLtQRzJWsCxkIktXRwzuWPBggVXvZd/+SHXJv7hh0Wv9UIqeu0BHclawLGQ\nGa2u9rZk9liwYOy5NfmXH2ptfe3j8WLXJkMqeu0BHclawLGQaaitbTS549RLR/9+0gwsyr/8\n4GvNppVhY4pcmwqp6LUHdCRrAcdCE+s2b14fzx33u3j5y5PPfzP/8oOvjSwdicfjxa01qZCK\nXntAR7IWcCy0vC4e31iTO+53cdPqxd9oy7/84GtfnO+5tri1JhVS0WsP6EjWAo7xF7KAACEB\nAoQECBASIEBIgAAhAQKEBAgQEiBASICAPqTh1afPOvPu2MEvqCdeBI5+Uy/7838O/9uffj33\n6/qj9rsgskb+OYFppg/phJe8w9ZTc7/O3QHtfwEQHPqQPlMdTX8w/o2TT/rGuDk2dPzUC5Jl\nhZJySwC/04e0/c/e/9m/bfY++O6CXa+de8cf75GyFyR/Y2JifNGNuSWA3zl44j/5u3WfOurH\nxpzdacwvz8t7bSFzQfo3Hv9MLLcE8Dt5SINPxI1J3D3HmFnJh2/H50LKXZD6jTdPbzO5JYDf\nyUMaCL3uHV/8iDEf3WVMf30upNwFyd8Y/GTylYfsEsDv9A/tlnzsp3/49/NWGbNiwX+99umv\ned1Epl6QDOm6RyY82SWA3+lDit/zqWNOX+M9ARpadsLsmhEzceEHpl6Qe9UulF0C+B3vMgAE\nCAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkACB/w+H4b8aNxQHWAAAAABJRU5E\nrkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "library(UpSetR)\n",
    "\n",
    "switches %>%\n",
    "    .$Origin %>%\n",
    "    table %>%\n",
    "    fromExpression(.) %>%\n",
    "    upset"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We cannot link an artifactual origin to most of the switches."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:03.247295",
     "start_time": "2017-01-06T17:46:56.269Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading required package: RColorBrewer\n"
     ]
    },
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC6FBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycp\nKSkqKiorKystLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ2NjY3Nzc5OTk7Ozs9PT0/Pz9AQEBB\nQUFCQkJDQ0NFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5QUFBRUVFSUlJTU1NUVFRV\nVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZn\nZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5\neXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqL\ni4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJyd\nnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2urq6v\nr6+wsLCxsbGyIiKysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/A\nwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS\n0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk\n5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX2\n9vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///+RO+HMAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAgAElEQVR4nO2de5wV5ZnnyWWSGTP32cxOZpKdzMzuJnEyu5vdmZ3JziWZydxKURyNGicq\nMayJ83YDNo10t4iIXOWiiJIVCSA2SEQUkog4okaDgBhFI8hNsLGhaaDppq+n/t2qOnVu9b6n\nuuS85zy/c87v+/loXbpO9ZfnfX59zqlTVWeMSwgpmTHSAoTUAgwSIRZgkAixAINEiAUYJEIs\nwCARYgEGiRALMEiEWIBBIsQCDBIhFmCQCLEAg0SIBRgkQizAIBFiAQaJEAswSIRYQDZIYwyU\n6deg7o3UBgyS8N5IbVC7QcrbF4NEyo18kBZGsLlvfdbujgkJkQ9SBfbd4VGWHRMSUhdBqpId\nkyqGQcLZMaliGCScHZMqBjNIheuzS1/ycN2RH/7TH338039xw+68B/SuGvu5X73oP3/t/pO5\nh+QOAhbs7r17vvIHF/3yH/3twtzbpuL77f/+dRd/8qP/8X/8/aRXTHKDm779d5+/6Lf/19g7\nDl/Av57UEFUVpGCm18lk5JLjmS3Wfiaz7tcXpzJbGoM0MO2izE8+0TqY/wtM+13zu7kd/d37\nmtxTf5j96UcnDZVeDlK9VF2Qhr6c6+2L+4LVqeYxeXzbT9LFF18cbHDxxYW7O/fV/E2/es6N\n2687L3/jMZ/riejc96H8H1+VslkZUmVUXZBax/xy297e/Q992l+4I1g9M+jj506deO5f/bl7\ntX1kZ1Nj/dmrt58+/fy1/txYN26/B3/Rm/3ypkPnD2/+mr92auHedn3Um/nS99/uO/rj4Mcb\nrJWFVB9VF6SP/N6+YL7bfzX3RX9u9y+MGfOh1elNN3krP90f3Ud2drU38+G16ZXtH/YW1sbs\n1/2ON3dJ+nkm5Uf084V7u9Kbfi39gi71dX/+QqtAagD5IBXSnV1fuFVu8yfDtd/35n/Jn/mH\n3JOF696S3cIQpJT/eq8ls2mbt/AnqeL7df/Kmzsart3rzX+8cG+f8qaZAxP7vPnfLKUSpMqp\nuiD9aeatyMFw9X7vncpvncts+6a3ckZ0H5nZf/emv92b2bT3k97ii0X367p/+bnP/VVm45Hc\n7jJzH/emp8Ifp9qmTZs2UlItSFVTdUF6MLM209rzvcmN2W1T//wXf3FHdB+Z2ane9P/m9nuT\nt9hadL+FnNSD9HlvuvgC/+Gk1pAP0ujrC4K0Pbr6Um/ycPw+MrP+a7VVuS1Weot/V3S/BZz/\nth6ky73pRxqORzcldUnVBem96OrPeZNn4/eRmf2sN30+t4X/Su+Piu43Q8/uR1ov/eQYPUgv\nfcSf+9Cf3fajM4n+saSWqbogpaKr/4M3eSd+H5nZX/OmR3JbHPAWf6vofn1OLPuH38t73Rn5\n+frfDtd/+L9Pe42fItU3VRckbbX/vNAXv4/MrL9pf26LPm/xozG/bmTOr2Yi9Du3GILknv63\n38iG7IsvJvw3k5qkCoI0FB+kX/EmpquNRn9Getdb/LWi+3VTQXjGfGrsnU8cHMnbJn/roW3/\n9oUwSR+akfAfTWqRKgjSgfgg/b43eTl+H5nZz44peI/0vLf4B0X36271Z77ySiq6u6h01xON\n/zV4gcfnpDqmCoL0dHyQ/HPk1ubW/nzbtu3RjTOzf+lNV+c29T96/XLR/br/7E3/ORVda5RO\nbfHPbv3H0f65pHbBDdJwZmFhfJD8M1Yn5db+7zFjvhDdODM7xZt+J7epf9rPlKL7DZ6/spdU\nnNGCdG7btm2Hsg/a4q38w2T/aFKL4AZpfzg/8vn4IG33Jp8ZyKzs+nDmVFRDkJ71pr9zPrPp\n8Y95i88U3a/r/7gns/IZLUgd3uQb2Qed9pZ+8QP8y0mNgRmkT3jrvxfOrx0TH6TUn3jTWZmV\nTWMyH88agpTyMzk9s+lkb+ELqcimeUu/6U1fC9f1fVEL0ogn+dnsRUh+Rv/LB/q3k5oCM0hf\n8tZ/Kn2x695PjhIkd4M3/cj69LpnvCekT57N/rgv8mtW5m26xj/7e1XMfv3zIK5Jr3rrzwKJ\n3oKf/5M3bQyvDTz137wFdSElILUBZpDm+j/41P/b3/dmy0VjrholSMF7nTFff667+8UJ/qV2\nD6R/7Ofkgf4TBVumLvFnv/HimTPP+xc+jLksFbPfFf7MpS+e6tk99RfHjPEvPpp8Jv/n/pPQ\nmC98b8fprl0z/I9tf+OoS+oWzCAN/M8xWb54brQg9V8+Jo8J4YG2Px6TfSrLPe7c3+Rv+rVe\nk0Zmafivclv+wvL0hejX5G/93fx9jfmVrXZqQqoSzCC5XVdlLuP+6y73Ex6GzXNLI3N+PdPO\nn1iYOWD9iClI7sDUX8pu2jak7alg6ewlmU3/+EX36Q9rQRqZ+fFcjv56b6nFINWMbJBi+Nn4\nL3/6Y//pb9uT3VOk676//8NPfPx3vzrnVG7dtn/8/Y996k+1Td+b/zefveiiz371nuOj7jX1\n3Pj/83sf+8w/rfYlnvzz3/rElyKXTRyfe+Wf//4v/PJnvnLbzxJpkpoFNkiEVBMMEiEWYJAI\nsQCDRIgFGCRCLMAgEWIBBokQCzBIhFiAQSLEAgwSIRZgkAixAINEiAUYJEIswCARYgEGiRAL\nMEiEWIBBIsQCDBIhFqihIA0luyq9/JwffZOKMADyXZwjA6NvUxH6y/jdOzUUpLO9o29TCVKd\n0gYh3f2jb1MJBrukDUJODo++zYVSQ0E6eVraIM3IodG3qQgdIH9Z+lFu+HdksHz7ZpCswyBF\nYJCqCwYpAoMUgUFKBIMUgUGKwCAlgkGKwCBFYJASwSBFYJAiMEiJYJAiMEgRGKREMEgRGKQI\nDFIiGKQIDFIEBikRDFIEBikCg5QIBikCgxSBQUoEgxSBQYrAICWCQYrAIEVADtLT6lxkTc+m\nhU3zHus2LpUVBikCgxQBOEhDd0aDdLJVqQalmo8alsoLgxSBQYqAG6TuFSoSpNRiNevA0OEF\navaItlRmGKQIDFIE1CCtm+k92USCdEA1+a/jelrU69pSmWGQIjBIEVCDtLitrS0apI1qZTBd\nr1ZrS2WGQYrAIEVADZJPNEjL1a5g+pZapC2VGQYpAoMUoZqCNE8dDKadaoa2VGYYpAgMUoRq\nClKrSt/6o1dNTkWXChl+1zIHDtre4wWyT1og5J1D0gZpDu+XNgjZd8TyDvPu6mI7SBPVmXRM\nlOqPLhWSOm+gRJsSKPR4XA6QekQKgiKCMjBp8p7hbAepJXwOOqcaU9GlKkJwvKT/6djADozt\nIM1R6XcInapNW6oiYMer3oEdGNtBWqZeDab71AJtqYqAHa96B3ZgbAdps1oTTDeqR7WlKgJ2\nvOod2IGxHaSTaqp/0LV/ujqiLVURsONV78AOjL0gtbcHB+aWqsWn3bPL1HxXX6oeYMer3oEd\nGHtBCue6WpRqVaq5w9WXqgfY8ap3YAfGepDcs+vaJrY+krkCqXCpaoAdr3oHdmBq6ApZm8CO\nV70DOzAMkhHY8ap3YAeGQTICO171DuzAMEhGYMer3oEdGAbJCOx41TuwA8MgGYEdr3oHdmAY\nJCOw41XvwA4Mg2QEdrzqHdiBYZCMwI5XvQM7MAySEdjxqndgB4ZBMgI7XvUO7MAwSEZgx6ve\ngR0YBskI7HjVO7ADwyAZgR2vegd2YBgkI7DjVe/ADgyDZAR2vOod2IFhkIzAjle9AzswDJIR\n2PGqd2AHhkEyAjte9Q7swDBIRmDHq96BHRgGyQjseNU7sAPDIBmBHa96B3ZgGCQjsONV78AO\nDINkBHa86h3YgWGQjMCOV70DOzAMkhHY8ap3YAeGQTICO171DuzAMEhGYMer3oEdGAbJCMp4\noXjAAFsQBskIyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQBskIyniheMAAWxAGyQjK\neKF4wABbEAbJCMp4oXjAAFsQBskIyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQBskI\nyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQBskIyniheMAAWxAGyQjKeKF4wABbEAbJ\nCMp4oXjAAFsQBskIyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQBskIyniheMAAWxAG\nyQjKeKF4wABbEAbJCMp4oXjAAFsQBskIyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQ\nBskIyniheMAAWxAGyQjKeKF4wABbEAbJCMp4oXjAAFsQsCChlEnOg0GKBbYgDJKxTHIeDFIs\nsAVhkIxlkvNgkGKBLQiDZCyTnAeDFAtsQRgkY5nkPBikWGALwiAZyyTnwSDFAlsQBslYJjkP\nBikW2IIwSMYyyXkwSLHAFoRBMpZJzoNBigW2IAySsUxyHgxSLLAFYZCMZZLzYJBigS0Ig2Qs\nk5wHgxQLbEEYJGOZ5DwYpFhgC8IgGcsk58EgxQJbEAbJWCY5DwYpFtiCMEjGMsl5MEixwBaE\nQTKWSc6DQYoFtiAMkrFMch4MUiywBWGQjGWS82CQYoEtCINkLJOcB4MUC2xBGCRjmeQ8GKRY\nYAvCIBnLJOfBIMUCWxAGyVgmOQ8GKRbYgjBIxjLJeTBIscAWhEEylknOg0GKBbYgDJKxTHIe\nDFIssAVhkIxlkvNgkGKBLQiDZCyTnAeDFAtsQRgkY5nkPBikWGALwiAZyyTnwSDFAlsQBslY\nJjkPBikW2IIwSMYyyXkwSLHAFoRBMpZJzoNBigW2IAySsUxyHgxSLLAFYZCMZZLzYJBigS0I\ng2Qsk5wHgxQLbEEYJGOZ5DwYpFhgC8IgGcsk58EgxQJbkJKC1LNpYdO8x7rzV6k8vMUlmflD\nyfaIUiY5DwYpFtiClBKkk61KNSjVfDRvXV6OGrzFFgapJBEUDxgRFA+NEoKUWqxmHRg6vEDN\nHsmt7MiwQj3puudVw9H04mCyfaKUSc4DtG9QRFA8NEoI0gHV5L+q62lRrxt+2LBg2HWPqJkf\nbJ8oZZLzAO0bFBEUD40SgrRRrQym69Vq7Wfnpzed9CY71UMfbJ8oZZLzAO0bFBEUD40SgrRc\n7Qqmb6lF2s9Wqx3+ZIt6YuuCaQvWdSXdJ0qZ5DxA+wZFBMVDo4QgzVMHg2mnmhH90ZvqnpQ/\nfdg/GOHRtDvhPlHKJOcB2jcoIigeGiUEqVV1BtNeNTlV+JPhWeFRujlq0vYTffsXqsmntIen\nBg3IlQnF43FIDxgRFI80w1aCNFGdScdGqf7CnzwfvntyN7YHgRqZr1ZpDx9+14BcmVA8Hof0\ngBFB8UiT95alhCC1hM9I51Rj4TNS39SGk4Wb7lV3JtunXJlQPEBfyaCIoHholBCkOeHrt07V\nVviDf1f3RzY9oxqGEu0TpUxyHqB9gyKC4qFRQpCWqVeD6T61oGB9aob6WWTTPnVr5G1UEVDK\nJOcB2jcoIigeGiUEabNaE0w3qkcL1r+pWsM3Ya/NCT9GOqDmJ9snSpnkPED7BkUExUOjhCCd\nVFN7vUn/dHWkYP0KtS6c61Rqvz9N3a+eSrZPlDLJeYD2DYoIiodGKSetLlWLT7tnl4XPNu3t\n6WN3I1PUnswWD6qpO/uHjy1Xbf3mXURBKZOcB2jfoIigeGiUEqSuFqValWruCJaUOhdMDyjV\nk9mid64KThC/PeHJ3wwSat+giKB4aJR0PdLZdW0TWx8Jr0fKBOlJdXdui+EXFjU3Ldx0Puke\nUcok5wHaNygiKB4avELWWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBgkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dBg\nkIxlkvMA7RsUERQPDQbJWCY5D9C+QRFB8dAoHqTUhkmXOXmMGgIboJRJzgO0b1BEUDw0igYp\nNcspZPQUWAClTHIeoH2DIoLioVE0SK/44bl+Qo7RU2ABlDLJeYD2DYoIiodG0SBNd5yZ3aN3\nvmVQyiTnAdo3KCIoHhpFg3STc+PA6I1vG5QyyXmA9g2KCIqHRtEgXeY8MHrfWwelTHIeoH2D\nIoLioVE0SP/qrB29762DUiY5D9C+QRFB8dAoGqQ7nbtH73vroJRJzgO0b1BEUDw0igbpZ87V\nlT/WwCCh9g2KCIqHRvEPZNc6zX2jNr5tUMok5wHaNygiKB4aMWc2bLvi2h+83TNq71sFpUxy\nHqB9gyKC4qFRLEhPOFESxKB0UMok5wHaNygiKB4aDJKxTHIeoH2DIoLioVEsSNsmREkQg9JB\nKZOcB2jfoIigeGjwMgpjmeQ8QPsGRQTFQ4NBMpZJzgO0b1BEUDw0GCRjmeQ8QPsGRQTFQ4NB\nMpZJzgO0b1BEUDw0YoN0fOPspu/cOusHx+P3YRGUMsl5gPYNigiKh0ZMkM7OvSQ88n3JPedG\nS4AlUMok5wHaNygiKB4axYPUdWPeh0g3Vei8O5QyyXmA9g2KCIqHRvF7NkzynokW7DzW37Fr\nkffMNDU1egosgFImOQ/QvkERQfHQKBqklxznmsPh/KGrHWdn/H4sgVImOQ/QvkERQfHQKBqk\nuY6zK7uww3EWxO/HEihlkvMA7RsUERQPjaJButH5dt7SeGd8/H4sgVImOQ/QvkERQfHQKBqk\ncc7svKXZzhXx+7EESpnkPED7BkUExUOjaJAuZ5AARFA8YERQPDSKBukG56a8pZv40k5EBMUD\nRgTFQ6NokObkH6jb6Tjz4vdjCZQyyXmA9g2KCIqHRuzh70Ph/OFrHOfl+P1YAqVMch6gfYMi\nguKhUfwD2cmOc8nC3R0DHbv9D2Rv5QeyEiIoHjAiKB4aMacIjc87RWh816gZsAJKmeQ8QPsG\nRQTFQyPmpNWeedmTVudW6mZCKGWS8wDtGxQRFA+N+MsofjBr8ncm37WhI34fFkEpk5wHaN+g\niKB4aPDCPmOZ5DxA+wZFBMVDg0EylknOA7RvUERQPDQYJGOZ5DxA+wZFBMVDQw+S4zjL0hPe\nIFJcBMUDRgTFQ4NBMpZJzgO0b1BEUDw09CBNmDBhbXrCO62Ki6B4wIigeGjwPZKxTHIeoH2D\nIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLioVE0SI6zJ29pjXNL/H4sgVImOQ/QvkER\nQfHQSBiktc618fuxBEqZ5DxA+wZFBMVDI1mQupqdy+P3YwmUMsl5gPYNigiKh4YpSI3aZ0j+\nvVYTRqE0UMok5wHaNygiKB4aiYO0KmEUSgOlTHIeoH2DIoLioWEK0iz/81fHuT7v09jG7w8l\njEJpoJRJzgO0b1BEUDw0Eh5sqBQoZZLzAO0bFBEUD42SgtSzaWHTvMcKv6hiiQo5VHSTGFDK\nJOcB2jcoIigeGqV8IHuyVakGpZqP5q9sKQiScZMYUMok5wHaNygiKB4acUFKnXjNn7y/9X3j\nLYRSi9WsA0OHF6jZI7mV51XD0Y6AwWKbxIFSJjkP0L5BEUHx0IgJ0msNzo3+dK/j3LLX8PMD\nqsl/ydbTol7PrTyiZo62SRwoZZLzAO0bFBEUD43iQXrpUicbJGfsDn2DjWplMF2vVudW7lQP\njbZJHChlkvMA7RsUERQPjaJBOvN1x5mwwZ/r26wc54Z+bYvlKv0FSm+pRbmVW9QTWxdMW7Cu\nq/gmcaCUSc4DtG9QRFA8NIoGqd1x5g2G88MLHWe9tsU8dTCYdqoZuZUP+8cWPJp2F90kDpQy\nyXmA9g2KCIqHRtEgTXau7s0u9F3rTNe2aFWdwbRXTc4djJijJm0/0bd/oZp8qtgmISPHDciV\nCcXjcUgPGBEUjzSnEwTpWufOvKU7DefaTVRngumwUrnXfRvbg8PeI/PVqmKbhKR6DciVCcXj\ncUgPGBEUjzR5TV00SGOdxXlLi5zLtC1awqebc6pRPzy+V9052iYm5MqE4gH6SgZFBMVDo2iQ\nrnMm5S1NdP5V22JOePJCp2rTH35GNQyNsokJlDLJeYD2DYoIiodG0SBNdy7rzC68f5nTqm2x\nTL0aTPcpwzee9yn/i2BiNzGBUiY5D9C+QRFB8dAoGqRnHEedD+cHGh1ni7bFZrUmmG5Uj2bX\nvTYn/BjpgJpfZJNYUMok5wHaNygiKB4aRYM0/F3HuW7jiRE31f2j6x1n/KC2xUk11T+u1z9d\nHcmu61Rqvz9N3a+eKrJJLChlkvMA7RsUERQPjeJnNnRc51/PN/aGK/zJvxwwbLFULT7tnl0W\nPPe4bnu7fwzjQTV1Z//wseWqrV/fZHRQyiTnAdo3KCIoHhox59qdbM1eHmt+QulqUapVqeb0\n1ycpdc77f+9cFZzvffshwyajg1ImOQ/QvkERQfHQiL2M4u0HG6659MoJi14pcuz67Lq2ia2P\nhBcbpYPkDr+wqLlp4abzpk1GB6VMch6gfYMiguKhwRtEGssk5wHaNygiKB4aDJKxTHIeoH2D\nIoLioZEwSC9cd0eyDUsEpUxyHqB9gyKC4qGRLEipRc7ViTYsFZQyyXmA9g2KCIqHRkyQnp19\nc+ZuXNc5DJKICIoHjAiKh0bxIK0qvEHk7FFDYAOUMsl5gPYNigiKh0bRIB0riNE3lvaMngIL\noJRJzgO0b1BEUDw0igbpYceZe2pgqX8xxdnVzk29xbazC0qZ5DxA+wZFBMVDo2iQbnWu6Hfd\nd9L3P1noJDx7u1RQyiTnAdo3KCIoHhpFgzQ+uLh85EpnwJu8P9YxnWxnH5QyyXmA9g2KCIqH\nRtEgjUtfITvJedeftDjL4vdjCZQyyXmA9g2KCIqHRtEgXe4s8SdznOCOdsucm+P3YwmUMsl5\ngPYNigiKh0bRIH3TCe6g9bCzzp+sc66M348lUMok5wHaNygiKB4aRYPU5lzpX1G0xZnlLy13\nrholAnZAKZOcB2jfoIigeGgUDdJjjrNo2HXfdi4/47qpCU7j6CmwAEqZ5DxA+wZFBMVDo/gt\ni8c5zjXvuMNXObd1dC9z0u+Yyg5KmeQ8QPsGRQTFQ6P4KUI/doLvGns4fWrD2KTXuJYGSpnk\nPED7BkUExUMj5qTVVyeN2+PfVyvIkX4TobKAUiY5D9C+QRFB8dCIvYwi5b1JcvvWTp18/9vx\ne7EGSpnkPED7BkUExUODV8gayyTnAdo3KCIoHhrFgjTw6KP6F7mUH5QyyXmA9g2KCIqHRrEg\nDV/iOMMJOt8yKGWS8wDtGxQRFA+Noi/tbnack6M3vm1QyiTnAdo3KCIoHhpFg/Ss6Uv6yg5K\nmeQ8QPsGRQTFQ6NokFKPOlcdHLXxbYNSJjkP0L5BEUHx0Ig5arfr+ssfeqtnZLTetwpKmeQ8\nQPsGRQTFQ6NYkJ5woiSIQemglEnOA7RvUERQPDQYJGOZ5DxA+wZFBMVDo1iQtk2IkiAGpYNS\nJjkP0L5BEUHx0OCZDcYyyXmA9g2KCIqHBoNkLJOcB2jfoIigeGgwSMYyyXmA9g2KCIqHhh4k\nx5mWuO+tg1ImOQ/QvkERQfHQiAvS9i0VugopB0qZ5DxA+wZFBMVDIy5IEyp0zDsPlDLJeYD2\nDYoIiocGg2Qsk5wHaN+giKB4aDBIxjLJeYD2DYoIiocGg2Qsk5wHaN+giKB4aDBIxjLJeYD2\nDYoIiocGg2Qsk5wHaN+giKB4aDBIxjLJeYD2DYoIiocGg2Qsk5wHaN+giKB4aDBIxjLJeYD2\nDYoIiocGg2Qsk5wHaN+giKB4aDBIxjLJeYD2DYoIioeGKUjjwkv5xjoOL+yTFUHxgBFB8dAw\nBclM4jCUAkqZ5DxA+wZFBMVDg0EylknOA7RvUERQPDR4YZ+xTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHa\nNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLioacqcYoAACAA\nSURBVMEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2D\nIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2D\nIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2D\nIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2DIoLiocEgGcsk5wHaNygiKB4aDJKxTHIeoH2D\nIoLiocEgGcsk5wHaNygiKB4aJQWpZ9PCpnmPdReu3LeideKMB99JLyxRIYeS7RGlTHIeoH2D\nIoLioVFKkE62KtWgVPPR/JVbvNRM9P57IlhqYZBKEkHxgBFB8dAoIUipxWrWgaHDC9TskdzK\nnyvVfix1dnODet1bOq8ajnYEDCbbJ0qZ5DxA+wZFBMVDo4QgHVBN/qu6npYgMyFL1YpgukUt\n9P5/RM38YPtEKZOcB2jfoIigeGiUEKSNamUwXa9W51Y2q58H0y412Xue2qke+mD7RCmTnAdo\n36CIoHholBCk5WpXMH1LLcquG5w6NX3soVc1DvvPS09sXTBtwbqupPtEKZOcB2jfoIigeGiU\nEKR56mAw7VQz9B++rOZ6/3/YPxjh0bQ74T5RyiTnAdo3KCIoHholBKlVdQbTXjU5Ff3Z4Snq\nVW8yR03afqJv/0I1+VSyfaKUSc4DtG9QRFA8NEoI0kR1JpgOK9Vf+JP+LRPVRj9cG9uDw94j\n89Uq7eHDBwzIlQnF43FIDxgRFI8071sJUkv4jHRONRY8I6VeblFNLxas2qvuTLZPuTKheID+\nAUYRQfHQKCFIc8JPWTtVW/7qE0tU49rThZueUQ1DifaJUiY5D9C+QRFB8dAoIUjLgrdBrrtP\nLchbu2+yWtwZ3bRP3aq9jTKCUiY5D9C+QRFB8dAoIUib1ZpgulE9mlt5rKlhS/ZEh9fmhB8j\nHVDzk+0TpUxyHqB9gyKC4qFRQpBOqqm93qR/ujqSW7lcbc0tdCq135+m7ldPJdsnSpnkPED7\nBkUExUOjlJNWl6rFp92zy8Jnm/b2ftc93aAOdoR4T0wPqqk7+4ePLVdt/aPsS7xOKB6gfYMi\nguKhUUqQulqUalWquSNYUuqc676pcniLvXNVcIL47QlP/maQUPsGRQTFQ6Ok65HOrmub2PpI\neD1SkJznC4PkDr+wqLlp4abzSfeIUiY5D9C+QRFB8dDgFbLGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo36CIoHhoMEjGMsl5gPYNigiKhwaDZCyTnAdo\n36CIoHhoMEjGMsl5gPYNigiKh0ZJQerZtLBp3mPdcSuNmxQHpUxyHqB9gyKC4qFRSpBOtirV\noFTz0eIrjZvEgFImOQ/QvkERQfHQKCFIqcVq1oGhwwvU7JFiK42bxIFSJjkP0L5BEUHx0Cgh\nSAdUk/+SradFvV5spXGTOFDKJOcB2jcoIigeGiUEaaNaGUzXq9XFVho3iQOlTHIeoH2DIoLi\noVFCkJarXcH0LbWo2ErjJnGglEnOA7RvUERQPDRKCNI8dTCYdqoZxVYaN4kDpUxyHqB9gyKC\n4qFRQpBaVWcw7VWTU0VWGjcJGekyIFcmFI/HIT1gRFA80vRYCdJEdSaYDivVX2SlcZNMkE5b\n5liH7T1eGN3vSBuEHO6UNkhz8qC0QciBLss77LUSpJbw6eacakwVWWncpFycPF32X5GIkUPS\nBiEdvaNvUwn6k36KWG6ODJZv3yUEaY5Kd0ynaiu20rhJuWCQIjBIEUCDtEy9Gkz3qQXFVho3\nKRcMUgQGKQJokDarNcF0o3q02ErjJuWCQYrAIEUADdJJNdUfqf7p6kixlcZNygWDFIFBigAa\nJHepWnzaPbtMzQ+W2tv79ZWFS+WFQYrAIEVADVJXi1KtSjV3BEtKndNXFi6VFwYpAoMUATVI\n7tl1bRNbHwkvNgqDVLgyslRWGKQIDFIE2CBhwSBFYJAiMEiJYJAiMEgRGKREMEgRGKQIDFIi\nGKQIDFIEBikRDFIEBikCg5QIBikCgxSBQUoEgxSBQYrAICWCQYrAIEVgkBLBIEVgkCIwSIlg\nkCIwSBEYpEQwSBEYpAgMUiIYpAgMUgQGKRHnB6QN0qR6Rt+mIvQOSRukGT4nbRDSk/DG2RdC\nDQWJEDkYJEIswCARYgEGiRALMEiEWIBBIsQCDBIhFmCQCLEAg0SIBRgkQizAIBFiAQaJEAsw\nSIRYgEEixAIMEiEWYJAIsQCDRIgFGCRCLMAgEWIBBolUgP6l70krlBkGiVSAp1QbyJ1YykVt\nBSmFMVoD74PcCAtEJOUuUzukJQLOHyvXraZqKEipVxZMbJj1ckraY+SHzarpRWkLF0ekd8mh\nR2aJD4vH4KONaspPy7Pv2gnS+QdVwAPCt7frWxpobJW1QBLZoqYsWy4t4TF0TxkLUjNBSj2g\nWl85d3q9UitEPUaWqjv3DT4p38AwIu7ISqXahqUtXHebuvfoyXVlKkjNBOklNbPH+6Nzv5re\nJfoq4sfqbu99yfBE8QaGEUknaaO0RMpdMt1/sbK1PAWpmSDNVscyOdrwrpzG2cbGk97kWfWQ\ncAPDiPj4SXpN5ld3H0lPvTdq9zwZzJUnSbUSpOHGOWGO3OfUGjmPXWqx9/+Tt67yx+vJfRvL\neLfpKhEJ8JI08XWJX3xmxpT0dxp4b9TmbE6vK0uSaiVI5xsWhjlyX1GL5Dz2qNuH3ZF72vrc\n1CLvjW2D2JMjhkjni8+9F7zSlkrSwL2q3Q0F1OzwRX85klQrQXLnTzqezpH7qmSQeqfeO+j9\n9fu5N7vi9qaG5+paZOjJBi/Dd+7358WS9MyIm4myejZc6SXpgOXfUzNB2qompXPkrlZPC3oc\nGnAPNaz1ZkambR6Q/DhUXmRkkZq87Hu3qoatfieLvbrz3x65aYHGjMDWH9r+JTUQpPSn1cP3\nKBW8r3y9oalbxONs5nusHlIdrn8Y8Q0RDRyRp9XdJ7ynhPXhM4HXyD8S8VivpmSSVL4oV32Q\nsp9Wd7WqO3adONyu1G4Jj4HVSt2WHqa71Xuue2RyW7+EB47I8MSG9Ff1vaAaD/vTkT0iHv77\npPInqdqDlPdpdc/9weytL0l4DC7wf3fDy/78SjVrx1OT1NsSHjgibqdqDefWqCUyCiGVSFK1\nByn/0+rU7pW3z3/kpIjHJrX40LEV6QY+1eq18sTnRTxwRNwjalp4zP2UajwvJJGmAkmq7iCV\n+dPqDyAydab3viS1Id3AvRuXrhf6AmIYEa9pbwuOGfrMUFJfUB2e/56fpPK8UavqIJX70+rk\nnFXb/UmmgeteJDjesV7N6AuWUlOUzPcx585/zyWpTG/UqjpI5f60OiFDz69qD49wyDYwikh4\nvKN/plocfMP782qWiEf++e/ZJJWJqg5SuT+tTkZ/cLxjfXpBsoFRRLLHOzqmqNt/2nv26YkN\nIq/sCs9/L3OSqjpI5f60OhneK5iHp6nGg+klv4GF3pagiOSOd5yYEzwlCB3viJz/7iWpjH9q\nqzZIvcGf2/J+Wp2ElNtyz6B7bkn2z11qg4gHkEje8Y7Bp+er5ntlbnyinf8+UM7L3as1SENz\n08WRO/EkTe+SQ1P8t695LxxkLoeCEYke7xiUujyssue/V2uQsu+JhJO0RU1pDs7AKfeb2SoR\nATjekbkCqbLnv1dtkECS5L9LS1/+JJwkDBGA4x3BFUi9pyp9/nv1BgkoSemPJgCSJC4CcLzD\n/9fvnTu9t8Lnv1djkDIvuvOSJHNasRv+9jDH5T0sVAUiGMc7vH+9UpvSTVK589+rMEjh5SWu\nf3wzTJLQacVp8hpY9i6I0iIoxzu6J6qJ4e+v3PnvVRik9blhWiF5ZpD4ZdRoIiDHOwbnqtsz\nv79y579XYZDyhulsg1iSEC6jxhIBOd7h9qtl2d9fufPfqzBI+cM0d2GDzInFKJdR44i4IMc7\n3KdU61D291fs/PdqDFLeMM3Y9IrMMxLKZdQoItkTTaQPvIQ37K94kqssSOHtCDJlekM9I+MB\ncxk1iIh+oonQgZfsDfvTLXKkq1K/uKqClLsdgVemppe7djQ3nJAxgbmMGkUE40O9/Bv2ey1y\n67opMyp1z/FqClL+7QiCDwuUErldW//S9yAuo/a/Bg9CxAckSXk37A9apGLnnVdTkPJvR+AO\nrFWqVeb11FOqbRDhMmr/a/AgrucOAEpSeMP+wceW7KrY762iIBXejsB1e46LfNyXfjcrfxl1\n+K4aQSQNxokmUjfsr6IgYdyOIHw3K34ZdeZdtZxI9/6MSLhC/EST9DefyjwlVkuQAE7PT5N5\nNyt8GXXuXbWUSPeMye/4U5QTTXLffCqSpCoJEsDp+eFlLtl3s1KXUUc9hES6Z6iZZ/wZjBNN\nCr75VCJJVRIk+dPzs5e5ZN/NylxGrXuIiGRzhHGiSeSbTwWSVBVBQjg9P3eZS967WYHLqI0e\nFRfJyxHEiSbRbz6t/AGPaggSxun5uctcZA/wIngU5AjgRBP9m08rfsCjGoIEcnp+7jIX2STJ\ne3g5KgiS+IkmAN98Wg1Bwjg9P/8yF8kkyXv4z0fTtSSJnWjiI//Np9UQJOHT83t3btvrX2H5\nw0253y7RwSgeweu6rmiS5E40CRD/5lP0IKVP9xY8PX94g3/d3HT/w8eUW9DBlX03i+KReX8U\nTZLUiSYh4t98ih2k7OneYqfnn1mgGpY8PF2tSndJXgdX9s8viofrvtGYDpCWJCGObd20NyX/\nzafQQco73VvoXcnIInVXhyfyUuY2nZW+zAXMw+eNMD4QSepf6bfIvQPS33yKHaT8071lkvRD\nNTNybUKFL3MB8ygAIEmpJap51crJ4t98ih2kwtO9JZKUalFHousqe5kLlkcE+SRtV3efdt3w\n9HfBbz7FDlLkdG+B0/OPqTvDuY72tilLDwazFb3MBcsjiniSWrKnir0t9RFWCGyQDKd7V/70\n/ONqZjDtafcPmalGgetcoDw0hJN0XrWEc4cnL5M8aIgbJIDTvT2GJ/k3ux3Y2qTU4pfeWKGm\nlfsO0uAeOrJJOqOmhkdfuicqiQMvOVCDJH+6d8A2NXHtI1OVmrPPt1gs8xEFkIeOlyTBN2qz\n1Jvh3Hy1V07DRQ0SwuneASPBVS4t4VHnXcE5+vXsYaBL7Lwgj83qjvDJ+U7/rFVBIIOEcbp3\n+vf+5IEHX8jcgn2Puk9IA8YDhvPHBrz/D85WS4Ik7VZtfI+UpTt8ngY53TtK6v7sNz+LguIh\nyOCjjWrKT72Z95vU7a/0nf7RxOzNlIRAClLPjPCDIozTvTWeVs2npR18UDzkGAoORQVnXXaK\nfnF6DqQg5T5ylb4b+8FVs5buyy12+selBtcqJXkPUSAPcbape4+eXJdO0tAzCxtbH+iQVkIK\nUmGSBO/Gvi34tOaVzOLxlts279l+t1LbKi1SCIqHFKnsdMl0/w1S5kZ6bnm/rzwZUEEyJ6ni\nd2N/Q01/o2u9muHP+3dKO3F38OphmvTHoCgeQnTPT38C0rvk0D1PBnNbJW//FQErSMYkVZy7\nJp/wfn/TJO8v4Juz/HNFB567d/Z9z5b/6xNHA8VDhlWqOUjSFjVlzub0KqAkgQUJIUndapn3\n/6FJ/lk5D6l2CQVioH9hOkn+G+jZ4cs8nCShBQkgSd1qhveC7pBa582fm9Q0JKBATOQnKXP8\n30vSAUmnLHBBKkySxN3YR2aqu5/ZvlKtefHlHTvnqhf6BByIibwkNWb+xG6VOeVFAy9I+UmS\nuZvGoTZVQMuS9jr/3AaFvCSJfp2ZAcAgyZdpYNcPl6nZDz/0veUPLFJNt8K8Die4SUIMEkKZ\nXlDpo+5vqTUj774h60JywCYJMkgAZVqh0h9abOWzkTSZMzDT+Enyvy9AvkUKwQyS9Le++Ze3\nBB/XpBaoN0fblJSV7BmYIV6SpvtjI94ihYAGSfpb39w56rA/2a5mIJx/Us9oTz2909L36hdr\nESOoQZIh961v69XdHe75rY0NfEKSRkvSczI3JY6HQcoj71vfelqVmtqoGv5d2oloSXpD3SXm\nUhQGKUfBt7513+cl6va3pZ2IqyXpGfWQnEsxGKQchd/6lnr/Z8dkr14mGQqSNDxL7ZSUMcMg\n5Yh+6xuBIT9Jj6m287Ebi8AgZZH/1jdSlGySUj/K3qQNCgYpi/y3vpHi+CeqPtWfemep4PcC\nxsEg5RD/1jcSw8ga/2bNSjUjnc+Qg0HKIf6tbySO1E9uV6qlXfbOxEVhkHzSdxsU/9Y3Ek+q\nqxP2OCqDlHe3QelvfSPVC4OUf7dB4W99I9ULg1Rwt0HZb30j1UvdB0m72yAhF0C9BwnzboOk\n6qj3IGHebZBUHfUeJMy7DZKqo96DhHm3QVJ11HOQeoMveEa82yCpOuo4SENz06/k0O5HQ6qR\nOg5S9j0Rk0RKpp6DxCQRa9R1kJgkYos6DVLmJOK8JCHdbZBUHfUZpN4lmS94/nEmSVB3GyRV\nR30GaX32q9JTK/gpLLFAfQZp4N5sks42MEmkdOozSPlJmruwQR2K35qQ0ajTIOUlacamV/iM\nREql/oJ09sigP8kk6Y30VxsQUhL1FqSB1UrdFnxk5CWp6eWuHc0NJ6SdSA1QZ0EaXODfk6Eh\nOFvVS5IP5O0GSbVRZ0HapBYfOrYik6S1SrXy8yNig/oKUmrqTO8NUmpDmCS35zjsfdJIdVFf\nQTqrtvuTXJIIsUMdBWno+VXt4Z0fmSRimfoJUn9wH8j16QUmidilfoK0Xs14eFr2u3X8JB0V\n9SE1Rb0EKeW23DPonluSO1t1A+/PQOxRJ0HqXXJoin+gO+8cOx6vIxapkyBtUVOa3/Bn8pJE\niD3qJEj+3evSXwvLJJFyUCdBCpKUPomBSSJloF6ClHd/Ey9JvG6CWKYOghReN5GXpB2iPqQW\nqfkg5a6b4D23SPmo9SDlXzfBJJGyUetBKrhugkki5aLGgxS5boL3gSRlosaDFL1ugveBJOWh\nloPE6yZIxajhIPG6CVI5ajhIvG6CVI6aDRKvmyCVpFaDxOsmSEWptSB1v5me8roJUlFqLEg9\nM8JPXHndBKkoNRak3LkLvG6CVJIaC1JhknjdBKkUtRYkc5J43QQpMzUXJGOSCCkztRckJokI\nUINBYpJI5anFIBUmiddNkApQk0HKTxKvmyCVoDaDxNd0pMLUaJCYJFJZajVITBKpKDUbJB5n\nIJWkdoPE4wykgtRwkAipHAwSIRZgkAixAINEiAUYJEIswCARYgEGiRALMEiEWIBBIsQCDBIh\nFmCQCLEAg0SIBRgkQizAIBFiAQaJEAswSIRYgEEixAIMEiEWYJAIsQCDRIgFGCRCLMAgEWIB\nBokQCzBIhFiAQSLEAgwSIRZgkAixAINEiAUYJEIswCARYgEGiRALMEiEWIBBIsQCDBIhFmCQ\nCLEAg0SIBRgkQizAIBFiAQaJEAswSIRYgEEixAIMEiEWYJAIsQCDRIgFGCRCLMAgEWIBBokQ\nCzBIhFiAQSLEAgwSIRZgkAixAINEiAUYJEIswCARYgEGiRALMEiEWIBBIsQCDBIhFmCQCLEA\ng0SIBRgkQizAIBFiAQaJEAswSIRYgEEixAIMEiEWYJAIsQCDRIgFGCRCLMAgEWIBBokQCzBI\n9c7jxZFWqyYYpKRMcJzmVOHyhe7qxIJvXX6DFSMLjx89SE6EksVtqSPBICXFGztnS+HyBe6p\n+2o77cggAcEgJcUP0pUnCpYvcE8POs4Nq564YJFZjY2lGuQ/PkmQxk3L58J/o2V1JBikpPhB\ncu5I5S9f4J6mOM7h0kTSM2uXLSthNx8kSBNK+j3R3+jaUkeCQUqKN3ZXOc5z+csXvqfU6FvF\nPbyER2s7EgkSzI6swSAlxRu7px3nmjN5yxe+pxJFSnl4dEcMkhUYpKT4zyPTHGdu3nKxTbc9\nEfsO6MIfOdrDP8hubAdJQB0JBikp/tgdH+c4O/KW06R+Om/8uCvGz385lf+j12def/m3Z+zS\nXsTljn3ldUNm1vjIkWdnfHPstbeuO1v48Nzjkwmc2TD9m+OuuOnWlccKfukFBQlDHQkGKSnB\n2G10nG/25i37nGrKdMitXdkfpR4N182KJmm0IGmPPH5LuOLql1xjNyYTeHpc9vj10lTeL7UY\npEqrI8EgJSUYu5FJjnNf3rJHz3hvfL81e/ZN3uTGnsyPtjlXz1q77EZv3YbIfvbsud5x9uzZ\nU6wbo4/sus5xxk5cNONqx7n0tfyHZx6UTOBVb+5f7li86PYrvJmteb/UYpAqrY4Eg5SU9Ngd\nGus4r+ctu+587+/tK/7MzmscZ37mR1c0n/JmBmY6zqQieyrWjdFHtjmOet+b9s5znMZU/sPC\nmWQC3l+Ae/r9mf45jjM77/FJgjR2Qo7tOOpIMEhJCcdujePcNJC3fPwS55JD6S0Oe7Pvhz+6\nti9Y1e04lxXbU5FujDzybce57nywZtD74QlX68ZkAiPjnGuG01udcpyb8x6fJEj5bMFRR4JB\nSko4doM3O86KvOUfeH8uM5sscJwnwh9lXtBdbxjx+CBFHvmg4/wgXLPhxhtfc7VuTCYwvGfP\nO+GagcxLNetBqrQ6EgxSUjJj93Pvb+f+3PIsx9mV2WRn+MrD+9HbkUdlXhgVrDN2Y+SRjem/\n5QaRcCahQIaRA0s/eJASvkeqtDoSDFJSsmO33HFuGc4uT3acjswmxxxnSrhpT+RReUesRglS\n5JHXOGNHioikZxIKeH/Z9215eO7kK32LMgWp0upIMEhJyY5d/3jHac8uf8dxBjKb9DvOdws2\nvZAgRVZd6kQvuIh0Y0KBvu9/PW1ww+KyBanS6kgwSEnJjd2r3rvgd03PSB2OM7lwU+OIG1rv\nuqLdeKVzRcr8cMOf9eICfQ2e9F3tO94dyAXDTpAE1ZFgkJKSN3aLHOfWkXD5LsfZnVm/y3Hu\nimyaLEh9TtFu9Cbdma327n3f1boxmcBax5l6JlxlNUiS6kgwSEnJG7se76/wk+HyBsdZlFm/\nKDxMlTxI4Sub3cW7caHj/Dhcszn9cWSkG5MJTHWc98I1Z+0ECUAdCQYpKflj9xPHueKa9HLH\nJc4l4dVFh7zZ45FN44L0Xcd5K5hJNRbvxh3eW4N0zw57L3EMf9aTCUzOPTussRAkDHUkGKSk\nFIzdrOyRA3eO41wbvEDZcXXep/PGR0XWzXWciee86fkFziVFuzF1i7dVpzfT5/3N/m54ekBX\n/haJBO53nAeDNyyd3m6c61K5H11QkDDUkWCQklIwdqe+ng3SWf+ksG+ncGSzVgAAAWBJREFU\nzxe7qSe6aVyQXvQece3S9vnXO/NiDuQd/hfHuXzSopnXOs7YN/wV3l/35kcfyW2RSODtsY5z\n8/fWL2sd63zrG46z+AW3pCBhqCPBICWlcOy2ZoPkdk3KHNue0q1tGhck93vh42b0x3Sju/+G\ncLMb0ldwrIyeQp1IYMvYcJv55+7z/7C7JQUJQx0JBikphWOXaskGyU39ZM4N48aNn78jpW8a\nGyT3rVk3j7tmyjMp95bLLy/+yMGnpn1j7Lemr+9PLw59f/xl196Sv0UigY7FDVdeMeH+d1y3\n5+6rrp7ulhYkCHUkGKR6Z/QgkQQwSIRYgEEixAIMEiEWYJAIsQCDRIgFGCRCLMAgEWIBBokQ\nCzBIhFiAQSLEAgwSIRZgkAixAINEiAUYJEIswCARYgEGiRALMEiEWIBBIsQCDBIhFmCQCLEA\ng0SIBRgkQizAIBFiAQaJEAswSIRY4P8Da4K3BCR8VOYAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "switches %>%\n",
    "    mutate(IsFunctional = ifelse(IsFunctional==1, \"Functional\", \"Non-functional\"),\n",
    "           IsFunctional = factor(IsFunctional, levels = c(\"Non-functional\",\"Functional\"))) %>%\n",
    "ggplot(aes(x=Origin, fill=IsFunctional)) +\n",
    "    geom_bar(position=\"fill\") +\n",
    "    labs(x=\"\", y=\"Fraction\", fill=\"\", title=\"Functionals\") +\n",
    "    clean_theme() +\n",
    "    theme(legend.position=\"bottom\", axis.text.x = element_text(angle = 45, hjust = 1)) +\n",
    "    scale_fill_manual(values = c(\"Functional\"=\"firebrick\", \"Non-functional\"=\"white\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:04.302350",
     "start_time": "2017-01-06T17:46:56.274Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC+lBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8RERESEhITExMUFBQVFRUWFhYX\nFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgp\nKSkqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk7Ozs8\nPDw9PT0+Pj4/Pz9AQEBCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5P\nT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBh\nYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJz\nc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISF\nhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaX\nl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKip\nqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGyIiKysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6\nurq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vM\nzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e\n3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w\n8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9RTmJVAAAA\nCXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3dCZwc1X3g8TbGt5M48TpO4sR2bCebOMke\n2Y3jbDbJOs7tOA8LQcBAOGUs4+PNSGI0QjODELLQiQ4QAjkSmEMX2JIAGSOEuQwWkrCNACOh\nCwkJHYyk0Uhzdn0+W1Vd3V1dfUxr+t/1XvX8vp+P3V011V2Pmf6pu6urqlMOgJqlTA8AaASE\nBAggJEAAIQECCAkQQEiAAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiAALMhpVxGB1CN0oNM\nxNARG0IaEiFhaNaHZP4BS0gYGiENiZAwNEIaUukRHHDFPxbYipCGZH4EsB8hDcn8CGA/QhqS\n+RHAftaE9Kcuxxn8wRc/8a6P/NWVW/M/z8je4o2b/+7j733/J/5hXsEblCMLP/fRd334L2/t\nijzsjy1Rn/rl9//Rv8x8Kzer5HqKHLvjXz/5vvd98gtLTuTvMXPLk9P/6N3vzA39Fvf/2/M3\nS/9eKnX2oaFWnr0Lx+lb99V//IP3fujPRt2w50x+bbCPNSH5V7tVNpxzDmZnhkPqnfze7Iz3\ntfdl7yW9+APBzE+9EL7L9IIPZpd+z9XdldYTkb41d8PfXJm7R/9y358Ek5mLw2enUn+Sv+EW\nd+a/DbXy3F04D/1u7r/v7PH9tf4yYZJVIfX/db6cT59yZ37605/2r3/60/4yJ/8+FfL3JzO3\nTF+Tn/fL20LVXRhe+n/tr7CeQv2XhW+4KBxS56dSBSE5/+Be/CJ3y3Hu1NohVp6/i1vfFl7m\nwrTgLxZxsyqk9tT7O17q3rH0I97EDUWLpEd5Exc9eezYU5d410ZlZnd4189//K3jz16ZSv1u\nfvkr3GvvGLd+/5uPTHyPe/WTpyquJ+Tr3uzfu+W10/vv+/NU6m3hkL6Qes/Xnt11Mj+uZe7F\n1OwNB38nlfpw/xArz93FFvfZLPWn33311L4f/pP3gwfkfq+InVUhvf23tvvXO387lXvFFFrk\nHvfqWcsz11ee5U7417e6j8e3LcvMXXt2Krf8/d59vJSZv/P/uBMTKq4n7wfeIl/OPPIHxqdy\n9+hf+e0dhUM//u5U6n9mb/m0O2/cUCvP3cUF7vV/ymSX/rJ3vfrfG6xjVUipB4OJ77rX3xNd\nJO29zGvL3tR7Hvpv3quhf3avtGTnfjv3sE//cSr1rpez8w992H0bsqfSenLSn3Fn/u1Adur8\ngpDelts6kZ37JffytWDe19zrLw218txd/IY7kb2+3b3+q5V/V7CaVSF9Jvs2YVf+B/lrP3Kv\nfSj7tt3p/i/u5DPuou5Lrw+ezM49/eHs8hvCfTnOCnfyjkrryXnWnXX2ztzkG+8OhzSqaOir\n3MvpmVkDv55KfdYZauW5u3iXO5HdoJfumDx58mC5XxPsZ1VId2TnD5YKaZJ77Wv5216d8rc8\nz3Evrs7P/Vp2ee99/yP5+Z3u5IWV1pPT5s5SoenR4ZCWFQ399C+7YWZmPerOus0ZauW5u/gD\nd2JByV8LkseqkJ4s8YP8tf/nXrs7f9u73Ml/dBxvA8R383O/m13+s+5leNP2J91XgpXWk/M3\n7qz/DE0XbLX7RfEtL3avZD4Futx9nXjcGWrlubvwCn17U6nN70geq0J6o8QP8tc+5l57Kn9b\n75XeJxzn9wvCcJ7ILu9vkSv08UrryfmoO2tbaPqRcEhHi2+53r0y27vS+4FU6suZH1Zaee4u\nnn27N/m2z173yPEqflWwm1UhpUv8IH/tV9xre/O33elO/prjfDD3hJCb6y//nuLH8gcrrSfn\nl9xZnaHp7eGQBopv2e++WfsL78pad85jmR9WWnn+LlZ/KPjZWf9j8s/4FCnZrAqp1A/y17x/\nwHvyi5xyJ8/OzD2dn3s6u/w7ih/L76y0nhzvDsN7GZwKh1Tqll91r3kfuF7gPu0E2wuqW7lz\n7FsfyP38T56p+JuC5RIUUuQZ6XV38lcyTyChufuyy3v/2p90ig0Z0q9GnpFyW/bK3fIp99o8\nx+l+f363u+pW7urf+K0/DEp629QSN0BSJCikyHsk7/H78aK5z2SX97aJ7aq8yqIp3ydTwYdB\ngQ1DheTtz/DXjrPcbWF38MPqVh44urb597wfnMVzUoIlKCRvc9o9+UW87XPu49fbbS60Le/e\n7PLeNrFnK6+yaMr3hVThVrvFQ4Xkbew+66CjUqnPZX9Y3crz0ut/0/3JF0r9CMmQoJAmute+\nnl/kMndyYubTpWvyc6/OLu99vjQ5P3/XOeecs7bSenKmpQo/R7pwyJC2uldvPf6uUNDVrPzk\nxo0bd+cW8bb9/a6DxEpQSI+71z6c265w8J0pfyPZE+7Fr+f24D763uzyO9zLj+Q3Gnh7iP+4\n0npyfp4q2LPh4HuGDCn9X90no6XuO7bcMKpZ+QH3+n/kFjnmTr3bQWIlKKS0985jSnaJCe7E\nH6bduf89FdoD7/pUbvm/S4X27H7ZDewTA5XWk/dX7rzP5fa1+/fcPZa/ZXsq9fbPpFJfyf+0\nipUPvi+V+lguNu9fiU9FR4LkSERIwb/03r4Mb1+duX7vWdn3RqvdK2fdl5n7UGjv7+fcJc76\nz8z8171NEosrrifvce/AiQszT32DLakqQno1s9BP8j+tZuVfdCeag6MT3/L+OdClfkVIButD\n8oK5veewdzV9jjf7P545fvwp77CD1LmZDzEv9a5f8ERn16Yxb0v9Wf4lkveeKvVvjxw6vuk6\n9x//1N8OVlxPSJM391O37jx9cOVfpFK/P3RIzp96U58Of6Zaxcq9J6HUH35n07GjW6b+lnv1\nA/uq/8XBNtaH9Mf5pwTn5OdTIf8U7Ane/a/5eZ/Yn8odjzD4lfDSf36s8npCBq4I3e7Xc/tK\nVLjlDG9qZvg+qln5N8KLpH5pQzW/MVjK+pDuC4Xk9E7K7Xzzvo7c+4uBG94XzPzcwTfc//9I\nMD+96NeyS5/dfGqI9YSFztnw2ddyy1S45evuq8Gz3yy8j6FXPjjtXfmO/vYlBwlmNqRqbPzC\nR9/5G5/JTr0x5/Mfe+97P/b3NxfsNX1g+l986J2/88+rB5wX3Mfk/87N77z9Xz7xvnf9xudv\nfMM5M8eWfPET73/3x7+4ooZTklSx8oOzLvjLj77j/b/9d9f9fPjrgQ3sD+nMeMeJX2R6EBh5\nEh/SwYkTJ+YPt/M/n51ubjQYqRIfUvdZqdSv5k5xd9Lb/LWj0vJAPSQ+JOcf3XQuDz4/Pf1v\n7sT/NTsejEjJD+k57wCiT96y9VjXttne0a3v5H074pf8kJwFBR/HvOMu0+PBSNQAITkPfizf\n0WefNj0ajEiNEJLT+8BVn//997z/o3/V+jSnPoARDRESYBohAQIICRBASIAAQgIEEBIggJAA\nAYQECCAkQAAhAQIICRBASIAAQgIEEBIggJAAAYQECCAkQEADhdRfw1lRRZ0eepFY9A6aHkHG\nYK/pEQR66nj8dAOFdKLb9Agy0odMjyDQ2TP0MnHoO2p6BIEjA0MvM1wNFNKRY6ZHkDG4e+hl\nYnHAkn9Zemz5vpq9fUMvM1yEJI6QIggpWQgpgpAiCKkqhBRBSBGEVBVCiiCkCEKqCiFFEFIE\nIVWFkCIIKYKQqkJIEYQUQUhVIaQIQoogpKoQUgQhRRBSVQgpgpAiCKkqhBRBSBGEVBVCiiCk\nCJtDelSfjMzpWjevZfb9nSWn6oqQIggpwuKQ+m+MhnSkXesmrVv3lZiqL0KKIKQIe0PqXKYj\nIaUX6Ok7+/fM1TMGi6bqjJAiCCnC1pBWTXOfbCIh7dQt3uu4rjb9YtFUnRFSBCFF2BrSgo6O\njmhIa/Rd/uVqfU/RVJ0RUgQhRdgakica0hK9xb98Rc8vmqozQoogpIgkhTRb7/IvD+mpRVN1\nRkgRhBSRpJDadebUH916Qjo6VWhgp7AdO6TvcZheNT2AwPbXTI8g4zVbfiHi43izfiGN08cz\nmWjdE50CGpZ0SG3Bc9BJ3ZyOTgENSzqkmTrzDuGQ7iiaAhqWdEiL9Qv+5XY9t2gKaFjSIT2s\n7/Uv1+gVRVNAw5IO6Yie5G107Zmi9xZNAQ1LLqSVK/0Nc4v0gmPOicV6jlM8BTQquZCCa0fb\ntG7XuvWAUzwFNCrxkJwTqzrGtd+XPQKpcApoUA10hCxgDiEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAAB\nhAQIICRAACEBAggJEEBIgABCAgTUFFLXunkts+/vDM/SIe7kwuz13TWNErBcLSEdade6SevW\nfaF5oY6a3Mk2QsKIUENI6QV6+s7+PXP1jMH8zANZy/SDjnNaN+3LTPbVPlTAXjWEtFO3eK/q\nutr0iyV+2DR3wHH26mnDv38gOWoIaY2+y79cre8p+tnpKS1H3IvNeunw7x9IjhpCWqK3+Jev\n6PlFP7tHb/Iu1uu1G+ZOnrvq6PDXAiRBDSHN1rv8y0N6avRHL+ub097lnd7GCFfL1uGvBkiA\nGkJq14f8y249IV34k4HpwVa6mXr8k4dP7ZinJ7xVdPPBwyUMfzS1smUcjpXjsGYgtowj40T+\npzWENE4f9y8HtO4p/MlTwbsnZ81KP6jBOfruopsPHith+KOplS3jcKwchzUDsWUcGd35n9YQ\nUlvwjHRSNxc+I52a1HSkcNGX9I3DXw9gvxpCmhm8fjukOwp/8CN9W2TR47qpf/grAqxXQ0iL\n9Qv+5XY9t2B+eqr+eWTRU/rayNsooKHUENLD+l7/co1eUTD/Zd0+kLn2s5nBx0g79Zzhrwew\nXw0hHdGTvDdbPVP03oL5y/Sq4NohrXd4l+nb9EPDXw9gv1p2Wl2kFxxzTiwOnm1Wrsxsuxuc\nqH+aXeIOPWlzz8D+Jbqjp/RdAI2hlpCOtmndrnXrAX9K65P+5U6tu7JLdM/S/g7i17PzNxpb\nTccjnVjVMa79vuB4pGxID+qb8ksMPD2/tWXeutO1rAWwH0fIAgIICRBASIAAQgIEEBIggJAA\nAYQECCAkQAAhAQIICRBASIAAQgIEEBIggJAAAYQECCAkQAAhAQIICRBASIAAQgIEEBIggJAA\nAYQECCAkQAAhAQIICRBASIAAQgIEEBIggJAAAYQECCAkQAAhAQIICRBASIAAQgIEEBIggJAA\nAYQECCAkQAAhAQIICRBASIAAQgIElA8p/cD4c1VIjIMCkqZsSOnpqlCcowISpmxIz3vxXDE2\nL85RAQlTNqQpSk3rjHMkQIKVDelqdVVvnAMBkqxsSOeq2+McB5BoZUO6TC2PcxxAopUN6UZ1\nU5zjABKtbEg/VxexrQGoUvkPZJer1lMxDgRIsgp7Nmw8/5LvvdoV41iAxCoX0loVFeuwgGQh\nJEBAuZA2jo2KdVhAsnAYBSCAkAABhAQIICRAQMWQDq6Z0fL1a6d/72BcowESqkJIJ2adE2z5\nPufmk/GNCEig8iEdvSr0IdLV7HcHVFD+nA3j3WeiuZv39xzYMt99ZpqUjnNUQMKUDelZpS7e\nE1zffZFSm2MaEJBEZUOapdSW3MQmpebGMhwgmcqGdJX6amhqjBoTw2CApCob0nlqRmhqhjo/\nhsEASVU2pNGEBFStbEhXqqtDU1fz0g6ooGxIM8Mb6jYrNTuW4QDJVHHz9+7g+p6LlXoupgEB\nSVT+A9kJSp0zb+uB3gNbvQ9kr+UDWaC8CrsIjQntIjTmaIxjAhKnwk6rXbNzO63O4mRCQCWV\nD6P43vQJX5/w7QcOxDUaIKE4sA8QQEiAAEICBBSHpJRanLngBJFAlQgJEFAc0tixY5dnLjjT\nKlAl3iMBAggJEEBIgICyISn109DUveqbMQwGSKoqQ1quLqn/WIDEqi6ko61qdByjARKqVEjN\nRZ8heedajX1oQHJUHdLdsQ8NSI5SIU33Pn9V6orQp7HN3+2PfWhAclS5saG0rnXzWmbfX3h+\n/YU6sLvsIkDDqSWkI+1aN2ndui88s60gpJKLAA2nhg9k0wv09J39e+bqGYP5mad1074Dvr5y\niwCNp1JI6cM/8y7e3PBmyVMI7dQt3ku2rjb9Yn7mXj1tqEWAxlMhpJ81qau8y5eU+uZLJX6+\nRt/lX67W9+RnbtZLh1oEaDzlQ3r2SyoXkhq1qXiBJTrzvS+v6Pn5mev12g1zJ89ddbT8IkDj\nKRvS8S8rNfYB79qph7VSV/YULTFb7/IvD+mp+Zl3etsWXC1byy4CNJ6yIa1UanZfcH1gnlKr\ni5Zo14f8y249If8eaqYe/+ThUzvm6QlvlVska6CEGv5LamTLOBwrx2HNQGwZR0ZoE1rZkCao\ni7pzE6cuUVOKlhinj2dWoHX+6WrNSn+z9+AcfXe5RbLj2lPCmf7HybFlHI6V47BmILaMI+Nw\n/qdlQ7pE3RiaurHEvnZtwdPNSd1c/HTzkr5xqEWAxlE2pFFqQWhqvjq3aImZwc4Lh3RH8c2P\n66b+IRYBGkfZkC5V40NT49RlRUss1i/4l9t1iS9qPqW976+ouAjQOMqGNEWdeyg38ea5qr1o\niYf1vf7lGr0iN+9nM4OPkXbqOWUWARpQ2ZAeU0qfDq73Niu1vmiJI3qStzmiZ4rem5t3SOsd\n3mX6Nv1QmUWABlQ2pIFvKHXpmsODTrrzkSuUGtNXvMgiveCYc2Kx/9zjOCtXehvm7tCTNvcM\n7F+iO3qKFwEaVfk9Gw5c6h3PN+rK872Lf99ZYomjbVq3a92a+dYXrU+6/989S/v7e1+/u8Qi\nQKOqsK/dkfbc4bFlXpmdWNUxrv2+4GCjTEjOwNPzW1vmrTtdahGgUVU8jOLVO5ou/tIFY+c/\nz4dAQEWcIBIQQEiAgCpDevrSG+o7DiDRqgspPV9dVOeBAElWIaTHZ1yTPRvXpYqQgArKh3R3\n4QkiZ8Q4KCBpyoa0vyCj/1jUFeeogIQpG9KdSs16q3eRdzDFiXvU1d3llgNQIaRr1fk9jvNa\n5vwn8xSHQQAVlA1pjH9w+eAFqte9eHOUKrWzHYCMsiGdlzlCdrx63btoU4vjGhGQQGVDGq0W\nehczlX9Gu8XqmrhGBCRQ2ZAuV/6p6O5Uq7yLVeqCuEYEJFDZkDrUBd6heevVdG9qibowtiEB\nyVM2pPuVmj/gOK+q0ccdJz1WNcc5KiBhyp+y+DylLn7NGbhQXXegc7HKvGMCUFL5XYR+qPzv\nGrszs2vDKA4WB8qrsNPqC+PP+6l3gjq/o+KTCAHIqXgYRdo7Z/mp5ZMm3PZqTMMBkokjZAEB\n5ULqXbGi+ItcAJRWLqSBc5Qy+WU0QKKUfWl3jVJH4hwIkGRlQ3q81Jf0ASipbEjpFerCXTEO\nBEiyClvttlwxeukrXYPlFwAQKBfSWhUV67CAZCEkQEC5kDaOjYp1WECysGcDIICQAAGEBAgo\nDkmpyQbGASRapZCeXM9RSEBVKoU0lm3eQHUICRBASIAAQgIEEBIggJAAAYQECCAkQAAhAQII\nCRBASICAUiGdFxzKN0opDuwDqlEqpNIMDA5ICkICBHBgHyCAkAABhAQIICRAACEBAggJEEBI\ngABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBI\ngABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBI\ngABCAgQQEiCAkAABhAQIICRAACEBAmoKqWvdvJbZ93cWzty+rH3c1Dtey0ws1IHdtawHsF0t\nIR1p17pJ69Z94Znr3WrGuf9b60+1ERJGhBpCSi/Q03f275mrZwzmZ/5C65X70ycebtIvulOn\nddO+A76+mkcKWKyGkHbqFu9VXVeb30xgkV7mX67X89z/36un1TQ6ICFqCGmNvsu/XK3vyc9s\n1b/wL4/qCe7z1Ga9tJbBAUlRQ0hL9Bb/8hU9Pzevb9KkzLaHbt084D0vrd0wd/LcVUdrGiNg\nvRpCmq13+ZeH9NTiHz6nZ7n/f6e3McLVsnX4qwESoIaQ2vUh/7JbT0hHf7Znon7BvZipxz95\n+NSOeXrCW0U3H3ijhOGPpla2jMOxchzWDMSWcWSEPvmpIaRx+rh/OaB1T+FPetaP02u8uNas\n9Dd7D87RdxfdPH26hOGPpla2jMOxchzWDMSWcWSEtkXXEFJb8Ix0UjcXPCOln2vTLc8UzHpJ\n3zj89QD2qyGkmcGnrId0R3j24YW6efmxwkWP66b+4a8IsF4NIS323wY5znY9NzR3+wS94FB0\n0VP62qK3UUADqSGkh/W9/uUavSI/c39L0/rcjg4/mxl8jLRTzxn+egD71RDSET2p273omaL3\n5mcu0RvyE4e03uFdpm/TDw1/PYD9atlpdZFecMw5sTh4tlm5ssdxjjXpXQcC7hPTHXrS5p6B\n/Ut0R88Q9wUkWi0hHW3Tul3r1gP+lNYnHedlnedOds/S/g7i17PzNxpbTccjnVjVMa79vuBT\nKb+cpwpDcgaent/aMm+dyc3/QAw4QhYQQEiAAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiA\nAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiAAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiA\nAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiAAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiA\nAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiAAEICBBASIICQAAGEBAggJEAAIQECCAkQQEiA\nAEICBBASIICQAAGEBAiwLKTvG2P6vxzJRkiEBAGEREgQQEiEBAGEREgQQEiEBAGEREgQQEiE\nBAGEREgQQEiEBAGEREgQQEiEBAGEREgQQEiEBAGEREgQQEiEBAGEREgQQEiEBAGEREgQQEhW\nh2Tu92HpL8RahFTycWNuHN+3chwYCiGVfNyYGwchJRMhlXzcmBuHpSFZMxBbEVLJP5e5cRBS\n5YHYipBK/rnMjYOQKg/EVoRU8s9lbhyEVHkgtiKkkn8uc+MgpMoDsRUhlfxzmRsHIVUeiK0I\nqeSfy9w4CKnyQGxFSCX/XObGQUiVB2IrQir55zI3DkKqPBBb1RRS17p5LbPv76w0s+Qi5dny\n5zI3DkKqPBBb1RLSkXatm7Ru3Vd+ZslFKrDlz2VuHIRUeSC2qiGk9AI9fWf/nrl6xmC5mSUX\nqcSWP5e5cRBS5YHYqoaQduoW7yVbV5t+sdzMkotUYsufy9w4CKnyQGxVQ0hr9F3+5Wp9T7mZ\nJRepxJY/l7lxEFLlgdiqhpCW6C3+5St6frmZJRepxJY/l7lxEFLlgdiqhpBm613+5SE9tdzM\nkotUYsufy9w4CKnyQGxVQ0jt+pB/2a0npMvMLLlIIN1dgrk/ly3j+L6V47BmIMN/uNasxMO1\nJ//TGkIap4/7lwNa95SZWXKRwMAbwnbvkb7HYdphegCBna+bHkHGPlt+ITv2Cd9h6PPRGkJq\nC55uTurmdJmZJReplyPH6r6KqgzuNj2CwAGT/36H9FT7KWK97e2r333XENJMnXnEHNId5WaW\nXKReCCmCkCIsDWmxfsG/3K7nlptZcpF6IaQIQoqwNKSH9b3+5Rq9otzMkovUCyFFEFKEpSEd\n0ZO8v1TPFL233MySi9QLIUUQUoSlITmL9IJjzonFeo4/tXJlT/HMwqn6IqQIQoqwNaSjbVq3\na916wJ/S+mTxzMKp+iKkCEKKsDUk58SqjnHt9wUb04OQCmdGpuqKkCIIKcLakOxCSBGEFEFI\nVSGkCEKKIKSqEFIEIUUQUlUIKYKQIgipKoQUQUgRhFQVQoogpAhCqgohRRBSBCFVhZAiCCmC\nkKpCSBGEFEFIVSGkCEKKIKSqEFIEIUUQUlUIKYKQIgipKqd7TY8gI91legSB7n7TI8gYOGl6\nBIGuKk+cPRwNFBJgDiEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQ\nEiCAkAABhAQIICRAACEBAggJEEBIiEHPojdMD6HOCAkxeEh3WHImlnpprJDSdvy1et+05ERY\nlgwk7SzWm0wPwnd6f71ONdVAIaWfnzuuafpzadPjGPxBq255xvQoHHsG0r1w933Tjf9ZXH0r\nmvXEn9TnvhsnpNN3aN/thk9vd2qRP4wNZkdh00DW64mLl5gehKv/5jr+QhompPTtuv35k8dW\na73M6DgGF+kbt/c9aP4BbM1AnMG7tO4YMD0Kx9mob9l3ZFWdfiENE9KzelqX+4/ObXrKUaOv\nIn6ob3LflwyMM/4AtmYgmZLWmB5E2lk4xXuxsqE+v5CGCWmG3p/t6IHXzQ3jRHPzEfficb3U\n8APYmoF4vJJ+ZmbVnXszl+4btZsf9K/Vp6RGCWmgeWbQkfOEvtfcOLboBe7/H7n2bu/v9eD2\nNXU823RCBuJzSxr3ookVH586MfOdBu4btZkPZ+bVpaRGCel007ygI+d5Pd/cOH6qrx9wBm/u\nOOWk57tvbJuMPTnaMZBDzzzxhv9K21RJvbfolU4wAD0jeNFfj5IaJSRnzviDmY6cF0yG1D3p\nlj73X79fuFeXXd/S9MSIHkj/g01uwzfu8K4bK+mxQSebsn48mOmWtFN4PQ0T0gY9PtORc49+\n1OA4dvc6u5uWu95ARcIAABQVSURBVFcGJz/ca/LjUPMDGZyvJyz+zrW6aYP3SDb26s57e+Rk\nBtCcHcCGH0ivpAFCynxaPXCz1v77yhebWjqNjONE9nusluoDjrcZcZuRYdgzkEf1TYfdp4TV\nwTOB+0B+xMg4VuuJ2ZLql3LiQ8p9Wn20Xd+w5fCelVpvNTGO3nu0vi7zZ7pJv+E4eyd09JgY\nhz0DGRjXlPmqvqd18x7vcvCnRsbhvU+qf0lJDyn0aXXXbf7Va581MY6+ud66m57zrt+lp296\naLx+1cQ47BmIc0i3B9fu1QvNDCEQR0lJDyn8aXV6613Xz7nviJFxrNMLdu9flnkAv9XuPpTH\nPWVkHPYMxNmrJwfb3N/SzacNDSIjhpKSHVKdP60+g4FMmua+L0k/kHkAd69ZtNrQFxBbMxD3\nQXudv83QM1Wb+oLqYP/3cEn1eaOW6JDq/Wl19U7oJ72L7AN4xA/E396xWk895U+lJ2oz38ec\n3/89X1Kd3qglOqR6f1pdpf6n7l4ZbOEw+wC2ZSDB9o6eaXqB/w3vT+npRsYR3v89V1KdJDqk\nen9aXZ0ef3vH6syEyQewLQPJbe84MFFf/5PuE4+OazLyyq5w//c6l5TokOr9aXV13Fcwd07W\nzbsyU94D2NDbElsGkt/ecXim/5RgaHtHZP93t6Q6/lOb2JC6/X9u6/tpdTXSTtvNfc7Jhbl/\n7tIPGBmHRQMJbe/oe3SObr3FzIlPivZ/763n4e5JDal/VuaXY27Hk4zuhbsnem9fQy8czBwO\nZc1Aots7+kwdHhbv/u9JDSn3nshwSev1xFZ/D5x6v5lNyEAs2N6RPQIp3v3fExuSJSV579Iy\nhz8ZLsmOgViwvcM/Aqn7rbj3f09uSBaVlPlowoKSjA/Egu0d3n/9S7OmdMe8/3sSQ8q+6A6V\nZGa3YidYe9BxfTcLJWAgdmzvcP/rtV6XeZDEt/97AkMKDi9xvO2bQUmGdivOCD2AzZ4F0fRA\nbNne0TlOjwvWH9/+7wkMaXX+z7TM5J5Bxg+jtm0glmzv6Julr8+uP7793xMYUujPdKLJWEk2\nHEZt10As2d7h9OjFufXHt/97AkMK/5lmzWsys2OxLYdR2zMQx5LtHc5Dur0/t/7Y9n9PYkih\nP9PUdc+beUay5TBqWwaS29HE9IaX4IT9sZecsJCC0xFkf03b9GNmxmHNYdSWDKR4RxNDG15y\nJ+zPPET2Ho1rxYkKKX86AvfX1PLc0U2tTYfNjMSaw6htGYgdH+qFT9jvPkSuXTVxalznHE9S\nSOHTEfgfFmht5HRtPYvesOIwau9r8KwYiMeSkkIn7PcfIrHtd56kkMKnI3B6l2vdbub11EO6\no8+Gw6i9r8Gz4nhun0UlBSfs77t/4ZbY1pugkApPR+A4XQeNfNyXeTdr/jDq4F21DQPJsGNH\nE1Mn7E9QSHacjiB4N2v8MOrsu2pzA+nckR1IMMP4jiaZbz4185SYlJAs2D0/I/tu1vBh1Pl3\n1aYG0jl1wmvepS07muS/+dRISQkJyYLd84PDXHLvZk0dRh0dh6GBdE7V0457V+zY0aTgm09N\nlJSQkMzvnp87zCX3btbMYdTF4zAykFxHduxoEvnmUwMlJSIkG3bPzx/mEno3a+Aw6pLjiH0g\noY6s2NEk+s2n8W/wSEJIduyenz/MxewGXhvGUdCRBTuaFH/zaewbPJIQkiW75+cPczFbkvlx\nuB0VhGR8RxMLvvk0CSHZsXt++DAXkyWZH4f3fDSlqCRjO5p4zH/zaRJCMrx7fvfmjS95R1j+\nYF1+7SYewbaMw39ddzRakrkdTXzGv/nU9pAyu3sb3D1/4AHvuLkp3oePaafgERzvu1lbxpF9\nfxQtydSOJgHj33xqd0i53b2N7Z5/fK5uWnjnFH135lESegTH+8+vLeNwnG3NmYCKSjJk/4Z1\nL6XNf/Op1SGFdvc29K5kcL7+9gF3IM9mT9MZ92Eulo3Dsy3Ix4qSeu7yHiK39Jr+5lO7Qwrv\n7m2mpB/oaZFjE2I+zMWycRSwoKT0Qt16910TjH/zqd0hFe7ubaKkdJveG50X72Eudo0jwnxJ\nT+qbjjlOsPu7wW8+tTukyO7eBnbP369vDK4dWNkxcdEu/2qsh7nYNY4o4yW15XYVe9XUR1gB\na0Mqsbt3/LvnH9TT/Muuld4mM91s4DgXq8ZRxHBJp3VbcG3PhMUmNxraG5IFu3u7BsZ7J7vt\n3dCi9YJnty3Tk+t9BmnLx1HMbEnH9aRg60vnOG1iw0uerSGZ393bt1GPW37fJK1nbvdGscDM\nRxQWjaOYW5LBN2rT9cvBtTn6JXPDcGwNyYbdvX2D/lEubcFW5y3+PvojeRwlHDW2X5DrYX1D\n8OR8o7fXqkFWhmTH7t6Z9f749juezp6C/af6VkPDsGYc1ji9v9f9/74ZeqFf0lbdwXuknM7g\nedqS3b2j0rflvvnZKFvGYVDfimY98SfulTdb9PXPnzr2yLjcyZQMsSmkrqnBB0V27O5d5FHd\nesz0GDy2jMOcfn9TlL/X5SGjX5yeZ1NI+Y9cTZ+Nfdfd0xdtz08e8rZL9S3X2uQ5RC0ah3Eb\n9S37jqzKlNT/2Lzm9tsPmB6STSEVlmTwbOwb/U9rns9OHmy77uGfPnmT1hvjHkghW8ZhSjp3\nuXCK9wYpeyI9p77fV14dq0IqXVLsZ2PfpqdsO7paT/Wue2dKO3yT/+phsumPQW0ZhyGdczKf\ngHQv3H3zg/61DSZP/xVhV0glS4rdtyccdtffMt79F/Dl6d6+or1P3DLj1sfr//WJQ7FlHGbc\nrVv9ktbriTMfzsyyqCTLQrKhpE692P3//vHeXjlL9UoTQ0AJPfMyJXlvoGcEL/PsKcm2kCwo\nqVNPdV/Q7dar3Osnx7f0GxgCSgmXlN3+75a00+SYcqwLqbAkE2djH5ymb3rsybv0vc88t2nz\nLP30KQNjQCmhkpqz/8RuMLPLSxH7QgqXZOZsGrs7dIG2hStH+Oc2tgiVZPTrzEqwMCTzv6be\nLT9YrGfcufQ7S26fr1uuteZ1OOwtycaQbPg1Pa0zW91f0fcOvr7N7FiQZ21JVoZkwa9pmc58\naLGBZyPTsntgZngled8XYP4hUsjOkEx/65t3eIv/cU16rn55qEVRV7k9MANuSVO8v43xh0gh\nS0My/a1vzky9x7t4Uk+1Yf+Tkazoqad7cuZc/cYeIiXZGpIZ+W99W61vOuCc3tDcxBOSaUUl\nPWHmpMSVEVJI6Fvfutq1ntSsm35kekwoKmmb/raxsZRFSHkF3/rWeatb1PWvmh4TnKKSHtNL\nzY2lHELKK/zWt/SbP99v9uhlZBWUNDBdbzY5mNIIKS/6rW+wRrik+3XH6YoLG0FIOea/9Q1l\n5UpKP5I7SZtVCCnH/Le+oTxvR9WHetKvLTL4vYCVEFKe8W99QwWD93ona9a61ab9GfIIKc/4\nt76hkvSPr9e6baXZMxOXRUiezNkGjX/rGypLHz1k7XZUQgqdbdD0t74huQgpfLZBw9/6huQi\npIKzDZr91jck14gPqehsg8AwjPSQ7DzbIBJnpIdk59kGkTgjPSQ7zzaIxBnpIdl5tkEkzkgO\nqdv/gmcbzzaIxBnBIfXPyrySs+18NEiiERxS7j0RJaFmIzkkSoKYER0SJUHKCA0puxNxqCSb\nzjaIxBmZIXUvzH7B8w+zJVl1tkEkzsgMaXXuq9LTy/gUFgJGZki9t+RKOtFESajdyAwpXNKs\neU16d+WlgaGM0JBCJU1d9zzPSKjVyAvpxN4+7yJb0rbMVxsANRlpIfXeo/V1/kdGbkktzx3d\n1Np02PSY0ABGWEh9c71zMjT5e6u6JXmsPN0gkmaEhbROL9i9f1m2pOVat/P5ESSMrJDSk6a5\nb5DSDwQlOV0HrT1PGpJlZIV0Qj/pXeRLAmSMoJD6n7p7ZXDmR0qCsJETUo9/HsjVmQlKgqyR\nE9JqPfXOybnv1vFK2md0PGgoIyWktNN2c59zcmF+b9UHOD8D5IyQkLoX7p7obegO7WPH9joI\nGiEhrdcTW7d5V0IlAXJGSEje2esyXwtLSaiHERKSX1JmJwZKQh2MlJBC5zdxS+K4CQgbASEF\nx02EStpkdDxoRA0fUv64Cc65hfpp9JDCx01QEuqm0UMqOG6CklAvDR5S5LgJzgOJOmnwkKLH\nTXAeSNRHI4fEcROITQOHxHETiE8Dh8RxE4hPw4bEcROIU6OGxHETiFWjhdT5cuaS4yYQqwYL\nqWtq8Ikrx00gVg0WUn7fBY6bQJwaLKTCkjhuAnFptJBKl8RxE6izhgupZElAnTVeSJQEAxow\nJEpC/BoxpMKSOG4CMWjIkMIlcdwE4tCYIfGaDjFr0JAoCfFq1JAoCbFq2JDYzoA4NW5IbGdA\njBo4JCA+hAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQ\nEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQ\nEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQ\nEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQ\nEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEpzvl2V6ZMlBSLEYq1RrunC69jtVamzxaoZz\nR0OHpLJGf2XKI12l7kPkvyjBCCkW7sNMrS+crv1OTYTkuXhDuvg+CAkx8EK64HDBdO13GmtI\n5032XPfNC7yUlhaXREiIgReSuiEdnq79TotDWr548XDuqJqQsqsaeHGy+5+ypug+hrnqhkFI\nsXDDuVCpJ8LTtd9pcUjDdCYhOU56ufv8dFBmzY2DkGLhhvOo++bieGi69js1FJLj3KzUIpk1\nNw5CioUbTtp9STQrNF1u0Y1r11Z5p8GjO7jBQO8ZjSh8qzMN6fhodUGPzKobBiHFwgvn4HlK\nbQpNZ6R/MnvMeeePmfNcOvyjF6ddMfqrU7eU2Drm9D3Sftmoy9ofG8w+ur0bpH/0jS+tCG57\nn1JLsgtvUGqaf6Vn3XWXnjtm8iOnwyMKbnXGITkzlNoss+qGQUix8B9ma5S6vDs07XmrJbtR\n+dqjuR+lVwTzpheXtPvq4GfjO0MhrXRnZB/Nbyh1RfZ2bUG7r1we3OqSF0MjCm515iG5kSyX\nWXXDIKRY+A+zwfFK3RqadnWNcR9QX5kxw6vjqq7sjzaqi6YvX3yVO++B6B3tv9Cde9nUqZcq\n1ZwPaYv3QF2dvdtxSr2SWfqtc9RlA+7ljtFKXTn1lo5LlBq1KTeC7K3OPKQdbuMyq24YhBSL\nzMNs9yilXgxNO84cpS563ruy+WKl5mR/dH7rW+6V3mnu007kftLuI/Wi57wrT5yv8iFdceHq\nwwO5u12r1Hcyi69T6i73YmCsGr3R+3nvmi+py046kVudeUjuk+EkmVU3DEKKRRDOvUpd3Rua\nPniOOmd3Zok97tU3gx9dcsqf5T5cz43cz1Z31v7M1VdCIY3eGV6N+2RwZeYFlvsUeMC9eEqp\nx4M7WK/UWidyqzMPqVepb8msumEQUiyCcPquUWpZaPp7St2cXWRu8Dgbm39Bd0XRtr0FSi3N\nXp+eDyk7L7hb9+3JL7zLA8ETxyw1ui9Yone0utGJ3OrMQ+pTSsusumEQUiyyL+V+4T7v7MhP\nuy1syS6yWakZwaKvRm41NuA4X1Nqf/YGm/IhvVJ4g8eCF1gr3Ldb3uUYNSp7F2NHqTFO5FY1\nvbSrcdUNg5BikdtKt0Spbw7kpidkXv/49is1MVi0K3Kr7IY9x7lAjcq9tdiXD+lE4Q1OjfZf\nYKWvCT7uOb9gn9NLnMitzjyk1/IbG2pcdcMgpFjkQuoZo9TK3PTXlcp9Ktmj1DcKFi0V0pfU\nlU7oBtmQBiM3uMl/VtuV3Ug4quDRfK4TuVVNm79rXHXDIKRY5Ot4wX04vV7qGcl9VzGhcNES\n+z9cFHpGOhD6HClyg+eU+k/HWabUdn/yEnV5hREN7wPZrTKrbhiEFIvQY2e+UtcOBtPfDh6Q\nni1KfTuyaPEj7luh90iby4fU92V1VTp9pfpmdgvaqKJPdmsJKbeLUO2rbhiEFIvQY6frUqUe\nDKYfUGp+dr4b2PciixY/4haFNnjNKh+Ss9B9gfWSUusyU+4bsxeCJXZNnvxo0X2faUhzszut\n1r7qhkFIsQg/dn6s1PkXZ6YPnKPO2ZOZu9u9ejCyaPEj7kWlRu3LXH1VVQjJXW7pIjXqeG7R\nazOvCNPXZ7cJDj8k7zCK89+M3skwV90wCCkWBY+d6cGWA9dMpS7xX9xtuii0Z0PJW/nSLUp9\n+cfetacvqBTS4OXqqksym9O9W01Sapq3oax7nlLfSBfd95mENLDNO7BvXdEAh7nqhkFIsSh4\n7Lz15VxIJ7wd6r6a2dfu6q7ooiUecQcu8ve1m3a5++qqQkjOUm8VW8O3Om/qrTdeqNRF+4vv\nu5qQgkPNtbevn1qWLrqTYa66YRBSLAofOxtyITlHx2c3DU/sLFq01CNub3bv77kDlULa6S5x\nZX4j864xwa2ufrnEfVcTUsjFj6aL72SYq24YhBSLwsdOui0XkpP+8cwrzztvzJxNFR+cIf2P\ndFw66tLrn0s7lUJKX6PUPaFb9a5rvWT02BseGShe9MxOx3VVx/r86bhqX3XDICRwgkgBhAQI\nICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQIICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQI\nICRAACEBAggJEEBIgABCAgQQEiCAkAABhAQI+P/Ati6OQru3iwAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "drivers <- read_tsv(\"../data/intogen_cancer_drivers-2014.12b/Mutational_drivers_per_tumor_type.tsv\",comment=\"#\") %>%\n",
    "  set_colnames(c(\"Symbol\",\"Tumor\"))\n",
    "\n",
    "switches %>%\n",
    "    mutate(Driver = ifelse(Driver==1, \"Driver\", \"Non-driver\"),\n",
    "           Driver = factor(Driver, levels = c(\"Non-driver\",\"Driver\"))) %>%\n",
    "    ggplot(aes(x=Origin, fill=Driver)) +\n",
    "        geom_bar(position=\"fill\") +\n",
    "        labs(x=\"\", y=\"Fraction\" , fill=\"\", title=\"Intogen drivers\") +\n",
    "        clean_theme() +\n",
    "        theme(legend.position=\"bottom\", axis.text.x = element_text(angle = 45, hjust = 1)) +\n",
    "        scale_fill_manual(values = c(\"Driver\"=\"firebrick\", \"Non-driver\"=\"white\"))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "The proportion of drivers affected are similar across categories, albeit unexpectedly lower in Tumor switches."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:06.050511",
     "start_time": "2017-01-06T17:46:56.280Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC+lBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycpKSkq\nKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7Ozs8\nPDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1O\nTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19g\nYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFy\ncnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OE\nhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWW\nlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eo\nqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6\nurq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vM\nzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e\n3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w\n8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9yyILhAAAA\nCXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3dCZxU1Zn38UrGJJOZzL7mTTJLZslkZt6l\nRNSo0Rg1MaNJLiBB3NCoqJhoTnezSzdLi2yyCIgoUVQEBERExQUx7gTFFVCQpRFkbRpoGnqh\n634+7z333qq69VRDn+4+p55zq/7fz0yqbtNd/UjVj6q6dZeECwBdluAeAKAYICQADRASgAYI\nCUADhASgAUIC0AAhAWiAkAA0QEgAGiAkAA0QEoAGCAlAA4QEoAFCAtCgWENKeLhngBLC/Wj7\nSSJxn7wsSyRu1nm7CAkKivvR9q1EYrW8vDCRmNXlG4vU09mQECB0CvOj5kAi8YUj8srXE4m3\nunxrCAm4MD9qXk4k/k1e7ksH1SWRCnZ5ungTAOqYHzVTEome8vKlMKiu0VABQoJOYX7UXJdI\njJKXkxOJXl2/NYQEXJgfNacmEk/KSy+o0V2/NYQEXHgfNcf/MJHYJq90SySeyv/jpMd1jz54\n/je//I0zR38a/aPGR6/97t+c8nf/738Gvh1+JZGRXsp888E5zr/+6df+85KJB8hNtz73s29/\n5Zvfv+Hdtm7CdZuX33Lxd/7ob0/rNaZG238yFCe+kBJtaONb3PXfCf/wS4OOZf5k/v/K/tDF\ne8jtZX40kJr+1+k/+erNDdGbbnDSf9Bjd/5NuM/8c2b5lIEt5v4moAhYH9LGP8v+8QXpDO7O\n+al/r5df++53vysXvIv0jwbf23RF9HtP3Zm96ZZzs1//7tG8m7j3C9EfvCJl/G8EYsz6kP4z\nkbj6zcP7nrlILvQOvr7Ve0WYOHf5tmM1z/5Efnl45Pvzrl7vXftSxYqde54f+lXv6r8czfx5\nVeJrI9c3fPrQN+XCGPpza0/xriYf3Xh0xwv+L1lq6i8CigHve6SfJhLj5eWIROKGNv7Yj+sL\nj/rXU9VywV8z4f7au9YjeIZIXedd/07k++nVJ7wr/70++OKWs7yFQZk//4NvbPKv131Lfg+9\nib7etZ8EL+hSV8rrOv6DoVjxhvRPicQL8vLnicT0Nv7YD0mkl66Vr8z8a+d713aEX13vXf9K\n5PvJ1dR/eX+8IX0Te//ee7tTk7npp8MvP+pd/yq9ia9718KVEO4m7/pfduG/E4oea0iHvMfn\nXnnl24nEq238uXxUn5Iuxt3zR97iO/LaD/79389Pf7W1zddzmasrvcsh2Vt83Ft8IP3n3dNv\ne7ZmfzB77SvetfRavtTIESNGtHb6vxOKH2tIryUS35CXh73H7ME2/lw+qvtmFy/3Fqvp9+w/\neUgV3uXz2e+uk6sN0n/+QPqrrW2FJFcWtvU0CdAG1pBmhO883kgk/rGtP5eP6oezi/d7i5eS\nbzl2y8lDOsO73B35/n9JJP53+s+zT4JthdRbvosqi/4swAmxhtQ/kRgqL+/ND8QnH9WvZBdf\n8Bb/NbtY/+6Cqp5/kzh5SP4auVz/lP7zz3N+Eb321h/4qzrOuOP5Q13+D4WixxrSmYnE4/Ly\n5kRiWFt/Lh/JkW0K5Fv+vw6u7pt9yTcibUS+n1z9an5If53+8+wnQ22F5C752/AHvvh/R3yA\nT5HgpLhCEvkP8MRP6TfJL2a3ZnCPeounyCutE/80/TN/f/vJQ/pS/q/5MvlW9wQhuQd/8xeZ\nH/rvN/T9t0MRsj6kyDNSjbf4p95lyo8n8fVedz61tfUEe/Olr8pnlbZ2dFIJyXVbVv3mP8Lh\nvpC3mgMgy/qQIu+RXk4Eb3DkKu3ERW+nst/knvCqXPe2tY3frxaSVPtU+b/Jr34Rz0lwYpzv\nkUYnEpfJy+Un2qtPPn4fyS7O8RZ/4Pof3yZ+nop+04mvynVvbe3Drh6SJ7VCbiPb5voQAB9n\nSJeFW7hVn2ivPvmojnyOdE0iWCnxj4nsNgf+h7onCWmydzkiexNbe/To8RT5VrfNkI6sWrVq\nW+YbVnhf/ucO/wdC6eAM6TvhTkh9wt1k88hHdXbLhv1f8xZ/5135sndZn/7qSycP6VPv8pvZ\nXSB+5S2+Sb7VbTOkXd6VfplvOOgt/WGn/iOhNDCG1PgHicR2eeU/E4llbX6H/84ps63dDd7C\nd+Urur/0rnwQfvHof588JFduNT4mfRMb/iiR+PZx8q1umyG1/nEi8Y+ZAuXbs8hHWAAEY0jv\nJhJ/LrtoOiXcTTZPsLpsvn89NV4u+NflNqtXB9/x8Rn+9zRkv/9o9qp/ZfUXE4kvPhh88TP5\nonB27p+TpexN/My7Vt4cfPXA/4kWDZCHMaS5icQ58vKDROLP2v68M1yb1291fe2KH8lrwb4T\nc+XVnm8cqH93+B96r/28hUHBxgdeM4n7G/elfzS4kaHy6s+f33tozR3ek0ziglY3989zl7I3\nIZ+EEv/x2zUHa9dWyw9//2KHC3AijCGVJxK3ystHE4mz2/4O+VCuTGSdH3widPz87Je+NCfY\nXfxq+Qf/FXwt/aPBjbTeFLmFxOkHszed+4uCa5GbuC36c4k/Wan3vx6KC2NIPwpfZg1KJG5p\n+zv8h/TMPwkfyqeUp7dyONwj/fD+rzfcF7+YCWlBWyG5qVl/lcjcxNHoTef+IpfcROvYr2Q7\numC9vv9wKEKMIV2STL4nL0UyubDt7wge0jtHdvubU/6ue1XkKEKpV/qf940vf+tnj8m1AU+f\n/Vd/nAx2eFh16T98+evd826n7v5Lvv3HX/n6hXd+nvdHeaI3sXtS37P/4Utf+9ZFd3zYof8y\nKD28e8i2I/dpA8BeVj9QERLEhdUPVIQEcWH1AxUhQVxY/UBFSBAXVj9QERLEhdUPVIQEcWH1\nAxUhQVxY/UDd6uGeAUCF1SEBxAVCAtAAIQFogJAANEBIABogJAANEBKABggJQAOEBKABQgLQ\nACEBaICQADRASAAaICQADRASgAYICUCDogmptYl7glBLS/vfUxBNrdwThBptOSX8sfa/pdOK\nJqTGOu4JQkfaOvczh7pG7glCe20perfB2y6akBp2cU8QOnCAe4LQrgbuCULbjnNPENps8LYR\nkm4IiUJIcYKQKIREISQFCIlCSBRCUoCQKIREISQFCIlCSBRCUoCQKIREISQFCIlCSBRCUoCQ\nKIREISQFCIlCSBRCUoCQKIREISQFCIlCSBRCUoCQKIRE2R1S6q0pQypn14RL9cunDbn7ibo2\nl4xCSBRCoqwOqeU+Icq8/3vHX9pf5S8N29HGklkIiUJIlNUhLRGV6xrrl4ohB72F1HQxbktL\nzRQxoTVvyTCERCEkyuaQassr9noXqVniVe9iixgiX8fVV4qP8pYMQ0gUQqJsDmmVmOtfblu+\n1vvfZeIRf2mJeCxvyTCERCEkyuaQfiveiyzNEWv9y4/FPXlLhiEkCiFRNoc0VWx7d+rgkQ98\n4i/dLbb6l3tFdd6SYQiJQkjErqf2mrvxroY0Rszz18yJ5XKpSgSjNohBKbqUq7VWs93bdN9i\nJ+3YwT1BaNtu7glCm/dxTyBtuiWZTFZs13qb9fpCGijEI7tbDz5bJjZ6SxXikP/V40I00iWE\nVGAIKWpfv6R0m9Yb1RjSUPGQ/2zzpJjp/W9l+Bx0RJSn6JJheGlH4aVd1NpkYLuh2+9qSGNF\n8A5utxjuxTJRbPOX9oqRLl0yDCFRCClqeRjSG4Zuv6shTRe1/mWjEM2uOztch7dJTHHpkmEI\niUJIUW+FIX1q6Pa7GtJCscG/3CnGeP/7rJjvLy0Tj+ctGYaQKIQU1dTL7+h6U28yuhpSjZju\njzZPPOz9734xXN57jaPF9rwlwxAShZBybO3tddRvj6mb72pIqbvF/Z+37n9cDNwnF2eJ6Qfd\nw7PFZDd/ySyERCGkXMffvv89cyu9urzR6udD/c+RBr3tL9VWClElxLBdbSyZhZAohETZvGWD\n69YtHDlw/Pz94dLhxSMrqhbUtblkFEKiEBJld0iWQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKE\nRCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgU\nQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEk\nCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQ\nkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEp\nQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpsCSkvaN69Byzv/3vKwCERCEkBXaEVHtR\n0vPjg9xzSAiJQkgK7AhpTNJ3F/ccEkKiEJICO0LqE4R0BfccEkKiEJICO0K6MgipH/ccEkKi\nEJICO0KaGYQ0m3sOCSFRCEmBHSE19pYdXd7EPYeEkCiEpMCOkNymBbfd9ngz9xQ+hEQhJAWW\nhIQPZPMhpDhBSBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlA\nSBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoRE\nISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRC\nohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQK\nISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCS\nAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlA\nSBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoRE\nISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRC\nohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQK\nISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCS\nAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlA\nSJQtIR14poZ7hBBCUoCQKDtCahyTTCZv2ME9hg8hKUBIlB0h3ZmUftHEPYeEkBQgJMqKkA51\n80NKvsA9iISQFCAkyoqQPgk6Sk7nHkRCSAoQEmVFSB+FIY3iHkRCSAoQEmVFSOlnpPu5B5EQ\nkgKERFkR0rEzg5BWcw8iISQFCImyIiT3Ub+j21Lcc0gISQFCouwIKbX4kuR5k6wYBSGpQEiU\nHSF5NmAToRhBSJQ1IWFbuzhBSBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCS\nAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCohCSAoREISQKISlA\nSBRCohCSAoREISQKISlASBRCohCSAoREISQKISlASBRCouwPqWWSOBJcq18+bcjdT9S5bS0Z\nhZAohETZH9JSEYa0v0qIMiGG7WhjySyERCEkyvqQPhJhSKnpYtyWlpopYkJr3pJhCIlCSJTt\nIdUNHxqGtEUMka/j6ivFR3lLhiEkCiFRlofUeo94LwxpmXjE/9IS8VjekmEIiUJIlOUhPSse\nd8OQ5oi1/pc+FvfkLRmGkCiERNkd0say8c3pkO4WW/2v7RXVeUuGISQKIVFWh3S4cqD3EA5D\nqhJ7/S82iEEpupSr5VPNNm3UfYudtGkT9wShjbYM8gn3AGnaB9mtL6TULPGWmwmpQhzyv3pc\niEa6ZBiekSg8I1E2PyOtFHPls00YUmX4HHRElKfokmEIiUJIlMUh7Swfc1RehiFNFNv8L+8V\nI/OWDENIFEKiLA7pfZH1sOvOFu/5X94kprh0yTCERCEkyuKQPhwcEGLQ4MfkmvD5/peXicdd\numQYQqIQEmVxSGnhS7v9Yri89xpHi+15S4YhJAohUfEJyZ0lph90D88Wk9tYMgshUQiJilFI\ntZVCVAkxbFcbS2YhJAohUTEKyT28eGRF1YL0Hki5S0YhJAohUTEIiR9CohAShZAUICQKIVEI\nSQFCohAShZAUICQKIVEISQFCohASxRNS8yb5v5+PuurqCYU4eElXISQKIVEcIbXM7uV4F3VX\nOp4+nxicQBOERCEkiiGk1GivH+9yhldRH8f5lfndILoKIVEIiWII6SPH6Vnlvby73Bnc2DTB\ncd4xOIIeCIlCSBRDSF47csfXDxznddet7+VMMjiCHgiJQkgUQ0i/cYS8eMzp2+xdjHAGGhxB\nD4REISSKIaQrHX9fvNFOpbyY5lxrcAQ9EBKFkCiGkC53Znr/m7rG8Q/xONXpbXAEPRAShZAo\nhpBuc8Z4//ux46yRS0OdWwyOoAdCohASxRBStdPnqOvOdnrJQ5sc6uOMMDiCHgiJQkgUQ0i/\nc5xxtRuucIZ514/f4ziLDI6gB0KiEBLFENLx/o7vTa+pGxznqqMGR9ADIVEIieLYRGjrL2VH\nw1Ou+7Dj9HrD4ASaICQKIVEsG63WPjZi2GPyQ6Snxz1my2P0ZBAShZAo7EahACFRCIlCSAoQ\nEoWQKIaQHOf9yNJ853aDI+iBkCiERLGHtNC5xuAIeiAkCiFR3CHVDsMmQuoQElWiIZU7bbjZ\n4Ah6ICQKIVEWhDTP4Ah6ICQKIVGFDWncAI/jXD8gq/zRFoMj6IGQKIREcb9HigWERCEkCiEp\nQEgUQqLwgawChEQhJAohKUBIFEKiEJIChEQhJIojpNTSgZdF138bHEEPhEQhJIrjSKvjyAdJ\nBkfQAyFRCIliCOltGU/0oySDI+iBkCiERDGENNpxxhbk1K/aICQKIVEMId3s3Nhk8LcagJAo\nhEQxhHSZc7/BX2oCQqIQEsUQ0nXOQoO/1ASERCEkiiGkO53xBn+pCQiJQkgUQ0gfOlfFa10D\nQsqDkCiOD2QXOsPsPyhkFEKiEBLFsmXDqj7XPLmx3uBv1gwhUQiJKnxIT+XtImtwBD0QEoWQ\nKISkACFRCIkqfEirBlAGR9ADIVEIicJuFAoQEmVJSK2rH3jJjkkQkgqERNkRUu2VyWTyR2u5\nx/AhJAUIibIjpN8kpR9bsf4XISlASJQVIe1NBp7mHkRCSAoQEmVFSJ+EIT3EPYjEE9KRp+7s\nf81lrvvippTB368NQqKsCOnQaUFIq7gHkVhCWnNd+PnRCOe2nQYH0MWWkD6aMWMd9wxS6vVJ\nD9ZwD+GZ6Hd0hRWH6uUI6YOejtO7VxCSc9UGgxNoYkdIqdHyYTOWewzXPXajN8eZC7jHcN2m\nMd2SyRvs+KeYIaSjVzs9VzQNkCFtHek4t9jykdqJ2RHS4uCFzJPcc7h3BYN8xD2H59DLn3OP\nEGIIaYXjPOW6fkhuaqrjvGBwBD3sCOn64PHbn3sO99xgkIncc0ilvGXDHc41zemQ3CN9nTsN\njqCHHSFdFjx++3DP0XpqMMgd3INIpRzSDc5oNxOSW+3canAEPewIaWDw+B3KPYfrBIM8yD2H\nVMoh9XJmutmQZuLUl4o2f08+fM/eyj2Hu8rv6JLD3HNIpRzSNf6LuXRIY5x+BkfQw46Q3LV9\nksm+NpwSZ8VPkt1u3c49ha+UQxru3HA8E9Lh3s5wgyPoYUlIrltjw6c30vr93BOESjmkZY6z\nKh1Sy1jHecbgCHpYExK2bKBKOaTG65zev2uWIaXeG+w4NzUbHEEPhEQhJIpjy4YNvYMtG37p\n/b9z1TaDE2iCkCiERLFsa7fp5szxGu7YbXAAXRAShZAonq2/j786sX+fXtcMnLMRW393BEKi\nSjykmEFIFEKiEJIChEQhJAohKUBIFEKiChmS4zizgwscILJzEBKFkBBSJyAkqiRDGjBgwMLg\nAkda7RyERJVkSLGFkCiERCEkBQiJQkgUQlKAkCiERDGE5DjRfWrmO7cbHEEPhEQhJIo9pIXO\nNQZH0AMhUQiJ4g6pdhh2NVeHkKgSDak87zMkz80GR9ADIVEIibIgpHkGR9ADIVEIiSpsSOPk\n56+Oc33k09jyR604dPNJISQKIVHc75FiASFRCIlCSAoQEoWQKHwgqwAhUQiJYg/p9WvHGBxB\nD4REISSKO6TUPc5VBkfQAyFRCIliCenlCb9Kr7S71kFI6hASVdIhzcv9HGmCwRH0QEgUQqIY\nQtqZk1G/WfUGR9ADIVEIiWII6WHHmXSgaZYz3XUPP+bcbMtdchIIiUJIFENIg50+jd4vdm6U\nC9OcKQYn0AQhUZaEdHTRsDmWnESWIaT+/hn7Wvs6Td7Fnl7OFoMj6IGQKDtCqrk4mUyeZcc5\niBlC+oV8Uee6A53P5EWlf2QhuyEkyo6QrvRPHXj2Hu45JIaQejsz5MVEZ428mO38yuAIeiAk\nyoqQdgbnsk0u5h5EYgjpl061vHjY8f8CFjt9DY6gB0KirAjpkzCkh7kHkRhCGun0bfQuVjjj\n5NIc5wqDI+iBkCgrQjp2ZhDSau5BJIaQnnCce4677kan9yHXTQ1wyg2OoAdCoqwIyX3U7+g2\nK04NxBDSoV84ztWb3eNXOHfsqpvtBO+YrIaQKDtCSi2+JHneJCtGYdlE6AXH3yXp4WDThl62\nPEpPDCFRdoTk2VDCH8i67nsDf+GFdFT4Ha0wOIEmCImyJaTtCz9q5Z4hwLQbRUr+Q3J04fBB\n9200OIAuCImyI6SGQd5bpMtNPoTVce+PFAsIibIjpOH+yoafH+WeQ0JIChASZUVIB7oFq7+f\n5x5EQkgKrAmppoZ7gpAVIaU/kJ3LPYjEE1Lq3Zm3X93rilun/d6St4onZ0lIa/skk33tOAKT\nFSEdOLXUn5E23ZbZr+9XWNmgavP3/E00t3LPIVkRUtNpQUhvcA8icYT0fm9/vfcN/sVlHxic\nQBM7QhoYPGyGcs8hWRHSxvCl3SPcg0gMIR2+ynH6zt913G3ds+gKx7kau5qruSx42PThnkOy\nIqSaMKTHuQeRGEKa7zj9D4bXD/V3nIUGR9DDjpCuDx42/bnnkKwIKdXL/ws5cyf3IBJDSMLp\nsS2zsNXBRquKFgchPck9h2RFSO66s+RfyALuMXwMIfV1fh1Z+pVzpcER9LAjpNRo+bAZyz2G\nz46Q3D3TfjXWjtWYHCH1cSZFliY5vzA4gh52hOS6H86YsY57hoAlIZX2UYRuz3kxV+bcanAE\nPWwJCVs25CnlkJY6vbKHq9jT07FiT+GTQkgUQqIYQmoqd25Pb2d49Dbn2sMGR9ADIVEIieL4\nQLbuDqffk/tSbmrfk/2caz41OIEmCIlCSFThQ1o1YMDN/iYNN1wmL65On5fiGYOTdJEtIa2b\n81usbMhVwiE91daZzT3zDU7SRZaENEau/r6LewofQqIQkgI7QloefCBrxa75CInC/kgK7Agp\n3EToJu45pK2HuCcIbWjmniCEkBTYEZI9G62uuCR52q3buadw3daHzk2eXnWw/W8sAISkwI6Q\nyoKQBnLP4a7y57iE/2OLGf4g/azYORQhKbAjpHVn+Ns6f8w9h+sERT/IPUdDuGPf77gHkRCS\nAjtCar1WPmpuYD9Ab2u4h/cd3IOsDfdHGsE9iISQFNgR0rzgYcO/+9a5wSATued4PWnLi10X\nISmxI6Rrg4fN9dxzuHcFg3zEPcf+U0t7D9n4sSOk3sHD5nLuOdxjN8r3ahbsT3er/xdygRXH\nKkBICuwIaZg17whSr0960IYj7B3qL9ce2rHVFEJSYEdIn50jOzrXgiMUHJkjql7iHsK3bs6b\nTdwzBBCSAjtCcj++sXv3myw4DmDtj2XRY7jH8Kwb1PvWZ9lXY/oQUrvqxlxw5o0fck/h22PF\nCbwHB68xX+eew33Fn2NS+99YAAwhxeG4QRGN/pv8M20o6dCLL/JvTuC64albq7nnOH5BMAj/\nR9RugUMK9otNh9SnjzD4y7UJTlSavJp7Dtdd5L1J+v4T3FO4reFJICq5B9kcfo40j3sQqaAh\n9RgwaekH9emQHGeAwV+uTXASnmR39pfibwSD8J/D+4pgEPb131vCkErvkMXpXY+uXbGxKTYh\njQnurXO45wg/NUnezj2H+56/0V9f9tVl+8OQpnEPIhU0pMUTbk631PP2qY5zky07k5zMq5Zs\nWeYGB+i1YTeK9/uff8lY/j2Sng1Duop7EKnQKxuOrn8msldsr/JZL1qzj+OJjJd3Vk/+x401\nz0iuJXvIPhGG1Jd7EIllrd2A+g+WThqQrsn6Qxavrq543ILnTmveI7mWhLQ7DGkq9yAST0jh\n5bULqq91nN4GR9DDkg9kLVlrJ1kRUrjW46xj3HNIBQ1pwZraVDQk7zK1fzX72p92WRKSLZ8j\nubaEdEzuff/9Ddxj+Aq91q7f6EdzQooFW0LCASJzLfX3oyjjHsNX0JAuS78t+uWdC985iJA6\nDCFFtXYP3iO9yT2IVNCQWrasnD24T3al3RVLPzra1g/aBiFRVoT0ZriyYRD3IFLhVza0Os61\nU2/vGbbU49f3PGdwBD0QEmVFSKvCkKzY0oxro9WmjSu8ivyWsNZOGUKKagh3NV/KPYjEuPW3\n9x7pyAdPTLgJISlDSDn8/aKS3Wq555B4Q/IvjxgcQQ+ERFkR0q7wpZ0Vp6dm3LEPa+06DCFF\nfRKGZMUpHxlD+vRTGw6goWDP4vvYDz0VQEhRDWcEIfHvqutiV3MFS8+Sq1hbuMeQEFKO+/yO\n+uPY37GwPvh3bzr3HBJCytF69+nJU2/B2Sjat2luVUX1A+kZ65dPG3L3E3VtLpkzIXj9cKHx\nX6TAjoOfuJ+WXdy5FnIAAB9iSURBVNhjugUfpa/xj6J/L/cYPqtDWiGEqPD+/yl/aX+VEGVC\nDNvRxpJBQ4OQurHvau6uvfzUU694n3sK1/3YP/rJtez7kbWeHdw1Jh/DymwO6RMhFu1MHX62\nTMj3+qnpYtyWlpopYkJr3pJJs4J7q4fhX9O+zd+Tc5y9lXsOt1/wN7KEe4714Vq7YdyDSDaH\nNEvM9S9XCLlX/hYxRL6Oq6/0s8pdMml/cNAn/g2ZBgYPm6Hcc7SGpyWq4h5kfhjSZdyDSDaH\nNEx84l/WikHe084yERwtZol4zKVLRn18ZTJ5Hvs/v5mD6LMfsyF1miXbiqZP63Ij9yCSxSE1\nDx8erEpoEOXe6/E5Yq2/9LG4x6VLhm37Pfv7ATdzWpcbuOdwTw8GYT/M594wpLHcg0gWh5Sx\nWsij0t4ttvpLe0V13pJhdmzZsMiSTTTTZ+wbzj3Ia2FIFdyDSDEIqWaoeM+7qBJ7/cUGMShF\nl3K1HtRsb43uW+yMdf5+bN03cM9x8OLg8TuVe45XwpAGcw8ibdJ9g5FP6rSE1LiiQiyTrVSI\n4IhYx4VopEskpH2afb5V9y12Rnn41oR7jn2Dgs8DVnPPsT18alzGPYi0SfcNRo7OoSGk1OpK\nMeQN/zmnMnwOOiLKU3TJMDte2llzxr6fBoPczz1HfRjS89yDSHa/tNs3Q5QvDDcBmSi2+Zd7\nxci8JcPsCCn8+Ib9HLLWvEf6fdKSDwQkq0PaNEhM35temO2/U/K+KKbkLRlmR0jhaTH4j172\ng2CQu7nnSK/+7sc9iGRzSDuHlK3IbrfwrJjvXy4Tj+ctGWZHSK3+MYtv59/WeYr/8D3zE+45\nFoQhXco9iGRzSHPEysjSfjFcrshoHC225y0ZZkdIrvva2We/wT2Dp1mu9jh7OfcY7sNhSD25\nB5EsDulgmdi6KyT/GZ4lph90D88Wk/0/zV0yy5aQ3It+xD1B4MP7luzjnsF1a8OQxnEPIlkc\n0gaRJY/rUFspRJUQw4JHde6SWQgpV+2UG8ue5H+J6V7td/Q97jF8Fof0GgnJPbx4ZEXVgvQe\nSLlLRiGkHDv9tQ0V/PuVuNd4c/zQgudG1+qQ7IGQctxqy8c3wZnGBnOP4UNIChBSVCo85Db7\nyZibw0Es2NcRISlBSFGt4Xt89v053g0H+TX3IBJCUoCQotJbNlzMPcg8rP6OGYQUlX5G+jn3\nIC+Hg1hx7lSEpAAh5ehmyUZ/H4ch8Z9w3kVIShBSVCp8/F7FPci6cJBR3INICEkBQopqseWl\n3afhIHO5B5EQkgKEFJUKX9pdxz1I83nBIB9wDyIhJAUIKceFweN3Nvcc7l3+HD/jHsOHkNpV\nN+Z/zr/pQ+4pfHaEdE4Q0kTuOVrDs1Gs5R5EQkjtafR38T7TipKsCMmaPWRXh++RcKTVWAh3\nTL2aew7JipDc8K1JIXZgOakXw5B+wz2IhJDaMzy4t7pbsLGzJSGFR1q9iXuO+jAk48faVYGQ\n2jMquLfO4Z5DsiKk9OrvH3MP4v7Gn+N87jF8CKk9v7PkHYFkRUhuGNIF3HO4V/pznG3FSaMQ\nUrv84yFeWJA9CNtjRUjpbe3YD96zMxzkCe5BJITUnoaf+/fW29xzSFaE5Ia7AbGfkz69idB4\n7kEkhNSeB4N7i/8Ap64lIaWfkdjfI6VDupN7EAkhtWdYcG+dhrV2oebw8ft97kFqwkH4D5np\nIqT23RncW+dxzyFZEVJ6ZcNF3HOkwhM1YVu7WAiPMD2Gew7JjpDCLRvY90f6PCx6DvcgEkJq\n173yzrqqof1vNM+KkNKbCLHvT7cqDKk/9yASQmrfumkjn7PgcIiuJSG5FwWP35ncc6wIQ2Lf\nw1BCSAqwG0WOs4PH713cc7wUhmTFfhQISQFCikqv/mY/itBMazaxcBGSAuyPlCsdUnfuQeaH\ng/wP9yASQmpPcx95Z52xgXsOyYqQWmwJ6QOsbIiT8N899iMUSFaE1GrLK6r0WjvsjxQL4f5I\np2PLhrQfBn8jM7jnSB/XDudHioWRwb11Nvcckh0hvef/hVzaxD3H8TCkV7gHkRBSe7A/Up73\n+yVPH3uIe4rMRqtl3INICKldlf6aIeyPFHGQfx8Kz6wwpAu5B5EQUvueuuXqyVZsIYSQcqQ/\nR7JiX3OE1K4X5FFzxlixjRBCikqfH8mGWRBSuzZ/z7+3HuCeQ0JIUVuTFr19RUjtmRTcW+z7\ng0oIKer5MKSbuQeREFJ7hgT3Vjd8jpRlR0jh+lQ7jgKAkNpzd3Bv/ZB7DgkhRS0KQ7qMexAJ\nIbXnluDeOoN7DgkhRT0ZhoRzyMbCpeHdZcNqO4QUtSS8Z37APYiEkNrTM7y7uOeQEFJU+O41\neSb3IBJCak/4+fml3HNICClqYtKiV90IqV095J3VfQf3GBJCipqLLRvi5NAF/r31KvccEkKK\nSm9rh/dIsTA5uLeseAgjpKh0SFYcuxMhteey8O7CB7JZdoSUfmnHfshXCSG158cIKY8dIT0d\n3jM9uAfxrJu0xdyNF0dIPw3urVO555AQUlT6ZMw2bGs3L7nC3I0XR0i3hSHhGSnLjpDSRxG6\njXsQFyEpCM+P1Id7DgkhRa1CSHGyLjhm/EjuOSSEFPVeGNKvuQdxEZIC7I+Uz46Q3sIzUpxg\nf6R8doT0Bp6R4mRacG9dwj2HhJCi3glDsmHHPoTUrk+C90hWnPEXIUWFu1wmz+EexEVICu4L\n7q1e3HNICClqYBgS+9H8XYSkYCjeI+WxI6TRYUg27EaBkNr1G3vuLYSUY0wY0uncg7gISYGw\n595CSDn6hSHZsPMyQmqXwCZCeewIKTwptBWbQSKkdl1izz97CCnHL/GMFCffD+8tHEUoy46Q\n0isbunEP4iIkBemQ8NIuy46QeuEZKU5usufDCoSU42cIKU42d/PvrGncc0gIKWoKVjbEygun\ne3fWKBveIiGkHIMQUqz09l/Z1Wq/3U9Wd9gPzu/4z2zUPrgtIWH1d6xMDe4t7WejqDk1WRDd\nPtM9uS0h/Tz9n8g9iIuQFPzA0L21LtnvwQK4JrlB9+S2hNQHIcVJ9/DeOq75dtcl79J8i20a\nW7whpU9vgJd2sdDd2DMSQuqafggpTn4Y3l26V9shpK7CB7Kxcg6ekfLYEdJZCClOTsczUh6E\nRCGkdiGkfHaEdA5CipPLDL2jRUhdlV4NhJUNsVAV3Ftn6b5dhNRV5+MZKU7Sn5/r3o0CIXVV\nD4QUJ+cipDx2hHQpQoqTixFSniIP6c3BAzuqT/LqDv/M0PcV5ymOkK4N7qzTdN8uQuqqs02F\ndHOyMIYqzlMcIaW36MIzUpYdIZ1pKqSbkpt3mPdOcrDiPMUR0nkIKY8dIaU/kNW++vum5FHd\nN9mGnSUW0oUIKY8dIf3U3DMSQtLvmuDO0n7MJ4TUVechpDi5wtDrB4TUVca2tUNIJpyPl3Z5\n7AjpDIQUJ+kXENhoNcuOkIxttIqQTLjY0L2FkLrqNKy1i5Prw3sLL+2y7AgpiWekOJkc3Fna\nD82IkLqqO0KKk5pg5dAjum+3QIfj6le8IZ2Kl3ax8qJc3VCt/ZDF6+iWV6YUbUh4RoqZQ32T\n6/XfKkLqqvRBABBSXNycPKT/RhFSV+EZKW4MhTTqUAGMLN6QuiGkmDEUEtbadc1pCClmEBJh\nR0h4RoobhETYERJWf8cNQiLsCAnPSHGDkAg7QkoipJhBSIQdIRl8Rrr8CvN6IyQt7AmpqcPr\n1D9L9u/4injt24acai6kwkBIOlgT0ntntH+X69BL9/bzBp+RCgMh6WBNSE8me95UAOdqP3lo\n5gGp+Xbx0s6UYg9pcSEGuS5OIWFlgxEISQP9IWFbu7hBSBqYe0bCB7JxgZA0wDMSgZD0QEhd\nZfA90qSp5lUjJC0QUlcZe0YqM7KyO98YxXkQ0skgpK4y9jnSwdUdNjY5vcM/s/aI4jwI6WQQ\nUlcZe2nXCThjnwqEpIH+kIxtItQJCEkFQtLAXEjaV393AkJSgZA0iNF7pE5ASCoMhdRrTAH0\nKt6Q8B4pboyEVJN5iW9Wt8/aGSS2IeEZKW6MhOTWrO+w83/Y8Z+paW+O2IaE90hxYyakTrhI\n+6H83RiHhGekuEFIGuA9UqchJN0QUhSekeIGIWkQo23tOgEhqUBIGsRof6ROQEgqEJIGeEbq\nNISkG0KKwjNS3CAkDfCM1GkISTeEFIXV33GDkDRASJ1mZ0jNHT/Y7g3JHR3+mQYTsyOkKOyP\nxCl1ace3++yM7msNDG8opIkd37W643ojpM6yMqTm5A8HFkDf5DIDwxsKqUCwZUMnWRrS9YX4\nNYsQkvGQMjes+XY7AyEZgpDMh2TsZMydgJAMiVVIMX2PlO4IH8hyQEhUbNfa2fSBrLvZ4G0j\nJN0QUpRN75EQkiEIiUJInYaQdENIUXhpxwkhUbENCc9InBASFduQ8IzECSFRsQ3JptXfCMkQ\nhEThGanTEJJuCCkK75E4ISQq9iHhpR0HhETFPiQ8I3FASFRsQ7JpfySEZAhCoswdabWb5tvt\nFIRkBkKi9Id0B56RGCEkKrYhha/trHhCKsWQ+nX86Ccd9whCIgyE5J7ldXS69lvtlPiGVL98\n2pC7n6jr6I81n3gPTr0QUi4TIblrktP032inxDak/VVClAkxbEcHfw4hUdaEdGzlCx11b1J0\n+Gde+NzEf15cQ0pNF+O2tNRMERNaO/aDCIl6Mln+YAFc0m5IMwp0z1xl4C8xtiFtEUPkq7r6\nSvFRx36wOXlpIR42ZfEJ6fkCPX6/194/eROTYwtx15zRy8BfYmxDWiYe8S+XiMc69oOxXmv3\nu1cM3Gjr2x0+kMlLySs7fvSTLe0NMjH5o0sLoBtCipgjgiOZfizu6dgPNiev2lEA9xsJ6cAB\nAzfaCQeTAwzc6sQCPTUipIi7xVb/cq+o7tgPthTo3kou1/8fbU1IR66bbOBWJxXonkFIEVVi\nr3/ZIAal6J8d33Iydw7ouFs6/iMVa046Red8+qmBG+2MTZsN3OgLPS8shB/PMTD7lk903+Ce\nwoRUIYIzrRwXojHvD49rVv+57lvspP37uScIfV7PPUFoaxP3BKHNum8wsmrGZEiV4TPSEVGe\n94ykXcMu479CjS0v7dxdRs5a0wnbDHzK2ylxfWk3UWzzL/eKkQZ/SwghUQiJimtIs8V7/uUm\nMcXgbwkhJAohUXEN6Vkx379cJh43+FtCCIlCSFRcQ9ovhsv7snG02G7wt4QQEoWQqLiG5M4S\n0w+6h2cLEx9oUAiJQkhUbEOqrRSiSohhhXiMIyQKIVGxDck9vHhkRdWCDu+P1BkIiUJIVHxD\nKiCERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEp\nQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQkgKERCEkCiEpQEgUQqIQEoDl\nEBKABggJQAOEBKABQgLQACEBaICQADRASAAaICQADRASgAYICUADhASgAUIC0AAhAWiAkAA0\nQEgAGiAkAA0QEoAGCAlAA4QEBdA463PuEQxDSFAAz4iRLdwzmFVMIaUsua+a9lhy/B5bBkm5\ns8Ua7iGkYzubTN100YSUentKRdm41SnuOdzW54aJIW9wT+FaNEjDjG0LxvHfMW7z4+Vi6O8N\n3XixhHTsAeG739g/OYqOzvLnWMk8hkWDuCvE0NlzuIdw3ZapJv9CiiSk1P2i6u0jB5cIMZd3\nkNZZ4s5NzU/zP4CtGcQb5REhRvIfJHKVmLlj/2JTfyFFEtJbYmy992/OfWJ0Le9riBfEeO99\nyfEK9gewNYO4QUnLmGdIuTNGy1crKw39hRRJSBPEznRHSz9jnONwefl+7+Jl8RDzA9iaQXyy\npA9YJ/Dep0192r9mqKTiCOl4+cSwI/cVMZ9xkLViuve/+wfPk/fX05uWtZb8IAGvpIqPWH5z\n3Xb/wnufNvHZ4CtmSiqOkI6VTQs7ct8W9zAO8r4YddxtnTryqJu6x3tjW8b27GjJIHvfeOVz\n/7U2V0mHqoduC3+/mBC+6jdSUnGE5E4euDvoyH2PNaSG4TObvX/9PvGuzh01pOyV0h6k5eky\nL+I7P5XXmUpqmikWueHvFy+HX/RK2qL7FxVJSCvFwKAj9zHxIucg25rcbWULvSutI55t4vw4\n1IJBWu8Rg2b/drAoWymfCrhKeqnVTT8nlqd//8rntP+e2IcUfFh9fKoQ/ovhj8qG1PEMcnh7\nc3DlISFP1fSWWMczhz2DvCjG7/MeyUvCpwLvkfw8yxwNM9Kv7gyWHPOQMh9W11aJMWv31SwS\n4l2WQZoeE+KO4G4aLz533e2DRjaW9iDu8YqyHf6V10V5jbxsfZ9nkCViqPmS4h1S5MPq+vv8\nq4PfYhmkeYr85WWr5fVHxLg1zwwUG0t7ENfdK6rCa/PFDKYZfN77JPMlxTuk6IfVqXcfGTV5\nwX6eQZaL6dt2zg0ewAeqvIdyxWslPoj3XChGhCvdD4jyY1xTSIUoKc4hmf6wugOTDB/rvS9J\nLQ0ewA3LZi3ZUeKDeFrv8FcaStViG9sYUrQkQ+/TYhyS8Q+r1R0Wr8qL9AMYg/iWiOqj/pXU\nUHGEaYZwT5JsSabep8U4JOMfVitqeW3eonAVB+8D2JpBwhWHjWPF9Hq5+JoYxzNHdk+STEmm\nxDgk4x9Wq2n0V3gsCRY4H8DWDJJZcbhrqBj1+4bDL1aU8byyi+5JYrqkGIdk/MNqNd4LmIdH\niPKtwZJ8ADO9LbFlkMiKw30T/Ucy0wqP3D1JDJcU05Aa/H9tDX9YrSLlVk5tdo/MyNxJqaUl\nPkjOisPmFyeLYTOZDnxC9iTxSjL4qiWeIbVMCv5O+DYqDjXM2DZUvn2N/HPHsz+UNYOQFYde\nS1w7iOXtSdJk8rgR8Qwp856Iu6QVYugwfwsc429m4zKIPSsOC7snSUxDsqUk+TYt2P+J+QFs\nySA2rDgM90Aq8J4kcQ3JppKCjyYsKIl9EBtWHPp7IDUcKPSeJPELKf2SO1ISz0bFgWzIZt/M\nxmIQG1Ycyn9H1k8a3VDgPUliF1K4TbwrV8qEJTFtVByKPIB5D4LIPoglKw69koRYHvx7W7g9\nSWIX0pLs3TSXdcsg9r2obRvEmhWHdRWiIhygcHuSxC6kyN10uIyvJAv2orZsEGtWHNYLMSo9\nQOH2JIldSNG7adK0MqbNiq3Yi9qqQaxZceg+I0RDeoDC7UkSv5Aid1P18reZnpFs2YvankFc\nS1YcBgfszwxQsD1JYhVSeDSC9N/SOvES0yDW7EVtyyCZTba4VxymD9hf8JRjFFL2aATe39KQ\n1bVrhpXtYxrFmr2oLRkkf5MtrjWYmQP2ByVtry3UL45PSNGjEfhrOIVgO2ycNXtR2zKIJR+P\nRw/Y7z1GBi8eWl2og/fHJ6ToRsVu00IhqnhexcizOFqxF7U1g0hWlRQcsN//17ZgO3DEJiS6\nUXH9bqativ2zONqwF7U1g/isKik4YH/zEzPWFuzXxiYkSzYqDs/iyL8XNfsgdZ+mBwlYsMlW\ncO5TnpTjEZINGxX7Mmdx5N6Lmn2QuupBm8NBwq8wb7KVPfcpS0mxCMmGjYoD2bM48u5FzT5I\nXbUYe0hesWWTrei5TzlKikVIFmxUHO7kEjmLI9Ne1HYMkunIlk22cs99ylBSDEKyYaPizE4u\nOWdxZNiL2o5Bsh1ZsskWPfdp4d+o2R+SFRsVZ3dyYT6LoxWDRDuyY5OtvHOfFvyNmv0h2bFR\ncXYnF+b1uxYM4nUUDcmCTbYsOPep/SFZslFxdicX5pLYB5HPR6NpSbybbFlw7lP7Q7Jjo+Lm\nSdmdXFhLYh/Ef11Xm1cS6yZbFpz7NAYh8W5U3PDOqvVy/8rnlmczZnkAWzJI+P6IlsS3yVaA\n/dynlocU7DjBt1Hx8aVy/9PR8kP8lJvzAC7wSiFrBllXHgRESmLbZGvnyuXrUxac+9TqkDI7\nTrCdXH6KKJvx8GgxL3iQRB7ABf7X15pBvJLCfGhJLBofkS8pZzbxn/vU5pAiO07wlNR6j7hr\nlzfHW+mDdBZ6JxfrBomyoKTUDDFs3iOD/Jf7vOc+tTqk6I4TLCU9J8aSfXwKvJOLdYPk4C/p\nVTH+oOsGm7/znvvU5pByd5xg2Kg4VSm2068VdicX2wYh2EuqzGwrtpFtzXvI4pDIjhOFfzew\nU9wZXtu1aOTQWVv9qwXdycW2QSjmko6JyvBazaDZXCe9CNkakg07TuwWY/3L+kVyjZkoZ9sy\nyJpB8vCWdEgMD9801lUI1veL1oZkxY4TxwfKQ902rRwixPS31s0VI0wfP9r6QfJ5JTG+vhwn\nNoTXJov1fGNIloZkwY4TnlWiYuGC4UJM3CSHmM7zSZ9Vg+SrZdycwX1WjAn/TblTbrTKycqQ\nbNhxQmr1dxarDFc6r/V3dWFhzSD2OLazyXufOEHM8Et6V4zEe6Q8Vuw4EfzaN+9/4PX0Adjf\nF/fyTGHTIJZofrxcDP296+4ZIka9ffTg8xWZgylxsSmkuvAFrx07TlCp+zKnUOdlzSB8Wvy3\n0HK7y728e/xnWRRSfXX4kaslO04QL4phB7ln8FkzCJ9VYuaO/Yv9klpemlZedf8u7olsCim7\n8QLzjhNb542btSm7uFeu321eKATr4dpsGoRZyp0x2nuDlD0AGPM8PotCyi2Jb8eJVf6HNW+n\nF3dX3vHs+6+OF2JVgeegrBmES/hG2XsLPfVp/9pK1jPN5bIppLZLKvTR2NeJ0etql4hqeV0e\ncHDfeP9V+Aj2T0GtGYRJ3eTgIxDvLfTEZ4MvWVSSVSG1WVKh3TVon/frhwz0/v3bME5uKtr0\nyswJ975s/uSJ7bJmEB7zxDC/JPnCf0L47GRPSXaFZEFJdWK2978tA+VGOQ+JRQwTQNsap0VK\nSq+39ErawjhTlmUh8ZdUJ6q9F3TbxGLv+pGBQ1oKPwGcQLSk8vRDYyXLR/X5bAsptySGo7G3\njhXjX3r1ETH/jdVr3pkkXj9a+BHgBKIl8Z7yIp91IUVLYjmaxraRIkfljEWl/rGNNSwuyb6Q\n2P+SmtY+N1tMePih3865/x4xZLA1b2fB5pIsDMmCv6TXRbDS/WMxv/WzdayjQA5rS7IxJP6/\npLki+MhiJZ6N+KU3wQzIkvwzbzCe0KwtVobE/pc0Wfif1qSmiA3tfSsYltkEM+SVNNq/d5hO\naHYCdobE95cUnD1xoqiRF6+Kaiu24yppeS9PGkbwHaz/xCwNiUfm7IlLxPhd7rGV5WV4QuKX\nV9IrPEf3PjmElJU9e2J9lRDDy0XZ77hHAje/pHXiLrZZTgghZUTPnlh3rxfUqI3cI4GPlPSS\neIhvlhNBSBk5Z09M7flwJ/NRACAjp6Tj48Q7nMO0DSFl0LMngj2iJT0hRh476TezQEhp/GdP\nhBPLlJR6PnOUNqsgpDT+syfCScgtvp9pTG2exXpiwBNDSBnsZ0+Ek2mdL4/WLMQwmzYMykJI\nGexnT4STSr05SojKRczH+D4RhOSGR+3kP3sitCNVu9faNakIKXPUTvazJ0KMIaTsUTu5z54I\nMYaQIkftZD57IsRYqYdEj9oJ0CklHpKdR+2E+CnxkOw8aifET4mHZOdROyF+SjwkO4/aCfFT\nwiE1+Cd4tvGonRA/pRtSy6Tw7DrchyyCYlC6IWXPU4WSoMtKOCSUBPqUckgoCbQpzZDS2xBH\nSrLpqJ0QPyUZUsOM9AmeX0iXZNVROyF+SjKkJZlTpafm4lNY0KEkQ2qamSnpcBlKAg1KMqRo\nSZOmlYltJ/9ugHaVXEiHtze70ZKql7+NZyToshILqekxIe6Qa7rTJa2z8cwGED+lFVLzFLkr\neZncyM4racjq2jXDyvZxDwXFoLRCWi6mb9s5N1OSZOXRBiF2Siqk1PCx3huk1NKwpIVCVOHz\nI9CipEI6LF6VF+mS3Prd1h4mDWKmdEJqeW3eovCAdZmSADQpmZAa/cPXLQkWUBJoVjIhLRHV\nD4/InBFElrSDdR4oLiUSUsqtnNrsHpmR3chuKXYrB41KI6SGGduGyvVzkU2DsJoBdCqNkFaI\nocPWySuRkgA0Ko2Q5EG3grNZoiQwojRC8ksKPntFSWBCiYQUOSyDVxI29wbdij+kYL+JaElr\nWOeBolTsIWX2m8ChgsCkIg8pst8ESgKDijyk6H4TKAnMKe6QcvebwOHrwJjiDonuN4HD14Eh\nRRwS9puAwinekLDfBBRQ8YaE/SaggIo1JOw3AQVVpCFhvwkorCILqW5DcIn9JqCwiiuk+urw\nE1fsNwGFVVwhZbddwH4TUFDFFVJuSdhvAgqmyEJquyTsNwGmFVtIbZYEYFrRhYSSgEPxhYSS\ngEERhpRbEvabgEIoxpCiJWG/CSiIogwJr+mg0IozJJQEBVakIaEkKKxiDQnrGaCgijYkrGeA\nQirekAAKCCEBaICQADRASAAaICQADRASgAYICUADhASgAUIC0AAhAWiAkAA0QEgAGiAkAA0Q\nEoAGCAlAA4QEoAFCAtAAIQFogJAANEBIABogJAANEBKABggJQAOEBKABQgLQACEBaICQADRA\nSAAaICQADRASgAYICUADhASgAUIC0AAhAWiAkAA0QEgAGiAkAA0QEoAGCAlAA4QEoAFCAtAA\nIQFogJAANEBIABogJAANEBKABggJQAOEBKABQgLQACEBaICQADRASAAaICQADRASgAYICUAD\nhASgwf8HLeBh7A6dC2EAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ggplot(switches, aes(x=Origin, y=PatientNumber)) +\n",
    "    geom_boxplot() +\n",
    "    labs(x=\"\", y=\"# patients\", title=\"# patients\") +\n",
    "    clean_theme() +\n",
    "    theme(axis.text.x = element_text(angle = 45, hjust = 1))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "The non-tumor switches are more recurrent. That makes sense, as they are common to many patients with wt tissues (ie likely patient with high immune infiltration will have the switch detected). Also, Tumor category includes many switches that whose recurrence is too low."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Intersection with PoTuS"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:07.836293",
     "start_time": "2017-01-06T17:46:56.285Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAACW1BMVEUzMzM0NDQ1NTU2NjY3\nNzc4ODg5OTk7Ozs8PDw+Pj4/Pz9AQEBBQUFCQkJDQ0NFRUVHR0dISEhJSUlKSkpLS0tMTExN\nTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5f\nX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBx\ncXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKD\ng4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSV\nlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqan\np6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5\nubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrL\ny8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd\n3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v\n7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///+E4XwR\nAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3diZ9U5b3n8W41mblZJnfmziQz94Tl\nqpHgEmIMZsx9utmRRWwIWxQFQlAzotcVCdcVE5C4Q1CjRkRBBZVFRYLs3U13nT9r6tTST3U3\nfPt0c855fl39eb8Sqhuh6kdXfbqrTp3nnJYYwCVrCT0A0AwICcgAIQEZICQgA4QEZICQgAwQ\nEpABQgIyQEhABggJyAAhARkgJCADhARkgJCADBASkIHRFNL586En6KenK/QE/ZQ6Q0/Q39nQ\nA/TXWcr3+kdTSKfPhJ6gn84ToSfop+cfoSfo72joAfo71pvv9Y+mkI4dDz1BP6e/CD1BP92f\nhZ6gv49DD9Dfpzk/nSGkESMkiZDMIiSFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC\n8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC\n8ghJISSJkDxCUghJIiSPkBRCksyHdH6lO53FICkQkkJIkvmQNjtCMoGQJOshvecIyQZCkoyH\ndHzubEKygZAk2yH13u3eJiQbbIX00YqbVx4IPUQj2yE95x6PCckGUyFtvaKlpeVbr4Qeo4Hp\nkPa2LesmJCMshXTyey2JH5wLPYhnOaST86cfiS8cUulkDg5/kce1jtjRz0NP0M/x/aEn8J5v\nqfpL6EG8T47ncKUNh2W+hJBK69yO+CIh9R7NwWcH87jWETt8IPQE/Xz5cegJvD/WQnom9CDe\nx1/mcKUnMwlpm9tQulhIueCpnWLpqd3n1Y4u+yr0IJ7dp3aH2m+v/GQjJBsshRTfUQlpXegx\nGtgN6R3nPZDhRBdHSIqpkHofnfidf9uU8wkghsVuSH+fWeXcjJkPZzjRxRGSYiqkmDdkh42n\ndjYQkkRIHiEphCQRkkdICiFJhOQRkkJIkv2QikNICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQR\nkkdICiFJhOQRkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJlkM6tem3s+et2p7zhB4hKYQkGQ7p\n09nOtbc5t+RcduNIhKQQkmQ3pJ5lbtkn3T0f3OYez3AehZAUQpLshvSJm342ufzQLcxsGo2Q\nFEKS7Ib0mltVuTznXHdW0yi9z9/esbVUxC2lREjClNaWVhd6iEZ2Q/p67+HK5cduThEP7/M3\ntpTd0lvATaVESBf37eTOavmvocdoYDekROnUwbcWuOczmkW6t3LXtPxHEbeVDiFd1APVO6vl\n5dCDeLZD2uuca7/Q863SmaxdXb1rrs/8ikfs2MHQE/Rz4kDoCbxv10L6p9CDePtP5nClnVmF\ntG9GuaSl7wz+D71fZO1fq3fNv2V+xSN2cH/oCfo5/FHoCbwraiF9O/Qg3keHc7jSb7IKKY57\njv5putt1iVeSxtzqXdNRwE2lxFO7i7q2FtL00IN4tp/aVexwt1/6lQzpyPeSe+YHXxdwUykR\n0sW1VjpqDT1GA7sh/f2N2g+2U8Vs//7Ufee7Mw4VcENpEdLFHb0s6eho6DEa2A3pLvdS9YOj\nxWz/5g1ZzVRIMW/Ipvaf7s7qmzpPud9lNY1GSAohSXZD+qLd3X+kp/vwY679kwwHEghJISTJ\nbkjx623Olf/nZuzIbhyJkBRCkgyHFH/28G3T5921+URmwwyBkBRCkiyHVDRCUghJIiSPkBRC\nkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRC\nkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRC\nkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRC\nkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRC\nkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJChlS977k\n18O3Tfrp8oP5TpEOISmEJIUL6fz68VH54vg1UdmVH+Y7RiqEpBCSFCyk0qJyP+XLNeWKroyi\nX5XynSMNQlIISQoW0ntRNG5B+e65KprZ2bU8it7Md440CEkhJClYSOV2dpQv3o2iV+P41Pho\nZb5zpEFICiFJwUL698glFw9HV3eXL+ZF0/OdIw1CUghJChbSNdGdycWiaH5ycVd0Xb5zpEFI\nCiFJwUK6Klpb/rU0OXow+WxVNDHfOdIgJIWQpGAh3RLdXv71gyjalXw2O/plvnOkQUgKIUnB\nQuqIrjwbx+uj8eVf4xNXRvPynSMNQlIISQoW0otRtPTYnp9Ec8of99wdRRvznSMNQlIISQoW\nUs+NUcXr5aamRNGks/nOkQYhKYQkhdtFaP8NSUdzS3H8QBSNfy3fMVIhJIWQpIA7rR57eN6c\nh5M3kZ5Z+vCRfKdIh5AUQpJYRuERkkJIEiF5hKQQkkRIHiEphCQRkkdICiFJIUM6/dTiGydP\niOOt+wwsRooJSSMkKWBIu66vvJGU7Pp9y6F8p0iHkBRCksKF9O64KJo4vhpSNGlPvmOkQkgK\nIUnBQjr702jclq6pSUj7F0bRL3vynSMNQlIISQoW0pYoeiqOKyHFpVVR9Od850iDkBRCkoKF\ndGs0ubseUnz66mhxvnOkQUgKIUnBQpoSLYr7Qoo7opvznSMNQlIISQoW0vjKCtl6SGtZITsI\nIUmEVDW58mSuHtLt0bX5zpEGISmEJAULaW40pacvpJMTo7n5zpEGISmEJAUL6cko2l4P6fyS\nKHo23znSICSFkKRgIXVeH018sTsJqfT2zCj6RXe+c6RBSAohSeH2bNgzsbpnww3l/0eTDuQ7\nRiqEpBCSFHBfu303RXW3mnjMEJJCSFLIvb97Xl5x45XjJ0+/by97f18AIUmEZBYhKYQkEZJH\nSAohSSFDKh19N7n4ctuXPLW7AEKSCKnu3bbo58nl+1H06/fznSIdQlIISQoX0o5xUV9I0fhd\n+Y6RCiEphCQFC+nENVE0dXPy0dnnXBRN6cx3jjQISSEkKVhIG6Pot/W9GXruiqJN+c6RBiEp\nhCQFC2lGNOlM3ydnJ1dWJwVGSAohSYGXUdQtjm7Kd440CEkhJCngwr7VDZ/dHU3Id440CEkh\nJClYSNf1O4/5tOj6fOdIg5AUQpKChbQomvBV3ydfTogW5DtHGoSkEJIULKQXosidq33c1R5F\nW/KdIw1CUghJCnfqy1ui6Lonj/bGpeN/+lkU3cjCvoEISSKkmiPXJSuRxk+5Mrm46pN8x0iF\nkBRCkgLua/f1gr6Ffc7EnURICiFJQZdR7L237afjrp569xvs/X0BhCQRklmEpBCSREgeISmE\nJBGSR0gKIUmE5BGSQkhSuJBKm6dPiBrkO0cahKQQkhQspNLSqL9850iDkBRCkoKF9EYSz8+m\nevnOkQYhKYQkBdxpNVpi64FLSBIhScFCuin6eVe+Nz1shKQQkhQspAnRPfne8vARkkJIUrCQ\nro8ey/eWh4+QFEKSgoW0OFqW7y0PHyEphCQFC+nv0SRbj1tC0ghJCveG7GPRnLP53vZwEZJC\nSFLAPRu2Xzn5P/eeyvfmh4WQFEKSQoX0VDRQvnOkQUgKIUmE5BGSQkhSqJC2Tx0o3znSICSF\nkCSWUXiEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSFDKk008tvnHyhDjeuo/j2l0A\nIUmEVLfr+tr7R/OiWw7lO0U6hKQQkhQupHfHRdHE8dWQokl78h0jFUJSCEkKFtLZn0bjtnRN\nTULavzCKftmT7xxpEJJCSFKwkLZE0VNxXAkpLq2Koj/nO0cahKQQkhQspFujyd31kOLTV/c7\nNXMghKQQkhQspCnRorgvpLgjujnfOdIgJIWQpIBnNV8b+5DWRhMv8Gf2bVgwrePewr5ihKQQ\nkhQspMmVJ3P1kG6Prh38R7Y456aV//9UXsMNQEgKIUnBQpobTenpC+nkxGjuoD/xoXMbD5VO\nPtfm3stxwAaEpBCSFCykJ6Noez2k80ui6NlBf2Kd21C53OLuymu6/ghJISQpWEid10cTX+xO\nQiq9PTOKfjH4rOZz3IeVy2NuRm9+A3rfbWn5b0XcTko3XNbyA0tHtLAVUmtra8t3Qg/RKNye\nDXsmVvdsuKH8/2jSgUH/vXvu3OpPiDOuvYB3a4+3tpS1nsv/ltK5PBmn5e+hx/BMhXRZ5avT\nGnqMBgH3tdt3U9/xGm5Vz2J2upWZjzVY9a5puaKAm0rjR9VxDO08bymk2p3VcnnoQbyQe3/3\nvLzixivHT55+31619/ens93bg36zdCZrtbumJfMrHhlj45SdOBB6Aq/+1bk89CDe/pM5XGln\nupDS6NwyzT05uLOew1lrrd41rZlf8cjUHyqh5/BWjd8ReoQ+rfa+PB8dzOFKG7Z+XVpIpZ3z\n3azXClmtVL9riritFK6wNU7ZkpbdoUfoc3mLrSfisfEVskfXuPbHvslqFO2m6l1zazG3NqQX\nq+P8JPQcnqWQYnPfZgKENOiAdhc9rt2+GW71V/mO12BCcs9MKuzmhnJHMs640FM0MBXS5cmT\nu9b/FXqMBsWHNOgQqxc70uqhWW1bCnkDqe6NN4u8tSF98VroCfoxFVLZZaEH6M9wSPe5bfnO\nNhB7NijWQmLPhprj7VG0bNehziNvroyi3w9+y/WbNrf/SE0xP5gISSEkKVhIPdOjqz6offzh\nVdGqQZvm9jjvdG7zNSIkhZCkYCFti6JX+j55OYp2DvwDrxBS6An6ISQpWEjzohv8J6Xrotvz\nnSMNQlIISQoW0nVRR8Nni6Pr850jDUJSCEkKuNS8MaRF0YR850iDkBRCkoKFdO2Ap3Y3XOwP\nFoeQFEKSAr5Giv7a98nrUeWYQoERkkJIUsgDRE6qH/H782uiaGu+c6RBSAohScFC6r4xiiZs\nONQT9xy6f3wUTeWQxQMRkkRINQeuTnYMGj8lWWkeTfo83zFSISSFkKSAyygOtfftZzfbxGOG\nkBRCkkKuRyq9dffNV4+b9O+/382Jxi6AkCRCMouQFEKSCMkjJIWQJELyCEkhJCnIwr718QXW\n9+U7RxqEpBCSREgeISmEJAU5+Mlj8QWOgZLvHGkQkkJIEq+RPEJSCEkiJI+QFEKSCMkjJIWQ\npGAhLdllYDfV/ghJISQpWEhRdP2DR/K97eEiJIWQpIAhlc39S+fF/nsAhKQQkhTucFzzf5yk\ndPXv9tnYYzUmJI2QpIAbG44/Pb3yY+nXT5/Id4a0CEkhJCnsVrsjj/8qSWnC8r8VerT8iyAk\nhZCk0Ju/S/s3TElamvJwvnOkQUgKIUmhQyorvb9uMvvaDUZIEiENVNp7/88JaTBCkgipn9Le\n/1d5ahf9Kt850iAkhZCkoCGVPvxDtaIb7v/EwEZwQlIISQoXUumDWkXXrHnPQEUxIWmEJAUL\n6b6fVSqauHxnd74TpEdICiFJQXcR+vGCF87me/PDQkgKIUkBQ5r2lK0HLiFJhCQFC+nRw/ne\n8AgQkkJIUujN35YQkkJIEiF5hKQQkkRIHiEphCSFDOn0U4tvnDwhjrcaWZJESAohSQFD2nV9\n7cCQ86JbDl38jxWHkBRCksKF9O64KJo4vhpSNGlPvmOkQkgKIUnBQjr702jclq6pSUj7F0bR\nLw0cU4iQFEKSQp6M+ak4roQUl1ZF0Z/znSMNQlIISQoW0q3R5O56SPHpq6PF+c6RBiEphCQF\nC2lKtCjuCynuiG7Od440CEkhJClYSOOjtbEPaW00Md850iAkhZCkYCFNrjyZq4d0e3RtvnOk\nQUgKIUnBQpobTenpC+nkxGhuvnOkQUgKIUnBQnoyirbXQzq/JIqezXeONAhJISQpWEid10cT\nX+xOQiq9PTOKfmFgnSwhKYQkhduzYc/E6p4NN5T/H006kO8YqRCSQkhSwH3t9t3UdyLmW008\nZghJISQp5N7fPS+vuPHK8ZOn37eXvb8vgJAkQjKLkBRCkgjJIySFkCRC8ghJISSJkDxCUghJ\nIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISQp4Gld2vO9\n5eEjJIWQpAAhVc8tVg/pyitdvhOkR0gKIUkBQvrx1JWb3z1VDymKpuY7QXqEpBCSFCCk+iKk\n67bs7SKkiyMkiZCeWN63om/cr1fZWGVeQUgKIUlhNjacff/ZyBvfvm7rAY79PRAhSYRUVX5K\nd+rdzSun1mu6Jt850iAkhZCkkCHVLq97tOO6iCOtDkJIEiE9uutYqTGk8mXp652P5jtHGoSk\nEJIUZqvdtYv+o19INhCSQkhSgJAm1F8W3bD4sTe/IaSLISSJkM5/sm39zCv9RrufbH7vbL5D\npERICiFJoTY29EbRdat+Pa7W0o//793P5ztHGoSkEJIUdqfVrr1byhVVWmKr3UCEJBFSVcO+\ndqff/ePyXxDSQIQkEVLVwJ1WT+c7RxqEpBCSFHxhH1vtLoaQJELq76OPPs13gvQISSEkKXhI\nhhCSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE\n5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE\n5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE\n5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE\n5BGSQkgSIXmEpBCSREgeISmEJBGSR0gKIUmE5BGSQkgSIXmEpBCSREgeISmEJFkPaas7nckc\naRCSQkiS8ZDOLyYkIwhJsh3S8Q2OkIwgJMlySE8saXOEZAUhSZZDWr1w4cICQ2ptabW0aeTy\nltbLHg09RANbIbVe1tLyndBDNLIcUqKwkO5tbSlrfaGYWxtaZZyWH4YewzMV0mWVr05r6DEa\nEFJN9YHbclkxtzaklprQc3iWQrqs9tW5PPQg3igNqXQua/VHbuZXPDJ5jnN8YdsI/Kjl5yP5\na4/l8S+of3Va87jyh0byz2yb6kbytxadkKN05x5Sz+Gs1X4itWZ+xSNTf6jkcd1bWgr0z3n8\nC/quPY8r/36RX54X5CgNW79GzVO7+r+smFsbUp7j7GxZcrAo//w/8vgXfKv21bkijyv//g8L\n++osbHk77VSjJqTLq3fNt4u5tSFdUR0nl5dsO1tW53G1F/QvuYRUf0Wby3V//19zudoL+W0T\nhlQpqdXOdqDW/B4pTRDStytfnf+dy3UT0qWaMKGwm0pjxr/kdMVNEFJZLk/rEoR0qcbKng3N\nEVJuezYQ0qUipOwRkkJIRSAkiZCGhZCyR0hSc4ZUJELKHiEphFQEQpIIySxCyh4hKYRUBEKS\nCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJ\nLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxC\nyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoe\nISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEp\nhFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRU\nBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARC\nkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpII\nySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMks\nQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELK\nHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4h\nKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmE\nVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQE\nQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKS\nCMksQsoeISmEVARCkgjJLELKHiEphFQEQpIIySxCyh4hKYRUBEKSCMksQsoeISmEVARCkgjJ\nLELKHiEpRYV06um7Zv32j4U9vAkpe4SkFBTS1wuca3NuzsFLuI7hIKTsEZJSTEil1W7pJ+c/\nvdMt7x35lQwHIWWPkJRiQvrEzUoe2afmu/dGfiXDQUjZIySlmJCedA9WLje5h0d+JcNBSNkj\nJKWYkO5zb1UuP3B3j/xKhoOQskdISjEh/dbtr1x+5TqG/XefXDUCS5eN5G89m2KcV0dyxSsW\nj+RvPTj0NDtbrh3JNY/IP6UI6csRXfPCEf2tY0OP8/3vjeiaR2JSISEtcF9VLs+4GaWB/610\nTtr9P1sK88MP9Cxlh64qbpzvvj7kOC8XN01Ly38fcpxzHQWOs2Locb5X4Dgtf5WjdGcS0jR3\nonLZ41znwP/W87m0rMivxZ16lrJHihynbchxXmotcJzxQ47z0bcKHOe/HBhynh8VOE7rDjlK\nw8/PSwhpfu0n0mnXPugn0hB6byzua3Fzio3zBX7P/T9dQ4/zUHHjtJweepwdBY6T4qnUsQLH\n2Tj0ODWXENIKd6By+ZVbOOy/e+bECBz4bCR/62yKcTpHcsVHPhrJ30rxwI27R3LFX78/kr91\nIsU4vSO64ndG9LdSfNcrjeiKdx8byd/qHnqcmksIab2rfvvY5+4c+ZUMx1jZajcy3Z+FnqC/\n3Lbajcyn5/O9/ksI6Tn3SOXySfd4RsMMgZAUQpIMh/S1m3umfNG5yBV0FxKSQkiS4ZDidW71\nN/HJ9e6OzKbRCEkhJMlySMfmO7fAuTlHMptmiNsjJIGQJMshxSefWDhtwaOsRzKBkCTTIRWM\nkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSP\nkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSPkBRCkgjJIySFkCRC8ghJISSJkDxCUghJIiSP\nkBRCkgjJIySFkCRCAkYBQgIyQEhABggJyAAhARkgJCADhARkgJCADBASkAFCAjJASEAGCAnI\nACEBGSAkIAOEBGSAkIAMEBKQAUICMkBIQAYICbnpXHc49AiFISTk5lm3MOdDjtgxykIqmbpj\nur48E3qERsbGKcXr3a7QQ3jnDnXlefWjKaTSG3dOa1u6sxR6jpre5+e4Wa+FnqKPsXHiM2sO\nPLrUyn0Vdz/e7mb/NccbGEUhnbvXVdyT63eW1M6uq0yzLfQcNcbGieMtbvb6+0IPUXd+Vd5f\nndETUuket+CN099scm5D6FESvevc4n3dz1h56Bobp6z3QecW9oSeoma7W3vw6yfy/OqMnpB2\nuCWnyt9afu8WHbPwhOHPbln5FUnPNCMPXWPjJJKSngw9REUpXrMoeRqzLcevzugJabk7VO9o\n8+ehh4lPtrd/Xb74i+WmdG8AAA5nSURBVLvfxEPX2DhVSUnvhh4irrxaW/VM5aMcSxo1IfW0\nr6h1FL/kHgk9TfyWW13+9euZDyV3zjP7nuxlnMHKJU17L+DtH68eDr38am3Fc9Xfya+kURPS\nuba7ah3Fb7i7Q08Tv+Nu64l7Vy08G5fuLr+KbQv8M9LWOF+99tLhytPvsCWd6Jh9oDaFW157\nOZBbSaMmpPiO6V9UO4rfNhDSmblru8vf6j4sf7jhtlltLzFOn/PPtJVbXvxR8nHQkrrWuo1x\nbQr3l9pvlkv6JI8bGz0hbXPTqx3FD7utoYeJ4wNd8YG2x8of9M57riv8G6F2xum9281Y/4eZ\nrm1b8kMgbEkv9Mb1n4zt9Sm2PZ/LbY2GkKrvSfescq7ynPe9tllBT5R08rPu6gf3uyNxsjVx\nd8hprI0Tb3XLjpYfw5tqPwTKj+E/BZzmzJr6s7uce7YfUt970scWuNvfOvrpRuf+FnCcroed\nu7V6nyxzh+P4sxkLOxnH65nWdrDywauu/dPksvedkONscrOLKcl8SA3vSZ/6feXDmTsCjtN9\nZzJC287k4wfd0l3PTnd7GafBV25B7aNH3Jqgk1SUXycVU5L5kBrfky797cHb7nj065DjPO1W\nHzi0ofrQ/ceC8oN42iuM0+gzN6+27f0frv1c2FkSRZVkPKQi3pMejtLcJeVXJKXN1YfumSfX\nbTrIOP303lrZdpjocAeCjlLVWFKOr9Zsh1TIe9LDcdK9nFzUH7qhGRunYpPrOFv5oDTbnQ46\nSW1ZiS8pz1drtkMq5D3p1M6/8tDG2oYOCw9dY+PUtx92LnGrTyWfvuKWhpzGLyvpKylPtkMq\n5D3ptDormz02VT8J/9A1No7ffnhktrvtr2dObp3WFvKZXeOykiJKsh1SIe9Jp1V+zvLAPNe+\nv/pZ8tAN+oLE2DgN2w+Prqg8hoNu9+i/rKSAkuyGdKbyHbaA96TTKcXzV3XHp9f03SOlzYzT\noHH7YffWO9yctUEPfDJgWUm5pJyfzpgN6fzK6j899B7ENWfWHJidvFZt+N4WclWUsXEGbj8s\ntxR2nEHLSrryPnqE2ZD6XhPZKGmLmz2nsu9NIa9ch2RsHHPbD4tfVmI3JFslJS/WqqugTDx0\nbY1jZ/thbQVSgGUlhkOyV1L1fQgLD11T49jZflhZgXTmHyGWlZgMqf78uqGkkHsQV/mc83/l\nmoKhcexsP0y+qby/ctGZAMtKLIZU2/U9Tra91EoKugdxTcND18JxD62MY2r7Ybkk556ufiMu\ndlmJxZA2+ftkQ+h3YWMzC6frjI1jbPvh8WluWm2MYpeVWAyp4T452Ra6JDMLp02OY2374Snn\nbquPUeyyEoshNd4nK+9qC7oPsaGF0wbHia1tP3zWuTP1MYpdVmIypIb7pOPpN4L+RLK1cNra\nOLUZrGw/rB62v2+MQpeVWAupdgSC+hdjt3sh6DjGFk4bG6dvLy4b2w/rh+0PErStkPwRCMpf\njFk7j+2a03Y06EDGFk7bGmfwXlxhtx/2Hba/WtJnx4q8cVMhNR6BoLIh07nAB4wztnDa2Dim\n3jFvPGx/+cEz84nZHUUewt9USI17EMddjzm3IOgzl851hy0tnDY2TsJgSdXD9le+DRe6jMNS\nSAP3ID71RdhdiJMzN9pZOG1tnAqDJVUP29/9xzVvFXrTlkKytQdxdROQlYXTVsY5/lF9nCoz\ne3FVT4oaLmgzIdnZg7iqvgnIxsJpK+Mc75jxcW2c2u+Y2IvLnxQ1WElWQrKzB3FN3yYgCwun\nrYxzvMMtOZF8YGsvrsaTooYqyUpIdvYgri1p8ZuAwi6ctjROX0e29uLqf1LUQCXZCMnQHsR9\nS1oaz9wYbuG0pXF8R6b24hp4UtQwL9dMhGRpD2K/pMXEmRsNjdPYkaW9uAadFDXIyzUTIZna\ng9gvaTGxTdfMOOWOGkMysxeXkZOimgjJ1h7EfkmLiZKMjJP8PFo0sCQLe3EZOSmqiZAs7UEc\nd6/0S1oMlGRknMrzumODSjKwF5eRk6LaCMnEHsRn3tz+frKa8vmnfc0BH7qmxqm9PhpYUvC9\nuCpMnBQ1eEi1dRPB9yDu2ZwsPV2UvHFfivs9dIO8Y29snN3t1YAGlBR6L65D255+v2TjpKiB\nQ/LrJgI/izpxp2tb88Ai91D1gdHw0A3yHdfYOOWSavkMLCmkzgeTZ5Zru0ycFDVsSI3rJoKW\n1Hu3+82R8jw76ofkDLGkxew4jeyUVFrj5jz04AwjJ0UNG1K/dRMhS3reLRmwvCfAkhaz4/Rj\npqSX3bJv4ri2M3zwk6IGDWnAuolwexCX5rvPBv5e8Uta+hgbZwArJc3v24tsb+AN8ImgIQ1c\nNxFsD+JDbnHtoyMbF85et7/yYeFLWqyOM5CNks65+bWPPp2xPuzCtUS4kCytm/jCLalcntqY\nbCtz7YH3DDI2ziAmSjrh5tZeQR6f5sK/eAwWkql1Ez3TkwPbdm2b5dzqHbs3uHlFHC161Iwz\nWLmk8M8yl7o9tY/ucO8HnSQRLCQ76yYS2920xx6d69yKfckwq8O9r2dynMGOBd+dIY6fc7fX\nvsEsTvZaDSxQSIbWTVT0VpaGza9tbn6rsrCFcaw6d6ir/Gv3cremUtLf3MKx+hrJ0rqJ2s2/\nfs+9r9YPt/6O+13QYcyNY0r34+1u9l/LH3w5y932xtlv/jSt79BKARUb0vHas1pT6yYGKf2+\n70zqFhgbJ7TzlRfXlR0yvzJxFICqQkM61VF7x9XWuomBtro534SeoYGxcULb7tYe/PqJaknn\nX7irfcE9R0KPlCg0JL/vgpF1E/sfWrpun//0q2SbbvdjzgVfhFRhbBwTSvGaRckLpPphwOL8\nT7OcTrFP7fqVFHzdRLy98jbNG/VPv5h/63PvvLzMue2B5unP2Dhh1V5Cl19cr3qm8tG20Idc\nGaDgjQ0XLCnUkdd3u0W7j21yHcnHyeEFjy6rPOWeZ+T9T2PjBHX8juqbI+UX1yueq/6WsZKK\n3mp3oZJC+c2Mo+UxZk0vf7fbszTZSbTrpbXLf/eXYk6VmIKxcUJ6yM2plJS8JFhe++lkq6TC\nN3/bKem4W1/+9fz0ZHec+93GgJNgKJ13NZRU34ZZLumTgDP1V/z7SGZKOu46yk/oDrgnyh+f\nnj7rfLhJMKTGktrrD5ptQd/E7y/AG7L9Sgp45PXeJW7ZCy8/6B55beeuN1e6V8+GGwVDaiwp\n9AFpLiTEng0NJQU9csaBha6f+Ws28oaNWcZLCrKLkJUvRddbz693yx+4/w/33XO3mzXT1ItX\nDGS7pDD72tn5UrzqqhvfP3CP9H6+O/AwkEyXFGjvbzNfig2u+gbFNn4aWVTfObMqKalyGo7g\npzUbLNR6JCtfijtc5X2a0p1uz1B/FIXr2zmzplzSosr9FfbF9YUEW9gX+ktRPVVivMJ9mly8\n7Dqs7LQFb9ATlzPzQh+y/2KCH2k1CH+qxE1u2ZH43Lb2Nn4gWTSopJfCHd1bG5MhNZwq8dQC\n5+a2u7YXQ8+ECxpY0m73m2CzSGMxpH6nSjz+u3JRt+0NPRMuYkBJL7j7w82ijMWQ+p8qsfTl\n3w+FX/KPi+lXUs9S92bIYS5uLIY08FSJMK2xpD+6hefkHw5mDIZk41SJSK2vpNKf+o7fZs4Y\nDMnGqRKRXrLH97OdpY/XGTg94MWMwZBsnCoRw9D7SHLkZufmmNgb5oLGYkgmTpWI4Si9fptz\n8zeGP8T3RY2tkKqH6DRxqkQMT+nYV6a3rY6lkPoO0WnhVIloLmMopIZDdBo4VSKayxgKqfEQ\nneFPlYjmMmZCGnSITiBDYyUku4foRFMYKyHZPUQnmsJYCcnuITrRFMZKSHYP0YmmMBZCOlM5\nz7PVQ3SiKYyBkM6vrD6TM3PkIjShMRBS32siSkJuxkJIlITcjYmQKAl5a/KQ6jsMN5Rk4riU\naDbNHdKZNfXzPP+5XpK5Q3SiKTR3SJv6zphe2sC7sMhRc4fUtbavpJNtlIT8NHdIjSWtvKvN\nHdB/Ghip5g3p5GfdcWNJHU+/wU8k5KVZQ+p62Llbky3d9ZJ2Wz2NAZpCk4bUfWeylLwt2cmu\nXNKsncd2zWk7GnooNLEmDelpt/rAoQ19JSXMHloQzaA5QyrNXVJ+gVTaXCvpMecW8P4R8tSc\nIZ10LycX9ZLiU1+YPiYaRr8mDOn8Kw9trB2wrq8kIF/NF1Jn5fB1m6qfUBKK0XwhbXIdD8zr\nO/1HUtLBoPNgTGi2kErx/FXd8ek1fie7zSwrR/6aLKQzaw7MTrbPNewaxGYGFKDJQtriZs/Z\nnXzQUBKQvyYLKTnoVvVslpSEIjVZSJWSqu+9UhIK1GwhNRyWoVwSu3ujIE0UUnXdRGNJu4LO\ng7GkaULqWzfBoYIQQLOE1LBugpJQvGYJqXHdBCWhcE0SUv91Exy+DkVrkpAGrpvg8HUoVjOE\nxLoJBNcEIbFuAuE1QUism0B4oz4k1k3AgtEeEusmYMJoDen4nuol6yZgwigN6VRH7R1X1k3A\nhFEakt93gXUTsGCUhtS/JNZNILTRGtKFS2LdBAIZtSFdsCQgkNEbEiXBkFEcEiXBjtEcUv+S\nWDeBgEZ1SI0lsW4CIY3ukHhOByNGeUiUBBtGe0iUBBNGfUhsZ4AFoz8ktjPAgCYICQiPkIAM\nEBKQAUICMkBIQAYICcgAIQEZICQgA4QEZICQgAwQEpABQgIyQEhABggJyAAhARkgJCADhARk\ngJCADBASkAFCAjJASEAGCAnIACEBGSAkIAOEBGSAkIAMEBKQAUICMkBIQAYICcgAIQEZICQg\nA4QEZICQgAwQEpABQgIyQEhABggJyAAhARkgJCADhARkgJCADBASkAFCAjJASEAGCAnIACEB\nGSAkIAOEBGSAkIAMEBKQAUICMkBIQAYICcgAIQEZICQgA/8fDKvb7B6oubEAAAAASUVORK5C\nYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "switches %>%\n",
    "    filter(IsFunctional==1) %>%\n",
    "    mutate(ASDriver = Recurrence+Affects_mutated_feature+PPI+as.logical(Pannegative)) %>%\n",
    "    ggplot(aes(x = Origin, y = ASDriver)) +\n",
    "        geom_boxplot() +\n",
    "        labs(x=\"\", y=\"# evidences\") +\n",
    "        clean_theme() + \n",
    "        theme(axis.text.x = element_text(angle = 45, hjust = 1))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:08.807886",
     "start_time": "2017-01-06T17:46:56.292Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC91BMVEUAAAACAgIDAwMEBAQF\nBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYX\nFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgp\nKSkqKiosLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7Ozs8\nPDw+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5P\nT09QUFBSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFi\nYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N0\ndHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWG\nhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eY\nmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamq\nqqqrq6usrKytra2urq6vr6+wsLCxsbGyIiKysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7\nu7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzN\nzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f\n39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx\n8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9QdvxQAAAACXBI\nWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3deZwc5Xng8YohdpzEDgnEITYm2WRjZ3NsNnHi\nbLKHk42djZ24uO0YMD4QWGsbvzOS0IE0kiwJ3UIHyMI4CALiEhAhLMAIYW4sIcDcEoiRkBih\nAwmNRpoZzXT9sVX1PH1MT480/aqq3+ru3/fzga5qdXe90tRvuru6qtoLABw3z/UAgEZASEAC\nCAlIACEBCSAkIAGEBCSAkIAEEBKQAEICEkBIQAIICUgAIQEJICQgAYQEJICQgAQ0dkiHXA8g\n1NvnegRBkOt2PYJQd7/rEQRBX29aj9zYIe12PYBQ52HXIwjXn3ddjyD07hHXIwiCwwfSeuTG\nDukN1wMI7X7P9QjCZ8VtrkcQeqvH9QiC4MCutB6ZkNJGSIqQ6hchCUJShGSHkAQhKUKyQ0iC\nkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEllM6TOlfPGTbxqXf4D687VC8fOu3Nf1XMp\nIiRBSCqTIW0dZ0xrizEzZB+YPW3GhHPjt1c5lyZCEoSkshhS3ywza0tv36tTzG3RbG6xmbnl\nyNYFZnZ/VXOpIiRBSCqLIW0xo+Odq18zk2V2bPRarXOSebGquVQRkiAklcWQnjBXxZeHjYn2\nTV9lboxnV5qbq5pLFSEJQlJZDGnPprfjyzfM+Fx4cZ3ZGM++ahZVNZcqQhKEpLIYUiTXuX1j\nm7k/mpxn3oyv2mWmVTWXKkIShKSyGtImY0zrg9ETUtBmZIxdZkyumrkyfYl6I9mHs7Jrn+sR\n9PUd3up6BKFth1yPoK9v/zuJPlzJ1rLjC2nzmLCkmc9Hk6OM/ObtM6a7mrmyjrYmalOyD2fl\njS2uR7B1a/tm1yMIbW53PYKtW7e8kejDlRyBfbx7NvTtfmC0WR9OTNLnmYOmNVfNXKp4aSd4\naaey+tIu9pT5fvj/OaY9ntsVbw0f/lyqCEkQkspiSC9s2C8TnfH272XmuXhus1kQVDOXKkIS\nhKSyGNJC84hM7I63f68xK+K5VfGODsOfSxUhCUJSWQzpbrNANlrcY64J/7/HTOgKL7qnmm1V\nzaWKkAQhqSyGtLPVXN/R1/v2raZ1SzS/1CzeHxxYZuYH1c2liZBEciE95EZSw89iSMGTLfFO\n3GbMU/Hs3knGtBkzvqPKuTQRkiAklcmQgm03Txk9ceFd+RXlwB2TR7Xdsq/quRQRkiAklc2Q\nso+QBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJS\nhGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlC\nUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJ\nQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4h\nCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkO\nIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJEZIdQhKEpAjJ\nDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGSHUIShKQI\nyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1CEoSk\nCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJEZIdQhKE\npAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGSHUIS\nhKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1C\nEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJEZId\nQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGS\nHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkR\nkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJ\nEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQI\nSRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4Qk\nCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIiJDuE\nJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCSymhI\nm5e3jZr2w/za2rl64dh5d+6rei5FhCQISWUzpPuMMaPC/+6J5/a0GdNizPjtVc6liZAEIalM\nhvSaMbfvyB1Y02JeDOdyi83MLUe2LjCz+6uaSxUhCUJSmQxpqVkeX95nFob/32LGRq/VOifF\nWQ1/LlWEJAhJZTKk8ea1+HKvGRM+tawyN8ZzK83NQTVzqSIkQUgqiyH1Tpggmwu6TGtfEFxn\nNsZzr5pFQTVzqSIkQUgqiyEVPG3mhv+fZ96M53aZaVXNpYqQBCGpLIe0dZx5LrxoMzLGLjMm\nV83cQLmuRL2e7MNZeXu36xF0db3XntQjOQopqeHvfjupR4p1JxdS932jzKqoh1FGfvP2GdNd\nzdxA/TsTtSnZh7PSvs31CHbufPv1pB7JUUhJDf+t9qQeKbY/qZByT08yY5+In1cm6fPMQdOa\nq2YuVby0E7y0Uxl9abd7iWm9VaucY9rjy11mclVzqSIkQUgqmyFtHmMWFwa2LH6nFF5pFlQ1\nlypCEoSkMhnSjrEt9xX3TVhjVsSXq8xtVc2lipAEIalMhnSdWVsyt8dM6AovuqeabVXNpYqQ\nBCGpLIa0v8W82aGiJ6alZvH+4MAyMz/+0+HPpYmQBCGpLIb0iik6GM7vnWRMmzHjO+I/Hf5c\nmghJEJLKYkiPlYUUHLhj8qi2W/JHGQ1/LkWEJAhJZTGkekBIgpAUIdkhJEFIipDsEJIgJEVI\ndghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRF\nSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAk\nRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIg\nJEVIdghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCS\nICRFSHYISRCSchCS7z9fMrfCvyytEaSJkAQhKech3epfmNYI0kRIgpCU65D2jvfPSWsEaSIk\nQUiqtiG1+hVcmtYI0kRIgpBUBkK6Ka0RpImQBCGp2oY0c2TI978xsqj134+kNYI0EZIgJOX6\nPVK9IiRBSIqQ7BCSICTFB7J2CEkQkiIkO4QkCEkRkh1CEoSkXISUu2v02aXbv9MaQZoISRCS\nchBSbmbZB0lpjSBNhCQISTkIaUMUT+lHSWmNIE2EJAhJOQhpqu/P2JfWUmuFkAQhKQchXepf\n3JPWQmuGkAQhKQchne1fm9Yya4eQBCEpByF9zb81rWXWDiEJQlIOQpruz0prmbVDSIKQlIOQ\nXvDPr/ttDYSkCEm5+ED2Vn/8obSWWiuEJAhJOdmzYd15F969qTOtBdcEIQlCUrUP6Z5Bh8im\nNYI0EZIgJEVIdghJEJKqfUjrRpZLawRpIiRBSIrDKOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1C\nEoSkCMkOIQlCUk5OxzUQ5/62REiEREgJIKTmDqnw+dFFYUVnjBzJ9yNZIqTmDqno0LOt/vzu\ntAaQKkIShKQcb2zIzfen59IaQZoISRCScr3V7vDX/XVpjSBNhCQISbkOKZjvj09rBGkiJEFI\nynlIt/EdsrYIiZCKrvbPTWsEaSIkQUjKdUidF/jfTmsEaSIkQUjKbUg9r7T6/uy0RpAmQhKE\npDKwZ8NraY0gTYQkCEm5D+nf0hpAqghJEJJyuYtQ6Ltzn0xr+ekiJEFIyvXGhnpFSIKQFCHZ\nISRBSIqQ7BCSICRFSHYISRCSchTSzlWzx37n8pl370xr6WkjJEFIyklIB+aeodu+z7jqYFrL\nTxchCUJSLkLae3HJx0iX1udXvBCSICTlIKTc6PCZaMEzO7o7Ni4Kn5kmcGCfJUJq7pCe8v0L\ntup0+/m+/0xaI0gTIQlCUg5Cmuv7Gwsz631/QVojSBMhCUJSDkK62P9WydwIf0RaI0gTIQlC\nUg5COnfAgROz/fPSGkGaCEkQknIQ0jmElAxCau6QvulfWjJ3KS/tbBFSc4c0p3RD3TO+Py+t\nEaSJkAQhKUebv9t1eusFvv90WiNIEyEJQlIuPpAd4/tnLHy2o6fj2egD2cv5QNYSITV3SMHe\nESW7CI3Ym9YAUkVIgpCUk51WO+cVdlqd25nW8tNFSIKQlKvDKO6eOeY7Y668qyOtpaeNkAQh\nKQ7ss0NIgpAUIdkhJEFIyk1Iud0/jy7eWftOXW6yCwgpj5CUk5B+3uJfHF2+7PuXvZzW8tNF\nSIKQlIuQnjrTL4Tkn7U+rQGkipAEISkHIb33Fd8feVc0dWiN8f1v1uWXyBKSICTlIKTbfX9e\nr073LfT9lWmNIE2EJAhJOQhpjH9+V2Hm0IX+1LRGkCZCEoSkHIR0oT+9ZG76gIMq6gYhCUJS\nDkI6y19cMrfIPzutEaSJkAQhKQchXeSPLpkb5X8trRGkiZAEISkHIU31zy4u9J2z/ba0RpAm\nQhKEpByE9JDvm8M63dPq+/elNYI0EZIgJOUgpL7v+v5Fq3b3B7l9D3zD90f0DnXDLCMkQUjK\nxZ4NHRdFhyKd9c3zoosvbUlrAKkiJEFIysm+dnvaCgfImsR+ELVFSIKQlKPDKDb9sOWCM788\nctEG9v62R0iEVPcISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEk\nQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkh\nJEFIipDsEJIgJEVIdghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZ\nISRBSIqQ7BCSICRFSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh\n2SEkQUiKkOwQkiAkld2QHjQH85OdqxeOnXfnvqrnUkRIgpBUZkM6Mr0Q0p42Y1qMGb+9yrk0\nEZIgJJXVkPYtN/mQcovNzC1Hti4ws/urmksVIQlCUtkM6Y4Z4fNKPqQtZmz0Wq1zknmxqrlU\nEZIgJJXNkBZPnjy5ENIqc2N8udLcXNVcqghJEJLKZkiRQkjXmY3x5atmUVVzqSIkQUiqDkKa\nZ96ML3eZaVXNpYqQBCGpOgipzcgYu8yYXDVzA/XvTtTmZB/Oyrbtrkewe/c7byT1SI5CSmr4\nO7Ym9UixAymENMrIb94+Y7qrmSsLaX+iNif7cFa2d7gewf79e7ck9UiOQkpq+DvfSuqRYl0p\nhDRJn2cOmtZcNXOp4qWd4KWdqoOXdnNMe3y5y0yuai5VhCQISdVBSMvMc/HlZrOgqrlUEZIg\nJFUHIa0xK+LLVea2quZSRUiCkFQdhLTHTIjeenVPNduqmksVIQlCUnUQUrDULN4fHFhm5lc5\nlyZCEoSk6iGkvZOMaTNmfEeVc2kiJEFIqh5CCg7cMXlU2y37qp5LESEJQlLZDSnbCEkQkiIk\nO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJEJIi\nJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYISRCS\nIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQ\nkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJ\nEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYI\nSRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2\nCEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVI\ndghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRF\nSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAk\nRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIIrmQ/sONpIZPSHYISRCS\nIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQ\nkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVIdghJ\nEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRFSHYI\nSRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2\nCEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdkhJEFIipDsEJIgJEVI\ndghJEJIiJDuEJAhJEZIdQhKEpAjJDiEJQlKEZIeQBCEpQrJDSIKQFCHZISRBSIqQ7BCSICRF\nSHYISRCSIiQ7hCQISRGSHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAk\nRUh2CEkQkiIkO4QkCEkRkh1CEoSkCMkOIQlCUoRkh5AEISlCskNIgpAUIdlprJAecmPAGAhp\nCISUNkIipLpHSIQ0ACHZISRCGoCQ7BASIQ1ASHYIiZAGICQ7hERIAxCSHUIipAEIyQ4hEdIA\nDRZS5+qFY+fduS/9BRESIQ3QWCHtaTOmxZjx24d38yysP8eBkAgpHbnFZuaWI1sXmNn9w7p9\nFtaf40BIhJSOLWZs9Kquc5J5cVi3z8L6k4UxZGIlzsIYjkNDhbTK3BhfrjQ3D+v2WViJszCG\nTKzEWRjDcWiokK4zG+PLV82iYd0+CytxFsaQiZU4C2M4Dg0V0jzzZny5y0wb1u2zsBJnYQyZ\nWImzMIbj0FAhtRn523SZMbnyP+t7azBHP7vMjSETg8jCGN5y9Gtt8Kq5t7jmOghplJHtWH3G\ndJf/Wa43Ua8n+3BW3nnX9Qh6ew9tdT2C0LYu1yPo7d23M9GH6yuuuQ5CmqTPSAdN66BnpIQ1\n1gey9pI71Pw4vNXjegQN9tJujmmPL3eZyWkvipAEIamGCmmZeS6+3GwWpL0oQhKEpBoqpDVm\nRXy5ytyW9qIISRCSaqiQ9pgJXeFF91ST+o+XkAQhqYYKKVhqFu8PDiwz81NfEiEJQlKNFdLe\nSca0GTO+I/UlEZIgJNVYIQUH7pg8qu0WjkeqGUJSDRZSzRCSICRFSHYISRCSIiQ7hCQISRGS\nHUIShKQIyQ4hCUJShGSHkAQhKUKyQ0iCkBQh2SEkQUiKkOwQkiAkRUh2CEkQkiIkO4QkCEkR\nkh1CEoSkCMkOIQlCUoRkh5AEISlCspOBdTg4nIH1p7/T9QhCB4f3nQmp6j2c1iM3dkhAjRAS\nkABCAhJASEACCAlIACEBCSAkIAGEBCSAkIAEEBKQAEICEkBIQAIICUgAIQEJICQgAYQEJICQ\ngAQQEpAAQgISQEione6lb7seQloICbXzYzP5iOsxpKTRQ8pl4AfX806X6yFkYgy5YJlZ73oQ\nh3ekc1anhg4pt2HBqJaZT+ecDqL//vFm7BNOh5CJMQRdS9pvmen2ZxH03tZqxv0sjUdu5JAO\n/9DErnV5ZrlDS+MxrHU4hEyMIQjuM+OWXed2CEeuSu0fooFDyl1r2jYc3L/SmOXuBtG/1Ezf\n3Huv07U4C2OIhnGjMZP7nA5hnbl6+547UvmHaOCQnjIzOsNfQj8wU/e6e0HxEzMrfHPSN8rl\nWpyFMUSiklY5XH4uWDI1enGyNo1/iAYOabbZke/orrccjeFAa+ue8OJhc727tTgLYxBRST+v\n/WL3yZnPw/doV90bT6VRUuOG1Nc6RzsKHjErHA1io1kc/n/P5TdFP7x7N69ycfrrLIxBhSWN\nerHWC31v2rj26DJ8jzZnjVyVQkmNG9LhloXaUbDBLHI0iOfNlL6g/6rJh4LcovBdbouLZ8YM\njGHXE4+8Hb+8dlFSz9Xmdl22ma0v8pMvqXFDCuaP3ikdBc85C6lrwtW94a/C18LJ5VPGtjzS\nlGM4cm9LGPD016NpJyU91B/kZNnmYb0uLGlLogtp4JDWmtHSUXCzedDVINp7gvaWW8OJ/olr\nehx9Jup4DP2LzJhlP7rctKzVtbn2r+6i90ey7Nb8stfen+wSGjIk+fS67ypj4reZL7aM3Vf7\nQRzY1isT15uOINqG+FJzjiF40MzaHT4trNSng3BtfqDmY1hpxmlJaVXcgCEVPr3e22a+v3H3\n1tuNebbmg+i52Zgr5Gc2y7wdBNvGTO5uxjFEm91btscTj5vWrdFl//O1H0T4PinlkhovpJJP\nrzt/EE9e/lTNB9G7IFpwy9PR9I1m5vofjzabmnEMoV2mTadWmCUOli9SL6nxQir99Dr37I1T\n5t+yp/aDWG0Wt+9YLmvxu23h+jzqsaYcQ2ibmagb3N81ral98+QxpV1So4WU6qfXwx/FhBnh\nm5PcXbIWd61aunJ7U44h0n9FvMEwMs20OxiA7vheUlIa79EaLKR0P70etgPm0egivxY36xhk\nW8dKM+1QPJsbZw7WfAzFHd8LJaXyHq3BQkr30+vhOfLYTbfr5g1na3EWxpDf1tE9wyyOv1X9\nMTOz5oMo3fE9X1IqGiykdD+9HpbueGPHSplxtBZnYQzFbR0d48yUn3UdeHBUS81f2Q3c8T3N\nkhospHQ/vR6W8JXMDRNN65syF63FtX9vkoUxlGzr2D0nflpwsLGjbMf3sKS0frc2Ukhd0e/d\nND+9HoZcMOmq3uDgksKvvtxdNR9EFsYwcFtH74Pzzfira3/ik0E7vvekdqh7A4V0ZG78j+Vm\nHxTVtaR9XPRetuRFRM2PhcrCGAZv6+h1cUxYDXd8b6CQ8m+KXJZ0nxk3Pt4NJ9U3tpkfg+tt\nHXoEUi13fG+kkDJQUvQWTY59crcWux+D620d8RFIXe/WdMf3hgopIyXJ5xRuS3I6BtfbOqK/\n9stzp3bVcsf3Bgkp/wK8WFLt9zAWxYhT3ESU6TFkYFtH+Nc2ZrWsFDXa8b0xQpLDTSI/0ZIc\n7GGsStZiZ2dDdDmGTGzr2DfKjNKF12jH98YIaWXxZ7bc1Q4NTg+nztAYMrCtI+ida6bkF16j\nHd8bI6SSn9mBFicluT6cOitjyMK2jqB76Y9WFxZeox3fGyOk0p/Z3IUttd/JOAuHU2dhDEGQ\ngW0dcq7+wsJrs+N7g4RU8jObtnpD7Z+RsnA4dQbGEO9b4np7S/5c/bXNuP5D0vMS5P/ZXjIP\n1X4MWTicOgNj0H1L3G5vKZ6rX1aJbXtrsth6D6l4XoLwn23s03vXj2/ZXftRZOFw6iyMIb/D\nveOdS/Ln6g9XicvvGDetJucbr/OQSs9LEH94YEytz9sWfQud88Opw0E4H0MkAyWVnqs/XiVq\ns895nYdUel6CoOdWY9pq/nomemfr/HDqcBC9rscQy0hJ+XP19965ZGNtllrfIQ08L0EQdO6s\n9Wd/+s7W7eHUMgjXYxAlJTncuaT25+qv75Ccn5cg/87W6eHUOghHY9j3uo5B53+SL8nFziXy\nTacung7rOCTX++pHCu9sHR5OXRiEkzHsmzbmjSAb+5YUv+nUQUn1G5LbffX1iJfiO1sXh1OX\nD8LBGPZNMzPeC7Kwb8mAbzqtfUn1G5LTffULR7wU39nW/nDqwYOo+RjyHbnft6Tsm05rXlK9\nhuR4X/3iES+l72xrfDh1xUHUdAzFjpzvW1L+Tae13thRpyE531e/eMSLww29rgdR2pHjfUsG\nf9NpjTd21GlI7vfVLx7x4rAkt4MIOyoNyem+Jc6/6bROQ3K+r37pES/OSnI7iOj5aGp5SS72\nLYm5/qbTOg3J3b76Xc+sezk62PL+4hEvtV+JszCI+HXd3rKSnOxbIhx/02kdhiS7e7vZV7/v\nrujYuanRZ5C5YMBKXMN3tpkYhL4/KivJwb4leY6/6bTuQirs7u1iX/33FpiWJTdMNTfJ2lKy\nEtfw13AmBhG81CoBlZfkwI61q1/Ouf6m03oLqWR379q/K+hfZK7sCMfwVP6MnTU94iVLgwi9\npPm4Lqn7xmiNuLrH6Ted1l9Ipbt717yk+82MsuMTannES5YGUcptSbklZvxNN45x+02nQd2F\nNHB37xqXlAbhFIMAABQZSURBVJtktpVfV8MjXjI0iIGclvSombU/CHS3d1ffdBrUXUhlu3vX\n9v31DjNdpzpunzxu6ZvxZO2OeMnQIMq4LGlSYc+wTS4+viqop5Aq7O5d0/fXO82M+LLz9mir\nmWmt+TEvmRlEOXclHTaTdGrrmGWuNhhG6igk16dmD/pGR+e97Vk71pjFT7203ExM9WTSWR7E\nIM5Kes9M0I0u+0aZWm9vKVVHIbk+NXsQrDOjbr1lgjFzNkcDWOzi44qMDGKQsCQ3b9Jmmld0\nar552ckIRN2ElIFTswf98REvk3TD88Z4f/2ay8QgBtvrZMegIFhjvq/PydOjvVadqZeQnO/u\nLYt88tofPp4/G/vz5prajyArg8iAwzt6wv/3zjZL4pKeNZN5jzS0ffrE7X5373K5HxS+9bnJ\nB+FE722tZtzPwol3xpopGw7tf2BU4SRKTmQ8pM5p+kGR8929B3nQjN/vegzZGIQLR+ItT/FO\nlrucfWd6qYyHVPzI1eGp2d+8aebSzcXZXdHmqd5bjXH2lc9ZGYRD68zV2/fcISUdeWhha9u1\nHW4HlPGQBpbk5tTs6+IPbDbkZ3dOumLN84/OMmZdDcdQLhODqL1c4XLJ1OgNUv4kekGKX1c+\nTFkPqXJJtTw1+0tm6kt7V5pp0XR01rTds+JXEhOdfhKaiUHU3L758oFH15L2q+6Np9a6OvXX\nIJkPqWJJtXTlmN3hoseODn8bvjIz2l2055GrZ1/zcMrfpHgsmRhErd1kxscl3WfGzVkjV2Wm\npOyH5LikfWZZ+P8jo6Mdc643t9d46SjVvVBKit4vz9aXeVkpqQ5CclvSPjMtfEHXbu4Ipw+O\nHnuktkvHAKUl5Tf7hyVtcTkmVQ8hDSypxqdm759hZj306I1mxRNPr39mrnn8UG0XjwFKSmrN\n/0ZdW/M9XCqpi5BKS6r5qTXaJ5sBJi25vTk/usmEkpKcfZVZRfURktN/t56N9y8zs2+4/kfX\nXbvIjL08I6/Jm1VWS6qTkBz/uz1uZIP7q2ZF/1svORsGgsyWVC8huf13W27kA4y1PBu5kN/h\nUkQlRd8TkK2S6iYkl18BF8w38Sc2uQXmlWPdFIkr7HCpwpKmRj8Pl2vEIPUTkpOvgJNvgAvm\nmK3RxaNmmvt9UZrPoKeerolynn4nXwo4hDoKqeaK3wC30szqCA6vbW3hCcmFQSU94uKkxEdH\nSEMq+Qa4zjZjJrSalp+6HlOTKi/pJXOls7EMgZCGMuAb4PZdExY1ZZPrMTWtspIeMte7G0tl\nhDSUgd8Al3vnhR0uj2RudgNK6ptpnnE5mEoIaSjl3wAHp0pLutNMPnzUGztASENw/Q1wKFMo\nKfdA4ZxsGUJIQ3D9DXAoF+2o+uPu3BtLHX0n4NER0lAcfwMcBulfEZ2j2Zjx2dmfoYiQhuL4\nG+AwWO7JKcZMut3lmYmHREgVxKcedPwNcKgkt3dXRredEtIg+VMPuv0GONQXQipXPPWg02+A\nQ30hpHIlpx50+Q1wqC+ENNCgUw8Cw0FIA2Tx1IOoB4Q0QBZPPYh6QEgDZPHUg6gHhDRQBk89\niHpASAVd8Zc7Z+/Ug6gHhJR3ZK68ksvWyWlQJwipIP+eiJJQPUIqoiRYI6QSlARbhBTJ71Fc\nUlJ2Tj2IekBIQbw/g079JF9Shk49iHpASEF0/sf816TnlvMpLGwQUhB/TXq+pAMtlAQLhBQp\nKWnuwhbTfvRbA4MQUqxY0rTVG3hGQtWaPqQD23qji3xJL8n3HADVafKQem425or4I6OwpLFP\n710/vmW36zGhHjV3SL0LopMytMR7q4YlRTJ47kHUgeYOabVZ3L5jeb6kW41p4/MjWGnqkHIT\nZoRvkHJ3aUlB586MnjQNmdfUIR0wj0YXxZIAS80b0pHHbrpdT/1ISTheTRtSd3weyJUyQ0k4\nTk0b0koz7YaJhS/aiUra7nQ8qG9NGlIumHRVb3BwSXFv1bs4PwOOQ3OG1LWkfVy0obtkHzu2\n1+F4NGdI95lx41+KJkpKAo5Dc4YUnb1OvheWkpCI5gwpLkl2YqAkJKFJQyo5v0lYEsdN4Hg1\nX0h63ERJSeudjgcNodlCKh43wTm3kKAmC6n0uAlKQnKaLKQBx01QEhLTXCGVHTfBeSCRlOYK\nqfy4Cc4DiYQ0UUgcN4H0NE9IHDeBFDVPSBw3gRQ1S0gcN4FUNUlIHDeBdDV4SPtekUuOm0C6\nGjukzmn6iSvHTSBdjR1Scd8FjptAqho7pIElcdwEUtPgIVUuieMmkLRGD6liSUDSGj4kSkIt\nNH5IlIQaaIKQBpbEcRNIQzOEVFoSx00gFU0REq/pkLbmCImSkLImCYmSkK5mCYntDEhV04TE\ndgakqXlCAlJESEACCAlIACEBCSAkIAGEBCSAkIAEEBKQAEICEkBIQAIICUgAIQEJICQgAYQE\nJICQgAQQEpAAQgISQEhAAggJSAAhAQkgJCABhAQkgJCABBASkABCAhJASEACCAlIACEBCSAk\nIAGEBCSAkIAEEBKQAEICEkBIQAIICUgAIQEJICQgAYQEJICQgAQQEpAAQgISQEhAAggJSAAh\nAQkgJCABhAQkgJCABBASkABCAhJASEACCAlIACEBCSAkIAGEBCSAkIAEEBKQAEICEkBIQAII\nCUgAIQEJICQgAYQEJICQgAQQEpAAQgISQEhAAggJSAAhAQkgJCABhAQkgJCABBASjuWhIdk8\n2n8MKelx1xQhlXjdC20acFX/Q5f8+SknfPC3P3P5z496V8/7RNk1n/BS/7etsIjB4zh+xwxp\npO+Pz5XcIZwf+tGOEVLvt31/5JGS2799lu/fmvRfKXmEVGJKFFJb6TXP/JlX8LktR7lrs4fk\n31dyh+MJKXg5fLA7S24/PQyrN+G/UQoIqSj3yaiXT5b8bn34g+EVp3/m/H/+s18NJ37z5aHv\n2/QhfXl38Q7HFVJwte9/aW/h5s+Hj/184n+l5BFS0UbP+51f97xnC1fsP9XzPvNIHNaha073\nvD8e+jfj4BV48re+lcooj74IZyH53y/+Ajq+kDq/6vvz87fu+67vz038b5QCQioynjfh6543\nqnDFAs/7bE9+5s1TPG/FkPdNYwW24Sqkf/X9Rwp3OL6QgkfDLPNP/mvC57p9if+NUkBIBX0f\n9bzXfuJ5H+/PX/N/Pe/R4p9f53lfGvLOzR7Sg75/wXtBcX7oRzt2SLkpvm/kh9B5ge//OPG/\nUBoIqeAhz/vL4MgpJfH8qee9V/zz1zzv00PeWVfgf5s3L7o4cqiqJdvd62jjGHohFoYTUm5i\nyUuw4wwpeOfc/MaL63y/tX+oR8oUQioIX9UtDIJLPO/S/DV/73n3F/8898ILm8ru0r30H049\n8dR/+FFffgWO3v7nbvyj903RLQGTPO+7+RuHz2hfjCe6Fvzvj/zi73zmB535Pym5V4mym1V4\nqMLGhkHjGGIhwbovfuz9//nzawpvZ/qWf/6jJ57y36ftGWKhseGEFOwMV/71JfP6b/azeSPO\nPW/E/KeLb6CGEVJwl++ffyC83HGWf8brhX/s1VdcdPaIiQ8cLtys79EZl33pfDPnpcA9Qsrr\n/jXvhF1B8LDnnZL/GCN80/TbR/vQ8ee/p1vG/2pnSUhTwyvyIW3yvI/lf6OGWd4TXT7x23qv\nk9fpn5Tcq6j8ZhUeKh/S4HFUXkhuil55hj7QG3+iV5y0svJCY8MKKVjl+1/vKpmPvDvWV5cX\ntsMNJ6S+7/n+0vByqu8vy1/36tf1oS58Ua9pvyT/6FNLP3hyg5Dy7vS8L4QXfad6Xv4zkY4P\nhavUp2c811f5Hq99OPzjU7/w+Y943l8UQ1oTrYcz8mv5pzzvCbn127/gnRr9vDd8wPNO+/w3\nPnuy551wj/xRyb0KBt9s8ENpSBXGUXkh13sn+W0jTw9vPSu+avtved6Jn7roCyd53vvWDnG3\nYLgh9Y/2/WtK5kOdI8KV/JLZsy8NLy7OP8cNJ6Rg0xn+GVuCjb5/0UG95vVzfP+b066efKHv\nnyXPfHu/4fvnTb16/mXho19b+SdUQ4SUd6bnxR+gf9vzLshf99Bvxb+eP/xPM57oGXSHXLhm\nnxR9dJj791/2iiF97MPTt/UG+bV8nuddJjef73mXhxdH/sD7wL9FFRya+z7vVNkgVXKvvAo3\nG/RQuogK4xhiIb/8P96OrvuX6M1g5LOe91/fDC/3f8nz/jxX+W7BcEMK2s/y/RdL5sNxhq/Q\nNkQTz1xQ3KI9rJCCa31/7JFv+37+/WrfSP+cddEvtJ5VZ/pfi+ta4ftXRu8qc0+e6Z/t/CNb\nQlLvvd/7cPzq+3HP+1DhXf+utk/qa50P/P2PDgy8x32e94uvyuTjJSF9QD+HkrU8fPI4Td4f\n/JXnbQ4vVnjecn2AJZ43Lyi7V16Fmw16KF1EhXEMsZCTZdNJR3iH6PJpz/uIPE90h3+4tfLd\ngmGHFK3Zl/aUzO8Mn1ba5RZbw8l3ZHJ4IR0KX8i1+f7E/Hurx3z/4fy/u+/Hz5YTfV9fL4Y3\n3Bw4RkjqR5739Xii/zTPu714fW7zdV/9fWnpV28ccI+veV5rfvqMYkgtepW+7grfzjwZXb7u\nef8zujzXe3+33uLQ+71/DsrulVfpZuUPpYuoMI4hFjJLr/uYDO07njdbr5l1+ulrK98tGH5I\n0W5yy0vm7/b9q/KPsUDX/mHvtPp09N7n7B352bn+OfknnZ5z/OnR5XjffzXIDEJS/8fzfipT\nJnwzXvaHHbde+rEopYmlV4bPVa/lp1cVQ3pcr9KQwkC/F12G7/Ovjy5/1zvhE3kneL8blN0r\nr9LNyh9KF1FhHEMs5OmBQ/tzz9t2zIUGww8peO0M2cim8zN9f2P+MZ7xfY12mCEFM8KQbi7M\njfDPGpl3lj8iuuom3//KD1/NBdlASKLjF7wSH3hv0A1yP/1rz/uFDSXXfMg7ofDK/JViSPkt\nybq2hi8ZPx7+sHP/xftQvE3rg6XL8U4Oyu6VV+lm5Q+li6gwjiEW8u7Aof2Gd+LAzSiV7hZU\nEVL0sc9lfYX5Mb7fkX+MHb4/TqaGG9Ie37+w+Mb0PL/UhdFVvROiya9+/+YX3G+zI6S8+QPW\nIfmN/+7u3aW/7/q/WPIRU+h93mmF6a5iSPl1M79t+kzPeyoInvO8i+PZEwcs5xeDsnvlVbpZ\n+UPpIiqMY4iF5G+lk+/zPj6MhVYTUvcI37+9MP8d3y+U0O37+inYcEMKfH9kceasASGdHV+X\ne3ycXP3lq93vRURI4lOe97H8q5rf8LzPRdeFT0E7Sm/zkuf9Tcnsr5c8E2wu+RxJ5Sfv9DwT\nBKM872fx7CneRwctvMJe3JVuVv5Qer8K4zjGQnTyQ94HB74wqrjQakIKngtX8rcqPSN1+P4Y\nmbIL6UL/65WGdmj9DRO/HKb0lY5Kf1pLhBTb5Hnv25WfWa0zX/K8Aft5bR8Y0p96XuHN7r1D\nh9T9a97puf6Pe3+c3+J2wqB9XiqEVOlm5Q+l96swjmMsRCfDi516zYFHH31ziIVWFVKwyPcv\n79f5K32/sC1yo+9fKVN2IY32zxrq3VDv42GxU4f4w5ohpNgkz/vHwkzPSZ63OLyc7HmfLn3J\n9YPCa6rYJSXb2s4dOqRo16OnH/U8/Rzlu8Xdjp77u7+7Nii7V16lm5U/lN6vwjiOsRCdvNDz\n8vsNLPa864ZaaFUhdV7k+/fq/F2+vyh/fRjY3TJlF1L47us5nXxz4sQHo8t7b9CtQ0H3ef75\n5f+AtUZIkdwfeN4Nxdmved7fhhc7f9nzvlf8Ff3iKZ73WMmdHva8E1+Ryae8o4S0LlzRL/FO\n3F246V/LK7H+z+W3o1UIqdLNyh9K71dhHMdYiE7e43mnySdmvf/N87YMtdCqQgqe9P3zLpD5\njjP8M7bKte3hpD772YW0KXymk19q0b7h8T6PM/1v6q+5nvP8CwLHCCmy3vN+qeTj1p948eeT\nQVt4+Td3y04qW6ad7Hlnlt4p9zee92t3RFO3/urRQur7qHf6yd5Z+Xv9L8/7YrSNbn/4hPBH\nuaDsXsFRblb+UPk9GwaP4xgL0cn+P/G8T0WfmB74qtyq8kKrCyna6O3r/BzfvzB+cbf+/Gr3\nbAjKQspN8P0Z0Y+oa6Hvfzce2s2+vzjeuto5u7Bt3R1CilzmeeeUzB75Tc+bGV72fyfaevW+\nT3z6bz95UjT1qb0D7vV6dOWpn/+Xj3reJUcJKWiJ7ntf6b1+6QsX//OHPe+kV8tvOvDBy242\n6KH0fhXGcfSF5Cdf+BXPe/9fXvQv4VPtCT8deqHVhfTuVwohHbg4nPqW7Gt3aVX72kUGhBR0\nhC2eO+2a6f/q++fLJqDorCjnTbhq0aSzwz/ZPugfsMYIKZAdVe8uveJbnvdn0WVuxe8VNwef\n+L2yfYSCF3WXB+8rvUcLaWN4i9OKb7ae+x291+8/NuimJQbfbNBD5e83eBxHX0hhcsPH9Van\n3XOUhVYXUrC2EFKwd3R+g/W4wgZqy5CCN0foQ12qr2ODx7+Sf/T/534XB0IKPRi+NuouvSJ8\nQ+/Jj6v33u/8xWm/9Ct/+A9fW7p78B17fvDZ3zrxI5+7MxccLaTcH3reFSX3OrTgf5z8/j/4\np6W9g28aHO1mgx6qcL9B4zj6QoqThxf93W+e+J/+cXrX0RZaZUi5SX7xeKQn53zz3HNHzF9f\n3fFIsbKQgp7V4y88Z+T3Hyj+Suq67YpLz/lq6+z1Gdi9gZBwLMcMqSrDDqm+EBKQAEICEkBI\nQAIICUgAIQEJICQgAYQEJICQgAQQEpAAQgISQEhAAggJSAAhAQkgJCABhAQkgJCABBASkABC\nAhJASEACCAlIACEBCSAkIAGEBCSAkIAEEBKQgP8PujGi2w07dUUAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "switches %>%\n",
    "    filter(IsFunctional==1) %>%\n",
    "    mutate( Candidate = ifelse(Candidate==1, \"Yes\", \"No\")) %>%\n",
    "    ggplot(aes(x = Origin, fill = Candidate)) +\n",
    "        geom_bar() +\n",
    "        clean_theme() +\n",
    "        labs(fill=\"AS driver evidence\", x=\"\") +\n",
    "        theme(legend.position=\"bottom\", axis.text.x = element_text(angle = 45, hjust = 1)) +\n",
    "        scale_fill_manual(values = c(\"Yes\"=\"firebrick\", \"No\"=\"grey\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:08.883669",
     "start_time": "2017-01-06T17:46:56.298Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "399"
      ],
      "text/latex": [
       "399"
      ],
      "text/markdown": [
       "399"
      ],
      "text/plain": [
       "[1] 399"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "5234"
      ],
      "text/latex": [
       "5234"
      ],
      "text/markdown": [
       "5234"
      ],
      "text/plain": [
       "[1] 5234"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# number of candidates with unclear origin\n",
    "switches %>%\n",
    "    filter(IsFunctional==1 & Origin != \"Tumor\" & Candidate == 1) %>% \n",
    "    nrow\n",
    "\n",
    "# total number of candidates\n",
    "switches %>%\n",
    "    filter(IsFunctional==1 & Candidate == 1) %>%\n",
    "    nrow"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2017-01-06T18:47:10.551875",
     "start_time": "2017-01-06T17:46:56.302Z"
    },
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC6FBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYY\nGBgZGRkaGhobGxscHBwdHR0eHh4gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgpKSkrKyss\nLCwtLS0uLi4vLy8wMDAyMjIzMzM0NDQ1NTU2NjY4ODg5OTk6Ojo7Ozs8PDw9PT0+Pj4/Pz9A\nQEBBQUFCQkJDQ0NERERFRUVGRkZISEhJSUlKSkpLS0tMTExNTU1OTk5PT09QUFBRUVFSUlJT\nU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2NkZGRl\nZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N0dHR1dXV2dnZ3\nd3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiJ\niYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiampqbm5uc\nnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2u\nrq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/A\nwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS\n0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk\n5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX2\n9vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7////OtsqsAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAgAElEQVR4nO3df3xU9Z3v8en1Xn/U36DWdrVrt7qu1tL27qauWluxGlEUUALRVOG693q1\ngeKPu11XqYW1XX+sdlu0pGjbW7XaCndl3VKhv+xabauikCoJIUAIISGQkGQgmeT77z3J/OCA\ngHNm3pkz33xezwePkzAn88l35pyXk5nEkHAAipaIewHAWEBIgAAhAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoSkM/2Xca8AsSEkHUIyjJB0CMkwQtIhJMMISYeQDCMkHUIyjJB0CMkw\nQtIhJMMISYeQDCMkHUIyjJB0CMkwQtIhJMMISYeQDCMkHUIyjJB0CMkwQtIhJMMISYeQDCMk\nHUIyjJB0CMkwQtIhJMMISYeQDCMkHUIyjJB0CMkwQops9a3Tb9/s7q+srFyUqqupqUtldxCS\nYYQUVe+01QNP3eVuaUmlBl+Yn0zeuzy7h5AMI6SoNi5wrvOGwSnzpnxt55wG59bNze4hJMMI\nqQBDix7bPre+++GHZiSdS1ZnLyYkwwgpuvrax0eeF3VWVwUh9VUF73atCEwhJLsIKbKltzU5\n1/q2c7turG10rqE2uOytCYHLCckuQoqqrbo3lUq1TmseemLRsoWpgQXLggu3LQlcTUh2EVJU\nqyoDk92qm6sf6E0tnj2Ll7/hCEmJkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJ\nMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwj\nJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELS\nISTDCEmHkAwjJB1CMoyQdHQhtd02Y+bqzNatmHLNCtVgjBZC0tGF9PBP3G+mZrbuixuavqga\njNFCSDq6kFZ2ueZpma2rfvnlatVgjBZC0lE+R/rjDS9nt3+sqHhdNxijg5B0dCHtvnf+luzW\nVf3m11WqwRgthKSjC+mfl+7dui82NV2mGozRQkg6upCuuqyysjKzdSuuueYl1WCMFkLS4ftI\nhhGSDiEZRkg6hGQYIekQkmGEpENIhhGSDiEZRkg6hGQYIekQkmGEpFN4SBWRKdcNAULSISTD\nCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQ\ndAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmH\nkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJ\nMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwj\nJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELS\nISTDCEmHkAwjpMhW3zr99s2pupqaulR6m91BSIYRUlS901YPPHXXC/OTyXuXp7fZPYRkGCFF\ntXGBc503zGlwbt3c9Da7h5AMI6QCDC16bEbSuWR1ehtckuoKXEdIdhFSdPW1j6eqgoT6qtLb\n4KK3JgQuJyS7CCmypbc1OVfb6FxDbXobXNZ8R+AqQrKLkKJqq+5NpVLLFqYGFixLb7N7eI5k\nGCFFtaoyMDm1ePasulR6m91DSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHp\nEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4h\nGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJh\nhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZI\nOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRD\nSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRk\nGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYR\nkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHp\nEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4h\nGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJh\nhBTdnppgc39lZeWiVF1NTV0qezkhGUZIkS2fWxlsb2lJpQZfmJ9M3rs8u4OQDCOkyN5+NQhp\ncMq8KV/bOafBuXVzszsIyTBCKkAQ0va59d0PPzQj6VyyOnsxIRlGSAWoTL/prK4KQuqrCt59\n54phhGQXIRUgCKn1bed23Vjb6FxDbXDJ2osClYRkl78h9d953nH1t/TG8amHQ5rWPPTEomUL\nUwMLlmUv5ks7w/wNae65P0vs+NTsOD718Jd2q26ufqA3tXj2LF7+hvM5pPGvBYt/ZXzcywgh\nJMP8DemkdcHi68fFvYwQQjLM35DmXLkl8e6km+JeRgghGeZvSP3/dNaRH7ltV9zLCCEkw/wN\nqfwQkmGehzRQTusnJMPK6USMJnF9kpBQLsrpRIwmMf3TmwgJZaKcTsRoEv2Pnf5rQkJ5KKcT\nMZrEgHvj7EfLaf2EZFg5nYjRBCG5rqnltH5CMqycTkTfEZJhhKRDSIZ5GlLiDpdIi3slIYRk\nWDmdiBHUt7n6tLhXEkJIhnkaUlkiJMM8DSl5y4ede/JDp8xNxr2SkDIPKTnJub47Z077RfD+\n2s8VulQcmKchffUvV7im/3L3qk/cGfdKQso7pOcmBVf68SOu/jLnWufxkCbmaUhn/Idz3zhv\nyP376XGvJKS8QxpMBVfavH33yzPdrjnthCTmaUhHbHDu8wude/OouFcSUt4hBZ9leDOr4neD\nd77jCEnM05BOe95tO/wPzj11XtwrCfEgpP7BwZXX7BqZsLPQxeJAPA2ptuLXVecMpl776L1x\nryTEg5Ae/NHQmisy70PJ05B23XD8ab9x30tUp97/Y0vGg5Dabr322t9m3oeSpyGldZXXlyfl\nHhJGkdchlRlCMoyQdAjJMELSISTDCEmHkAwjJB1CMszfkJaO5/9HQtkopxMxmjNmvsH/j4Ry\n4W9Ix2yKewX7K6uQaLO0/A3pkj/EvYL9EZJh/ob00t8uXcOXdqUciUPwNyR++UmpR+IQyulE\n9B0hGUZIOoRkmL8hJf/xY0eecc/uuJcRQkiG+RtS7ZlP//Hpj8+LexkhhGSYvyGd+lqweeXD\ncS8jhJAM8zekE4df+V47Lu5lhBCSYf6GVHXBW8m3LpgR9zJCCMkwf0PaPvUDiQ9M3R73MkII\nyTB/Q3Iu2VROr9kRkmk+h1RuCMkwT0Pi30eKYSQOoZxOxAj495FiGIlD8DSkskRIhvkb0nHD\nm7YPxr2MEEIyzNeQDss8RTo/7oWEEJJhvoZUX3/MyFOkgbgXEkJIhvkaUtpQ3AvYByEZ5m9I\nW2c84e6Y1Br3MkIIyTB/Q7rmggb37ucnx72MEEIyzN+QTngj2Lx+XNzLCCEkw/wN6bRXgs1/\nnhb3MkIIyTB/Q7rnL55+/bkz/0/cywghJMP8DWngm2ceecb8PXEvI4SQDPM3pPJDSIb5G1L/\nnecdV39Lb9zLCCEkw/wNae65P0vs+NTsuJcRQkiG+RvS+NeCxb8yPu5lhBCSYf6GdNK6YPH1\n/Bah0o3EIfgb0pwrtyTenXRT3MsIISTD/A2p/5/OOvIjt+2KexkhhGSYvyGVH0IyzOOQulKu\nrZxe/SYky/wN6YnDdiz9wBHPx72MEEIyzN+QTv/OUMUPvnVW3MsIISTD/A3piA1dx/SvOyLu\nZYQQkmH+hnT2Iw9c7R79WNzLCCEkw/wN6fn/9l9/ufLwH8W9jBBCMszfkFx3u+vlVbsSjsQh\n+BvSQ81xr2B/hGSYvyGd80jcK9gfIRnmb0j/77wfvskv0S/lSByCvyHxz7qUeiQOoZxORN8R\nkmGEpENIhvkbEr+zodQjcQj+hsTvbCj1SByCvyHxOxtKPRKH4G9I/M6GUo/EIfgbEr+zodQj\ncQj+hsTvbCj1SByCvyGVH0IyjJB0CMkwf0Ma+SfG2j4Y9zJCCMkwX0M6LPOjdufHvZAQQjLM\n15Dq64+pHzYQ90JCCMkwX0MqR4RkmL8hLR3P/0ZR2pE4hHI6EaM5Y+Yb9fyPfaUciUPwN6Rj\nNsW9gv0RkmH+hnTJH+Jewf4IyTB/Q3rpb5eu4Uu7Uo7EIfgbEr+zodQjcQjldCL6jpAMIyQd\nQjLM05Dqc2L45HtqnEvV1dTUpdLb7OWEZJinISVySv+5l8+tdO6F+cnkvcvT2+wOQjLM05Di\n9ParQUhzGpxbNze9ze4gJMMIqQBBSDOSziWr09vsxYRkGCEVIAipKkioryq9DS5pviNwFSHZ\nRUgFCEKqbXSuoTa9DS55a0LgckKyi5AKEIS0bGFqYMGy9Da4ZM/mwLWEZBchFSAIKbV49qy6\nVHqbvZjnSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4h\nGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJh\nhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZI\nOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRD\nSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRk\nGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYR\nkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHp\nEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4h\nGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJh\nhKRDSIYRkg4hGUZIOoRkGCHpEJJhhKRDSIYRkg4hGUZIOoRkGCHpEJJhhFSg+ysrKxel6mpq\n6lLZiwjJMEIq0C0tqdTgC/OTyXuXZy8iJMMIqTCDU+ZN+drOOQ3OrZubvYyQDCOkwmyfW9/9\n8EMzks4lq7OXEZJhhFS4zuqqIKS+quDdbUsCVxOSXYRUmNa3ndt1Y22jcw21wV/fmhC4nJDs\nIqTCtE5rHnpi0bKFqYEFy4K/dq0ITCEkuwipQKturn6gN7V49ixe/oYjJCVCMoyQdAjJMELS\nISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1C\nMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTDCEmHkAwjJB1CMoyQdAjJMELSISTD\nCEmHkAwjJB1CMoyQdAhJoO/OmdN+4dpvm3Fbe9xLiYSQdAhJ4MePuPrL3H0/cD/4etxLiYSQ\ndAhJYPP23S/PdFe96969Ku6lREJIOoQkMavid+6CPtd3YdwLiYSQdAhJoH9wcOU17ooGt25S\n3EuJhJB0CEngwR8NrbnCzX/GPX1f3EuJhJB0CEmg7dZrr/2ta6+dPacj7qVEQkg6hGQYIekQ\nkmGEpENIhhGSDiEZRkg6hGQYIekQkmGEpENIhhGSDiEZRkg6hBSZF4vMCyHpEFJkXiwyL4Sk\nQ0iRebHIvBCSDiFF5sUi80JIOoQUmReLzAsh6RBSZF4sMi+EpENIkXmxyLwQkg4hRebFIvNC\nSDqEFJkXi8wLIekQUmReLDIvhKRDSJF5sci8EJIOIUXmxSLzQkg6hBSZF4vMCyHpEFJkXiwy\nL4SkQ0iRebHIvBCSDiFF5sUi80JIOoQUmReLzAsh6RBSZF4sMi+EpENIkXmxyLwQkg4hRebF\nIvNCSDqEFJkXi8wLIekQUmReLDIvhKRDSJF5sci8EJIOIUXmxSLzQkg6hBSZF4vMCyHpEFJk\nXiwyL4SkQ0iRebHIvBCSDiFF5sUi80JIOoQUmReLzAsh6RBSZF4sMi+EpENIkXmxyLwQkg4h\nRebFIvNCSDqEFJkXi8wLIekQUmReLDIvhKRDSJF5sci8EJIOIUXmxSLzQkg6hBSZF4vMCyHp\n2Axpx11VN7cVeF1CwgHYDOm+Z90TCwq8LiHhAGyGVPnoxKoVBV6XkHAANkO64NH279xc4HUJ\nCQdgM6QrOtz2iwu8LiHhAGyG9LVnhn76Pwu8LiHhAGyG1H7rNX+3scDrEhIOwGZIRfFikXkh\nJB1CisyLReaFkHQIKTIvFpkXQtIhpMi8WGReCEmHkCIr3SKTk4TLPgBC0iGkyEq2yOcmjfLt\nIyQdQoqsZIscTBGSNwgpshIukpC8MdZDKoeRed2dB/5UhV81H4SkQ0ijPzKvu/PAn6rwq+aD\nkHQIafRH5nV3HvhTFX7VfBCSDiGN/si87s44EJIOIY3+yLzuzjgQkg4hjf7IvO7OOBCSDiGN\n/si87s44EFIxUnU1NXWp7N8IafRH5nV3xoGQivHC/GTy3uXZvxHS6I/M6+6MAyEVY06Dc+vm\nZv9GSKM/Mq+7Mw6EVIwZSeeS1dm/EdLoj8zr7owDIRWjKgipryp4p29t4PLHfl+gT0RmdWQc\nizyo8KlASMWobXSuoTZ4560JgTMTMCV8KhBSMZYtTA0sWBa80/L1wGcqZ8OS8KlASMVILZ49\nS/HyN7xHSDqEZBgh6RCSYYSkQ0iGEZIOIRlGSDqEZBgh6RCSYYSk86Ote2BJ+OATks7vkjAl\nfPAJSYeQjAkffELS6Y/7wKK0wgefkHQIyZjwwSckHUIyJnzwCUmHkIwJH3xC0iEkY8IHn5B0\nCMmY8MEnJB1CMiZ88AlJh5CMCR98QtIhJGPCB5+QdAjJmPDBJyQdQjImfPAJSYeQjAkffELS\nISRjwgefkHQIyZjwwSckHUIyJnzwCUmHkIwJH3xC0iEkY8IH39+Qvj0x8MWVcS8jhJCMCR98\nf0P60si/l/Ng3MsIISRjwgefkHQIyZjwwSckHUIyJnzwCUmHkIwJH3xC0iEkY8IHn5B0CMmY\n8MEnJB1CMiZ88AlJh5CMCR98QtKRh9Tb3d0rHtnTpR7Z+85Lr+/Qjuzr6erp045sf21lo3ik\nvZCOOProoz6zOu/BBd8l4pB621saGhvadglH9rQ1NDa2dChTeunq4Chc/Ei3cOSOLY3rG1u7\nhBM7FlwQrHKG+pezS86a2EUIybnu+z+b39RJzt1R6Iq0IfVtXb9pc8vmDa09spE9rRs2t7Rs\namrV/bf5xYq0O2UTk9sbNwarbG7QPcz1zE4v8kJxSeGDbyQk131CflOLuT+0IXWubxnRtE02\ncltTeuT6TtXE7sszIVX8QjWyp3HTyCI3bpE9cP40u8iZqolpqhMnXpFCar/7r93z54w796Hg\nFv/wkx//Vnq77vyTLmpyXV865czFifTeyYkJwV0y8YfOXbEkvTcCbUhbm9Nn/SbZCdXXkj5F\nW5q3iiYmX86eohX3qUZ2ZmpvWb9TNfLLuVW+oxo5InzwTYSUSCTOedN98qHB1YcHt/if3aqj\n0tvPPTO4/EI3+6bknpsT2b3Df5680nWO60nvjUAb0pbMWd/SqPrarqdhc7ZN0cTkc7lT9BbV\nyI5sSE2yx83puVX+SjVyRPjgmwgp/WbwlcXVw510D9/qke1RQWHHu5PbnNuayO4d/tN9Qvd3\nb3LpvRFoQ2rdmDmhGlSPSL25kFpFE5PLc6fo7aqR23OPSLInSTfkVvmqauSI8ME3FNI1U5e2\npFMZDml4e0qLG9zkxm0LvvRL7N0b/Jn6fy/+rUvvjUAbUnvmS7uNsrO+b2umzaZ21cim3Cm6\nRDVy5/pM7o2y1yu/mV3kRbIHuRHhg28opGPXDi1JDIRDuv6e1MNXuetn797zvxLZvf3Du56v\nOHvIpfdGoA1pV+PIab9Z9x/m5I71I18ubmrUvVh9V+YUndimmtg38tJiy+YNbbLXFhsuyqzy\nQdXEtPDBNxTSIyefs/ALs8MhtU088bPNrnPGSX/1/WMzeyd+dHjX7uO/4Vx6bwTi7yPt3LKh\nuXlDg+zRIzhHOxqCkU1bZM/ig8fN/zFyGC4Vfs3Us3X9huYNjVuF3+36+edHVjlP+d2upL2Q\n3sfSDc69+xfFz5H/ZEPP9m1tHcrvxwYPcx3btnXqvjEV6F3+tZtur5M9Ho2M3Nne1rFT+nMI\nG79dUfGllcqJw8IHn5DcvMvbNl91Z/Fz+Fm7MraroqJOPjR88AnJ7Zpx3Cmzu4ufQ0hljJAO\nysAPrUKGkA6KkJA/QjooQkL+COmgCAn5I6SDIiTkj5AOipCQP0I6qJtHQvpW3MsIIaTyRUgH\ntWnlsK64lxFCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWL\nkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWLkDxCSOWL\nkDxCSOWLkDxCSOWLkDxCSOWLkACBgYqKJ0f1ExASLCAkQICQAAFCAgQICRAgJECAkAABQgIE\nCAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJEDAw5AGG/5UOo1D8vVjLPIwpMcqSmmJ\nfP0YizwMaUFJQ3pAvn6MRYRESBAgJEKCACEREgQIiZAgQEiEBAFCIiQIEBIhQYCQDIc0tLun\nJzkoHbnjxe8+sXK3dGSqr6d3j3SiW/3jRT95Rzox9auKir/fKh25H5MhHXH00Ud9ZnXorfo+\nkOjvaNq4sWlb8v0/Mm8rLh6+z65ao5s4tGtb86bmps6UbmTvvIq/CVZ5X79u5Kaq4dt9wVO6\nie9hMyTnuu//7D5vy0+qfdPWtra2libdA8irmTttou6/zb1NrcEit27s1P3Q41cyq7xfNrHn\n6szIF2Qj38NqSK77hH3flp3u5rYRm7bLRt6Qvddk5+jgti0ji9y6QfbA+Vru2DapRn4vO/Fy\n4QPnfqyG1H73X+/ztvx0tKRDal2vepq0PXevTRZNdLs3tGVy71KN/NfcKp9Rjbw5N3KtauR7\n2AwpkUic82borfo+UNjWmjlH16ueLKzP3WsXiSa6vszDZtvmHaqRe8+fx1Qjr8uN/K1q5HvY\nDOkgb8tKxxYfHpGaeERKIyRXpiFlnyNtNvYc6fe5Y7tBNXJJdmIlz5HshcSrdrKJvGpnOSTL\n30caxveRyj8kT9j9yYbJFdX8ZAMhoVg3VtwhnsjP2hGSQYTkCAnFIyRHSCgeITlCQvEIyRES\nikdIjpBQPEJyhITiEZLjd3+jeIQUGNzSUjod/GsUYxEhAQKEBAgQEiBASIAAIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEim9SehUVMxTzxxV0VF\nnXhkcp9/cIeQdAhJhZBMIyQVQjKNkFQIyTRCUiEk0whJhZBMIyQVQjKNkFQIyTRCUiEk0whJ\nhZBMIyQVQjKNkFQIyTRCUiEk0whJhZBMIyQVQjKNkFQIyTRCUiEk0whJhZBMIySVMRJS/4tL\nfbGsq0SR5IOQVMZISD+r8MejJYokH4SkMkZC+re464jggRJFkg9CUiGkkiOksYiQSo6QxiJC\nKjlCGosIqeQIaSwipJIjpLGIkEqOkMYiQio5QhqLCKnkxnJIDY9++e/uf0U6clfHtm2dPcqJ\nfTs72to7e5Ujt/9wYsWVz3YrR278dkXFl1YqJw4LH/wxFVLvBy8dfvPVU4f/FC171+Q9SxzS\nsxeN3MKv607Svo6GDc3NTVt2yiYme9sam4ORrcLTvn7yyO2u2qgb+fPPj4ycJ41zDIf04/9+\n9I7gzbiO4T9hkw5dwKT3vBO+a/KepQ3pD9mb+IRs5I7GzS2BjY26E6pj/fDElg2tsty7pmZu\n9019qpENF2VGPqiamHagsyXM25CmPnnp99O3ab+b9T4/4554zzvhv+Q9SxvSndmbeJnqHO1r\n3diSPu3bRROTvQ2bRiZuXt+pGrk8d2x/pxr5zezEC2WrHPF+p4WvIfWe1F13pXOTExOCP+vO\nP+miJrftypPPXjV8iVv8ofH/krvRd5x69z+ceezX0zc/Eex+/pxx5z7kclfbPv2kjz+QuWty\nF+Y+Jn0tl/jen6d3jE5Ik3K3sUE0sbch3VHLplbRxOTO9S3qNh/I3e4lqpE1uZGvqkaOGKsh\nPXud6zx2V+YR6XPPDC6/0FX9w+ALZw0NX3L8mnUTczf66TWJR/pfOtJlk3CffGhw9eF7rzbj\n+r7dN+59REpfmPuY7LVq16d3jE5Il+Ru49uiiT25kLaIJia7siE1b1ONvC93u7+jGjk9N/JX\nqpEjxmpI0xKBZzKn+lHB+8e7cdud6xgJ6YpLnx7I3eg9Q4kBN7Q3CTf4yuLq0NVO3Orc1r0h\npS/MfUz2Wu2ZHaMT0szsTTxfdY72btmUOeu3iiYmuxuzj0gdqpGP5Y7tT1Ujv4ODPCAAAAVi\nSURBVJwb+Y5q5IgxGlLfsR3OPTQtc6qf0uIGN7njdzj3ev/wJUMvXntJ6EYncm+6h0O6ZurS\nltDVxgchte0NKX1h7mNy18rsGJ2QcifULbKR25rSZ/367aqJ2addmxtkr1+syd7ui1pUI5/N\njpyumpg2RkN6riLY/OmYZPpUv/6e1MNXucn/OPTiyYMu0e/OaKg/PnSjMyEd8Sv3jSCJ/mPX\nDi0JHqQS/emrVd+Q3DNrb0jpC3Mfk72Wy+wYnZA6M1+QfGGNbGRP64bNwRd2Ta2y18OSOxub\nR14HlD1FSiYfzBza78sm9sxOT7xQ9vJF2hgN6boFwWboz5emO2mbeOJnm13LpePPXOHcxI+6\nfz3xlMffG9LDHzuvLhHsfuTkcxZ+YXbwTvpq2687+ePf3RtS+sLcx2SuFexP7xidkJKtXz0/\nuIE3viUc2dPW0NjY0qH89mlXa+P6xi2dujSTvUuGnx5e/pxuYrJjwQXByBnijsZqSLGT/4jQ\ntv/8xQbxyJ6ubulPIQRf3fV07RJmNKz7rZ+v2aUd2f7aykbxKi2HlEgblY/mZ+3M2edkOcAJ\nMXZDGl2EZEz44BOSDiEZEz74hKRDSMaEDz4h6RCSMeGDT0g6hGRM+OATkg4hGRM++ISkQ0jG\nhA/+gUJ659op3lhRokjyQUjGhA8+/6yLDiEZEz74hKRDSMaEDz4h6RCSMeGDT0g6hGRM+OAT\nkg4hGRM++ISkQ0jGhA8+IekQkjHhg09IOoRkTPjgE5IOIRkTPviEpENIxoQPPiHpEJIx4YNP\nSDqEZEz44BOSDiEZEz74hKRDSMaEDz4h6RCSMeGDT0g6hGRM+OATkg4hGRM++ISkQ0jGhA8+\nIekQkjHhg79PSCdEcupp46Jd4T3+7M+KHDD+tA9l3nujtM0cECEZEz74+4TUGMm8Cb+MdoX3\nuPjSIgesmPD3mfd2l7YZYF9FfGk3f0JjkZ/8ksoiB6ydcH+REwAJQgIECAkQKCKkLWuLfWLy\n7roiByTXthY5AZDg5W9AgJAAAUICBAgJEIgQ0upbp9++OVVXU1OXSm+jf7Y9Nc4VN2Gv4icA\nMvmH1Dtt9cBTd70wP5m8d3l6G/mTLZ9b6VxRE0KKnwDI5B/SxgXOdd4wp8G5dXPT28if7O1X\ng5CKmhBS/ARAJtJzpKFFj81IOpesTm8L+HRBSEVOyCl+AiATJaT62sdTVcHp21eV3hbw6YKQ\nipyQU/wEQCZCSEtva3KuttG5htr0toBPV1n0hJziJwAy+YfUVt2bSqWWLUwNLFiW3hbw6YKQ\nipyQU/wEQCb/kFZVBianFs+eVZdKbwv4dEFIRU7IKX4CIMM3ZAEBQgIECAkQICRAgJAAAUIC\nBAgJECAkQICQAAF9SLvmnn7kx+5OHnxHPfFizNGf1DV/85OmF//yf+f+Xn/Yfjva7pB/TiBm\n+pBO+HWwWfHh3N9zD0D77wDGDn1In65qT7/T/5WTT/pKvzsmcdy+O4bLSgzLfQjgO31IL//V\n4V/45obgnfsnvfvquXfufUTK7hi+YGCgf/r1uQ8BfDcKT/wHf7/gE4c96dxZW5z72Xmh1xYy\nO9IXPP7pZO5DAN/JQ+r6Xsq5obtPde7I4S/fjsuFlNsxcsEbp29yuQ8BfCcPaWfitWC76hTn\nPvKuczvqcyHldgxf0HX28CsP2Q8BfKf/0m7mR5968z/Om+PcrZP+9Oqnbgm6adt3x3BIUx8d\nCGQ/BPCdPqTUPZ846vQ7gidA3TUnjJvd6wbO/+C+O3Kv2iWyHwL4jp8yAAQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAIH/D7uPF1jFJ18eAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# explore how they affect each category\n",
    "switches %>%\n",
    "    filter(IsFunctional==1 & Candidate == 1 & Origin != \"Tumor\") %>%\n",
    "    # Recurrence is excluded, as only Tumor switches are considered for recurrence calculation\n",
    "    select(PPI:Pannegative) %>%\n",
    "    mutate(Pannegative = ifelse(Pannegative > 0, 1, 0)) %>%\n",
    "    as.data.frame %>%\n",
    "    upset()"
   ]
  }
 ],
 "metadata": {
  "anaconda-cloud": {},
  "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.3.2"
  },
  "toc": {
   "toc_cell": false,
   "toc_number_sections": true,
   "toc_threshold": 6,
   "toc_window_display": false
  }
 },
 "nbformat": 4,
 "nbformat_minor": 0
}