{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h1> 1. Úvod do jazyka <strong>R</strong> </h1> \n",
    "Preložené z knihy  An Introduction to Statistical Learning with Applications in R, od autorov Gareth James, Daniela Witten, Trevor Hastie and Robert Tibshirani.\n",
    "Kapitola 2 - časť 2.3 Lab: Introduction to R.\n",
    "\n",
    "<h2> Základné príkazy </h2> \n",
    "\n",
    "R používa funkcie na vykonanie operácií. Na to aby sme volali funkciu napr. <strong> funkcmeno </strong>, tak musíme napísať <strong> funkcmeno (vstup1, vstup2)</strong>, kde vstupy alebo argumenty povedia R ako majú spustiť funkciu. \n",
    "Napríklad pre vytvorenie vektora čísiel musíme použiť funkciu <strong> c() </strong> (pre  concatenate - zlúčenie, zreťazenie). \n",
    "Všetky čísla vo vnútry zátvoriek sú spojené spolu. \n",
    "Nasledovný príkaz zreťazí čísla 1, 3, 2, a 5 a uloží ich do vektora s názvom x. \n",
    "Potom napíšeme x, a vráti nám to naspäť vektor.  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 380,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>3</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 3\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 3\n",
       "3. 2\n",
       "4. 5\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 3 2 5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x <- c(1, 3, 2, 5)\n",
    "x"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Uloženie do premenej sa vykonáva príkazom <code>=</code> namiesto <code><-</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 381,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 6\n",
       "3. 2\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 6 2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = c(1,6,2)\n",
    "x"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 382,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 4\n",
       "\\item 3\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 4\n",
       "3. 3\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 4 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "y = c(1,4,3)\n",
    "y"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Napísaným <code>?funkcmeno</code> sa vždy spustí nové okno s dodatočnými informáciami o danej funkcii. \n",
    "V R môžeme pripočítať dve množiny čísiel spolu. Ono to pridá prvé číslo z x k prvému číslu z y a tak ďalej. Avšak, x a y by mali byť rovnakej veľkosti. Veľkosť môžeme zístiť pomocou funkcie <code>length()</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 383,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "length(x)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 384,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "length(y)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 385,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 2\n",
       "2. 10\n",
       "3. 5\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  2 10  5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x+y"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>ls()</code> dovoľuje nám nazrieť na zoznam všetkých objektov, ako sú dáta a funkcie, ktoré sme doposial uložili. \n",
    "Funkcia <code>rm()</code> môže byť použitá na vymazanie toho čo už nepotrebujeme. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 386,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'A'</li>\n",
       "\t<li>'Auto'</li>\n",
       "\t<li>'cylinders'</li>\n",
       "\t<li>'f'</li>\n",
       "\t<li>'fa'</li>\n",
       "\t<li>'x'</li>\n",
       "\t<li>'y'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'A'\n",
       "\\item 'Auto'\n",
       "\\item 'cylinders'\n",
       "\\item 'f'\n",
       "\\item 'fa'\n",
       "\\item 'x'\n",
       "\\item 'y'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'A'\n",
       "2. 'Auto'\n",
       "3. 'cylinders'\n",
       "4. 'f'\n",
       "5. 'fa'\n",
       "6. 'x'\n",
       "7. 'y'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"A\"         \"Auto\"      \"cylinders\" \"f\"         \"fa\"        \"x\"        \n",
       "[7] \"y\"        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ls()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 387,
   "metadata": {},
   "outputs": [],
   "source": [
    "rm(x, y)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 388,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'A'</li>\n",
       "\t<li>'Auto'</li>\n",
       "\t<li>'cylinders'</li>\n",
       "\t<li>'f'</li>\n",
       "\t<li>'fa'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'A'\n",
       "\\item 'Auto'\n",
       "\\item 'cylinders'\n",
       "\\item 'f'\n",
       "\\item 'fa'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'A'\n",
       "2. 'Auto'\n",
       "3. 'cylinders'\n",
       "4. 'f'\n",
       "5. 'fa'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"A\"         \"Auto\"      \"cylinders\" \"f\"         \"fa\"       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ls()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Tiež je možné vymazať všetky objekty naraz. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 389,
   "metadata": {},
   "outputs": [],
   "source": [
    "rm(list=ls())"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>matrix()</code> môže byť použitá na vytvorenie matice čísel. Pred tým než použijeme túto funkciu sa môžme o nej viac naučiť použitím príkazu <code>?matrix</code>."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 390,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "\n",
       "<table width=\"100%\" summary=\"page for matrix {base}\"><tr><td>matrix {base}</td><td style=\"text-align: right;\">R Documentation</td></tr></table>\n",
       "\n",
       "<h2>Matrices</h2>\n",
       "\n",
       "<h3>Description</h3>\n",
       "\n",
       "<p><code>matrix</code> creates a matrix from the given set of values.\n",
       "</p>\n",
       "<p><code>as.matrix</code> attempts to turn its argument into a matrix.\n",
       "</p>\n",
       "<p><code>is.matrix</code> tests if its argument is a (strict) matrix.\n",
       "</p>\n",
       "\n",
       "\n",
       "<h3>Usage</h3>\n",
       "\n",
       "<pre>\n",
       "matrix(data = NA, nrow = 1, ncol = 1, byrow = FALSE,\n",
       "       dimnames = NULL)\n",
       "\n",
       "as.matrix(x, ...)\n",
       "## S3 method for class 'data.frame'\n",
       "as.matrix(x, rownames.force = NA, ...)\n",
       "\n",
       "is.matrix(x)\n",
       "</pre>\n",
       "\n",
       "\n",
       "<h3>Arguments</h3>\n",
       "\n",
       "<table summary=\"R argblock\">\n",
       "<tr valign=\"top\"><td><code>data</code></td>\n",
       "<td>\n",
       "<p>an optional data vector (including a list or\n",
       "<code>expression</code> vector).  Non-atomic classed <span style=\"font-family: Courier New, Courier; color: #666666;\"><b>R</b></span> objects are\n",
       "coerced by <code>as.vector</code> and all attributes discarded.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>nrow</code></td>\n",
       "<td>\n",
       "<p>the desired number of rows.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>ncol</code></td>\n",
       "<td>\n",
       "<p>the desired number of columns.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>byrow</code></td>\n",
       "<td>\n",
       "<p>logical. If <code>FALSE</code> (the default) the matrix is\n",
       "filled by columns, otherwise the matrix is filled by rows.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>dimnames</code></td>\n",
       "<td>\n",
       "<p>A <code>dimnames</code> attribute for the matrix:\n",
       "<code>NULL</code> or a <code>list</code> of length 2 giving the row and column\n",
       "names respectively.  An empty list is treated as <code>NULL</code>, and a\n",
       "list of length one as row names.  The list can be named, and the\n",
       "list names will be used as names for the dimensions.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>x</code></td>\n",
       "<td>\n",
       "<p>an <span style=\"font-family: Courier New, Courier; color: #666666;\"><b>R</b></span> object.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>...</code></td>\n",
       "<td>\n",
       "<p>additional arguments to be passed to or from methods.</p>\n",
       "</td></tr>\n",
       "<tr valign=\"top\"><td><code>rownames.force</code></td>\n",
       "<td>\n",
       "<p>logical indicating if the resulting matrix\n",
       "should have character (rather than <code>NULL</code>)\n",
       "<code>rownames</code>.  The default, <code>NA</code>, uses <code>NULL</code>\n",
       "rownames if the data frame has &lsquo;automatic&rsquo; row.names or for a\n",
       "zero-row data frame.</p>\n",
       "</td></tr>\n",
       "</table>\n",
       "\n",
       "\n",
       "<h3>Details</h3>\n",
       "\n",
       "<p>If one of <code>nrow</code> or <code>ncol</code> is not given, an attempt is\n",
       "made to infer it from the length of <code>data</code> and the other\n",
       "parameter.  If neither is given, a one-column matrix is returned.\n",
       "</p>\n",
       "<p>If there are too few elements in <code>data</code> to fill the matrix,\n",
       "then the elements in <code>data</code> are recycled.  If <code>data</code> has\n",
       "length zero, <code>NA</code> of an appropriate type is used for atomic\n",
       "vectors (<code>0</code> for raw vectors) and <code>NULL</code> for lists.\n",
       "</p>\n",
       "<p><code>is.matrix</code> returns <code>TRUE</code> if <code>x</code> is a vector and has a\n",
       "<code>\"dim\"</code> attribute of length 2) and <code>FALSE</code> otherwise.\n",
       "Note that a <code>data.frame</code> is <strong>not</strong> a matrix by this\n",
       "test.  The function is generic: you can write methods to handle\n",
       "specific classes of objects, see InternalMethods.\n",
       "</p>\n",
       "<p><code>as.matrix</code> is a generic function.  The method for data frames\n",
       "will return a character matrix if there is only atomic columns and any\n",
       "non-(numeric/logical/complex) column, applying <code>as.vector</code>\n",
       "to factors and <code>format</code> to other non-character columns.\n",
       "Otherwise, the usual coercion hierarchy (logical &lt; integer &lt; double &lt;\n",
       "complex) will be used, e.g., all-logical data frames will be coerced\n",
       "to a logical matrix, mixed logical-integer will give a integer matrix,\n",
       "etc.\n",
       "</p>\n",
       "<p>The default method for <code>as.matrix</code> calls <code>as.vector(x)</code>, and\n",
       "hence e.g. coerces factors to character vectors.\n",
       "</p>\n",
       "<p>When coercing a vector, it produces a one-column matrix, and\n",
       "promotes the names (if any) of the vector to the rownames of the matrix.\n",
       "</p>\n",
       "<p><code>is.matrix</code> is a primitive function.\n",
       "</p>\n",
       "<p>The <code>print</code> method for a matrix gives a rectangular layout with\n",
       "dimnames or indices.  For a list matrix, the entries of length not\n",
       "one are printed in  the form <span class=\"samp\">integer,7</span> indicating the type\n",
       "and length.\n",
       "</p>\n",
       "\n",
       "\n",
       "<h3>Note</h3>\n",
       "\n",
       "<p>If you just want to convert a vector to a matrix, something like\n",
       "</p>\n",
       "<pre>  dim(x) &lt;- c(nx, ny)\n",
       "  dimnames(x) &lt;- list(row_names, col_names)\n",
       "</pre>\n",
       "<p>will avoid duplicating <code>x</code>.\n",
       "</p>\n",
       "\n",
       "\n",
       "<h3>References</h3>\n",
       "\n",
       "<p>Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)\n",
       "<em>The New S Language</em>.\n",
       "Wadsworth &amp; Brooks/Cole.\n",
       "</p>\n",
       "\n",
       "\n",
       "<h3>See Also</h3>\n",
       "\n",
       "<p><code>data.matrix</code>, which attempts to convert to a numeric\n",
       "matrix.\n",
       "</p>\n",
       "<p>A matrix is the special case of a two-dimensional <code>array</code>.\n",
       "</p>\n",
       "\n",
       "\n",
       "<h3>Examples</h3>\n",
       "\n",
       "<pre>\n",
       "is.matrix(as.matrix(1:10))\n",
       "!is.matrix(warpbreaks)  # data.frame, NOT matrix!\n",
       "warpbreaks[1:10,]\n",
       "as.matrix(warpbreaks[1:10,])  # using as.matrix.data.frame(.) method\n",
       "\n",
       "## Example of setting row and column names\n",
       "mdat &lt;- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol = 3, byrow = TRUE,\n",
       "               dimnames = list(c(\"row1\", \"row2\"),\n",
       "                               c(\"C.1\", \"C.2\", \"C.3\")))\n",
       "mdat\n",
       "</pre>\n",
       "\n",
       "<hr /><div style=\"text-align: center;\">[Package <em>base</em> version 3.4.2 ]</div>"
      ],
      "text/latex": [
       "\\inputencoding{utf8}\n",
       "\\HeaderA{matrix}{Matrices}{matrix}\n",
       "\\aliasA{as.matrix}{matrix}{as.matrix}\n",
       "\\methaliasA{as.matrix.data.frame}{matrix}{as.matrix.data.frame}\n",
       "\\methaliasA{as.matrix.default}{matrix}{as.matrix.default}\n",
       "\\aliasA{is.matrix}{matrix}{is.matrix}\n",
       "\\keyword{array}{matrix}\n",
       "\\keyword{algebra}{matrix}\n",
       "%\n",
       "\\begin{Description}\\relax\n",
       "\\code{matrix} creates a matrix from the given set of values.\n",
       "\n",
       "\\code{as.matrix} attempts to turn its argument into a matrix.\n",
       "\n",
       "\\code{is.matrix} tests if its argument is a (strict) matrix.\n",
       "\\end{Description}\n",
       "%\n",
       "\\begin{Usage}\n",
       "\\begin{verbatim}\n",
       "matrix(data = NA, nrow = 1, ncol = 1, byrow = FALSE,\n",
       "       dimnames = NULL)\n",
       "\n",
       "as.matrix(x, ...)\n",
       "## S3 method for class 'data.frame'\n",
       "as.matrix(x, rownames.force = NA, ...)\n",
       "\n",
       "is.matrix(x)\n",
       "\\end{verbatim}\n",
       "\\end{Usage}\n",
       "%\n",
       "\\begin{Arguments}\n",
       "\\begin{ldescription}\n",
       "\\item[\\code{data}] an optional data vector (including a list or\n",
       "\\code{\\LinkA{expression}{expression}} vector).  Non-atomic classed \\R{} objects are\n",
       "coerced by \\code{\\LinkA{as.vector}{as.vector}} and all attributes discarded.\n",
       "\\item[\\code{nrow}] the desired number of rows.\n",
       "\\item[\\code{ncol}] the desired number of columns.\n",
       "\\item[\\code{byrow}] logical. If \\code{FALSE} (the default) the matrix is\n",
       "filled by columns, otherwise the matrix is filled by rows.\n",
       "\\item[\\code{dimnames}] A \\code{\\LinkA{dimnames}{dimnames}} attribute for the matrix:\n",
       "\\code{NULL} or a \\code{list} of length 2 giving the row and column\n",
       "names respectively.  An empty list is treated as \\code{NULL}, and a\n",
       "list of length one as row names.  The list can be named, and the\n",
       "list names will be used as names for the dimensions.\n",
       "\\item[\\code{x}] an \\R{} object.\n",
       "\\item[\\code{...}] additional arguments to be passed to or from methods.\n",
       "\\item[\\code{rownames.force}] logical indicating if the resulting matrix\n",
       "should have character (rather than \\code{NULL})\n",
       "\\code{\\LinkA{rownames}{rownames}}.  The default, \\code{NA}, uses \\code{NULL}\n",
       "rownames if the data frame has `automatic' row.names or for a\n",
       "zero-row data frame.\n",
       "\\end{ldescription}\n",
       "\\end{Arguments}\n",
       "%\n",
       "\\begin{Details}\\relax\n",
       "If one of \\code{nrow} or \\code{ncol} is not given, an attempt is\n",
       "made to infer it from the length of \\code{data} and the other\n",
       "parameter.  If neither is given, a one-column matrix is returned.\n",
       "\n",
       "If there are too few elements in \\code{data} to fill the matrix,\n",
       "then the elements in \\code{data} are recycled.  If \\code{data} has\n",
       "length zero, \\code{NA} of an appropriate type is used for atomic\n",
       "vectors (\\code{0} for raw vectors) and \\code{NULL} for lists.\n",
       "\n",
       "\\code{is.matrix} returns \\code{TRUE} if \\code{x} is a vector and has a\n",
       "\\code{\"\\LinkA{dim}{dim}\"} attribute of length 2) and \\code{FALSE} otherwise.\n",
       "Note that a \\code{\\LinkA{data.frame}{data.frame}} is \\strong{not} a matrix by this\n",
       "test.  The function is generic: you can write methods to handle\n",
       "specific classes of objects, see \\LinkA{InternalMethods}{InternalMethods}.\n",
       "\n",
       "\\code{as.matrix} is a generic function.  The method for data frames\n",
       "will return a character matrix if there is only atomic columns and any\n",
       "non-(numeric/logical/complex) column, applying \\code{\\LinkA{as.vector}{as.vector}}\n",
       "to factors and \\code{\\LinkA{format}{format}} to other non-character columns.\n",
       "Otherwise, the usual coercion hierarchy (logical < integer < double <\n",
       "complex) will be used, e.g., all-logical data frames will be coerced\n",
       "to a logical matrix, mixed logical-integer will give a integer matrix,\n",
       "etc.\n",
       "\n",
       "The default method for \\code{as.matrix} calls \\code{as.vector(x)}, and\n",
       "hence e.g.~coerces factors to character vectors.\n",
       "\n",
       "When coercing a vector, it produces a one-column matrix, and\n",
       "promotes the names (if any) of the vector to the rownames of the matrix.\n",
       "\n",
       "\\code{is.matrix} is a \\LinkA{primitive}{primitive} function.\n",
       "\n",
       "The \\code{print} method for a matrix gives a rectangular layout with\n",
       "dimnames or indices.  For a list matrix, the entries of length not\n",
       "one are printed in  the form \\samp{integer,7} indicating the type\n",
       "and length.\n",
       "\\end{Details}\n",
       "%\n",
       "\\begin{Note}\\relax\n",
       "If you just want to convert a vector to a matrix, something like\n",
       "\\begin{alltt}  dim(x) <- c(nx, ny)\n",
       "  dimnames(x) <- list(row_names, col_names)\n",
       "\\end{alltt}\n",
       "\n",
       "will avoid duplicating \\code{x}.\n",
       "\\end{Note}\n",
       "%\n",
       "\\begin{References}\\relax\n",
       "Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)\n",
       "\\emph{The New S Language}.\n",
       "Wadsworth \\& Brooks/Cole.\n",
       "\\end{References}\n",
       "%\n",
       "\\begin{SeeAlso}\\relax\n",
       "\\code{\\LinkA{data.matrix}{data.matrix}}, which attempts to convert to a numeric\n",
       "matrix.\n",
       "\n",
       "A matrix is the special case of a two-dimensional \\code{\\LinkA{array}{array}}.\n",
       "\\end{SeeAlso}\n",
       "%\n",
       "\\begin{Examples}\n",
       "\\begin{ExampleCode}\n",
       "is.matrix(as.matrix(1:10))\n",
       "!is.matrix(warpbreaks)  # data.frame, NOT matrix!\n",
       "warpbreaks[1:10,]\n",
       "as.matrix(warpbreaks[1:10,])  # using as.matrix.data.frame(.) method\n",
       "\n",
       "## Example of setting row and column names\n",
       "mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol = 3, byrow = TRUE,\n",
       "               dimnames = list(c(\"row1\", \"row2\"),\n",
       "                               c(\"C.1\", \"C.2\", \"C.3\")))\n",
       "mdat\n",
       "\\end{ExampleCode}\n",
       "\\end{Examples}"
      ],
      "text/plain": [
       "matrix                  package:base                   R Documentation\n",
       "\n",
       "_\bM_\ba_\bt_\br_\bi_\bc_\be_\bs\n",
       "\n",
       "_\bD_\be_\bs_\bc_\br_\bi_\bp_\bt_\bi_\bo_\bn:\n",
       "\n",
       "     'matrix' creates a matrix from the given set of values.\n",
       "\n",
       "     'as.matrix' attempts to turn its argument into a matrix.\n",
       "\n",
       "     'is.matrix' tests if its argument is a (strict) matrix.\n",
       "\n",
       "_\bU_\bs_\ba_\bg_\be:\n",
       "\n",
       "     matrix(data = NA, nrow = 1, ncol = 1, byrow = FALSE,\n",
       "            dimnames = NULL)\n",
       "     \n",
       "     as.matrix(x, ...)\n",
       "     ## S3 method for class 'data.frame'\n",
       "     as.matrix(x, rownames.force = NA, ...)\n",
       "     \n",
       "     is.matrix(x)\n",
       "     \n",
       "_\bA_\br_\bg_\bu_\bm_\be_\bn_\bt_\bs:\n",
       "\n",
       "    data: an optional data vector (including a list or 'expression'\n",
       "          vector).  Non-atomic classed R objects are coerced by\n",
       "          'as.vector' and all attributes discarded.\n",
       "\n",
       "    nrow: the desired number of rows.\n",
       "\n",
       "    ncol: the desired number of columns.\n",
       "\n",
       "   byrow: logical. If 'FALSE' (the default) the matrix is filled by\n",
       "          columns, otherwise the matrix is filled by rows.\n",
       "\n",
       "dimnames: A 'dimnames' attribute for the matrix: 'NULL' or a 'list' of\n",
       "          length 2 giving the row and column names respectively.  An\n",
       "          empty list is treated as 'NULL', and a list of length one as\n",
       "          row names.  The list can be named, and the list names will be\n",
       "          used as names for the dimensions.\n",
       "\n",
       "       x: an R object.\n",
       "\n",
       "     ...: additional arguments to be passed to or from methods.\n",
       "\n",
       "rownames.force: logical indicating if the resulting matrix should have\n",
       "          character (rather than 'NULL') 'rownames'.  The default,\n",
       "          'NA', uses 'NULL' rownames if the data frame has 'automatic'\n",
       "          row.names or for a zero-row data frame.\n",
       "\n",
       "_\bD_\be_\bt_\ba_\bi_\bl_\bs:\n",
       "\n",
       "     If one of 'nrow' or 'ncol' is not given, an attempt is made to\n",
       "     infer it from the length of 'data' and the other parameter.  If\n",
       "     neither is given, a one-column matrix is returned.\n",
       "\n",
       "     If there are too few elements in 'data' to fill the matrix, then\n",
       "     the elements in 'data' are recycled.  If 'data' has length zero,\n",
       "     'NA' of an appropriate type is used for atomic vectors ('0' for\n",
       "     raw vectors) and 'NULL' for lists.\n",
       "\n",
       "     'is.matrix' returns 'TRUE' if 'x' is a vector and has a '\"dim\"'\n",
       "     attribute of length 2) and 'FALSE' otherwise.  Note that a\n",
       "     'data.frame' is *not* a matrix by this test.  The function is\n",
       "     generic: you can write methods to handle specific classes of\n",
       "     objects, see InternalMethods.\n",
       "\n",
       "     'as.matrix' is a generic function.  The method for data frames\n",
       "     will return a character matrix if there is only atomic columns and\n",
       "     any non-(numeric/logical/complex) column, applying 'as.vector' to\n",
       "     factors and 'format' to other non-character columns.  Otherwise,\n",
       "     the usual coercion hierarchy (logical < integer < double <\n",
       "     complex) will be used, e.g., all-logical data frames will be\n",
       "     coerced to a logical matrix, mixed logical-integer will give a\n",
       "     integer matrix, etc.\n",
       "\n",
       "     The default method for 'as.matrix' calls 'as.vector(x)', and hence\n",
       "     e.g. coerces factors to character vectors.\n",
       "\n",
       "     When coercing a vector, it produces a one-column matrix, and\n",
       "     promotes the names (if any) of the vector to the rownames of the\n",
       "     matrix.\n",
       "\n",
       "     'is.matrix' is a primitive function.\n",
       "\n",
       "     The 'print' method for a matrix gives a rectangular layout with\n",
       "     dimnames or indices.  For a list matrix, the entries of length not\n",
       "     one are printed in the form 'integer,7' indicating the type and\n",
       "     length.\n",
       "\n",
       "_\bN_\bo_\bt_\be:\n",
       "\n",
       "     If you just want to convert a vector to a matrix, something like\n",
       "     \n",
       "       dim(x) <- c(nx, ny)\n",
       "       dimnames(x) <- list(row_names, col_names)\n",
       "\n",
       "     will avoid duplicating 'x'.\n",
       "\n",
       "_\bR_\be_\bf_\be_\br_\be_\bn_\bc_\be_\bs:\n",
       "\n",
       "     Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) _The New S\n",
       "     Language_.  Wadsworth & Brooks/Cole.\n",
       "\n",
       "_\bS_\be_\be _\bA_\bl_\bs_\bo:\n",
       "\n",
       "     'data.matrix', which attempts to convert to a numeric matrix.\n",
       "\n",
       "     A matrix is the special case of a two-dimensional 'array'.\n",
       "\n",
       "_\bE_\bx_\ba_\bm_\bp_\bl_\be_\bs:\n",
       "\n",
       "     is.matrix(as.matrix(1:10))\n",
       "     !is.matrix(warpbreaks)  # data.frame, NOT matrix!\n",
       "     warpbreaks[1:10,]\n",
       "     as.matrix(warpbreaks[1:10,])  # using as.matrix.data.frame(.) method\n",
       "     \n",
       "     ## Example of setting row and column names\n",
       "     mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol = 3, byrow = TRUE,\n",
       "                    dimnames = list(c(\"row1\", \"row2\"),\n",
       "                                    c(\"C.1\", \"C.2\", \"C.3\")))\n",
       "     mdat\n",
       "     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "?matrix"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Tento pomocný súbor nám prezradí to čo funkcia <code>matrix()</code> má za vstupy... ale pre začiatok sa sústredme na prvé tri: dáta (položky v matici), počet riadkov, a počet stĺpcov.\n",
    "Najprv vytvorme jednoduchú maticu."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 391,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1</td><td>3</td></tr>\n",
       "\t<tr><td>2</td><td>4</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 1 & 3\\\\\n",
       "\t 2 & 4\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1 | 3 | \n",
       "| 2 | 4 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2]\n",
       "[1,] 1    3   \n",
       "[2,] 2    4   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = matrix(data = c(1,2,3,4), nrow = 2, ncol = 2)\n",
    "x"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Poznámka: môžeme vynechať písanie znakov <code>data=, nrow=, ncol=,</code> v funkcii <code>matrix()</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 392,
   "metadata": {},
   "outputs": [],
   "source": [
    "x = matrix(c(1,2,3,4),2,2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Spustenie príkazu bude mať rovnaký efekt. Avšak, to môže byť niekedy užitočné, keď chceme špecifikovať mená argumentov, ktoré vstupujú do funkcie. R predpokladá, že argumenty sú písané v rovnakom poradí ako je to v pomocnom súbore. V predošlom príklade R vytvorilo maticu úspešne vyplnením stĺpcov. Alternatívne použitím možnosti <code>byrow=TRUE</code> môžeme vyplniť maticu v poradí začinajúc riadkami namiesto stĺpcov. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 393,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1</td><td>2</td></tr>\n",
       "\t<tr><td>3</td><td>4</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 1 & 2\\\\\n",
       "\t 3 & 4\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1 | 2 | \n",
       "| 3 | 4 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2]\n",
       "[1,] 1    2   \n",
       "[2,] 3    4   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "matrix(c(1,2,3,4), 2, 2, byrow=TRUE)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Všimnite si, že horné príkazy nepriradili hodnotu matice do premennej x. V tomto prípade je matica len vypísaná na obrazovku, ale nie je uložená pre budúce výpočty. \n",
    "Funkcia <code>sqrt()</code> vráti odmocninu každého prvku vo vektore alebo v matici. \n",
    "Príkaz  <code>x^2</code> zvýši hodnotu každého prvku na mocninu dvoch. Každá mocnina je možná, zahrňujúc zlomky alebo záporné čísla. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 394,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1.000000</td><td>1.732051</td></tr>\n",
       "\t<tr><td>1.414214</td><td>2.000000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 1.000000 & 1.732051\\\\\n",
       "\t 1.414214 & 2.000000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1.000000 | 1.732051 | \n",
       "| 1.414214 | 2.000000 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1]     [,2]    \n",
       "[1,] 1.000000 1.732051\n",
       "[2,] 1.414214 2.000000"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sqrt(x)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 395,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1 </td><td> 9</td></tr>\n",
       "\t<tr><td>4 </td><td>16</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 1  &  9\\\\\n",
       "\t 4  & 16\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1  |  9 | \n",
       "| 4  | 16 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2]\n",
       "[1,] 1     9  \n",
       "[2,] 4    16  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x^2"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>rnorm()</code> vygeneruje vektor náhodných čísiel z normálového rozdelenia. Prvým argumentom funkcie je n - veľkosť generovanej vzorky dát. \n",
    "Zakaždým, keď sa volá táto funkcia, tak získame odlišné údaje. \n",
    "Teraz vytvoríme dve korelované množiny čísel, <code>x</code> a <code>y</code>, a použijeme funkciu <code>cor()</code> na vypočítanie korelácie medzi nimi. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 396,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.995528952267613"
      ],
      "text/latex": [
       "0.995528952267613"
      ],
      "text/markdown": [
       "0.995528952267613"
      ],
      "text/plain": [
       "[1] 0.995529"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = rnorm(50)\n",
    "y = x + rnorm(50, mean=50, sd=.1)\n",
    "cor(x, y)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Defaultne funkcia <code>rnorm()</code> vytvorí štandardné normované náhodné premenné s priemerom 0 a štandardnou odchýlkou 1. Avšak, priemer a štandardná odchýlka môže byť zmenená použítím argumentov <code>mean a sd</code>, ako bolo ukazané vyššie. \n",
    "Niekedy chceme náš kód reprokukovať v presnej množine náhodných čísel. Na to, aby sme to spravili použijeme funkciu <code>set.seed()</code>. Táto funkcia berie integer resp. celé číslo ako argument. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 397,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>-0.66665873790289</li>\n",
       "\t<li>-0.654642069234136</li>\n",
       "\t<li>-1.42140107683245</li>\n",
       "\t<li>0.483480995715215</li>\n",
       "\t<li>-1.00532306074895</li>\n",
       "\t<li>0.136343142886135</li>\n",
       "\t<li>0.526771067636149</li>\n",
       "\t<li>0.792280888740651</li>\n",
       "\t<li>0.0994455449462068</li>\n",
       "\t<li>-1.49506512929208</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item -0.66665873790289\n",
       "\\item -0.654642069234136\n",
       "\\item -1.42140107683245\n",
       "\\item 0.483480995715215\n",
       "\\item -1.00532306074895\n",
       "\\item 0.136343142886135\n",
       "\\item 0.526771067636149\n",
       "\\item 0.792280888740651\n",
       "\\item 0.0994455449462068\n",
       "\\item -1.49506512929208\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. -0.66665873790289\n",
       "2. -0.654642069234136\n",
       "3. -1.42140107683245\n",
       "4. 0.483480995715215\n",
       "5. -1.00532306074895\n",
       "6. 0.136343142886135\n",
       "7. 0.526771067636149\n",
       "8. 0.792280888740651\n",
       "9. 0.0994455449462068\n",
       "10. -1.49506512929208\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] -0.66665874 -0.65464207 -1.42140108  0.48348100 -1.00532306  0.13634314\n",
       " [7]  0.52677107  0.79228089  0.09944554 -1.49506513"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "set.seed(1145)\n",
    "rnorm(10)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Použijeme príkaz <code>set.seed()</code> napriek tomu, že vykonávame operácie s náhodnými údajmi. Vo všeobecnosti toto nám povoľuje zreprodukovateľnosť výsledkov používateľovi. \n",
    "Funkcie <code>mean()</code> a <code>var()</code> môžu byť použité na vypočítanie priemeru a odchýlky/rozptylu vektoru čísel. Aplikovaním funkcie <code>sqrt()</code> na výstup <code>var()</code> dostaneme štandardnú odchýlku. Alebo môžeme jednoducho použiť funkciu <code>sd()</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 398,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.0110355710943715"
      ],
      "text/latex": [
       "0.0110355710943715"
      ],
      "text/markdown": [
       "0.0110355710943715"
      ],
      "text/plain": [
       "[1] 0.01103557"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "set.seed(3)\n",
    "y = rnorm(100)\n",
    "mean(y)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 399,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.732867501277449"
      ],
      "text/latex": [
       "0.732867501277449"
      ],
      "text/markdown": [
       "0.732867501277449"
      ],
      "text/plain": [
       "[1] 0.7328675"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "var(y)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 400,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.856076808047881"
      ],
      "text/latex": [
       "0.856076808047881"
      ],
      "text/markdown": [
       "0.856076808047881"
      ],
      "text/plain": [
       "[1] 0.8560768"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sqrt(var(y))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 401,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0.856076808047881"
      ],
      "text/latex": [
       "0.856076808047881"
      ],
      "text/markdown": [
       "0.856076808047881"
      ],
      "text/plain": [
       "[1] 0.8560768"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sd(y)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h2>Grafika</h2>\n",
    "\n",
    "Funkcia <code>plot()</code> je primárny spôsob na vykreslovanie údajov v R. \n",
    "Napríklad <code>plot(x, y)</code> produkuje scatterplot čísiel <code>x</code> verzus čísla z <code>y</code>. \n",
    "Je veľa dodatočných možností, ktoré môžu byť posunuté ako argument funkcii <code>plot()</code>. \n",
    "Napríklad agrument <code>xlab</code> označí výsledky na osi x-ovej. \n",
    "Príkazom <code>?plot</code> zobrazíme ďalšie informácie o funkcii <code>plot()</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 402,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAYhUlEQVR4nO3dDVfTygKG0SCKXI/g//+3V0EUkLZJ+mY+917rqudqO6HN08xM\niy4/gKsttQ8ARiAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIEFAgpAU6s+Msz4dTYQhIEhIECAkChAQBQoIAIUGAkCBASBAgJAgQ\nEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAiJN3Z90zRC4rWniqS0g5B4ZXn1I1sIib+Wdz+z\nmpD4S0i7CYm/hLSbkHjFGmkvIfGKXbu9hMQb3kfaR0gQICQIEFJFplHjEFI1FvYjEVI1tppH\nIqRavPk5FCHVIqShCKkWIQ1FSNVYI41ESNXYtRuJkCryPtI4hAQBQoIAIUGAkCBASBAgJAgQ\nEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQB\nQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAg\noGRIj1+W5fbb7zs5ey9CojMFQ3q8WX75/HwnQmIkBUO6W+5/1nR/c/t0J0JiJAVDunm+4cPN\npwchMZiCIb2083h7+1FIy2s7h4BKCob0aXl8+dWtKxJjKRjS/fLl968ellshMZSS2993f+r5\ndmH2JiQ6U/QN2e+fX3718EVIjMQnGyBASBAgJAgQEgQICQKEBAFC4ngTfOhLSBztqaLRUxIS\nR1te/TgsIXGw5d3PYxISBxNS7iYNDkEpQsrdpMEhKMYaKXaTBoegGLt2sZs0OMTkyr6z432k\n0E0aHGJqU1wjyhLSjKZYtZQlpAnNsY9WlpAmJKQ8ITWi5HpcSHlCakLh1b81UpyQmlD4zLZr\nFyekFpSfa03wzk5ZQmqBRUv3hNQCIXVPSE2w+u+dkJpg9d87ITXC6r9vQoIAIfHCRfEKQuKZ\nZdpVhMQzG4dXEdIu482CvJV1HSHtMOIsSEjXEdIOI86ChHQdIW035jk34qtDQULabtCQBpyv\nFiSk7SqEVGRzY7wdlIKEtEPpWZCLRfuEtEPpE9vypX1C2qXoLGjMNdlghNQ+IXVASO0TUgeE\n1AFrpPbNFVKnG7x27do3U0gdn4+dvgJMZKqQDrxvJjdRSNbsHEdIECAkCJgoJGskjjNVSP3u\n2tG6mUKyi8xh5goJDiIkCBASBAiJdawvzxLShHY0YcfzAiFNZ1cT3oO7QEjT2dOET4VcIqTZ\n7GpCSJcIaTZCOoSQZrOvCWukC4Q0nV1N2LW7QEjT2dmE95HOEtKEpm3iwC9cSMzi0OmpkJjF\nVRsmly5mQmIS12zhX76YCYlJXBXSxVsKiUlcEdKKmwqJWexfIwkJ/ti/ayckeGX3+0jWSBDw\n+2J2JkQhwQovFZ1KSUiwztn53QwhTfvRMpLO7ziMH1Kf3wAg/uZMH1L8Ho+3J37pHWzykLr8\nJunt8fd53e3L3GukHkPaeMy/rkU9Xnd7M/eu3fAhvXl6e/oqOzT1+0gdvlZvC+npByFVNkFI\nHa4eNsT/8kc7fL0Yyvgh9biftSH+l0vR8uo/KG+GkHq0Ov7XIXX3gjEQIfXuz9xORjUJqXeu\nRU0QUv9cixogJAgQEhWMdxEVEsWNuKwTEsWN+OaxkCitx48/XiQkShPS7ps0OATVCGn3TRoc\ngnqskfbepMEhqMeu3d6bNDgENXkfad9NGhwCkoTEsca7+HxISBxpxOXQh4TEkUbcoPuQkDjQ\nkG8ZfUhIHEhI2Zs0OAQlCCl7kwaH4BDv9+iskaI3aXAIDvDvHp1du+hNGhyCA3x0/fE+UvAm\nDQ5B3jwron8JiRghHX2TBocgT0hH36TBITjANHt0/yoY0vLWEUNQ1zR7dP8qGNL9+ZBWVxY3\nyb5SEdM+liWndt9vbo8eYoeJX0XJKbpG+r7cHT3EdhPP68kpu9lwv3w/eoitZt5pImf6XTsh\nkSCk8kMyoOlD+mCNNO3OE/sJ6f2unV08dhDS+yuQXTx2ENKJoZXEFkI6MbSQ2EJIJ4YWElsI\n6eOxdcQmQvpnbLt2bCekD0aXEVsJqRPqbpuQumC+2TohdcEOSOuE1AN78s0TUivOLYKE1Dwh\nteH8IkhIzRNSGy4sgqyRWiekJly65Ni1a52QmnB57uZ9pLYJqQkWQb0TUhtGWQRNe+EUUhvG\nWASN8VXsIqRWjPBaPsp1dQchETPzSk9ItY1wJfpNSEffpMEhGjHUqkJIR9+kwSEaMdaqYqyv\nZhMhVTXYa/hQ19dthFTVYCENteLbRkhbRU+V4UKalpC2SU9eJl5VjEVI26RP/IlXFWMR0iYH\nTMXOTxWLrzmmXeRcSUibFF7TFL9euUDuJaRNSodUcrAqAw5DSNsUPdOK7+nZRNxNSNsUnfsI\nqR9C2qrgalxI/RBSy6yRuiGkltm164aQ2uZ9pE4IiYLGzVRIFDPyxFFIFDPyVoaQKOX5erSM\n+ewKaVbllyvLyHM7Ic2pxim9jDy3E9KcqpzSL4OO+PQKaUp1Pgv0chkc8ekV0pQqhfR7YTbi\n0yukKVX6dKo10pU3aXCIydU5pe3aXXmTBoeYXK1TetjPCAlpVsOe0nUIaVpDllTtixLSpIZc\nrlT8ooTUjqKvpkNuoFX8ooTUirKvpkP+7Qw1vyghtaLsq6mQDhr72Js0OMS10vOwwieBkA4a\n+9ibNDjEdfLzsNIngTXSEUMffZMGh7hO/hkrHpJdu+zQRW7S4BBXOeKsj7a5ZuLpfaTowEVu\n0uAQVzkkpNyr6QhXm94yF9Iex8zDYufOuotby6dqfy8FQtql6aX6qszbPlWbfnw/JKRdmj4N\n14V0+Y+sGOmgh6DDzXkh7dTwxGjNaZg4VY97NRFSSEcPYItWXG0iIV19D+fvuavzQEgDWnGp\nCJyqR57t1kgZPT2CTXqZeJ6egF5/qh4aUstr0A8JaWDnTsfrT9Vj518Nr0E/JKSBnb/qXH2q\nNjP/aiE6IY3r6CV7I/OvNg5DSBu18Oq30vF7X008GG1cGIW0yfZXv4rnWoebyDts+CqPfC6E\ntMnWV7+60442XqsPtjqkY58LIW2x+TW+7qncxurhYOtDWvfHrjyMY2/S4BC7bA0pObnaNS9p\nYhFzsJWBHDzRFdIW9UKa4uKyz8qHRkgt2Tg9CIYUup8hrbruCqklWy8MqfN/jg24Y1kjNWXb\nqiM1IxPS9ezadS2z3BdSgveRsEZqnJD6YNeucUJ6Gq+DU7SHY5yYkC682jt/3/OIfERIZ9cf\nZlTveUQ+JqSzO2LW+O95RD4mpHMh2XV+zyNygpCEtIVH5IQrQ/r09SF2KCeGON7p2YrT5j2P\nyAlXhrQsyxEtNbNrZ0XwnkfkY1eG9Pi/L0e01Mz7SPao3vOIfCywRvrv66d0Sw09T/O+a3Lq\nK5/3ETkns9nw/ebno3t//dGcGYKyXHm2iYT07Xb55TZwPKeGoDBroW2uD+nx68/L0advjz9r\n+pw5Js9ffXbnNro2pP9+bTbcfX/+jdij7umr7XRIlkgfuvZ9pJ8Xo/vHl9+4SRzR+yGo4VRI\nlk4nXPs+0udvsUM5MQRVnFgjWTqdcO37SLEDOTkEVXx86bF0OsVn7Tjho8WQkE4RUtbgS3Eh\nnSKkpPGX4tZIJwgpafzTbPyXip2EFDTFxGfwyeteQgqaIiQ+JKQgIc1LSEnjr5E4QUhJluLT\nKhrSf18/P32/xee7/44aorY+l+J9HnVTCob0+Gn56/z3LnlaS3IdDSgY0t1y87/n77d4+Haz\n3B0xBHtY2QUUDOlm+f7n19/Pf8tF+0/qQJMhe40JBUN6c+r9ex4ur+0copShJkNCSnBF2mOo\nyZCQEsqukb49/51dva+RBjv1hnpZqKXk9vftq7nbp7PfEtj4kzpaSCNNVGsp+z7S3dP7SDef\nv/b9PtJgIQ21dVKLTzbsYTLEO0Law2SId4S0j8kQbwgJAoQEAUJqhcli14TUBtsXnRNSGy5u\nqLtgtU1ITbj0Fq8LVuuE1ISLIZ39XeoTUhMuhDTcZ5LGI6Q2nL/kCKl5QmrD+UWQkJonpFac\n3ZazRmqdkArav4Vt1651Qirmuhi8j9Q2IRVjejYyIZViw2BoQipFSEMTUilCGpqQirFGGllf\nIXW9dWULe2Q9hdT9mdj16wBndRVSqeFhq45Can217nozMyGFdD/v5CpCCjHvnFtHITV4rv6d\nzbVd+R8Xpp9mp7t1FVJjs6ffx/N0QF2EdOEBbO3x7UpPIbX2irk8nXbL07nXR0ivftz+25zT\nV0hNWf787+VXlw+86ivBhdi7eC1olpB2e7kOLS/XpovzospzJyEdSEi7vQ1pzdWm8txJSAcS\n0n5/53TrjnfnmZqbDlojHUdI+/2z03Dpz7/7ee0gsemgXbvjCOkay6Zzb19I229y7t68j3QQ\nIV1py7m3I4oDFy6qSRJSQTvmToeFZB6XJaSiNl8FjgvpmLudlpAad9AJb687TEiNO2gKJqQw\nITXvkE0BIYUJaVLWSFlCmpRduywhTcv7SElCggAhcZiZrnlC4iDRVVjzTQqJgwT3BTvYGRES\nB1j+/fuVrrq7N/fYJCER9+YCEngulw4uSUKaQOkX8+V50Ff/ce39tf/2sZCGV/zV/KWg5dV/\nXHeHy9ufWySk4RV/NX992mfO/ZcvoeHzQkijK//x1D8jnp5SbpxsvjTZ8HkhpN0a30Z6UeFz\n3peugduvVc9Ntvx4C2mn9veRfqsR0oXHZvtks/1HW0g7rT0Z6l+3wmukVV/Q2T+0K+36j+N5\nQtpn5cnQwitp+KM6199ZhWvk8YS0z9qQ1vyhwwVfzRNfkJB236TBIa607mQY7pTJfEFtvLxk\nCWmnVSfDhvOu9TXAs1BIDUx404S006qTYfV518uplbrE9vGysYWQdltzMqze21v556rr5kBL\nE9KhVl5p+llL9XLpLE5IB1v3tsu7n3fcRTFtHU0zhNSCcyG5BnRBSE04s/SwKumCkJpw+rLT\nz/JpbkJqxKmlh5D6IKTGCakPQmqdNVIXhNQ6u3ZdEFL7GnrnpqFDaYyQWM3F8TQhtayxC4Dl\n2mlCalf8AnBllzYQzxBSu8IXgKu7FNIZQmpW+ry9ukshnSGkZoXP28DdWSOdJqRmNRiSXbuT\nhNSu7AUg0mVj24gNEVK7whcAE7MjCall0QuAidmRhDQRE7PjCImI2SMVEgGmjUIiwEaGkLie\nzzwIiQAhCYkAIQmJBGskIRFg105IRHgfqcRNGhyiN7OfqK0TUhdMnVonpC5YzLdOSEdJzsVs\nLzdPSMfIzsWE1DwhHaPB727lSEI6RPrMt0ZqnZAOEQ/p35mi/fCmCOkQp0Laf/Yv7zP68b4s\nahLSMT6ciwXPfnO9xgjpGB82kzv77T60RkhH+XcWFzz7hdQaIZUjpIEJqZzk2V9mjXTyn1q3\nzfGekAoKnv0ldu1OjWHH8ANCKih6Bh5/VTjVvR3DDxQMaXnriCGa19Oc6OR7YSf+/7kVDOle\nSF2pFVJPLzZ/lZzafb+5PXoIcuqE1OsCrOga6ftyd/QQ5FRZI/W6ACu72XC/fD96CGJq7Np1\nuwBrZ9du9QKKYsq/jySkqO4eRkKEFNXdw0iKNdKGO7h4D/09joTYtdtwB0LitD6XyEKCACFB\ngJAgQEgQYPsbAoQEAUKCACFBgJAgQEgQICQIEBIECAkChMTH+vwQdjVCalPt07jXbwuqRkgt\nqn8a9/qNqtUIqUXVT+Pzf3VC7ctli4TUoPp/A8i5I6h/uWyRkBrUeEgnf2dmQmpQ/ZDO1NLA\nwbVISC2q/6J/ev4mpA8JqUUtLENO/i2r737miZDa1PDGWP3LZYuExEYtXC7bIyQ2a/hyWY2Q\nIEBIECAkCBASBAgJAoQEAUJiJZve5wiJVbwNe56QWMUHg84TEmv4qOoFQmINIV0gJNYQ0gVC\nYhVrpPOExCp27c4TEit5H+kcIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBITfDxm94J\nqQE+ENo/ITXAtyj0T0j1+aa5AQipPiENQEj1CWkAQmqANVL/hNQAu3b9E1ITvI/UOyFBgJAg\nQEgQICQIEBIECAkChAQBQoIAIUGAkFjFZy/OExIr+DTgJUJiBZ9Pv0RIXOY7pi4S0pQ2rniE\ndJGQJrR5xSOki4T0buQZVtTbVzzWSJcI6c24U2xO7bi+zPHAXENI/447+vmya6I2xaX6CkL6\nYNjBT5lJvsyyhPTBsKOfYXNceMsS0gfDjn6KWfHkCenfcSc4w6x40oT0Zlwv1ewjpHcjy4g9\nhAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCmoHPaxxOSOPzCcIChDS+aT7TXpOQhjfLd1nV\nJaThCakEIQ1PSCUIaXzWSAUIaXx27QoQ0gy8j3Q4IUGAkCBASBAgJAgQEgQICQJKhvT4ZVlu\nv/2+k7P3IiQ6UzCkx5vll8/PdyIkRlIwpLvl/mdN9ze3T3ciJEZSMKSb5xs+3Hx6EBKDKRjS\nSzuPt7dCYjAFQ/q0PL786lZIjKVgSPfLl9+/elhuhcRQSm5/3/2p59uFjyMLic4UfUP2++eX\nXz18+edeltd2DwFV+GQDBAgJAmqEdHnmJiQ6IyQIEBIECAkChAQBQoIA298QICQIEBIECAkC\nhAQBQoIAIcFbu76NR0jw2s5/TUpI8NrOf99QSPDK8u7nrbc79iYNDgEfERIECAkSrJEgwK4d\nRHgfiWv5KwX3EhJ/7JzV8ENIvLJznc0PIfHX3p1ffgiJv4R0BSHxQkhXEBJ/WCPtJyT+sGu3\nn5B4xftIewkJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAGNhgSd2XGW58M5Ut3DNfqco6/R/hG+MfPTafSWtX+Eb8z8dBq9Ze0f4RszP51Gb1n7\nR/jGzE+n0VvW/hG+MfPTafSWtX+Eb8z8dBq9Ze0f4RszP51Gb1n7R/jGzE+n0VvW/hG+MfPT\nafSWtX+Eb8z8dBq9Ze0f4RszP51Gb1n7RwgdEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIENBbSPeflpu7x4rjV3rA7m7m/Lqfxq78nK/SWUh3T/9WwE21R/X7\nnn+oIOD26ev+VGXsX2p93b/Ufs7X6Suk78uXx1+vjl9qjX9T54T6b7n5/mvw/2oM/qPe1/00\nduXnfKW+Qvr8fLi1ntX75bbO0HfLt58//m/5WmPwil/3L5Wf87UaP7yP1XpQl7tKQ39eHn78\nem3+XGPwil/362OofQAXNH54H3pcbusM/L3W87nUfVWu9nX/Ve05X6vHkO6fJjp1TBlS3aGf\n1HzOV+kwpIebSjOcX4RURdXnfJX+Qnq8qXmRF1INdZ/zVfoI6fU/NX1b/N2U16PXOaFuJg+p\n/HO+WW8hPXy6fag3eq0T6nnX7qHWrt2PuiHVeM436yOkP77V3rypc0J9fVpqf1vuagz+pGJI\n1Z/zVfoK6aH6YzrnJxtqhlT/OV+lr5C+LMvreVYFlYb+9PRVVzyj6j3k9Z/zVRo/vHeW6g9q\npaEfnz79XWXoZ/Ue8vrP+SqNHx70QUgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEgQICQKE1KXb5b+fP/63fKl9IPwmpC49LDc/f7y5eax9IPwmpD7dL19/\nfF3+V/sweCGkTt0u98vn2gfBH0Lq1MOyLA+1D4I/hNSru+Wu9iHwl5A65YrUFiF16vPPNdJt\n7YPgDyH16X8/J3Zfl/vah8ELIXXp8ebpfSSTu2YIqUtffn+yweSuFUKCACFBgJAgQEgQICQI\nEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQE\nAUKCACFBgJAgQEgQICQIEBIECAkC/g9yzDhZpBKIegAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "x = rnorm(100)\n",
    "y = rnorm(100)\n",
    "plot(x, y)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 403,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAfd0lEQVR4nO3diXqqvBqG4SBOdTmc/9kuwQkVleFN8iV57mvvv12tihUeIUFb\ndwIwm4t9B4AcEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiA\nACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAh\nAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBBSZId17Zyrln/fL7apnFvdr3O+xr75\nZH/+5DB4Sbdrjb0iBiCkuDbuptr9utiq+8+6+XhucDN8WdvrtS5X3E64t/iIkKKqXce/z5db\nPHYmt39v2zIWI5d2yaeTFDQIKaZmR7Nq+tk3n32J4vzdp3//O+/Bjsfqa3zvDs21zh+bK3Jg\np0VIETWjltsB3W6xabftZvCycOvzZ3/LJq717avPV105t1x2j/bauFa37537Om6a3d3z2Gt7\nuciSAzs5QorovBtav36tiac98KofR3zXT7oXa3Yq1/3LXXW9yPnr50ir67WejuHq5ub+jTwi\nxACEFFH9MvJpXLb+v3YYc85kfd6p9IV0+rtcrGt92b/t2jxX7XePL7MK+3NDx9cBFwQIKaK3\nA7bL15qAmumEzkFdzyUXb/uV/eXA7XJkd53fPr5catPu8EZM9WEYQoronkdnl9MZNnUu8x5S\nM756nTE4J3K8pdMc2a16ZtQX32c1MBEhRfQhpNvA5/DXnqztD6l+G/+0u5u/5phvc7qfoHpr\nae84sPOBkCJa3qavn0O6fPNv4R5ffgvpnEtVvQ6SDk1a9XVHtb6d6H3ZbfUdT2I2HtSINt35\n65eQmsmExWq77w+pPYX073Xarp29uB+5Hf/q92k7QvKEBzWiY3dA9BLS4vqt/pCa00jtHm31\n9OVzfc/niHart24IyQse1Jiagczy8sqG6iWk68f+PdJ1X/T20oZjuwtq91KL68f2pFIXIXnB\ngxrV02vtls1Xbtt53Z4N2lW9IS2uu523F9ut7odyu/Mnh75zvoTkBQ9qXI9Xfy8uB3m37fzf\nba7gdlbo+UrXgc/ry793j7O0t8mG11enEpIXPKiRHTfNS+rq9e0Q7b6d7897l2q1P7R7qqet\nv/PGorf3FXVmz9vxUf32ojpC8oIHFRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkACBACE5IDETtnJ9OBEWASgR\nEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIg\nQEh4MulN0yAkdLUVkdIEhIQO1/kvxiAkPLiXjxiMkPBASJMREh4IaTJCQgdjpKkICR3M2k1F\nSHjCeaRpCAkQICRAgJAi4jAqH4QUDQP7nBBSNEw154SQYuHkZ1YIKRZCygohxUJIWSGkaBgj\n5YSQomHWLieEFBHnkfJBSIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBA\nSIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiA\nACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIBAypOPK\nuXp3vZGvt0JISEzAkI6VaywvN0JIyEnAkNZue65pW9XtjRASchIwpOpyxUO1OBASMhMwpFs7\nx7ruC8l1TVwEEEnAkBbuePusZo+EvAQMaetW188OriYkZCXk9Pf6Xs/ux9EbISExQU/I7pe3\nzw4rQkJOeGUDIEBIgAAhAQKEBAgQEiBASIAAIcG/Al70RUjwra0o95QICb65zn+zRUjwzL18\nzBMhwTNC0l3F4CIQCiHprmJwEQiGMZLsKgYXgWCYtZNdxeAiChf2zA7nkURXMbiIohWxjwiL\nkEpUxKglLEIqUBnzaGERUoEISY+QjAg5HickPUIyIfDonzGSHCGZEHjLZtZOjpAsCH+sVcCZ\nnbAIyQIGLckjJAsIKXmEZAKj/9QRkgmM/lNHSEYw+k8bIQEChIQbdoozEBIuGKbNQki4YOJw\nFkKaJL+jIE5lzUNIE+R4FERI8xDSBDkeBRHSPIQ0Xp7bXI7PDgER0niZhpTh8WpAhDRehJCC\nTG7kN4MSECFNEPooiJ2FfYQ0QegNm+GLfYQ0SdCjoDzHZJkhJPsIKQGEZB8hJYCQEsAYyb6y\nQkp0gpdZO/tKCinh7THRZ4CCFBWSx9tG4QoKiTE7/CEkQICQAIGCQmKMBH+KCindWTtYV1JI\nzCLDm7JCAjwhJECAkAABQsIwjC+/IqQCTWiCGc8fCKk4k5rgHNwPhFScKU3wqpBfCKk0k5og\npF8IqTSE5AUhlWZaE4yRfiCk4kxqglm7HwipOBOb4DzSV4RUoGKb8PiDExJK4fXwlJBQilkT\nJr92ZoSEQsyZwv+9MyMkFGJWSD+vSUgoxIyQBlyVkFCK6WMkQgLups/aERLQMfk8EmMkQOC6\nM/sSIiEBA9wq+pQSIQHDfD2+KyGkYl9aBqXvMw75h5TmGwCI35ziQ5Lfon9T4ic9zwoPKck3\nSY+PP839blrKHiOlGNLI+9zsi1Lc76am7Fm77EN6Wr0p/ZQJKvo8UoLP1eNCav9DSJEVEFKC\no4cR8d8umuDzRVbyDynF+awR8d92Ra7zD4RXQkgpGhx/N6TknjAyQkipux/bkVFMhJQ69kUm\nEFL62BcZQEiAACEhgvx2ooSE4HIc1hESgsvx5DEhIbQUX/74EyEhNEKafBWDi0A0hDT5KgYX\ngXgYI029isFFIB5m7aZexeAiEBPnkaZdxeAiACVCgl/57Xx6ERJ8ynE41IuQ4FOOE3S9CAke\nZXnKqBchwSNC0l7F4CIQAiFpr2JwEfDidY6OMZL0KgYXAQ/e5+iYtZNexeAi4EHf/ofzSMKr\nGFwE9MoZEb0jJMgQku+rGFwE9AjJ91UMLgIeFDNH9y5gSO6Zj0UgrmLm6N4FDGn7PaTBlckV\nMq8URLGPZchDu31V+17EBAU/i0In6Bhp79a+FzFewcf10Ak72bB1e9+LGKvkmSboFD9rR0hQ\nIKTwi0SGig+pZ4xU7MwTpiOk11k7ZvEwASG97oGYxcMEhPRh0ZSEMQjpw6IJCWMQ0odFExLG\nIKT+ZdMRRiGkt2Uza4fxCKln6WSEsQgpEdRtGyElgeNN6wgpCcyAWEdIKWBO3jxCsuLbIIiQ\nzCMkG74PggjJPEKy4ccgiDGSdYRkwq9dDrN21hGSCb+P3TiPZBshmcAgKHWEZEMug6Bid5yE\nZEMeg6A8fopJCMmKHJ7Lc9mvTkBIkCl5pEdIseWwJ7oiJN9XMbgII7IaVRCS76sYXIQReY0q\n8vppRpkb0nZxOh0WbvFPdYfeF5GzzJ7Ds9q/jjMzpF3zqFXNnwaTllTMqsgspKxGfOPMDKl2\nf6e9W5z+3NC/ITZ6EdZIN5XsQirWzJCajar982HaJyK725X64KXgUUVeBCEt3a6gkDr/ldxe\nuaOKvMw+tNvvXHUq5tDOw6HY90PF4GOOYgc5M82fbHBu0zz8O9ldOpUV0tfFhd5fsYOcavb0\nd9X+geXFn+j+9CzCktAhhVxYlAVmgxOy4wTd0oLP6TGJOBkhjRP02IeQ0jE7pL/6PEpaao/s\nTK/IgKNxQkrH3JCajBrSSTtW5BVjpGTMDGnrqma6ble5reoevS6iZMzaJWNmSAu3bz82LxMS\nYk3ecB4pEYJXNjx/IsG6zFS+mcr2SJXm/rwvAtnI+cCRMRKCyXkqg1k7hHLZH7k81+7880jL\nws4j5SL8cMXlfGzHKxvKFGOTdjkf2xFSmaJs0reF5rh6CalIcV4LdNsN5rh6CalIkUK6Dsxy\nXL2EVKRIr05ljDTzKgYXUbg4mzSzdjOvYnARhYu1SWf7GiFCKlW2m3QcqpD+Lefek5+LgFaW\nJUX7oeaGtHY3qnv0tgj4kOVwJeIPNTOkR0dl/Dour4I+m2Y5gRbxh5oR0urU/P78v1PtDoea\nX6I/V9hn0yx/O0PMH2pGSK761674zXlvtC/kN616FPbZlJA8LXvCVQ6bRRvSrnkvUnFjJPVx\nWOCNgJA8LXviVZbnQ7uDW5z+FRaS/jgs9EbAGMnHoidfpf1DY+2b+1ayu3RKYP3q11jwkJi1\n0y565lU2zb9Wrv0F4DrW16+PrV7a5pADT84jSRcc5CoGFzGLl5B0z6Y57G1Sy3xmSEfZHfm4\nCIv8HIfJtp1hOzfLm2p6TwUzQ3K19ERs3yJMMj1UH5S57U3V9OPba2ZIi/PT2lp6LvZtESaZ\n3gyHhfT7IgOW5OkhSHByfu4Y6bA5t7TYiA/xEngADR8YDdkMFZuqv2eTAkM6O6wrJz7ES+gB\ntGjA3kYS0uxb+H7LSW0Hmlm7La/+tmTArkKwqfrc2osbIzUuR3fSXxGZ0iNo0u2J7fMT3PxN\n1WtIlsegvSRjpGp9UN2fnkVgqm+b4/xN1e/xl+ExaC/BrN2qwFm7NHzf68zeVM0cf1mIbvZ5\nJPFv/X5fBKbyPWQ3cvxl427wyoaRLDz7DeR/7svEg2Fjxzh7sqGsv2o+/tkv4raW4CTyBCN+\nSp/rYm5Ihf19pLHPfnEPO2w8V3s2OCS/62JmSIX9xb7Rz/FxN2UbowfPhoc07GIz78bEqxT2\nV83HhqQ8uJp0XGJiEOPZwEA8H+jOnbVzr59IWF378UIqYucyzcCHxnZIpf1V85GHB8KQRLeT\npUH7XdshFTZGGr1jUG3/ZUzA+WV6jFTarN3YUYfqiIyQ5jM9a8dfNf9FM9wnJAXL55H8YHt5\nxRjJOEJKA7N2xilC0q/f0BtMCqdbUriPBSOkH8/2bL+veET6ENLX8QdHVK94RPoR0tcZMcb4\nr3hE+hHSt5CYdX7FI/IBIRHSGDwiH8x9rd1G/GtP3hfh3+ejFTabVzwiH8x+9bfz0ZKZWTtG\nBK94RPrNDOn4t/LRkpnzSMxRveIR6ScYI/27/PpvZUuG1lO5Z00+/eTlPiLfaF4itK/Oj67w\njRSsqejY84wjCWlXi99KwfqLjrHQOPNDOm7Ou6PF7niuaam5T6y/+JidG2luSP+ayYb15f3m\nugMBVl9sn0NiiNRr7nmk885oe/t1q7rf28Cqiu1TSAydPph7HmlZ5t+Qzd+HMRJDpw/mnkeS\n3ZGPi0AU/bsehk6faKa/1VhPBvQNhgjpE0LSynwoTkifEJJS/kNxxkgfEJJS/ptZ/k8VExGS\nUBEHPpkfvE5FSEJFhIRes0PaLZtnqKX2fRSJbomEVK65IbUvV21e1CAtKdUtMf8xEj6YGdLW\n1ccmpK1bye7SKd1NkaF4sWaGVLnjiK3n32bZvt9iuf4nv1dGpDkUT/NemzL7dzYMfxo+LtzD\n9/cusVpDYj8qMPvV35c90pC/Ibt21d/l/RaHXeXW4nuFyRjZCWjGSIP+Yl91/TOZjR9/KtP+\nSs3oYIi5RoW5s3bL4X+xz70eE75+u2P8vQoqq4MhQlKQnEca9hf7MtojZXUwREgKAV/ZcB4j\n7S5nm1IfI2W26WX1tBBLyJcI1Z1jt8XXtwQaX6m5hZTTgWosM0K6TH13rH69uuHfuh1SVctN\n2ueRMgspq6mTWJQh6X6xnfXVysEQXggP7Q7l/DouDobwQjlGWhf0CyI5GMIT3o8ECBASIEBI\nVnCwmDRCsoHpi8QRkg0/J9TZYdlGSCb8OsXLDsu62SH91UNftDp5EQX4GdLX7yI+yS8/kf61\nvrdFlOBHSNm9Jik/s9/YVzV/12XQG/smLqIM33c5hGTe7LeaX95jNOSt5hMXUYbvgyBCMm9m\nSPdVrx0Il7jBfJ2WY4xknWyPJPuzl6+LyMj0KWxm7axjjBTMvBg4j2Qbs3bBcHiWs/nnkQb/\n8pPJi8gDEwZZ45UNoRBS1ggpFELKmmr6u2LW7hfGSDkThST8fQ2vi3j6espTV0xh52xGSLun\n3yAU4JUNyW+JST8P4Ks5e6Tun2lZ/PhNdYp7xbERzFKNkbR6b9X6aJ39TckSmrWzHVLyx52Y\nJaE39hkPqfNflCellwjZ21YfR3O2K7/7cfjJ0elkKb1o1drR0/X+tHcoiZB+PIDWHt+kpPXG\nPlvPmK7d7Nzlrwk8vmbXj126vT1+Qnhj32Tu/v/bZ7/veNRngh+xJ/FcYBZv7Jvsth9yt33T\nz6eTyMdOhORRSmMkY55DGrK3iXzsREgepTRrZ83jmG7Y/Z24peoOBxkj+TP/PFK5b+x7m2n4\ndfmXj0MXIjscZNbOn4Re2WCQG7XtTQtp/FW+3RrnkTyZEZLHBz2h1Tlm25sQhceBC9UoEVJA\nE46dvIXEcZwWIQU1ei/gLyQ/N1ssQjLO0wbPXLcYIRnn6RCMkMRmhfQk8r3Kl5dJAUISI6RC\nMUbS4tCuUMzaaRFSsTiPpERIgAAhwZuS9nmEBE+kozDzTfKiVXginBdMYGaEkOBB53yIYl26\np1s0iZAg97QDEaxLl8AuiZAKEPrJ3F0W2vnH3Nuzf/qYkLIX/Nn8VpDr/GPeDbrnjxYRUvaC\nP5t3N3vNtn/7EQxvF4SUu/AvT+2+GPPTRUa+vfHapOHtgpAmMz6NdBPhdd6/9oHj91WXJi0/\n3oQ0kf15pKsYIf14bMYfbNp/tAlpoqEbQ/z9lniMNOgH+nqhSWnHfxy/I6RpBm4MFp5JxS/V\nmX9jEfaR/hHSNENDGnIh74TP5oofiJAmX8XgImYatjFkt8lofiAbTy9ahDTRoI1hxHZnfQxw\nIQrJwAGvGiFNNGhjGLzdpbJpqXaxaTxtjEFIkw3ZGAbP7Q28XHTJ3NHQCMmrgXuadMZSqew6\ngyMkz4addnn5OOEmgrF1b8wgJAu+hcQ+IAmEZMKXoQejkiQQkgmfdzvpDJ/KRkhGfBp6EFIa\nCMk4QkoDIVnHGCkJhGQds3ZJICT7DJ25MXRXjCEkDMbO8TNCsszYDoDh2meEZJd8BzCzSyYQ\nvyAku8Q7gNldEtIXhGSWerud3SUhfUFIZom3W8HNMUb6jJDMMhgSs3YfEZJd2h2ApEtj04iG\nEJJd4h0AB2Y+EZJl0h0AB2Y+EVJBODDzh5AgUXqkhAQBDhsJCQJMZBAS5uM1D4QEAUIiJAgQ\nEiFBgTESIUGAWTtCggTnkUJcxeAiUlP6hmodISWBQyfrCCkJDOatIyRflMdiTC+bR0h+aI/F\nCMk8QvLD4Ltb4RMheaHe8hkjWUdIXshDej9SZD7cFELy4lNI07d+95rR6bUsxERIfvQeiwm3\nfo71jCEkP3qb0W39zD5YQ0i+vB/FCbd+QrKGkMIhpIwRUjjKrT/MGOnjn1pnmuMVIQUk3PpD\nzNp9WgYzhj0IKSDpFuh/r/Cpe2YMewQMyT3zsQjzUjom+ngu7MPXyxYwpC0hJSVWSCk92TyE\nPLTbV7XvRUAnTkipDsCCjpH2bu17EdCJMkZKdQAWdrJh6/a+FwGZGLN2yQ7A7MzaDR5AIZjw\n55EISSq5hxEihCSV3MMIFcZII27g5y2k9zhChFm7ETdASPgszSEyIQEChAQIEBIgQEiAANPf\ngAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACGhX5ovwo6GkGyKvRmn+ragaAjJovibcapv\nVI2GkCyKvhl//9UJsXeXFhGSQfF/A8i3exB/d2kRIRlkPKSP3ykZIRkUP6QvtRi4cxYRkkXx\nn/Q/H78RUi9CssjCMOTjb1l9+YgWIdlkeGIs/u7SIkLCSBZ2l/YQEkYzvLuMhpAAAUICBAgJ\nECAkQICQAAFCAgQICQMx6f0NIWEQTsN+R0gYhBcGfUdIGIKXqv5ASBiCkH4gJAxBSD8QEgZh\njPQdIWEQZu2+IyQMxHmkbwgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJBM4OU3\nqSMkA3hBaPoIyQDeopA+QoqPN81lgJDiI6QMEFJ8hJQBQjKAMVL6CMkAZu3SR0gmcB4pdYQE\nCBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIG4bUX3xESBuDVgL8QEgbg9em/EBJ+4x1T\nPxFSkUaOeAjpJ0Iq0OgRDyH9REgvSy5hRD1+xMMY6RdCelpuEZNTE/YvZTwwcxDS+3Jz314m\nHagVsauegZB6Fpv5JlPIjxkWIfUsNvctrIwdb1iE1LPY3DcxRjx6hPS+3AK2MEY8aoT0tFye\nqjENIb0smYwwBSEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChFQCXq/hHSHlj1cQBkBI\n+SvmNe0xEVL2SnmXVVyElD1CCoGQskdIIRBS/hgjBUBI+WPWLgBCKgHnkbwjJECAkAABQgIE\nCAkQICRAgJAAgZAhHVfO1bvrjXy9FUJCYgKGdKxcY3m5EUJCTgKGtHbbc03bqm5vhJCQk4Ah\nVZcrHqrFgZCQmYAh3do51jUhITMBQ1q44+2zmpCQl4Ahbd3q+tnB1YSErISc/l7f69n9eDky\nISExQU/I7pe3zw6rt1txXZMXAUTBKxsAAUICBGKE9PvIjZCQGEICBAgJECAkQICQAAFCAgSY\n/gYECAkQICRAgJAAAUICBAgJECAk4Nmkt/EQEtA18a9JERLQNfHvGxIS0OFePo69nt+rGFwE\n0IeQAAFCAhQYIwECzNoBEpxHwlz8SsGpCAl3E49qcCIkdEwcZ+NESHiYOvOLEyHhgZBmICTc\nENIMhIQ7xkjTERLumLWbjpDQwXmkqQgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRA\ngJAAAUICBAgJECAkQICQAAFCAgQICRAgJEDAaEhAYiZs5fpwfIp7d1l6mUsfwv49fFLy6mTp\nltm/h09KXp0s3TL79/BJyauTpVtm/x4+KXl1snTL7N/DJyWvTpZumf17+KTk1cnSLbN/D5+U\nvDpZumX27+GTklcnS7fM/j18UvLqZOmW2b+HT0penSzdMvv38EnJq5OlW2b/HgIJICRAgJAA\nAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBFILabtw1foYcfmR\nHrB1VebP3S478jofJLGQ1u3fCqiiPar7KX+oQKBuf+5FlGU3Yv3cjdjrfJi0Qtq71bF5dlzF\nWn4VZ4P656p9s/B/MRZ+ivdzt8uOvM4HSiuk5eXuxlqrW1fHWfTa7c7//XObGAuP+HM3Iq/z\noYzfvX6xHlS3jrTopTucmufmZYyFR/y5u/ch9h34wfjd63V0dZwF72OtTxf3WTnaz/0QbZ0P\nlWJI2/ZAJ44iQ4q76FbMdT5IgiEdqkhHOA1CiiLqOh8kvZCOVcydPCHFEHedD5JGSN0/NV0H\nP5vSXXqcDaoqPKTw63y01EI6LOpDvKXH2qAus3aHWLN2p7ghxVjno6UR0t0u9uRNnA1q0w61\nd24dY+GtiCFFX+eDpBXSIfpjWuYrG2KGFH+dD5JWSCvnusdZEURa9KL9qSNuUfEe8vjrfBDj\nd++Fi/6gRlr0sX31d5RFX8R7yOOv80GM3z0gDYQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCBASIEBIgAAhAQKEBAgQEiBASIAAIQEChBSB63j6xu7Dxacv6uBW06+M4Qgpgk8hLfrXxpyQ\nNtX062IEQoqlJw8Pfyd1Ee8PoZeFkGIJExICYdXF8qhmu3CL7el6xNf9wtMlz1+sHl+sXbOr\n+dcdAV2vdXSL9p8Ldzztlu7lj6E/bnpXO1f3D8owHiHFcg+pbgOqHyHdv9C95PL5iwfXDH6q\n6ni/1P1atTu0F6hPm8swrFPS46a3l+91esUchBTLLaQ/V+1P+8r93b7U+cLjkjtXH0/H2t13\nIVu3OYdyv0znWn/n75zO39udr/jXfMP1XOhUuX3z74X3n7MQhBTLbftetnHsLrukly88Lrl0\nzb7n6Jb369du2/nX0800dTxmADshPS2LwzolQorltn1fPzYfLp92vnDqfOt1uvxw/sfh7eaa\nD6vz1w+XA7rDblN3rtO50Nq55X6v/7FKRUixzA3pnML6dPvG07X+nY/t1u1kRP1yne5Nb6rz\nd6pOipiDkGIZG9Lr9a97pJ6QTtWi+V+za1psd4cPIZ0P8dYLxkgqhBTL6xhp+TpGWnYvuXwb\n0izPY6S6+8/HtdZu2044tLfXDan3pqHAAxlL76zd4fRh1q794qkzvfB3PrDbdGavu9dqdlbH\n9or/TvvuGKlzocVlRo89kgghxfJ+Hum8cbdnh3rPI12+eB/THKv2PFJnuqF7rcXl4/o6rvrX\nc6G/129hFkKKpfPKhur6aoN/izakxxe6l9yeM1vdu1ldX9nQObjrXOvveiC4Okfzb9edJX9c\nqH1lAx2pEJJ9DGQSwDoy70BICWAdWXce6PDePPsIybqlqzlrah8hAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCBASIEBIgAAhAQKEBAgQEiDwH6ho0N5en892AAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title \"Graf X vs Y\""
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(x, y, xlab=\"Toto je x-ová os\", ylab=\"Toto je y-ová os\", main=\"Graf X vs Y\")"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Veľmi často budeme potrebovať uložiť výsledok grafu. Príkaz na to bude zaležať na type súboru, ktorý chceme vytvoriť. \n",
    "Napríklad na to, aby sme vytvorili pdf súbor, tak použijeme funkciu <code>pdf()</code>, a ďalej môžme vytvoriť aj jpg súbor použiťím funkcie <code>jpeg()</code>. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 404,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<strong>png:</strong> 2"
      ],
      "text/latex": [
       "\\textbf{png:} 2"
      ],
      "text/markdown": [
       "**png:** 2"
      ],
      "text/plain": [
       "png \n",
       "  2 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "pdf(\"ISLR - 1. Úvod do jazyka R - Graf.pdf\")\n",
    "plot(x, y, col = \"green\")\n",
    "dev.off()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>dev.off()</code> indikuje R to, že sme skončili s vytváraním grafu. Alternatívne môžeme jednoducho skopírovať graf a prilepiť to do vhodného súborového typu, ako napríklad dokument Word. \n",
    "<p>\n",
    "Funkcia <code>seq()</code> môže byť použitá na vytvorenie sequencie/postupnosti čísel Napríklad, <code>seq(a, b)</code> vytvorí vektor čísiel v rozsahu od a do b. \n",
    "Existuje veľa ďalších možností: napríklad, <code>seq(0, 1, length=10)</code> vytvorí sekvenciu 10 čísliel, ktoré sú rovnako rozdelené medzi 0 a 1. Napísaním 3:11 je skratka pre príkaz <code>seq(3, 11)</code> pre celočíslené argumenty. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 405,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>7</li>\n",
       "\t<li>8</li>\n",
       "\t<li>9</li>\n",
       "\t<li>10</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 7\n",
       "\\item 8\n",
       "\\item 9\n",
       "\\item 10\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "3. 3\n",
       "4. 4\n",
       "5. 5\n",
       "6. 6\n",
       "7. 7\n",
       "8. 8\n",
       "9. 9\n",
       "10. 10\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  1  2  3  4  5  6  7  8  9 10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = seq(1, 10)\n",
    "x"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 406,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>7</li>\n",
       "\t<li>8</li>\n",
       "\t<li>9</li>\n",
       "\t<li>10</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 7\n",
       "\\item 8\n",
       "\\item 9\n",
       "\\item 10\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "3. 3\n",
       "4. 4\n",
       "5. 5\n",
       "6. 6\n",
       "7. 7\n",
       "8. 8\n",
       "9. 9\n",
       "10. 10\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  1  2  3  4  5  6  7  8  9 10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = 1:10\n",
    "x"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 407,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>-3.14159265358979</li>\n",
       "\t<li>-2.44346095279206</li>\n",
       "\t<li>-1.74532925199433</li>\n",
       "\t<li>-1.0471975511966</li>\n",
       "\t<li>-0.349065850398866</li>\n",
       "\t<li>0.349065850398866</li>\n",
       "\t<li>1.0471975511966</li>\n",
       "\t<li>1.74532925199433</li>\n",
       "\t<li>2.44346095279206</li>\n",
       "\t<li>3.14159265358979</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item -3.14159265358979\n",
       "\\item -2.44346095279206\n",
       "\\item -1.74532925199433\n",
       "\\item -1.0471975511966\n",
       "\\item -0.349065850398866\n",
       "\\item 0.349065850398866\n",
       "\\item 1.0471975511966\n",
       "\\item 1.74532925199433\n",
       "\\item 2.44346095279206\n",
       "\\item 3.14159265358979\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. -3.14159265358979\n",
       "2. -2.44346095279206\n",
       "3. -1.74532925199433\n",
       "4. -1.0471975511966\n",
       "5. -0.349065850398866\n",
       "6. 0.349065850398866\n",
       "7. 1.0471975511966\n",
       "8. 1.74532925199433\n",
       "9. 2.44346095279206\n",
       "10. 3.14159265358979\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] -3.1415927 -2.4434610 -1.7453293 -1.0471976 -0.3490659  0.3490659\n",
       " [7]  1.0471976  1.7453293  2.4434610  3.1415927"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x = seq(-pi, pi, length = 10)\n",
    "x"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Teraz vytvoríme viac sofistikovanejšie grafy. Funkcia <code> contour()</code> vyprodukuje vrstevnicový graf, ktorý reprezentuje troj-dimenzionálne dáta. Je podobné topografickej mape. \n",
    "Do funkcie sa zadavájú tri argumenty:\n",
    "<ol>\n",
    "    <li> Vektor x hodnôt (prvá dimenzia). </li>\n",
    "    <li> Vektor y hodnôt (druhá dimenzia). </li>\n",
    "    <li> Matica, ktorej prvky sú zhodné / korešpondujú s z hodnotou (tretia dimenzia) pre každý pár z (x, y) súradníc.</li>\n",
    "</ol>\n",
    "\n",
    "<p>\n",
    "Ako s funkciou <code> plot()</code>, existuje veľa iných vstupov, ktoré môžu vyladiť výstupný graf funkcie <code> contour()</code>. \n",
    "    Pre zistenie ďalších vlastností funkcie si môžete pozrieť pomocný text zadaním príkazu <code>?contour</code>.\n",
    "</p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 408,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAfQklEQVR4nO3d60LjOLNGYYdDhumB5P7vdpqEcOhOYsl6S1UlrefHfMzexJKN\nFkocBpYjgGaL9wSAERASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBAS\nIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBA\nSIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiA\nACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAh\nAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCHQIaQGS2bDK9eE4DAEoERIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASHeop1F1vPVPDnKVAk3EESHd41lSweeO\nepkyIqR72JJKlE5DPt0g539CSHfNviUV/QbR4pC2/DrSu+OKD9iCkO4TzyTZlrScVqtsEqeV\nL5vzUjW2NUK6b+4t6T2k1e/7NSEpd6WPkIKsFUJaMfWW9LGB3B2l8luDrqQlVEmEtGLyLWkR\nh6S/nEHWCiGtib0l2b9MWnlqVze+/O6A+gbGZg4hveyWhxfbIaQcSwoQku4VUv1nlxwwylLp\nGdLr07J7Of5z+rNMjzZDWJh8S4o8uv/4nzqG9HoqaL88H45vT8vdPSnM5TmZfEvSjP6xdXh+\nVzLVMaTnZX887pfd+8eH5cFiCCNTlrSULP3yjopuXBS7/K3JOAulY0gfp/707V9+/r+b/iCn\npRlDOi361UMX/1DD+Z+yO9/So0l0D+nf83O688akHsLKhCUVPROrfmInmqq4S4WuT+1+vzo6\nO5ye5umHMKOdkDgkk8u1lBy6fOCiw5UzecHVpGNIh93nt5Dl/oYU6gqdzLglrb8IqToN7Wua\nYK+QOr+PtL/ks7u7H8W6QmfzbUnr78VW3snXvvZd/xnAvvjJhjIzbkm6J3b1n11wtFiLhJAK\nzbclrX7Ddw0p2hIhpFKhSzK4YHRUhZBKhQ7J44pF/CL5IaRilOQ7YGyEVM6tpO4hhSzXfeC7\nCKncNFuSerjukTsgpAqzbEni4fy+AXVESBUm2ZLYkDYgpBpzbElsSBsQUhW3b65Fi1vEYeo+\nB1MipCqht6SOvGYe7DJ8Q0h1Qm9J3bAh/YWQKnmti1CXhA3pL4RUiZD8NqRI1+BPhFSLktiQ\nriCkak5rI9A1cZp0oCvwN0KqNv2WxIZ0BSHVm31LYkO6gpDqTb4lOc04yNnfQkgbzL0lsSFd\nQ0hbOH2nDXFZ2JCuIqQtZt6SfKYb4tTvIaRN5t2S2JCuI6RtfBZJgOvChnQdIW0z65bEhnQD\nIW006ZbEhnQDIW0lnGOeLclnpoMuB0I6mXJLYkO6hZA2m3BLYkO6iZA2m3BLcplmisVASA2m\n25LYkG4jpAa6aRJShyOZIqQGk21JbEh3EFKLubYkNqQ7CKnFVFsSG9I9hNRkpi2JDekeQmri\ns2JcLo/PBEdeCYT0ZaLndjyzu4uQ2kyzJbEh3UdIbabZktiQ7iOkNk6LpvsFcprc0AuBkL6b\n5Lkdz+xWEFKjObYkNqQ1hNSIkFo+t9+hrBFSqxlKoqNVhNSKkLZ/br9DmSOkZkV/vVh/KOGw\nwpGcLoY/QhIYOiUyKkJIEsOmREaFCElkyJTIqBghyShfZYdIyWsWs3z1CekG6WJyT8kto6Rf\n/C4PCTiECa/vyw3jLp+PXb4fpeqIZERIal6vFLaOuxwvV/vro05D2x6qN0JSy5XSz5C6DWt9\nqP4ISc8vpQqXxxy/Qlr+LEo8v26H8kBIFvK8aPgW0lI97+lv1X1DSCYy3MZaLun8/Rqp8PHK\nueiO5YOQjCRZZptDSnJ+3RCSmRRPfLaGREZ/ICRDGV6Kn+87LJ8f9Z7NGBkRkrEhv3Gn2Gp7\nIyRb472UGO+MJAjJ2lgLb6yzESIke+MsvnHORI6QehjkVQUZ3UZIfQywBgf5bmCEkDrJ/qwo\n+/ytEVI3mZdi5rn3QUgdZV2OWefdEyF1lXFJZpxzf4TUmfLUeixL6Rh8XRsfEnAIN7lWZrbu\n3RBSf3meK+WZqTtC8pBjgeaYZRCE5CP+Io0/w1AIyUvshRp7dgERkp+4L+Rz3RAJgZAcader\n7GBBpxUbIbkSr1kN6ZSEBwuNkJyNvNRGPrc/9Qzp8Lwsj78+DnL3KBN9AcZdbqOe13UdQzrs\nTk8cns4HIaQvIy65Ec/pno4h7ZeX3zW97B5PByGk78QvTZyNdTZlOoa0Oz/wbffwRkhXDLL6\nBjmNWh1Dulzgw+PjtZCsbhxlkv7M05/AZh1DelgOl48e2ZFuyfttJO/MFTqG9LI8f3z0tjwS\n0h0JV2TCKWv1vP29/7zYv1au++RflGOyhZlqska6viH7+nT56O2ZkNbkeKqUY5b2+MmG0IKv\n0uDT64mQoov6LT/qvJwQUgbh1my4CbkjpCQCLd1AU4mDkPKI8GQqwhxCIqRcXNcxEd1GSOn4\nbApsRfcRUkqdVzURrSKkrLotbioqQUiJ2T/d4gldKUJKznClE1EFQsrPZMFTUR1CGoL2KRhP\n6OoR0jAafpPdH7zPJCNCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFC\nAgQICRAgJECAkAABQgIECAkQyBgS/zE0wkkY0tJnDkAFQgIEMoek+7U5QJltS1b2EOkQ7EiI\nh5AAAUICBAgJEEgYEu8jIZ6MIQHhEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAA\nIQEChAQIEBIgQEiAACENo8Nv+MBNhDQE7fInpnqElJ7NsiemOoSUmu1yJ6ZyhJRWn2VOTGUI\nKaW+y5uY1hFSOj7LmpjuI6RUfJczMd1GSGnEWMYxZhEPIaUQa/nGmk0MhBRezGUbc1Z+CCm0\n2Ms19uz6IqSwcizTHLO0R0gh5VqeuWZrg5DCybksc85ah5BCyb0cc8++DSGFMcYyHOMs6hFS\nCGMtv7HOpgwh+Rty2Q15UncQkrOBF9zAp/Y3QvI0/FIb/gQ/EZIb9SLb+JtOrlBPS3q8oAjJ\nR+jlGnpyQRGSA/HCsrhJRkuVCKk3fUXKw/08cpKZRkBIXWVbm9nm64eQOpI/XZIers8oo6ZE\nSP2Iz6rbRco6764IqZu86zHvzPvpGFLFmxUjXurMqzHz3DvpGNLL/ZDs3hIMIfcrDfULJenR\nQuj51O5192g9RFjpF2L6EzDW9TXS67K3HiKoAZbhAKdgqe/Nhpfl1XqIkIZYhEOchBnu2nUw\nyBIc5DRsEJK9YRbgMCdigJDMDbT8BjoVNUIyNtaN49w38S0Rkq3RVt5Y3xeECMnUgMtuwFNS\nICRLQy66IU+qGSEZGnTJDXpabQjJzrALbtgTa0BIZgZebgOf2laEZGXoxTb0yW1CSEYGX2qD\nn149QrIhPQP/t4/+Jv6tKMqDuSAkEzOsshnOsRwhWZhjjc1xloUIycAsK2yW8yxBSHrzrK95\nznQVIcm5rS6HP0ZBSReEpObXUepB5QfrjJDE8ndESVsQktYIHSUZOBZCklJO3O/FSu1LM6eB\nQyEkJa8lZfGHxmo+WTmw8Fg9EZKQW0fCcd0nMM/XnpBuGKojSqpDSDKDdURJVQhJxO0lt+G1\ncisp49e/y0MCDiE2xt3nloNPfhuckCTG7IiSyhGSwihvH7UNMPUbSoQk4LaAon0pJi6JkNqN\n3BElFSKkZuP8OINgnGlLIqRWA972bhlq1pIIqdEEHVFSAUJqM0VHlLSOkJpM0hElrSKkFsJ5\nxnr7qG1I5W2QgZcCIV14rReXy+M1w3HXAiGduX3fdbo6biXlWA1dHhJwiGZjvw3bPPBsL5QI\naaPR34ZtHnuykghpm2lu120ffq6SCGmLEf8rPv0EpBfJ/cxXENIG0uml6shxugHO/R5Cqjdz\nR5R0AyHV8vtTdUGuCiVdQ0iVtFPTL8qvvyZR93cl5BOp/9z1g421LqYOyW9hFHb0+ZlfH8n5\nbaNDLYyZQ/J7qlL4yV1Ccnzja6SVMW9Ijmui5JOX49WQLP7QmN+PYkR9ekdI5RxfHhUv7m/7\n0ObXSEWD8fTuJ0IqFvw2w59P6Bqe2lWMJzyg09FECKlU7I4uO4TmNZL86d34JRFSGfFTc3lH\n3z9Q3GwIXlLABdLlIQGHqCOekFlHl1dGy+dHW8UuaYgVMmFIeTrSoaQqhFTCcT6E1OVwzQip\nBCG1D0xIgocEHKIKIbUPTEiChwQcoopuPuU/PFAxNCH5I6QSsvksf/yvZmhC8kdIJQipfWBC\nEjwk4BBVCKl9YEISPCTgEFV4jdQ+MCEJHhJwiCrctWsfmJAEDwk4RBVCah+YkAQPCThEFflr\nJO0jCMkfIZVgR2ofmJAEDwk4RBVCah+YkAQPCThEFeF8av/bBkLqcrhmhFRCGVJlSoTU5XDN\nCKmENKS6XYmQuhyuGSGV0N21q/iVV+VDE5I/Qioh3pHUn09I/gipBHft2gcmJMFDAg5RhZDa\nByYkwUMCDlGFkNoHJiTBQwIOUYWQ2gcmJMFDAg5RxXEREFKXwzUjpBKE1D4wIQkeEnCIKoTU\nPjAhCR4ScIgqhNQ+MCEJHvLhv3+eTm/rP+3/sxrCBiG1D0xIgoecHB6+/VW4R5MhrBBS+8CE\nJHjIyX7Z/ft6+ujt127ZWwxhhZDaByYkwUNOdsvr58evy85iCCuE1D4wIQkecn7ccutfPv4v\ndX8PuCdCah+YkAQPOWFH2nI4QupyuGZ9XyP9ejt9xGsk7ecSkr+et78fvz13eziYDGGEkNoH\nJiTBQz78tz+9j7R7+of3kZSfS0j++MmGEoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQke\nEnCIKoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQkeEnCIKoTUPjAhCR4ScIgqhNQ+MCEJ\nHhJwiCqE1D4wIQkeEnCIKoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQkeEnCIKoTUPjAh\nCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQkeEnCIKoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4w\nIQkeEnCIKoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQkeEnCIKoTUPjAhCR4ScIgqhNQ+\nMCEJHhJwiCqE1D4wIQkeEnCIKoTUPjAhCR4ScIgqhNQ+MCEJHhJwiCqE1D4wIQkeEnCIKoTU\nPjAhCR4ScAhX6vMzuF50VIeQSkn/jmDdodaHll+w2B2F+5OOhFTq/UunnFXtIlwtSXrJio7m\n2JH0aBqEVGb5/IfygMqhe++XdPQDIRWRd1R+tKX0s2XTK9qO6OgnQipiEFLp4cqHXkR0c9/w\nyasHC7c2zgiphEVHpQc8vUIKdkGqtiNtR8qDKRFSkc9bDYXfsQuPWvjNP3VHbiP3RUhlvq3l\n3rfBP9OV3oBv4NZRkPO/ipDqOd0GL7kL3oNfR8qDqRFSscuknJ7027xOq0dHVxFShfK7WjUH\nLfuc88j+F4aOriOkckZP0UveIlqiPLHz6ijyy6MTQqrhVlKUV0huHQmPZYOQqnx+Y+z+rCXC\nXXC3H2fwPvEChFTnc2bSVV1zF9zv2rj9OEPc5fCFkDbzWipeF8erI/eNuAghbef1Hyj5XB23\njnSHskRILZy+73pcHq8frxt4KRDSF68fcuh+gbjNsIKQ2kzyQomO1hBSoylKoqNVhNRqgpLo\naB0hNRu9JN6GLUFI7cYuibdhixCSwMgl0VEZQlLw+jln++vk9fbRDEuAkP7W/WdYL59qfKXc\n9scZVgAhXeG2ikwvFR0VIyQRt+c1htfK7XZdxq9/l4cEHEJvuJK47V2BkHQGK4mOahCS0FAl\n0VEVQlIapyR+nKESIUm5vaEkvmK8fVSLkLTGuA2eYuBYCElshAVNR/UISS1/SXS0ASHJ+ZXU\n7w+NbZle34P1Rkh686yuec50FSEZmGV9zXKeJQjJwhwrbI6zLERIJmZYYzOcYzlCsqFdZQGv\nxyR/Y7kYIRnRnkK4CzL46dUjJCtDL7WhT24TQjIz8GIb+NS2IiQ7wy63YU+sASEZGnTBDXpa\nbQjJ0pBLbsiTakZIpgZcdAOekgIh2RIvO/cLI56B+/nIEJKxsVbeaN8XdAjJ3EAlDXQqah1D\nqvivXoa6xOMsv2FOxEDHkF5mDWmUBTjIadjo+dTudfdoPURQQyzBIU7CTNfXSK/L3nqIoAZY\nhAOcgqW+NxtellfrIYJKvwzTn4CxOHfttv7+jSRy3zge6ya+hTghdR6iO/E5db1EmefeCSF1\nk3c15p15Px4hrT9PGPJSp12PWefdFSF1pH6l0eUypZx0f4TUlfg+ivltmWzz9UNIvaVZm+q7\npwNXdCQkF/oVKr9g6kOOXdGRkLyEXqihJxcUt7/dGCzX/n+Oomha0uMFRUiehl9kw5/gJ0Jy\nNvBSG/jU/kZI/oZccEOe1B2EFMJYP6g71tmUIaQwxlh+Y5xFPUIKJfcyzD37NoQUTs7lmHPW\nOoQUUq5lmWu2NggprBzLM8cs7RFSaLGXaezZ9UVI4cVcrjFn5YeQUoi1bGPNJgZCSiPG8o0x\ni3gIKRXfZUxEtxFSOj7LmYjuI6SU+i5rIlpHSGn1Wd5EVIaQUrNd5kRUjpDSs1nuRFSHkIag\nXfZEVI+QhrHxN51c4X0mGRESIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCBASIEBIgAAhAQKEBAgQEiCQMST+G06EkzCkpc8cgAqEBAhkDkn32z6AMtuWrOwh0iHYkRAP\nIQEChAQIEBIgkDAk3kdCPBlDAsIhJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFC\nAgQICRAgJECAkAABQgIECGkYHX5VDm4ipCFolz8x1SOk/EyWPS3VIaTkDBc8LVUgpMTsn4Lx\nJK8UIWXVbYnTUglCSqnz4qalVYSUjs/TLZ7k3UdIubguZ1q6jZDyiLApRJhDSD1DOjwvy+Ov\nj4Os/npv/BBoAQeaShwdQzrsTj9/8nQ+CCFVCLd0w03IXceQ9svL75pedo+ngxBSoahPpqLO\ny0nHkHbnB77tHt4IqVDwxRp8ej11DOly0Q+Pj4RUIMe3/ByztNcxpIflcPnokZBWpFqeqSZr\npGNIL8vzx0dvyyMh3ZFwYSacslbP29/7z4v9a+W6T/xFyftUKe/MFbq+Ifv6dPno7fmvo/Df\naA7wfT39CWzGTzaEMcgiHOQ0ahFSCGPtwmOdTRmPkNav8mRfhhGX3YjndA8huRt1yY16XtcR\nkrORl9vI5/YnQnIlXWoNv8nO6pbpPCkRkqOgazbotGIjJD9x16s2JeGx4uL2txftr0bVHUt/\nxCk2JULyEX+hxp9hKITkIccizTHLIAipvzwLNM9M3RFSb7leyMe9IRIMIXWWbWXm6t4PIXWV\n8blSxjn3R0gdZV2SWefdEyF1k3k5Zp57H4TUSfalmH3+1gipjwGWoTQl3aGCIKQeBlmDA3w3\nMENI9sZ5VjTOmcgRkrWxFt9YZyNESLbGW3jjnZEEIZkactEN8opPi5AMCVdcnIzeDXti2xGS\nmaG/cQ+51bYgJCOeLyW+foGJ3W9q5KXST4RkwnWZLcfLFfz6yAApfUdIFnyX2M+QDA395LUS\nIel5vRRfvv3vJaSPA1j9XjvuOlwQkppbRp+f/C2kZcu1JKUNCEnLOaPlkk7bayRSqkZISl4v\nGn6Oq7jZsOk5pUDalAhJx+s21p+fq7lr1zKDFklTIiSZIBkdL+8eLZ8f+cxi+7i6Q/VDSCJO\nrxTi/F67yV8qEZLEkBnVjjB1SoQkMGxGtaNMnBIhNRs6o9qRpk2JkFp53fHWDasdbNK7DoTU\nipC2f26/Q5kjpEYzdERJ6wipESG1fG6/Q1kjpEbCF9cuoxoM6HNJnBFSmzk2JLakVYTUxmfR\nOFwfn9kNvRAI6ZtJntnx3G4NITWZZkNiS1pBSE2m2ZDYklYQUhOXFeN0dVxmOPJKIKRPEz2z\n47ndfYTUYqYNiS3pLkJqMNWGxJZ0FyE1mGtDYku6h5C2m2xDYku6h5C2c1ksrpfGZ5opVgMh\nbTbdhsSWdAchbeXzPdf5yrAl3UJIW024IbEl3UZIG025IbEl3URI2zgtE/cL4zRX9/NeRUjb\nTLohsSXdQkibzLohsSXdQkibTLshuU03xLnfQUhbzLshsSXdQEgbOH2rDXJV2JKuIaQNZt6Q\n/GYc5PRvIKR6c29IbElXEVI1r9UR5qKwJV1BSNXmfmL3ji3pb4RUa/oNiS3pGkKqxYZUNZdZ\nSiKkSmxIR7akKwipjtu6CHVJ2JL+Qkh12JBO3GYe7Dp8IaQqoTekRcRh6j4HUyKkGm7fXdWL\nu+dgc2xJhFQj9oa0dSLWg02xJRFShTk2JLakLQipwhwbUvAtKejiIKRybrPq3BFb0gaElED3\ny8GWVM0hpJfd8vBiO4Sc6+tlh6tBSbV6hvT6tOxejv+c3qt4tBnCyHIsenel9GiVB1v97NoD\nKsYkpJ86hvR6Kmi/PB+Ob0/L3T0p2JVajtopnbosPuB6R6cjtk2petDCz9nyub2PJtExpOdl\nfzzul937x4flwWIIIx8hKd+oqdhEikLS7pklo3qGFG2BHLuGdP5KL0/f/kU9hJHFs6T1T/vY\n3vp/02dL+tI9pH/Pz+nOG5N6CEvKZ081xyrZGhZ9SGxJdbo+tfv96ujscHqapx/CkvQVvfCJ\n3eV46hsObElVOoZ02H1+rZf7G1K8y3SsWfslB1N/pv6+HVtSla7vI+0v+eyu7Ee1P8nfm8+c\nPK8EJVXgJxsKqab08U2i9HCE1OlwrQhpxWV/FE3p835d4Wuf1U+oDLMKJZXzCGn9mVuca3SO\nSHnfu+p4a5+4VB2tljikoUsipPtqV/7a4eqOV3ihspRESK0P+eMAiUJSL9Xlx/8UfrbqcNXY\nkooR0hrlK6Tj5eRFr5DqDrdB7C0p0johpFXiNzsrbu8XfZrBe7FVU2BLOiGkNYt4OuL3YtXT\nq58DW9I7bn+v8fjRm4rPtH7zmi2pDCGtmLwjtqRChBRWkIsQe0uKcpUIKawo14AtqQghRRXm\nGrAllSAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQI\nCRAgJECAkAABQgIECAkQICRAgJAAgaAhAclsWOX6cLbqM5WBRhnoVPKPQkh5RxnoVPKPQkh5\nRxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPQkh5\nRxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPQkh5RxnoVPKPEigkIC9CAgQICRAgJECAkAABQgIE\nCAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJEAgUEiH52V5fjUf5uVh2e0P5sMcX2wv\n7X43xGmcx+jxJTFeXoFC2p3+DoB1SfvTKDvzJfi65U8alHs8ncaD5RAnxqdx0udLYry84oS0\nX57f//FkO8rr8nx4/zb7bDvM8XVnugL/W3av72P8ZzjGO+PTOI/R5UtivbzihLRb3r8lWX/d\nns7Htx7mZXk0HWK//Pr9z3+XfwzHONqfxkmfL4n18ooT0tmy6zOM8Xkve9shnpa34/v3cuP9\n2/o0fozVYyC75RUspP3y0mOYw/JoO8Cr8cJY+mys1qfxjfmX5J3h8goV0r/L72+BPbycnhnZ\nGiGkPkOcdPiSmC6vUCG9PO2sn/WfvO2MnxK9I6QaPb4kpssrVEi/PXd4bnfYdXgWQUg1+nxJ\nLJeXf0g//4z0wejl4PdRHs3efvk+iukK3A0Wkt2X5Cer5RUvJKsv3Ncobw+PbyZDHDuGdL5r\n92Z91+7YJyTLL8kfzE7HP6SL843+N+t363/1uDv0znQF/nN6af6rw72ZDiF1+ZJYL684IZ3e\nej48Gb9GeuvVke0K7PWTDT1C6vMlsV5ecUL6+GEo44v6vCx/PJe0YjvEQ4+L9c7+SnX6khgv\nr0Ahvf9A84P1PbtlkJAOp5/+thzhg/2V6vUlsV1ekUIC0iIkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUIC\nBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQI\nCRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQ\nICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAk\nQICQAAFCAgQICRAgJECAkACB/wE7xU1v6j0JwAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "y = x\n",
    "f = outer(x, y, function(x, y)cos(y)/(1 + x^2))     \n",
    "contour(x, y, f) "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 409,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<strong>png:</strong> 2"
      ],
      "text/latex": [
       "\\textbf{png:} 2"
      ],
      "text/markdown": [
       "**png:** 2"
      ],
      "text/plain": [
       "png \n",
       "  2 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2di3rkKA6FSac7m51Nx+//tjupqy9cJDgS4Drnm+kuG4Qw6Lcw\nrqTDQlFUs0LvDlDUGUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCC\nRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgU\nBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEA\nESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBB\noiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSK\nAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiA\nCBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAogg\nURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJF\nAeQAUqCoyVQR5XhwOrigKKQIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgS\nRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEU\nQBOD1NqPsr26xt4gXxxiB+FQmiw5VkWqxX/0ylKVs8WIS3O5LU8MUmtHBObFKqVpl5OUic4u\nJCk4yl+2kgw8SD7LmxcGiSkpJ633JDuGCcknTGSaGSSmJDuS1Alp/atGpQkp0msNSGGR/H5T\nH47mBmkAkgopaNqUpPYdluX+i3ulCanMUfa6QqFc0ITA2jAUCVKmwklSkj4hrQJbkZD2vzRb\nl5Aebgu1GiT+pd5zgzQASW0paX2czkTuIOkR/jfeHhAlFnn747WJoPqxkyKS2iNEhtLkILUm\nbkCVM6YkdUJa7vEW4pcUPTyuBDUJ6V7FlKPrjUHSyGuDZJCSlCApU1IGIOC0qN1ukpE8w+xB\nUiWkexO2IMk7YtJqVp9v4dcnzIV5StIuwmdJSc8QvGeGxxl1QgqP9Z08Id1Mqld2977ni8st\ngOQJ0tfv8Pa5/OfyzzK9w1x0X9z1SUmtJD1j/pBJNOnv0cQDQyEYt/obEPQrO+1dzk6OIH1d\nCPoIf76Xv79DNicNBZJxSootbRxS0gGkTDeKCWnfXLxDe2YKW3aAm1xTbBzyM9pVbe/+hI9l\n+QhvP5+/wy+Yi94kaUHKgJUI1PyH5wnNP9F4BOmQUuQJSbRld4BmV10DUvSVVaRavrhgK/NR\n76q2d7du/V4dbItr/0HOtvtOe51RUpJKqygOIRbW8oS0LKttA1lC2mUxQf1jUTlK2jgSuWjx\n1QbSf69rumtiwrhgStLpAs4hIx1aEiekdSPChBQ7qwWpHObNICmacATpz8/T0VXfl2UezIV5\nSspXKoKDTUmZCFeoCJLE3aZ+SJclOpndssteVSjWKBcXJHLR5Ky2f99vqw3XbEJyBWmAlBQp\nME1Jd5sNSPulnWJhdzQ6Fsb6mNuykwy5KUjHzXy0s/r+fdzxecvmo4rFSk1vVMaqlJQNsHxr\njinp+WT0eI+U60ghIe1DW8eF3iAUv/vdyNGyqJ7WXUGyc2FOEnZtV5eSJEkCJnFCemyghUhh\n4jCybFKt7B4ptFClTaoGCFLvlBRiMRb9AF7cZZXOQ7vuPCE6lkXau9aObCzrE1JBvhydBaTO\nJDWlpBJIXVKSPCFFDo4dOiKTun8kT2xLyxfcOiT272CGBKmpV0xJe4kT0iYZJe8OsdzT/K2G\nvByitNXf+UDqnJKWZf2gL0pJmUhHSOLmUfRMRqKEtEti0fq9QfKJvzFBsk9JuVqCQMgt7u5v\nSDfnRSDZpCR5Qrp8Ov6IXn7dVn5CUo11dSWk8XlA6ru4U6/tUg8bI6QkTUJaHSVXdkdMQmKv\nPXlCVKSuBTQmSApbm5S0X+n0T0m6hBTpQYGjwtIvbiIoUlaCGp8IpK4pqRmkkIPFlyQlR4c7\ngSlI9gnJLfiGBamlZx1TUgilLxWMDRITUqXVKUFqJqklJSXfqShJAqnoKJqQNCDtdIKEdC6Q\neqakMjdpkpL1dCCBlQMkn2VC4nzBkcBmWI5OBtJQJAFA6kmSNCGVSssXfYaERJC0poqbpZSk\nyE8LHw1yn0xB0lJdSEg1w1QuqKgFtj0ZSB1TUtPaLiS+MBO9zbukJGFCKqYrZEJqvddZmp4N\nJPuhkE9z/kFicxyWze/UKTyWHOoZgpRPOcXnJ8FqFg1Sl4REkPSm5SebTM0MSeIv3HmkpKwL\n+cpOAIl8ZTdyQjofSLOmpNR3ZvqQpOXoHAnJOewGB6kfSQ0p6fAzzZ1TEhOSgy1BEp+XghQe\nQB2r9SCpZ0JKXcnYHJ0RpBlJun6Kfa2gANJyNAAo1wsFSHMlJPegGx6kenOpofimKQfp9iNJ\nQ6SkhoSUBenECYkgVVm2gJR6Srr+MURK6pmQEtfReIsztaw1Hx+kGVPSHaRINe+U9JIJqUPI\nTQBSL5IaUlLYF/RLSQ0JKcVU/IQcpOETEkGqNBTPtzwlCX6YopCSsD9GUUhI6pVd3eDkztZW\ng1rWNzADSOOQJH9KStcSpwaoXikhdQm4KUCqbkJsF63YkpLSteQZAaga90YJafyFHUGqNzx7\nSmJCsm5iDpBmTUklUrxIqnKeAWnkhNQp3E4OUtu8CYMjHWZVYWsJUny5BuCodqySIkg2LkZJ\nScq13RgpySEhSVd2UySkM4PUh6S622wxGuPMRNMGROKEVOpZ9DB1rktC6hZsBClXsXltN0RK\n6pOQmkDqm5BODdJMJLWmJOysKJyJQDp/Qjo3SLXt9E1JdbFrD9I5E1LHUDs/SE0kSaNBmZIS\nYWpCUvGxRwlS5ZCkqkVFkExdzJOSNKsl65RUtYZLMBc5TJ2bOSGdHSRrklruq8OmpIESkjVI\nXQONIOUrGq3t/FJSVULqu7LrnpBOD9JLpSTwj1EYJqRBVnZ942wukCrbAoPkkpLg6p6QpBfX\nnyOC1GqGS0m1sWo2H8WEJALpNRLSC4DElFQrJiTbxmYDyZakppgYOiX5JiR/kLoHGUEq1jtF\nSmJCMm5tOpAi/5IX0GqElFRzfc/tudunzYbdkvid/kqQ4j3DgmQ6u/L2XEy6u7Ac7Fgt6bnd\nyfXWs+JjzfWF5T7MYXOUbxzRq6bxqqyFscq26GIygItQeduurTU6SluQls2YnxyjulAoNepi\nMoaL06Oked26Buly8lGGwSixlO2OkQlFy2uBVDmK86Ck0QqkcPm0X9219URwmbpztbXabYQt\nu5gM5KKGJeHESs/1RimEDTcrgsKuXm0vxBjV7zFUTaNlXLmYjOXCCqXKBBQ9aZ6ViiC5YFSb\njszuhtV6RZCq7k3+KBU/NqF0AGm7tEs0Xvw4KEamyejqwcVkRBfDo1S++cepEuoaW+HxaR1s\nZSeqrbr+GGkt9HpZkE6BUmhCKaVEq8Qo68XFZEAXFzfqMa5HSdxaC0rgn0cywyg2HDYY2a/p\n7o5cTAZ0cfdkg5LUDowSVnYYSe80otaQBvV6dZCMZke+chkWJV+MKscUa9AigkSUCp0iRiJ3\nLiYDutj60466O0rxj1YoCXYJ47ULJ90wcns0enp0MRnQxcHlgCjFK6RCGzZoZQcpyAud8cNI\nVx8hgvR0aoGS8JwgyIbctVPBIR8MSWuw+hgRpLVb5RwI6mvirB0lrMAYVaUjgymxEUHaeYbf\n/mZFaQyMSjXa6gNFkA6++6J0PN8FpTqMUvng9BgRpKh3+BaRJpCKKEXPe+/aFbtZOC8Yspkw\nIkgJ//BZ1DxoF2J0gF07DUZVewzjb3cfeuBiMqCLYhfAKKluy3KUeuza6TCqSEeTJaNrH1xM\nDFzYD15nlA4lggjHSoxROh+cDKOMq1lBCh79QO+96sKqM0oKjARNCGrfirFDjlPIu5oUpODU\nEfTtcRqUmjAK6RL98CDrV0uwn1TRaFVXYC7C9g/z0USjpDLphFILRveY0+8xjIqRKOtNCNLP\ndYXlMY72izzsFlK0UPOUMcKuXcZl5jGiMK2Crklbg6mwoFtVrGhbb4J2cbm41Y0vGI8rdpbj\nhYp9h0R0m+7aHebk0K2baerGVjEkufo+63q5l0lBela6fQzWY+uCkjQtFfaiQcp5iaen6/8h\nMn9gjHT1q6SMpzlBWqWg2yLPo1P2KKVnzx8lHUaPiYjuA82GkXhBtzKp8KI3gbt4XOltNVFx\n5RWC7s2mkUkxlj423bUTYXQrOXzI1wcPKUZ1LiYF6Vrref+zfkja+ETVT8ejLF3ZoZRpOfVo\ndP18/2Ndp+JmgqqvVv0NeWqQbn+s91s9bliw+rltb1FaskEpi9Gx9nO67osEYbdGw6gp280M\n0rXq4+E2rE6YCrjFlA2zxI5E8tB21y7R283QKx6O1LNkPKutUTM9SNf6u+WENUvAKNA/Rgmi\nGyOZo+fQP+9peYtsSaq+5YQi7r2eIH3/CeH9n1sj2VbULo5DYZ2YvFCKFbqgJHXyWGBrslFT\nV7ACxYkjSN9vl4XD72sjWJASzRjPAKp+YXc4tqDanrTdtYv24fFg+gQp04CsBFNf1TSscUeQ\nPsLnvzR9vr1fGvEAaTFOTLi923w3Eyylj1pVbPvx8iGs13bP0tyFKntiuHJFNu0I0tvV8O/b\nr79+IF1as50NVdv63YW0nRVKpXafHQ274+NRruVyP2ahaHEF6d717/f3xPTENo5AGicx6R+J\n0mWHBRhE2d7mL1Z9M6hrqU02AeZictGv8H3/9O6ake6NjnKDKy3jMk8XmexgoGPjtT1HjlCb\nrJp2BOkz/Ll9+hveO4B0aXiQ+1zh8pUsid2qpEpGhYtXDc18FC2uIC0fj8v4pzTutS4EGmSi\nCjWzLCnbqpImGZUuWzMqY9zoKpp3Mbnp6/f9098/3UC6tG83qPKWSxXTndQtuWoUeSuXrFm+\nDrFTw0kxDykXkwFdGA6uuOVyPTlLyIs5vIut38xWDEXv2Wh042IyoIurH7NRlgeQoKV4nUjW\nAEnUQ8nQwW4odbKb3ogvF5MBXaycGY22sF1JpURLDguWJMSiXss8TLdHG/XnYjKgi51Du+mU\nVBLU7sFSA0WyAT0JRBefLiYDuog4tRl/eaM/FXN1E/1zvQfIFnTSXKTvlcR3n+hxMRnQRcqz\nxTxII2tZXbl4w+56tqpfma5UIiuN457DbCOCFPFuMSP5JsP9j+cqL2kT7R20x7G2ymMiHjWb\n0e0I0aUHLiYDuih2AT8zmSZ/Sh4wXf66UaV4TNHuzaUlcie9tMqKcnVn6NoLF5MBXUhkcJ/L\nNLgGaYn8hI+8JawKjhSDZDGaI0D0I4JUEnyuUu1tQAoSz/ZhVPCg6YDBMA4VJi4mA7pQCX3n\nS6yfjnsNoi0yYMfkTauGxGD4hgsRF5MBXeiFj4bomXDITMWdCu9de91IONyDBhBBUgk7jdHG\nwv3P3TNT1jW8X+knOZ0nt371FkFSC7qwSLQVwm6pl6296hdEOQft11alEVdzGxGkOjnAlDjf\nJ6S0Tj3GZygRpHp1DBZPmtS+gH0bPhE9RJDa1PPO6xBkahdgiEBNOYggtas3TEajRYg0IkgY\n5R/TjduC01TjH3rxkKZcRZCgKux7VbUl//4NTCYdlDWGaKuHCJKJTGJskFE587XViyDZChon\nXaMO6/ws/DxEkHyEDRxHosCuTgfQXQTJV0ZxCR+wWfo5jAhSJ4EjK4AF7haouYFFkDrLIny7\n6nQXJBNBGklmmcFM8/XYSARpbI0VqGP1ZigRpNnkF8zERiGCNL+OAY9R7+uaSgSJogAiSBQF\nEEGiziy3FSpBok6ssHgFE0GiTiyClCqgKKmWFUjANpUhWxHlODEjURAxI1EUQASJogAiSBQF\nEEGiFEI9SQufq2eS23UQpCnlEfInxMpQBGkS9Q7r3v5HF0EaViOH7sh96yOCNJBmDc9Z+40U\nQeotUAimtgzqNMAFTSaC1EugYLOJ2aE7N6QIkremitGpOttVBMlLU8fk1J13EUGy1qli8FQX\nAxVBstKpY+7UF1clgoRWrxgLQNn10rSZniJIKPWLKXwQVnbhlYEiSK3qGkOmYVfbn5cEiiDV\nCzXZVc14RVqdH+TITBIMLiYDumgTbII7Rqm5S+QYjR8RLiYDuqgWblprV07ZQoRqvGdsdBY5\n55CWbESQFAJOprqlvG9slBVd6bve2qVa324iSDJBp1DZVMG3TXCVfWqvobVH1b5dRJCKwk6c\nqrHiYso2pgTOlRfT3qe1b1hrABGknMDTpWmt7NonlETdUF1Vc5fqXBuLICV6gJ4keXMS15sa\n98+5/QOV9H3XDJfBwA6AE0E6OsdPjLRBket9HfxgxToh7Zn4QvXdwrg2EkHa+DWYDlmTwvvq\nrtLlyGSwop0Rd1F6xRUdK7oGtyn27WIyoIuDS4tJgIbUsVq4/G8VPvFmqztbX0unTjQRJLOh\nF0ecrFYsqJcrSIvZiMV7J4cJVkspf5peHCTfu3msWkVbm+Pw+Cu3faCTpI/ilFOuZLX/6ErT\n64JkNszSdiXVYm1dmFkdXP8Hbytnj3O9KzaWrmY2Gy7h5GIymAu7wRU3LKiXamu9kgtB41Qh\nKUvS3TypU7tpsY4pF5OBXBgOqbjlcsVcLzcgGT1j3Pog7JNgTIFjUytbmF4JJMv7krzpYsVM\nU899hfCo6vodoVzXBNdV6RUnu6ZfBSTLgFO0XaqZzUSPLzAsz80FaR/rJWdJ9HUiude5YHoF\nkAaBqBRG2abWZffNhXCoAlKp44WOlq4yV6xpqkH4m9DpQNp9fcb0ro0LihJExUCGXmYjS00X\nW+4KTNDYOBdIm6GxXflgU5Gi8Fjb4kIjbUZY0vRbVSz30yhY4+cBafUMvtjeyXSjb0+RuCtK\nCZw5sWQPU3PrpwHp+lWZsFgCdHWk8TAvRWKXXiwZX2wrTLODFFZ/h3D7z0y60balKPbkBFLe\nT1+WRoVpcpAe3NwWdkFjrOyTbpSRFLXGslZ1FCvaUxUfa48I09wg3fLQsqyfkEzeEugabYgc\nQYiWOWuXgFRVN6AsWS9pj2lZYFPhRm9i5WLF0DUXWWQk7ai2UVQ+oUgFTUIv8uAs2QaidgVS\n4UFvYuVinYeW20IPOr7q6bKmSOWtXeA+YVkaCqZ5Qbps0j0zUFj9D+uGOr/nDfLPEe0nTATu\nWMMQYQy0ErI0K0hhi89icHvSN1cwUIVXzQmQEF05XqKorFwcMTAPSImHOUF6XJlFHhL2QW2R\n46h8pi14VcJArWhfVQyxUHsounAEqXDfk7tY295awg/l63IE8n4ukoooOYL0WVhACClzeTKo\ncGLJkeApBDoq5QRzPFFuRFQkKI5ZdEfJc2n39fbe7MLpARtuoomqcpCqVlI1qnhQUrE9zu1d\n5aP+ikAmN32Fj0YXLhj15ghwol3G3ZqTpNwdHtlYUZ/hy9pFu2qWdafjaEaS+kaNi8mALpC+\nSyYzctSdpDEjE+n73CBNzBH6PVJfkgYNTaDrM4NkcR9046jQD7FmJqlf5LiYDOgC5rd+iYL9\nDgFwzLAkaQag0JZAE4XOeUGy4EhTVIzKDHrQIYOS5LvlMFHsnBWkqmWBJUeC90khVbVR6YZH\nfzXba3lHkJp8AjmqeQ0r7EaNGpJS51ez04TPKUEy+fni6bYZZK27bjnUzUuHAHIxGdAFwuGZ\nOZqbpCki6IQgmdz23Dkye4/UmaQplncEyWqm/DkqdEis0UiaYnlHkIzWDvNydBaSho+ik4E0\nAUeS10fQISNJHr5OBVLlss6So5rXR/bvkRAvlPxJcgwkF5MBXbQ4Klo1cSS3sElHYieASxEV\nXcsHT0qvDRI5Sms0kgZf3r0ySFY3uVNwdB6SnILJxWRAF9VOkBxBvhb0/GD+HgmwT+JP0rDR\ndBKQrO5v6Qot2BxOGCYmKElltDK2hwrjLu9eFSSzKVGEyaAcWZOkGaKKGlErh4ByMRnOhdki\n4QwcnZCkISNqfpBqb1C+HKVf1ERe7oBHbPXclfaZcj0mSdYx5WIylgu7qWjgSBGfsW2GYteU\n0mw5QF/NmpE0XlBNDpJdOmriSG5hvKyr8Qe4PEHJo8aISenlQDK8n52Ko5FJGjEpvRpIZ+bI\n8T0SSQK0PDFIhosCzesRI45y3dOoP0mGD0pmoeViMoiLLuloOo7q3YVNmDaQZPigNFBszQqS\n5dArYkK/pZXb7bZ5UJItJGNWWZKKVy4qUlSJ29lEl4vJCC6q2wRzVKyQtIjEsA1HWZ/Jd1fh\ncE6fi0VFiipgQ2ybU4JUfxvy5ihZIRLAx+BGafOv9JY78jjYdmRYkgwCzMWkuwvTIW/gqOk1\n7HIMdqC0JB0T0iK4vk4kDRFh84Fkmo6aOCq2JXlIMX58lj2ZhW3VQyvSY1nRo8owSekVQLK9\nb6Xr6G/HKo6OHzq8R9qQFA1OdVJOV62tg7YEtTYbSN04Kp1Ac5TsiVK1JCU6oL9sQYmuDtoS\n09hcIBkn/xNyhPAbkgcxi24kWYyZqUk/F8b3K0uORD81YcGR8Mns2Kvb4Xp5GO0bmqQRktK5\nQbIeYiBHktdHojKIKp2H62fAw6GgRFspbgkLNReTTi4qmxGbITlKGvTgqNb9TyoKsd6MS1LH\nWJsFJMMfPCq1L083KZ+qQLb40stxc10KsmzvrjgC+fZK7SuEGb3zglSLkZgjeVHD81ImjN3e\nI6W7ECUpPoL6MRAVFbzK1CncpgCp/huqYdk/K8fryYv0d+PcY0g6vq3eI+k2O+5Lu/asLCpS\nVkqYAgLOxcTdRdPtKbrKlzuoX8YdTtR9aBXIvToHdSSpS8RNAFLT01H0frqreGaOxiTJ+EGp\nR8gND1LLsm5DU7KeokzNUeXrI+isiBxm+pnqUwNJsgclQZ2kbWPQuZi4uqg2Dk+IOnKU/uDG\nkdBTuRf+JHVLSqcDqe0dbCi3kS9UHg/K0bwkdUtKZwPJfKmrylXTcjQoSdbLO9/AGxik9m3M\nUguqeS4eYzgy/iUE3iT1fFBy/Z0q44JUz18kNNQe2m++lRxl+tSi3BsrQbcOzSQrHBznOpUp\nS3pUyS/2RgWp6edgZetv1eORLUexX6oAfiGb8aUhqSExR+SwvKuLPhcTDxeNy1uBedvjUQtH\nka3mYzOweRHhK1r5JU60fMnBYXnnFX5jgtTSqztJ+XtRG0dFg7pYNeBImG9ylOuvvmQgLlTU\ngVqfBCTAsrjUgjFH6Q+6aIaoluFkUpqOJH0EVjjRm1i7aO1SKLahS1b+HOV6V6PBSRJcr/M3\nFc4AEua7uw33wPNxNDpJ4yWlE4DU2J+recPj0Sk5Ikn2UXhKkFrqGICUKyNI5VJ5HZQ5QSJI\ncREkggT3RZBKjgmScft1emWQEj/vTZA0pfI6KHOCNBhIYXeOIBW611gHZU6QCFJcBIkgwX0R\npJJjgmTcfp1eGCQ+IyUNFKXyOihzgjQaSMUyglQulddBmRMkghQXQSJIcF+OIJUhI0jlUnkd\nlDlBGgykZF2CpCiV10GZEySCFBdBIkhwX54g/SzvYr+MhSApSuV1UOYEaTCQwvVvya/wIUgF\nESSC9DhHkArda6yDMidIBCkugkSQ4L4cQVpuX2sgSASpXa8MUrGMIJVL5XVQ5gSJIMVFkAgS\n3Jfr0m7h9nfcQFEqr4MyJ0iDgRSuf3P7myABRJAe5whSoXuNdVDmBIkgxUWQCBLclyNI3P5O\nGihK5XVQ5gRpNJCKZQSpXCqvgzJ3Bel///l9+THq3x//A7ogSASpvg7K3BGk71+rfxXuHeeC\nIBGk+jooc0eQPsLbf78un/7+8xY+YC4IEkGqr4MydwTpLXw9Pn+FN5iLM4IkilCCVNBJQdr8\nyynHf0Yl/u8BG/ZHYU6QSo4JknH7KzEjFSsQpJyBolReB2XuCNK/z0j//L184jNS4pgg5QwU\npfI6KHNHkJb31drt1zfMBUEiSPV1UOaeIC3/+7i8R3r7/R++R4oeE6ScgaJUXgdl7gqSjQuC\nRJDq66DMCRJBiosgESS4L4JUckyQjNuvE0GSlBGkgggSQZKUEaSCCBJBkpQRpIIIEkGSlBGk\ngggSQZKUEaSCCBJBkpQRpIIIEkGSlBGkgggSQZKUEaSCCBJBkpQRpIIIEkGSlBGkgggSQZKU\nEaSCCBJBkpQRpIIIEkGSlBGkgggSQZKUEaSCCBJBkpQRpIIIEkGSlBGkgggSQZKUEaSCCBJB\nkpQRpIIIEkGSlBGkgggSQZKUEaSCCBJBkpQRpIIIEkGSlBGkgggSQZKUEaSCCBJBkpQRpIII\nEkGSlBGkggiS3oXu3yZrdNbcQhtJkqJmtXKUbC91YjSOlBF1EpBCS7dkQ5b7dwSPUbKrfDhO\nNSAM0lt7diS1cBTrDJYjyYw13FqL/gH160ysXSTnD+Yv5FHdFe1rH63bV3c7kqCzEjLdGYGj\nXKGiTsa6eZFhY2LsIiQnEOaw5GFTFML2zP441tZj6o4fDrG76kwkmttVYnj3YdvhU3A0qomx\ni2aOitZlD3tu1tEYtU4HVylWNwgZkJThqEz5JfnuVrLJm0aygqx7bXWw1qcBqXVtkzcXoLoL\nv5A+TnmUrp5Cqg5IB6dPfPIdW13p+uKK2Gg4Es1zUyzURdJ5QGr2WVq4lTxsQypsC2Kt15K0\na89qPjL4pHJWCJs/ts0cjePHeY4yZUmPKlUanwOksFpy1A9jnqT7yiXd/r0k7OZyf3wwOPYg\nG7Jh46o9GceVW2mmKoVcwkycKOanXOXaOmnjWutTgLQxbOhejqQQ+5hoYMN15DjtUUhS2JFA\n5gwAAB0cSURBVDkymJIajn5Auq0ODtnsaCw73pTZc+RpOTJILuNYWgNuj0PuuJKkVX0jkqo4\nupK0TsBYjjJlukopW9+4GxMkTEQVH5QKdSL+C6EyJkmVHO1Xse4cNa1yvXPZmCA1Wwoa2O9q\nZeyff4Xocdqh7IVSeHRI0G+1JBxFundda0a6mzoB50hQJ2nbNoInA2kbxmDfwq8S3etudq/2\nxzmH0jDeMg2cFlEHon7zPWrgyPzxqHX4zgXS8XaJda5apYedxfO4sOMgjN/9NcLmpYKjWJ6G\ncpQuUlYysK1tYAaQmnopuTFKFiFhVy88/m8hKbaiup/BvpAVrTGfV1bguuXrDNYcAV4gnAuk\nTRv1jUi+5y3blgjH49gXhjQkReI73ZMWHZo/dmGzlN7SVMQEzJHzjhuijUlAskpKkjr5IGl8\nTjqespgR8deCnn/vs++SO5ZzZP14hHmffWaQzEkSJK79ceyL4FF/nUlSuV+lpESH1PlJUqKt\nBDdtbGYekJqWd22VUpETWdfdCtLsHds0J0nJ0bJ9HkR+vc6YI9jXq84NkvkQ15EUt0qufgQ/\noQT+vl2Go0iv7n8mqTbmyPp2adXSVCBZj7KCpHD/O8QrqJZ3uZTRrCq/9V8LauVIUCdhaTFm\npiZdXYxCUkVA9SGpzetEHFVbYhqbDaSGG08jSe2PCrqYNnqPZMuRYsumtg7aEtTadCA1tNc4\nlbYkJddSGFU9mek5Kncgo4Z7JHjUXgOkBpIksykvgpKUfrpH6Nj4kaOk0ePYmKNyFbglrsEZ\nQbJd3rWQJEcrRxI+LjAcqSuIihRVEoYGAeZiMoKLQUlSoHVc1BnsNBR9ZnbnpuGo1hDb5qQg\nmf44PpKkNFqifQCEJH4ariNpISpSVInbma6EbU0GcWE49KYk1QV2vYw4KlqIiu41DG+LTs3O\nC5Ll6Nd88a7ihAdJ3Tlqu3Hl7cxCy8VkHBddlnf6NU4dSR3eI4lPaDhKlmiqQO1MWp4apDFI\naklSxo9HdR5fnqPXA6k6uTetNyYkKe0G8Bq2iSPDGazX64FkeT9rIUkee7FFXbFrSuW+znCs\nnDROmTRxVKyBtTNrfXqQ6m9pDTUq7uLJE7n9cIyOiCJfH/XgyDQdLS8KUv1sNNSoCK9uyzvo\n49EYHNWZmTo4A0i1N6jXIOl0HFmno+V1QbKbkkyYANZAHiTZctTyYxNmt792vS5IZouETAVj\nkvzeI4lPQL8WNOqyrtLJWUAyu79pSGpAy2qjQeGozFHRQlQkrBC3cgomF5MBXTT4QZLUkqRs\nSTq0bvv6yIyjKisXPycCyeomdwKSjhylq6ROIDka+PGo1tGZQLKanyaSyvF4SBLwH5w+ejjW\nSdmkKjRxVChPWDkGkovJgC4afVmSJNjoMk5KkscjwMaJqEhUjrSqE0GagSTn5R1im+HFOCJI\nS+0C4LwknYMjx2XdxZ2LyYAu2v2VZsqfJPP3SMgToqLrZeXLqxqFiyA1OByNJKxG4ShfDLVq\nEEG6ebS47U1N0swcOS/rLi5dTAZ0gfGJJKlhG8xgvO5N1ryG7c5RjVGjCNLTaY1XIEnlgEzD\nZ/ce6ViUqpqq4M1Rh3S0EKRmt5Ykae710CHLLOv0edObowobgAhSq9/6PaeKVZPP8g77eKQZ\ngEJbAk0UOicGqWpZUDKZbsthkG2GqtjsFzkuJle7+NsKpAuAZibJ6j0S8oSoSFSOMUHJsbef\nU4A0M0lY9eXIYm1gKc/ufr29W7tAqGIKR/mSA1KdOcoXR036Ro2LyU1f4aPRhc9Y4QdlPpLm\n40hvgnTi2+PP8NXowue205mk/ZmmrbEqzfca1iMucqM8TpelD1AuKNUs76qLj0XFIFVFrV4C\ntouwu3LkERTwx3qPPudLXVBCWzSR5Lu8g3h35UhtoXcxZRItboMN0Ae1xTQkQR6PzsVRy68z\nRJrsGgD0yuN3Z6pdNJCECV7se6SWrhwvUVRWLo4YmIdC4z9tDzTZNQDBu/QuCiC1g4JB9jat\nfy5y2njBdqxhiDAGWgnDbF6Qri0Zj6PaQelNc/abZ6H5BFrgPjWMTqL+MNM/N0jX1sYZzXv9\n2mJRmIZ8DZhirsahaLRpnx+ka4v2owqsXgi3EinlAG+XABFVN+AUaaprFX1SLNlUuNGb7Bqw\n2AKpunpt+7rq1cXgVKAWOjFCKRprmp92LiZuLoYaZSRLslgGKe9HSTGSoqGmd2frYuLqwn60\nYZUbWeqw2dCXInlltVqj5oQgXRowpUnV+LwsDUSR+XS2R5yLSR8Xw8DUyJJg88Fis6FtjwNH\n0TDTmG/IxaSfC+tZAPVDF5SRytDLFLSvg19VLPfTKGhsnB2kS2u2yx9gYpJvH8djHaQK57Kr\nKNgqm2pQ9DLbWnQx6e8CP3LbtuVVq5tSJQWcFG6LA6EaqAGmS9Oqi8kgLoaYnWLFTFORoDad\njUP72a6Vr6vSK052Tb8USJemTWcJVTHdS0VsN0pOrWBMgWNTK9u7zsuBdGnebEzFDQvqZQNX\n25hWYheSK1YMit20WMeUi8mALuwGV9qupFqyLVOWpI2LrlQ+Gmaz4RJOLiYDurg5MhpmYbOi\nWqm2YksvjCR9lF2heBisJsEvklxMBnSx9mYz4ECWUqFmv2BJuYVemrJTskb9GLp6dDEZ0MXB\npcXQi2/b9TDZRUyTP+iVq+TP0NWti8mALuJ+DSZBHlLVz0w24Sj1HqnUCaJODF19u5gM6CLj\nHD8d0gZFrqN1oF1OOBD1DLZpqVNPhq4dcDEZ0EWpB+iZkTcncR2rkdk9UErfd81wGQxsX4au\n3XAxGdCFSOA50rRWdu0TP6JuqK6quUt1ro1FkIrCTpeqseLd1jaSBM6VF9Pep7VvWGsAESSZ\noBOnbKrg2yakyj6119Dao2rfLiJICgGnUN1S3rfjElQ/CNhRGzU2XEwGdFEt3GTqG8ouprL7\nByrVeM/Y6CxyziEt2YggVQk2rTXtdIipKpfIMRo/IlxMBnQBUM0dOtlOL+c2fpAjM0kwuJgM\n6AKmwnrIthnTQKvtT6/B6CqChFK/GMIHXWUXXhGguwgSWr1iKgBl10vTZnqKIFnp1DF26our\nEkGy1qli7lQXAxVB8tLUMTh1511EkLw1VUxO1dmuIki9NHSMDt25IUWQeis8BWoGoAEuaDIR\npIGEC2ZfzdpvpAjSsDIOz2ebt08aL0RnL4I0idChG5b7MIfNkZf/s4kgTan2sD6AdGiF6GhE\nkE6g6H5BTksMpDstRKdGBOlFFc1IHPdqEaQX1fEZaTnjuLtlVoL0onoNkPzSLEF6Ub3G0o4g\npQooSqplBRKwTWXIVkQ5Tqe7M1J9xIxEUQARJIoCiCBRFEAEiaIQyu0PYB25mAzo4kRC7UiJ\nd6ioowjSbPILeKKlEEEaW2MF81i9GUoEaSTNF6jz9dhIBKmzTheEp7sgmQhSJ4FD7ZgZ2gTu\nFqi5gUWQfAWOVLNb/yz9HEYEyUfTxqURUZjWBhJBshU0cLre17HOTwcUQTIRNOoGWxed+drq\nRZCg6hhjASiTDsoaQ7TVQwQJI2QYqNuCR2CNf+jFQ5pyFUFqF3Lm1W3ZhZ06ooFdmQ8mgtSm\nnhB53LsJk1AEqV69IUL5lvjSOAPDNEkwuJgM6KJN0AkeGaKNU+VjE9I1qi0zESS1oPNacbNP\n1S/sxCkE6i0aprGjwsVkQBdVAk8nbsUE71ceJrkvv351FkESCn5LVIZjPrQRHdI0uiotesd2\nb1SYCFJZ+GWFpsFCXcO4EjX9U6dYDTyAI67zCFLet8GUQSEyHqmyh7CshsyT+MFgIkhbx6vJ\nMbnviZsseneLo6SjcP8jPGrmqht0eaDURJDuLsNmkWIxQeJZF+SBSAXNvlxeInfXsw+YLn/d\nqILt+4k0BkwE6ebxOv/BzLVwtgX32HgN693ERL/WIC1LEE2dTaLvTNOLg/QY/1tAhACNyL2X\n9mrp3ICV1M0GpNvKTsZSx4xvodcGKTzWIXeQ8M6hEPlQlGl234ftevh5rtpBo7qlJk+Qvv+E\n8P7PrZH8g3StC6VW99MVQsaLpFilcq1UHcuwSfjcnA63HYbL5/s5acfs7gHuMDmC9P12uV38\nvjYyJkjIjCRe0ImaUp3HScLSshrDzeYDKhXXyBsmR5A+wue/NH2+vV8aGQKkFTg3kFDPSNJp\nrF7QHW2rN+kOEnUxXnH7frbnIm/xXec5gvR2Nfz79uvvgCAtN4QArsXTV66XrnHICdAFqbAX\nkYLdxSuGwmjSnWByBOl+Pd/v771Berw5vKODW9LJp61umzvuBP+ms+RxVVC8DrFTq3l3gMkR\npF/h+/7pvSNI20HF5aFb2/Kq1S1FolzqVa5YrknXLV2M3KvZ1BvD5AjSZ/hz+/Q3vHcC6TiY\nMFeqiSpcfv6rAaq26hVdtqUrF65I4dYUJrOmXUyu+nhcxj+lca91kW10lBnKVs73Ur7kQij+\nCJSpnb+uJscomW1suJjc9PX7/unvn+hTamLfCCDLgNO1XR9tpWRUsT8XVaG3unyZbytXea5F\nnitIvVwMNCm1QRjPDsKWlSq3W3sz0I7VRInp9CCNNBvp+slehnt5xCR91CoJSnXLU9yQNQvb\ndA+QBC8hW108PJk+QaDql17TFB9V8Jd5WDTGquQzqL4EU1/VNKzx84JkmYoWD4zSw2D4Llbn\npPKRaCCUYDfbk4JkC5G+eWVQ3W4CIToSLhiJHXmhZMxSe8S5mOwasAXJOBVBoyAdnNf/jz9o\nmIlu/K6dEKWa3QXgvQii1qA5G0jWEEHXJclno1tZuB+kLDJB3yA1SvpbRakIUl+rptg5FUj2\nFEEnP9tUONbaX54NRoWWk9uL6ie9rBGmvlr1q5keIJm4MF/QLXpQtc/i62t4ZKOQqG+HUal1\nbVqqfeuEqF+hOhfnAMlheMG3z/gewwqbW617PV+MSh5K+/W5tnSFgPoVqrgrzw+SRypaPDDa\n/nTpZhD8MSp5SXpNzMZsKKlvzpOD5AMReIspHYTLJhU9ktG+fiLAbXftDp3IsKS66mJhtP5o\nLE0MklMqQs9ybhvr9sd60/tYPRHdRrt2OQfKtFQYlhHTkjzIZgXJCyL4uiPxbLQ88Nks6goY\n5Sq2KNGwAqXkQ6DMq0heISCKtSlB8qMIjlGk+Hou3F8ciQPXDKNM460oVQwPsn61yhE3HUhu\nC7pFD2ypfi60Hs9GmdpuGGUcmKOEHXKcCoE3GUh+EOFvj6qwisyaK0YZJ7GeafYdasYJWb9B\npedbZWsNPRnHRbELfTHKnkpGuOGuXWHH/VVQSvfBxWRAF3n/8KnUPHrLMeq2a6dCSXhO1Fiy\nfveQcTEZ0EXOO3wWNbflUox6LPBSmSjVp3wfapLSqNvhafcuJgO6SPuGT6AikGLhExLx22HX\nLtWV56nUZcnOaWu01YeKIO0898WocM4LI6Ev5KWJrZD1gSJIa7f4vddZMRL6c0AJPiU2IkhP\npwa3P/mDNgAjr127apSE52StwepjRJDuLi0wEgdZ9GwZo167dqndj0Jn6pLSHCgRpIu/ETFK\nBKsgtJslwDZeu3DSESX3EHIxGdDF2pvWnTtGpRVWh1274vquM0reaYkgEaO4iJLOmYvJgC7u\nnkxmZ36M9K5bUdJ1SCZHlF4aJP1KWoaRNE7AGHXYtatGSVqxptLWwCuWXEwGdFFzu6rHSBxi\nLRgJOieSB0q16zurWWvWy4J0AoxsNr9lTojS3oeLyWguKhK+N0apHe9oda9du3KnhkXJPKRc\nTMZyUTGo/hgpllSH5p5hc/sU2u4cyh4MiZJ1Wno5kGruTTKTaKRIWwNitP6tXpsjrVxQEp6T\ntVYysYwrF5NRXFQNpRAj4c3VHKM9SEvDcDqgVJ2UqlKMHUqvBFLVKM6D0XM9tzxBupx8rOzU\n+98tKEWudAiUjILLxWQAF3UDOCFGG5DC5ZN2dYdBKT52/VGyYelFQKobuvkwCmHDzYog3QCc\nHCWDJd5LgGQ62FE8hOd2J0Pdx31PASDtiajsWAqlhnORWkOg9Aog1bUmtWqJipA8rA7dJQKS\ndmmH7A1weFKqjJbuQUaQStW8E9Kh2XBH5/keKeY+L0hKkly37lx9NYgVsLXZQHq1hAQTU5Jt\nY5OBZDzKwvn3TEgo+aakBpBGIIkgtVmdOCExJRm3NRdI0ySkYlQWExL855GKKakapPOlpLOD\nZD3CDQGBTkiwQVOAYp2SjEHqG2gEKV+vW0KKOamRR0oCr+36p6STg9QhIVUmqSIcbgmpW0rq\nAFLXSJsIJPPh9VvZ+SWkoVJS0y3N0g7QzvlB6pCQKkEy4ajWbbozL5CSTg1Sj4TUvrLDxG6T\nFM5GWdv1JunMIE3E0VgJqdJxGqSRU1K/YCNIuYrNCakUpNGq8DmJtsyUBG1lFpC6cBQ5OWFC\n6pWShCMaV9+UdF6Q7MfVemVXdRIlcUqSPbI1jJU5SQTJpA10QpKcGi4huaSkUUDqFW5zgGQ+\nqvF6ouXK4ZQ8Vr04UviUDUTD2m4Kks4KUp+FXXtCktPTGSQESWdKSQSp0vDsCYkpybyFGUAa\nhiOHhPT8AP4xiuOHLFP7H2cHpiTptNTHTY+ImwAk+wEdMCHB5uXYoKxbepBOlJIIUpVhol4V\nSPGEJAYpljfaJExJR5AQKUk8si3VoJbV9uODNG1CKtDjk5DqU9KybH5fEXJtNzxJZwSpF0cn\nSUj1Ken5i17jXTpzSiJIFZapapKomCAhVaekkCyPH0dPyQe3pRrUstJ6dJDmTUgVIFkkpNqU\nFDJV48fRU20kNYyDd9QNDpL9SDokpFgE+3GkJ2kFUugLUq+URJDUlslqWUgSp4ZMSJUpKYTD\n70auIUk+vg210KbnA4kJCaK6lHT4FeNzpSRn06FB6sdRz4RkMCWHpiVPSelmMtXOkZIIktYU\nmZBS66DuCSnvRAHS/nwTSCOTdDKQRkpIWpCkK7vjJ5MZOTae/XR7SEo2kzrWrO3sQXKNvIFB\nsh9Cxd0SkJDypZYJqTYl1TwmnSIlESSdaVNCytaIPoNETjlxVJWSLn+GkPpnM6PHuqETXWuP\nlHQqkAZPSPkah9hMYJYGCfxjFJUpadmnpblSkmPsDQtST46KwVB8fDiCFM1RGY7SndOpkqTH\n2q5w5U0gDZuSCJLGtj4hKThaZaRHVE4D0vEZ6UVS0olAGj0h7e/V5ZVduB+5ctRCUliv8I5V\n48eDpSS36BsUJIexU0zvnqOwJ6KckFYmGZAiMd4siZMs29r9Bg1Igy7uCJLctiEh3Zc8ApBW\nn+4mzgmpdXG36/NrpKTTgOSfzLMNHE+k1mj7w9XSKKz+31WzTEhtKen2x8wpySn+Wqfs8y38\n+rR1oVTZXalGaWV3+1PA0b3u6i/3hKRMSXGQou3FDyNnstcjudgzg/T1O7x9Lv+5rKDfbVzU\nqeguRL/9kmlgF0bXhV3mJ3UO4RmW3JadNUciTwmktugf6saP509JjiB9XQj6CH++l7+/QzYn\nKV3ko7xsLqmgAul4OxY/fj/YeTjtkJDaUpLgK3ejpyS9tSNIf8LHsnyEt5/P3+EX0EV06hTm\nkgohU6+UkFb/xy2OCSm7ZWfPUUtKyjaXrKhKSQMu7hxBuj1u/14dgFyEpqRUtrw/qaRqlqJk\nnV8KBs+QvIOUCddy/NZL4iyXrpLtpSpOnpLcQfrvdU13TUwgF+HReo2Ehvvn50wLiYpJkKIF\nhzzmuLCLNi5JSWKQyhkof1HDpSTXpd2/T0dXfV+WeWAXlf2SmqXXj6JVSWbLLlVS2rJL5oHV\nF09via1i8duakgpgjL62q7mZ23p46PttNb/ZhGRzi230lQ5F0b1UtGWXW/HIE9KTv0NW0ygN\nUAYb0VVGj0dLSUprR5CW5eOOz1skH0X/QQR7iV01rFrE9cPhfCZUk8upA0iNuVqyuDNISYVe\nCy7qtCAZuLgzV90pcUISl0QDJpQqrOs+FmS6hLQ+sQXp8UZK8/NITElmlatNzFw8fpNabaeK\ndqHoIDv/4WhfSkgPiKJWwjC/318ez1mKAZKhmvO+/xQ9Hj4lqcx7gFReuanSRNNCULQMU+3V\nh+OB9HtnG3i2+AkTUrhnsU1GirnNqColRUBqJUk0N81VQNYnAKmlR8Ke5HqcT0jLwT4TLVtn\noTIhNYPUlpIyN40zp6S5Qdrew2u60u5BFCyi9c4jFB8+hXko4mIDUlh0Y1TlFpCSlCANRdLk\nIO3ftWh7Iq1TDZL8xyc2la5fEapLSMv6yejxHil9ARENkpIAcUKQ5I017JaLDEP2u9/Fu+i2\ng4KE9DxSxHPzpCR6pfD82ilpfpBaOiKslKtXvomGTHni7h12J7xBYkpS2/cACemiqTPShKRo\nogBSLlDSILlzVOc7BpKSpHlT0uQgmW59SzycMyExJantJwepuxfdxE+TkEZJSQhOfEh6YZD8\nORImpP2J0UFiSqrzQpCSbWAS0u5EF46YkpT2LwwSReFEkCgKIIJEUQARJIoCiCBRFEAEiaIA\nIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCC\nRFEAESSKAoggURRABImiABoUJIqaTBVRjgenVj5dOZGXE13K/F4I0rxeTnQp83shSPN6OdGl\nzO+FIM3r5USXMr8XgjSvlxNdyvxeCNK8Xk50KfN7IUjzejnRpczvhSDN6+VElzK/F4I0r5cT\nXcr8XgjSvF5OdCnzeyFI83o50aXM74UgzevlRJcyv5eBQKKoeUWQKAoggkRRABEkigKIIFEU\nQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAYC6ftP\nCH++zN18/gpvH9/mbpZP26H9eDvFZVx9eEyJcXgNBNLb5d8BsCbp4+LlzTwEv2r+SQO53i+X\n8cvSxUXGl3GRz5QYh9c4IH2EPz9//Lb18hX+fP/cZv/Yulm+3kwj8H/h7evHx/8MffzI+DKu\nPlymxDq8xgHpLfzckqzn7fe1fWs3n+Hd1MVH+OffP/8b/mPoY7G/jIt8psQ6vMYB6arw5uPG\n+LrDh62L3+Hv8nMvN87f1pex8eXhyC68BgPpI3x6uPkO77YOvowDI/gkVuvLWMl8Sn5kGF5D\ngfTf8O8t0EOfl5WRrc4Ako+LixymxDS8hgLp8/eb9ar/or9vxkuiHxEkjTymxDS8hgLpX/1x\nWNt9vzmsIgiSRj5TYhle/UHa/jPS30aPg2sv72avX9ZeTCPw7WQg2U3JVlbhNR5IVhP39PL3\n1/tfExeLI0jXXbu/1rt2iw9IllOyk9nl9AfprutG/1/rt/X/eOwO/cg0Av9zeTT/x2FvxgEk\nlymxDq9xQLq8ev7+bfyM9NeLI9sI9PpmgwdIPlNiHV7jgHT7MpTxoP4JYbeWtJKti18eg/Uj\n+5FymhLj8BoIpJ8vNP+y3rMLJwHp+/Ltb0sPN9mPlNeU2IbXSCBR1LQiSBQFEEGiKIAIEkUB\nRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAE\niaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAo\nCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIA\nIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCC\nRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgU\nBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEA\nESSKAuj/aAAWX5QRvHgAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "pdf(\"ISLR - 1. Úvod do jazyka R - Graf Contour.pdf\")\n",
    "contour(x, y, f, nlevels = 45)\n",
    "dev.off()     \n",
    "contour(x, y, f, nlevels = 45)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 410,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2djXbkKA6FSac72zvbHb//2+7E9Z+yjSSuhKDuPWdn02VAGPQh\nGdtVZaEoqlmldwcoagYRJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKI\nIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgS\nRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEU\nQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFE\nkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJ\nogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgK\nIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAi\nSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQQaIogAgSRQFEkCgKIIJE\nUQAFgFQoajAZvBwPTgcTFIUUQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBB\noiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSK\nAmg4kPDWVS0eF949unfg+fPvnxTVYbSU5uqno7aYSli/7ByR4OYJ0r4I0r3Abtk7tSNJ8v40\namCOHMYF7ZW9QYJ3gCDt6dCYBBsgSLqmojkaEqTF8v2wDeYUhf1BiiTp2FR5mggpSAdf8HsA\nkmrW184h/aTW1pAgofsQAJKcpNoHWUA6cfTgX/VzuX5ado4eDaACjHK2EJcpDgrSeCSNmNtV\nQXr8TByQbrVlFe6qSc/2DB1qcFwcMgVI2F6MBFIcSTWiSwNIXwFGYNJS4lwOCZKPP+YAKSlJ\n+uQ/b25XJbgG0tHiYQVJrLJjwtQUpkx7lQf9fis/fgNMIB1o5JAUBdKm4xsC0lFzgl4JdP69\nItQVkpc3mrv352d5+738Zz3Nd4CJlCQ5hKROuZ3WjDgg7R/FnMkpqYvbZ1CUaq2y6s9K0Ef5\n9bn8/VkOY5LQBDQRABWeJ7c7NvO15peD41sfqE3aWixW8w02I0H6VT6W5aO8ff39WX4gTABv\nFPQjSQ1SDEkVjq4J1H4vjjO7jaP7Q3c2JZxvIEnybUJD2/oqp3qnkPvz7h+Phy0/yBkcwAWF\nZ8nt6iA9fijl6GB+D5cajVPAtuxcHbENpP+ecrpTYAKYSEfSLLldLbP7/qEQpKd61RqWCGP8\neeQdw+CiDVVW/fq6Ojrpc03zMCZQXuQO0li5ncyEFaTtg7WlJtotnO1Zu/j5dl0kynFAwuVZ\nXu345najgHS4+b2b2e03t9+ZozjmJm8vtJ/OxwWft8N4pDUBGt+Bcjt/ktQGpCA9PxAhsqHN\n1WLzOpvBgHVBaaIDSdDcrl5wIpCW62aAooaoC+emNft7rebMxY1VvE1gtsH7haRqwZQgHW5+\n63t0WEPY3FoMss2gdkGDDX0VfxPhJOFAEmU5wSQdN7+RZ+kCksim/OBTsehwZDOZEqTwXRpT\nBifOaFKDdL7y3/hM1qG9bQhFf2oFG4cjxv9yghROEiwkmUDyJakSkDY+bAcJEZAWzL3YIPdL\nClL4Ro0hJG2DtPHp80ehIamW2T1/6HyJpGmn+V5slPdlBSmaJBRIy9a3C/TN7arGyrcPNQFJ\naNPeVnxeZ6uVFiRAzzAhSecTmzdWuuZ2gqaL/RJJaNTaVOs4xPleXpCCScKEpLJ5qGtup29a\nDBJo8dF0Jab6XCC130JwDkn7IKlzu2oMs6vecu17uCAjUzkAKf69tt3zQqoEmogkCbK8nq/c\nm0FSe9ydyXL+YGMXYbthdSJa+TwJSLF+lxuk0NCOWF93XsDyzu3ur8u+bRn3AAnFUZOC3S45\nSJEkOfqFAK0mkp5A0nCk7lq1LQhInS6PrJWzgxRY2/PS2ZDbiXRX+Xp5VhZdZqfuarWpBCCF\n104PUuDSAvSYakH5Fb20+UeQdlo0hMYhA1K8z+UHKY4kgGfIv8AARdLpS9+u9ctdjgfqx4Ag\ndXC5AUAKu2zE5XaGhxuaz7JcLF9si0ASdEO8NlSPKE6xK0ezgtR0QwkxeQqf2fNiu8NK9LS/\nsJPahQSk3iAB3mCaFaSWNsJzu22S/HK7O7N3+wvbz3oOk9nFrJzINgYBKYYkSEja/ukEZ5CE\nssTFwUDq5W2jgGRvJRykZfPn5XxzO5lM2PS4ROrM0dQgRZCEcI6y/XGKkNQ3s4sAqZ+vjQOS\nuR3XkLS/26DP7bwnA0q3Z2bXm6PJQQogCbLMrj/GatkATwDS2JldT08bCSRrS9Egnf5XBSk8\ntxsFpO4cTQ+S9RYBYAoNF0nZcrvOmZ03SMBfBZofJGNjsSFpjUiTg5QvIPX2stFAciYJAtLO\nN990Jmmj6Ykyu+5ONhxIpuZCc7u9sulAauiQY2aXgKPXAMmVJIsf2NvOD9IgASmBiw0Ikutp\nxi61gSTFBKQ+IA3lYXbhTTieZ6yLTAdSl8xuKAdrkIMJ/VZnfG5n9FOnCTGGQ+mptRyxlbtV\n8PCvkCopTMST5AFSXEiy9SY+s3ObV+9GRwVJ3Wo4SNhkqlWjXCJ5Tat7q8OC5DXkc+Z2o2R2\nOTh6LZC07aYEKSokQfuSB6QkrmWsksZEMEmvB1J4ZpeEo1cDSdmyX0iCXiR5jBc0swNeRhqL\nmUo7tzw0SC4DP2NuN0hml4Wj1wNJdxNhEJDwA2Y1mxkkj9tHt8ZDquQykYKk5LndIJkdfiqt\nekWQNM0PEpICQBo9IOXxqYYq2Uygx787SOgRGySzy8PRi4KkMECQNB+lBSmRR7VUSWeCIelQ\n03GUyqMaqqQzQZAORZDUelGQZiQJNmhbLZEjvIUpQMpM0tPHW7/VvIkSRpIuyXq5f5LWI9pC\n6qJWvSxIqnmQlAU6jDUoeakhHLlxpAjArjdir0ZCqiQ0oRvflyYpJUeCMvqiDXphkOCz4UuS\nLL3DS2b41Tl6bZAyk5QlKMnC0ctz9OIgJSYpSXrXkta9EkevDhJJOpRsI5wc2SxNBRJ6886Z\npNgLpS2MunOE3iMCaTCQHNxG02I0SX2DUtPlkRtH9SLXovCROWhxMJBcRgda9qjr+0cypndt\naZ3J5ZqGt6GosMGjFocD6et8wD3AJgs2P0mX3jXteoMHQVPCUlTUXGWQBwRpwXvOUCSFBKU2\ns9NxVHe4MUGCh6UMJO0c63Kh1HR5dDQ1I3Ik8rVRQVrALEGvYY3e0nahhByMtsujo5ZNh84F\n+nAkNDswSAvUe6BbDlaS9pZ4UUnYWMgwNYSjNo5qBYxljxsSe9jYICHDUgaSdr1T9pHfaxQt\nPRUdRHKEcgmVb40O0gIcN2RZNEnyzMpBissjXTOyeqICpqKHzejamQAkWFgKIum4qiK9q3UB\nJUxaZx8SSQFT0YNG1B41BUgLKCxBQ7nZbZoulPBCvDNROZyNI8vAzgISKCwhM3E7SdvHPfcX\n9iW2WhsPO0ex23VGP5oHpAXCEjK9a3Cd7U87pHfiOBg9GO1ltxuwtjAVSAsg3clMUnh6B0vr\nxuCoZSGeDaT2sJSEpAzpHSyti+GodeKbqs8H0hI5JH4OlCC9g6V1QRzJi25Ubg3tU4LUOC6p\nSYrbB4eldfk5AiTIk4K0NA1OFpKk63/UaxTSgqJ6x0dkx21Fv9fE3DoJqdLHhH2ENN8+aC9Q\nN9LvQkl+eWRpSloXOA27FUFDNzNISwNLWUjaLIK8ULqN0P1YSaOeYHgzcwR8gWBykBbzkpOE\nJHEcaDjN8u0vRVonM6A9Im9dXfKhFtTNQqr0NWFbd0YjyTZod/gs90hZOyEvguPINr3gC8tX\nAGmxjTWOpIPjEl/cTqq2CurfldgAScpR43ujsI0Gy9T2/Qode5UEJgxjl4Ukux/Lmr5dJO2U\nkZKsKdORI5enQV4GpMUwgHlIMrvyYaNlO7WTmBGNZUaOHIKRqR+2KllMaEdRXtyZJIWL61QH\nyW45IUd+jyZGgvT5q5T3f86NHLbiyKqSJWnhlkvnniRt7tph7LacMWzYHwoHf72zQ5VVn2/r\nVe7PUyO9QKra/l4YVa6ZpM1w0TxSJ+8qy7afNRjNxpHza5CBIH2U3//S9PvtfW2kI0i6QQ0h\nqWt6B7dYKYHiSDWL7i4VUmXV26ni37cff3uDpLIQQVJLUJLUtMkWjuyvykoLqIqpy9oUCNJl\ngD/f37dGu/KNUGgNSZJ8NwAhm7HX5CgSpB/l8/LXe/eIlJAkc3rns+6Yw19ZjpbCSTmKBOl3\n+XX+62957w9SOpJypXcmYsupVNkvOitHodvfH9fR/aeSvYWcuook1Pwen7Y9KEkqatSS1t3+\no29iVI5CQVr+/Lz89fdXApAcNu9ad7TMQQk8YlsWBCYOX8TY+1BZQl7qVDTKl0KqJDShNhRE\nkjUoIR3GTGq5RiNjBmrPblsaROjFQcpHktRjjRVdG78CZH020HzuiLJtenWQhiVpMyhhJLOm\n7v3UHBGkjCTBHapR9S2CuxJ7hefmiCBlJAnvUk2SbLXd7TIY9+vG5ogg6ayFkSQxFLMhJfx+\nk+Z8dWyORgPJ6Sa+oihoviWrPMJOs0REVwtOwtHB7A8G0uLzUgl6ggRlVNcdbYUapFg3Stkv\njRgP5cniB+bY84YDaXFhKZ4kjG85z4a08VpIihsOU2FRg4i91uYqcBNwlEhSS9PXlwOt7STn\nSLB0DwoSPizlJKlneqf5woqjvG50jmSeNixIC5qllCR1DEryRstyhNHYHIl9bGSQFixL6Ee4\nQCT1CUqaXQZBmcYSulWui0sMDtICZSklSV2CksxmrotFQ9njhrx3CZOBtABZ0pAEmf9Ih1Uo\nEnBBiQ4cqV1qCpAWWDzHThlsrY1N74DZJGIE4i+PLAvzLCChwtLAJDk+/e3Y7Xwc2fxoHpAW\nDEtZSQoYdbmEvRmQI7MLTQXSshx+gQ3eduSVdB6UgDvCoKtIQ9mt6i2+MxtIa+02mLDb4MA9\nqRwoiXsRzVHjpDeO7owgrS0ErS4YksZBCdpVLEfyot9rRl8S2Kv0MWEfoGiSRkEJ280MHEEg\nMtofBqS1JdtAQW9pC7eTxddKnVgC97D9S8RtRe/qQJ+LCanS14RpxKCTCN6Z64ESunN9wxGU\nIVsXBgTp1KR26LBBSWoz6RYePFwiOVJPbO93Q+1VkphQDmEHkjQuK22xWQ54QzkSl/SCSNsL\ne5VEJjRD2ckxcl0seSScHRYeT4jW1kOqJDMhH9EuJGXK8FyoRnIkLef+7RYhVfKZgL+vBSUp\nS4bn04t4jgJi96uChJ8DMEniNdQv63fqAG6gHN9eVet1QZJPF6yc+h2Xjguul23g7SN4ft6i\nFwYJ7iuCYtoTk0cFZcOY9vTRsEM4CnKmkCoJTajs4OZMf2YdUPIzCeQIXK5Vg4GEviDokN4J\nW7qvInzXDiZgp75VApQ4W4dZVOjonAcDaUHfDohP70yd7//Y96O83iIF7x4gn6WruN14IK3H\ngTCh0zuYwW+1EqFk7Es8R8Jy1XYE7jYmSGuZ6AfgezyN+Wg/BUvmbqAGJjatE6e6hqb1VbxM\nYJ6EB8+MG0kZwpK9BzCOpPYQjoF8SAxRxdUEACbs5DiS1DcstRgH3T4KC0dar5oApLVCo4Nh\nFx4BSQ297fdin2ddbDhqclJTnjMJSGulpgUTutIJCjXOdEPtDibHSevMTjQRSGtF+4RDJ8nl\n1qy6FzA1WgMNhnda17YSh1QJNWHdgQhP76T2dqpHsdRsCMURzt5GndaznBCkUwuWNBcblAAl\nEP3obgMzEB7vF15rIHb4Qqr0MaEfIOiiF0CSO0ohHoYZTG3BU+nwu5FtVfqZUA6UfL4g+wmA\n83TM8CBNQwbB5XYO+FmzkCp9TWiWHeiUhZDkFZYwrUJuH0GXt3NB+IsnIVUSmBAPXTBJIJTQ\nboHqV7WEpBWxOVkplyD+MiCtzYqGELn+Od9Qum8Gmaag+gQoAc4R3DLhlwJpbbo+lMipiyMp\n+H0kSYcAJYDLmh9Ea+shVZKZqI4okqSgC6V8Cuaocth9fzOkSj4TcSSJYJuOJckpRXIkbces\nVwWpFimQj6PI7jdOQ5P0VIAcoSazQS8LEmwRg/rD6DDJzwC57dM9HNmMzAJSQpKWgUOTruPI\n7boMHI0GEtbHQBkBfj9hMJr03R00rZvpW4RCH+zABSXLOI9Ak62TI6Z1lRMdDqT1cNi9jq4k\nrdUSw2Tu23AcSW4+Glo19QVtAuVhqPQOUGK/D+loauoSjqOItA63Bwmo4mQC42CYRQ1ya/aw\ndhKamjsC5AjSylEL8lMdGqS1aLt/RZHUPnK9YULYH4Uj5bkOD9JavHWNhGQIESQt3UITyCzu\n9pFnWmc41ylAWqs0zTNkcQsiaW0nkiagMdzVhls4Mp7sNCCt1ewTPhpJa1v+NIFNZOfIz4FA\nVQJNWMcCkikEk7S25wYTvmUYRx5pXePpTgfSWt00JohFrgNJi0No8ol1opsagIb0PfffsQJV\n6WACf72IWCvF7ehVgPLpIKRIvVTwTpXNqrFKJxPaMarNECgopbgdFC4UR7CXMhdo9jo1SGtT\nmrGCTJKApBdECcZR5bB4aMGRd3qQ1ubkYzbuhVJqwW4fYcKRQ/r6EiCtTQrHDrHikaRvQm3X\nITIGp2vAlwFpbVYyhpDJghSZRjCOKoerbTjeeHspkNam62NJkrCK4qhy2Pfu9cuBtDZfu6FX\nqy4wASkyhVALTxNH7vs7LwlS1QIgvSNJZ8UE8LalEaBXBalx5EmSVEEcHR/N6bI5e4U20p7e\nkaQFkrMJivQORzYjPUEKvIfWnt4BPGRwxVxNxqV1/BYhtZn2w7giwypDWgcb4IrjDQfSehgF\nU+uGaqsBYZGhdBsVDEeNmQFkeNvvmYCqOJjAwNT4YgtJelK5nhCIo8phn22Gu2pCRxsWpLXY\n9RztVHmvd69GUjn/L4ij1vY3a927lbSJoUFai5ZyN3t4WyRpT5vvMRXNVGTj6MxNuf5TU1dp\ny1bF28Td6etjk/PWqmhlHhCl7S5jQYrmaLlPTZWVQ6o4m7ibvctfmkuoBCSNh9JOfzUgtQ4d\niKOrq1wyUtNLwoEgKV5n1oL0WOeysISQBAJpNJR2O4sEKYSjR1e5LcTS6lpzTVVW/T4GqeFL\nA55BsjRgPNyan9wVHAal4xuT0vNoGzkYRw/oP/8hbUZZ3lblpD9v7z4mHpcQbWZXNxgE0jAo\nHY8HbKOrJSDJB/Jxf+Hyn8wR6V+SyoeLicvG3eXvuz9A78U21NWdzQgogbrYPyDdNunKfa17\ndxIrdrPhd/njYuI8IuXBD29E+b7MBwVpAJRQ/WuakkaO7n3iHqRy9SStYkFyN/Ft/+XhyDFO\njiTplwVlhVDBOtcybPbZevaDW1RqGfi5QCrL7bbgZhsHODXMTbVXWiVGCdczv6VrZ4L35r7o\n7n6ZugSqEm6i8qTuzngeN2k6JDq+VSUpSmEcNYz35uQ2ZCMiDQYS7B0KKEkOICVFCdgnt3XL\nMLVCHXnfYCAti+d3NXuRZOxvPpSQHYocbEC/wc8QGKugTZge4hDYOG4zGqRsKGF7Yx1rQ8XG\nfou8bUyQToUaYRqBpEwoYXviFJDQHImdbGCQ1oItNAFJcgMpD0rgbvgsWVCOVL41OEin0laY\nNmpZiTAnKgKlQAndB5cVC8aRfoGeAaS1hokmHEmOIWnJgNIQHBnmc6sR07o8C0inarbnxlW2\nbSQ1j1lnlODWbcPlzVHDlcJUIK1VdWMBI8kZpL4o4U2btpJdOWrcu5oOpFP9pmf5HUiCjFk3\nlBzsWkbLjSOvuyn4Kj1MSEdHPf69QtLSC6UkHOlHWDT9oIdl5gXp1JDtVhqeJNQZxaPkYhEf\nkAwcIQKR2BimSlcTlm+IsJAUAlI4Sj7WjloN4QjJUN0arEp/E0cDp7/7oCcJeUaRKDmZ0g+V\nfkL25xsN0aE1aBWYibaNlb0RBJEUFJKWQJRm46gxm5vp6e/mJ+y26geQBB61GJS8jKgHCsFR\n6/525R03Q4vmvqBMAGCqGzRsggeCFIKSm4WjhdLQEcHsuUK004dqq6a+oE2A75+5k+Sxh+w8\nE37NK8cJwFGtRwetm++iOFRxMoF89BuydRcakhZnlNJw1L5hZ/eSF/s1CoQNb5Kc9pF7pF+O\nTUOuVjEcNT9r5lDF14QxMHmQFA6SF0qdYl0WjiCPPztU8TdhgSmWJMdMCd+06xzrVptwjvga\nRfPLWIBp7BCSFjxKvlOsWmyCOeJrFJeaqoEIJcl3lUe23m03ULUwbR9t4KhpI3g2kBbdeLSS\nlAYkJEreE7zbfvvomzlqfmxoQpDWBqxf/jIwSY+/MNUg724qjsRwhDjnSUFaGxGNTyNJmUAa\nRKiAhOEItXJMDNLakP7ZjuZlUeMoryjF+DSOfHXqgeF3MJBMG5OVSm0kESSt9oYBngscY2iB\naLKnvw3tHdYiSZECBaQmjqxOpOpPvUF9FawJ4x2z/VpNJBEknTAByc6RMRTVKo0I0lrC9lTQ\nTrUgkgjSohkcPEfmJVhQyNCuvoqLCeOV4uZgtpBEkFTaGQRVQDJNoHntlZUzNK2v4mXCuuvy\nXI0kBQkRkAwcmRddcVFD6/oqjiasC03tg6ZLH4K0K0BAsnB03KltM01Pm/lUcTZhunysmfQg\niSDJR6ZltBUbeDs21C41BUiLhSUgSQRJru0hUAQkf45sOxIhVUJMaFcRPUkMSc1qDkjeHJkv\nu0OqhJlQDQOOJIIkFT4gITlqeGRoMpCWpp0Wf5IIkvDTeI4aH7ybD6RFwVJt0BsiDUPSlloD\nkn7DTjbg7U+vTgnSIl5fwkkiSKJPQzmCPAM+GEi6rX1BaRRJBEmkzdMXByQPjnRX1ftlBwNJ\nu3zonzV0JokgST4M4kh3WTTl09+atpQ/jmQkiSFJoKaApOfocLC9V2RBm/oqcBPqtUQRk31J\nIkj1D/05AlN0aAtZxcUEajBAJBGkumTjZhxeMUd4ig6MYat4mcAMSShJBKn6mStHuFRGYg1d\nxdGEmiXJCmiaJIakmpAByTJFyM0FgTmHKr4mtM/Y1d9G8iSJIFU+c+LIJaE7sOdSxd2E8vmO\n+i/2mRY8wScECfKRfv5cKdrqgUuVEBO+D6zCSCJIxx/5cHTYr8eixpdpQ6pEmfB8YFVAEkPS\noawBKZAj+9NCc4G0KGJ4N5II0tFHPTlqeeZuOpDko1arZ5gOgnQk82VlpQgOJGE5UF2CpLBN\nkG4iSDhzASYIUlYRJJy5ABMhIO38khBBOpIepO1hJkghJiJAKvUi+70hSEcflY2/y36RzUYI\nEsIEQcoqgoQzF2CCIGUVQcKZCzDBa6Ss4jUSzlyAiRCQxLYJ0k16kGTtECQXEwQpqwgSzlyA\nichrpLptgnST+RqpUokguZhgRMoqRiScuQATBCmrCBLOXICJwNSOu3YqWVM77tqZlR4k4RQT\npHvpQdoeZoIUYiImIhVZGwTpToaItDnMBCnERFBqV0RtEKQ7WVK7rWEmSCEmoq6R+GSDVqZr\nJD7Z0KLsIMltE6Sb1CAJ2yFILiYIUlYRJJy5ABMEKasIEs5cgAmClFUECWcuwEQcSBIvIEg3\nGUFqnxiC5FmXIEWLIOHMBZggSFlFkHDmAkwQpKwiSChz//vPz/XV4Z8f//MyQZDyiiBhzH3+\nKDe9u5jQ1CVI0SJIGHMf5e2/f9a//v7zVj48TGjqEqRoESSMubfy5/r3n/LmYUJTlyBFiyBh\nzD08fLjxwOe9jCbWdozlCJK3CBLGHCPS7kevIYKEMffvNdI/f9e/eI30kiJIIHPvd7nbj08X\nE4q6BClaBAll7n8f632kt5//4X2kFxRBwpkLMEGQsoog4cwFmCBIWUWQcOYCTBCkrCJIOHMB\nJghSVhEknLkAEwQpqwgSzlyACYKUVQQJZy7ABEHKKoKEMxdggiBlFUHCmQswQZCyiiDhzAWY\nIEhZRZBw5gJMEKSsIkg4cwEmCFJWESScuQATBCmrCBLOXIAJgpRVBAlnLsAEQcoqgoQzF2CC\nIGUVQcKZCzBBkLKKIOHMBZggSFlFkHDmAkwQpKwiSDhzASYIUlYRJJy5ABMEKasIEs5cgAmC\nlFUECWcuwARByiqChDMXYIIgZRVBwpkLMEGQsoog4cwFmCBIWUWQcOYCTBCkrCJIOHP+JsS/\nrUSQopUfpBa/C6kSZULxE2XdOCJI2o/iSNI4kNVEUxVfE5ez1wyCB0cMSBXBhsyPpLMX6YGa\nACTLKfTjiCAhPtLPn86linqeBgepaApf6mz8fm3tAwlHBKkm4KDpJ0gTZAxuNTpIZVk0v968\nXTSSI4JU/cyJpL3Z37FWHv4lqqJUIpDKUi5JraT0zjAaMmwGJJOQw2Za7GSBqTxUl8E3Iki3\nsSjL7a9ak7vjEcoRQRJ85kqSgKXTdsN94Tp+A4JU7s5yPcNqRDoM6SCOCJJA2IEzk1QD486h\nyvVfFZTGBOlcoJwQOU59K4tJMEcESfKhP0nHflFuK/WVpYrGBql6jqIofviBHRAGpGeB16Da\nZNUmXxCYLpndnKmd7FJQfF2p+HcjRwRJ9mEQScuhk9xW6+XQz4SWEFWgJq67dJXALekniiOC\nJFPbKuRCkuCC6XHp3i2mVW+QlipI4vtK4RwRJOGnoSQJWKq2MyJIx6ft+eDqbscYkIRqDEmG\nKZIO+VEOM+c10mFF1wdXmzkiSK0hyZGkRek+ZisNVUJMKJ4U2jRi54ggidWaGktKNpBkZ0N9\ngsQAABzcSURBVGkWkNqfexdgw4DULnxIApNkZGkKkCxnDuSIICnUHJICSNJnNxOApD/lTQsh\nHBEkzRLTlaRFuzyPDZI5oUVyRJA0ak6PZWWfJth62S0uamhdX8XFhJEiUQgjR24ChCTV9FxL\nGFMXxStM2qb1VfAmzKMiWqpUE0WQVEKEJFnhjTehbfsIkkojgmQejs1Vb+NTJ44I0pcUq0zT\nqO890Wzynnql4UACQnQ21HR9RJC0AuzZSEqfJnwvj8QHpsFAQg9AWZ4pI0e+woSkysBfntne\nr24LTIru1FvTV+lmojZcG+/XKi9kCZJWoJB0XLzG0elwwyNB9d54VOliQvPlQoemQQGJIJ2k\nWWiUyVR5/Eu0SQCCaVKQlMNTNv6SdSYTSAUk724qjijH/vbRKWeX9ghwzhOCJPSF+68iehh/\nTV9ScQRryLmnqJB0VF79BHMrTLOBJB6P8vgNF7t2j5tLBBKyeV+UYCFJNl+N3x4qrRxSJcaE\nZiBuObT9+kg58b7jBm7dEyXVWtNMUlGNjZmlWUBSh/Lrf+15na6C7yKPb90PJd1iY5+Cw0zj\noEnbXaaQKr4mbLcEngz5cuQ6bD5tu6GkW23Mk3C9J6s/Eb1LDQ+SNRY/3flGcNQJJL/Y4USo\n7lDDcnZKOfyvFAYHqe3q8PECyZsjx2FzjXUejWuXG3tMqtc+lulWpLhxfRUHE+03PB7umag5\nyhOQvHcDHdqHhqQaSQA3kRQztKyvAjbRCtFzdXeOHNMvr4ZvFuAmsCHpYPaui2WbxwgcbjiQ\nABA914dk5n1ACpgNPErqgbJn2XfJuytMg4HUPBTiaQJz5DVqIRwtaJT0Hgm6Xm18BOp1n/6+\ntXgwgCCOegSkKI4WMErdSFoPeDxP+AIgVVchyIZdj4Dk/nypmznDmmPeutsuj4ZpcpAk4wXi\nKB6kWIxWiyiTlrHCkrQ053k6Y5gqPUxIhymEI49Bi+dogaFkWnTgJK1lQDDNCZJidDAb37Va\ns3C0oFDChyQrSQsmNE0HknJQYjjy2D2Btyg3DbDtEJIaSFqLNu6Oh1QJMgF51NDGUTRIHTla\nECjZhsuVpKUpNM0Ckm0IojiCj1lfjpZ2lIzrjjdJaw2+RgEwYwUiNiB152hpRsmFpK2jpm7q\n1+XBQWq6TNQPO3ClbFEGjpZGlKwrTxBJa0WNbw0MUvNTd2rD1unFDlnwbdgj+X3HQQqSFoWT\njQmS137lEBwhG2sWNh8QHY0laRF623ggge6gGQY8BUi5OFrsKEUONmK/Xv+cWbVJa18AJmDP\ndERyhByxdBwtVpTsi08fkpZj7xsMJFDzmwPiNrPA08nI0WJDqWHQLCR1+9ZLaJVTvUd5mBB2\nwmKTHB0KcxNPethUFfqMqtAmusqq331Bqlj1m1bc2eTlaDGg1DJs9izci6bI1O7P27u3iZ3m\n6qPnyBHsbFJztKhRalp/mqazvpLrFXqN9Kd8eJt4akk2ZC3zEgVSdo4WJUpt49a+UYqlKXaz\n4Xf5423irpG2lymkR4M4SnQb9kjI71RsmBTxoMNoyrNrJ76AkralKd9wOAakMTD6kvKHDMwF\n2kPSrSzfR3quaRkUV44g4zUOR4scpcYlCEjSWr6NpolAMo9E24Vra/PXYg0b7Nkkm4fWoQOT\ntNbxciJQlW8NwLMh+EPg4sM4jg5KjsbRIkSp1Q8cSDpVxGc1oCrfGkCC1Jzfek+WIs9Zi5Zn\nyVpIpva90noJL5LWytDLbFCVbw2gQEI4WQaOyvL044ETaHSSFpWDDQsSZqWutNF4G1dU4hyM\n5gMphqS2CRRI6GhDggRLdxo5wXE0JUghJHkHpVMjdYcbDiTkNUNj3gDk6O4aaSZhSOqb3t26\nwV+j0FoRmWr3gIcyBXxyOYRZbBrTu7oBqfg+kt5IYFp3/nNCjhbQetM2GQm8CVUlo4mmwcem\ndVMrQXoXsUS9KkjueTc5uggzWDkulKAWxgeplkW1Xx6RozvFkNQ5KL0cSO07mYD3m8Rl5hCI\npNZNVleYXgok/5f8wGVmUczSI7nUcoPpZUCSjiEgrSNHTwoiSdSGD0wvARLukSnU0yJzbnUf\nCEUSZlPBAabpQRJHIolhRUvt7cwl0A0D3PYcGKapQdJEIlg6Ro52FEPSqUx8ZJoWJN0YwWYH\ntaWn18Z7TGa5dBBGUnXXtWhSZ9D5TgmSemzKAkq/+2wzwJ3fiSbJtlp7O4YH6QGnOx1ItjEp\nmF8b6MCRYwDpckXePs5F3MxjtbbTnQokK0SXVWy/MurbPOD7KM6TgTYBI+lgquStbDRrPttp\nQLKPQXn8j70/gRwFMORjDHYJeTxX4SnNHCC1TfSt7l4jMI4wb8cHMoQ3606S5Hq32rb+XIcH\nqXl+y3nsd60K24/YruvDENY+jqTtYuV2ZH9ORc2n/xYhmAmIX10Gfq8paV8gRQ4q94boouaO\noG7N7hW7a795kZU3MCxIUL86aCkBR2kYuqmtS84k3R0HpdKArmCqgE1gHOu+jd2EuzdH+Ri6\nqXF/p7HEuQuHH7duPNzaS/ktQk0mYJ71kEDv59vStgBFvtfIDNFFxk7CSDosd+YIM4qVEx0M\nJPBXcdUin7ApOEdDMHSTobsRJF2nGLd5XzGmbK2hJ9lMHK4xuLROcUKDMXSTsuMCkhrXsfMW\nUtBovixI5/VqP/Aj07rIXciuwm5ztTV1yd0JkrON41EO9odhA9GzpKfiTlJ1jpF6XZAOl6vY\ndXUahm6SnBKSpIPdu5jBfUmQzrP8ldc12sdwJLU2liBXQY0zUa5Ryf3x3pAqiUw85B1TcVRg\nQnUIUaSVpLsnKV1heimQZEMJfT09jCOkk6DaAuW9Umuiue33+i+iSgIT4iFEhqN6GdjNQkQz\n8AZjL5SEBX1gegWQVOkKNK2rcyS11mamX6sZSVo8YJodJOWIjZfWOSb+kKYxJCGn5VYWmg6H\nVOljwuPBFUXBCI78XzVvbwJQwiMonUrDaJoVJNMAQde9AI4i7pBEvMknGk7x5AjL3Tcdsl4g\nqoSasK4y2Kly5yjsLm6zIdBQeKR3d5XaX7QOqBJmomE8sPPkzVHssxDuTiaL8X5B6dy+68uK\niCohJqzjUFQmUXvoLaPY4ZGiNpOonTnVJMVGpklAallMVBVBHLW4Za8H85z7DCVpOXquv17V\n4E0TgNSa3ipqC9M6x9tHHYIRxjiKJGEPTo+rysruNKA72bFBQuxeloHSuv5PiXsGftTwXks1\nu4bHjfymKh4mUHcACi7QXNprLrFjvztGXzJ3A0aS+IoLMV5SNxsTJPQTHpj7QsJixovZFBSd\n5HY9jh1j2IhJ3G08kHD3ou+age0OOHGUCaMvteyPtpWQFVuvkLBrbcXtBgMJGIkero1qzeKu\noiwDLk09UQJ26lslQImz9WozlyKKa+C61f2WBgMJbAK7y+DDkfTSDDhmfiYFA4QJSkW+SGL0\n2iBht1wdOJKu+/j3kYTF1CcEKXKyLTVJkPxtSG7b4SZM/TA62qcS2Ebdmq2Xu8vtAvTCIMmS\nu27hSB6MnEbLqwNAkoC7ra16XZBkV0ninoA56hmMvHsBHCqvmw16vSRI5zW07H4dl74j0BkV\nr/H+6b+8J5rzA5QQFrzmd+6vQIZUSWTiYXtXvvVTaxVQQms16EkHj4t6JEnHJe+Oou/i7xpy\nrJLEhHIoMzqGuhxADgESuvCIS3rC9DIgqYewxwKbKKez2ZOfAKDEzai46Km4yy5nSJW+JkzP\niHdI+ZPdGTHaxD3b6xOUzm3D77yFVOlnwjhi0HeUZLu0yS6NGgzLCgJvKNmWFtP6ut9aSJU+\nJuwDFR6OUgcjg3XQHR7oPGxXgz0CHVIl3kTTAEVzNAhGqh7I3xpqK2Ep+r0mAqYZQWocmPA7\nIuNg9CXgox7ou2/yshuVG0d3NpDaVxfsBjmOoxwYfQm3Mwd+MqF15oOymIYqQSbCQ3R9nwFl\nMA9GX4LtzOUiaWlwoXlAwlw1ZuVIVAgkWIdGJMm6Zs0CUo+9lzCOUNvJQgEfqh6SJNOaPAVI\nsPsBqilDeABu9YfOCg7c2F1NWXOiZtTvWRls6Kt4mgDeVQMvfZG3mMCTEgk4Lv5pi1Yacnow\ns6WKmwnovemcHAnKOGxF4LLJeJK6uMTIIGEflsFeHgEcyHUSQY2mJAk5HsCncBFVHEygHznL\nxpHilQSnCYEFpaFJknraoCDBnWdgjqQF9UIFpcFJErE0IkgOzz9n4+jruOyWjutskKRbg7BE\nvKUK0ET3t7JA3n10iiczRWDL/ZsIMOkdaEHoSlLF8wYDycdx4BPUtgKfv5pF0FD35EBaCBOS\netxQktofDKTu1gI4up8uaTlHYYISiKQuN5S8rM0GUjaOlnKNRuhkwibISc9OUiRIn79Kef/n\n3MjxWms1YVBCji7JXZYxgqRdk5MUCNLn2/ps8c9TI0M5iaYsxGHqFx0bJfye/oY8pjQ3SYEg\nfZTf/9L0++19bSQJSJk4uh8Tg1PCBs3c+CuTFAjS26ni37cff9OApJkTd47uj6nHB7nzsBmU\nrBVVbYxLUiBIl1H+fH9PAhJ+N7XFVYrUitnP5XJK73qQFOVLIVVW/Sifl7/eU4AET+sk1zaV\nQ8brJ/iA2dO7tomVjnO6oBQI0u/y6/zX3/KeAKRkHC2XnbrK0IRwtENSe1BCkZQuvQsEafm4\nTsQ/lQd9Ik49G0eykGT3b63sxLbd/RqUpEiQlj8/L3/9/fXUivr7N9qUj6OTA+ovMtwGy27s\nBUkKBSmRiYwcVfO6qLTuqOn29G5Okl4TJNW1ahxHlit116GyWzw6ky4kubtUSJVvDcBG0sv+\nfWFUuYpn1evHXR5BjCYjyXuoXg4k5QVYFEc2A72SgyFJ8nmV7dp4SJVvDXQDye/bymoFQzm6\nnSbAd7qQJB933fn5sfRKIOkHMQtH2z3f5eh6TJQzVo3LeySpWT0kOm4peS7v5FwhVb410AMk\n16+h9eZo88Pdmo/4tI+lDmNhmX4k9f+2AnuVbw3Eg2QauiQcif243P3/N5BaX6OQ90tQsXpI\ndNxS8lYF72EhVfqasK1AwC/E2i9g9sUjb78HyXLqUpLsvRdVdiWp7/cimqt0NGEdMOA0hnB0\neam2AFK7jSGbjyRwWJocJPNYJeFoJ607dnTANdIeqLJPK03Vj0gLGEo+VsOxNDNIDcOUhSPp\np+X7P8q3v7QCpncxJJlXTBBL84LUMkCKqvZr5rob6dK6+39fCLK7iTy9c1xKNJ23TzcEpUlB\naltnknAk/dhpQsSGhifJ7b41vEqwicZhycyROFAAJL1QmoCk9rA0H0itqwvyLeYGB7JdHmEl\nv1ByHIjKcWvZjdpRWUxDlTAT7TEaOXFw9xHHCJDk8W8GkoK2p1qqeJs4lwd4VWaOItO6fQPG\n9G4Mkq6n5/d4c1MVXxPnx1oQi7MmrXNznRRpndqq/SuLjWmuqS1JE2Vt5vVAAmY3yBmzcyT9\nOOYr22DpHX4Dc7MoYlAE357xVMVgRV/FycQlFKFcKgNHe6fSIa1TmzZ/0SqSJEhQ0rczMkiX\nZePyfFmMVVnRgwKHdeUuGsaRJhhazq1aT1TAWHa/het1t9wZDVacpeh7Ma0fW61l5kj2EUhW\n+wcfVw+mIunOocRr9NAg3WeykMFDlTV6jCKt89x52GRUas767ZCZSLqkOXcu1rC1hKyCNXFd\nNe/zOsDYSYu6cST+XObqZskwlXdXdKw+qsiUoVb9zsPWqFS9Dh8QpBs2t9MMfMCjXtTmLbvh\nSMZRpU9KyUgyBKUWkrCzJKpelnt/AxvMANJdBovoTgaO5J/7c9RqdnySloerb8FKPSJId0sE\n5m2SoTjailAOUyIzk5mk5qvm8nB1VGluQJAeLo38rSmLmvxkd9J7pHUqS7sdPzhZlUl1CVvZ\n3SaujjYpSAsMJPA1rMWBFN4Yx1HjhRJ0IHRFTGWPmpgVJNilkcDUQ9FojiQ98HxOaIskRHrX\nRlLohdK1nQmvkRbUpZHEkrKoM0eaZhHy2gdvIil2y+HcTrWhMUHqYegFOZLafAGSPAxNBFJe\njjpfHimt6h+9m46klwYpMUfPn8ReHmkNvzxJrwzSUBxpWgWrJb3LQFLMehNSJaEJzfiKik7L\nUVKSkgWllwUJPQ84h3l2EWFa5/gahaQD6i9zaCMpWXr3qiAl5khSTubsRpnfSHplkl4UpAk5\n2rVjEElSiyBBihKkg04QJFiVdCYUGw1thYbkaEKSEnlUS5VsJhiQKpoOpEwu1VAlmQn4+HcH\nCT5g0H64gZSIpFcESdO6G0g7ByS+6R+QzNiIz6p2AA9SIqeyV8lkQrVNPEhA6gTSWCHJ9xGH\nlwNJ1/QgIDmM13y5nbq0d9NDg+Qy8PNlduDczg+kNCS9GEjKhlsnU+0mTx/3Ckj9Q5ILSGk8\ny1gli4lgjgbO7PqDNBhJLwWSttmUIMVkdrPmdml8y1YlhwmvIXfM7Bp8t1nQzvjldklIeiGQ\n1I0mAKlfZtc/t/MCKYl3jQqS/iZC+0SOnNmNk9sZSPLwr5Aq/U04nidusU2V2YGN48K2vQ9N\nVUbohL8Jz9MMzeziAlIUSO25XQonztAHfxOW9uIzOxtIjtOBNJ8MpAwuNh5IpuZePrMzmYfy\nMhJJrwCSK0eemZ1xFw+mGJA6haT+TjYaSLbGMoDUOSBZOtAHpAQkTQ+Scauzx0X0FCCNk9uZ\nfQPVg6FAsraUISAZd/GQMvRg92ci84Wkzo42EkjuHL0aSLU+lfsfJq21VT3iDlJXTxsIJHM7\nniCNk9npu1B2SzmD1J2kqUHqyZEHSOEcqftQ9grtf3p0ICAkdfS1YUCyt8LMTmHyGaQeF0m9\nSZoYpAiOOmd2PabisFt738K/U7N6JAKkbt42CEgNbSQFqUNAwvYCN1itZVE1m9oYAqSWWwSu\nHA0PUkNczBqSEDeUJgWpqYEuIFkcdpfJO8co5w9wlxBZQWqa9B4eNwBIURzlzOzK3aETQFAX\nO+pHhdesuV1rZVv9/CC1VUfMXUhmd9TUA0hYD5PETu2+XX+QOvhcepD6c+QCUrVKufv/cvlz\n/cfFsU0/fakiupSdMgefHh4ZhaQJQQpcWiIzu3qdfZBk7VWaPejafW5nIykBSOFelxykgO7V\nTcFB2qi35fCrH9+4KY90CVUj6TC3K4eXZb4g9SRpOpAil5XAzK48X8jv+vcdSKUSIUR90eV2\ny3KwSZg6t4v2u8wgtd0QQHGEWHjL93+V8u3sdrl6yOT0qV09GtZAgkaeyJDU4D9zgdQe2jV3\nXGIzu+80HMSN+3cZyu0DsVpyu2sEROV2oSEp1PXyggTgaJGvSpip36nx5LtP+9h17zarKbc7\nhc4ub/dpCyNbmAmk5o4V1e3LUJCebgg5cmQISd8JL3sdsgxabEiKc76sICHGUAMSsiciLMp3\nd22z2dCdw9zu8t8uuV03kuYBCdKtspQe2UE9IFWrhIJU3W4oSJCiQ1KU+7V29fdb+fEbbgKR\n163TL2nouMzujoL8TZ3vew3lO9+uHLXldkevJPnndr1IinTZPz/L2+/lP+tAv4NNYNIx8T7D\nYcGdY+Xuf7UaT9R8987EIFU6M0JIinFAa0//rM7wUX59Ln9/lsOYpDWBe59E1lA5ROkYpK2j\nFT8tTwQ6c9RKkqZlSQvhIUnvUYEg/Sofy/JR3r7+/iw/gCaQi5CUpP2xPszfNi/B6pnd909n\nBClVSIrwQWtHz1tiP+/+gTGBGTnd3veB4cMl1wTS86cDgKSPPKlCUoATtoH031NOdwpMEBMw\nJzq+SpY3oz4qwqJEcqQnyRekHiHJ3Qvtqd2/V0cnfa5pHsYE0okQbVXasAekgwIJQJKfhXtu\n14WkQJA+366LajkOSBoTDj7UJn2H1CAFcCTZANF+YD/QLUdxtWnv5scFn7eNeHT0kqZHZ1ob\n0y+461FrRArO7IbO7XqQFAoS3ATodzku7MpuxlYK730sf47z8YONiilBAuR2+UCSe9jQICG3\nZ1TPfNtuIu3tIhx+cK5Y9o7vm2xVrtyuF0mOvtjcybrPykyArylVRrW+cFBNAtKSD6TXyO3E\nbQ0MEjB+axqsFN7N7PaOPn/0CNJzxVpoQEmZUFZORPD58ankJmlckJDRW3Mvdh+JwzZ2f4Gr\nupCHvol02JGK3faLpJwhycsdc4CEdR/VVqHtFxeuvNYqbHzS4xIJkNvNEpKc/DEFSHDv0TVo\n8wRZhUoTYRypQ9K8IPk4ZAaQ0N6DmqPjgCSqsRWQjo7nAck7t0tNUg+Qmk0gf9ZdZFBcWJ3j\nizK7w+P9QHqlkFT1uRFBwncANkP+IAVylC6360oS3il7g+RgPwQkYYU8l0gESdHgeCAFmDdr\nMo5IkrzB4UDKzBFBqjZQ+zw1SGC/7J3aUVQ+ESSKAoggURRABImiACJIFAUQQaIogAgSRQFE\nkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRRABEkigKIIFEUQASJ\nogAiSBQFEEGiKICSgkRRg8ng5XhwrIrpykRWJjqV8a0QpHGtTHQq41shSONamehUxrdCkMa1\nMtGpjG+FII1rZaJTGd8KQRrXykSnMr4VgjSulYlOZXwrBGlcKxOdyvhWCNK4ViY6lfGtEKRx\nrUx0KuNbIUjjWpnoVMa3QpDGtTLRqYxvJRFIFDWuCBJFAUSQKAoggkRRABEkigKIIFEUQASJ\nogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAVQIpA+f5Xy64+7md8/\nytvHp7uZ5bfv0H68TXEaJxsRU+LsXolAelt/B8CbpI/Vypu7C/6x/KSBXO/rafzwNLHK+TRW\nxUyJs3vlAemj/Pr6z09fK3/Kr8+vZfaXr5nlz5urB/6vvP35svE/Rxtfcj6Nk42QKfF2rzwg\nvZWvJcl73n6e2vc287u8u5r4KP/8+9//lv842lj8T2NVzJR4u1cekE4qbzFmnM+7fPia+Fn+\nLl9ruXP89j6NB1sRhvzcKxlIH+V3hJnP8u5r4I+zY5SYwOp9Gndyn5IvObpXKpD+W/5dAiP0\ne82MfDUDSDEmVgVMiat7pQLp988376x/1d8355ToSwRJo4gpcXWvVCD9q18Bud3nW0AWQZA0\nipkST/fqD9Ljz0h/Ol0O3lt5d7v9cm/F1QPfJgPJb0oe5eVe+UDymriblb8/3v+6mFgCQTrt\n2v313rVbYkDynJJvcjud/iBddNro/+t9t/6fiN2hL7l64H/WS/N/AvZmAkAKmRJv98oD0nrr\n+fOn8zXS3yiOfD0w6smGCJBipsTbvfKAdH4YynlQf5XyLZf0kq+JHxGD9SX/kQqaEmf3SgTS\n1wPNP7z37MokIH2uT397WjjLf6SipsTXvTKBRFHDiiBRFEAEiaIAIkgUBRBBoiiACBJFAUSQ\nKAoggkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImi\nACJIFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAog\ngkRRABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJI\nFAUQQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAoggkRR\nABEkigKIIFEUQASJogAiSBQFEEGiKIAIEkUBRJAoCiCCRFEAESSKAoggURRABImiACJIFAUQ\nQaIogAgSRQFEkCgKIIJEUQARJIoCiCBRFEAEiaIAIkgUBRBBoiiACBJFAUSQKAqg/wOpYHpi\negMwygAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "fa = (f - t(f)) / 2 \n",
    "contour(x, y, fa, nlevels = 15) "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>image()</code> funguje podobným spôsobom ako funkcia <code>contour()</code>, až na to, že produkuje farebne-kódovaný graf, ktorého farby záležia od hodnoty <code>z</code>.\n",
    "Tento graf je známy pod pojmom heatmap, a môže byť niekedy použitý ako graf teplot v predpovedí počasia. Alternatívne, funkcia <code>persp()</code> môže byť použitá na produkovanie troj-dimenzionálneho grafu. Argumenty <code>theta, phi</code> nastavujú uhly pod ktorým je graf zobrazený. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 411,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAATlBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD/QAD/YAD/gAD/nwD/vwD/3wD/\n/wD//yr//9X///9dvUEzAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3d6Xac55Vk\n4QQn0RKJGrqqq3n/N9ocJL/HVfZpwXoy4xM69g8tygbx8UTEJhLDWrp9KaX8YW7pP0Apr4GK\nVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEil\nACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqg\nIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpS\nKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUC\nqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCK\nVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEil\nACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYAHiPS/LsO/C/5V8C/XgdxDkk3P\n4/BPWFGRXgoZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahI\nO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4\naXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9\nJNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy6Xkc\nKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3\nGV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0D\ncg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6\nHoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH\n1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9t\nz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYck\nm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF\n2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P4xAQ6ePT7c3H/U3SqRxI3WR4aXsG5B6S\nbHoeh0eK9Ond7enjl59u33i7vmU6lQOpmwwvbc+A3EOSTc/j8ECRPn036MPt/fOXz+9u68ek\ndCoHUjcZXtqeAbmHJJuex+GBIr2/ffjy5cPt6duvn29vtjdNp3IgdZPhpe0ZkHtIsul5HB4o\n0u37b7y9G//yt//3IZ3KgdRNhpe2Z0DuIcmm53F4uEh/+fGa7scHpn9EOpUDqZsML23PgNxD\nkk3P4/DQl3ZfPzv6wfP3l3n/mHQqB1I3GV7angG5hySbnsfhgSI9P/319dxt/4BUkf4OaXsG\n5B6SbHoeh4d+H+nDb/o8rR+PKtLfI23PgNxDkk3P49CfbNghdZPhpe0ZkHtIsul5HCrSDqmb\nDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4B\nuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9\nj0NF2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD\n6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DtcU6T8EJB9S\n978J0vYMyD0kWdIxWVtF2iF1k+Gl7RmQe0iypGOytoq0Q+omw0vbMyD3kGRJx2RtFWmH1E2G\nl7ZnQO4hyZKOydoq0g6pmwwvbc+A3EOSJR2TtVWkHVI3GV7angG5hyRLOiZrq0g7pG4yvLQ9\nA3IPSZZ0TNZWkXZI3WR4aXsG5B6SLOmYrK0i7ZC6yfDS9gzIPSRZ0jFZW0XaIXWT4aXtGZB7\nSLKkY7K2irRD6ibDS9szIPeQZEnHZG0VaYfUTYaXtmdA7iHJko7J2irSDqmbDC9tz4DcQ5Il\nHZO1VaQdUjcZXtqeAbmHJEs6JmurSDukbjK8tD0Dcg9JlnRM1laRdkjdZHhpewbkHpIs6Zis\nrSLtkLrJ8NL2DMg9JFnSMVlbRdohdZPhpe0ZkHtIsqRjsraKtEPqJsNL2zMg95BkScdkbRVp\nh9RNhpe2Z0DuIcmSjsnaKtIOqZsML23PgNxDkiUdk7VVpB1SNxle2p4BuYckSzoma6tIO6Ru\nMry0PQNyD0mWdEzWVpF2SN1keGl7BuQekizpmKytIu2Qusnw0vYMyD0kWdIxWVtF2iF1k+Gl\n7RmQe0iypGOytoq0Q+omw0vbMyD3kGRJx2RtFWmH1E2Gl7ZnQO4hyZKOydoq0g6pmwwvbc+A\n3EOSJR2TtVWkHVI3GV7angG5hyRLOiZrq0g7pG4yvLQ9A3IPSZZ0TNZWkXZI3WR4aXsG5B6S\nLOmYrK0i7ZC6yfDS9gzIPSRZ0jFZW0XaIXWT4aXtGZB7SLKkY7K2irRD6ibDS9szIPeQZEnH\nZG0VaYfUTYaXtmdA7iHJko7J2irSDqmbDC9tz4DcQ5IlHZO1VaQdUjcZXtqeAbmHJEs6Jmur\nSDukbjK8tD0Dcg9JlnRM1laRdkjdZHhpewbkHpIs6ZisrSLtkLrJ8NL2DMg9JFnSMVlbRdoh\ndZPhpe0ZkHtIsqRjsraKtEPqJsNL2zMg95BkScdkbRVph9RNhpe2Z0DuIcmSjsnaKtIOqZsM\nL23PgNxDkiUdk7VVpB1SNxle2p4BuYckSzoma6tIO6RuMry0PQNyD0mWdEzWVpF2SN1keGl7\nBuQekizpmKytIu2Qusnw0vYMyD0kWdIxWVtF2iF1k+Gl7RmQe0iypGOytoq0Q+omw0vbMyD3\nkGRJx2RtFWmH1E2Gl7ZnQO4hyZKOydoq0g6pmwwvbc+A3EOSJR2TtVWkHVI3GV7angG5hyRL\nOiZrq0g7pG4yvLQ9A3IPSZZ0TNZWkXZI3WR4aXsG5B6SLOmYrK0i7ZC6yfDS9gzIPSRZ0jFZ\nW0XaIXWT4aXtGZB7SLKkY7K2irRD6ibDS9szIPeQZEnHZG0VaYfUTYaXtmdA7iHJko7J2irS\nDqmbDC9tz4DcQ5IlHZO1VaQdUjcZXtqeAbmHJEs6Jmu7pkj/eRlIU2QzZL0Gcg9JNj2PQ0Xa\nIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HodHivT8/nZ7\n+/Ov72R9L+lUDqRuMry0PQNyD0k2PY/DA0V6frp9492Pd1KRXkjangG5hySbnsfhgSJ9uH38\natPHp7ff30lFeiFpewbkHpJseh6HB4r09OM3fn5687kivZy0PQNyD0k2PY/DA0X6zZ3nt2//\nnki3QTqVA6mbDC9tz4DcQ5JNz+PwQJHe3J5/+9XbfkR6MWl7BuQekmx6HocHivTx9v7XX32+\nva1ILyVtz4DcQ5JNz+PwyC9/f/irPT/fKtJLSdszIPeQZNPzODz0G7Kf3v32q8/vK9ILSdsz\nIPeQZNPzOPQnG3ZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYck\nm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF\n2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibD\nS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0Du\nIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/j\nUJF2SN1keGl7BuQekmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6\nyfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0Z\nkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT\n8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7\npG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhp\newbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k\n2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq\n0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZ\nXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNy\nD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoe\nh2uK9F+C/y0gIZPNvDZIsqRjsraKtEPqTm/2kpBkScdkbRVph9Sd3uwlIcmSjsnaKtIOqTu9\n2UtCkiUdk7VVpB1Sd3qzl4QkSzoma6tIO6Tu9GYvCUmWdEzWVpF2SN3pzV4SkizpmKytIu2Q\nutObvSQkWdIxWVtF2iF1pzd7SUiypGOytoq0Q+pOb/aSkGRJx2RtFWmH1J3e7CUhyZKOydoq\n0g6pO73ZS0KSJR2TtVWkHVJ3erOXhCRLOiZrq0g7pO70Zi8JSZZ0TNZWkXZI3enNXhKSLOmY\nrK0i7ZC605u9JCRZ0jFZW0XaIXWnN3tJSLKkY7K2irRD6k5v9pKQZEnHZG0VaYfUnd7sJSHJ\nko7J2irSDqk7vdlLQpIlHZO1VaQdUnd6s5eEJEs6JmurSDuk7vRmLwlJlnRM1laRdkjd6c1e\nEpIs6ZisrSLtkLrTm70kJFnSMVlbRdohdac3e0lIsqRjsraKtEPqTm/2kpBkScdkbRVph9Sd\n3uwlIcmSjsnaKtIOqTu92UtCkiUdk7VVpB1Sd3qzl4QkSzoma6tIO6Tu9GYvCUmWdEzWVpF2\nSN3pzV4SkizpmKytIu2QutObvSQkWdIxWVtF2iF1pzd7SUiypGOytoq0Q+pOb/aSkGRJx2Rt\nDxTp9rdUpP+/IcmSjsnaHijSx12k+f+R00jIpO70Zi8JSZZ0TNb2yJd2n57e/s63JKeRkEnd\n6c1eEpIs6Zis7aGfI326ffh9b0hOIyGTutObvSQkWdIxWdtjv9jw8fbpd70dOY2ETOpOb/aS\nkGRJx2Rt/ardDqk7vdlLQpIlHZO1VaQdUnd6s5eEJEs6JmurSDuk7vRmLwlJlnRM1laRdkjd\n6c1eEpIs6ZisrSLtkLrTm70kJFnSMVlbRdohdac3e0lIsqRjsraKtEPqTm/2kpBkScdkbRVp\nh9Sd3uwlIcmSjsnaKtIOqTu92UtCkiUdk7VVpB1Sd3qzl4QkSzoma6tIO6Tu9GYvCUmWdEzW\nVpF2SN3pzV4SkizpmKytIu2QutObvSQkWdIxWVtF2iF1pzd7SUiypGOytoq0Q+pOb/aSkGRJ\nx2RtFWmH1J3e7CUhyZKOydoq0g6pO73ZS0KSJR2TtVWkHVJ3erOXhCRLOiZrq0g7pO70Zi8J\nSZZ0TNZWkXZI3enNXhKSLOmYrK0i7ZC605u9JCRZ0jFZW0XaIXWnN3tJSLKkY7K2irRD6k5v\n9pKQZEnHZG3XFOn/XAbS1H8I0sMfkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG\n5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0\nPA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy6XkcKtIO\nqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7a\nngG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9J\nNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeK\ntEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2G\nl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4Dc\nQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57H\noSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1\nk+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9sz\nIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm\n53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2\nSN1keGl7BuQekmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS\n9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtI\nsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhU\npB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4y\nvLQ9A3IPSTY9j8MfFOnNT5+ZPYN0KgdSNxle2p4BuYckm57H4Q+KdLvdXuDSLz+9u33j3Ydf\nKtJLSdszIPeQZNPzOPxBkZ7/8v53u/T85nZ4W5FeSNqeAbmHJJuexwF8jvTLT29+l0sfbk9/\n+fT9V59/frp9qEgvI23PgNxDkk3P42C+2PDp6esHmY//j9/3dPt0fsPtqSK9jLQ9A3IPSTY9\njwMR6ee3v+Pl2tfPp/7Rv/z6vxzSqRxI3WR4aXsG5B6SbHoehz8u0vNPXz8cvfn5+atN79bf\n149If4i0PQNyD0k2PY/DHxXpl29fbPjww5D/+VHmb/j6OdLPPz6R6udI/wRpewbkHpJseh6H\nP/p9pK8fjD4+//Z/rB9lvnx5O168vXne3jKdyoHUTYaXtmdA7iHJpudx+KPfR3r38wt+5y8f\nvn8f6endT/0+0otJ2zMg95Bk0/M4/NHvI738t/8e0qkcSN1keGl7BuQekmx6Hof+rN0OqZsM\nL23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7angG5\nhySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2P\nQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeKtEPq\nJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7Zn\nQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JN\nz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLt\nkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl\n7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQ\nZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53Go\nSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1k\neGl7BuQekmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzI\nPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5\nHCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1S\nNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9\nA3IPSTY9j0NF2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJs\neh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVp\nh9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRyuKdJ/CUhT\n/ylID/+SkGRJx2RtFWmH1J3e7CUhyZKOydoq0g6pO73ZS0KSJR2TtVWkHVJ3erOXhCRLOiZr\nq0g7pO70Zi8JSZZ0TNZWkXZI3enNXhKSLOmYrK0i7ZC605u9JCRZ0jFZW0XaIXWnN3tJSLKk\nY7K2irRD6k5v9pKQZEnHZG0VaYfUnd7sJSHJko7J2irSDqk7vdlLQpIlHZO1VaQdUnd6s5eE\nJEs6JmurSDuk7vRmLwlJlnRM1laRdkjd6c1eEpIs6ZisrSLtkLrTm70kJFnSMVlbRdohdac3\ne0lIsqRjsraKtEPqTm/2kpBkScdkbRVph9Sd3uwlIcmSjsnaKtIOqTu92UtCkiUdk7VVpB1S\nd3qzl4QkSzoma6tIO6Tu9GYvCUmWdEzWVpF2SN3pzV4SkizpmKztgSLd/paK9P83JFnSMVnb\nA0X6WJHKgSRLOiZre+RLu09Pb3/nW5LTSMik7vRmLwlJlnRM1vbQz5E+3T78vjckp5GQSd3p\nzV4SkizpmKztsV9s+Hj79LvejpxGQiZ1pzd7SUiypGOytut81W5+/kROIyGTutObvSQkWdIx\nWdt1RJqQ00jIpO70Zi8JSZZ0TNZWkXZI3enNXhKSLOmYrC0h0v6l72+Q00jIpO70Zi8JSZZ0\nTNZWkXZI3enNXhKSLOmYrK0i7ZC605u9JCRZ0jFZW0XaIXWnN3tJSLKkY7K2irRD6k5v9pKQ\nZEnHZG0VaYfUnd7sJSHJko7J2vrl7x1Sd3qzl4QkSzoma6tIO6Tu9GYvCUmWdEzWVpF2SN3p\nzV4SkizpmKytIu2QutObvSQkWdIxWVtF2iF1pzd7SUiypGOytoq0Q+pOb/aSkGRJx2RtFWmH\n1J3e7CUhyZKOydoq0g6pO73ZS0KSJR2TtVWkHVJ3erOXhCRLOiZrq0g7pO70Zi8JSZZ0TNZW\nkXZI3enNXhKSLOmYrK0i7ZC605u9JCRZ0jFZW0XaIXWnN3tJSLKkY7K2irRD6k5v9pKQZEnH\nZG0VaYfUnd7sJSHJko7J2irSDqk7vdlLQpIlHZO1VaQdUnd6s5eEJEs6JmurSDuk7vRmLwlJ\nlnRM1laRdkjd6c1eEpIs6ZisrSLtkLrTm70kJFnSMVlbRdohdac3e0lIsqRjsraKtEPqTm/2\nkpBkScdkbRVph9Sd3uwlIcmSjsnaKtIOqTu92UtCkiUdk7VVpB1Sd3qzl4QkSzoma6tIO6Tu\n9GYvCUmWdEzWdk2RSMgEspl/F/zbdSD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2\nDMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy\n6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSk\nHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8\ntD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQe\nkmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwO\nFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmb\nDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh6Fj5j4AABAlSURBVIq0Q+omw0vbMyD3kGTT\n8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7\npG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxDkk3P41CRdkjdZHhp\newbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k\n2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRwq\n0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeKtEPqJsNL2zMg95Bk0/M4VKQdUjcZ\nXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNy\nD0k2PY9DRdohdZPhpe0ZkHtIsul5HB4p0vP72+3tz7++k/W9pFM5kLrJ8NL2DMg9JNn0PA4P\nFOn56faNdz/eSUV6IWl7BuQekmx6HocHivTh9vGrTR+f3n5/JxXphaTtGZB7SLLpeRweKNLT\nj9/4+enN54r0ctL2DMg9JNn0PA4PFOk3d57fvq1ILydtz4DcQ5JNz+PwQJHe3J5/+9XbivRi\n0vYMyD0k2fQ8Dg8U6ePt/a+/+nx7W5FeStqeAbmHJJuex+GRX/7+8Fd7fr5VpJeStmdA7iHJ\npudxeOg3ZD+9++1Xn9//j/dyG6RTOZC6yfDS9gzIPSTZ9DwO/cmGHVI3GV7angG5hySbnseh\nIu2Qusnw0vYMyD0k2fQ8DgmR9s+PvpFO5UDqJsNL2zMg95Bk0/M4VKQdUjcZXtqeAbmHJJue\nx6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2PY/DNUX6\nDwFpimyGrPdfrgO5hyRLOiZru+aXv8lpJGRSNxle2p4BuYckSzoma6tIO6RuMry0PQNyD0mW\ndEzWVpF2SN1keGl7BuQekizpmKytIu2Qusnw0vYMyD0kWdIxWVtF2iF1k+Gl7RmQe0iypGOy\ntoq0Q+omw0vbMyD3kGRJx2RtFWmH1E2Gl7ZnQO4hyZKOydoq0g6pmwwvbc+A3EOSJR2TtVWk\nHVI3GV7angG5hyRLOiZrq0g7pG4yvLQ9A3IPSZZ0TNZWkXZI3WR4aXsG5B6SLOmYrK0i7ZC6\nyfDS9gzIPSRZ0jFZW0XaIXWT4aXtGZB7SLKkY7K2irRD6ibDS9szIPeQZEnHZG0VaYfUTYaX\ntmdA7iHJko7J2irSDqmbDC9tz4DcQ5IlHZO1VaQdUjcZXtqeAbmHJEs6JmurSDukbjK8tD0D\ncg9JlnRM1laRdkjdZHhpewbkHpIs6ZisrSLtkLrJ8NL2DMg9JFnSMVlbRdohdZPhpe0ZkHtI\nsqRjsraKtEPqJsNL2zMg95BkScdkbRVph9RNhpe2Z0DuIcmSjsnaKtIOqZsML23PgNxDkiUd\nk7VVpB1SNxle2p4BuYckSzoma6tIO6RuMry0PQNyD0mWdEzWVpF2SN1keGl7BuQekizpmKyt\nIu2Qusnw0vYMyD0kWdIxWVtF2iF1k+Gl7RmQe0iypGOytoq0Q+omw0vbMyD3kGRJx2RtFWmH\n1E2Gl7ZnQO4hyZKOydoq0g6pmwwvbc+A3EOSJR2TtVWkHVI3GV7angG5hyRLOiZrq0g7pG4y\nvLQ9A3IPSZZ0TNZWkXZI3WR4aXsG5B6SLOmYrK0i7ZC6yfDS9gzIPSRZ0jFZW0XaIXWT4aXt\nGZB7SLKkY7K2irRD6ibDS9szIPeQZEnHZG0VaYfUTYaXtmdA7iHJko7J2irSDqmbDC9tz4Dc\nQ5IlHZO1VaQdUjcZXtqeAbmHJEs6JmurSDukbjK8tD0Dcg9JlnRM1laRdkjdZHhpewbkHpIs\n6ZisrSLtkLrJ8NL2DMg9JFnSMVlbRdohdZPhpe0ZkHtIsqRjsraKtEPqJsNL2zMg95BkScdk\nbRVph9RNhpe2Z0DuIcmSjsnaKtIOqZsML23PgNxDkiUdk7VVpB1SNxle2p4BuYckSzoma6tI\nO6RuMry0PQNyD0mWdEzWVpF2SN1keGl7BuQekizpmKytIu2Qusnw0vYMyD0kWdIxWVtF2iF1\nk+Gl7RmQe0iypGOytoq0Q+omw0vbMyD3kGRJx2RtFWmH1E2Gl7ZnQO4hyZKOydoq0g6pmwwv\nbc+A3EOSJR2TtVWkHVI3GV7angG5hyRLOiZrq0g7pG4yvLQ9A3IPSZZ0TNZWkXZI3WR4aXsG\n5B6SLOmYrK0i7ZC6yfDS9gzIPSRZ0jFZW0XaIXWT4aXtGZB7SLKkY7K2a4pE8iGQuv9VkLZn\nQO4hyabncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JN\nz+NQkXZI3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLt\nkLrJ8NL2DMg9JNn0PA4VaYfUTYaXtmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl\n7RmQe0iy6XkcAiJ9fLq9+bi/STqVA6mbDC9tz4DcQ5JNz+PwSJE+vbs9ffzy0+0bb9e3TKdy\nIHWT4aXtGZB7SLLpeRweKNKn7wZ9uL1//vL53W39mJRO5UDqJsNL2zMg95Bk0/M4PFCk97cP\nX758uD19+/Xz7c32pulUDqRuMry0PQNyD0k2PY/DA0W6ff+Nt3fjX/4R6VQOpG4yvLQ9A3IP\nSTY9j8PDRfrLj9d0Pz4w/SPSqRxI3WR4aXsG5B6SbHoeh4e+tPv62dEPnr+/zPvHpFM5kLrJ\n8NL2DMg9JNn0PA4PFOn56a+v5277B6SK9HdI2zMg95Bk0/M4PPT7SB9+0+fp73w8ug3SqRxI\n3WR4aXsG5B6SbHoeh/5kww6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeESPuXvr+R\nTuVA6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnsehIu2Qusnw0vYMyD0k2fQ8DhVph9RN\nhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT4aXtGZB7SLLpeRz65e8dUjcZXtqe\nAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabncahIO6RuMry0PQNyD0k2\nPY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI3WR4aXsG5B6SbHoeh4q0\nQ+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2DMg9JNn0PA4VaYfUTYaX\ntmdA7iHJpudxqEg7pG4yvLQ9A3IPSTY9j0NF2iF1k+Gl7RmQe0iy6XkcKtIOqZsML23PgNxD\nkk3P41CRdkjdZHhpewbkHpJseh6HirRD6ibDS9szIPeQZNPzOFSkHVI3GV7angG5hySbnseh\nIu2Qusnw0vYMyD0k2fQ8DhVph9RNhpe2Z0DuIcmm53GoSDukbjK8tD0Dcg9JNj2PQ0XaIXWT\n4aXtGZB7SLLpeRwq0g6pmwwvbc+A3EOSTc/jUJF2SN1keGl7BuQekmx6HoeKtEPqJsNL2zMg\n95Bk0/M4VKQdUjcZXtqeAbmHJJuex6Ei7ZC6yfDS9gzIPSTZ9DwOFWmH1E2Gl7ZnQO4hyabn\ncahIO6RuMry0PQNyD0k2PY9DRdohdZPhpe0ZkHtIsul5HCrSDqmbDC9tz4DcQ5JNz+NQkXZI\n3WR4aXsG5B6SbHoeh4q0Q+omw0vbMyD3kGTT8zhUpB1SNxle2p4BuYckm57HoSLtkLrJ8NL2\nDMg9JNn0PA7XFOlWyp+Mf2LlXpw/yiPc7iOu84w+4k68jqtfxyNeyRmv4xEv5XVc/Toe8UrO\neB2PeCmv4+rX8YhXcsbreMRLeR1Xv45HvJIzXscjXsrruPp1POKVnPE6HvFSXsfVr+MRr+SM\n1/GIl/I6rn4dj3glZ7yOR7yU13H163jEKznjdTzipbyOq1/HI17JGa/jES/ldVz9Oh7xSs54\nHY94Ka/j6tfxiFdyxut4RCmvn4pUCqAilQKoSKUAKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAi\nlQKoSKUAKlIpgIpUCqAilQKoSKUALijS8/vb7f2n+z7j45vb04fn+z7jy8d7hvvh6QEX3PeE\n7w+4exGPmNOXS4r09P2/B3DX0z98f8TTfXf46Z/5jxr8Xt5+v+DN/R7wnbue8I0HFPGAOX3j\neiJ9uL3/9o93d3zEp9v7529/276/4zO+fHq64wp/uT19+vaEX+72hG/c9YTvD7h/EQ+Y03eu\nJ9LT7dvfT3dt8N2Pd37XZ3y8vb3j+/9w+/nrP/9y++luT/hy7xO+8YAiHjCn71xPpB/cnh7w\njHsef/twz/f/7vb5y7e/0O/6F+19T5gPuv/M7z6ni4r04fbx7s94vr2943v/dNd93B7wMfXO\nJxzuW8Q3HjCnS4r0l9vXvwzvzsfvL4/uyJ9dpEc84Bv3LuIhc7qkSB/fPd331f83Pj/d+xPQ\nivS7uHsRD5nTJUX6yvt7fzB+frr364mK9Lt4QBEPmNOFRPrb/5z08z0+PZyPeHuf78HMR9xx\nhU+vR6Q7FfG33GVOf8NVRbpLhecRn9+8/ezf/5eHifTjq3af7/7tkbuLdLci/hv3/yvnzu//\n5fz4wv/nu37X/ue7f53oG3cs76fvn5//fPdPou+9v/sX8Yg5feN6In3/VvTzu3u+qP38EI/u\nucLH/GTD3UV6QBEPmNN3rifSrz8cdc+E399u/+2F5F245/t/c/eQvnPniB5RxP3n9J0LivTt\nB5vf3PUvkNufX6Tn7z/9fb/3/yt3jughRdx9Tt+5okil/OmoSKUAKlIpgIpUCqAilQKoSKUA\nKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAi\nlQKoSKUAKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAilQKoSKUAKlIpgIpUCqAilQKoSKUAKlIp\ngIpUCqAilQKoSH9K3t5++frPX27v03+Q8isV6U/J59vT138+PT2n/yDlVyrSn5OPt5++/HT7\nS/qPUX6jIv1JeXv7eHuX/kOUv1KR/qR8vt1un9N/iPJXKtKflQ+3D+k/QjlUpD8p/Yh0LSrS\nn5R3Xz9Hepv+Q5S/UpH+nPzl6wu7n24f03+M8hsV6U/J89P37yP1xd1lqEh/St7/+pMNfXF3\nFSpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqg\nIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpSKYCKVAqgIpUCqEilACpS\nKYCKVAqgIpUC+L/ySrEtpzERbAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "image(x, y, fa)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 412,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2di7bbNg5FlSbTpmnS+/9/O0mahx+iRAAHJCjvvdZMb2wBIEFu\nS5adm+0NAMJsswcAcAUQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAAB\niAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEI\nQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlA\nACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgA\nAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQC\nEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCAS\ngABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACR\nAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGI\nBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQiY\nKdIGMBPpZlYmC9UeNWO4ON0b6aIiHR6JZHCLZEO8oEiHWZDsmqQvLCK1M963+GgpkKwChyv0\nuJby4mWTTa+9Pb3xOjgW5nO8lkcrK+AyIuW0xveGkhPUIHwL8ryw40YyI9vs4t8TPl4SzBkK\n7NO5HDtriEjjim97ebuqINIgHKuxu6qDRjIp2+zi28N/+8sg0iDsi7G/qGNGMivb7OK/Epov\n7xBpEB1L0Vg7RBpXfNv9sacSIg3CuBLNFR0wkonZJhc/OA2dlUKkQZw0+uhSQrxGiNSbz3J5\nh0iDsCzD0Xpmj2RutsnFH/NZLu8waQgBjxBpWPGnfIZ7Dog0hMMlOFktRBpVfSdd/zeGtEOB\nfbpX4HQtE0dSIN3c6nvpek1CpCH0LsD5UuaNpEK6udV303Ve3iHSEJrt71glRBpVvZGu66SE\nSEOos0SIZE/X83EEIg2ho/mDLhoQyZPufKUQaQi7re/82BWRRlWvc0sIGtS5sYpIvnSDP6SA\nfep81IdI3nRDPzaHfep8+QSR3OlGfpEL9jnsumn9xCMplm5u+bNsA79aDPscrcDp8qUNpGC+\nqeXPs7VfARFpCO2WWxdPOJCK+aaW78jWPA0h0hBaHe/5HTWINKh8X7LG+iHSEH7323FhrVwj\nRAon27+iQKQh7LfbtXKagVTNN7N8b7LdF0NEGsJ/bXb96kFEGlW+P9neOmLSAPZa7Vw2yUjq\n5ptZ3pBsZykRaQA7nXavmmAkhfPNLG9J9nxxgUgD2NyXdT+ilSOR8qoiPb8uItIAHtscWbLo\nSLTM3j4TexN4aQQnsZ4Ll0i+2rO3z9QXGUwaTPBbWYg0pr49V+Q6A8xE241IY+o7cvHF1YGE\nLwAQaUx9Vy4u7wYheM1CpDH1fbluo47/VVMIcN/a+FIFQSR9ru8r/OvfBp7dkIty32PvSmnH\nI2X2vikg0v2r5eyGXJSbBvvP+og0pn5AJEUWaHN//azIEgSRMnIhUjaIlI5uAP5M919cmd6S\n63Hf3shCidCv8fRdg0gvACLlU0MkTMrkobmIlAEiXR9EGkARkTApj8fWIlIGiHR5EGkEBUTa\nnsKnd+VKPDd2/v1vRMrItD3HT2/LddhpKyIlgEgXB5HGUEckTMpgr6mIlMH85iBSIog0ivnN\n2Z5+iGSDW3ZbOl2khMWdv18Q6cog0jAKiYRJavYbikgZdRDpwiDSuDqVRMIkLY12IlJGnfnN\nUS83/ET9EjV/r4xMuV+nWWh+c1prjElB9I0VLQkiHVXQRGKSjGYrESlQB5FeDkTKKJP+Jkm1\nOpgkot1IRAqUST8lIVIx6oqUsayI9BSISRKO2jj5th0iHZcQBSKSBETKYCWRMEnBYRMRyV+m\nfbsBka4IIqWwlEiYFOe4hYiUUaieSLcPIZKL4w4iUkah2iJhkoeTBiJSRqWCImFSjLP2IVJK\npcndQSQ5iJTIUiJhUoTT5s0VKWU9EQmR5CBSJski+ZPsR2KSm/PWqRdrfI4xSY2VEOlaIFIq\ni4mESV46GodIKZVqisSnsk46+oZIKZXqi4RJ/fS0DZFSShUViVOSi56uIVJKqbki9Z0pMamT\nvqZNvf99WZHmducgEJPMdLYMkVJKIdJlWECknJVEpKNATDLS2zBESimFSFcBkQawoEiYZKO7\nXYiUUqquSNwCN9HdLURKKbWGSJh0Rn+zECmlVmGROCUZ6O8VIqXUWkQkTDrG0CpESqlVWSRM\n6sXSKETKqRUfhT8DIokYItLUrTI+q7VWZZEwqQ9TmyaKlLSEiIRIGhBpGIuKhEk92JqESDm1\naovELfAObD1CpJxaE0XqCeSUdIq1RfNu2yGSM7cikFPSGdYOIVJKsYVEwqQ9zA1CpJRi1UXi\nlHSCuT+IlFJsJZEw6Rl7exApp9i89nQGYtIBjuYgUk4xRFoZREKk7kBMauJpzTSRstYOkRwH\nItIdns4gUk6xtUTCpFtcjUGknGILiMQpqYGrL4iUU20xkTDpN762IFJOtXntMURyStrD15Uh\nC5YQPjyvsdpqImHST5xNQaScakuIxClpB2dPECmp2rT2eFcfk77jbQkiJVVbQiRMesTdEERK\nqjarPcZALu7u8fdj0m27tFVDJPfhmBRpByLlVFtEJE5JdwS6gUg55aIieeMj6//yJkWa4V4w\nRDosFz4jORtsjuKU9JtIL1zN276uMiIdlhNc2m0el0Ib4MVNCrXCs1abMzBWdnJiYznNeyS7\nS/a6nJJ+EuqEeaF+Li0iHZaT3WwwqhTbAS9tUqwRtk+dblYVkY7LhQZyF2w6LcWuBhHp6UdH\n9Omh98fqdoqSC4r0ZnEpuAVe2KRgG7oX6GkpEemwnLo9nSp5ymLSW7wJXTG7L4iRluct12VF\n6jwt+e7CBuOvQLQHPWuzfwwiHZZLOWGfuxTeBC9qUrgFpwvTXDpEOqyXdeV7olL4Y1xECrdw\n58mjVUOkw3p5byETVuXlT0nxBox+7YvHzspsrJd6L0Z+nfDqp6T4/AdfjQtiZ2U21stuz/76\neKu++ClJMf29uL6PLQINRyRf0vujdlbJXfW1T0mK2e8sRmcuRDqsN6I9Ty5JtsHLmSSZ/ONK\n9H8fBZEO6w1qz/16+Yu+8ilJMvc7G03fkESkw3rD2iP6BuTrmqSZ+c0iGLNo5BXzgiK9vUm+\nk39r40uZtL0pX4gcf4sMkQ4LDj5hx/+W2Pb7vy8m0u3UI2l8fxcTkY4LDr/yjf695duT2guZ\ndDvfWPu8v34BkQ4LzmhP7Ddp3Gyp1xQp1j3hjfP8yJmpjQWntCdkkuq1eSlU5+FI5ycoODO1\nseAckaIXd9vNz6/A7XyDF3aCQQwLnJraWHCSSCoNX02ksAqIlFVwRnu2eLhgFOsgmrCw7WMC\np6a2Fpz25lNzs+LVRAq8yQm3fXjg1NTWgvPu4vgrv9gp6W660fUaL1LmCo1fff2bpPiK+Ffm\npUy6n2x0OyNSUsWZnyu4PxpEJHcSREqqOKE9wZtuj++ZL27S41TdPXtOFxhJftj03MaKU0Vy\nZXn6VPLSJj1N1N2y53yBoeSHTc9trDhXJE8aRArniA8lP2x6bmPFySI58jzfxr2wSc/T9DZs\n7w+BPOlh03MbK84WyZ7o+T7ua4jkvX8dbHc49EVEmtCe7fCPveEvcUramaSzXY0/BjIlh03P\nba04vD1PkcZUe5+IXNSkvSk6u9V+wJ8qNWx6bmvF+SIZcyGSM4MnXhB5LZHUb5K0VwiWbPsf\niVzSpN0JmmYa7LUiNHVlEMmfbv8mw9VF8k012GpJKCL50jlD+/M1ttQFTWpMz9UqT7gmFJF8\n6byh3Qlb9lzOpPBEg40WhSKSL507tDcjIjniHeGqUETypfOHdqbcWn+4mEnNqXn6ZA+XhSKS\nL10gtC/n1vrTdUVqTrkvvPOJQE55UInk1pKj2xMcSXtXXcqk9sQcXTKHC0MRyZkuEtmTdWv/\n8UImHUzL0SRzvDDyaiJpz/VZL2vneZ+OuObF3dGsHE2yhUtDEcmVLBp6mvhwW13GpMNJ2Xtk\nC5eG5i4JIrWfPnv+8JGLmHQ8JXkHu0Gko5q1RLK/niKS4dmeA6ShiORLpgi1XuFfzqSTCanf\nZfaDSEc1y4lkvud0tfsNJ/MJ3pJDpKSa9UQ6OuZsZ13ApLPpGLvjOUYXiki+ZKLQ9kG7z1zK\npNPJGJvjOkgW+kIiOUYTGX9frE17RDp+wnGUKhaRfLlkoY3jOh5e3KSOqdgedh8nCb2eSMpr\nuxFLsX9gK/w69xs6ZmJrjf9ARSgiuVIpQ02XNZc5JfVMxPjOyX9kPDR5LRDJe2jXJBY2qWsa\n1nvi/kPDoYjkS6UN3Tm2653eNUQyvakNtjUtFJF8qcShzwf37a5lTeqbhKUtXeF5oYjkS6UO\nfTr6IPwKp6S+OVi60hOeGIpIrkz62MfDO7fXoiZ1TsHQlJ7wzFBEcmVKiN0O/nRw6JIm9U5g\nO/yjqYyVkbXmp7cWrbwS9wHH0atf3HWP39CTs+jk2CuKpDsljbw2sJxoFj8lDZvowPVDJFei\nnND+E83Sp6Rt2DwRKalqcZFugvo32OnfuK6GwaP+hpyFZ4dmrwEiOaP6d9hqJt2NtnuawXam\nhyKSL1Fa6Pbw357820qXd9ub4YTU347j8PxQRPIlygvdOsPvX9eXMWl7s5yQurtxHD4gFJFc\neTJjt87wJU0yetTdjMPwEbGI5MqTGrt1Rt9fIi1h0vY46p6IYCvHxCKSK09ubKcWD6/tC5i0\nPQ3aGmIvOCj2miKpTJokUu+V2sOLe3mTHgbZOcd5izCqUoX81rLDuhObeN8N7cdX99q3wbdH\n2fvmGGzkqFBEcqVJDe0Pf9qWhU16Gp99it6qI0IRyZUmNfR7uHmbBe9vZfM0vM4JLiJSet8R\nyRvuurgra9Lz4Aa8Q+qtIghFJFeW5Ni3/ptVzy/xJU16Hlvv7OaJZIpFJFeW5Ng3w124JUzy\ne4RIowoYyy4i0o8roY4kO1dL5UzaGVfPzBTXqoiUVHYpkfr2mytqJDvDMswLkcYUMJa1iTTt\nZsP29ENXoV+br5BK254RhmlNE8nUxKuKpDFp+9pM755Urb/JJEvYIHaHZJnUFJG+rzsiHdU1\nDOjnpb1HJt175LVNCns0/m7D7/W275U8LiDS9x+tLgmX/zTV/sElTNofjnNGwRH0HW75e/D+\nMnYuItKb9cSkXH7LvruXf4fYuNpDOKtm2Z+22RtynRz62B5EyhDp+yPdG1G6/GfJLKekxo6P\ncjYwyznGvZvPkx0ctzOH/tL523xhkdobMVLfVdtjku3+ZMqh+4OxeTRCpOaadtdGJE+KHpnE\n95oM5aqLZO5c7m27w7VEpFyRvj977JJ69U/M3XnFt4wgS7q9sZy1NVSvOYJWtf62ag50c1mR\n3o5fzPSr373km30A2Qd3n5DsE+8bwN4THdfoiNQuLO5NazkSVt9mUiWRQh6ltLL3rtGge0sl\nKlgL63sTu+HTX7v7WnKz1s8T6XEsjuth/VWy8KrEeJyfVxDp7fklLudWU+8urCuS532lspfd\npyJjbURyJGgG3KxRjkiHae9f9xPVsObuPSGFL8bPwo0SWWojkj3+MOjnWiWJ1LsRjTsmU6Tu\nf3si6b7Nz9sdDosMxRHJHn8auBm/OGwq3m1SHcyDN0y5g8hX+LtvOXnT9/N6In0PzrjXcPpc\n980xS73w4X2jck65p35sJYVHhVhVpOjLYGj5PG/J755KNcN9+MFJxzvj8+JDfp8XItnDu6sH\nMhyHdnwKvJhIJwljnUSkpMojRNpiKc4iT3dkSZHcL23BRuZdZtsOivHCIvmvzk/jTvaktW6u\nSGeD8s/2LE5xBxWRQtd2ousBZ5rzsONXiaVE8k+2M2zAtR0iRY7pCU/78OJwWyaL4cofuEDw\n9dD7htFTHZEix/SFezJFRuh4e50t0tGYshYjuALG6ogUOaYzOutXEDUOWkukpHcgyi8+IpL5\nCdMhhvCkjd3cmwVFingUHl/6KWnEJkcke7rew/ePy/tmZiCgMdScesH226sjUuAQU3jOd/cb\naTu+9OasdxpgKt3fFFv3nrtvCfdURyT3EeZ4S0rDsXuH2re5DMkwQ4dGe++qfm2Rxn9wcRie\n8Ncy949NurehLpHzypLx9/7PwxHJfYQnPOlKJhTtixCUSLrWDcY7w19UpPTG+A32lI+/tZ4g\nUmyK1uMQKaf02ZgS3iL9eCLldu928KeEcooiKbcxs343Wv6GUYxhRulpInWmttbfmn+wh2eF\nhMYY7Roi5ZRO7sthuPWfhTVXXECkjEvJzN97i0jWJzqfj4VnXHFvOz85gseEZNSL9nxmdskY\nppRO7kvUU0/97ekHR+yYkND0Gk9PvFgXZBcMYU7pySJZfiF+f9HNHTw0JOPvlZynRKSU2rNF\nOnsbFSib8HIvCvGP7yws412nKR6RXE97q94flHCPafPFJpwimiGRqbWeSrkRagpHJMez/qrd\nh7kHsFUXKTKz2EBSF/VlRcptS29886XUPwDXG5BRIkV+U2OzVd3NdpfuiEck+5ORqr1HBgaQ\n//3uCIF5mR4OHemIRyTrc7GqvYfqN5w8Zlyho9Bwp8MjECWPDmBa7cyumOL3XqUjA7iqSHux\nSX9Z0hGPSNbnQkV7D0ekrthwn2XxY7Y4Ip0d/xiASB2x5jdciJRRO7Mr9gTb4R+Ti68pUrjJ\n4REoUwfrTyyeKFJ8hyHSaezo6sfxiGR8KlTyOOg2CpFOYlP/DUtHPCIZnwqV7A9DpOPYeIfF\n8S8sku82RKzkWdyvwMEfI1UPegjN+6dy3AkQyfJEuGR3JCIdhMbbq0+ASJYnohV7YrdwhgsG\n3cbm/cO8kXhEsjwRrdgdjUjN2HhzU+IRyRAQrtgdjkit2HhvcxIg0s7jc89Ib8F/zb64E7Hr\n3vlLk5O3t/yYMsbq7Z4EFyw+XUSSxwoyfNsWiNT9+H8PB/7qjGC2CX9tZ+mgH6GKzrprH/7z\n6Ih09KjTJclyD77FWzzoR+QskW43AiJ1Pn7/qMclzXK7sxR3IjKvKSI9boHdDC8t0u4Tz4+Z\nXRJdyXsvZIo74Z3VFgj2l99ZfETqemK/TaZNLVttX6LiToQmNVakxrJ3bxs964jUPrZbJuH1\nR/HtPT5o3LXdwXojUscThyPtc0m52J5cizjhihkk0slCW/eNjmVEOh1oh0vSxXYkq+1EbEYj\nRDpf4lcVyXDbTvByJV7sQTcNKweFumGs77zoGLXBVxGpd5yH7RYvtjVd9TsUoQnliuR/G4xI\nfQfuxba6rpjrXQ7jbfCLiXQ/e3lzb+pY+vx4KCJ1HdfMq/7Vjo0UppTXEilhx+6tWfSjQkTq\nOu4otfQ30rVSWHJeSqSMa6inBfN88r0d/jGNoiI9POEc5Sa/+vDdBAnVrylSqBFdSb1fTUak\ngyf8ozz/UqMtXddD/cFZUdmlsi+cI39bRrV1IlWH0ydSbJA/36xmvR3uznsdkUJtOMsb+xdm\nEOngifggD/7ily1P94OB4wRRuaVCXThOHP+btvK94yg6ni6RNGNU/N2z5g3aQHBKVGapzA8X\nJEv9iiJ13bYTjVH+YtfxuP0gTVRiqVALjjNrPLobyrD9vYBIwu5GU7XjezJfQqRYC84yiy4+\ndn/M5bVEil47HER3JL6CSLEOHCWW3RC6S4NIp0c4KwlvCPU/FyldSqRYA86DEUldX96K7emH\nSBLzk/7KlUSKzb8nttJq+ypO4vS2nfiE9Ba6vDuOPMu7vEix6R9E1nzZ9FWcxCiRNLdETwJT\n/jpUGZHOXoAkXVW/biKS9qL5IU/arwFKeA8xUKTY8L01H5bGl+UpqzZdf8FZzBEpb3vq72oV\nESnrrqRkYdp5X0akk7sNWR75Tko9Ie1jlhYpNvV2yM7C2LPsZpZm6643j1kieXJ3RZy+68so\nml0rNnNThHTJx23v2iLJRrebyHxS6jv++KXBTAWRYhNvHr+/KsYszezKZJ3lZjJEJNHe7jy8\ncdi6IsXmbT1cueiIpG2D6HKr92jpS+10kbpP3KJmIpJ0AGNEsl3e9R8rvPifLVJs0s1j5Tdl\ndhMh0rcnBnh09qTy0DVFGtYeV56zIog0TqSkSxfZfd25IgXn3DjuZEEsNY8TIZLjnpqjRufz\ntsNaR68oUsp7SNFy9BR6IZHab5IGnZD6awXvSi0oUsZdzY5e61YekZQj68mkOubg+PVECk44\n9ZguEOlN2IS+PB1HmQek+P2UI/W7j7IvwKRTf7ScptSwStYRaH4100GBx8NOj3OMZmv87MuQ\nHhYcrqyDmnWX/TKVrmrjShlH8P3xzN/8Yz7QM5Rt90dfgvyw4GhlDRQs+veNg0g3j0ddsny6\nkfDxxvb0gzN+bFiC9ZF/nMU2il9bBpHuHw+dpGWfhAT35lIiJVSVrcNJ5O1WuaBI7z+aR3D/\nhNsl40ch7cO9rYq9Ok4JC0517xnjMjjr5/x1267SY8p8+ePDx4+fbCN4ekLxz+UEAtyt2iLh\nM8KCM7U8IQvY3R7XEenL3x///PB++8FfphHsPWF3yT7BVonI5YY/fHyY/jLakdG8zLs1riPS\nh+8Cffjw14f3nz//sV+s403S3cO2ZdHdfYq0altHpOA0RWOxrbH+tc9McqlPnz5/+f7Dxz++\n/k8i0pvJJeHdp9idpFVECs5SNpT+FR7xNzI6hjGozuePX//3wTSEk3upfSN3v2uVpTrI2BU3\nNiw4SV3GrrCz27lXEunfjx8/fz0z/fWveQhnQ+u6Ka573xzt1Boi+cLa8fr7Fr+POF3+gR6l\n1/ry7ut8P329qnv3xTqEnqGdNTMwvcfM4T2WfImjCAt/j+SxZ5H+Hz/bk/pKIv25ffzn/buv\nl3Xv/mcdQufQDlsqvOKP7zHXthookuCfBxW27GhVc6/rXWTX+vD1fdHn7Z+3t7/NnzH0Dy3r\nrs1dWsUec+QYJ1LgHv1u2aSvdqXfafIxQqS3d399s+mzdQiWsSV9jrDt/uhPZU8yTCTn+Jpl\nlb3//VjSL6uJk13r7z++/t+f79NFetttcnx2v3Nq9tiAD5RdYT/GJRMp41v75k/jryTS27u/\n397+2f59+9+WcrfhIULxV+kao1DtsTGbwVll0iSPk33/2fP9sEuJ9M/24ePH7Y932x/mMbjG\ndttxzeQ2TTLnqIaIJD7tahvvOBU9JhhAeq0//vua3bs/9R8ktROKLlR+pVPk+p1gxHW+7f1l\ntNp9XdVfTP15MezfB5px1Kj17s+P/3xuS3Q0hsjYNsG93LuRSN87G5Lli6S8NSnp1E2y2N/q\nvJRIHWSI9KZ7Yfwvl/LGsOnWvqJc/5HhaWq7HgsXDaNesQZJIolV0sYn/WZ6c5j8+xvB+NtU\nhcZSrFiDNJGklxnR8+PpA51x0jD1BwYDfz3uiAxVizVIFEn52/HU1xl9+VJF8g6qnU/W7lKv\notWKNWiOQfNphOwzjVCineCufJkiecd0lK/Ymg2jgkippyRRmi2aaC828RvMPZl3h+Qr9ztW\n1uwyaQoWa5Esku77KoE8+6HnCdNE8g7oJKGg1bqr8YG8hEiyT4HkIp1nzBLJO56zjNLP26pk\nqlasRb5Iqo8k/FmaczxJmSNSs2p8gsFGF/rEom6xFgNECi7R9vSDO4PhmUBBb9L4/EJt1q64\nMlmpYi2GiCS6MPMmOYg7TJkhkncsXSn1l78lstWq1mCQSIEXvG33R2eG5+f0O/so4+FQwuX8\nPa7zulm+WoNRImm2pS/H4GutsVeSgv7oFxuRTh+PlHLl3A7+5ErR/7R6W2bc21C0p8yL5hLV\nGqh30XExR9Lt8I+eFM/Pa+9Ht7KdDiNey9PflIVOyFmlWouBpyRX1seIuIvdR0hF8g7CFBJv\nrwZEOn88Ws6Y9/nwlM2ye4hSJO8YjBHW7matck7aEtVaDBbJmnjnaPPIegKEv3F8L1PXEBSF\nogk0INL544KKltSjRNKc+0KJRouU+A+PI9L545Ka/cn3jrQOrfP4p8NUInnrO443NDZ1gRNz\nz67WYoZI/dkVdwG6jxbc1wilUUwr1lgRg3f2K4vU+4KouDHtfpWWiBQ8+1oP7mxrjZfJNcs1\nmCRSZwHF6NzHKkQaMlBrjuy1RaSOx4WVI7eEDcNzv9ALREo6dYb6knw66hvEwuVazDMp9GF/\n0hWT4Hef3iTIuhsd6Eu+RojU9/iQ4h1PJ72Hvzk+KlLS3cVQWyqs6uLlWkwV6eQF0v+k47in\ngKBIis+F7McdPzloUYdUmVWuxVyRIi+vSZ/P/NpvIZHy/ikUf1MqLOn65VrMFulgywXeQpmP\n2omJiOQuGj6q3c1xKzqq0JRyLaaL1F7ieSJ9DwqI5K4ZP6rVy5HrOa7UhHItCojUKnY6hMRP\nTfz/No3z31BXzcbZSiWI1PN40ij2yp0PoWeQ3ol4X8Pdr/2ayew28soeIdJZPZEl7olsTtz1\nJIc4Gylk/s6ZQhWRnl82RRdumRt7cD1XR8aejnYGcLV6LcqY5PvSqOaNlDAwr56nIcM1QqTe\nxxO5X3XR50SXEcnTjwkeIVLn44lsrq+6nRx4FZEc/ZD+s9jdIFLf43ncf5TZX//4yIuI5GjH\nfT+HgUh9j+fxX8WfJyVD/cNDryGSvRuxLzoFQKS+x9P4/Upqfik9ONY/jdEiqWbxX/ccZ3YR\niNT3eBrb3Y+28u2jLyGSuRn3vRwLIvU9nsXD3SZEcufcXHc/VVxe3BYlRTKXbx5+BZFivVW6\nzRwAAA9JSURBVECkQTQGMrv/IpMuIFK0E2NXEpF6Hx81Co1J64sU7sPshbxawRYlRNorJjFp\neZEEXZi+ktcq2OIqIu0fv7pIiiZMX8lrFWxRQSTN2US7iUqIJHkxKbCUVyrYoq5Iim20tkga\njyos5YUKtiggkuzmtfKddgGRRB7VWMvLFGxRWaT4VlpZJJlHNdbyKgVbzBfpqFJ0My0sks6j\ngYs5fluXEWn+hfVhpeDt39cRSdlFP4jU+7C+8nGh4OvyuiIpT0jjthsi9T+uK9wjUnBDLSuS\n1iNEGsA8kfrKhLbUqiKJPRq23xCp/3FZ3U6RQptqUZHkHiFSPpNE2vr/JmxgW60pkt6jURsO\nkfofF1X98Stuuqr4N9aSImV4hEjpzBKp3yP/1grMYbhI7kEn9dAFIvU/rilqOSE5xrI54wIl\nVRW9cxUdFgOR+h/X1PxPpO4azt21oEhZHg3ZchN2dR2RWkNJFWl7s4nk3F/riZTnESJlM14k\n8wnJeOyv468vUmYL7SCS5XFNSatIri22nEiZHiFSMtNEMhZwbLLVREr1aMCmQyTL47KKydvm\nLfSvMcwQKb8hySCS5XFVxcT31T8D1hJpQEOsAcXy1yjZYrhI7g95Rm6caZ8jZdZCpEwmieRJ\nb76W8c9huEjmsY5oYK30RUq2GC2S+4RkD7qySCP6Vyx9kZJNBn+Q5D8hmcMCtxtGi2Qd6vhL\nz8nJC9VsMVakyAnJGhe4Az54o1pHOnhaBZIXqtlihkhDrrkin8mOF8k6M3+hLBDJ9rii2DCR\nBhsRCUOkRWq2mCBSJHV/bKTWUJGsAx3TvkqpS9VsMVKk8AnJEnxVkcZ0r1TqUjVbjBcpmLk3\nfOCN9lCYcZyDulcpc62aLQaKpDgh9cdvD/9NKKEIMw5zUPNKZa5Vs8VwkeKJ+zJcUqRRzauU\nuFjNJsPuf4tOSOY95yg4TiTbKAWLgkhZDBZJkbcnx7b7o7CAJMw4ylHNq5S3Ws0mo0SSnZD6\nklxRpFG9K5S2YNEWY0USpT1PszV+FqXXhNkGOax3dbJWLNpi0N0G5QmpJ8/W/IMiuybMNsZh\nrSuUtWLRFkNF0iU9y3Q5kca1rk7SkkVbjBFJfEI6T7Ud/CmaWxRmGuK4zhVKWrJoi5EiKXPa\nNp6t8hCRbCMc2LoyOWsWbTFEJP0J6SzZxUQa2Lk6OWsWbTFQpJz7F33PmWqPEMk0woGdq5Oy\naNEmA+5/Z5yQjvM9P2UpPkAk0wAHNq5QyqJFmwwTST/tdsZLiTSycXUyVi3aJF+kpBPSUcqd\nJwzl80WyjG+F88ecLf2aIg2967r3eP8A0kWyDG+Ju9WINGAB805IiOQFkfQMEilp0pbzafcQ\nskWyjG5s34qkK121RbZImSekZl7Lo/7jpOljQ7aCSHLGiJQ3Z8PL+3oiDW5bkWy1q7ZIFin5\nhLSfOjinXJEMgxvbtTLZaldtkntxnn1C2k0evJWcKpJhbIO7ViVZ8apNUkXKPyHtZb+GSIOb\nViZZ8apNBoiUPGPDFuwaSaZIhqGN7lqRXNWrNskUacgJ6Tn/Qb2eoSSKZBjZ6KbVSLVA2Rb5\nIuVPeDv8Y+dTpmP0qfvnIEJXAZG+kXjbbtAJ6anEUcGOweSJ1D+w4T2rkWmFsi3SRRoy3635\nh8MjnUdkJO6fgQpZEUT6Rp5I405I91WOC1YVqX8GKhBJSrZIo6a77fx0cqD3gJy83ROQoaqD\nSN9IE2noCcmyD6PPJ6VFpDXKNsm6bTf2hHRTaXWRJrSsRJpFyjZJEmnwCemmlO4ay1Xem7V7\n+DoQSUmqSEMn2+1u9HZEStLxrzyqYoj0nRyRZmyLbnkLizSjYRWSLFS3RaZIo+e6dRYNftKU\nkrN37FIU9RDpP7S37b7cBQ+f69ZXs6JIvWOXgkg6pCJ9evflJnj8VHs349FBCSL1jmlKwwqk\nWKpuC6lIn999N2nWCelbyb6iB0fpReod0pR+VUixVN0W2ku7f7b3b/NOSN+KrivSnH4VyLBW\n3Sbauw2fvpo074TUX7V9mFyk8IgyQSQZ4tt2X02aeELqr9s8TC1SaY8EdZcduBr1/e9P2/9i\nCYIgkglEUiET6Z8/P376/O+3i/0/XfEqgjtXLFJxj+KVEekHMpH+2P7jw/tvJtXfGdpTcTBb\n/XblhC9YuIVuP335/OnjXx++y/Rx5jRjJ4EpIi3QrpToFQu3SLjE+ffDnHu5N0PwHycVqf4J\nCZFUpLxX+GPqNEPbVynSCh4hkgitSD8/Q9o++0ajIXJBNUGkyXsiVB6RfiF9r/BTpHfOwWiI\nnAmEIi1xQkIkFUqRfnr09yfvaDQEtrBOpEU8ig0AkX6RIZJ3LCoQyQIiSRCKVMWjyCaWibSM\nR6EhINIvXlqk5wNVIvlHMB5EUqATqY5HgfPBaJGW6pYyMkiJvt1xTZHcG1kk0lIe+Ucxb/g1\nGneL7IOkUh65L600Iq10YfcN7zAQ6TcXFcl7Thgr0mrNUsXFqdK536hEKuaR96QgEWm1E5L0\nc+gxlOncb0RvkqqJ5NzNih21nkeIJEAjUjmPEMmEbyiIdMNVRfLtZ4FIK3qESHEkIhX0yDCY\nbfdHZy1X2fm4BoNIN1xWJNepYaBIizYrHCShVvO+oxCppEeuPR0WaVGPfONBpBsQ6fbIqEiL\nXti9ucYzcQrVuvcm+SCpqEee08MwkRZuViBCRr32IdLdkUGR1j0hIVKY8LVdWY/GTcIcvXaz\nvAE6FuofItnrINIoFuqf9Wq/4tTsWzsk0toe2UeFSHdcWiTr5o6ItLpHiBQjKFJtjxDJgnFc\niHTHtUUybu+ASOt7hEghYiJV98h4G98vkv3jgoLYRoZId1xcJNuZYoRIl+iV9WAxFXsY+kS2\nvke2U4VbpEuckGxjQ6QHIqekBUQy7XGvSBfxCJEiBERawSPTVVe+SJfpFSI9gkg3hzpJGcwM\nFplJyS76RVrDowE3Ai5zQlplKiXbiEieI8cWGMcaUynZRrdIq3hkGGK2SPRKQ8k+IpLjwLH5\nR7LEXEr20SvSOh71DzJZJHolomQjX0Ek4xc1amUfzAqTKdlJ51cblvIIkQz0DRORnvCdktYS\nKXd3LLD1DCwwm5qtdIm0mEeIZMDy7bA51GzlS4iUujvq7zwT9adTs5cekZbzCJEMGL4eNoea\nvXwNkTJ3R/mNZ6T8fGo20yHSgh5ZvvRUJ/Mkqk+oZjcRyXLI2MyTqD6hmt20i7SkR4ZvPZVJ\nPI3iM6rZTkQyHDE28TR6v9cyiaLttJq0qEd526P4tvNwNmJE2gGROp93x9EqLUX7aRRpWY96\nv/ZUJ+9ESk+paEMRqe/p8XknUnpKRRtqE2lhjzq/91Qm7VQqz6loR19IpK7va1TJOhdEMmMS\naW2PEKmfwpMq2tJXEqnnCxtFks4GkaxYRFrdI0Tqp+6sqvb08Nyz+2DVmXRw/o2NGjnng0hW\n+k9J63uESP20xz55VlWb+lIiZWyPsjsuRtlpVe2q8ztCq6KfF50aS9W2ItLJE+Mz1qDqvKq2\n1fcdoXWRT4xOjaVqXxHp+PHxCatQdGJV++r6jtDKqGdGp8ZStbGIdPjw+Hx1qDmzqo31fEdo\nbcRTo1NjKdtZS7fKTsLE0dc2ZmcrRclNULa1hlNS2TnYQKReKm6C2fWbvJ5I2rnRqLHMrt/E\n/B2h9UGkXgrugtn1m7ygSNLJ0aixzK5v5Xm8q83gAETqpd42mF3fSr0OKhHOjkaNZXZ9K0/j\nXW0Cx+imR6PGMru+lXIN1IJInZSb3uz6Vh7Hu9r4z5DNj0aNZXZ9K9X6pwaROqk2v9n1zWwH\nf7oC2+Efx+cpS7GNMH0AVor1Tw4idVJsI0wfgJWt+YeLINogxfZZArV2wvQBWKnVvgw0M6RP\nY5k+ACtb4+frgEidlNoK0wdgpVT3cpBMkT6NZfoArGy7P14KROqk0l6YPgArlZqXxbbzkz/H\nK/Rp/hynD8CKYpNVRzJHGjWU6QOwUqh3eWxPP8zJUZ1Cm2H6AMxsD/+9IojUSZ3NMH8EVur0\nLhHBJOnTUOaPwMp295+rEp8lfRrK/BFYKdO6VBCpjzKznD8CK9vN/1+Y8DTp01Dmj8BKlc4l\ng0h9VJnm/BFY2X7937WJzpM+DWX+CKwUaVw6iNRHkXnOH4GV7W3FUTsITpQ+DR/FWtTo2wi2\nqEgv06YCM50/AjPbioP2gEh9lNgQBYZgpUTfhhCaKW0aPIjl2BYcsw9E6qPCjigwBCsV2jaI\nyFRp09gxzB6AnQWH7AWR+igw1QJDsLIBPDB7Ty4pEkA9EAlAACIBCEAkAAGIBCAAkQAEIBKA\nAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEg\nixK/3WcULzRVGE+VX5aVz0tM0sLUX892YWavazaXnyBM5hUsekMkyORFJPrGq8wTxvMyEn3j\nleYKkAYiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQC\nEIBIAAIQCUAAIgEIQCQAAYgEIACRluT99s/X//9n+9/sgcAPEGlJvmzvvv7/u3f/zh4I/ACR\n1uTj9tfbX9vfs4cBP0GkRXm/fdw+zB4E/AKRFuXLtm1fZg8CfoFIq/Ln9ufsIcBvEGlROCPV\nApEW5cPX90jvZw8CfoFIa/L31wu7v7aPs4cBP0GkJfn33ffPkbi4KwMiLcn/fnyzgYu7KiAS\ngABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACR\nAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGI\nBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhA\nJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAA\nIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAAC\nEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQ\ngEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhDwf02cDCQNt42zAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "persp(x, y, fa)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 413,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2diXbbOBJFkcSdpSeJ/v9vp71LJJZaHoAC+O453bEtLEUCVwWC\ntJxuhBA3aXYAhOwARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIjUShNlHMYArHONOYCZ2fwUeK/boIRi7HMcsRk3ozabdHZsc7FLBChg2oxcc6+VY6bzH\ni+gVzvG1wZ79w2hGHPio0w0QF8BFP/7DiM6Ys3h/IpOq01GnYVA/WgLGVR2T0mvd5lYYepzq\n07k9eKSYHhQpGqkeVLeA452JsaRHcV7NpUhS4sXVeiPsFXG8MyEBFnV6bC5pm7+6SPECa74T\ndoo43IkQgYr6IM7x33GBROlHTbjADm+NxRJ9+r0m6VGcdExMkiagAc3vR020wCTvhV1ijnYi\nBnLwJmVeETfRm7DDFC0w0Zthj6CjnQgRkKDTw1cP+4MUSUy0wFLmq1qpDh0vBOQ24ENzh4f3\nBgYSrCMt0QITrivwYUc7EYN4fJTheBYokphggaXiN7WC8J6vwuE+7+m2L0USEyww+coCHXiw\nEyHDGXTTG4okJlhgiqUFOPJgJ0KGL2hB/pF2QJGCRaZZW2Ajj3UeBnB+fI8ieQgV2TmYYSaF\nOg8DkFlDkcSEikw5lMjYQ50HKfagczUpkodQkQmH9/M1XPShzoMUa9D580aRPESKLB+L6ReU\nQH3vSeE8i0vay7mJO0yRIivFMsKkSOehL6U3JodI405e3GGKFFkxlgEmRToPYixBq04yRRIT\nKbJyLP1NinQexBiC1p1jiiQmUGRWWyCHEOg8dKR2vUmRfMQJrRpJb5PinIaOqE8iRZITJ7R6\nJJ1NinMaFCiD1r9TUSQ5cUJrRNLXpDinQYEq6MZNN4rkJExozUC6mhTmNPSidYAUyUmY0NqB\n0CQ7trcpiiQnTGiCQHqaFOY8KBDH3H6WSv60gycON4FHKUpoojg6mhTlPGgAPsFDkbxECU0W\nRz+TopwHPKJHez0iDTx1gUcpSmiANz/XoUQ5D3A8MlAkBUFiQyxTPIcS5DRocK+Gm8UokoIY\nscmjOJRE/fWTGKdBheTSx5foKZKCGLEpoqiocy2R2si39Tz1KdILMWLTiIRpBlYzLuY0r2uA\nIr0QIzbNmFfKXkqk1jNV/jcniqQgRGyqMe+SkkKcBh2Gh+eUhSmSghCx6d48e6SkEKcBiO54\nKJKfELHpVvM9UlKI0wBDuX9ZLI3cYUcQeZRCxKa8LO6QkkKcBh3lkLUHQ5EARIhNe1lMkZ4p\nT/+hIo08c6FHKUBw2n3aDmu7AGcBBkWaQoDg1Dc88CkpwFlAoX/AgyLp8DxQ1RP9DQ98Spp/\nFtSUQsYlJIqUZx+R8Clp/llQU9yzpkidEX94+mAMj7LAU9L8s4CCInWHIoErRUTvEUXSElQk\nw8oOv7abfhb0lFbqFKk3+V/YmR6cISHhU9L0s6Cn9LaIW9lRpCwpn5KmB2cSCZ2Spp8FEBSp\nP6mQ9mdHBxfJckSzTwIIg0cUSUtQkWweoVNSjCFSURhLitSb64hkOKQYQ6QiE3LK/1jdjuAl\nRREcMUYpFd6vKJKpRkQsIjnPI0W6+/lMrB6B13YxhsgJOiFRpCylOwwbioSdTjE5R5zyP1a3\nI3tNXgRHmFEKeEfWLhI0JYUZIjEUaSIri1SYON5mjeUDku7+r66mf01eBEeYUYonkiMhQVNS\nmCGyYxOpWp4iFYh3kdRLJO1BhRkiMflLRuyaliIVoEig4gGgSBNZWCTtqnR7kQ6kh3/U9Qwv\nGjv0EGaUwonkSkjIlBRmiKxQpJHsJhIuJYUZIjEp9x34TnS7ubHnLcworStSoSAsJYUZIjEY\nkeoVKFKJaPvfFAlDOvyrrmh7mSK1fzgE78oOZ1KcITJBkQazqkjFgtcVKWW+Bl8iUaQiwS6S\n/CKhthviDJGUlPmSIo0ilkj+lR0sJcUZIgN2kVoVKFKBRUUy2nIRkVLmK3VV2+sUSfDT/vQW\nCZLyopLRB76yo0glKJK7ZBQy+lCkYYQSCeIRyKQ4Q6SGIs0g0v53JJEijZGO3O6doa6twOCz\nFmiQNhQJs90QaIxkZO4dUaRxXEykfdd2CI8okp1AF0mwOX5Jkd6hSHPYUSSISYHGSEMqfK2v\nbSpAkSQ/7QxF8pAe/jl9rWnDUYIiSX7aF+SiC2BSoDESke7+fzt9rWnDU4IiSX7aF4oEgCJN\nI8y2HXQbwL8DHmmMxKTiN/rqphIUSfDDzkAvXvwpKdIYSUi3Y8wUaShRRMLuS1OkLh5RpDJ7\niuQ3KdIYCemfkChSmSi7DeBtaYo0Q6TRJy3SIG0qktukSGMk4fTXrijSWIKIBF7ZUSRD/BTJ\nw2IiyQNz7oBHGiMR7oREkVxcUSTEZXU4RqzsKFKFGNt2FMnJMd4+IjUKUSTRD0cH4SroNSnU\nGAmgSLNZSiRNXJcSye8RRXISQ6TU4XkDl0mhxqgNRZpOhN2G595EKlGkPGPuIjVLUSThT/vG\ngF5vUSRdE/5SFEn4084hNJOSMiqPSaHGqMUp2F4ru3qpsHu9QwgkUlMlipTlHCtFGs98kR76\nqqmkDsphUqgxapAAt2Mpkpvp23biSUCRsqQbQCRhDYpUJppI5aSEnR6xrpsdDFzZUaQKs0XK\ndJVXCTw9dhEpd/4graiLUSThDyf3T5GypI//Pf7I0IqzGEUS/nBc99mkZInJbFKsMaqQuwfX\nb68h1jmLNUiTt+2KHR0HzRTRVURq/cjQyrlMOt33dffrI9YgzRVJPtNtEVlNijVGZQasgV9e\nf3sakiKViSvSY1KiSDnSwz+Zb1TNFF78HAeKVGHqRVLrds7n68aIjLYEG6MS6fDv+RtdO5lX\nxO9m409ZsEGaKVK7m5R7zwX1ULl2DjZGJTrfJzj/ekuo955ggxRbpPy+FKaH5UXq6VHK/pIY\nRSozUSTFpqs5IJtJwcaoQPbaBSFS8TctKVKZ8CJVxtXZR3k/N9gY5clfQLpFqp1tilRmnkiK\nThzxmEwKNkZZcKHfGdl4z6JIZebtf2tEGpySgo1RFtzAvW/otM8yRSqzgkiNe+r2XkoNBxuj\nHIXlnFUk2fKZIpWZNpN0K7seJr1Mnqn30RzgREryi1CKVGHWTNIkJFVxST/p9WqgZFK0MToD\n3CZRrJspUoVJIqm3GkAmpXR/RV14EjPaGJ0BXtxp6kS69RZtkMKLlB7+cfSUzptSKX+ZFG2M\nTqTCdxRpHnNEMux9e0zKOPT2WnZxF22MToQTacIZizZI0UXyzZKXetVbjDmToo3REeR8VlWh\nSGW2F6l1jzG3uIs2SAeAWw0UCcWU/W/Dyk5X66GBWr2ULRBtkB45XegVXhC1RZFABBcpFb+R\nN9BISRmTog3SIzCRmr8/3uhZ8EI/wo3RhLWdLSHZly6NlHQ2Kdwg3QPaOkuG5+opUoXQIrkn\neGpWe5lOC4lUiU1xXm2/MkmRKowXyZqQdFXvy2tTUrhBuqN8QSeM+uFWgPJIkdscTsKNUWSR\n3PtpkvfdjEnhBumTyimRRH28F0CRYAwXyZGQzEuRVko6mBRukD7xrOxUn8Kg6oIihRYpV9K2\ny9RMSYhP/xpB8x2h/KryUxhUXVCk5UQyJrT2BEzC0nOpyFA9xML9IpBIM85XuDHCnGFvf/Ki\nNg8F7+T+j9HrTy1Hl7fUcB/zQpHKxBXJO2ri/YO3lKTe/xqPfmVX/a099XFSpApj13behCRv\nQr49dUpJ8Qbplfal3uFH2L/LS5GqRBWpXFLWRqp+m3vtY9rFG6RXakN1es33aSaqChTpmaEi\nARKSsBHNTu+HQKVJGYPqKvxxIev+NBNVBYr0TFCR7Bu9hSIKk+IN0gvClZ3iw0xAJlGkZxYU\nSdCMTaRbZJFE1zuaz6WlSFBGigTyqN1ObZ+4Wj6Jmp9CdV31Grf214soEpAVRWo2ZBcpCVqf\nQn0TU/HxdHc1KRKQgecGstUgeV1/TA8mxRukW+t3WQ0f62w5UIpUJqRIvp1bw+ZSuv8q3iA1\n3zkMIVty79AL6ioBx2jYyQEmJNuuntSkiINUjClVX601eaNIUAKK5LsJUp1zgtccf/2iG3WP\nTMNFkcAsKpIl70hNknQ/lKrbtsWoaX+SIlUYdXLAHnUUKdwotTwyiwQxiSK9sqpIlm0SoWTR\nRqn2YbHW/XqKhGaQSHCPLJGvmZJq10CmFdpnFYqEYy+RGtvE0tdCjVPzDyRTpAgYVkiwXpxF\nzyVbdVc0qZKQzB5RpA4MSUkdElKuLEykQCNVvYfku0RS16VIFRYW6Vi4XXc9k8oJKd3MIqXT\nF8p6jZ91J8ro3DNCpE4eXUCkokeuX42nSB1YWST9hc1qJpVESpmvNK3aKmeKzzlNMQbnkQEi\ndfPooYKorlykEIOVGuNTer3d7OELbcXKT0YQYWyOXEukxUwqJKR7ETwrO0BKokjv9Bepo0f6\nN1eFSPOHq+BJKnytaNZYnSKVWVwk9U7uQiYJPKJIYWhdzAI6EP9mgmNWiKtqRJo8YHmRHvPR\nSJFyv89OkT7onJJeWpKpZOs0KauqUtLM305qe2QTybIyTK8flkeRKowQSaaSsdOkq6pMSfNU\nkkxcZ0KSNJDuP3AySM6+oEifDTVnpLlP1J/nLkzcSSpl3x8QV3FykdLpQ1spUpmuIj0OWr3V\nACIVUsAMlWQedRPp7FC+OEX6oKdImoF3dOnee6q99HpxMHzociJBpnEjxRQdypenSB+MFKk2\nI+1dai+5dSnp5TpJ+MH0OEQewUVqHyfgGg3A1UTKN51v25eQYCblXnrbeByqUkYkyUpL2HLm\nW+F7BUUq0k+k4vob26Ny165RujZdx6kk9MgQTybNqfJtc2U4gnVEQoRabgLxN7YPNfunpFZF\nJJlDqselbPr+e6WNFKlIp5TU2FiF9ZcMDShT0nCTzgkJNkiniyJffUMEACjS3cuoEUmHf1WV\npC+NNemckHDLhvs6pk/zEsTVnSuJ1G7gXiW/R7o2tClprEknkQoeOS+RUqVtWQsU6Z4uIonq\nI/6UuHGGa1PSSJOEHjlFMv/1aUFkvbmOSNLq7r/bah1VR0rqPoxHkUr9eVZ2yf7GQJEKzBTJ\nuE4vdKRoRi3SOJOkHnlE8qzPKFKBDiLpVlmO2zOp+q2ipuC1QSYdc3TFI30Yb437NnoGJud2\nBIHAi+S6fvVU7CrSoAl0SEjlnqwiuW89DN14aUQQilxYnlD1A2Pt7VQPY5LgoqTbUB4SkiHK\nRuuZaua1HUV6AJyS1DXzo2vrSXFxZnhtgEkPIsGfls8vo80piSI9MFmk48W1ryeISZLr+z6D\n+ehRo6T+Lau9aBU1Y6wH4xIiGd/eDP019wQs1euv9d6xejgZ9Q5MIil/3ipOkR6AijRwmeAU\nyZuSejwMnk7/lwSibN7fWjr8O5oLiOR4k0Tt9XVNSY8voAf0PiE12p4oUjI/FIFif5E8iw2U\nSBCTyo0nzDOClV5FF43J0Lt/6+L9V5fcT6T4oEjV8rrKgA0tdUp6k+juV8+hQ3qXkJrtjhcp\n8xZCkR7AieQcWU311o6Wt5HMS8cHAtAf5XC3YBJ5ZO5A3V7uQPMfGDmGoCJl47LE6t5FUjTQ\nW6ST5KXPmsDJ9JmQ2g3C3+eKV5zl45v3ObQriQTbRVNVgGwUKNoRvkc3P1sHodNnQpKss+5r\nKDuQvtg6KIp0ZJJInkQouRZ3NvMxsaXzxanTR0KSegQV6XC52nYo2Z/scrO3SJgKslZga59m\nStJ/qIFRp09vFYVNPTReFTlkjwLB1iKhxBO1M0KkW7IsXt5389Q+vU9O0PHr66RmIjq+TJEO\nIETCJTDxysZfplrMkFhONeQ+pcO/gtLgEarFmT8MinQAIBJyIQhKN75F4umOkaCp8ntDUyjV\nwq7LJVIqdF7bttMFgIMiySoM2EmolzpMHYlOsg/8LbakWth12Pz+6P9h6da6XLKEgSCqSP4b\nSeCdidakhXRSLFS7Y1R6b9adrZNQHxsb/USqXvucvhFlYop0xCsSfIev+rq4N8usNNwyUl9L\n3b3/3zuVlBGj1gzHV8SrWYp0xLm2g3vkWvhpi94nBsMtI8OORD6EdJsiUvbZH1+T3aFI4gqu\nvQhlWd2F/n1F/T2jbPH0+L92I5oe65UcGlGkMz6ROnhUKYPfBHm/KFA1/Frn7R+pUJW/DaXw\nCHeJ5NKIIp1xidTFo8pSBN+Z6W+Xn81p+FTdRU4fXwl6PvyrqlT7mesvvIxkR5GSfha63nfV\nyy9BEfsDDKXmcpaVKyivekAinW8ea9rT9g9lQ5EMF9y+JSM8/5nuvAr1FO1IfL4TdVzZtbOP\nISdb4oCwnUiWPyfhu5g1nMJalV53Xk9t1vKR8iQiPHJeHDkCgRBWJOONpPsS4o1jWbFSYdh1\n9ssLpZ0s1J3XuxrFHQn1m5HhzetYFqERRcphEem0xjb3JC8NHPARd16zb/2PDd8VGCWS++LI\n0D+WtURqhNu+etW32SqPG/ERd14lWxLn54TajarDeKiE0ogi5dCLlK/RzGLCeAo1rCfQu5Qx\n3HkV9jLaI8AeA6Kqk31EKs4RbRZro59qjY7tCzTl1p42LmG72gr3RTEXR/r+wWwjkkWxRj1J\nJcS7p3+BJkpPMo0MHnlEwq3qtP2D2USk1lW64RVRe/53T8dzQJmfe/f2TNd/9nMI1ogi5dCI\n1DwK9C9UltYl2kYgzwGdC2Q296QRVb4V1hJXgmtEkXLIRdKvWertSUi+6m+N9Nkt+Gxcubln\n88hyyZjOvzAI0GjmbI4rkvhGkmG8tVVLrQEW9PjdgkMNefvW3TOVSO/x2G75ySMZzfIiKeYW\ncp/1dW3iqf84ATs8CPRW6a593YWk4w2qEMpdCB3SkSKUDiwmknm030o/FHd7gN5hqk1301Q7\nX4UUOzj/FChS5qKt3rcRipRDIJJhqdPqwNgWsrp9s+DYjqKDTClpN7UqJXMfsrGwI1Uoo1la\nJN/s8nvkXRrWX3c9CSSodJ+eMB4d80x5MfnZNVAjipSnJZLzwUb3kTsvkoQbAJYHgW7q3b3c\nz6X1C01W639euQl7MccyinVFskf+MnoIjyDPNUhKanXS/n6S+IetcsJAYauCWixjWVYk37LK\n//c/iksiVX1VQalO6udfxT+sFVRt42s7UbY7gSgipZ+Zn+XKvf0zeaPAvUBUJaTH7xsTVn+P\nV/HTbLm7Cx5dl/DJd3mR/v7+9vTj6ehSWSSABqgtN9+FmrVkMTmhHpXQXGIpe+zn0YVF+vPr\n5z9PX972j9LT44slkfzpyH2R5L1U01zvVF466uS7HSDs9RCBtscb7N2w0O4cJov09DwTvj79\n8/Pp2++/3w7BFNbus1dlh7qmZpwJ6bHEu0723GDp9pa51JTqpyms4MIi/e9/v/++fPEzPf/3\n++HFwqLG2ydgvyIVvzHUxxQ17ZM7PToVlPXfy6Mri/TBn//dbr9//n34WWWzwY7+kz2aQQAT\ngafoa1LS6FQuKN0btKfjHhPv0iL9/fnjvzz07z+/zy/1yEjeXJKrB7swcZW9X20q7+YYOi0/\nESHrtsu8u7JIf553Gv79b1WXziZ1uEZy55JsLdiKylP0HFVDJ9tLDwWO5YwrQhRXFul7+vn7\nW/p7+/v12+m1gkjIT2uy7zk5mumSkEoli0+N1lpu9Fr6ZQixSJ1m3ZVFenr6Lyv9l5Ju/6a/\npxeLF0k2lRpPIYubEf5M1YC/bLXkeaPc3qnzKrOfR5cX6fb1++32W7i2KywqBOSrYC5w+rih\nKSwpKH0EQWqZcauh25y7ski/vv73vx9f1CKhnoRRn4HSCsofiK+somRzI6J29VRNazKbBYVs\nXFmk25cfrxL9I99tqL1aojJ8mAscaOowFAY2WzlVjU1PQRAdPbq2SH++fPv5I31N6ev5tcYq\nSvNxDcbXFIWlzQQQyZqQEHuemyak+SJ9e124f/t+3mtoX45gJi9mWSZsJYBHxtMB+dyfXRPS\nfJG+/vPzf5mbsS+0r+stnx+qf11WUtZKAJFMCUn04SjtKHrOt2uLVEOyQSYYO9zw+jMb5oLM\n165FJJE1kkukdhEzFKmEaEgdW1DKQojMFkAkw/kC3YHrPN0oUpHa/vfdTwBbCYOWiAE8Mogk\nzVHuvn1QpCIykWr7TMhdaYAn8UWSvk+phkFRwgFFKiIeLe8vTIvK+l1Tnu0IKzvN3/EAv49o\noUhFFGsK2zukpjBg9beeSMW9cHmH7loxWo/ceRPN4tz+4dWy4oCLreU8Kq+M410hUaQKuqtc\n6SRQ9SZ8VVRsMZHUv8wE2NX0QJGKKIfrfuQtBwaRoBKeJhZVeZhIqfC1rBWKFBX1+17xV84c\n/WnbQy2HcGlGXvLzZclndyvZ2aPgIhm2EF5eNT/RBZFAsc9lisXTslAk5d8kg/TthSJVMOzF\n+T7XGyFBYJGkHtmawWzXWKFIFcbfrTBdRXdoY6JI7b+sZGq991SjSBVMIuFNQiSTBRLSy+vA\nZ3wRteK0H7n3JsYZ6TmqTF19c+caqySkbme3+0yjSBWsiySoSYbGVhVJtEtj25GhSDMxX20g\nTbK05W+jg0jNbRpZSxQpXO9Npoh0qAxZyayRkMD9+WvF6iFu703s+18wk6wNpeI3+uqYku37\nBtj+ALVi9RC39zb2/S+USRcRSfxHLCrFai1QpLk4NpIxJtlb8ck4WKSEOK1GxzBMnskbiwQx\nCbNpET4hQTzqUC1UD5G7b+IRCWEBJK2FT0jCG0iq7gC1onURuPsmLpH8JvlOTyiRyuVUf3sv\n6spu9kxeUaRxJnnPTrIGoajiNkAVpHE/gSLNZqJIN9QfUI+dkHSyh13ZzZ7Jm4uEu51kb8LS\nyjiRdNeCYbcaps/k6CI5L5JcB4j4k1jRRVLuqVTLVa7ChM17oEh1vCKZjzABrpHemtFXghfN\nF9P+Zn69WGP12BmKVMctkmtZj1ncdazjSiWp/rK9N0y1gJ2E7b6NXyTPVJ6UkuAiYTwKvNUw\nfSZfQSTDQabTF1ZMC8QhIqX6y/rOGvsZfZk9kWf33wQhksc8xK2kjuKbFbB8BiBFitt/E+/+\nt6FC/S93Wzrutha1ewRppWe1kL3E7b/JeJFS9VtTx+FEsnhku9YU/3qGk9kTeXb/TTAieeam\n5xQpt5fVhWVFG4eESkiHVtOrRINm2OyJPLv/NpCLJM/bLkIkT0r0lzzmWJNHYpHSu0K65p3M\nnsiz+28DEsn65m3s7VQTv4EgLtlYq+JWdo8G6Vr3Mnsiz+6/DWxqCyrJ/8qjvkt4nhGXrCcg\nhEcpp5CueS+zJ/Ls/tvgcoRyke/t7lixwzW9QSTzJWBek3uDsNlcyeyJPLv/NsDhMd4HQfUH\n32XWe5TJGsaoMjko09K46TV7Is/uvw3yfa5ar/IiSFz7ZZqnZP1CTZ2QKss4e+t+Zk/k2f23\nga68rbKALspEzYBFamx4KIzQGKRqHMHsiTy7/zZjRGpNEMw+oaQV9CVSynyl702ikHnZCGD6\nPJ4eQBPsXlChonkfQllFsnPo6qBcyrOpJstD5n0MANPn8fQA2mA3g6zTSd+jsadOK7t8YVkT\nxl8VHjm3ps/j6QG0Ae+qGi+41T32z30akazR3By/KUyRYoG+PWFcgWi7LJXHXYwp/Hd4JOzI\nukcJYvo8nh5AG7RIh8rifShln+V9DVAvioRklPr95FCkBQJoAxfpoTb62l5QGrTRLk5IxbeK\nVguprqGg62FMn8fTA2iDF6mxJawJxFTYKpm+aH1h1siN9WWhoOeBTJ/H0wNog93/fqwNyzK6\nota5rS5a3SgQxmhb+lKkcHQQqXENrorEUhQhktujetLUv9ek4jcDmD6PpwcgoMPa7nXNg9rS\n1hc07kRoS9YfR6jobFv7itruw/R5PD0AAT1EupluMsJEcuxHK4rW3ynKMts2Y0Rtd2L+NJ4f\nQZsuItlaEFaSTHJP+64+Wq9al2gp++UY5k/j+RG06SNST5PEO9O25mUlG4+ZlnKi+VKHIkVn\nT5GchyVYPBoSEuYTF8ZPqvnTeH4EbTqJ1M8k8wIQt7JrPiGXPanHHy6y0xBhGs+PoM2uIp3L\nQffX1QnJE8596Qlzav40nh9BG+fVhLJhfyX7+gy0shM8IZfJhq4EeaNI8Yklknlru10SlJCS\noLWTwpIMJWPGlJo/jedHIKDX2q5PSjLudOlqlouKHpGTpMKFPAowjedHIKCbSF1MUrVp3Gyu\neCRq7CAw5ARLBO7F/Gk8PwIBwUTSb4cJi/tFkj7b89BrvqRRpDkTav40nh+BgH4idUhJ2haF\nU1/USWqWOJdrN6XiogkpQghtookkudQ3NOYVSf6MXFvepTyKMIsDhNCmo0jwlGRoLx3+NfrW\nQ1cAABVjSURBVPYvv9z6VLdYzHgYk6ZTgFkcIIQ24USSXOzrW3OJpPmjR+/94Y+CIoWm/QaM\nbtxcy9Gaa2Un2c9+fK32SOtaC7sQszhACG26ioRd3E0SSeORoDeKtGIIAnqu7aApyTMD7Su7\nc3JpJSTjr/w1Kk2bTAFmcYAQBHQVCWmSOSjVNEzVb1txpNbv2FvPx7y5FGAWBwhBwCoiOWLS\nfIDE4/6c1qNmT6st7ELM4gAhCOgrEs4kT0wKk5r3i9pbDZ4C4HoAAsziACEIuIRIor9BdOhF\n/7da+nlEkeLTWSSUSa6Q3jelNX/Qq1DUtbFtuoWk/VN+YALM4gAhCIgpkm7TWd5Wa1amj3Lt\nto6vQBNSSqo/KNuN2f0/EyGGNr1FwqQkQEL6/LYyPVOju+4eBfHngwiBRIhBwBImIUV6+VF+\nrr6vATVNvTdoCeMhng+BsOtaHxEmcYQYBAQVqb1/5g0gI1N+HgviMHr0uIBLpZIUaQW6iwRI\nSeiE9PlaOv6ChO0jvZULu3THqUyoeRMhmAgxCIgqUnsHDdT93Ww2ffLjTZyQsjsI99+3MuJ4\nIgQTIQYB/UVyp6S+Ir2UeZnNrYt8j0fVHYT7y6PcFV2z+W5EmMQRYhAQVqRbOn3RtXfzAz6C\ndZ1Y5mxOpEgrMEAkp0ljPBIUzb/efKRU84RSqL3vW4xJHCEGASNE8i3uoohk88jgRSCZIsQR\nIQYBgUWCXHwr0oHl9YZHZiPSwx7INCJM4ggxSIhuUhSRDB55E8ubTPNmUog5HCIIAcFFGuaR\nRaRqfJj12dSrphBzOEQQAoaIZDcpskg1j6Czf5ZMIeZwiCAExBbJG0nPlV3FI6xGb02OtynE\nHA4RhIAxIvmfb+hdXy1S2SPshL9vbLBMIeZwiCAEDBLJ1qb7ch1W9PRy0aPeU31gagoxh0ME\nISCySO7NBphI4oQ0aI6PkSnEHA4RhIBRIhka9e/99lvZ5T3qMbsr+xm9bQoxh0MEISF/GT2k\nH0kFVywokWQe9ZnWjch6yhRiDocIQkLUlJRMtaw96kTKeTTxdk8vm0LM4RBBSAgqUjp90bVH\nlUi5Nefs8e4h0+xjeiFEEBKGiaRrdaxIXo9irK/AqSnGFI4RhYBxIhkzhD2YPiKdPeq6qtO2\njZMpxhSOEYWAkCKlwtedutOIdPIozC89fIJJTTGOK0YUAgaKJG73nAJ69tYqevLoIV+GHWi3\nTDGOLEYUAgKKlLkm6dhbs+gpPX7+YIBGvv1/j00xpnCMKASMFEnWcO6uTbfO2iXLHg3JRoAl\nmlGmGFM4RhQSMpFOFSlzp7NbX5Kix32P9+/jLuoyWGSKcXwxopAQLCXBwsGLlO7/v84Av6Nd\n58U4whhRSBgqUrPl7OszRcompIEagXtSyBRjCseIQkIokQovW+KBXyJ9eLT6LwUJU1OMKRwj\nCgljRVLsNEsruavIEtK7Rwsu6nK0ZYpxnDGikBBIpOJrAUR6vzRaZ2DbND5KeWAkZWJEIWGw\nSLW2kYMKFmnaFkP3HksyBZnBQcIQEEckk2L+GgqP1FH4GdJnLjUFmcFBwhAwWiTbhVDHuyAC\nkeZ5NJDs32uaTpAwJIy8I1tpvN6nNiLoyu4SHr1wl5qCHG6QMCTESEmmG0yQ4s0V5UyPpqwm\nX/9e1ISeMwQJQ8JwkUw5cJ5IU9+hZ82jMNuTQcKQEEEk+P1ByCXSfI/mEeV4o8QhYLxIp+Yl\n3alCwiWki3oU5oCjxCFgvkiy3jQxwUSa7dG0pd2kfk+ECaTNBJEe2xd2Nlykz4Q0bzQp0uwA\n5MwWSdwXaEtbXDLN92gWcY44TiRtRt9IeuwAc+fUWrIuEj2aTqBQmswQ6bOHHnkGtLKbfYE0\nre9AszdQKE1mrO0+Ouhy5YMRKYBHczqPNHkjxdJiikimZZO0NGIRGMKjOUQ65EixtJgoUp/n\nFWB7drq2diHUIYcKpsEcke7u0qjqwErViwbxaEL/sw/5kVjR1Jkmkr6T0SJNH0aKNDsABZNE\nsvSBFim6RxMIdszBwqky6RrJ9HyxpA4gIQVZ2M0g2DEHC6fOhBtJ6fP5G109UJlG0TAJaXgI\nAY75gWjxVBkuUrJPVEEdv0hhPBoeQ4RjfiBcQDVGr+0sTzUoqrhFiuPRcMIddLiAaowV6e7a\nqEtKokd24h10vIgqjBTJ/Uk1g0QKMoBjwwhy0PcEDKnMOJGOO3U9TPKKFMkjihQwpDLDRDo1\nGlAkLuxCETGmIoNEyt04wpu0VUIaS8SjjhhTkSEi4T5huqtIsTwaGkiYo74nZFBF+t9IKj7G\nADfJJ1Isj4ZGEueo74kZVYnuIpVbCyjSWmMHI+Zhx4yqROe1Xe2pOlM3mPbo0T1BDztoWAW6\nitR4OBWcklwihfNoYDChjvuToGEV6ChS8xlvcEryiBTOo4HRxDruT6LGlaefSIJWsClpL5GG\nEfawwwaWpZdIol85miUSPboj7HGHDSxLH5GEv7kHXds5ElJEj0bFE+24P4kbWZYO+9/yX4BF\npiSfSOFGjSLFjSwLXiTvkzrGSvZuI3o0isAHHji0HGiRdJ/HAExJZpHoUUwix5YBK5L2Y01w\nKcmTkCIO2ZiYIh75O5FjywDdbVBXDCBS0IQ0JKaIB/5B6OBkGA/B8ilbMJOsIgX1aAyhjzx0\ncDJssxv8oIKyklEkehSW2NGJsGQW62GDTLInpKDjNSAs11nsT6hgbOgPwX7Qc0VK9neAzswQ\nKda5CBWMDe0huAYAY5JNpLgeDSC4R9cTyXn+p4oUdmU3AIrUHc0huM++rf754QRDzcgJqXtg\nGY9inYxY0Zjo/ZAPoAmESJE96j6Ncvko1tmIFY0N6TFAJiIiJdlEijZ1RnI88njvKsHCMSE7\nBtSZB6Qki0j06OEH4c5GsHBMSI4B9wbmT0n7edQ5tMxmTbjTESwcE4JjAB7mFJFS7GcaBouU\nAj7iESwcE81jwK6n3Ws7i0h7jJSN7A3taKcjWjwWGseAvix1pyS9SMETUmco0iCqx9Bhd8eZ\nklT3vV7/H3DiPNA1ONcTVsOIGJOW2jH0OD5nSjIkpOjj1DO6TNsRT0bEmLSUj6HTzQZfSlKL\nlKxdbsEaCSlmUFoKB9Htnp0vJVlE2mKYTCySkGIGpSV7EB1vfbtEUl8iLZCQOoa3SEIKGpWS\n3EEMvv6V19oxIQ19z4p5MmJGpSTzrtX3uEaKtIBH/VjGo6hh6Tjd+e5+VA6TKJKCVRZ2ceNS\nkarfDuhRUUt7ibSERwN3daKejKhxqXg4iCHP1xv70FmxTkIaJ1LYcxE2MA33j98MOiBzSlKK\ntIRHvVgoIcUNTMPnvc5hh2NOSWqRthghEyt5FDgyDYZbNKAutbWUl0iLJKRhD5DEPRlxI9Pw\nejUx9FjsV0masoskpC5BLuVR5NAUpNEa2UWS11snIfVhoZ2GW+zY5Mz4bCZTj0kR6zoJqQtr\nJaTQscmZ8ZEyVpFuUpcCfjBBiQ5hLuZR7OAUrJGSPqsI4l1HpB5RUqRZDF/euURqx7uORz1Y\nzaPg0SkZrJK6t/MzgZUm4n0G4kgo0lyGpiW3SLdawLE/ye4BfJzLeRQ9PANxn24olC+4FO1T\n4ivAA801GPxsBA/PxLApqOymXDwT8UIJCc96CSl8fEbGqKTrpLG3cAh5oYQEZ0GP4gdoZchE\nVHXRLPwQ8UoeoUOlSLHo75Lyybl2mc+ILyzSih4tEKGLOJ/dIC365tJKHoFZcKfhtkKETvqm\nJdUjqOKi6dL3kJZMSCuE6CbCJ9xpN/iWGhdosGsmpBVCBNAvLYlXbH2ajQEy2kU9WiJGCHM/\nBnzrhASFIoWnS1rqJJI+kE1Y1aM1goQx648lbZ6QgOGuudNwWyVKHPC01EUkSyATwcW7bEJa\nJEooYJUErW2ekHCs69EqYWKBpqUOItkC2QCKtBxAldrP0CnbW25MUAEv7NEyceKBpaVWM6Bf\nWwoMRVonzi5gVAKLtF5CQrGyR+sE2gdIWmr8ohG0tY3JHvgyZ2OZQLvhVwkq0oIJqeMSeZ2T\nsU6k/XCnpVr1CyQkTMhre7RSqD3xuQQUacGEBIIibYJjCldqXiAhYVjco6Vi7Y09LZXrXSEh\nIWJee6fhtlasAzBO5GKtSySkXiItdTKWCnYEtrRUqnOFhIRg+YS0VrCDMEznQo1LJCQEyyek\nxaIdhT4t5ctfIyH5o14/IS0W7UCUkxoyFRYdjD53tBc7GYuFOxJVWkKsTRZNSH7WX9itF+9Y\ndH86WfAjbROXYIeEtFy8o9H86eTmT1pdKStEwRv3DglpvYDHI5zgp1KXSUg9nlRc7mQsF/AM\nRGnpWOQyCcnJHh4tGLEX24Rt13KLpCy/CxRpWawqNaqlyneS5pUV4uCKXOjRj5+eTgaw7vB5\nMD6eWq/mFEkdTRjgv4GS+eFT+tfRywAWHj8f1sdThb8ycaGE5EK8sPuW/nQOxcdFx+8Zs0qS\nJ1QvlJA8yC+Q/n758rdvLD4uOoCvWH8BqVAtZb/0tLgGjtgVOw1/vnyz99OflQcQATQtpdMX\n4vZMUQTBHrxqx+7f9GTuqD9LjyAEYFoyi7R0QrIjfWT+nx+/ft+eTfreOSAH1xzBA7C0lB7+\nUbRk6n95hAnpV3rmy9OPp/Sre0xWLjqER0BpySjS2gnJHLw0Id1uf3//+vn09Vmn/1k7683S\nQwgFkpbSx/9UbZh6jgJWpFprf35/C7t1t/YYYrEmhrt6JpHWTkhmLM8G/f0SdcPhmmNYwr7C\nu1vUXSwhWZEv7O75HvVkRY1rGs60lK6XkKwnzNTW1y+23rqz+CD2wJWW0vUSkvFsmdr68z3q\nbsPqo9gHR1rSf/7QNYdgk9+e+GDh0LvivlqS1zD1szq2hBSYhUPvDWATr2MvcbAcwHYeLR17\nd+wqySuuPwAU6ZmVYx+A+Q9UiD986JIDsJ9Hawc/hL5p6Zrnf7edhtvq0Y/BkZZaFXdISPpD\n2DAhLR79MOx/gqxecYfTD7pxtvipWDz8cXRJSzskJD0U6eLg09Ilz/6WHi0f/1gcKuVq7pGQ\nMHegVz8Vq8c/GscfbD5X3OPkK49iT4/WP4DxwNLSHglJSeGYlz8Vyx/ADDxp6a7mJc/9pglp\ngyOYA0ClXRKS7tFCfxMx2eAQJuFOS5ucet1hUCRyxqXSLglJxbYebXEME7HbQI+aP16KHY5h\nKqCNh3XRHMS+CWmPg5jMtdOS4hA2Tkh7HMR0Lp+WROzs0SZHEQBPWrrIIFAkIsEhxMoqiUPf\n2qNdDiMIV0xLTpFWPewjuxxHFBw+LKuSjL0T0jbHEQfXCm/f4djco30OJBKXSkvCgCkSMXCh\ntCSLdnePNjqSaFwqLTWhSMTMhdJSi+092ulQInKBtCQJ8wIf/rLRocTEpdIKo+MQaYXDk7LT\nsQTF48MSKjW5gEd7HUxYtk9LdSgSQbFvWmoHdwWPNjua0GyalpqRXWCn4bbb0QRn37RU4xIJ\nabfDCc+maanCNRLSboezAB4dArpkXdmFOxAnux3PCrh0iKZSK5yLeLTfAa3BZmmpzEUWdhse\n0CpslZbKXCUhbXhE67BFWqqHcZmEtOERrcQGackkUojIsWx4SGuxRVoqcZ2EtOMhrYbLhtAq\nXcijLY9pOZwrvKljWOucIhEr37//NdVbNi1Vur6SR3se1ET+Tf8aa66clvJcZ6fhtutRzeNP\n+vHf/39dLC1luVRC2vSoJvLl6fb7a/r2x1Z7vbRU7PJaHu16WPP458v39OWXo4HF0hJFemXT\nw5rHj5S+O5twqhRjSC/m0bbHNYm/T+nlIsmJz4YIKqkT1erselxz+Pkl/fzyD6SpVdKScmtu\n2/m27YFN4M+3502Gpy+g5rxpaczQ5nu5XELa98Am8Pv7z//+/zMZd+wy+GSYuMS7XELa+Mhm\n8T/zLdkca6SlU79Tep3KBQ+5M3/du3YHYqelXPNXnFRXPObO/PXcRcriVannIFOkV654zAvi\nlGHsCu+Sc+qSB70kkdPSoa9hPQXikge9KBHTUqbNa06pax71soRLS+cGLzqjLnrY6xIxLT32\n0LuDmFz0sJcmXFp6aL5n44G56nGvjdMFoEqnlq46oa563KvjXuGBBv7YzGXn02UPfH3ipKW7\nRju0uQbXPfINiJKW7ppEN7gM1z3yPXCnJecESJXvLsWFD30TvC44s1rlu0tx4UPfh9lp6aMh\nTDNLcuVj3wj3Cg0xDy49ly598DvhX+GZ6qfC15fj0ge/GTPSUsp+eUGuffS7MSktvVV2db06\n1z76DXlRwaODte7FZ9LFD39HntPKsI8QT6cvLsrVj39PnCopKlOkN65+/LvyrJKvvq765efR\n5U/AhrxKkEY+8sBpxDOwJekdbyvNIg//XBiegY1xm9ROS+nu/5eGp4DUkcjIWcRTQNrI0tK1\n4TkgAkppKX387+rwJBAZWZco0js8CURMPi1xCj3Ds0AU5NISp9AzPAtEx4NKiTPoDZ4GouUu\nLTkfRNoIngdi4F4l8gzPAzHxlpY4f97giSBWvL+ssRU8EcQOPfqAZ4IQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAU\niRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAU\niRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAU\niRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAU\niRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAU\niRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQ\nABSJEAAUiRAAFIkQABSJEAAUiRAAFIkQAP8HesJDU7RYhpkAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "persp(x, y, fa, theta = 30)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 414,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2diZYbpxZFseMkTuy8/v+/fbZ6UlUx3OEAF+rsteJ0txguBVsM\nKknphRDiJs0OgJAdoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIFJGWbHRPKwY6JxliYVH6ZlgeC1D0FFBk0PUbJp8PrOQzbKUT3EqawrvISDUY/eIT1E\ny7zwKo3AMyrn9xAlE8Ar0Q3QcIvdQ5zK3rhVYweAH0YL99CdLNutPTPoOzx27aHNLFsw5CCc\ner3bhbxlD60nWdCwolLpz15Xkj10IuZUxm5qI+ypTpeSPaRhmlfsphLX3mj1S59ryR6y8bu3\nKNIsqk9mqXW1ulxM9pCBdPjfwBpvjXApkF6al6vH1WQPKXmaiShSf/QL6fTxTyMNltv2kJFU\n+Hlgtfvj2oaKjrnx1/NePeTj1K0jL90Nugl1iCNbd8Mv6A16CEKmdymSH/wRaLr80EiHrpeU\nyV8kimSk6wsIKfNTIyG4XlKicI0okoZRL7+l7I+NlOCKyZVKt1OkJhNevFacBmFjWrSLRtDo\nfYqUZ+otVarzIGh8K3XRQASDgCI9MdWe5ziqvzZSI2smL9JrQpEeBLDniXMg40wKcwniEM+j\nyL30cZ9HOv43N5ryH1QPe2q+N8pbUUYRuJdKoR3EmhjMKJMCd9FoDPd0jSJwL4lCGzVb5coe\nZFLgLhrJm0KKZ0+K9IblfrheYmXLGmNS5C4axftE9PqPNFPHgOZWpgQQG0ws0z0omIsbuYsG\n8d516elfQa4+wQSoTEmP+3ysUtluQoG0IHIXDeBzV3TUSZCzT0ABKlPSOTbNbFV8eIBJkbuo\nM+8ruY9V3etfpbm7xBShMiWDY6uJVQ6lv0mRu6gnn9PQaWMkvCBjr1vkXpocm/CYvbtJkbuo\nFx+XPL3+c3hio0hKAsVmm60kDwvq9hawHu9NPm2OTo8KCxlD6F4KE9wlEMj+ylr53jxdznT6\nf/7XYkGYeISE7qUwwTVVqS4Dnc0IcxX6c1zBFTyiSGrCBNcK5LL0OM5WvnaEuQqdKc47FMlL\nmOCagdQSpPR6o6X1ReEwV6EvpyejyikdRdISJThBHIp9kvam2yhXoSOX55dU/CXze6lQezwG\nQvdSlOAAw730sODQIspV6ETuY7Tqp3QUSU2Q6ERh1Fd3wjVd7jQwyEXoQf6qtA7phJfSEI+D\n2L0UJDp7z32+gcbWlBhvauxDaQJuTkAUSU2Q6Cxrictb0MxtKe2vFke8kKVIfmJEJ47i9ay7\n8C5OiEiHv687WxXDzX+bTusP+aI0AfmJ3QExopNHUd0LWRsjzbeIWOovPaRIfmJEpxAJUwwo\nn/KYfQCNL6CSeUSR9MSITrG062ES5CIEmK1a1do3TabqwMQYqkUihKeZkMKKdC5zvFitF9oq\nr7TpSlKlghFhpFaIEJ5qZVd9Nal3/XY6LwPbrmq2lqIAR4+cCCO1QoTwYCJZX0sy5XKAna0k\nReiOaCiSngjhKU+/ESUBcuFwLAOl93PoHqNIegKEpzyzw09JAa7BAekyUHNsryqFIukJEB5F\nqlGercQeqR+mSHoChKdb2XUwKcA1EPMmlHwF2ExJkTDMj48i6dFeM10CimRgenzKlV0rh6E9\n0y9BNwQTF0UCMT0+itQNScOsIs14zSA00+MzrFLAJ+DTL4Ee0VA3TywUycD0+MAiGRo0/RLo\nkbwGay+JIhmYHp9l38wpqYX0WC+bjCIZmB2f6fyJU1ID36keRbIwOUCKZKEeseI+I4oEY0WR\nwCaF76MzDY+8JVEkCxRp9iXAorrtNZ+WIlmYG6B1MQ89bgjfRwp0baFIOPYTSd2k8H10phiw\n9u1NZpHGX7JInWReEPfDfLyEnJIi9ZGIUsCguZgiNVhYpEs65JQUqY886N9uS5FMSD+OaRz2\n1zso0hW1SIX0FKnBTiIhTYrURyIKEwnqlIUiNaBIiNQBoEhzyX/e7woiaePeXKQsjQ/9y2fR\n/FmZBEykTgonkmNCQk5JkfrIDkUaxl4i4aakSH0kIt+NsBei2wVNuGKROinlL/a8ED0rO+CU\nFKmPRGQCTsg7OpolUaSdRIJNSZH6yApFGkjhY5y2FEnTqkh9ZCS9UKRxpPxCelqIvi3SjUXK\nvhiA84giNVhVJNMz561Ewk5IFKlJrFdku4qkaFasPrJAkQazmUigKSlWHxlIH/+ocykfkSbA\nE6uTDOfI/fB7BJqSYvVRm3O8No8cIs24YME6KdKUBBAJMyUF66MmGJGsz0+WugAE66Q7iQSp\nYAHS07/qbNqHbHUBCNZJFMmRLigUaQKBRMIMc4RJwfqoScr9RpGGQpEckUQhJxLyrIEitdlO\nJMRxQ7A+0tFhQqJIbQKdfw8QSVhHsD5SkU7/V2fUPmaqDEC0ToozJaGmC/+UFK2PWqTMzxRp\nMGFEgh2p+aekaH3UIl1/hG6RXIuAXkTrpP1E8k9J0fpIQZcJiSIJWE0kQTL3lBStj+Skyw/q\nnOoHKdIDimQOJQwZfSjSaKKIhFvZ+dd20fqoxVUk7BaJIkkIYtIokdxTWmAcExJFcrOWSP7z\na4pUz6p/lCI9uJtIzmO/gGRO6ijSeGKIhFzZNZJtNyVdRQKv7HyadSJcHy0lEsS37aakVzwT\nEkXyQ5Hs1UQiFX7W58Y+2ot4fRTCJLBIzrVdvE6qkZ7+fbn8rCjC+DBFeiWCSOAtkndKitdJ\nNdLHP4e/qIuwPkyRXllIJEVUrikpXic16bmyo0gi7idSs5x4ndTCNyFRJAQhRJJ9TaMmKs+U\nFK+TaqSXzis7iiQigEiXoVBOpirTWlK8TqqRzgFTpCkEEUnw3cG6oKpTUsShYcfpkU+kSRcr\nYB9NN+m9rpZKQJFCjg0zFCkEYUTCriHqvR9xbBg5t4UiTSKQSNUBrg3JPiUF7KQKbpF8a2qK\n9M5skaQLE6RIdZMCdlKF7hMSRZIRS6TypAR9pr0cdblqmgpFCsJkka415esGD5DalBSwk8qc\ng6VI08jFNFMk2JetW6ekiJ1U4nKtKNI05k5J+dql85S+6KcHYYvIiQzwKOTBTMQ+miqSeDB3\nEKmUIGInFQBcJoqEIqRI50nJFE9rBOwgUv+zBookZKZI4j6Ci1QxKWIn5bmuTynSPKKKdJiU\nbPE0h8Dss38ngK2kIANFEjLx2K5RTbr8ACy+aFLITsqBOJKhSDjmDab2yWsSJjRUsLxImQZQ\npJnMW99IerG8BPNWUCo5ZCdlGCRS9Q5fivTENJFkdVTO11xVvA0QyEtWM8BMpvUc6febl2vX\nUF0fiJB9FFwk6TvRVVU8BkjBpJCddAUyl1afaIpPNY4KQYTso+gieYLJt+19hOQXdyE76UJu\n9wgTKT0/eVEkIbNEkleBnJKehkjKb5NCdtKFbiKl8wqAIkmZdHSlmJBAIp3HSN6kmJ10AvTs\nd256dhldLpYiHZgjkmJCgizuMmPkvWDv0dd4UKuIpyx5ierlUqQDc9Z2uh2S89yuMEhS7lAw\nZicdSaf/X3/RFVM90KFIQlYQyWNSeZSkl4xJMTvpQLr8cPlFXE5donq5FOnAFJFUKztV+nP2\nWs6cSTE76UA+RINIopcWKJKQ2CJlVzGKeqr5PpaN6fS30KA8EmYpppp3pYL20YTTBu2EpMpy\nzC4yaVGRfDOpMAdFkhJZJOcIb534pWuqoJ30SeGSUKTpTFjbDRRJa1LQTvqgdnKCKUmajCKd\nGC+SxSPzUBGI9GxS0E76gCKF7aNVRNLHJDjx+zBpEZFKTy3dzhqQ6qII2kfDRTIcNWgzPieX\niLSMSTiRjM9mnipRRO2i0acN5i60iaQ0KWovPQCusygSnGVE0kUlOz94SiVYCU6mHNt4kSZe\np6hdNFgkTw9qwhIeaX+atJxIrkN7igRn8CbJ1YOm/ZVMJOcnRAygvNSlSBEYK5L5qEGXW3xy\n/ixc0tQwnikrO4okJqhI+YSmQ1vhlPQwKWovVSOjSBFYSiRhfsXBeTr+HLWXamcvPVd2FEnO\nyNMG96mrrASFSCeT1umlMVskiiRnP5FUB+fHVWDUXhK3wF2aLC1FujJQJPcToawMlUhnk2L2\nUzCRZl6kmB30MvRK+SckSSGZBPLyUshZqdakris7iiTn7iJdj/jiqUSRYtRdZdyVgnjULEbd\nnvOU9BJOJfnzAKA8SVqKlGPYJgkkksUzxVB8/S2USmCRVDkokphRIqE8Mq38FFnefo2jUn0s\nU6QobCVS6SHNk/r7r0FUqh9AGzyiSH1YTyTL6bhmSkrXnybi2jGeUze+9UhYPkXKMehSAT2y\nTDyqKSnlfpyEa8N4SJksd7hTJDEriqTfCqk27IdvVZ/cc42WyqJLh6+08dY/9YrEFWnM2g7r\nUWPjoC73alKUWakx9wpCu36jjTcAipRnRZG8Lxe1Hnx8P+bnV0DO6z3fyi73Cd/KxlAkMUuK\npO9glWWfH4fyqtMslVrV1g4w8zcOam9xp0hiRogE9yiX0nG+VTbp9bdJd7OWa20s7WrfZ0OR\nOjHitGGESI5n76yV57M8QUxoTB61vjuMInVigEgdPMqcEHjKDmlScxrMbIDa3x1GkTqxqkin\nxO2syrOI6Sa1l5PH4zjJ+jOdc6mqKP5pHIFFGrBJcpwgSJNLDoJ1D6bLHwd3YsWL89JOvIkD\niDR3KN9apD4Tklok/ZQ01aTaIiw9/6s5CaFIHVlWpKf0opzKKWmySZKVnfY4MX38o8tS/cNQ\n7ixSN4+e1zbuCgpXYZpJglMB/Zk8RepJ79OGjiJVz4GVFcQyqe7RqxDWJx7f2o4ilegskvi+\nAEuVOpEsU9Ikk9oiWV4jpkhd6bu2E3e6qUrdYsUyJU0x6ToVnhNYPs5S+bSTP8igSEW6ivTe\nee0CbVXqzqG0U9Ikk9oemeIQi5TSxz27FElOT5HkB2vWGlVPzeopKTem+3dmSySbRwKRPgU6\nZyr8Opq7ivRcTGNSGiKSfkqaYVLTI7xIGYOOmQq/joYiPX6rPReC6vAkzk9Jme1I3+5saWI4\nMjjmeMqaygZlUpuqhbKcSJiIrwvsYrHm+hAf51F9LGWq6NqfDZHURwanjO/nPy2BLtmM1UIJ\nLVK3KUlTrkMk2Nouhkl1j96XdfaVXf4wTpAt89twKNLnH7EToHq7oJ+SBptUbdHHss6xRdK+\nAlU7exjNLUUqTj6ZB1widT5uGGuSwCNb9W8O6g8qKJKUPiJpThZ8HnU36fXDUBTl2Kk+MXg8\netsZGXJTJCldRKpvRk6PekXSFGCaklJmIu3SqTWRnhprEyl3bieNyZQTDkW6PAzpHdPIsC3u\nxpgk8cgm0uGeR7NIswfy7PrrYLf/0uzmfs3W0nlKGmRSbeXlfObxfE4koKdAzK6/AX5KEuU2\nrjTytcjLqC86aw90N6k8Ibk+L/WahSJ1YZJItr1vqRaMSWWRBphUvhynlrpF0pVAkYTARRJn\ntt42lqtFXqnpwfy3OUB7tjghnacTyxap/rsw9+yBPLv+BmiRVFt/+6eYmp9kjVNS1npg1xYn\nJECdlyy2KWn2QJ5dfwOwSMqsoAmp75T0Nh89o61VGNW1PJ8EkDLgjTUyu/4GU0Uyrfjz1UBM\nyl6M4x7lVaOzUV5KE9LVAYRImgn8s5GzB/Ls+ltATdJPSKaqPDHrpqT8+3SevvdFWKsopssy\nzqNALYuklMOX25je3g5megANkCJZFnaWurJ5ECadt17VtLApqeRROamhdHkxuYbN+laO5xAm\n199inkjmJUNhK+PKnXlQMnQgNuUvhOvZopGlUEymNR9L2OnjeHoADYAiGU8a1LWVhoEv++kx\n1ft2XDblr0Peo17POkWFGuUMZHoADXAimU/sUEd9wnIkU5Ly84DTi31yUnjUQ6TMZ55kWzJ9\nHE8PoAFMJLsOKJEQJr3u2/Qaff5i+lTuc1TOSVdU0iXU6knk9HE8PYAWKJMcOpgGnj2ExpTk\n0Ojzj2Kdch5Vvr5STW07dPytXvj0cTw9gBYdD4fEyTWZFaduhmTK+cR/rpcRqbx2ha3s0tv/\nrB+EMoHpAbTAiKTNITmiMlSkmwWuD7yt7IQ2yUZgtbh0+aG2dMX0y3Mx0iLnD+P5ETSYItIl\nuTh/I6HHpOuGAVHXU3HXDCqPMAsFi0YRhvH8CBpARPKfF6CeGWVTSe5vuaBqc4lhK3Xd35d/\nyJShqbCQx6ZRhGE8P4IGCJEQ6c0GWEK5zogVYbJTia7JxyO5jyJVHr0Y7tM5r6CNGkUYxvMj\naAAQCeMdaMtrEbJ9JHC0SatR6WTvEk+1XK9IjhYEGMbzI2jhNwnUKaDpRp1IvOF+G/uwQXgW\nqV6wc2Xn0SjCMJ4fQQu3SLCFIGYDpJza1LOL9gVXuUeNgjS1nvP4NIowjOdH0MIrEnBDhRlK\nmilJPag+bwfyBpNOPzaXl/ZL7dUowjCeH0GLwSI5li/SmsRTkk2jj58FJ+SiZw2RR3aR/BpF\nGMbzI2jhFAk4ITUeldckM8ml0effJC+31h9LjaTNsqp5ABpFGMUBQmjgEwnrEUgk0eme3qNa\nWeoj8qNIoIOWa5bDHXX6IuyVowkQQovc86wjry+9aE/hr+djqyMvsV3k6Yy8nvr5R9F7CJtF\nZrJgNAoxigOE0MIzJcFFcpzpyROfb3wWlCe+ILIz8udH5TeNakUCaRRiFAcIoYVDJLxHxTS4\nM43roGrJpH7lqKmneuNi3iLJqwDXDiZACC3sIqk37I4xg3K2+M414JvaCnfW5UuUXmo171kA\nn1sSYBQHCKGFVaTT/WLGmoTJ9Ncxm6O14sqMfOfhXk4n9cLOtrJTlC8qaioBQmhhHLf6JzxP\nQscz8tNfZM8PybO5yGc4voPusEWTlXrMJs4D0SjEKA4QQhPTuBWfT+nTZVK6tgjvvysKMd5W\n1z7lOGnacWVneaUMWDuaCDG0sIh0Wr4YqxGnNV1GQ4zHHOrXmpQXQuyRaUJGaRRjEEeIoYV+\nbXfpI0GneY4ljFfRd/yrva1OWslhTazJ0uFgZ3hRZiLE0EItkmlXZdoq2/Ke85k1+vhZ8jEm\nyslFIwdFChFDC60X+ccUL0GKMGzC8mV4Nfr8W80m7UmKyg3IUYudCIM4QgwtlCIVH9LLVyVl\nftKXYdopVHzJ26Q9ukwHnezhYPOMKMtKhBhaqESqvjMA8ISdyeK5hpYtt/62Ou15pLJpKutU\nJY8vy0qEGJooju0a7TFmq2dyifSiuzdVYYXprefp45/DD4JMFCk+8impfaSQTeE6dXN69Pp/\nwFta88l1mp7E48pOTIggWohFkrTGdKRXKwsh0uNnwZDv/NbzdAyp31EDRZqCcOxLXye5JPMc\nFsA8ev1DdcS7bmQQHZGf1NZVol5CgggxhkME0UImknZHbcmZKQoq0uOPhQFvufchV3btxOV0\nQ6uwGl1yddqRZZkJEUQLkUj2DbvrGsA9en3kOt4Np3uVwiWqLrKyizGGQwTRRHBsp96EW3Oe\nq3VNZ9VHXXd5S96Rkc5/Ov0urEgRlCfPmMKshAiiSVMky6sxlcJVpZjzCzKa7/KWRXWwyejR\n9JVdjDEcIogmrbWdqRXJf3p9PubSZ5Yk09/lrX5LRu75QDshUaT4NETynF77LoDn/Ft1OKKy\nCXO3xCoruxhjOEQQTeoiOU6vfYdu75ltZci9+PhBJhNmaGtXdr7aHMQYwjGiaFETyff+MEzm\nvoPpeMSI/kihUh71hKRZTcqTDi7MTIwojvz4eflTuaO9SzPM8bVl8DpSIj9SqJBHPyF5GuQh\nxhCOEcWRP76//Pzf8U9FkfxbHMfCMPujIbctZc4m3JsyllnZBRnCMaJ44uc/f3/5PUK+H/5a\nEsm3MnO66Do3BD1/az6GuFSCvlZDOm+eUaVZiRHFg/++//Xt7WNsvn37kg5zUn7xAdoeQU7d\n1AfUuJSm90s0Sjd4xKVdEP7+NRy+fvv+789/fwX1bzpslLIiAU6uy6Vr8hsKge/MLa82VQrv\nKRJ4zMUYwjGiePDzx39vP/yS6OdxbefZDudxrctymSaL9PL+apMqimLqdVZ2QYZwjCgO/C/z\nt/yM5Ajety7LZtEU0sej1/8j3iTY06MtV3ZRwnjlv7++/ZqHvqe/rg/lTxsg5wSF4pUl6Arp\nKNLrLxKZKikslU5a2gUZwUHCePC/38d1315+/JExqTBubeHb74epp+8ylMyTQ2Nqqj4mrNMk\n0pYruyhhPPie/vn5V/rx+4fL8q54/o3aYEO2OB3GklPO8nuPEJWqn36MRyLIGDoRJIwHf3/9\n9c+X37NR+uf8WPm0Qd0CpwSAMoZMSM+Pad8mCBUpfaIqHBlDf4KE8eD7b5H++vLrn9PLsS/V\nYzvlU5z7oMpfxmiRHo/X3npkrPO0L7tUl52A0CMuyAgOEsaD/36v6H7+XtulP8+PVc+/QQNT\nXozvuAsx99nSvb9yC6rzskUq2mMp3BDDRIKE8cqff/z65+tfP/+8Lu3qp2SgLxODLKOcMVjT\nyhNKPktIU2d58nEVrgtiOkHCeOOPL79vDkrp6/WhxnGzcE3VSIZYmTXLmDchCdNqnFSfHWw6\nIYWJ48E/v/vly7e//s081hAJs6a6hUioAE8OdThomVGelShxPPj+7fv1rUhvVDdJj18QAwSh\nI+wJX5MYKJJ4cj8mxJ+zzCnQSJQ4mjRFarZFth0HJAEdiakSIw5KFEUpvs1PX/jcAo1EiaOJ\nQKT6pIRaenhViz4hCcp6vc6moUORptPaJJUSNR9RJnSu/nQXPOLKrvAlZKgJX0mUARwljjYi\nkUrt0X61ifXRdqLZInknpI8reVkOQGpXE2UAR4mjjdCarDK40etdIPbxCChS42nk8+EQO6Q4\nAzhKHG3E049mwSeuSltUKd3SE9LhSYoiHYgSRxv5TGP9EGtBDu+IVYYSSqTGy0bOvaORMOM3\nTCBNNEu2epcbK1OWlU267squ+ezkPc20EWb8hgmkiWrv4/3WltKZhbOIThMSMKH0sCbG2Xeg\n8RsmkDbyM7qnh6xvI+szn4Rf2cnWyqoqvZmGF2kjTCBtlAMztRKoa3N7ADz0sJVrmpCE56Dt\nIHqMtTDjN0wgbbTP8M6vmgA8CzvXQyFWduI3qlOkVdB3nq9x7gllPZGuTQZsFj155hRqIUwg\nbQyLLahJhsJS5Td1/e506gmpuMGMskMKNH7DBNLGsmsBmuQfPOFFOnlfTs6V3YU4kbSxdB/O\nJFtJKfujunJIQtXF0n7sQueeGFmoiTiRtJnwPJgyP40qYaZIjS8FFFbozzSlUBNxImlje2EG\nZJJbJPdRhTedfGWH+WgLRKYphZqIE0mbmSLZS7GWMG1Csn3KUN/d6thSLcSJpI1NJIhJnjKM\nJUwSyfrh+xRpHUx7XGGaRm5XEbYS0Cs7kUeSO6riLOwiDd84kQgwTkl+k5xXyVTCBJFkNyZS\npBxxIhFgFclt0gSRhq/snF9P1uN8ok2c4RsnEgFmkYAvJ9kK6Dchwa6AU8h69u09ihRKG7tI\nztMCv0ndcoDSyT96mCu7LIFCaeMQyXd+PWFKAo/r5sqr7zMSRQqFRyRzS/2ndhYXx67sFPGV\n0lXz9xplgUZvoFDaWM+/tSmvufwiKYsYKVICeESRZgegwjUlmdqaTv83YZjUBq7sVNFF2iGF\nGr2BQhEwXKSU+claiqqEYSIpP8ebIhUIFIoAn0iuF3McF8owq4EHdsUjXX2xVnaRRm+gUAQ4\nRXLt+F3HftoiRomkddwk0h08ChVLG69ILu3Ml8qwPhyzsit+IL6zOkiumQUbiBRLG9+xnTL1\nOanr/FxXxpgJSS84RSoSKRYB7inJM0aN18qwQBwhkuXDaJt7LeVDTiIN3kixCPCL5JgUEM/H\nM0TKe2SozmYLRQoIYnhjBp+1Onvt5nStBfGiZ9+xBm+kWARA5glBjuauwl6ZvXZrwswi1XQe\nGWyHFGvwRopFAGbB1cxSSgCpq11I75Wd8TjSdsRNkSIyRCTdJyPqqzJ7bEt4OX3s4JHtBSYn\nocZuqGAEDDDJ/qA0fasQ6FqreYrPlR2CUMEIAB2mmQ+ZMGeEoDosIpk9okhVQgUjAHUqbV6K\n6GozbbY6iuT4yjCb/D3HV6ixGyoYASiRzOdyq4nUOp8DVUaRZgegBCaS+ZUiTXWmU4t+E5Lp\n5EOZDpErQuFaQgUjACeSuShFfSZdek1I4u/eM1eGyhWhcC2hghEAFMm675bX1/nAWCeS5dhD\nnHDGyi7W2A0VjISOJsGfnDsPPo1I3u+wbKRzlm4j1NgNFYwEpEjNnbg4BFPCrnPEMc0QaVG5\nIhSuJlY0AqAiHbYQrhhMyVybFo1I7mUk8kAHRayhGysaAb1EUhUC2kx1F+k1SfmWJ1hdzjWT\nw/gAABXlSURBVMnVRKyhGysaAViRmmsfcRCmRL3Po1MjIawuihQrGgFgkd6ftP1RgNKgV3ba\nL1X2JQTkilK8kljRSHCMvWJ5+hLaOYzLP/DKznYCb074lvwNXS4tsYZurGgkoKekF9OXTaBE\nuiTDimQ7gNenSwd0pVuJNXRjRSMBLpItu2373U4I3CK15gSXsynnjq14I7GGbqxoJOBFMuWH\nidTvxSxUiO8zTMscW+lWgo3cYOEICCJSK9N0kZqDXeyRbcdDkYLTQaQOJmlKTIWf7bU/Dusw\nE5LMIPQJkKnKqQQLR0KHTpsr0lNimEeyJO1qWgd/xcIoUnhWmJK058XqfHWLk6As0WmFJiRt\n6U6Cjdxg4UjoIRLaJOuGAiHS21rMvbITlmMs3U2wkRssHAkLiKQvTfvaS7lqoZNNzzQRXRIN\nGFbBRm6wcCR0EQlrkqEwyWpMUIF4kdh4iUk3RVKkaOFI2FMkyflAswL5N0wI9liSYiylY4g2\ncKPFI6CPSEiTzEX5RDocVJtFOpx3Gy8sRVqCTmetOJPMT+MukVIrgeTh06tGwoBS9dcuRBu4\n0eKREH1KsgYjv3kgdwVUBrSXhpJSSuko0hp0EglmkjkYsUnXzf35LxaRtIUUC6dIa9BLJPMZ\ngb+U95zCW9rOM4D21Cw7j6Jakh77rN4DK9rAjRaPhFAiIY9+X4/A1XdW669HxhnXRc1tzzq7\nFG3gRotHQjeRMCbZV3YfPzQG4XHc6rdp7ZWhoJBSyuczv44yRRu40eIR0enYDiOSc0L6+EX2\ndWcmBZorQ0kh4sL7yBRt4EaLR0Q3kRAmgUR6qbiUMj8pYpAJi/HovQ70OAs3bsMFJKHf2s5v\nkiOQ7KF2beFmdKA5oUkKKZZYSoKVKdy4DReQhD1FKllROpU2f+7j015MHU0rcX1vh5Mp3LgN\nF5CEjiJ5TcJOSO+PHMff2+GepaTnRxUHGnKa2UAyhRu34QKScDeRXo7jLzUSiyYk1CcMWbIB\nZAo3bsMFJKLfaYPTJE8Ykifzt4SeyaQ5n4liKSRXnJj7ZAo3bsMFJKKnSC6Tek1IH4mS4O6H\npkjtIaxrh8Gj1+R2mcKN23ABibitSC8CC1oedfxMOkM+o0zhxm24gET03CR5TBqyWHGKJKhn\n9DShlynesI0XkYSAIjWPAGC1ukSSLSCloZzSu5qvkinesI0XkYS+IpmnpAU8klSjboZ/XftW\ngFimeMM2XkQSOotkNSm8SKY3aUjB9IBMpnjDNl5EIrqeNlhFcoWAEmmaR8hXIGCfWz6OeBGJ\n6CyS92XZnpntQ0w2ZVpO3oz5qmVWZYo3bONFJCKiSGNeYLSv7IRLzyAiPYpE35rekXgRiei9\nSTKU5jts6D8h9fPIla9ZblameMM2XkQi+l9by9FVZJGk4UUT6VH2WaaAozZgSBLiieRc3vQW\nqatHzpN/WR3PMgUctQFDEtF7k6QtLzljkOaM6NEQkR71fN62G46AIYnoL5KqwHT6f7e6TCJJ\nvy4s5sLuVFMSfBnhBAKGJCKWSOnyQ6+6LCLJV53mazh2GA35BEolAUMSMeIkR16ge/UOEsnp\nkTn6waMo4qCNGJOEUCKl7I+9qxI+OsCj0aMo4qCNGJOEIa8tCEtMxV/AFVlWdord+SILu5hj\nNmRQEgZskkzjb6ZIPo8okoeQQUmIKpIpjG4idfIoHZFnRBBzyMaMSsAQkSRlnpPME6l4SSwi\npRqKoPDEHLIxoxIQRSREHL0mJI1HdVcCETSyoGG1GXLa0C4TEkYnkRQeBRbnTNBIg4bVZpBI\n5hducHVIE5bWmM3SvfPP0DEUdcBGjasJRWo8KPXIPxmNHENhx2vYwJqM2STVSy08pgyky8pO\n6NFCa7oHYcMNG1iTACKVHpoiUuHlrOrzwGoaBR6ucSNrMUqkcrHl+nSRdBBJ4tGKX7ESd7jG\njazFMJEMC7jZIrU9Qk5G48ZQ4NEaOLQGo04bTDshTSQdPSqGvmi3Bw47cGgNxolkOJubKlLL\no1U1Cj1YI8fWYO7arnUa5itdnVDsUYcDhmFjKPJgjRxbg3EiGaqaJ1JWqY+/9LhEo8ZQ6LEa\nOrg6A2ek0vch1/LIS0ckzB0vXIJedk33IHbwsaOrMuyFpJQZk+1c4uIRCQUerW3RS/ShGju6\nKoNESpmiJRVJg0GKlIoeddRo0BAKPlKDh1djyLHdxwDMHy/XckprEIfSfCz/mmzvNR1F+k3w\n8KoMmJKEe/hGXkSyasKqR8uv6R5Eb0T0+Gp0FynlpyGoIbgJKevR4gcMn0RvRvT4avQWqbAv\nwh4jwETKRTvEoiFDKPw4DR9ghb4ilY68wefaqJVdxqNBkxFF+k34ACt0Fal0lKGpAnm41xDp\n4tE2a7oH8dsSP8IyHY/tsqPw+sTfKgWSpJnw+jrXXhYtMUoXCLFIP5EKxVxHrK0cVYp2wstH\nBo/VaEBlC4zSBUIs02ltVxyH6g+5HiTS2SNpmRj6V7fCIF0hxiJ9RGq+XoMpS1liOeFkjwaw\nQotWiLFID5GqyyK4SIgjQHoUgSWCLNFBpEYBaJMQE5KxRBjda1xijC4RZAm4SM1deniRJvRn\n7yrXGKJrRFkAfWyHPK6WZfCLNN2j7qzRpjWiLAGdkkSHxtFEokdBWCTMAkiRhDmhJoEnpCmd\n2bnSVQboKnHmwYkkfg0zlkjzPaJIr6wSZx6YSIpsSJO8IhXe57ERyzRqmUCzgERS3VITSKT9\nPbq0KmwrwwYmAiOSLo++BuGJm76EEB51rfjiUdjxGjYwGQCT1H2Dm5KAE9K8fhwrUs/KXMSN\nTIRfJOAEo87hEymGR11ZZ0JavQe8Ipl6BjYlOUUyFLQWV4/iNjRuZCKcItlaj5qSYBPS1E7s\nWPmp6MgerS7SFc1BtvlFJ0wGl0hRPOpY+0oT0p1F6n4TRCuHTyRHNItwmZAiNzVwaDbEdyg4\nWh5ApM/wt+vBd84eRT5q2LEbZC3ytRtikmfuDORRtwCWmpBCx2ZD0iLvc9tYkWoT0vz+6xXB\ndUIK0NgykWOzIWiRv9EIkxwiBfKoG9fXYkM3NnRwJpotQiy154p0R48o0mhaLcK02G+SY4sU\nSaROIWQ8ik30+PTUW4Q6+RkoUmiPKNIb0ePTU2sR8ADVbZJZpFAedWI5j+IHqKfcJGRjp4n0\nsVfYsOs+oEgBKDUJ+3qeobBU+U1eU4rlUZcw1vNogQjVFJqEbqlzStrEI4r0RvwI1eRvx4E3\n1DklGUV6X9ht2G+fLOjRCiFqyTWpRzN9U5JVpBt4RJFiULkRoHM9miw2kd4mpEC91iGUFT1a\nIkYt9pc+ffVocthejo3nUYdYHPeATGSFGLVkF0Pd69FlMU5I4TzqwJIT0hpBKrGdjnkr0uUw\nifQ6Ie3YZU+sOSGtEaSS551I1/Y5piSLSCE96n8aGqzBBdaIUodlJ+KsSJvFtEVKAT0a8PJc\ntBbnWSNKHR/P+t0bZzbJPCHt2F8HFp2QVglTxbjX/keKdFOPVmnyImHqeCyBhrTMapJepKAe\ndV/ZxWtynlXiVDFuyBlFMmyRgn5mATikZT1aJ1ANAz9J0GaSbULasq8OLLuwWyhQDQM/AG2Q\nSGloo6ax7oS0UKQqho06Sz2KueVTpKAeQaNaeEJaKFIlowaeZUpSb5HCetRZpKCNzrFQqFrC\nntupJ6SQ53V4Vp6QVgpVz5BDh55T0ueEpK9kPVaekJaK1ULQuxuEir+/ehu3l4CRLT0hLRWr\nje4qqct/00OQ7/3F27i91FOkuK3OsFSwRjqv8IwiSeJ6E+kOnbT4hLRWsHa6qqQs+zl53aX4\nExKOxT1aLFoHHVVyiPRSDeztbqLIfQSLjSItQzeVdOVmRkwpshuJtLpHq4Xro9dmSVVqNnE+\nshTeIxgUaTG6qKQps5j26lL6mJO2Z3mPlovXTw+VFEVWDxeOD4b8jIYToOgo0orM/PjiRsrD\ntLSASPToneUChgDfLGnvnqul+Pz+o/AeoaBI6zLnS15k6d4+B5IeLcR6EcOAqiQsSyxcSkuI\nBAkvU0jwZmdYL2Igw78JU3W8t4BHvUSK3uwMC4aMBLZZwosU/6QBxBYT0oohgwGpJCmFHuXY\nYkJaMmY0EJXuKRIgwD0mpCVjxoNY4QkOtrXFxe+cLiLFb3aGJYPugVulW4rkZ5MJac2g++BV\nqZWdHuXYZEJaNOpO+FS6o0juEHeZkBaNuhuezVLrNjptWSt0TYf18ArNzrBo2B2xq1TPuKVI\nXnZZ2K0bd0+sKlWz0aMM+0xIy8bdF6NKtVxakdboGPj5zBrNzrBs4J0xbZYqWTadkHxRbjQh\nrRt4fwwqlXPsOSE52WhCWjjyAahVKqbfdELysdOEtHDkQ9Cu8EqpN52Q0Cu7RZqdY+HQB6FS\nqZBWbeMi3YJ+AXuRZudYOPRh6L8YTPjnYuI79MpeHi0d+zjkKmUT7johuaBIt0S6WfKLtJJH\njkA382jt4Mei+W6w1p/qBSzTKV1F+tde+ASW6bNO6I4SBIm9Iq3kkQOBR2kpk+7QaXXQKl1S\naCekW3SJ4PnmS/o5JBQMt+i1BkqVtG+X2HhCQt4of/nTf1++/GctfzwL9VpHdC+7NlKn6q+t\nspfqEWusuXzXvy1l0krd1hOgSh6R1pqQzAg3kj/SH91DQXGHbpMBUylVfmsWe4sOkU1IL78P\nHJYx6Q79JkV3Y105dSr+0ixzsQ4xBtuekP759vf3Hz9/m/TNVsVwluq3/kCmpVT4WVDgYv1h\ni1YwIX1JD758+5r+MtUxnLU6bgAIlVL2R0Fp9+gP0Q7p589/vv/57bdQfw8Iyc8dOk6JVqXa\nuwH2npBsiHdID/73V/rRLxYcd+g5Ndo3IZVfOtpbJNjKrlrQ1y+magazVs8Nw6lSOv1fWMpq\nvWEKVzch/eL7Enc4LNZ141C+N/aY+iYiWVB7xBlpeRybpfT0r7iAW3SGWqT/fV/i5tU79J0d\n8wrPJNJyfWEIWD8hLcIWjeiIVaX0coMJiSJ9skUjumJTySDSHbpiW482aUVf1Cq9WrT9hGRA\ne/S9Dps0ozPqj7dLepEW7Al1yPtOSLs0oz+maUmRfsWeQIi0YLOz7NKOAbjvdwAWviYbT0jb\ntGMI/VRackLSsrNH+zRkDL1UWnNCUgZNkcgnfVS6g0hbe7RRS4ahvguvnXxNj5RQJHIGPS3d\noRf29minpgwFqtKiExJXdk9s1JTBAFVatBN0K1xvAcHZqS2jQam06ISkgyKRMpjbHe7QB7t7\ntFdjJmC4C0/wpzVQxL3/E8hWjZmDV6Vlu8Ap0rLtzrJXaybhUmnZCUnB/hPSZq2ZhmOzdIce\n2H9C2q0589BOLO/pF56QxJHfYELarTkzsam0cAe4RFq43Vl2a89ULG+kvUEH3GFC2q49s9Fv\nlvbvgTtMSPs1aDpqM5ZVSRj3LSak/RoUAINKS3aD8K1W9qwrsV+LIqAXY02VJFAk4oAqvXET\nj3ZsUhD067XFVOLK7pkNmxSHvTdLolDv4tGWbQrE7Vd4FIlguLdKt/Foz0bFwqLSCt0iifEW\nr8U+2LNVwTB4sYBKggjvMyFt2qpwGOaYBVRqcSOPdm1WQG6oEkUiPdhss9QM7U4ebduumGy1\nWaJIz+zarqhspVKdW3m0b8PCchuVKBLpi0mleB3ViOheHm3csshYvAinEkV6Zt+WBWcHlWrc\nzKOdmxadrVXKB7pM+Ho2blp81t4sVQO524S0ddsWwKJFEJX0Hm092HZu2xIsrFKF201Iezdu\nDWxHeKE77n4T0t6NW4YVp6Va9febkDZv3Ux+fvupSL2eSpXKbzghbd66qaRvuuTLqVTkhhPS\n7s2byR9flBlsKsXrwTtOSLs3byZ//rq2/3758l2RxWTFJJWKtd7So+3bN5Hv6fsf6eu/ukym\nGWaKShTpwO7tm8iPlFTT0TvLqJTnnh7t38BpfP+SvhqzLr1ZokgEyI+v6Y+vf5izL7BZKlR2\nU49u0MIZ/Pctffnn5S/PxQ2vEkU6sH8LZ/Djzz9ffp82aF6SvWBUaW6P3tWjOzRxGj+S8sju\njM2KqSpRJALnv/S3u4y4KiluX7jDILtDG6fx75+AQqKqlKvhxqPpxk1fhnU2SzceTTdu+kLY\npBiu0p0H053bvhLhVOLK7sid274WwY7wMuXeeizduvGrEXyzdOuxdOvGr0e4Fd5zLSMqCcu9\nW78gUVS6FHjzkXTz5q9IDJUo0pGbN39NrCr17Oy7D6S7t39RjFIMPg6/E3dv/7pMVilVf70f\nt78ACzN1hUeRjtz+AiyN0YkBZ3i3g1dgbYKoxGHEK7A6k1RKxV/uCS/B+piP8FyfKVH4+a7w\nGmzB3BUeBxGvwTZMVIlj6IUXYSOGqsSV3QlehI0wq6TPl7I/3hheha14VcLghWMccAj9hldh\nMx7Ti+lbaa0VGvNtBi/DfjxUsmRTZEqZn24NL8OO/FKi8y2t6fLDzeF12I6HDWnQGy04ft7g\nhdiQh0XWGxd02Th+3uCF2JSUrJOSSMF0+B/hldgZ+910zYwU6QSvBMkicpCj5wNeClJAvsAj\nvBSkQmVpaLyDYl94LUiNkkoU6QSvBanTmJXIK7wYpEVBJQ6dZ3g1SJvLZim9cOgc4dUgIo4q\n2W6L3RleDiLkNCtx5Bzg5SBinld4HDhHeD2IhjeVjG/T2BheD6Lj7V0as8OIBi8I0WJ8B+7e\n8IIQPZyQLvCKEAKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIR\nAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKA\nIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIR\nAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKA\nIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIR\nAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKA\nIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIR\nAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKA\nIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIR\nAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKA\nIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQKAIhECgCIRAoAiEQLg/63gXVFv\n8H15AAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "persp(x, y, fa, theta = 30, phi = 20)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 415,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2d14IbtxJEYcm+kmVZ+/9/e61dkjsBoUMh13mQlhzEBooN9KTw\nRghxE3o3gJAVoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIE\nAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQA\noJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAA\nFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKA\nQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQ\nSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAK\niRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAh\nEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgk\nQgBQSIQAoJAIAUAhEQKAQiIEAIVECAAKiRAAFBIhACgkQgBQSIQAoJAIAUAhEQKAQiIEAIVE\nCAAKiRAAFBIhACgkQgBQSN0JHIMF4CD25j8dUUrzwyHsTHgfAkppdjiAnQmPIaCU5obD15fw\n9hoDSmlmOHhdCa9/3v+glqaFI9eTcPj38Q0HZE44bh0Jp/+eX3JIZoSj1pGokCilKeGY9SNc\n/j8c4bDMBkesG+H2x/EgtTQXHK5ehMhf5wQcm4ngYHUiJP4+peHoTAOHqhMSIVFK88CB6kNI\nfrgm5AhNAYepCyHz6ZaWWpoAjlEPQvZjJD2HaXQ4Qh24nYEVZOFAjQ3HpwMGIVFKg8PRac/N\n5sJBoJQGhmPTnIjJpaPAuMOwcGBaE70gSJGdIzYkHJbGRA2uGgVKaUQ4KI3xC4lSGhEOSVvi\n9laPAqU0GhyQpqQu9DaURC0NBUejJcnLvG2lcfDGgWPRkMxV3sYCOXyjwJFoCFxIlNIwcBza\nkbG1Yxi4WRoCDkIzsncd+UrmKHaHQ9CKrKW9w0Ap9YYD0IjCzXv+8jmSXaH5G1FbSJRSX2j8\nNhTsjBkGxh36Qcs3oXwzOaoiDmgfaPcWlK2MGwdKqQu0egMkz2RAVsdBbQ9t3oDGQqKUOkCL\n10diY/Q4MO7QGJq7OrJnBFWol2PbEBq7NjILVxkHSqkdNHVlpI/aqlQ7x7cRNHRlxE/aqlU/\nR7gJNHNdxPatNxCMO7SANq6K3LxVB4JSqg4tXBPNgx/rteK9eA50XWjfimiMW30gKKWq0LoV\nGUpIlFJVaNt66B5EXKsVp0qopVrQsNXQmbbVQFBKdaBZa6G1bLORoJRqQKNWQv847xqtSFTF\nUYdDk1ZiZCFRSnho0Dro7dp4JBh3wEJrVsHyegl8K0o1cvBx0JY1sFi1x0hQSjBoyRrMIiRK\nCQbtWAHj647ArZBWyymAgFbEY33ZEbYVioqpJT80IRyrSXsOBaXkhQZEY7Zo36GglHzQfGgm\nFRKl5IPGA2M3aP+hoJTs0HRYHPYcYSgYd7BCu0HxmHOQoaCUTNBqSHzWHGUsKCUDtBmSNYRE\nKRmgxYA4jTnSWFBKSmgvHF5bjjUWjDuooLFguE053FhQSnJoKhR+Sw44FpSSFBoKxZJCopSk\n0EwgAIYcdCwoJQk0EgaIHUcdDMYdytBCEDBmHHgwKKUCtA8CkBWHHgxKKQutg2AHIVFKWWgb\nACgjDj8YlFISWsYPzIYTDAbjDgloFjc4E84xGJRSDBrFC9KCk4wGpXSHJvGyoZAopTs0iBOo\nAScaDUrpDM3hA2u/qUaDcYcjtIULsPlmGw1K6QUt4QFtvflGg1J6QDt4oJAopQe0ggO48eYc\nDW6W3mYdujGoYLtZh4NS2t4AdmqYbt7h2F1Km3ffQRXLzTwce0tp6867oJBu7Cyljbvuo47h\nZh+OfeMOu/bbSyW7LTAcm0ppz167qWW2JYZjSynt2Gc/1ay2yHBsKKX9eoygntVWGY/tpLRb\nfyFUNNo647FZ3GGrzoKoabOlxmMnKW3UVRRVTbbYeOwjpW06CqOuxZYbj12ktEk3gVBISvaQ\n0hadRFLZYEuOxw5xh/V7iKW6vRYdkOWltHr/wNQ317IDsriU1u4dmgbWWnhAlpbSyn3DQyH5\nWFhK6/asAi2MtfiALBt3WLRbVWhiq/UHZE0pLdmpOrQx1Q4DsqKUFuxSJRpZao8BWU9Ky3Wo\nGq0stcmIrCalxbpTj2aG2mZE1oo7rNSXmrSz004jspCU1ulJVRqaaa8RWUZKq/SjLi2ttNuI\nLCKlNXpRGwqpJktIaYU+VKepkXYckQXiDtN3oAFtbbTpiMwupcmb34LWJtp1SOaW0tSNb0Jz\nC+07JDNLaeKmN4JCasi8Upq24a3ooKN5ZxOAWeMOc7a6HX380d6jMqWUZmxzQ3qt6zYflgml\nNF+LW9J8mfWqbcKpBGW6/s/W3qb8Nk7TNXtI/L0jk0lprtY25rFfaTakIfNpQ6aKO0zU1OY8\n9yutpHStZKZ5VIl5TDBNQ9sTjn81GNFIDRydaaQ0STM7cN2vVB7RePGzTKOazGGDKRrZg8h+\npeaIJovmAM0hpQma2IcQ+1jNWpmCOUJvM8QdRm9fL252eSipjr2ypQ4/h9owuBnGbl030hv/\nGuNZKpKD9M7QUhq5bf2Ib/yf/6NtVi5v6CnUkIHtMG7LOpIwSqgjJVFhHKcPhpXSqO3qSjmE\nBhxPYUkcqAeDxh2GbFRnRCE01HCKixlz/nRhRFMM2KTe5ENohz8BtlOVwbF6MZ6UhmtQdwoW\nQV6gHZTXHnGwPhlNSoM1pz9Fg5yU5DHfM7NGSRyuT8baLI3UliEQxKJPH6wGPGTk8s7KQFIa\npyVjILHH5TI8iwmDUY2BA3ZmGCmN0o5BkJkjOKV0z6CIgXPEzgwipTFaMQoKz3D+qFqdxRIr\nzspyyC4MIaUR2jAMjgCaeDBTCQUFhMv/5MkAcYfuDRgJ165fNJa5RPJLVzlod3pLiWPyic4W\n99ThQTpLvgb5UY5ahL5S4pC8UIcM7t88b1o6cj2aK1HsrzhsMXpKiSPyRG+JSI7YV0VHJWnE\nbU8mKW0/+kmJA/LAdDZIU4xQSfFUEe8nKW1DesUdOB4PTIaIDFpui2RviEqyu9NFShyOD8xX\n+miKMi/vpOIiH3SQEkfjHbsZdL7CtrxLnXqSFLYpzaXEwfiN6yLuyFdYpySOQJADvd4jsjM+\nIyiv+FErKVcWhy9DtxeJbIvTCFElOZ3SZyLPSdztaSclDgTABtpYgMYpyS8cIjFaSYnjgDCB\nWkkip1QopFwN+U2fd/JsSLWHmHiuUH3kFwuOZGghJY4C6D1i9ZwSKNXW1I87bD8IAXXbaVxJ\nHqck9EgcRBG1329VtfTxCeK9iKQo8bcfh7KVBkW7dh9FGVWltPkQfHqjWhulbMGCGDmVBKSi\nlDYfgcOyDhAEj98tkV3eJdzY4WsqCUk1Ke09AKfVk9fGj1ViREtKp2R6SNHeA6mgx7viVue6\nqHMZ4+jcrmLKKql8iSqVBIRCgnNf0zmscRPlSUzZ0Tsd8z6si+Sptbbb2Pqx7bzZHNHYwOmJ\nDbnM4f5XvHhRG0gGCglOYu77Crsa9NMxCZyS9+7ajQdTCoMNcJJT31VYPHhQjrAXr68QNIsP\nBi9Sz0Tbmj499Q0mKa4OPxxTat0mespQ+UKIjUdTSMWfml1Nn4swqG0iC9Ed1RJ78p1TSYoL\nIbaFQkKTdyHahbR8cZh9xp1PSeXl4/bUXPtuavjSWkxlFu8JWHGtkktgNx1QCVXXvnvaPSQ/\nZL8UFFbO7FFSOkEqdEJe1N1Dbml3yZ5GbBi1Q6uhJMxJ5aUJbxQSGNmWRmoZvUPDK6nsYUnl\noOaGVpeGu10XizZVEuJM2OpUdkg7Gl1+3kh0EtSStXBqVlslhVSkto42NLomxmbf/DuUpA6D\n+0+ELU/9k2zb2VwXY3Oc2mmmpPJaj1R3SNuZXDvrHBfANVKSN3q/A/Ud0m4WN5x8ta/8aiqp\ncN5os2Et0EBHu1ncICR7MMJzWLo7swU79iIc/q1cyS7YlkHmydpASclkew1sjiY62sve1mWQ\n/jlbsiR+JXkijrtAIaGxnDtNp/GcrhUdFijJdWZ3E9roaCdzu7YTuqi5OBFkn2TNvgWFvSS6\nnh3w7cuLZ0FthXsC6KXbazYa2yStdLSRsb3b8uJZUFvpZiUJYrr7DG4SCgmNOYj9me6QUGG2\nOkoSPE9lo8FN0kxH29gaEt4Kkb9cVZcPlwIkVFKOcPm/QVWLAwpvmQbG5ZLip5DFvnGT4U3Q\nUEe7WBoVJzbFUp1Kuh3W7NY2Gd8oQrcNrmxpfFHmU+JgsJlPSdfDqvjhHuMbp6VD2sPQ0B9t\nyzOdgErSvTRmkwGO0tQhbWFn127fn16SRdzE6JbJV/eitNXRDmZ2uoN7+n5KMj1ZcoMhjmCL\nsCLqWxa4kLr5JNs55Q2GOAKFhKbcQ30QrouSJM9ZtVW9IK11tL6RBR1sIiSvkjwvfVl+kG+I\nT7TVqHFJJP3T2SC/yPLUkvM4JfVSSUfa62h1E4u6ZxBSWyVJLqzj4u6TkPi7VZ0LUk1IDZVU\netCJ++BydHBIi1tY1juTkFopKYh/XqmkBz0c0toGFnbOJqQKFzjck1xDDLkS8seWHugTXXS0\ntH2lfTMKqb6SIpE6m5KMgcYpCckP7apdC3HX2glJpST9s4uSwQph1UvQxyGtbN7qQqqqpOR5\nI4OSdhJSJ4e0sHnlPTMLqZ6SrFcx5JzYukN9oJeO1rWuomMqG4TMJ1RlhctilSJzhBmnwzs6\nqJrXQdMvh5BqKKn4mC2dklx7usnop6NVjevRhi4xWklBsqFRKKnHycluUEhoRhaSaJODUlK3\nPUMPOupoUdvawwf6xEiXdNgcgZS0k5Dcq25g5Wug7JTTfeGUpJn12bOvqVRLjvaTvn1d0bTa\nPnnXgSAlaS4Hyh5Ou7UVR/sFhQRG3SX3hgqhJOXlQNnD6Y3WgsP9pLPzXdCyVYUUT+tXUu5M\nqq4tn0cgznMWejvf9Sxb5xxpIa1TvKkzsC4lWbQ5Lb11tJ5hweFoYVqfemWBA83h3YQEiKWi\nWzA5lv4AhORRUvaCILuSYJKfge4OaTW7mrqDEJJZSaXHTXp8kqG8OenvkFazaz8hGbdJ5Vwm\nJWWu11tsxH8zgI4WM6utNxghWZQkevqxXkkhuUUqFzchQ0T5lzKrsTMgIVWLuyuV9FTnNkoa\nwSEtZVVrX1BC0jZA/EQSjZLKl+utNOS/GcIhrWRVc1cUGfNJ1UISK0lcrySqvtCYv42io5WM\n2l9IuibkNjLKkp9HL4LbwSXFtojtW7GSUe09wQlJXxRSSTe/tYFLGkVH69jU0RGgkBRlFUIC\nypLjEcD1XRKFBMbTD6SQxIWF2x++khPnkyxFTcQwOlrFpK5uQIUkLC0RH7CWnDoBu7iQYv2g\nkDwMJCR9Gr+SQvLo0krS9Lg2C1u0Ru6+Qkqt33LbLdWSbzIGckhrWNTZCbCQ9Bspn5LyZ2AX\ndkkjOaR1DVolv/T8qfa4owXF9yct65KG0tGyBq1TgDokJz1sbkLZt63qkgb7gZjenkMKKZ/Q\nt7Q/eSCJbxtsxoEYrVez2xPRgwpCyoaqYUULFTnanIMwWqcmNyekAzWElEnqngLPIJ20oNHm\nHILh+jS3OTHtD6L765S15c/5AMpWVNBr1oUPapSs+roFkwsJ0vwAC8cJ0mo9VSKp7k1kjQNc\n4aWgcP4Iq0D1dRMopI9CZMOsqk7tB2Dns4ThdfjY3xUTIocB9Si/b8HcQoLpSFiWrj51dE4R\nFMzPR5mScGOfkki8WregBnRIcwsJ0/hnKeWh1danPl+k2avpHodXR0klTeTVbhXUiA5paiGB\n2p4PJ7sqFK6xtBXkw3bRkuBCkmhAVr5WTUPqaGYhoZp+XNIr9x6KomUFKHdqmfbKlGS0oXDq\nKxysXEw291cdCumyIcbWGDKfzFUc04iXVYkNm0VK2cfmFarMJfSps/NMnldIsJZfJjsmrBbL\nAgoMChQiS/fxjVJKQfS26ESNxXSO5SKFZAMYchKXbKkzFQs2V3Lfdwl/o5P9lEvpc55XcEif\ndVh+y3pP5N71W6mnI/nMVJZv+IEWHpa9XimjK+FZNHlYRpomkS6pJeyPHJLe9RsBNjuxecDV\nGk7/idOrjoquu8ttBstLquR51lQGQZpMwqiWxtVR/wbYqCyk+LyyVhqUuXMp00ubeD9SnxR+\n+O0+qys7pM9apfvB/vO4ewNMIFst9z4uIWky2+IdZSUVlmbJ9ZR8F6lLI0godIT9p3H/FhiA\nNjq5Ibrv6h1VKENj6gPvB4tutBQqiF3lo3/dujiNLN2rBbbfl0b0b4EebJvlP3P2esXvnShU\nVd7I5PMIZuRZeOYlLsghfbYja8IBZvEATdACbrJ4VnkqVmeVBA+iKfL+Q7DK/CxBfOegNZEi\nXWEPJy6lGgM0QUsrh3Q76hGSNq8gdCCu6qKkYikfVy64TgJgHVIp6QiTeIQ26GjnkN4Pi/a6\ngkoQShKWcfQpBx5FiHSguIjPnkiRLp90hEk8QhtUoBtc/n0GVB0MuW17/EfKyx0KTx8jvTQ0\nl4gOKcoQjVAAb69i2+GJ2hmy22Mdkfv+ijsfaVV0SHGGaISCDkKyCuFWh1NJGiFF9KKQUisd\nLeSQBmmFGHxz5Rv45kKyhjqe1Vml5F3Y7eiQBmmFlAqtlW7g3Ss7eV33jLq8ab2IpGTV0T2y\nUWIhhzRKM2T001E+kCWuw6EktUP6+NsgJZGQwp1TGomgVnJIozRDRI22YgZTnNGsJJuO3gxS\nyvz2yzzOeUGaSU4hdaK3kIz1G3c6p/SeOaeTUqKm0kU6hQJi+ltKR8O0Q0CVpqpG09aCkPkk\nzW12SPHv0lKKZlfcXl5IdBQUhdSHOi3VzVDTo0LMNR7qNdf2+FYspbv3Up5GE6ZSPYJrAh2N\n05ASlRqqHU19M+5zWJ0f8NstlNI5UKG+K1ZnT/8TuAaav8M0pEB3HWFOBlmK0Cwpc1NOIKVT\nUE5csjrVZ0rv8/HGmb7jtCTPMEIyOBRPrcrk2aRFKb0mt1n8BsmXF3kzOKSBWpKlVjMtc1TX\nlngQS1eCeDtRSleQUkjP6joO6bPuXM4ZHNJITclQrZWmkfc/qVopJGmVgkS3FVv8pKqhZEWy\nWErT/U8Dzd6BmpKmXiONI+/etBj2ZhKViMqLLaoKQqqvo0cjdKWONHlHakuKim00r0W8FRgK\n8Fy0fU4XkjuTuKDgOsoEFzVBzpEm70htSTGgkPxzy7LtwV26Vt5MHQSF2qHJkl61NIdDGqsx\ncUbUEWD3bSoA8wQQefhCcz03Krh4dpeTOKSxGhOlZgs9i3rnGRBZ5YpqlfNYHQksxSTcEZhL\nkqI7HGvqjtWaCFUb6Nsde3+kjeEDd/xCEb5IhwVuqsI5pEMt0zikwVpzp277vGEmZ/nG/N4H\nkx/CdorE6RTixZ+8zM+yAYU0YbDm3BhaSOUToL7jycOuxynLwxeKcj9Wi0I5QZzXYDN3sOZc\nqdy8ylHsims/Y4T6nhIUCfxMWJbTijoarj1narfOLaT8PHSunAoqO3mWck3JpIjlU6TQtJwo\npNYMoyPbnte+mZdlF8WIJaX6I4EpycTkBAnvDTdvh2vQgeptw2yPfYPt0uHt9gdrfc6Idsl3\nnuREIbVmEiEZN1Cg3EGcNF+q/dYJ6S/GQ05r6mjAFr2o3zTUTLGF9DC536QPJSmWCotfZJNq\nwuQUEoIGLYP95PrO7PiWVcCkxqf86EZKcYu501s3ZcAmfdCiYcCpEknh+kVXiQN241/q8Q3O\nUu+JneebBpy1AzbpnSbtQv7m3gPAnoZoM+OeEayPX2gd0qUiQ8kjTtoR2/SbyRxSJJHhd9qU\n+TnxLWKPp0LFL0qpzQ9rGHHSjtimtwkd0i2Vsgf2zOH2h6yOXEJU/KKY2vSwhiHn7JCNatQq\n9G7aeq3BLb1xVeh4Gs8tqTi65vrBeFSlLHrIObtzo/BhqRD9s2beiycz/L6nk4pu6nM5pOe3\nqvPBQ07ZIVvVqk3iMKxhnWPogynvbXOVzuzY9qQl5XZInzVIE484ZcdsVUOHZAojSNI6hOQK\n96WlhAkfXCWFEtLbXUtT6WjEZjVzSO//wIJd58SWTuizJlZK8qSaYq+JFI9zkBYs2WUOOGN/\nM16zmrVIHDdWbgOU0eNrRYAZH+tSlXj2y4RCUZVLLj72ZLwJ+8Fw7WqtI0GVhgCcsRfKnJn9\n0G2XgyhVkjSrKamryyQebsI+GK1d7dojjxvrA3DmXuheZpbfcYiTKkpVpbw5Knn0M30ma7QJ\n+2S0dnVwSKVqPQG4qjlL89hWbKWkyt1U6sdotPn6YrCGdXFI7x8hYWNBaYWMiqzlvR0koI5I\n+cqg0BKF5KBha25VpU9xWMo2Suk9UCHMKok3ogKBvpSnHFLH5I49tmWolvXUUXoCWyeMOpsi\nkCguv+IVqEa7vP9hvfR7qOl6YqSWtWyLYpisE8Yx0Tz3GNzSqQIYNR3SeddmuTJwpNl6YaSm\ndReS9wTMJYdhD5FvSiqtotguSRNZ9BfxjTRbLwzUtP46eovNX88KxphPkFs144EBDEsDMnky\nWoL8prVjnLY1bUmmsuuhyiu0TEWYd7hoAhh1dZRYT8uv/R5nst4Zpm1tG5JdU5wPuhZozrUS\n6h0uuaJcperIrAMizgpTZytGadw4Oroc9jgkVX75rk1T6ilUZmuCs/7P6rOB79sxCsnEUEKy\nPUwnkUMcXSu3RV3mJSnuUiiVVY6Phsyp6XwEsFltySCta9wMRXDZt7J7/0JURG4/5Ni23QJl\ntibYUl6uCwrn7xM5knUMMlUTjNG64XT0OeX8QhKVofIVHtehCpOZk8akcvs5SFwh/vjWH/Rp\nyiDNs18vbapNlio6nqbCFR4w1xZxafnG4LZdscLT3iaZPvYthWSkoZQ0+3+IjgSbsnK5lsVm\nIqnvCcsZRRgD9rGcwhvPh2Gc9rVTkmLK6BuVmruWTNfGKBIXkrrOO9/2XaLrUMsBnmsxrseb\ntWag9jVTkqYelJAg23zkFaiAd0+o7jHSxCcOn5TZ+zFUAw0OwFKLKrGySaa1jcZF4mICjn2X\n9i49XQVHNZljPq0Zq4HDCUnpAgpOwJDHk1gQW9OVKnvCia0ticr0brgTo7VQ99ACYxXKtLCl\noGn/dE0rnsaSdIIf/MuDF4zDYx3VR8WjTdM7w7WwutEMv/+wq6ed4bJHYugVqNEf/NtjS7Sl\n2tqSzN327IiJ8VpY22gm/wLzAvcEloUd9ArU5w9+WjyWUiHZYPnrM2ILNTfQWEq3pHVf55NM\nYmwPoi2vpPKNTw+HNOYsvTBkE8fTkTCjIY010jD8HbTuXMgC6jNoE0O1ltkjB6jlVFDrM9Ee\nS4TQmZYOKcWobawWqXHMsKKjNOykXBMe8zC+4XU07CQ9Mm4b65w+8P1So5ZT6iBGKjHiEWLD\nC2ncOXpg4EZWUZJzhuWdkrzwcPnf2Bzltw2TunMhC2jByI2sEHPweoBsCXpV+JsTt1Idh8TQ\nd4axWwl3SoAZBtmXfMx/hI7eIlJaamE3+BR9MkYrM7fxY5uImGKIR/t8JIdN+BbvcKFDyjJI\nMzNPxHj9g6gGk9i9LzFkUMQ56JA6MEoz06fWkUpCTTHt7ilRimITWExZ+x0udEh5hmln+ioV\nYMyh1lpKXfgzPfK2OMutO3RIKMZp5/vV8plFE0BPtdZS+sI/M8Au4nuWNZSOtnFIQzU0LSWQ\nU4LOMfu92pf0gOcdfCYERjDMSd25kAW0YqiGZmaB4bxLrHjoSRNzqOyaHngB6lg62schDdbS\nzFQHKEmz8FEvuHwxu3xu1YTH/ljoWwDIBiygGYO1NHPayL280+xJNJsSTYZkBaib6dARDEMT\nvLmQBbRjwKaWnJK1yc98ogLUnssppGK3VaVCu6hsgj8bsIB2DNnUKk4pRP9UtiCS0rbmjKX3\nP0u4TgSDDknAmG0t/TpbWn3a0JQKUE9ehJDi7bJGD/rcQgvIBiygIaO2teCU9M3WBatV5WuC\nGKUKsM8StrTAl9SdC1lAS4ZtbHHLoGz5NTnsRu33slA6uh9yhbOb30ILyAYsoCUDN7Z096fa\na5S/EhzCZMiq2BpVV+y76JDQDN3alJIMjVZNMoOQnP4xWZpXSLpvvUkB2YAFNGXs1hadkjpK\n7fk6W7xKSsW0yAtQnREM6kjE6M0FOSVdQN22ssNOTuQFqMgIRuVswALaMnxzi8/JkfRANcnM\nOx5xNllC5AWoTW6hBWQDFtCYCdoLUJIuDmwONaCvzUGuFh1vQ7JAIQ2I+4a/QkLvDRGHDEJf\nIy0XegGq6R5atXO2v0LJVW935mhw0SkVomCq8l2xb+dC85YO6uQMIQyJPu8vgQlvmWcHgOod\njEka7HJK0q29PHmmfOBFbkFaoMbHKRKnksakE81mF9Mk0/LANC0uRqrTPVGqzRhqEOdXr0i9\nm8BzSstbaMvSSbam1ZsyezNPi4vXRidD3LryfQ5JUIJ+awe9xvaiChGa4iPNURcxz6x8MVOT\ny8u73DpDUH5QJU+Xj7la9Py7rmwCJC1yXaYS00yz8sFUTS7fsBNJoJ1k3p/fUqXGWCPsfZTV\nhZRZYwvFNNWkfDBZmw0xB+2yR5M8Xb5zxxZLCChSl7ZKoEC7x5qF2doscEohdURWASi9+81F\n8hXjLA7plaIgptnm5DvzNVrpAZQdVL8IWusnHEJKSGksHUnPSWfENN+cfJuy0YJnSPpi2SRa\nBSIAABUFSURBVKiZ6Qx9SL8dS0iaCuJimnBKvk3a6vIcC7EvxSWj4kuRcpw6ipQ5lo7UBr+L\nacopOWury07p8ZW2YG2+QsLbYUDBjk1grbS+XGcxzTkjZ222xCkZYtmHJaFwqa9NAFGoed6N\ntLC7ZDxepzcjkzZb6JQ8ITjQGY9zi0BrRuPSdUyH9Jk5KG/BGolZ2/0m2o2bHZI0szYNaslo\nu6BpXIf0WcKsE3LWdv+meJ+49vftkro8qNr1H8ohvadABhhdab25sCV0YtqGv1NY3rkckqQA\nYQWvFiGF9Ka9F30GhzTvfJy24R/kb4fJJMlkK5efyZBPCVvZqRugTGyaFjvraOKWP4if03v/\n0u2QSoVof+KxDuntDXwvui2tN9ephHmn47wtf5FyStoYcSIR5rG/78WgZ314U8y9CRZ2E+to\nXiH9+PvX88/EhSbKaJleL1qPB5/KmrUrHVJdZm36//5b1fz9+hRXUv5zKf3xkH7V50uv3CJJ\nJiAdUl2mbPvPf/4JX79//ePlk+KPebxGs7Nl6o+qTSff0WjD6uUME0Qa5j0Z+5sp2/4thN8i\n+vf4XTrmIKOQFHQdHzQad1q7en4m7Gm9uU4FTDkXn8zZ+D/DH/9cv5Ncku+5B+aWwrSyA+5n\nxH0Tl6hP68t0KWHOufhgysb/t7D7K/y8fe1wSpJUzuv4FKEBY5sxt8rRIZmYsvVfwr/ndd0D\nyU4pGS0XEJIfNJkNzk+aChFf7OOQVCcHRmTG1n8L31OHJE5JMQEz6YwOKdYgW3PiPwiOnwl9\nWl+mSwEzzsQDEzb/Z/j6+79//wxf7oKKOyXIzD0X7xCSL4BYSOV9TQ2FZGPC5n/52B79Ff76\nKxJzkDkl+3YnXP7X5hPkdm7rXPduU0dG5mv/t/Dt44//5PTra4goSe2UVEbAPI/V/bzHbH/s\nm7kuQlKcGBiW6dr/M3z5+P892vDr8elM3Cklt0oVTwhl6nCG2OSrw+Ed0go6mrADf/1e2P34\nTxdffrwld9fRjUJKSXrvAnkeq+95j4VUxs0chWRlzg78CuHb31/Dl+/fw//iKeLLu+juwWIC\nhJBSpbhXdo8UQVGcpmpIpkv+OafhkTl78PN9n/Tzf3+Ew/V2ZxJOKeKVDCZAPY81ugb1FHhO\no+1dNx1NOg2PzNmDfx+O6M/DFeA34qup27dWhwRZMlkv4RNWrrwZvYeQFtHRrF3437uCvoU/\nc4mETklvgnD4V5NDdAQpJF3v6JAczNqFb+GPP7+EELtQ6EBUSedvHTsk19MgPo8lo4nGAi8J\n0TdvIDJdss86CY9M24dfP75/TV8q9CS2dDo7JcNI6gPn8lg1XEfv/4q01E1H807CAzP34a8/\nBIkSTimcD1s3PJiLy9VnffSuUPCyvCbRy1j2mefgi6k78UOSKO6UTAqKZYH81h/aCBXSpam4\nyztcma7Zp56DT5boRIGMU9I7l1txgmyKJJUc0usL7Ou9qKMXa/SiQCLIbHtke2RyqrPE0ihm\nlWtrltBSB4dkXxQMyBq9KHKfPNGzlcZ1mmILVEpWX0hvcS21d0hL6WiVbpRJOqVCqnI5kWK0\nhR4aJEwnLS95zHvjvDHPPfsiM3CRbghIOSWlBRLJIdt44SkfTND9HMijQ3KySj8kJNYzV6dk\n8y7pXBoTI4Uk25nZN/wQHS0zAVfphwiAU8roJbkjkZcu8kkgh3SqsrmQVtPROh2RIXNKFr+T\nPqiUKerEqaZay8OC6ZBOLNMRIRGnFPva5l3ccWXJOgvskB5JBVc+mIvP5V5m/i3TETGJ80Ci\nR4YUnYU+Nh5Li7gCwVRtpdctpTOvM/3W6YmYhFMSrO8ExkqULeRzgrljF8Z9n1RMdEgX1umJ\nAqlTKuaLpREuEkvlO0MXnlAhMuKRz7zQ7FuoKwqSTikbCjfNYfOM9r2UyRmILDkmjI5Wmn0L\ndUVFVEmFOLBlm29b2T0+WrZp+mqTvg98hes970qTb6W++HhcwpoOOig24ra5ItmUtXFInwfj\nYqJDurFSX7yE03/Xr22acLoG4+OHEQ7p0AZbI4r1LTX3luqMl+f1MlGjKE+zxCOB+TyZgnSt\nQDmkz0acmoFZ2K0195bqjJ+ElCxX0YTXP6oc+a87OKRXwpeYqKMIa/UGQGqy6A0VlLnSO3vt\nagjtkA4tsV6YF6lvram3Vm8QZJySuiSEQzpW3tEhHdrimDPL6mi17kCIScn2Q4wS0vNgZ4f0\nzGKWEmqjNSCLdQfE3QEYYge/k+MuXpM/yLuuQ3rs/UzzZmEdLdcfEFenZAmBK3dJhjC0sSBT\n0msW750Xq0281foDI8T+sxQhzSpIB39gqksM6s3Syjpar0Mwjk4p3L+XlKDKIBGSpKw2Dunx\nyaza5ebdch0C8ikl544A5EhEu5PKIbvbF7al63rTbr0eIXGdVNKFeuVJYE8exoQhpVKikHYm\nddGQVhmQp7EetyeOYkxpczlEm6XFdbRil7CYn1cVsh8LqYtJUpO3uUN6HCgVFjKflmDBLqFJ\nOaW86ZS7CcPiD/SACFAOTfdWnHQr9gmNySkpZ7lpF5W60VcEVkdveSlRSOQ3qWc6pK0XPSKe\nafISTTfDq9MKcyQ3S+vraM1OVSDhlJSbfs/TWJNZddFBQ1JNDskNtUvOuSU7VQPhg4aeqZUH\nXPFx041ClYQk8NtrTrk1e1WFlFMS/AYXjxhXdpdG9HdIh8Ykc6455dbsVR3kTkkb3nIW+Si2\nqkNSZQiZ9eaiM27RblUi9cN/i0znSxF8Y0hS94HD2hy3C+ftVU/Bot2qhih8pzs7KcggGyfF\n7U91HdIjS/RXZ9UJt2q/qpHcjWiCZ/rnGkt9lswt1XdIH5kChUSSpO5VDbc/coUkPwjS55PU\neHK3dZpgH4k3Mst2rCbvStIG5q6JVKd/dFIruaVmOrIsYidl2Y5VJemUEt/HC4n8VU4rTJLV\nEoWEZ9mOVeZ9+W89J3RJiInZ3b9JZaKOKrBuz2qTcj6as6KJc7yWMqNNQTx82ZIhmW/d6bZu\nz6qTcEr65xgghJT0PoDJTIckYOGu1QcQ3hVtqlxrv5tbokOqwcJda8HdKSXO2KZLgESrC1G6\n42HqqAor960FV6dkuQKgQYqDXLUtxC3slp5sK/etDWenpIlpPxP6n7AlOgWsvkJcXrYs39Jz\nbenO1eG2Kzo4JYNzKpzdFRUkrSqypwMVfc/3D6yoKVi6c5WIPQclHskWeYpiSkQw4plS/chu\ns5D+QJU0B2v3rhaxS8ii8Te5M/E8qk4hJGV43q6jb+EnqKg5WLt39Yg7JVeoQfbkEEuCS1KF\nW7JvkL5cPdLiM23x7tUjur4TJTwfTX4ofKtJcE/pfvZEKd+vv3+AipqExbtXk8g6Tv/SoMtJ\nqEh+uENKV+UpupRv9Ym2ev9qInZKaSsLNlU1HNLHJ8gDyaXZVp9oq/evLhEp6a4TjegmEsco\nNKKUIJ0Sfd9SOt/y82z5DlYmtr5z5H7/UrBv0iTIpsy5JaCO1p9ny3ewNnKnJP+dVp3W9Qnp\nLeOWuLBTsH4PqxNZjHljYtFrjpRlKFLGpU+HpGH9HjZA6pQUFz6In0KMENJb1C3RIWnYoIsN\niK3v4gmTHxJJWzikx/HY/SB6VLGWhdigi00QS+l4KYOgyHZCejt3ggs7HTv0sQ1qJZVNXz7T\nA9XR21FKdEg6duhjI+RO6XHYUqahDGVC421LmWq2mGNbdLIV4hOe4rkaUA+o04yz5balXDVb\nzLEtOtkMTdBBpqNoqZfj4oLE6K8ZzFSzxxTbo5ftkL/8XC6kpB7rOKS3N9Plt8la9phie/Sy\nJcL1neSs7ekKB8+ZHu0ov8cL9VNjY4e0SzdbInNKGoeUKKeiQ4rWZ6tlkxm2STfbIpBSaffz\nmeZcTsgeFxckTK9/aqy77lnZpZ+NSQgnk0BSyPuXyXdKKguSJXe/TnOXCbZLP1tTcEqSSwjS\nB0L+uLggUXrfXenbzK9tOtqcrFOSrNBy549UD1rxbnU8d6VvM7+26Wh7Mk7JMTM/C5MOnc8h\nPSoz1rLP9Nqnpx1I3jYuieuVhCRedGFib+XmAOqemH162oW4YgAO6XGVkaAkiI5KdXnOOq/B\nPj3tQ9QpSU5cCj0A8PrwYnr94x02ml0bdbUTt9OooieqyvWBfRJQoTClYDaaXRt1tRvyc0hB\nkOZ+GPkkoKKAYwmoo7362o27U0qmvPxfSlcsEeqQUlVRSHv1tSNyKT2Oqw9jXmAuSi+95m+r\nubVVZ3si9yFB75CSJeId0r0q/aUZK7JVZ7uieRax0V/pH3dsTi548t5eU2uv3vZF5ZQ0BR1z\nqmJ/4nKjVRUy7TW19uptZ6S3zxYupBOHqGvq6FkTdfTBZt3tjUhK3nOshhstLMk/aqKQPtis\nu/25GTwVTfZEtE2P1DJNBerowW797U/RKUEu+jE8UssyFXBngmdnt/6OgO+mP3mIWje2dEgu\ntuvwENzXd4kIgePUUChH/0zlyvJsN6+26/AYKG76Uy78zgnlUqJD8rFfjwch5ZQKV7KphVHn\n7r9Spv2m1X49HoXII7qy52UeacTFZyrylCvKs+Gs2rDLwyB+/azhzNDZjRWz0SF52bDLA5EL\nOsgyCBPCyhXl2XFS7djngUis76JJ3+w6ypUbT26qw1Xc5OzY56FQvTPTFYMD3kebz7PlnNqy\n02MRcUppKRmLfBbsLFeWZ8s5tWWn+/Pr1+GDOOggvVgh4yw810pI67AUNz179ro7P8M/x48y\nKUFOrnrKleXZc0rt2evu/Ap/nr+4r+9S14mXR6wUobNeKyHLtOmM2rTb3bkKSeCUxOeSygls\nF0vI8mw6ozbtdnd+C+nH1++nr25pbO8VE13IcLjwQVissIpdJ9Su/e5N+Prtj/DHt1+n72Lr\nu+jFrICTQtbbaEt5dp1Qu/a7Mz//COHrj9vXsYvCiw8ZuWaRtsF0G22pim3n07Yd78mPr/8t\n2v6NHopd6RC/mDV3BYQQw220pSq2nU/bdrwbv77/t6b7/i2pg5hiog8ZSVzfqmqM9sXlpSr2\nnU779rwXP758+f729l1x0jTtONznhIJBSvCL9pZg35735XtiafdOwikJU2p4XzQa8liOrc2+\nPe/L9/AzczTulARjZdME7NkOG8+mjbvelbyQ4kGHxJVylnNN1+SaCIXx2OJs3PW+fPsnfzwa\ndKj3ej7IO9J3nkw7931w4k8ayl6/7dntAJ6SsvNk2rnvwxNd38Vv2oun1xXv3YRtPZe27vzw\nKNd37vCb7x3pW8+lrTs/AfL1nfYRxfGhL5RBh5Ri797PQGJ95z4XmzrHa9bK3lNp795PQXx9\nF33PJeR8kPEhKZvPpM27PweJJ4Wfv418lS9UUV85y/YzafPuz4JgfacMgRtOSFFHGXbv/ywU\n13fh7f5Xrjx1fRRSlt37Pw9xp6S+7y9V2j1FZA/mKW9xtjfAPCScUuwsre98UKIUCinH9gaY\nidTryXIvF0+UpK+QOspCC0xFYn0XG0ZMqDqyB/MVuCq0wFxk13exA/FS9BXSIeWhCWYjs74T\nF6GvkA6pAE0wH/L1XeoFgNoKC3swTiLaYEoU67todkON6AKXgzaYkqRTkmyV9GNOHRWhEeYk\n+c7MlLdKf5bU5ji6CTTCrCQVAzkZq8jBKfQbWmFeFE5JemJVWJHi6C7QChOTdkrpYaWO6kAz\nTE3qpFI6xEAh1YFmmJzb2dJ80IE6qgTtMDv3R+yn13fqi1sPxZmO7gPtMD+3Cw9CUkrUUS1o\niNn58Ejh/uX7/9fEhvIdRzeChpif95f6Xb1P1CmF2zflwh1Hd4KWWIH3xV3KKfEcUgtoiTUI\nd590X9/d/yiX6zi6FTTFMkSeWXxxSuF6QFCo4+hW0BQLkb42SHBzXrxE1+GdoCkW5yCleIw8\nn9txdC9oi+UJl/8NWW2Ht4K2WB/7+Vk6JDE0xg68nJLuBC0dkhwaYwtCen1nvuOCU+cIrbEJ\nhvUdhaSA1tiG5PqukN52eDdojn0I6a1SbBpQSBpojp3IbJXuaV2Ht4P22Iv0+k55xwUnzhna\nYzMy67vMp3sxsAYtAg2yHbL1HYWkgwbZEEHQgTpSQovsSHp990pRKADZmiWgRfYk7XpC9NtE\nbvKEJtmUfNCBQtJCk2xLZn1HHamhTTbmdQe66EqHWz5ygDbZmdcd6PenduVy1WvQvNAoe/O6\nA/321C7z7RV7QqPszn2rdHvm0CVD5QbNCa1CXo/EuykoOjs4ZWLQKuQ3H2K6PbUrMj04Y6LQ\nLORJ+HhcK0MNFmgWciTyNH7VVeHbQruQK5HHiB8ONmzITNAuJMZZTIXwA6FhSJqDmKS3V+wL\nDUNyXJZ5nC4paBlSIhEaJ0doGSLhIabezRgXmoZIyQXztoemIQQAhUQIAAqJEAAUEiEAKCRC\nAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQI\nAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgB\nQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEA\nKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQA\nhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACg\nkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAU\nEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBC\nIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBI\nhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJ\nEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCER\nAoBCIgQAhUQIAAqJEAAUEiEAKCRCAFBIhACgkAgBQCERAoBCIgTA/wGNlJy+QImxmwAAAABJ\nRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "persp(x, y, fa, theta = 30, phi = 70)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 416,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2dibbjprZFqUq9pJKbxP//ty91OlsSzW4WsEFrjozUsQ0S3fQG\nJNvpQQhxk2YXgJAdoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQA\noEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBIhACgSIQAoEiEAKBI\nhACgSJFJif2zCOyouLxplBJtWgH2UVTeLPr6mzYFh90Tk3dv0vEp2hQX9kxEPoW59g5tCgo7\nJR5PUwq9Q5viwf6Ixqsitd6hTaFgV8Ti6Eazd2hTFNgLkThLIesd2hQAdkAcrjYoeoc2zYVt\nH4WsBsruoU3TYLMHId8Rlu6hTDNgk4egNPSt3cPQNBq2dgDKY97VPbRpIGzo6dQGu797aNMY\n2MaTqY9yUPfQpu6weafSGt7I7qFNPWHLTqQ9ruHdQ5s6wUadhmRA9+ke2oSH7TkJ2Uju2D20\nCQqbcgrSIdy7e2gTCrbiBORjd0j30CYAbMDxaG5F7VeK85lokwu23WhUw3Vw99AmM2y2sSjH\n6YzuoU0W2GIjUQ/Qad1Dm5SwscZhGJlzu4c2yWE7jcI0JAN0D20SwSYag3UsBukf2tSCrTMC\n+yCM1D+0qQIbpj+e0Reuf2hTHrZJb3zDLmb/0KYLbI6+eMdb4P6hTK+wKXriH2nB+4eh6RO2\nQkcAjbtC/9CmxxodtSiQwbVM/9zdpjvXvSugUbVW/9zYpptWuzew4bRg/9zTpvvVeADAcbRq\n/9zOpltVdgzQAbR0/9zJprvUcxjgkbN+/9zEphtUcSTwIbNJ/+xv0961G0yHsbJT/2xt07YV\nG0+XQbJd/+xq0451mkKn0bFn/2xo02bVmUavdty4f/ayaZ+azKTfgNi9f7axaYtKzKXvSLhD\nB+1g0+rln86vEUCRACxu08JFj8BH1/f80Yh+hw7IujatWeogPPu8XzPesIOWtGm5Asfh0Nnc\nbQCzmk0rlTUU517m/ncHFrJpkWJGI9O9nVqSHbSGTAsUMR75juWtDf2IH5pily4kxR7t0pbs\noC9C2xS2YFGpdSXvWu1PVJsilikw9T6kSIMIaFOw4sSm2XkdWpMdVCKWTXFKEh5Jr/GTfYMJ\nY1OIQqyAsLvg7ckOahPBptnnXwVxO/FLGyYx2Sb2kwhFH4FblB2kYZ5N7CcB//VNmhWT2EFq\nptjEfmry1imaTx1B25QdZGO0S+ynBu/98fyfKA/y/MBj3QuKFIjPtzXl5/do0nwGtxu7qcb5\ng3szTGIPmRi9SmI3lXnpi3T6t50XVwrYke4FRQpC/gOw401iD9mgSCE4zQyusal9BFRJQMe5\nFYqrFbAzkiuXCbZBJFTTsocMUKQI1D9HPtok9pAJijSb3HZPKj6oH8pdGNRB7gdFmovk6xjG\nmsQeUqO5DQV4TvJF6eJDqj6sHM9TGOAx7sXHLV3jT0reKV/DK+89tA5pLgzyEDeEIk1D9a0m\nA01iDxkY32jspg+qDVHdxnMcd8gBbobu/mLsaUnjzqzWRp4yrwr2kArl7cXg896c1g2Ogp08\nbW457CEDFGkC7fuE8wkGmcQe0jOhzW7fTY4v2Rpj0u17SMWsmd3du0n2qZVSoiEm3byHdGg/\nNwY/8z2RfvhLfH1Jf4TOeW8KRRoJ4hu2ZIfwfavNjbvIyIwWu20vaYa25lJt4UwUaQDp9O+M\nc98MVYRQXqvNJnCEpJt2kZ50+WPGye+EclSrL9bmTmU36ZZd5GFKg92xl7R1tlyuvbxGkYZB\nkYagH9GtDOVNvVR6gDw9eSNl/ppy+ntgGc5GkS7fn2Js67t1kRGKNBBbVLDdQnT96AVFGsKc\n9rpTL/UbyZmPWeQ+eWE7/526CAFF6kvX1f4pSeGbHyhSN1L2zzkF2Jre13FS8cHr031mluTQ\nRhSpH65vVBfeBiQ4mc2ke3QRjEnNdYdecv4wgfLO1ur9RBSpOxSpE+7f95DmT+2zmUzav4u8\nSObVQ8uwIYCfyVHcJC74zLq+PLt3kZ/5K6Tdewnya1PyY0j2ySlSXyhSBzCVU4gkuXQLv0OJ\nvEKR4IB+/FBxFMEZDSZt3EUQzndiRSjFRsB+Q1Q1s2NIGk4Mj3btJOBP8WJFYkjqC0VCAv1F\na91eg+gGV2XxtuyjTlAkHOAfhgeLZAhJG/YRjHPbUCQUYI3Uu98dQtJ2fQTkfLfwnFJMPXMX\n4BqprsfKkqtD0mZ91BOKBKGDRvrLsfiQtFUf9YUiAeihUQ+R1CZt1EdgLi1Dkdz00chygxA8\nJG3TR2gCebRNJ3WrRweRtCbt0kf9oUhOeoWjh3qvQZRFtr2nL8LtoUguOmrURyRlSNqhjzpw\nbZaZDbV+J3XVyCQSOiSt30c9yLQKRbLTWaNOIulMWr2PhkGRrHTXyDgBw4aktftoIBTJRn+N\nrPMvbEhauY+6EWxmt3AnjdDIvJCRhSTh0dfto37k2oQiGRijUT+RNCFp1T4aDUVSM0oj+9Ya\nMiSt2UfjoUhKxmnUUSSGJAfZBpnbSgv20dAim3fWGJL6kW8PiqRiZDjyXDQVhiTRGZbrpClQ\nJAVjNXLdfQAMSYt10hwmN9JSfTRao74iyU1aqpO6U2gNiiRlvEa+++GEIUlsHHmHIrmYoZHz\nLh7Y5G6ZTpoJRZIwR6MxIonTkQqz22j2+UXM0sh7XynKpCU6aRCltpjdRrPPL2CeRsNEaiRc\noJNGUWyK2W00+/xNZmrk2msQ5ZeZFL6TAjC7jWafv8FUjbwBSbH6af1iJmkwvYmmF6DKZI/c\nIoFMit1JAyk3xPQmml6AKukxt4QDRaoljd1JA6FIViab5BYJY1LwTgrA/BaaX4Iqwm2tzqd3\npJNfIyqbNHuCuwDzW2h+Caqk7J8zTm9N5jQppV8aUaVHvRHmt8/8EtSZapI/IOlEOidOKV1S\n3ZSUEkXycCzf4HdmhEhmk04D585B6b0pKi0QoG0CFKHKtXwDSzxYpDeTPsZMZtRE76pefDRF\n8N2YAEWoM3NAQUTSmnQORS/pwncWnq/GiH59IEAR6mQLOGhIzRDpUdtbCN9bWF7fUiiSl4mD\nCrBpJzrMxSTuhJ/XiNedmOOL04lQhjr2uwb6nVqXTCHS06R7B6XL9JYiuanuLXctPmZmp0zw\nFY9uHJSuVaxF6RiDOEIZGjSK2K8G00T6+N89VSpuWE6cmggIUYg67plTrxPL09lMCj50elDY\nsaRICARF7PMeDVoiSZKk898fJt0qKJX3/V/+X3x5MiEK0UBWRnxNcCKZTQo+eoBU7gBqeBSj\nKUIUogFwQM86r16kL5NuEZSq99GtEJCClKKOvIzYwYUU2GJSUyXJiRegejvqKrE5RikaqAqJ\nk2maSF8mNd6MdwhKDYseFAnInEJiZ5Qmkz5d2fXuu7ZFz3ahSH7UhYQMMPDSTLWL//Iu/HE/\n+DX9+0f+hGcPiMSilwoGn+AGKUYDSyndMg0WqWjS+5A7fzqp+UYdHGn3UCQk1lK6aofeLFSF\npPPKIL3c/Xy5nXM5ZMHoLWXmr1KKqQQpRgNzKT3VE/Y2TKS6SV/f3nAp1Rpd+IJirrCMR2HK\n0cBRTOsUL78yySZTHFH+embuVruBZh00LUaRwDiLaVpjyTICRWqEpPIhFunEdzRvbCn7ZynJ\nVKKUo8GgjYNrFulVDkgpUvbhXiapJggUCY6/nNopnnBbDCnSHUyyTeyK+cJUPExBGmDKaZpV\nAH8pohmSmsuk1U2Sb80k0eZkmHqHKUiL0SYJd5h1xWpGt/OX2eXyrWyScFqQuQhNkUDACirt\nS1ke43wx+1p6e/3g0mYmye5leH4D1+uzhcTOEsEIU5AW0ILqt7VBa91mbHvfK7zu+m5hkuTO\nupdbNlaa2QUqSYuxJl0SgHqyFdo+/7kItIFJ7R3Q8vfYUSQY6JJq9xAwF0NLA+IizOUjFO1x\nFbwvq1/x+LhebaZIfehR0vIxc69kntMXqqXA65/p8MTiJtW/KrX1XefhY3CgorQYalJ+oEon\nfMozFofM8ZMSa5tU2bDJtms6P5HL6S0UjkBFadGpqNkOlu4tGMrUeOu97HKU7jdbzKSCR4Wf\nPaJIGEYPEnmkEW7mKc7VvJt7C5NKP0dYy1F+VH92CoGK8sLwu5zlkSZ/xdR+rlaAOp5zVZMy\nHsm+8qTwsPLkJCKV5cmMjwvkroPmEwrTCfJLNzXyH4gN/y79xcWjukXpsVxAClWWF1QLF/xp\n62fy/rJry8Ts7mCuaPGH1zvna0KNC0rHzcrH9VH92TlEKssLxSXooNMLX3eKVP+K3vMz6TrA\n4o+vXxx2DqSfMqdIECaKJPpunta3fzZyH/4pvn55ak2TXtrT8l0NuYeVJ2cRqjBPUn6XZ9jZ\n22fKzD/kx3/5fyVB5nyX1cMCJn12peo7MCgSiKkmiSSRBK5a3tZqO//cJV6GNyl9zEt1sYgi\ngchPsEaK1DbJ/s15jdvOqpt557eY4Ca9vWeoW+qcfuqKWUSs0jwprFTGFLe5G3BOZz+D5vXC\nSiOfNkjHtmJvOVv1cem5ecQqzZOUnzqN2W6QntIRkiwmvW591dOG+TJjtUf5fZj4M7tgpXlh\n4le4SXrx4wXzboMrJD1OzXMusGcjBArII4rkoDDWRpQ3/w6fTWfftvOb9DLDO1iVMk/OIUne\nMgoZq49Lz00kWHFeCSRS/tlUTCs4QTNj06THy2opt6qb3rXJ/F5DkZDMEql0inzvmseJKSQ9\nLp6k12/c8d9Ri0QdkIqxlCK5mGSSdHehMJ+XnsAWkq4mPb6mecG+Xl8dkLIz1fwThecmEqw4\nB+KJdHjZvBYRGticYR7DT+vD2qNJ9rmvRKRoAzdaeV6ZI5I4UlhFEufTmRRstH0GI0MRRO8I\n0QZutPIcmGKS5PjH6zTKEpVnMLKSFGOS+AgDMHi09MwuXHkOhBXplE5XJLmB65r09UYjL0Cl\nWQJVrEi4Ah2Y8VYkFslokiJb6fXSmAsz4J4B+y4zu3gFOjAhJKkCkuwTteUTgE0KM+CSwyOK\n1IHoIn39YZnBCLK1RQpp0vPqkfjs1TgdpFpVwhXoyPi5nX6JpDOpORkTvR7apJedGMyCU6TW\nZOKV6MD4kCQ8+MkH8RX8VH0oL01h5EUQyeDRKXv7qXjDNl6JDgwXyfAW+vmMKOs50X4mvXhE\nkeIwem7nEKlLtvLL+Q2H6SKlUsnqeQoPSkeJN2zjlejI6JBkm6F9Pmf4vJ45JMU06eCRpTUX\nDUgRi3RkcEhyiPTxpPZbTQAhKY5JJo/OR2g/FXDUBizSkbEhyT6zOzwr2GwTn1Jr0mSRGk63\nj5Ahc5pwBCzSkZVEappkqUzl5XAmyX6v8pKpkYUiQRg6t/PM7E7Pi99I7SFJbNKgXvZ7JOvt\niIM2YpmODA1JTpHOL9QfCk8qW3MFCEnpYRHpcoz2cxEHbcQyHRkpknNmd31FNLAcISmSSWeP\nLOeUdXbEQRuxTCcGzu28ASn3muBHYCAhafbkzuaRJGafnww5ZkMW6sjAkNRDpK8nZWsdx/my\n0Ul4CjcXjyhSOIaFJP/MrvRiqufCTO6qJnXu6KtHsJkdRUIRTSRb/FD//IT05exX2Y026XrX\nLmqrgSLBGDa3w4hUGQ7WVVIjml2/J3L05C73Y8uibJI8linjcGKW6sSokAQSybJOMoekT4XO\nX/g9NCTlPkUiOJ0w1FAkFINEQnlUL6/t1wFKr7+ukI4xb6BJqB+Fo0idGTS3g4nUHFf6cSca\nY+n1A4bjJneZjQbkEoki4RgTknAiNVcM+oEnfDMp/ESF7Bw2sh5Z4rZs3ht0xAYt1onlRBJM\n/89TPENIKqzNy99t1GlhaeseijSBESYhPbpMugSJ1CZVdiCuP38uOYUFs0eKPBQJxqYiHZ7X\nilRPP+rXrHE/CFd5X/AdeAhRy3VixHYDViRx7wvuxcu+3CxH9rfE8e8+hfllO6M8S/1TfjGI\nWq4zA0KS7HDyk6bsn/mkSZBKFuNOx22v1VwAPZJFJIrkpL9I4IB0SIo5tmmGc3YJ2mjFr/OD\nzuwODRl1wEYt15n+c7uOIgmjh0IkVVxM1u/7lxy7+IrhYO2XwgakZUTqHpKSrJNUp0ynf9sZ\nGhsI+lKkzwN/lQXXaHaPlJ35Uu+w4zVswc70F0l0PN0pkzaPTCTbOu3jZ2ZhjVY5lnYDspHn\npd5hx2vYgl3oa9LHkLcskpvJdSLVyqAV87zRV7i8ZKLmpGVmV/kSrvT8J+x4DVuwCyNEsk1K\nGukNs8GSTEovc1tjqJBUPRBkiXSRKnJAClyyM11Fkm6wqU9oE6l4KtXh8ikxl2I8HuVrVr1Y\n9Hl5Oe5wjVuyCz1NOqwllGVoHNkyGSyeSxNPKgPd7VJ9a8bwZnSdhGanenGHa9ySXegoUqo8\n8p7PLNIjZ6FcgcZodrnU2OLs1kqBR2vgop0ZJlJ5lFhOZw9JmcdJrEA7kd0lvEcUaSTdTMos\ndOUlaB9bl+sahC5/ShSQ2WZyKTVmmNVjFhZu0jOHJXDRLgwUyfiB8EIWp0lfpTms5EC7InqX\nWh5ZJKNIQ8kNsT6HhZ3sYoA4z/XZ64JceYhCSp1LqTVbveXMLnTZLnQKSaV3ydokS3dshEjy\nuKn06P1A0ixNjzpuyEQerJHLdqGPSPL3dfsQAZj0NkfM7OK5IqdisviVoZXOsOlJkQbTZW5X\n6/jzlpn52Kq81TeMtksmj7JHymUw/E5u8yWKNJgeIUk+T3HNWZwmXbfuDq/aPijROlIug8cj\nZ5bQYzV04S6MF6kxghXHVi7oj48voeOapfzdQeLTnI6UTd88PEVaAbxJ7YFhm55dc9hNKq6Z\nTs/kv/BEeJLLkbLp24c3bCVSpOFMEMm4YZDJYjVJsTWn2cluzGnPH1FP+d0O+VG39ih46a6g\ntxtEma03TDp2/WQzytx3m0hVEsSWl2CcCruGhsNas8QeqrFLdwUdkhSdOFQk+X7fdZ9BFJZk\nZXnGIel7CUVaA7BI4qymu9IuWQwhyTYfbBZXMQN8fqzW45FhymdMN4fYpcsAndt5dtJMOdQm\nSQPHNS3qBu10/J8kte6MWwSk6MW7Ag1JKpHUZ/EVVbsuE971oCzFq0cukdxZgo/U4MW7ghRJ\nGZCUp8knV5nkjpjlfWzNYbt6RJEmAZzbmQaU9+jyZZneo+yNd56V2otHrpldbedRUZLABC9e\nBlxI0r/fq87jnldpJpOv+wzX46RCWtFhFR5Z3jz2CEjhy5cBFpIMEyfT0DaeNylUStWHR5ds\nHrlEAmSJPlCjly8DSiTTAkS5WeA48UcMtC1NKlM8y8JQOq/t51H4gRq9fBlQczvbSh7R8box\nabydoDDF6+mRZX9lk4AUv4AZMCHJuiOG6HmlGuYvaGgul1qH/fKIIjUIX8AMc0VSzcysJ88Y\nYDrY+aWkcAnlESRL+HEavoAZIHM7s0eY1YLeM+vV1dy30QsXXi8KUaQG4QuYAxGSHCJJ8jaT\nGNZQ9qur6fSvxKWDRw6RfKFZl2wi8UuYARCSPB45NWkmqU3VJPtzxUMe07Y+VR7IowWGafwS\n5vCHJJ9IzplbPU1j6Fm/kCXnTe1uvMPSiDO7FvFLmMMtktOj9sLEXgbBjt7LDE1wnpe0uXYr\n7LTpPaJI6+Ge27lFQuzpWgz9SHT9DmPZ2fK7GLlQdUhtDkiA9xtNuoksUMQczpCESGvYLRAk\nE5fMcHH1mfF6sPPy6ZhFd4bqU6rXtekmskARcwQQybZb0EioKpj2K7urpzncjXeKXpzZtVmg\niDl8czuQcwbFGim101Pzz47lZ5WH2/FSI3XrFMAcKwzSFcqYwxWSUMHLtu9WTmpY5tl/dix/\nUSr3PSec2QlYoYw5XMsL33mar1q3PYz5BC4VjS8K9vqCVSRzsazpZrJCGbM4TAKupuwbb9fU\njm1H5A+tGD3qOLNbYpCuUMYsdpGguxLOXY+X5A6PHo2wVD107uOzhgnnvbcaFilkDvMIbvyS\nsPaQhhlNNr0xjL0+Z1+ynS7xZtTSl8jSdL50U1mikFmMJl3fcZUnaSZRN+l17KrP+fG0+zuD\nzB5dkllazpluKksUMotHJOgsMFUfyo4A8ejtpdzXgcsO+umQqT4dZ3ZrjNElCpnFJtLXisTi\niCiVpUV1Xz7Z2gAxrHBestreF+6+RFqklFksJqXsn4oztNOZRAKv26y/6ZSuTttEks8NcOnm\nskYpsxhEUo54y+TD5tFDHpWEUdJwW+sjff6nPp1BpL1mdouUMo96w+zc27rksqRmkUp7BcUz\nNVNe52nNQ3+VRHm628/sVilmFnVIUm6wadomnf7V8BrPVDG1eWDtba3p+FB+Poq0SDGzaEXK\npa9tgFkK4xSppZJhyaMYsNdJnW20I1dIq4zQRYqZR2dS/qVyBmXTGNYk+RNVxr7NbeneY2aq\nbApIokwUKRAqkUqvaJ+vngDg0dtTWunrqSVhKX8tS7bMSge0pcOkm80q5cyiEaliGGLUfuQA\niZQf+1aPSsc7pi541D5tOuVNJcqlqxZsDVYpZx6FSbWKFseQtjgwj7JH84iUO94hcV7ndtbL\n3mAtqTpurTNAVylnHrlI6v05U8NARTqPX6dHj0pYanjUOqChmBQpFtL5j2B6ossgPIwkT/2A\nSZROfNTCfa2SViuHONMsGJxwNssUNI8wlEgWzOoc2WOYtijqCSzbgdWJrHjSV01oVVyXZZnx\nuUxB88hEku3HvqYyBiRDTtGmGNKjxyUsiT16eTbz1fySMyuTLTQ+lyloAdHcTt+7jhWSMqtQ\nctVRRXI+A4pyfyZVvjb5th4tVNI8Em303WYPSODY8UwGvT38PVmqJy8vs9zRmyKFQyCSooqW\n31m9nAcdPD6TScOSwrjqpLEws0uXP8Tnaxzak3A665S0QHNuZ4gQnoCky66cCtl+mbmaWOVR\n1uWU+atxUmG6lYbnOiUt0AxJhjWLKyCp8qvXFPbvsNOmzrxDZXfxDPXeMCCtVNQCjZCkrqBy\nYZ89EXqkHI4Nvj9c+lJxb0/fwh1STmehohaoi2SpnzcgyQ9hfAuv3bEjPGIzufiU+taiSCGB\nzNqPuQH2QfcFcrOswlaA7ICC5NIg+L6oVE2IKVJMKiHJagTgXRa5LZBNV1/32497eUk4lby3\nR0uVtUAHkQwrq+YTkky6dJdAgfPopQkbB6VI76xU1hJFkxxTNP+YFBzBv8vlujLaFqm98WJo\nYooUlZJIrqWOf/cLtlFdn1qZF4RNj7BfamTIsdLgXKmsJQrhwLlloMluW/lDRHqGDaBHv15U\nXvy9+cxurcJ+8Nf5iWxIcm9i+98660cADj39/eEtj9S3I1Gk5fg7/fXnjx//e3kGJlKqPBJn\nkx4BOvTUl5GrEzvNd3gp2XRmt1Zh3/nft7cP/f/7fCY3t/N7BNkMMOWypFPdH17fv5BfSONW\nwxdrlfbx+OePXxr9/Pfv9PvLs5UdcAXWo9hswc6FPnYHvAYk86VVvHtrDc21Svvnbyl9+/3v\n9Ofj8duPl+czCmDeLOWDWP1aB5EeUpcKmyPqT5HoRdp1ZrdSaf/5v/96+v9+7TT838/zazmT\ntFXLpnfvABff+9sH1qR8HdKCzYncc6n2qvgwuCwLDc3HWqVN3//8t/RS7hld3Uw7b4IU5uOq\nEh5Stb8N8vJM6TsYlMcBZllpZD7WKu6nRX/9kESk7LNlbDtvkgSFeVTrsKqEl0TN+0wraTmz\nM7BYcf/9+d/y6H8p/XZ+oWASYrjaIk4jRb+Z3fM5USy0/+jsISFFml0AFf8plL7983j8/e33\n0yulHTfEZpJtEVRPMkCkUlhKjQQxZnaLjczFivs9/fHnt+///fEznVZLxa1r/w62x7JSIvRS\noTwxLQcc92ea9GNnX48WK++vi0dvm9//pPN9QmWT3BtvnolfIdWQgPT54nEj4vNJ93YiZ3av\nrFXe779mdD++/fe/dN5vKIoE2C7wbEXkk40U6WDNx4TX/c7wsIgE2fwJylrl/fnLoX+//fH4\n/SJSbfrkCDitJLY1GPqdWfBO8LxFvL453nN/euOAtFqB30LSH+lb+na5olQJSYgfZnWuJ04X\nemzZfKnSu0TuTUhtQlOWxcblcgX+57dvP77/uk3oemW2JhJglZNPZhwaY2d2z3TGmx7aCaHF\n1KYNwWoF/uvzNqErRpM8b8Gq1pNPNbVnAEaRniGWIgXit28/VbcJvTzwTs5aJ5DnnyUSYP9S\nn9CUZbVhuV6J/1d+qTnOvZMzx97bIT18QK0hkuYu4tWG5YolLmMxyRhTLJm/MuwQkEwzu/1+\ngvnJeiUu0556uX8q1rj3dsyxg0iG7fxfifA/TROF9Upc4VKZllq+SyHGZQJ8zY0TCb0tn8sB\n3TqMw4JFLiPZDXDGFNve2yH7rCVSv5mdNkePr52czYJFLiPaVrN/o+Ipk63pQF9Rok0kS0NZ\nfN8AABTaSURBVGddw0jynbZQq1kWHJULFrmCYG738qSx7vq9t+zZYWnnz+zUHr09gfylmPms\nWOYyopBkWPMjs8N3gZeb2T2fKxxmxUG5YpnLCEVS/p5P9qCOgAQerxNEcq0tD8+2Pnq4DCuW\nuYJsbvf2vKfmui2Dc1bkqiZEQHIdO+PSioNyxTJXkIYkb8WNvzP7eV7c4F9fpMelNZcck0sW\nuoL83c1pki8fcF8bJlLPFVIri+3rwCKxZKErKKYJvrmdb8sP6AjMydFbDeckSdU20Viy0BXk\ncztX3c2LpHT5Q5DWnSj2zO6ZyrmdOpMlC11Ds3J1LXRMmVUTmFVmdsBja34KIxZrlrqCagvI\nNT+zZE6Fv5uJfYkWmNk90645JNcsdQXN3M4ZVpwDKpZIisr0FWnRIblmqWvorkq4woo6s2qb\nd5mAhHlHMCWOw6LFrqALSb63V21m1Sp9FZGg0W7ZEblosWso3zE9P77qyNrOH3Rmh7+I5D18\nCFYtdwX11EPXBrp1TuNE7vUbKlGUrYZlB+Sq5a6gnNsJXq+k9Q6Scv5VZnbYJdKy43HZglfo\n2dX6YzeSFvMvE5Ao0i+WLXgFw2CXNoMqpshSlvIvIxIyx7rDcd2SlzG8aUrboYNIyqe7JApz\nEWnd4bhuyStY5l/2IemIZt6jRghIyJndwqNx4aKXMS1k7OPNHs0qr2wj0j0C0spFr9DJJNdy\nppbKOmPcbGa38mBcuexlbHtr9vdWt6eWZR3ivIpzKVNasqw8GFcuexnjJnU9lS6iOA++zMyu\nlfkmHq1d+DIdTFJGFG2SVH1oPivWI4pUZOnClzGKZI86/r2rVHlkPaYsTZCZ3dpDce3SF7GK\npNyjBr5+SjFQJG41IFi79GXQJnnHo3LMxwxIXWd2i4/ExYtfxCxSISFFKqT0V1ufNCKLF78M\n1qQO+9vVRAP348Sh+g1hYu3B1x+Iq5e/iF0k60Ud7/74a7JAIqX0pVD6eCQpnPj86pQxWb38\nRRwiXT40696p0B4hxMwunWNQOr4iOMF9PFq/AkU8Jln2oqvplPPKqQEpXQzKJxXM9SjSBrhE\nOiT2DwftZGiOSCWBagery+Tc4VmJ9WtQwieSduFfT6s9xDiR3s7WMKh5sFLuGwWkDWpQBGWS\nOZIZzyz80l6MR/K9g1bNMoe6UUDaoQolnCKpFv71k2gPMUakpPuibdFbxDG0UaQ9ONfNdBEE\nceVEfQzMhlwtxcdw77KT/Rmc7uTRFnUo4Q1JD81gqJ1Ef16BSvYUL0Gj4ypGcb1ph0G4Qx1K\nuEWSLlfwp21HJevMzvrbeIbFn/+qwUJsUYkS3rmdsXkgU8qWSpaAdNkOcAek6uzReey12KIS\nJfyxAWKSeZlVU0krkuQSq/hg2CxbjMEtKlECIJKpgaxv+9cM5YWGSqTCYfpsNWhz7DEE96hF\nCf/cDhCSPCI9SmFJ7lHlSpE/ILlCproUkdmjFiVmhaRDJvcGek4EoUjVrTN/QEIskTYZgZtU\nowQgJHlNcgak96f07wipFoqExzCk1GfZZARuUo0SCJGcmRAiXVVqbY5LruKEEGmXAbhLPQog\n5nY+kWCrdOEFoCS+rQDgUaUY7mMvxi71KDE9JGEC0sdL1TB3uM9NcNoQIm0z/rapSAFISPJk\nQor0VOl6jUh9qbXr3jdF2g2MSHaT4Ndfjjeblj5INCYg+bPsM/z2qUkByNzOngsu0ptKqayQ\n8CCQgASd2S0+EhcvfpvJIamDSJI9uTFbdg6PL+nU3/QVjMWLLwAUkmwmdfGonWjBmd3qA3H1\n8rdB7dsN2qUYJFJXj6R5NgpINxTJ/A5ryofdtJOmGSRS6SV9QNJ/h2s0Vi+/AH9IMm5kTxNp\n0N63d4n04hEj0gK4RVJc5LxmVGbaYWZ3x4B0R5HsY9uUUZcJIdIiWw1bBaQ7iOQMSanwtzQn\nXqQoAcm5RErPP0zfjRGL5SsgwCVSKj6Q5rSfzphmskiWgLT+OFy+AhIcJqXqQ1lWyMpenmjQ\nVoM3y14BaYMaCLCL5FhfmZZW0UQasUIybW6GY/0aCDCLlEmo35JCD9zdZna//lx/GK5fAwlG\nk3LJwos0LCC5RLJv4QRli0o0sYmUT2XJ6wmB2jTLzez2GIJ71KKFaanj2d0FhkBloske3TUg\nbVKLJoaBXU5iyAwUKUxAyr5q2mrYgT1q0UQ/sA3L7FoCz2RSlWYJkfbzaJdqNNGaZFlmVxMg\nNrYFaTizm8Qm1WiiFAn/MmJjW5Boia2GDT3aph4tdCJZQk7rRdeyTJzGV3L3mSjS9mhMco55\n8wWWpWZ2GJG2GX/bVKSFQiTneLZvm4cSiSskFdtUpIVcJOcGm/3A/iXSclsN+wy/fWrSQmqS\ntEUM+d07161Ek2d2Nw5IG9WkhVAk70hzrL0GzOxwAQki0kajb6OqtEjVh9Vn5Uk9A90t0hIz\nuz0D0k5VaSEJSarmMBzA6YH3AAE82jQgbVUXJZmqK1vjmtyzn+BeIg0NSNbW2zQgbVUXJXoN\n2hk8MWGtmZ219SjSfiguLQkPITiCb9t9+Zndrh7tVRklegsah/Cp4BWJWw0z2aoySvQWNI7h\nWuX0XyIhPTLO7Lb1aLPaKEF0q3oTyiNSnJkdRTqxV22UQHZi0+UP+VkFT4vTAGd2nNjp2aw6\nStQSQI6RT9hdJMlOyBeCwqiPTpG2JZ3+9RzEO3FyimQMSOnAM2XDJtvMbmOPtquPDrUDlaMo\nDpJLOiwgZdXJH6osk/4C2jnRbgNvt/ooSV//8x5FdZBM4t4iKSZtx51IQx5Bmu3G3XYV0qFW\noHQU3UHwIjWya1Y9ucK1bLp9QNqvQjrUCpQOozyKf42hyP4mgX/v+7SKEp8+l2a/YbdfjXSA\nfipOfRTLSDSJ9DH4UdeQPmyiSGf2q5EOVP21x/GOROFLxRBiOsvzqKf3H3q0Y5V0BAlJPUR6\nGe5Qjz4Prjs8RdodjEpOk3wiZffTbSNXNccsTPSax91w1G1YJT0QlVyTO+cS6XpZJxkHrizl\neYNcmWXHQbdjnQwAVHKFJOjM7jKyFUUztYP62pTlJMHZsU4m5poEnNll3hPwKyR1pt0D0p6V\nMuEOShFEyk6z8AFJvb7bPiDtWSkjXpUcJmFEKlQAHpC4931lz1pZcapkNgnhkfwGU8s5nJko\n0t1wtcc8kWo7Z1whjWDTatlxBSWrSS6RUr3MHQKSesVDke6IRyXjxSSfSNXcPSZ2no37XQfc\nrvVyYVfJFpKcAcmWz5VUl4ki3RazSiaTHCK1biugR4PYtmJeRpnkE6n5QSjO7AaxbcXcGIOS\nJSSZRWrm7RKQPBeStx1v21YMgE0lvUlWjwQ3XnNmN4p9a4bApJJ6cmcUSbBP0dsj3h30xb41\nw2BoH/NlWV0arEc25xiQvti4ahh6feno4RTtHJcUSXCqTgFJJdJNAtLOVUOhVkmZPknOcXo9\ngT3iCsnLznWDoVVJlzwJznH2SHQirpAGsnPdgChVMsUC+Xdtwz0yFlh54K3H2taVQ6JqKOMY\nLqt0GI/CkdwrIGlEuk1A2rtyUFRByXR1s3KS7DVQrpACsXftsGhUEic9J8yeJH8vgWZVpSoD\nLNd9AtLmtUMjV0masHShtfBUknrUTyTZAu2aZvORtnn14KBNysafwkUjzTt8v4CkEOlGAWn3\n6uERByVZunyqwhfTKQYmV0iD2b1+HRCqJEpV3qbLDML8Hrj95Ia0qlx3Ckjb168LMpW079nl\nk6TMSacFpKzV7QPvPtB2r18nQL8G2bDhdTly2d1zntqU9pmeHp3YvoK9gJjUSvG8pa6bR5zZ\nYdi+gt2w3LKtfP3jLJnv25q80+Dx6OdfpjNGhyLZ0d6yrX794yzar8XvGpDcM7sfaUuTKJKH\nlkqYwKH0qG9ASsJc5Yndb1uaRJF8eL4Nq5NI4VdIW5pEkUTUtqmN+cRtHyogSXNVdxp2NIki\nyah9SX2tDa0GVtNVT/iC5diSDO4tuw1NokhSjCpVcgnPq8l4+unYLPoinHJorzS//P3v33+/\n/bufSRRJjkkl/QvNdKWcsl9FfpSsEuPasvuPbz9+/P5tN5MokgZL5CkOe+spCxmNUhhkUor0\n+vfPnz9///HjtzeH9zKJIqmwBKX889iAZIwtX5nFuTM3WeRTFR588c9v6R/pSVeAIinRqwQW\nKZPR/TvSchNhIj0e376LzrgIFEmNeK1fy4ALSK5gdDqQdhtBkqSY/sdWY2+rygyiukmXCxi5\ndNJzNZ5AWfR1OPd9T+ckpfT/MiIR5X63UC7RwU7727LDqKj/sDMsIP37F9dIRLlUkix08seq\nPAGb02VOWzo2UKTNuEs98Wjmd1aRKkr2s+jrBNJpai3JbcbXbSqKR7NUqj8sH6bwRMdgdDzd\n5UQUqcBtKtoDxVIp1V4UHuPzmUEWfZ5S/l161yT3GV73qWkXxEHJNLxyAWlUMDqc9vOk6vtg\n7zO87lPTPojnd6W/qwe/HnFaf73JRI+K3KiqnZCqlDJ/NY6sOdUIGJDK3Kiq3ZCp5Bdpfl+1\nS3BXj25V137UWvFqknGrIUBXUaQid6prR0RBKR3+aR+z+jAmt/XoXpXtiUAlnUgrekSRiJ+2\nSs//SQ5XeTSJZiEClnkUt6psb1pLJbtIMbpJJ1KMMo/iXrXtTSsopaU9anLjgHSz2vanoZLo\nmuZ74sLfkVlRfhQ3q+4AqvM70+/9hemjRkHuHJDuVt0RWL8wspQuTBe1CnLngHS7+g5B+1n0\nTKrsn7G5dUC6XX0H4VVJfz/RfG4dkO5X4VHUl0ri3JH6p16Wewek+1V4GJ6l0tdNRaG6RyFS\nqHIP4X41Hod9fqe8Ky8CNw9IN6zxSIzzuwU9untAumOVR1Kf35VePNzjGgbO7GrcsMpjMagU\n06N6ge4+s7tjlUej3nVQ3dsahLsHpFvWeTi6oLS8R6sVHsId6zwe1fzu6wMXwRAH1oiF784t\nKz0BhUqKz1oMpbaZL024L7es9BSka/WoHtVgQLppracgDEryjyyFgQHprrWehESlsB5JZ3ZB\ni9+bm1Z7Fm2VYt1e90LzRoxmuq25abXnUV8qTfxybzsMSI/71nsejdtV1+sQBqRf3LXeMxHd\n+R0N4cwuaOn7c9uKT8V2L+tUioViQHrjthWfzD7zOwakN+5b88nsslRiQHrnvjWfzloq1T87\n1Uq1P/eteQAUH5WbTqE09OiDG1c9AGsFpRwU6YMbVz0Ei6tEjz65c91jsIZKnNk1uHPdo7DC\nUilfCnr0xa0rH4U1glIGivTFrSsfhzVVokdP7l37QDTmd7P7KXt+ivTk3rWPRMOVuSrRoxY3\nr/4E/im+0lIJXRIvFOmFm1d/Aj+//Vt8bamlEj165e71H8+f6e/Kq0Hnd7nzUqRX7l7/8fyd\nftZejrlUypw1NVPcirvXfzy/RPr7R8WmmCpdYEA6cPsGGE/68T2l38sLpUV2HSjSgds3wHD+\nTOl7dXL3i2BBqTmz4zBiC4zl57eUfhOkizW/o0hN2AID+fePb+n7Xz++ixLHUuly+sqjW8Im\nGMj/vn//6/H4IW3zRrpAtzpwFLEJxvOHuM3DBKXLiejRGbbBcH5Wr8geiaHS9SwU6QzbYDj1\nWxvOxFDpfNbKo5vCRhjP3xqR2kulCV1IkS6wEeLTUqV7H55PQI+usBVWYPL8jiK1YSusQaT5\nHT3KwGZYhOb8blxPUqQMbIZlmLZU4gcmBLBVFmLSUokiCWCrLEWA+R1HTBY2y1rMXypxxGRh\ns6zGeJVS8QH5gu2yHq0+Q/cpRRLAdlmQifM7jpcCbJglmaYSx0sBNsyijFMpFf4mr7BllmXU\nUokiSWDLrMvk/TvyCptmZUarxNFShE2zNv1VStk/yQm2zeo0l0rOLqZIItg2y9M0pceuAznB\nxtmAQUsljpUKbJwt6Di/S5m/yAU2zh6053fWnk6XP0gGts4u9FPpM78v++awdfbhzZRah7o6\nmyOlCptnJ5om6bubMzsZbJ6t+GVKtUvVKqXTvyQP22cz/jOly1ekcKDUYftsxXtE6vAbtBwn\nDdhAm5F+AQxK6fAPKcEG2o93lxpJpMc6/EOKsIV2pG2ScqnEYdKCLbQpbVEUKnGUNGET3RhB\n5ydpwrvDJrozgrD19T9ShW10b0TzOw6SNmyjuyOMSqQOG4lUxgBndlLYSKQSlFp3wZJP2Erk\nUZ/fcYhIYCuRN4oqcYSIYDORD3IqtT6VQT5hM5EvLoOBHolhO5EnmaDEASKD7UReOavE8SGE\nDUWOvKrU+mAT+YINRc68fCUkh4cUthS58PSHw0MKW4pkSPz4hBI2Fcny9jUqHB1i2FSkQPvj\n6uQJ24oU4eCQw7YiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQA\nRSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUi\nBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBABFIgQARSIEAEUiBMD/A+YM\nj27d7Ry9AAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "persp(x, y, fa, theta = 30, phi = 40)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h2>Indexovanie dát</h2>\n",
    "Pri spracovaní dát potrebujeme aj pristupovať k časti množiny dát. Predpokladajme, že naše dáta sú uložené v matici A. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 417,
   "metadata": {},
   "outputs": [],
   "source": [
    "A = matrix( 1:16, 4, 4)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Potom, napísaním"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 418,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "10"
      ],
      "text/latex": [
       "10"
      ],
      "text/markdown": [
       "10"
      ],
      "text/plain": [
       "[1] 10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[2, 3]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "vyberieme prvok korešpondejúci druhý riadeok a tretí stĺpec. Prvé číslo potom je v po zátvorke <code>[</code> vždy referuje riadku, a druhé číslo vždy sa spája so stĺpcom. \n",
    "Môžeme vybrať mnoho riadkov a stĺpcov v jednom čase, zabezpečujúc vektory ako indexy. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 419,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>5 </td><td>13</td></tr>\n",
       "\t<tr><td>7 </td><td>15</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 5  & 13\\\\\n",
       "\t 7  & 15\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 5  | 13 | \n",
       "| 7  | 15 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2]\n",
       "[1,] 5    13  \n",
       "[2,] 7    15  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[c(1,3), c(2,4)]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 420,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>5 </td><td> 9</td><td>13</td></tr>\n",
       "\t<tr><td>6 </td><td>10</td><td>14</td></tr>\n",
       "\t<tr><td>7 </td><td>11</td><td>15</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lll}\n",
       "\t 5  &  9 & 13\\\\\n",
       "\t 6  & 10 & 14\\\\\n",
       "\t 7  & 11 & 15\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 5  |  9 | 13 | \n",
       "| 6  | 10 | 14 | \n",
       "| 7  | 11 | 15 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2] [,3]\n",
       "[1,] 5     9   13  \n",
       "[2,] 6    10   14  \n",
       "[3,] 7    11   15  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[1:3, 2:4]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 421,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1 </td><td>5 </td><td> 9</td><td>13</td></tr>\n",
       "\t<tr><td>2 </td><td>6 </td><td>10</td><td>14</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{llll}\n",
       "\t 1  & 5  &  9 & 13\\\\\n",
       "\t 2  & 6  & 10 & 14\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1  | 5  |  9 | 13 | \n",
       "| 2  | 6  | 10 | 14 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2] [,3] [,4]\n",
       "[1,] 1    5     9   13  \n",
       "[2,] 2    6    10   14  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[1:2, ]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 422,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1</td><td>5</td></tr>\n",
       "\t<tr><td>2</td><td>6</td></tr>\n",
       "\t<tr><td>3</td><td>7</td></tr>\n",
       "\t<tr><td>4</td><td>8</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       "\t 1 & 5\\\\\n",
       "\t 2 & 6\\\\\n",
       "\t 3 & 7\\\\\n",
       "\t 4 & 8\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1 | 5 | \n",
       "| 2 | 6 | \n",
       "| 3 | 7 | \n",
       "| 4 | 8 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2]\n",
       "[1,] 1    5   \n",
       "[2,] 2    6   \n",
       "[3,] 3    7   \n",
       "[4,] 4    8   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[ , 1:2 ]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Posledné dva príklady zahrňajú buď žiadny index pre stĺpce, alebo žiadny index pre riadky. Tieto indikujú to, že R by mal zahnúť všetky stĺpce alebo všetky riadky respektívne. R spracováva jeden riadok alebo stĺpec matice ako vektor."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 423,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>5</li>\n",
       "\t<li>9</li>\n",
       "\t<li>13</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 5\n",
       "\\item 9\n",
       "\\item 13\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 5\n",
       "3. 9\n",
       "4. 13\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  1  5  9 13"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[1, ]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Keď použijeme záporné znamienko, index povie R aby nechal všetky riadky alebo stĺpce okrem tých ktoré naznačujú index. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 424,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>2 </td><td>6 </td><td>10</td><td>14</td></tr>\n",
       "\t<tr><td>4 </td><td>8 </td><td>12</td><td>16</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{llll}\n",
       "\t 2  & 6  & 10 & 14\\\\\n",
       "\t 4  & 8  & 12 & 16\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 2  | 6  | 10 | 14 | \n",
       "| 4  | 8  | 12 | 16 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2] [,3] [,4]\n",
       "[1,] 2    6    10   14  \n",
       "[2,] 4    8    12   16  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "A[ -c( 1, 3), ]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>dim()</code> dá počet riadkov nasledovaný číslom stĺpcov v danej matici. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 425,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 4\n",
       "2. 4\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 4 4"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "dim(A)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h2>Načítanie Dát </h2>\n",
    "<p>Pre väčšinu analýz, prvý krok je importovanie dátovej množiny do R. \n",
    "Funkcia <code>read.table()</code> je jedna z primárnych spôsobom načínia dát. \n",
    "Na exportovanie dát sa používa funkcia <code>write.table()</code>. \n",
    "    </p>\n",
    "<p>\n",
    "   Pred načítaním dátovej množiny sa musíme ujistiť, že R vie kde sa nachádzajú tie súbory. \n",
    "   V tomto príklade začneme načítavaním dátovej množiny <code>Auto</code>. Tieto dáta sú súčasťou <code>ISLR</code> knižnice. \n",
    "   Ale na ukážku načítavania dát, tak tieto dáta načítame zo súboru. \n",
    "    Funkcia <code>read.table()</code> načíta dáta zo súboru <code>Auto.data</code> do R a uloží to ako objekt, ktorý pomenujeme Auto, a vo formáte referovanom ako data frame. Raz keď sú dáta načítané, tak voláme funkciu <code>fix()</code> na zobrazenie ukážky načtaných dát zobrazených v samostatnom okne v podobe tabuľky.     \n",
    "</p>    "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 426,
   "metadata": {},
   "outputs": [],
   "source": [
    "Auto = read.table(\"Auto.data\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 427,
   "metadata": {},
   "outputs": [],
   "source": [
    "fix(Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Táto dátova množina nebola správne načítaný, pretože R predpokladal, že názov premenných je súčasťou dát a zahrnul ich v prvom riadku. \n",
    "Tento dáta tiež obsahujú niekoľko chýbajúcih údajov, ktoré sú označené znakom otáznika ? . \n",
    "Chýbajúce hodnoty sa často vyskytujú v reálnych dátových množinách. \n",
    "Použitím voľby <code>header=TRUE</code> vo funkcii <code>read.table()</code>, R urobí to, že prvý riadok v súbore, ktorý obsahuje názvy premenných, a použitím voľby <code>na.string</code> urobí R to, že za každým, keď uvidí chýbajúci údaj alebo znak ?, tak s týmto údajom bude zaobchádzať ako s chýbajúcim prvkom v dátovej množine. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 428,
   "metadata": {},
   "outputs": [],
   "source": [
    "Auto = read.table(\"Auto.data\", header = TRUE, na.string = \"?\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 429,
   "metadata": {},
   "outputs": [],
   "source": [
    "fix(Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Excel je najčastejší formát ukladania dát. Dá sa jednoducho načítať do R a uložiť ako ako csv (comma separated value) súbor a potom načítať ich pomocou funkcie <code>read.csv()</code>."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 430,
   "metadata": {},
   "outputs": [],
   "source": [
    "Auto = read.csv(\"Auto.csv\", header = TRUE, na.string= \"?\" )"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 431,
   "metadata": {},
   "outputs": [],
   "source": [
    "fix(Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 432,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>397</li>\n",
       "\t<li>9</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 397\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 397\n",
       "2. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 397   9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "dim(Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 433,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>mpg</th><th scope=col>cylinders</th><th scope=col>displacement</th><th scope=col>horsepower</th><th scope=col>weight</th><th scope=col>acceleration</th><th scope=col>year</th><th scope=col>origin</th><th scope=col>name</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>18                       </td><td>8                        </td><td>307                      </td><td>130                      </td><td>3504                     </td><td>12.0                     </td><td>70                       </td><td>1                        </td><td>chevrolet chevelle malibu</td></tr>\n",
       "\t<tr><td>15                       </td><td>8                        </td><td>350                      </td><td>165                      </td><td>3693                     </td><td>11.5                     </td><td>70                       </td><td>1                        </td><td>buick skylark 320        </td></tr>\n",
       "\t<tr><td>18                       </td><td>8                        </td><td>318                      </td><td>150                      </td><td>3436                     </td><td>11.0                     </td><td>70                       </td><td>1                        </td><td>plymouth satellite       </td></tr>\n",
       "\t<tr><td>16                       </td><td>8                        </td><td>304                      </td><td>150                      </td><td>3433                     </td><td>12.0                     </td><td>70                       </td><td>1                        </td><td>amc rebel sst            </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " mpg & cylinders & displacement & horsepower & weight & acceleration & year & origin & name\\\\\n",
       "\\hline\n",
       "\t 18                        & 8                         & 307                       & 130                       & 3504                      & 12.0                      & 70                        & 1                         & chevrolet chevelle malibu\\\\\n",
       "\t 15                        & 8                         & 350                       & 165                       & 3693                      & 11.5                      & 70                        & 1                         & buick skylark 320        \\\\\n",
       "\t 18                        & 8                         & 318                       & 150                       & 3436                      & 11.0                      & 70                        & 1                         & plymouth satellite       \\\\\n",
       "\t 16                        & 8                         & 304                       & 150                       & 3433                      & 12.0                      & 70                        & 1                         & amc rebel sst            \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "mpg | cylinders | displacement | horsepower | weight | acceleration | year | origin | name | \n",
       "|---|---|---|---|\n",
       "| 18                        | 8                         | 307                       | 130                       | 3504                      | 12.0                      | 70                        | 1                         | chevrolet chevelle malibu | \n",
       "| 15                        | 8                         | 350                       | 165                       | 3693                      | 11.5                      | 70                        | 1                         | buick skylark 320         | \n",
       "| 18                        | 8                         | 318                       | 150                       | 3436                      | 11.0                      | 70                        | 1                         | plymouth satellite        | \n",
       "| 16                        | 8                         | 304                       | 150                       | 3433                      | 12.0                      | 70                        | 1                         | amc rebel sst             | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  mpg cylinders displacement horsepower weight acceleration year origin\n",
       "1 18  8         307          130        3504   12.0         70   1     \n",
       "2 15  8         350          165        3693   11.5         70   1     \n",
       "3 18  8         318          150        3436   11.0         70   1     \n",
       "4 16  8         304          150        3433   12.0         70   1     \n",
       "  name                     \n",
       "1 chevrolet chevelle malibu\n",
       "2 buick skylark 320        \n",
       "3 plymouth satellite       \n",
       "4 amc rebel sst            "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "Auto[1:4, ]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>dim()</code> nám povie, že dáta majú 397 záznamov, alebo riadkov, a deväť premenných/variables, alebo stĺpcov. \n",
    "Je niekoľko spôsobom ako si poradiť s chýbajúcimi dátmi. \n",
    "V tomto prípade máme len 5 riadkov, ktoré obsahujú chýbajúce záznamy a tak vyberieme funkciu <code>na.omit()</code>, ktorá jednoducho vymaže dané riadky. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 434,
   "metadata": {},
   "outputs": [],
   "source": [
    "Auto = na.omit(Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 435,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>392</li>\n",
       "\t<li>9</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 392\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 392\n",
       "2. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 392   9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "dim(Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Raz keď sú dáta načítané správne, môžeme zavolať funkciu <code>na.omit()</code>, ktorá skontroluje a vypíše názvy premenných. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 436,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'mpg'</li>\n",
       "\t<li>'cylinders'</li>\n",
       "\t<li>'displacement'</li>\n",
       "\t<li>'horsepower'</li>\n",
       "\t<li>'weight'</li>\n",
       "\t<li>'acceleration'</li>\n",
       "\t<li>'year'</li>\n",
       "\t<li>'origin'</li>\n",
       "\t<li>'name'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'mpg'\n",
       "\\item 'cylinders'\n",
       "\\item 'displacement'\n",
       "\\item 'horsepower'\n",
       "\\item 'weight'\n",
       "\\item 'acceleration'\n",
       "\\item 'year'\n",
       "\\item 'origin'\n",
       "\\item 'name'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'mpg'\n",
       "2. 'cylinders'\n",
       "3. 'displacement'\n",
       "4. 'horsepower'\n",
       "5. 'weight'\n",
       "6. 'acceleration'\n",
       "7. 'year'\n",
       "8. 'origin'\n",
       "9. 'name'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"mpg\"          \"cylinders\"    \"displacement\" \"horsepower\"   \"weight\"      \n",
       "[6] \"acceleration\" \"year\"         \"origin\"       \"name\"        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "names(Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h2>Dodatočné grafické a numerické zhrnutie</h2>\n",
    "<p>\n",
    "Môžeme použiť funkciu <code>plot()</code> na vyprodukovanie scatterplots kvantitatívnych premenných. \n",
    "    Avšak, jednoducho keď napíšeme názvy premenných, tak sa objavý chybná hláška, pretože R nevie sa pozrieť do Auto dátovej množiny pre tieto premenné. \n",
    "    \n",
    "</p>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<code>plot(cylinders, mpg)</code>\n",
    "<code>Error in plot(cylinders, mpg): object 'cylinders' not found\n",
    "\n",
    "Traceback:\n",
    "\n",
    "1. plot(cylinders, mpg)</code>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Na to aby sme odkazovali na premennú, musíme napísať dátovú množinu a názov premennej s znakom <code>$</code>. \n",
    "Alternatívne môžeme použiť funkciu <code>attach()</code> na to, aby povedalo R, aby vyrobilo premenné v tejto dátovej množine, ak sú prístupne menom. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 437,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAc6ElEQVR4nO3d60LiOhQG0Jabilze/23HghccTQ10QwJZ64dwDiMB248mO2np\n9sBkXekXAI9AkCCAIEEAQYIAggQBBAkCCBIEECQIIEgQQJAggCBBAEGCAIIEAQQJAggSBBAk\nCCBIEECQIIAgQQBBggCCBAEECQIIEgQQJAggSBBAkCCAIEEAQYIAggQBBAkCCBIEECQIIEgQ\nQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIIAgQQBBggCCBAEECQIIEgQQJAggSBBAkCCA\nIEEAQYIAggQBBAkCCBIEECQIIEgQQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIIAgQQBB\nggCCBAEECQIIEgQQJAggSBBAkCCAIEEAQYIAggQBBAkCCBIEECQIIEgQQJAggCBBAEGCAIIE\nAQQJAggSBBAkCCBIEECQIIAgQQBBggCCBAEECQIIEgQQJAggSBDgBkHq4M5csJfHB6dAExBJ\nkCCAIEEAQYIAggQBBAkCCBIEECQIIEgQQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIIAg\nneOiM4ppgSDlO6RIlPiNIOXrTn7CN4KUrfvvFr4IUjZBIk2QsgkSaYKUzxiJJEHKp2pHkiCd\nwzwSCYIEAQQJAggSBBAkCCBIEECQIIAgQQBBggCCBAEECQIIEgQQJAggSBBAkCCAIEEAQYIA\nggQBBAkCCBIEECQIIEgQQJDO4SpCJAhSPte1I0mQ8rnSKkmClM21v0kTpGyCRJogZeveiw1V\nvjgKE6R8ig0kCVI+QSJJkLLp2pEmSNkEiTRByta9d+2qfHEUJkj5TMiSJEjZHJFIE6Rsxkik\nCVI2KxtIE6R8xkgkCVI+E7IkCdI5VBpIECQIIEjncEQiQZDyGSORJEj5VO1IEqRs5pFIE6Rs\nVjaQJkjZrLUjTZDyGSORJEjZHJFIE6RsxkikCVI2VTvSBCmfMRJJgpTPygaSBOkcKg0kCBIE\nECQIIEgQQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIIAgQQBBggCCBAEECQII0jmc2EeC\nIOVzqjlJgpTPxU9IEqRsLsdFmiBlEyTSBCmbIJEmSPmMkUgSpHyqdiQJ0jnMI5EgSBBAkM7h\niESCIOUzRiJJkPKp2pEkSNnMI5EmSNkEiTRByiZIpN00SK9Pi26wWL1eq4lrMkYi6YZB2s26\nL/OrNHFdqnYk3TBIq65/2Rzubdd9t7pGE9dmHomEGwap7zaf9zddf40moJAbBunbp/n4R7sg\ncWcckSDAbcdI6+3h3t2OkSDhluXv+UnVbra7ShNQxm3nkVaHeaR+8XSX80iQZGUDBKgnSN2p\n6zQB11IkSH8GRZC4M4IEAW46IZvdexMk7swNg/TaCxKP6pZdu92imx9mZHXteDS3HSO9dN3L\n/o6DpJ5Iwo2LDdt5t9jda5Ccj0TSzat2T12/vtcgnfyEb25f/t7M/u4gVbmzumYDaSXmkZZ3\nG6TDR0CVL47C6lkidOMmzte9j5GqfHEUJkj5ukOK6nxtFCZI2RyRSBOkbN37EanKF0dhgpRN\n1Y40Qcr2fihyROIXgpTNGIk0QcqnakeSIOWz1o4kQTqHfh0JggQBBAkCCBIEECQIIEjnUGwg\nQZDyKX+TJEj5TMg6IicJUrbmlwg5Io8QpGzNL1p18ZcRgpSt9dMoWn//4wQpW+tHJEEaI0jZ\nWv/yJkEaI0j52s6RMdIoQcrXetWq9fc/SpCyuUBky7X/vwhSNmME0gQpmyCRJkj5LBEiSZDy\ntV61Y4Qg5RMkkgQpW+srGxgjSNmUv0kTpGzNn0bBCEHKpmtHmiBlc0QiTZCytb76mzGClE2x\ngTRByuc0ApIEKZ/TCEgSpHMYIJEgSPdEkKslSPdD17JignQ/FDsqJkh3w4mFNROkuyFINROk\ncxQd7AtSzQQpX+kVQsZIFROkfKWrZqXbZ4QgZavgNArzSNUSpGzGKKQJUjZBIk2QsnXv17Wr\n8sVRmCDlM9gnSZDylS5/UzFByuYMWdIEKZtiA2mClE2QSBOkfJbokCRI+VTtSBKkc6jZkSBI\n5xAkEgQpn64dSYKUz1dfkiRI2VxEnzRBylbB+UhUS5CymZAlTZCyOY2CNEHKZoxEmiDlU7Uj\nSZCy+cY+0gQpmyCRJkjZFBtIE6RsjkikCVI2VTvSBCmbrh1pgpRN1440Qcqma0eaIGXTtSNN\nkLI5IpEmSNmMkUgTpGy6dqQJUjZdO9IEKZuuHWmClE2QSBOkbLp2pAlStm7va11IEaRsjkik\nCVI2QSJNkLKZRyJNkLI5IpEmSNkUG0gTpHzdyU/4RpDymY8lSZDyCRJJgpTPlVZJEqRs1tqR\nJkjZlL9JE6RsvmjMp0iaIGVrPki+jHqEIGVrvmtnHm2EIGVrfa1d998tpwQpX+NFO0EaI0j5\nBOnbLacEKV/rE7LGSCMEKVvzE7KqdiMEKVvzVbvG3/w4QcrWetWOMYKUrfmuHSMEKZuuHWmC\nlE3XjjRByuaIRJogZTNGIk2QsgkSaYKUTdeONEHK5ohEmiBlEyTSBCmbrh1pgpTNPBJpgpRN\n1440QcomSKQJUrbmryLECEHKpthAmiBl07UjTZCydXtfNEaKIOVzQCJJkPK5+AdJgpTNhCxp\ngpTNBRKVLNMEKVvzQdK1HSFI2ZqfkHWl1RGClK/xql3zR+RRE4PUfZmvwl5UpdtKkL7dciou\nSF3X//Wbr0+Lwz9crF7DX9UNNH4RfUEaM7Vrt+zXbz/Xffe6X3Tjx6Td7PT4Ff2qrq/5HckY\nacTEIK26zeF285aMXTcb/b1V178c//X2LXijoatyYwmSql3a5K7dyZ0//sb9e+gGm/F+YJUb\nq/kgmUcaMTFI/ecRqf8zSN2vCYx6VTega0PS5K7dxxhptX/5Y+Bz70ckXRvSphYb5l/Fg657\nHv29IXTbw737HCPtdW1Imjwhux4q2ovhsNQ9/fGL85Oq3WwX/KpuoPF5JMbcdGXD6+owj9Qv\nnu5zHknXjhRLhLI5jYK0yUF6GQ4yy3XAKzk1/eniufgJaVHFhkX+7z/33Wy8LFHtEenkBk6F\nlb//iMZgs+j65/3T3S4REiSSwiZkx5cHHf/NYNUtd/vtYjx4Ve6runakRS4R+sNymDtaHWdi\n/1iXV+W+WvUAjsLCFq3+PUg67oHv//AulwjJESlTiw1PhzHSaz8+5jn+3uEXX459OkuEeCiR\nJ/b9sY8th9HR0W55h0uEur0rrZJywyDt+pMR1fjZtFXuq06jIO2mKxtWH/Hp/7i+Q5X7qiCR\nZolQPucjkSRI+VTtSJoapFV/jdmVOndWQSJp8jzSVaYp69xZde1Imly1y1hjN62Jaig2WB+V\nFrVEKFaVm6v5IJmQHjG5azd6yvilqtxYgnTyk/9MPh9pvo16KakmqtH4jtT8B8moqUFat1Rs\naLtrI0hjJgbpqaWqXeODbUEaM/nEvnaqdvvGg9R613acql2+xrt2zb//UZO7du1U7XwiN35E\nHjX5xL75H9d6vEiVm8sYgbS485HCXtK+0n1VkEgTpGzOkCXNaRT5rP4mSZDyqVqRNClIx1PH\nn2fdX6eOX95ERVxEn7QJQXq/mMnhm1q6PrQMXuW+6kqrpE0I0qqbv6XndfjOsN18/PJaN3hV\n1+fa36RNCFJ/mIxddsMVInd/XF/rwiaqIkikXR6k7oeir+r6dO1Im3pEWh/7dG0ckdS/SZkQ\npOGyw7vZ4Sr6u0UDY6T9e9Wu9MugRhOCtD18PC8P/6vrQ0+UrXNnNY9E0pR5pM38YwKpX8Yu\nAq9zZ3VEIsnKhmyKDaQJUjblb9ImB+ll+F7zxUvQy/m1iUpY/U3a5MtxvZeEM76x79ImaqFr\nR9rEID13h6++XAdfBKXKfVWQSJsYpNnnlzGPfkv5lCaqYfU3aVFXEWrhDFlHJJLCjkgtLBFy\nRCLFGCmb8rfDcZqqXbbmu3aWSI2YPo+0MI/UiO7kJ/+xsiFf42vtXNdvrDsiSPkaPx2p+SCN\ndm2jyt/941ftBOn7bXNGu7ZBQdo2MY/UePm78THS+AfJhCB9fVnfoIWVDap2LVftrhak/ew0\nR6FfSlHlxjKP1PKnyDWDtL/aXlXl5hKkxl1zjHQlVe6rzXftWnfNqt2VVLmvuhxX8643j9TS\n9yO1PiHLGEHK13jVijExXbvX+WL6SxlvogKOSCQFjZF2xwtFRqlyZ21+0SojoooNDXTtVO1I\nCwrScxtnyJ7cwKmwYsNT2EvaCxJ3JyhIs9AzzWsNkq4dKSZksyk2kBYUpM3q8cdIFcwjlT4c\nlm6/YhFB2j7NugaKDcWD1Hr7VZscpN3LcDbFfB30en5rohLFu3alT6wr3X7VJgbp5Xg5rtCv\n69tXurFKn2rdevt1mxKk9fItQ/1qE3+0r3Jbld6RWm+/bhOC1A8pGk6MbSRIpdfald6RS7df\ntwlB6j6+ybyZIBU+Han0GMWi3RGOSPmKB0nVrl4BY6TXRoJUwRKhsvM4jkgjVO2ytT5GaP39\njwuaR1q0MY/07bY1rb//cVY2ZKuga1eUII2x1i5f64Pt0lXDqln9na901a601j9IRgnSOVqO\n0aD19z9CkPL5RCZJkPIZI5AkSNmKn0ZBxQQpm2s2tP3mxwlSttbnkYwRxwhSNkE6+cl/BClb\n61/rYow4RpCyNR8kY8QRgpSv8dMImu/ajn6KCFI2R6TTmwb56ssYgtR412602HJfQSq6FVv/\nRG692DB+Gsk9BanwPEbrQWq9/P1AQbpV87/TtWl7QvZhglT6DM3uvWrX7J7U9KfI/nHGSKWD\n1Ponsvf/IFW7CoLUctGueNe6Ag8yj1R+Q7Yco/IfZFW7qyA13rUoTJDG3FOQyh8RSrdflCCN\nua8gldX6EbF817pigpSv9R2p9Q+SUYKUrfUlMvvGu7b7h6naFWZlQ+NHpEeZRyrNWruTny16\nlJUNpbUepNardg+z1q601rt2gvT99vdHL3jCK6pyW7VebBCk77e/P3rBE15RndvKGOHrZ4uM\nkYKoWjW+aFfVLkrLu5EgmUciROOXIxsnSOdo+vO49arlOEHK1/gYqfV5tHGClK/xqlXr5e9x\ngpSt9R3JEWmMIGUTJGOkNEHK1vrKBlW7MYKUr/FiQ/Pvf5Qg5Wt9R3JEGiFI2Vrv2rU+Rhwn\nSNla35Faf//jBClb6ztS6+9/nCDla32M0PiE9DhBytd8saHx9z/qvoJUdjaw9SNS6b9/1e4p\nSMW/sa/xmX1HpBF3FaRbNf+75teaGSONuKMgla4alW6/tNbf/zhBytb6Ean0379ugpSt9TFS\n6b9/3e4oSMX76K1X7Ur//at2V0EqXDVq/So6rb//UfcUpNL9qtZ3pNbf/6j7ClJRrRcbdO3G\nCFK21gfbrZ9GMk6QsjUfpMarluMEKVvrXbvW3/84QcpXumpYWPde/m/2DzBKkPI1XrXStRsj\nSOdoei9yRBpz0yC9Pi0On+mL1eu1muBqHJHG3DBIu1n3ZX6VJrgiQRpzwyCtuv5lc7i3Xffd\n6hpNPLqie7F5pDE3DFLfbT7vb7r+Gk08tuJnCDc/RqrjG/u+vYjxzdHwthpReIlO8127Wr5D\n1hFpmuIrK5xG8vUz8eAFz3e+tzHSenu4d7djpNJjlG+3N2//Q6H2SxsfI96y/D0/qdrNdldp\n4qpKj1H+u715+60HabRre9t5pNVhHqlfPN3lPFLp0wiKj5FOb9ozXmyxsiFb6SNC8SNi41W7\nio5I40976jpNTFM8SKXHaI1X7eoJ0m7ZdfP1x6u6ShPXVEGQimr+iFRLsWHXHxfaHZ/k/oJU\neoxSmjHS6c2PRy94wgtfyKp7fkvTcz8feTkTm7iu5s9H0rWromvXH39x28+29xmklveivbV2\n4xPSBZYI7ebzew1S2xrv2lazRGjWfUzCzuaCdIcqrqjeSB2LVp+75fu9bTcXpPvTepBqOSLt\nV58vYv3H9mh3Y9Ws+a7dyc/Egxc83yU2i49726Ug3ZvWiw3VzCPV1QTnqnrZyQ1UU/6uqwnO\nZR7p9ObHoxc84ZRXM62J0luxdPtFNb9E6GGCVHplQen2C3NEepSuXemqUen2C2v+iPQoxYbS\nq69Lt19a64tWKyp/T2ui9I5cuv3SWu/a1TMhO7GJ0jty6fZLa738va9lidDkJkqPUUq3X1rr\nl+MadVdBUrUrqvkD0qMckcp30Eu3X1brQXqUMRJlqdqd/Ew8eMHzXVWz26pmzRdb/rv9/dEL\nnvCKWt1WVROk77e/P3rBE15Rq9uqaq137R5mZQOFKTaMvH9BIpcg7dMH5PsKUunNWLr9shqf\nkH2ci+iXnhAt3X5hra+1cxpFlNLtF9Z8sWH0/d9RkEqXX0u3X1rz71+QYpRuvzRHpAfp2pXe\nkUu3X1rrp1GMv/87ClLxMUrp9ktrO0d/VC3vKkiqdkV5//v0+7+nIJWvvZZuv6jWL37yOEck\nijKP9CDFBspStTu9+fHoBU845dVU0wTnaj5I/93+/ugFT3hFrW6rqunand78ePSCJ5zyaqpp\ngnOZRzJGIkLjq79V7YjR9gHpj/cvSOQSJEEiQPNLpHTtCGDRrmIDAQTp9ObHoxc84ZRXU00T\nnKv5IP13+/ujFzzhFbW6rerW+BjJEYkYjZ9GYYxElJaL36p2BGn8iPRIJ/ZRUuNjJEckQqja\nfb/9/dELnvCKWt1WVev2Y9/G8PgEiRDNn4/03+3vj17whFfU6raqmzHS18/Egxc831W1u7Eq\n1vqJfVZ/E0KQBIkArV/8RNeOEK0HSbGBEKp2329/f/SCJ7yiVrdV1cwjfb/9/dELnvCKWt1W\ndVP+/vqZePCC57uqdjdWzSxa3affvyCRr90B0tHI+xckyOOIBAGMkWA6VTsIIEgQQJAggjES\nBFC1I4h5JPNITGZlw94Riemstfv6mXjwgue7qnY3VsXGq1aPT9WOEIL0/fb3Ry94witqdVtV\nTZC+3/7+6AVPeEWtbqu6GSN9/Uw8eMHzXVW7G6tmqnauIkSItueRBAkC6NrBdIoNEECQIIAg\nQQRjJAhg0SqEcBoFTOaIBAGMkWA6VTsIIEgQQJAggjESBFC1gxDmkeC6BAkCCBIEECQIIEgQ\nQJAggCBBLuVvmMyELASwRAims2gVAggSBBAkiGCMBAFU7SCEeSS4LkGCAIIEAQQJAggSBBAk\nCCBIkEv5GyYzIQsBLBGC6SxahQCCBAEECSIYI0EAVTsIYR4JrkuQIIAgQQBBggCCBAEECQII\nEgQQJMhlHgkms7IBAlhrB9NZ/Q0BBAkCCBJEMEaCAKp2EKKWeaTXp0U3WKxer9UEFHHDIO1m\n3Zf5VZqAQm4YpFXXv2wO97brvltdowko5IZB6rvN5/1N11+jCSjkhkH6NlBLj9qmNAGFOCJB\ngNuOkdbbwz1jJO5SJeXv+UnVbra7ShNwNfVMyL6uDvNI/eLJPBJ3xxIhmO5eFq12p67TBFzu\nXoJ04ybgPIIEEYyRIEAtVbuuyx4GCRI1qmMe6VmQeFi37Npt+vGTJwKagDJuOkbajC8MimgC\nirhtseH5ZN3qlZqAElTtIIAgQQBBglx1lL/ragLOVMuEbF1NwJksEYLpLFqFAIIEAQQJIhgj\nQQBVOwhhHgmuS5AggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIIAgQQBBggCCBAEECQIIEgQQ\nJAggSBBAkCBApUGCO3PBXh4fnLtoW/vaD21fkLSv/dqe7I7a1r72BUn72q+tfUHSvvZre7I7\nalv72hck7Wu/tvYFSfvar+3J7qht7WtfkLSv/draFyTta7+2J7ujtrWv/YcJEjwMQYIAggQB\nBAkCCBIEECQIIEgQQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQIECpIO2WXbfcFGr83WvB\nT5GLL9YeZTNsgG2p1idcrT7GbtV3/WoX94Sl3kl/+DMWTdKuL7cfb0oHaX1ovg/ck87ykaO+\nUPvb4/7Xx32SFNqUq245/FiUaf1oUXA/3pR9628fZP1mv1t0q6IvYt29Fmp5eXjnh70wSKF9\nqe+Gz8KSXZv9S8kDwnP3VKztwcthR9oVOyIc7Ppinybvmz5wDyhabCi5HbfdvGiQnou1PViW\n7VUfLbpSPcv9e68+cAcsGaRVyb1p3m0LBmnRrZdvg91i7c+6/VPfLYvtyINNwY7l03vXLq5f\nUG5feutaFeyhP3UvJXuWi+NYe16q/a5blBzrHxQ8IL11CYZqQx/4QV6wd7Poyw0UDoP9gkHq\n3nK835U7JL/tRJthCqLgSG0TONI/39Phgyzw7RcdIy2L7UizofBbtNYx2HWzQi0fZx62xdrf\nD/2qdbnGn4fe0C5y/yu6LxWrGi0PG7F4kMq9gviq1dkKzuINY8ShWxn5QVZ2Xyq1Iad8D3zs\n6yjU8KJ4kMrOpD1M+fs4j1Ssa1E8SB/vv9TO9HQ4JG/LVTsKTwAcD4eRPaKSKxt2i7KzKQU/\nj1eHPnq5YcLbR9huGCO8FGp/OCaWnMl6+/vv3rdCkLJr7cp9IA4KBml3fP8lJ1IK//1nJYvf\nwzRi8Psvti+t+m5Wdna/6FB7V/r9r+clJ4TLV3oOq78Dn6944QoegSBBAEGCAIIEAQQJAggS\nBBAkCCBIEECQIIAgQQBBggCCBAEECQIIEgQQJAggSBBAkCCAIEEAQYIAggQBBAkCCBIEECQI\nIEgQQJAggCBBAEGCAIIEAQQJAggSBBAkCCBIEECQ7oQNVTfbp7D+ly8E/vHNstvl8P1yqe+K\nHL787tcvwCv9rXgt8acua911P76Refb/Rtkcv4E99RXcglQBf+qylt3hC96/+bH/z7vVrtvN\nU9/dnMyLIN2OP3VZb4eZ/v9t8GP/Pxxy9rvUIUmQKuBPXdTL21Fm1b0Md497/dvPQzduuP88\ne//i877bfW2oVd/Nt2+pmh3+a7j96Np13XbR9U8f/2q1/3ya/vn43LtZtzh8oXk3/zEOYxJB\nKmreve5fu/lw90eQ5oc7w2OrbrbuPn9jGC3t9ou339wPSXw6CVI/PPj08a8Wh6dZfD7N4f+s\n9s/HEdfz7d/tIxOkko69teGAcxKk93svXb/Zb/rD4Wr5tuMv34Mz3w0Dq/36OLRadtuTIL09\n9jwcqj5+txuqGW//8218tX5/fGhuM/yLWZm3/KgEqaSXQ/3g2Lf7P0iLQzVvfTxcbVbDEebw\nf1/f8zc7xm+2PwnS6/szHA9X6+Pd4Z/thl8+Pr7/WSZkOkEqaXbYtTeHo8P/QXqvFHwUDLr1\nbOiNfdUPnoc+3Ovw4ytI35/h/e67z//7lsnFZnOjd9gMQSpo+7mXb/8O0rG+8BWkw2Hp6eM3\nzwjS/mkYSvXbW73LNghSQU+fe/lTRpD+n3hdvXXRZrP9n0H6/IWvu+vVzBgpliAVNOuOh4Xt\n57Hm9ecYafFR/j4cguafY6S3HuF8cyjR/QzS8Xdfv+7uPx7Z//ofTObPWc7mUD4YzLvNfhgC\n7ebv80H7b1W7Zbf4WNnwPFTeVsc1DrOuP/zLn0Faf1XtDk/z9muLz+zMhqdUtQsmSOWsPg8W\n64/pncPUz+y4rO5rHmnXf621+5hHOvzWMQ0/g3ScPFqeTEf1n6OwtwwdvN72zT46QSqn77/d\nfeq75WFnf50dM/Pcv69s2G9XX6u/h6LbsUe4O06+/hak4clOVjZ0y+3+qzd3WNkgR7EE6U78\nsqHWXaf0VgtBuhO/bKi5ZT71EKR79T5+og6CdK/6z5ofFRAkCCBIEECQIIAgQQBBggCCBAEE\nCQIIEgQQJAggSBBAkCCAIEEAQYIAggQBBAkCCBIEECQIIEgQQJAggCBBAEGCAIIEAQQJAggS\nBBAkCCBIEECQIMA/zi63SI8vwf4AAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(Auto$cylinders, Auto$mpg)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 438,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "The following objects are masked from Auto (pos = 3):\n",
      "\n",
      "    acceleration, cylinders, displacement, horsepower, mpg, name,\n",
      "    origin, weight, year\n",
      "\n",
      "The following objects are masked from Auto (pos = 4):\n",
      "\n",
      "    acceleration, cylinders, displacement, horsepower, mpg, name,\n",
      "    origin, weight, year\n",
      "\n",
      "The following objects are masked from Auto (pos = 5):\n",
      "\n",
      "    acceleration, cylinders, displacement, horsepower, mpg, name,\n",
      "    origin, weight, year\n",
      "\n"
     ]
    }
   ],
   "source": [
    "attach(Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 439,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAauUlEQVR4nO3d7ULiOBiA0RYQvxDu/25XUEecNZ0Ab3kDOeeHOsssgYGHpmnB\nYQdcbMi+AXAPhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQBrhDSADfmjGd5fDgJQ0AkIUEAIUEAIUEAIUEA\nIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIUEAIZ3irHcU0wMh1TtUJCV+\nI6R6w9FX+EFI1Ya/vsM3IVUTEmVCqiYkyoRUzz4SRUKqZ9WOIiGdwnEkCoQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYR0\nCp8iRIGQ6vlcO4qEVM8nrVIkpGo++5syIVUTEmVCqjZ8LjY0eeNIJqR6FhsoElI9IVEkpGqm\ndpQJqZqQKBNSteFzatfkjSOZkOo5IEuRkKrZIlEmpGr2kSgTUjVnNlAmpHr2kSgSUj0HZCkS\n0imsNFAgJAggpFPYIlEgpHr2kSgSUj2rdhQJqZrjSJQJqZozGygTUjXn2lEmpHr2kSgSUjVb\nJMqEVM0+EmVCqmbVjjIh1bOPRJGQ6jmzgSIhncJKAwVCggBCggBCggBCggBCggBCggBCggBC\nggBCggBCggBCggBCggBCggBCggBCggBCggBCOoU39lEgpHreak6RkOr58BOKhFTNx3FRJqRq\nQqJMSNWERJmQ6tlHokhI9azaUSSkUziORIGQIICQTmGLRIGQ6tlHokhI9azaUSSkao4jUSak\nakKiTEjVhETZVUN6fVwNe6v161xDzMk+EkVXDGm7GL4tZxliXlbtKLpiSOthfN4cfnp7GYf1\nHEPMzXEkCq4Y0jhs/vy8GcY5hoAkVwzpx6v59Eu7kLgxtkgQ4Lr7SC9vh59udh8JCq65/L08\nWrVbbGcZAnJc9zjS+nAcaVw93uRxJChyZgMEaCek4dg8Q8BcUkL6ZyhC4sYICQJc9YBs9exN\nSNyYK4b0OgqJe3XNqd12NSwPR2RN7bg3191Heh6G590Nh2Q9kYIrLza8LYfV9lZD8n4kiq6+\navc4jC+3GtLRV/jh+svfm8W/J0hNPll9ZgNlGceRHm42pMNLQJM3jmTtnCJ05SFON3zuIzV5\n40gmpHrDoaI2bxvJhFTNFokyIVUbPrdITd44kgmpmlU7yoRU7XNTZIvEL4RUzT4SZUKqZ9WO\nIiHVc64dRUI6hXkdBUKCAEKCAEKCAEKCAEI6hcUGCoRUz/I3RUKq54CsLXKRkKp1f4qQLfIE\nIVXr/qRVH/4yQUjVen8bRe/3f5qQqvW+RRLSFCFV6/2XNwlpipDq9d2RfaRJQqrX+6pV7/d/\nkpCq+YDIntf+/0VI1ewjUCakakKiTEj1nCJEkZDq9b5qxwQh1RMSRUKq1vuZDUwRUjXL35QJ\nqVr3b6NggpCqmdpRJqRqtkiUCala72d/M0VI1Sw2UCaket5GQJGQ6nkbAUVCOoUdJAqEdEuE\n3Cwh3Q5Ty4YJ6XZY7GiYkG6GNxa2TEg3Q0gtE9IpUnf2hdQyIdXLPkPIPlLDhFQve9Use3wm\nCKlaA2+jcBypWUKqZh+FMiFVExJlQqo2fH6uXZM3jmRCqmdnnyIh1cte/qZhQqrmHbKUCama\nxQbKhFRNSJQJqZ5TdCgSUj2rdhQJ6RTW7CgQ0imERIGQ6pnaUSSken71JUVCquZD9CkTUrUG\n3o9Es4RUzQFZyoRUzdsoKBNSNftIlAmpnlU7ioRUzW/so0xI1YREmZCqWWygTEjVbJEoE1I1\nq3aUCamaqR1lQqpmakeZkKqZ2lEmpGqmdpQJqZotEmVCqmYfiTIhVTO1o0xI1UztKBNSNVM7\nyoRUTUiUCamaqR1lQqo27PxaF0qEVM0WiTIhVRMSZUKq5jgSZUKqZotEmZCqWWygTEj1hqOv\n8IOQ6jkeS5GQ6gmJIiHV80mrFAmpmnPtKBNSNcvflAmpml805lWkTEjVug/JL6OeIKRq3U/t\nHEebIKRqvZ9rN/z1nWNCqtf5op2QpgipnpB+fOeYkOr1fkDWPtIEIVXr/oCsVbsJQqrW/apd\n53d+mpCq9b5qxxQhVet+ascEIVUztaNMSNVM7SgTUjVbJMqEVM0+EmVCqiYkyoRUzdSOMiFV\ns0WiTEjVhESZkKqZ2lEmpGqOI1EmpGqmdpQJqZqQKBNSte4/RYgJQqpmsYEyIVUztaNMSNWG\nnV80RomQ6tkgUSSkej78gyIhVXNAljIhVfMBiZYsy4RUrfuQTG0nCKla9wdkfdLqBCHV63zV\nrvst8iQh1RPSj+8cu2pIr4+rw1NxtX6da4g5df4h+kKacsWQtovh23KWIWbV/RPJPtKEK4a0\nHsbnzeGnt5dxWM8xxKyEZNWu7IohjcPmz8+bYZxjiFl1H5LjSBOuGNKPB2H6EWnz4TK1ocgW\nqZ6pDUXX3Ud6eTv8dJv7SDtTG4quufy9PFq1W2xnGWJWnR9HYsp1jyOtD8eRxtXjbR5HMrWj\nxJkN1byNgrJ2QhqOzTPEZXz4CWUJIT2Nw+Jp3iFm0f3Z30y4Zkib1TA+7R5v9hQhIVF0xZA2\nh4LWw8N297YaJrdJTT5XTe0ou2JID/tjR+uPI7HbYTHHELNqegeOZFc/RWhYHf0heoh56Yii\nq4f0/DGnc4oQd+WqU7uHr9MZtg83eIrQsPNJq5Rc8419459X82F6g9Tmc9XbKCi76nGk9Vc+\n4+T2qNHnqpAoa+fMhisPcQbvR6JISPWs2lEkpHpCokhI9UztKBJSNYsNzo8quzCk40+q+8dK\n3LlDNKP7kByQnhAX0r+ODc18q+YnpKOv/OXSqd3D+PL+9WUcXner6bMVzh6iGZ0/kbp/IZl0\nYUjrz4/Y2gzLf53Rfe4Q7eh8aiOkKRdP7Y5+iHuOtfpYdb2zLaQpF4Y0/tkijUK6d51Pbadd\nPLX72kda757/8f7xeW/VFXQ+tev+/k+6dLHh60Mfl/t/4n98pMmst+oKvCL3vUWedPEB2Zf9\nZz6u9pul4THmJv1viEbYR6DMmQ3VhESZkKp5hyxlF4f0vJ/aPbwE3Zxfh2iFs78pilpsWEXd\noP8P0QyrVhSFLX+Hrdj9PUQzfIg+ZWEHZMNOD/p7iGb4pFXKIk8RitPkc9Vnf1MWdtJq6E5S\nk89VIVF26WLD42Ef6XUMOzvo/0O0wtSOssg39t35Sas+RJ8yIdX7XLXLvhm0yJkN9RxHokhI\n9WyRKBJSNYsNlF0a0nqcYxe8yeeq5W/KLj6ONMtaVpPPVWd/U3bxql3oOXa/DdEMUzvKok4R\nitXkc1VIlF08tdsW/94FmnyuOvubsovfj7R8i7oppSFaYYtE2aUhvXS02GCLRNGFIT32tGpn\n+dvmuOjiN/ZZteuGU6QmWLWr1v1xpOHoK3+5eGrXz6pd7+faDX9979DEdOTiN/YtX0+/htOG\naEbnb0fqPqTJqW3c+5HOuWk1Q7RDSD++d2dyaiukat0vf3e+jzT9QuJtFNWs2vW9aiekII4j\n9fwqIqQwQurcnPtIM2nyudr91K53c67azaTJ56qP4+rejMeR5tHmc7XzA7JMEVK9zletmCKk\nerZIFAmpWvcnrTJBSNWs2lEmpGqOI1EmpGpCokxI1UztKBNSNYsNlAmpXv5xpOzNYfb4DRNS\nveyQeh+/aUKqlj61y35jXfb4TRNStey3Wvc+ftuEVC37idT7+G0TUr3kc+2yn8jZ47dNSPWy\n346UvY/ipN0JQqqXHpJVu3YJqVoDpwjlHsexRZogpGq97yP0fv+nCala70+k3u//NCFVa2Bq\nl0pIU4RUr/ed7exVw6YJqV72ql223l9IJgnpFD1ntNf7/Z8gpHpekSkSUj37CBQJqVr62yho\nmJCq+cyGvu/8NCFV6/04kn3EKUKqJqSjr/xFSNV6/7Uu9hGnCKla9yHZR5wgpHqdv42g+6nt\n5KuIkKrZIh1/65BffRlDSJ1P7SYXW24rpNRHsfdX5N4XG6bfRnJLISUfx+g9pN6Xv+8opGsN\n/ztTm74PyN5NSNnv0Bw+V+26fSZ1/Sqyu599pOyQen9Fdv/vZNWugZB6XrRLn1o34E6OI+U/\nkD1nlP9C1rSbCqnzqUUyIU25pZDytwjZ46cS0pTbCilX71vE/Kl1w4RUr/cnUu8vJJOEVK33\nU2R2nU9td3ezapfMmQ2db5Hu5ThSNufaHX3t0b2c2ZCt95B6X7W7m3PtsvU+tRPSz++/X3rG\nFc6oyceq98UGIf38/vulZ1zhjNp8rOwjfH/tkX2kIFatOj9p16pdlJ6fRkJyHIkQnX8c2TQh\nnaLr1+PeVy2nCale5/tIvR9Hmyakep2vWvW+/D1NSNV6fyLZIk0RUjUh2UcqE1K13s9ssGo3\nRUj1Ol9s6P7+TxJSvd6fSLZIE4RUrfepXe/7iNOEVK33J1Lv93+akKr1/kTq/f5PE1K93vcR\nOj8gPU1I9bpfbOj8/k+6rZByjwb2vkXK/vdv2i2FlP4b+zo/sm+LNOGmQrrW8L/r/lwz+0gT\nbiik7FWj7PGz9X7/pwmpWu9bpOx//7YJqVrv+0jZ//5tu6GQ0ufova/aZf/7N+2mQkpeNer9\nU3R6v/+Tbimk7HlV70+k3u//pNsKKVXviw2mdlOEVK33ne3e30YyTUjVug+p81XLaUKq1vvU\nrvf7P01I9bJXDZMNn8v/3f4DTBJSvc5XrUztpgjpFF0/i2yRplw1pNfH1eE1fbV+nWsIZmOL\nNOWKIW0Xw7flLEMwIyFNuWJI62F83hx+ensZh/UcQ9y71Gex40hTrhjSOGz+/LwZxjmGuG/p\n7xDufh+pjd/Y9+NGTD8cHT9WE5JP0el+atfK75C1RbpM+pkV3kby/bVw4RnXd7r3faSXt8NP\nN7uPlL2P8uP71cf/kjR+tul9xGsufy+PVu0W21mGmFX2Pspf368+fu8hTU5tr3scaX04jjSu\nHm/yOFL22wjS95GOv/VnerHFmQ3VsrcI6VvEzlftGtoiTV/tsXmGuEx6SNn7aJ2v2rUT0vZh\nGJYvX7dqliHm1EBIqbrfIrWy2LAdP060+7iS2wspex8lm32k42//u/SMKzzzhqyHp/eansbl\nxM25cIh5df9+JFO7JqZ248f/+DYu3m4zpJ6fRTvn2k0fkE44RWi7XN5qSH3rfGrbzClCi+Hr\nIOxiKaQb1PCK6pW0cdLq0/Dw+dPbsBTS7ek9pFa2SLv1nxvx8o/Ho98Hq2XdT+2OvhYuPOP6\nzrFZff309iCkW9P7YkMzx5HaGoJTNX3ayRU0s/zd1hCcynGk42//u/SMK7zk1lw2RPajmD1+\nqu5PEbqbkLLPLMgeP5kt0r1M7bJXjbLHT9b9FuleFhuyz77OHj9b7yetNrT8fdkQ2U/k7PGz\n9T61a+eA7IVDZD+Rs8fP1vvy966VU4QuHiJ7HyV7/Gy9fxzXpJsKyapdqu43SPeyRcqfoGeP\nn6v3kO5lH4lcVu2OvhYuPOP6ZtXtY9Wy7hdb/vr++6VnXOGMen2smiakn99/v/SMK5xRr49V\n03qf2t3NmQ0ks9gwcf+FRC0h7cob5NsKKfthzB4/V+cHZO/nQ/SzD4hmj5+s93PtvI0iSvb4\nybpfbJi8/zcUUvbya/b42bq//0KKkT1+NlukO5naZT+Rs8fP1vvbKKbv/w2FlL6Pkj1+tr47\n+seq5U2FZNUulfu/K9//Wwopf+01e/xUvX/4yf1skUjlONKdLDaQy6rd8bf/XXrGFV5ya5oZ\nglN1H9Jf33+/9IwrnFGvj1XTTO2Ov/3v0jOu8JJb08wQnMpxJPtIROj87G+rdsToe4P0j/sv\nJGoJSUgE6P4UKVM7Ajhp12IDAYR0/O1/l55xhZfcmmaG4FTdh/TX998vPeMKZ9TrY9W2zveR\nbJGI0fnbKOwjEaXnxW+rdgTpfIt0T2/sI1Pn+0i2SISwavfz+++XnnGFM+r1sWrasJv6bQz3\nT0iE6P79SH99//3SM65wRr0+Vm2zj/T9tXDhGdc3q34frIb1/sY+Z38TQkhCIkDvH35iakeI\n3kOy2EAIq3Y/v/9+6RlXOKNeH6umOY708/vvl55xhTPq9bFqm+Xv76+FC8+4vln1+2C1zEmr\nu/L9FxL1+t1B+jBx/4UEdWyRIIB9JLicVTsIICQIICSIYB8JAli1I4jjSI4jcTFnNuxskbic\nc+2+vxYuPOP6ZtXvg9Ww6VWr+2fVjhBC+vn990vPuMIZ9fpYNU1IP7//fukZVzijXh+rttlH\n+v5auPCM65tVvw9Wy6za+RQhQvR9HElIEMDUDi5nsQECCAkCCAki2EeCAE5ahRDeRgEXs0WC\nAPaR4HJW7SCAkCCAkCCCfSQIYNUOQjiOBPMSEgQQEgQQEgQQEgQQEgQQEtSy/A0Xc0AWAjhF\nCC7npFUIICQIICSIYB8JAli1gxCOI8G8hAQBhAQBhAQBhAQBhAQBhAS1LH/DxRyQhQBOEYLL\nOWkVAggJAggJIthHggBW7SCE40gwLyFBACFBACFBACFBACFBACFBACFBLceR4GLObIAAzrWD\nyzn7GwIICQIICSLYR4IAVu0gRCvHkV4fV8Peav061xCQ4oohbRfDt+UsQ0CSK4a0HsbnzeGn\nt5dxWM8xBCS5YkjjsPnz82YY5xgCklwxpB87auW9tkuGgCS2SBDguvtIL2+Hn+wjcZMaWf5e\nHq3aLbazDAGzaeeA7Ov6cBxpXD06jsTNcYoQXO5WTlodjs0zBJzvVkK68hBwGiFBBPtIEKCV\nVbthqN4NEhItauM40pOQuFvXnNptxuk3TwQMATmuuo+0mT4xKGIISHHdxYano/NWZxoCMli1\ngwBCggBCglptLH+3NQScqJUDsm0NASdyihBczkmrEEBIEEBIEME+EgSwagchHEeCeQkJAggJ\nAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAjQaEtyYM57l\n8eHcxNjGN37o+EIyvvFbu7IbGtv4xheS8Y3f2vhCMr7xW7uyGxrb+MYXkvGN39r4QjK+8Vu7\nshsa2/jGF5Lxjd/a+EIyvvFbu7IbGtv4xr+bkOBuCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCZIW0fRiGh03S4J9eE19Fzv6w9iib/QPwljX6BZ9WH2O7\nHodxvY27wqx7Mh7+GVNL2o55z+NNdkgvh+HHwGfSSb46GpPGf/t4/o1xryRJD+V6eNh/WeWM\n/mGV+Dze5N719xeycbPbroZ16o14GV6TRn443PPDszBI0nNpHPavhZlTm91z5gbhaXhMG3vv\n+fBE2qZtEQ62Y9qryedDH/gMSF1syHwc34ZlakhPaWPvPeTOqj+shqyZ5e5zVh/4BMwMaZ35\nbFoOb4khrYaXh/ed3bTxF8PucRwe0p7Ie5vEieXj59Qubl6Q91x6n1olztAfh+fMmeXqY197\nmTX+MKwy9/UPEjdI71OC/WrDGPhCnji7WY15OwqHnf3EkIb3jnfbvE3y+5Nosz8Ekbintgnc\n0z/d4+GFLPDup+4jPaQ9kRb7hd/UtY697bBIGvnjyMNb2vi7/bzqJW/wp/1saBv5/Et9LqWt\nGj0cHsT0kPJuQfyq1ckSj+Lt9xH308rIF7Lc51LWA3nJ74GPvR1JA6/SQ8o9knY3y98fx5HS\nphbpIX3d/6wn0+Nhk/yWt9qRfADgY3MYOSPKPLNhu8o9mpL4erw+zNHzdhPeX8K2+32E56Tx\n99vEzCNZ7//+289HIUjuuXZ5L4h7iSFtP+5/5oGU5H//Rebi9/4wYvD9T3surcdhkXt0P3VX\ne5t9/1+WmQeE81d6Dmd/B15f+sIV3AMhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAh\nQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAh\nQQAhQQAhQQAhQQAh3Yr9r7j79dfcZf/uO/Y8CLdCSE3zINyKYi9CaoEH4VYIqWkehDatx2H5\nttsOi8Of9t+/pnbD8LYaxsevv7X+DOlpMYyH35I+DNvFsDr82vJh+ZJ1+7sjpCa9RzAM43a3\nGl73f3weHo9CGvcXPn79rdUhpNX+x2G521/+/vN693T4D8NT6t3oiJBa9Dwst7uH9xxehof9\nnx+Gt6OQ3i972m+qnodxs9uM+//4sv+P2+Xw8nn5bjcOm/3fWCTfk24IqUWHDdF2GHe7xbCv\nYt/Dd0j7jdT+p4/N1cvHj/u/tt1P6T4uf/9mWndNQmrR9/rB034O97r/8h3S19/4/FsfP376\n81/X71O8zSbjxvdJSC36DumwWXp8n9mdGtLucb8rNb4l3PouCalFRyva6/cp2mKx+2dIv/y/\nL+uFfaRrEVKLln/2kXabYbk5LNH9P6TVYTfo9fvH3dclu1//wIz8Q7foab/yth7W+58Xw7if\n2f0S0sv3qt1hAe/9f1v9aWcxPFu1uyIhNenrONLusCp3qOH/IX0cPHo4/Hj4Hw67RJ8hPX/s\nM70m3YHuCKlN+0W3j4WC7cfB199C2i8oHJ3ZMDy87b5nc4czG3R0LUJq3fsWydJb+4TUuqXT\nfG6BkNr2eQIdrRNS28b9QhztExIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIE\nEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIE+A9h2dgsPL+x\n7wAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Premenná cylinders je uložená vektor čísel, tak R s ňou zaobchádza ako s kvantitatívnou (veľkostnou) hodnotou. \n",
    "Avšak, keďže je malý počet možných hodnôt cylinderov, tak je lepšie ak sa s nimi bude zaobchádzať ako  kvalitatívnymi premennými. \n",
    "Funkcia <code>as.factor()</code> konvertuje kvantitatívnu premennú na kvalitatívnu. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 440,
   "metadata": {},
   "outputs": [],
   "source": [
    "cylinders = as.factor(cylinders)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Ak je premenná v grafe na x-ovej osy ako kategorická premenné tak boxplots budú automaticky produkované funkciou <code>plot()</code>. \n",
    "Ako zvyčajne, voľby čísiel môžu byť špecificky zmenené v grafe. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 441,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAXzElEQVR4nO3d6XLbSLKAUVCrF4l6/7e9Nm3rQt0xbrGYyKzlnB+2JmKIRAH1\nWVzU9vYG3GyrPgGYgZAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAg\ngJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAg\ngJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAg\ngJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAg\ngJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAg\ngJAggJAggJAggJAggJAggJAggJAggJAggJAggJAgQEJIGwymYZfHh1MwAiIJCQIICQIICQII\nCQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIIKVPTf5HMCISU51KR\nlOYkpDzb7lcmI6Q02z9+ZyZCSiOkmQkpjZBmJqQ8XiNNTEh5vGs3MSFl8jnStIQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYR0hK1B9TlzEyGlmnZhyxNSqmkXtjwhpZp2YcsTUqppF7Y8IUEAIUEA\nIUEAIaWadmHLE1KqaRe2PCGlmnZhyxNSqmkXtjwhpZp2YcsTEgQQEgQQEgQQUqppF7Y8IaWa\ndmHLE1KqaRe2PCGlmnZhyxNSqmkXtjwhQQAhQQAhQQAhpZp2YcsTUqppF7Y8IaWadmHLE1Kq\naRe2PCGlmnZhyxMSBBASBBASBBBSqmkXtjwhpZp2YcsTUqppF7Y8IaWadmHLE1KqaRe2PCFB\nACFBACFBACGlmnZhyxNSqmkXtjwhpZp2YcsTUqppF7Y8IaWadmHLExIEEBIEEBIEEFKqaRe2\nPCGlmnZhyxNSqmkXtjwhpZp2YcsTUqppF7Y8IUEAIUEAIUEAIaWadmHLE1KqaRe2PCGlmnZh\nyxNSqmkXtrzUkL4/P2w/PTx9P2pE56Zd2PISQzrfbf/v/pARUCQxpKft9PXl8tXrt9P2dMQI\nKJIY0ml7ef/6ZTsdMQKKJIa0bf/rf4SN6N60C1ue70ippl3Y8nJfI317vXy17mukaRe2vMy3\nv+9379rdnQ8Z0btpF7a83M+Rni6fI50enn2OxFz8ZAME6Cekbe+YEXCUkpD+MxQhMRghpZp2\nYctL/UD208/ept1v0y5seYkhfT8JadqFLS/zqd35Ybu/fCLrqR2zyX2N9HXbvr4Jifkkv9nw\ner89nBcOiVmlv2v3vJ2+CYnZ5L/9/XL33x+4ConBVHyO9LhuSNMubHn9/IhQ8oga0y5seUJK\nNe3CliekVNMubHlCSjXtwpYnJAggJAggJAggpFTTLmx5Qko17cKWJ6RU0y5seUJKNe3Cliek\nVNMubHlCggBCggBCggBCSjXtwpYnpFTTLuxzJv7LqIWUatqFfcalollTElKqaRf2Gdvu1+kI\nKdW0C/uE7R+/z0VIJBHS7Q/pcATZhHT7QzocQTqvkW5+SIcjaky7sM/wrt3ND+lwRI1pF/Y5\nPke68SEdjqgx7cKWJ6RU0y5seUJKNe3ClickCCAkCCAkCCCkVNMubHlCSjXtwpYnpFTTLmx5\nQko17cKWJ6RU0y5seUKCAEKCAEKCAEJKNe3CliekVNMubHlCSjXtwpYnpFTTLmx5Qko17cKW\nJ6QZbQ2qz3lwQlqKC3sUIS3FhT2KkFJVL6x6/ryElKp6YdXz5yWkVNMubHlCSjXtwpYnpFTT\nLmx5QlqKC3sUIS3FhT2KkJbiwh5FSKmqF1Y9f15CSlW9sOr58xJSqmkXtjwhpZp2YcsTUqpp\nF7Y8IS3FhT2KkJbiwh5FSEtxYY8ipFTVC6uePy8hpapeWPX8eQkp1bQLW56QUk27sOUJKdW0\nC1uekJbiwh5FSEtxYY8ipKW4sEcRUqrqhVXPn5eQUlUvrHr+vISUatqFLU9IqaZd2PKElGra\nhS1PSEtxYY8ipKW4sEcR0lJc2KMIKVX1wqrnz0tIqaoXVj1/XkJKNe3CliekVNMubHlCSjXt\nwpYnpKW4sEcR0lJc2KMIaSku7FGElKp6YdXz5yWkVNULq54/LyGlmnZhyxNSqmkXtjwhpZp2\nYcsT0lJc2KMIaSku7FGEtBQX9ihCSlW9sOr58xJSquqFVc+fl5DabUmq1xlnqsV8JKR2SWc5\nxsX4hEtFs6YkpHZCus62+3U6Qmo3YEiVF3b7x+9zEVI7ITXNHuPmXktI7YTUNHuMm3stIbUT\nUsvwMe7t1YTUTkhXDveu3a0P6XBEgAFDKuZzpBsf0uGIAELinZDaCYl3Qmo3YEhjXNgRCamd\nkHgnpHZC4p2Q2gmJd0JqJyTeCandgCFxFCG1ExLvhNROSLwTUrsBQxrjwo5ISO2ExDshtRMS\n74TUTki8E1I7IfFOSO0GDImjCKmdkHgnpHZC4p2Q2g0Y0hgXdkRCaick3gmpnZB4J6R2Qrp6\nvL9F6LaHdDgiQHVIo/2zMv5eu5sf0uGIAOUhFc9vO9AY9/ZqQmpXvZGr5zceZ4ybey0htave\nyNXzG48zxs29VmpI358fLk+6H56+HzUiU/VGrp7feJwxbu61EkM63+1ewN4fMiJX9Uaunt92\noDHu7dUSQ3raTl9fLl+9fjttT0eMyFW9kavnX30g79rd+pCL0/by/vXLdjpiRK7qjVw9v+FQ\ns2aUGtKHi/j3KzrG5a7eyNXz2fEdqV31Rq6ez07ua6Rvr5evvEYKGVM9n53Mt7/vd+/a3Z0P\nGZGqeiNXz2cn93Okp8vnSKeHZ58jBYypns+On2xoV72Rq+ez009Ih/zA8aGqN3L1fHYKQvpy\n2u6+HDsiR/VGrp7PTmZILw/b6cvbsx8RChpTPZ+dxJBeLgU9bY/nt9eH7a/fk8a4d9UbuXo+\nO4khPf787Ojp1yex5+3uiBG5qjdy9Xx20n9EaHvY/Y/oEbmqN3L1fHbSQ/r66zmdHxG6fUz1\nfHZSn9o9/vlxhvOjHxG6fUz1fHYSQzqf3p/PbX//hjTIvaveyNXz2Un9HOnpTz6nv34/GuXe\nVW/k6vns9POTDckjAlRv5Or57AipXfVGrp7PjpDaVW/k6vnsCKld9Uauns+OkNpVb+Tq+Q2H\nGuTn+hsIqV31Rq6ef/WBtj+/TEhI7ao3cvX8tgONcW+vJqR21Ru5en7jcca4udcSUrvqjVw9\nv/E4Y9zcawmpXfVGrp7feJwxbu61hNSueiNXz2870Bj39mpCale9kavnX30g79rd+pAORwSo\n3sjV8xsONWtGQrrFQf/28b/8z/lJy8wZMzghtRMS74TUTki8E1K76o1cPZ8dIbWr3sjV89kR\nUrvqjVw9nx0htaveyNXz2RFSu+qNXD2fHSG1q97I1fPZEVK76o1cPZ8dIbWr3sjV89kRUrvq\njVw9nx0htaveyNXz2RFSu+qNXD2fHSG1q97I1fPZEVK76o1cPZ8dIbWr3sjV89kRUrvqjVw9\nnx0htaveyNXz2RFSu+qNXD2fHSG1q97I1fPZEVK76o1cPZ8dIbWr3sjV8xsO5a/juu0hHY4I\nUL2Rq+dffaDtzy8TElK76o1cPb/tQGPc26sJqV31Rq6e33icwpt74FNLIbWr3sjV8xuPU3Zz\nD31qKaR21Ru5en7jcepCOnK8kNpVb+Tq+W0HKu7oqBMQUrvqjVw9/+oD1b5rJ6ReVW/k6vkN\nh6p881tIvareyNXzR+M1UqeqN3L1/NF4165T1Ru5ev54fI7UpeqNXD2fHSG1q97I1fPZEVK7\n6o1cPZ8dIbWr3sjV89kRUrvqjVw9nx0htaveyNXz2RFSu+qNXD2fHSG1q97I1fPZEVK76o1c\nPZ8dIbWr3sjV89kRUrvqjVw9nx0htaveyNXz2RFSu+qNvCXJWebghNROSJFndssl6oCQ2gkp\nbi3DE1K78pCK5xcfqy9Cale9kavnFx+rL0JqV72Rq+cXH6svQmpXvZGr57MjpHbVL/aF1BEh\npQpdmJA6IqRUq4c07Y0VUi4hzUpI4xJSR4Q0LiF1REjjElJHhJRq9ddI8xJSKiHNSkiphDQr\nIaVaPaRpb6yQcglpVkIal5A6IqRxCenq8f6hMf5NSFcO3/78csTBUx7S4Ygaq79GKrXtfj3o\n4Ec/pMMRNYRUZ/vH78cc/diHdDiihpDqCGkiq4dUeWOFNBEhFfIa6frHB/7NCP0S0pXDvWvX\n/4ErCOnq8T5H6v3AFYTUESGlWv010ryElEpIs1ospGpCmpWQUq0e0rQ3Vki5hFTKu3bdH7iC\nkK4c7nOk/g9cQUgtw4XU9YErCKlptp+16/nAFfMHDKmSkEY4cMV8IV1FSBOJDSlJ5DlX8hpp\nHtMu7JO8a3fbQzocUWPahX2Sz5Fue0g3I2zktecfZ+SQvEa4WvVaqucfZ+iQDj6L3DEpqtdS\nPf84QkodU72RqufPS0ipY6o3cvX8eQkpdYyNPCshpY5ZPaR51y+k1DHzbqTPmXf9QuplTIrq\ntVTPP46QehmTonot1fOPI6RexqSoXkv1/OMIKXVM9Uaqnj8vIaWOqd7I1fPnJaTUMTbyrISU\nOmb1kOZdv5BSx8y7kT5n3vULqZcxKarXUj3/OELqZUyK6rVUzz+OkHoZk6J6LdXzjyOk1DHV\nG6l6/ryElDqmeiNXz5+XkFLH2MizElLqmNVDmnf9QkodM+9G+px51y+kXsakqF5L9fzjCKmX\nMSlC1+LvFdwRUi9jUsSGFHmw8jE3ElLqmOpNIaSjCCl1TPWmENJRhJQ6ZoxN8UkDXv/jpIb0\n/fnh8urx4el7xIgBb+QYm+KTBrz+x0kM6Xy3eyfmPmDEgDdyjE3xSQNe/+MkhvS0nb6+XL56\n/Xbanm4f4UZezWukoySGdNpe3r9+2U63j3AjryakoySG9OGTtb9/zCakgwjpKL4jpY6p3hRC\nOkrua6Rvr5evol4jjfcjKll7L2WVQtrJvH73u9t2d759RFAnB2yxGxc2iH5DKrjLuZ8jPV0+\nRzo9PMd8jpSkeb2tCxtEvyGlHOvmI/vJhj6OVc71v+3IB53M9d8EBryRUxnw+s8R0vlx2+6/\n/T6It7+HN+D1nyKk8+nyzebh10GENDzXfyf17e8vP2r6crr8mN2iIY2xKT5pwOt/nNQPZC+/\nvZ7uXoU0gwGv/3EKfkTofH8vpBm4/rcdufVk7rY/H8Le3QtpAq7/bUduPZkv2+Pvr163eyGN\nz/W/7cjNJ/P0Xs+3//ioaNqQpjLg9Z8jpLeXhz9fvT4KaXgDXv9JQgoeMeCNnIrrvyOk1DFj\nbIpPGvD6H0dIqWPG2BSfNOD1P46QUseMsSk+yfW/7chC6uNY5Vz/244spD6OVc5/WHnbkYXE\nhZBuO7KQuBDSbUcWEheu/46QUseMsSk+acDrfxwhpY4ZY1N80oDX/zhCSh0zxqb4JNf/tiML\nqY9jlXP9bztyPyF516iUkG47cjchUUtItx1ZSFwI6bYjC4mLAUM6zmIhVd+U6vmhhLQjpFTV\n80MJaUdIqarnhxowJK+Rej/wIPNDCem2Iw8QUvGnReXzc7SssvjKCAkCCIkpVN9YITGFeW+s\nkEg0740VEonmvbFCIlH1jfUaCQIICQIICQIIiSlU31ghMYV5b6yQSDTvjRUSiea9sUIiUfWN\n9RoJAggJAggJAgiJKVTfWCExhXlvrJBINO+NFRKJ5r2xQiJR9Y31GgkCCAkCCAkCCIkpVN9Y\nITGFeW+skEg0740VEonmvbFCIlHoje3qX8MQEqNK2iVCYm5C6mEEwxNSDyOoEPsaKfJgt44R\nEomEdNtDOhxBBSHd9pAOR1BBSLc9pMMRVBDSbQ/pcATDE1IPIxiekHoYwfCE1MMIKniNdNtD\nOhxBBSHd9pAOR1BBSLc9pMMRVBDSbQ/pcAQHOuy/+vk4Jf7E28f0ef5C4r8JqYcRDE9IPYxg\neELqYQTDE1IPIxiekHoYwfCE1MMIhiekHkYwPCH1MILhCamHEQxPSD2MYHhC6mEEwxNSDyMY\nnpB6GMHwov/ViZt+Ll1IjEpIPYxgeELqYQTD8xqphxEMT0g9jGB4QuphBMMTUg8jGJ6QehjB\n8ITUwwiGJ6QeRjA8IfUwguEJqYcRDE9IPYxgeELqYQTDE1IPIxiekHoYwfD89HcPI1jRcRtL\nSCxESBBASBBASBBASNA1IUEAIUEAIbEQr5EggJAggJAggJAggJCga0KCAEKCAEJiIV4jQQAh\nQQAhQQAhQQAhQdeEBAGEBAGExEK8RoIAQoIAQoIAQoIAQoKuCQkCCAkCCImFeI0EAYQEASYJ\n6fvzw+Uf5Xx4+n7UCPiLKUI63+3+gdv7Q0bAX00R0tN2+vpy+er122l7OmIEFEkM6bS9vH/9\nsp2OGAFFEkPatv/1P8JGQBHfkVjILK+Rvr1evvIaiRpThPR2v3vX7u58yAj4mzlCevv+dPkc\n6fTw7HMkKkwSUk8jWNEKIW17x4yAo/QTUvIIiCQkCCAkFjLFa6Rt+/TLICFxiClC+iIkik0R\n0tvL6e//8UTACPibOUJ6e/n7DwZFjIC/mCSkH8/uXv77/3TbCKjgXTsIICQIICQWMstrpI5G\nsCIhQQAhQQAhwedtDW4dmfKQDkdAJCFBACFBACFBACFBACFBACFBACFBACFBACFBACFBACFB\nACFBACFBACFBACFBACFBACFBACFBACFBACFBACFBgE5DgsE07PL4cNJUn7v5a8//oKuTuVL1\nuZu/9vwPujqZK1Wfu/lrz/+gq5O5UvW5m7/2/A+6OpkrVZ+7+WvP/6Crk7lS9bmbv/b8D7o6\nmStVn7v5a8//oKuTuVL1uZu/9vwPujqZK1Wfu/lrz/+gq5O5UvW5m7/2/A+6OpkrVZ+7+WvP\n/6Crk7lS9bmbv/b8D7o6GRiVkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCA\nkCCAkCCAkCDAqCGdH7ft8aX2HL4XXrzmv+w9ysvPG/BaNv78dNpOT+ey+f8yakinyz4qLel8\nqrt4L9UhfbuMP1Xt5Ndf9/9UV/I/DRrS0/b485eHynN4KNzHL7VL//EH2enl7fywPRWNf7xM\nvuyCTgwa0mn7+Wdh5VObt6+V3xC+bM9ls3/6etnI5+1UNP/3pS/dAB/1cyYNyu7jD6/bfWlI\nX8pm//RY+6z67fez6soN8A8jh/RUuZvut9fCkB62b48/XmyXzb/b3p5P22PZi/3n30/tar8v\n740b0o+nVnUb6ced/Fr5xOLh13sN91Xzt+1yBnXfEL78fLfhVPtt+YNxQ/rycKr7A+nyYr8w\npO1Hx2/num/JPzbxy8+PIMpuwPPlD5J+viENHNLbz2fqVRvp7ucbv+Uvdc/bXdHkX588vJbN\n//Lz2ci57v7/W/VeuEnZu0aP27e3DkKqO4Pqd83uLu/a1v1B8m/le+EmVTfyln9HPvY8igY/\nFIdUHfK/9XMmV/n1OVLZU4vykP6sv+pj2efLt+TXsnc7fr39Xfc51r8NGtLlM+3zQ+1z5MI/\nD58urxGeLtu5wo8/ws4/X6N8LZr/Y/3n31ehE4OG9Ptn7cre/r0oDOn8a/11++i5+Prfd3D/\nPxg1pLen03ZX/J5N5TP0c/X6v91XfiB8uf+l8/9p2JCgJ0KCAEKCAEKCAEKCAEKCAEKCAEKC\nAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKC\nAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKC\nAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKC\nAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAEKCAP8H\nDaazNNccc4sAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 442,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAXpElEQVR4nO3d61YbSbKA0RJXGwOH93/aY8vdTEGvdqNUVERe9v4BzFoj\nhTIrP4Mk2t7egKtt1Q8AZiAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCJAQ0gaDaTjl8eEUjIBIQoIAQoIA\nQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQsrU9F8kMwIh\n5TlXJKU5CSnPtvvIZISUZvv0mZkIKY2QZiakNEKamZDyeI40MSHl8ardxISUyftI0xISBBAS\nBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBAS\nBBASBBASBBASBBASBBASBBDSEbYG1Y+Zqwgp1bQLW56QUk27sOUJKdW0C1uekFJNu7DlCQkC\nCAkCCAkCCCnVtAtbnpBSTbuw5Qkp1bQLW56QUk27sOUJKdW0C1uekCCAkCCAkCCAkFJNu7Dl\nCSnVtAtbnpBSTbuw5Qkp1bQLW56QUk27sOUJCQIICQIICQIIKdW0C1uekFJNu7DlCSnVtAtb\nnpBSTbuw5Qkp1bQLW56QIICQIICQIICQUk27sOUJKdW0C1uekFJNu7DlCSnVtAtbnpBSTbuw\n5QkJAggJAggJAggp1bQLW56QUk27sOUJKdW0C1uekFJNu7DlCSnVtAtbnpAggJAggJAggJBS\nTbuw5Qkp1bQLW56QUk27sOUJKdW0C1uekFJNu7DlCQkCCAkCCAkCCCnVtAtbnpBSTbuw5Qkp\n1bQLW56QUk27sOWlhvTj8W775e7hx1EjOjftwpaXGNLrzfY/t4eMgCKJIT1sp+/P569enk7b\nwxEjoEhiSKft+f3r5+10xAgokhjStv3b/wgb0b1pF7Y835FSTbuw5eU+R3p6OX+17nOkaRe2\nvMyXv293r9rdvB4yonfTLmx5ue8jPZzfRzrdPXofibn4zQYI0E9I294xI+AoJSH9ZyhCYjBC\nSjXtwpaX+obsl396m/a8Tbuw5SWG9OMkpGkXtrzMH+1e77bb8zuyfrRjNrnPkb5v2/c3ITGf\n5BcbXm63u9eFQ2JW6a/aPW6nJyExm/yXv59v/vsNVyExmIr3ke7XDWnahS2vn18RSh5RY9qF\nLU9IqaZd2PKElGrahS1PSKmmXdjyhAQBhAQBhAQBhJRq2oUtT0ippl3Y8oSUatqFLU9IqaZd\n2PKElGrahS1PSBBASBBASBBASKmmXdjyhJRq2oV9zcR/GbWQUk27sK84VzRrSkJKNe3CvmLb\nfZyOkFJNu7Av2D59nouQSCKk62/S4QiyCen6m3Q4gnSeI119kw5H1Jh2YV/hVburb9LhiBrT\nLuxrvI905U06HFFj2oUtT0ippl3Y8oSUatqFLU9IEEBIEEBIEEBIqaZd2PKElGrahS1PSKmm\nXdjyhJRq2oUtT0ippl3Y8oQEAYQEAYQEAYSUatqFLU9IqaZd2PKElGrahS1PSKmmXdjyhJRq\n2oUtT0gz2hpUP+bBCWkpNvYoQlqKjT2KkFJVL6x6/ryElKp6YdXz5yWkVNMubHlCSjXtwpYn\npFTTLmx5QlqKjT2KkJZiY48ipKXY2KMIKVX1wqrnz0tIqaoXVj1/XkJKNe3CliekVNMubHlC\nSjXtwpYnpKXY2KMIaSk29ihCWoqNPYqQUlUvrHr+vISUqnph1fPnJaRU0y5seUJKNe3Cliek\nVNMubHlCWoqNPYqQlmJjjyKkpdjYowgpVfXCqufPS0ipqhdWPX9eQko17cKWJ6RU0y5seUJK\nNe3CliekpdjYowhpKTb2KEJaio09ipBSVS+sev68hJSqemHV8+clpFTTLmx5Qko17cKWJ6RU\n0y5seUJaio09ipCWYmOPIqSl2NijCClV9cKq589LSKmqF1Y9f15CSjXtwpYnpFTTLmx5Qko1\n7cKWJ6Sl2NijCGkpNvYoQlqKjT2KkFJVL6x6/ryElKp6YdXz5yWkdluS6nXGmWoxHwmp3fZ/\nKcbYjC84VzRrSkJqJ6TLbLuP0xFSuwFDqtzY7dPnuQipnZCaZo9xcS8lpHZCapo9xsW9lJDa\nCall+BjX9mJCaiekC4d71e7am3Q4IsCAIRXzPtKVN+lwRAAh8U5I7YTEOyG1GzCkMTZ2REJq\nJyTeCamdkHgnpHZC4p2Q2gmJd0JqN2BIHEVI7YTEOyG1ExLvhNRuwJDG2NgRCamdkHgnpHZC\n4p2Q2gmJd0JqJyTeCandgCFxFCG1ExLvhNROSLwTUrsBQxpjY0ckpHZC4p2Q2gmJd0JqJ6SL\nx/tbhK67SYcjAlSHNNo/K+Pvtbv6Jh2OCFAeUvH8i/dr93E6QmpXfZCr51+6XZ8+z0VI7aoP\ncvX8S7fr0+e5pIb04/Hu/EP33cOPo0Zkqj7I1fMv3a5Pn+eSGNLrze4J7O0hI3JVH+Tq+Rfv\n1+7jdBJDethO35/PX708nbaHI0bkqj7I1fMv3i+v2l17k7PT9vz+9fN2OmJEruqDXD2/Ycdm\nzSg1pA+b+OcdHWO7qw9y9Xx2fEdqV32Qq+ezk/sc6enl/JXnSCEHuXo+O5kvf9/uXrW7eT1k\nRKrqg1w9n53c95Eezu8jne4evY8UcJCr57PjNxvaVR/k6vns9BPSIb9wfKjqg1w9n52CkL6d\ntptvx47IUX2Qq+ezkxnS8912+vb26FeEgg5y9Xx2EkN6Phf0sN2/vr3cbX/8njTGtas+yNXz\n2UkM6f7Xe0cPv9+Jfd1ujhiRq/ogV89nJ/1XhLa73f+IHpGr+iBXz2cnPaTvv3+m8ytC1x/k\n6vnspP5od//3rzO83vsVoesPcvV8djL/w77T+89z25+/IQnpSwe5ej47qe8jPfydz+mP34+E\n9LWDXD2fnX5+syF5RIDqg1w9nx0htas+yNXz2RFSu+qDXD2fHSG1qz7I1fPZEVK76oNcPb9h\nxwb5vf4GQmpXfZCr51+8X/46rmtv0uGIANUHuXr+xfu1+zgdIbWrPsjV8y/drk+f5yKkdtUH\nuXr+pdv16fNchNSu+iBXz790uz59nouQ2lUf5Or5F+/X7uN0hNSu+iBXz794v7xqd+1NOhwR\noPogV89v2LFZMxLSNQ76t4//4V/nDxfSxITUTki8E1I7IfFOSO2qD3L1fHaE1K76IFfPZ0dI\n7aoPcvV8doTUrvogV89nR0jtqg9y9Xx2hNSu+iBXz2dHSO2qD3L1fHaE1K76IFfPZ0dI7aoP\ncvV8doTUrvogV89nR0jtqg9y9Xx2hNSu+iBXz2dHSO2qD3L1fHaE1K76IFfPZ0dI7aoPcvV8\ndoTUrvogV89nR0jtqg9y9Xx2hNSu+iBXz2dHSO2qD3L1fHaE1K76IFfPb9gxfx3XdTfpcESA\n6oNcPf/i/dr+/jAhIbWrPsjV8y/er93H6QipXfVBrp5/6XZ9+lzgwB8thdSu+iBXz790uz59\nTnfoj5ZCald9kKvnX7pdnz6nO/RHSyG1qz7I1fMv3q/dxwLHhiykdtUHuXr+xftV+6qdkHpV\nfZCr5zfsWOWL30LqVfVBrp4/Gs+ROlV9kKvnj8ardp2qPsjV88fjfaQuVR/k6vnsCKld9UGu\nns+OkNpVH+Tq+ewIqV31Qa6ez46Q2lUf5Or57AipXfVBrp7PjpDaVR/k6vnsCKld9UGuns+O\nkNpVH+Tq+ewIqV31Qa6ez46Q2lUf5Or57AipXfVBrp7PjpDaVR/kLUnmng5LSO2EFPnIrrkS\nHRBSOyFdvmWB99UXIbUrD6l4fsuWBd5XX4TUrvogV89v2bLA++qLkNpVH+Tq+S1bFnhffRFS\nu+qDXD2fHSG1q36yL6SOCClV6MKE1BEhpVo9pGkvrJByCWlWQhqXkDoipHEJqSNCGpeQOiKk\nVKs/R5qXkFIJaVZCSiWkWQkp1eohTXthhZRLSLMS0riE1BEhjUtIF4/3D43xT0K6cPj294cj\n7jzlJh2OqLH6c6RS2+7jQXd+9E06HFFDSHW2T5+Pufdjb9LhiBpCqiOkiaweUuWFFdJEhFTI\nc6TLbx/4NyP0S0gXDveqXf93XEFIF4/3PlLvd1xBSB0RUqrVnyPNS0iphDSrxUKqJqRZCSnV\n6iFNe2GFlEtIpbxq1/0dVxDShcO9j9T/HVcQUstwIXV9xxWE1DTb79r1fMcV8wcMqZKQRrjj\nivlCuoiQJhIbUpLIx1zJc6R5TLuwL/Kq3XU36XBEjWkX9kXeR7ruJt2McJDXnn+ckUPyHOFi\n1Wupnn+coUPyqtWlqtdSPf84QkoNqfogVc+fl5CERAAhLRUSRxGSkBLNu34hCSnRvOsXUmpI\n1arXUj3/OEIS0kLzjyMkIS00/zhCSg2p+iBVz5+XkIREACEtFRJHEZKQEs27fiEJKdG86xdS\nakjVqtdSPf84QhLSQvOPIyQhLTT/OEJKDan6IFXPn5eQhEQAIS0VEkcRkpASzbt+IQkp0bzr\nF1JqSNWq11I9/zhCElLznfl7Bf9HSEJqvjP7/z9CSr2Q1YdCSEcRUuqFrD4UQjqKkFIv5BiH\n4osG3P/jpIb04/Hu/Ozx7uFHxIgBL+QYh+KLBtz/4ySG9HqzeyXmNmDEgBdyjEPxRQPu/3ES\nQ3rYTt+fz1+9PJ22h+tHuJAX8xzpKIkhnbbn96+ft9P1I1zIiwnpKIkhfXhn7c9vswnpIEI6\niu9IqRey+lAI6Si5z5GeXs5fRT1HGu9XVJIORc4qhbST+fL37e6y3bxePyKokwOO2JULG0S/\nIRVc5dz3kR7O7yOd7h5j3kdK0rze1oUNot+Q/v0hB97X1ffsNxuOXtgg7P9193zQg7n8m8CA\nF3IqA+7/HCG93m/b7dNfd+Ll7+ENuP9ThPR6On+zuft9J0Ianv3fSX35+9vPmr6dzr9mt2hI\nYxyKLxpw/4+T+obs+dPL6eZFSDMYcP+PU/ArQq+3t0Kagf2/7p5bH8zN9vebsDe3QpqA/b/u\nnlsfzLft/q+vXrZbIY3P/l93z80P5uG9nqf/eKto2pCmMuD+zxHS2/Pd31+93AtpeAPu/yQh\nBY8Y8EJOxf7vCCn1Qo5xKL5owP0/jpBSL+QYh+KLBtz/4wgp9UKOcSi+yP5fd89COnphg7D/\n192zkI5e2CD8h5XX3bOQOBPSdfcsJM6EdN09C4kz+78jpNQLOcah+KIB9/84Qkq9kGMcii8a\ncP+PI6TUCznGofgi+3/dPQvp6IUNwv5fd8/9hORVo1JCuu6euwmJWkK67p6FxJmQrrtnIXE2\nYEjHWSyk6otSPT+UkHaElKp6figh7QgpVfX8UAOG5DlS73c8yPxQQrrungcIqfjdovL5OVpW\nWbwzQoIAQmIK1RdWSExh3gsrJBLNe2GFRKJ5L6yQSFR9YT1HggBCggBCggBCYgrVF1ZITGHe\nCyskEs17YYVEonkvrJBIVH1hPUeCAEKCAEKCAEJiCtUXVkhMYd4LKyQSzXthhUSieS+skEhU\nfWE9R4IAQoIAQoIAQmIK1RdWSExh3gsrJBLNe2GFRKJ5L6yQSBR6Ybv61zCExKi6+veZhMSo\nhNTDCIYnpB5GUCH2OZKQOhhBBSFdd5MOR1BBSNfdpMMRVBDSdTfpcAQVhHTdTTocwfCE1MMI\nhiekHkYwPCH1MIIKniNdd5MOR1BBSNfdpMMRVBDSdTfpcAQVhHTdTTocwYEO+69+Pk4RUgcj\nGJ6QehjB8ITUwwiGJ6QeRjA8IfUwguEJqYcRDE9IPYxgeELqYQTDE1IPIxiekHoYwfCE1MMI\nhiekHkYwPCH1MILhCamHEQwv+l+duOr30oXEqITUwwiGJ6QeRjA8z5F6GMHwhNTDCIYnpB5G\nMDwh9TCC4QmphxEMT0g9jGB4QuphBMMTUg8jGJ6QehjB8ITUwwiGJ6QeRjA8IfUwguEJqYcR\nDM9vf/cwghUdd7CExEKEBAGEBAGEBAGEBF0TEgQQEgQQEgvxHAkCCAkCCAkCCAkCCAm6JiQI\nICQIICQW4jkSBBASBBASBBASBBASdE1IEEBIEEBILMRzJAggJAggJAggJAggJOiakCCAkCCA\nkFiI50gQQEgQYJKQfjzenf9RzruHH0eNgD+YIqTXm90/cHt7yAj4oylCethO35/PX708nbaH\nI0ZAkcSQTtvz+9fP2+mIEVAkMaRt+7f/ETYCiviOxEJmeY709HL+ynMkakwR0tvt7lW7m9dD\nRsCfzBHS24+H8/tIp7tH7yNRYZKQehrBilYIads7ZgQcpZ+QkkdAJCFBACGxkCmeI23bl58G\nCYlDTBHSNyFRbIqQ3p5Pf/6PJwJGwJ/MEdLb859/MShiBPzBJCH9/Onu+b//T9eNgApetYMA\nQoIAQmIhszxH6mgEKxISBBASBBASfN3W4NqRKTfpcAREEhIEEBIEEBIEEBIEEBIEEBIEEBIE\nEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIE6DQkGEzDKY8PJ031\nYzd/7fkfdPVgLlT92M1fe/4HXT2YC1U/dvPXnv9BVw/mQtWP3fy153/Q1YO5UPVjN3/t+R90\n9WAuVP3YzV97/gddPZgLVT9289ee/0FXD+ZC1Y/d/LXnf9DVg7lQ9WM3f+35H3T1YC5U/djN\nX3v+B109mAtVP3bz157/QVcP5kLVj938ted/0NWDgVEJCQIICQIICQIICQIICQIICQIICQII\nCQIICQIICQIICQIICQIICQIICQIICQKMGtLr/bbdP9c+hh+Fm9f8l71Hef51AV7Kxr8+nLbT\nw2vZ/H8YNaTT+RyVlvR6qtu85+qQns7jT1Un+eX39T/VlfzZoCE9bPe/PtxVPoa7wnP8XLv0\nn3+QnZ7fXu+2h6Lx9+fJ51PQiUFDOm2//iys/NHm7XvlN4Rv22PZ7F++nw/y63Yqmv/X1pce\ngI/6eSQNyq7jTy/bbWlI38pm/3Jf+1P1218/VVcegE9GDumh8jTdbi+FId1tT/c/n2yXzb/Z\n3h5P233Zk/3Hv360q/2+vDduSD9/tKo7SD+v5PfKHyzufr/WcFs1f9vOj6DuG8K3X682nGq/\nLX8wbkjf7k51fyCdn+wXhrT97Pjtte5b8s9D/PzrLYiyC/B4/oOkn29IA4f09usn9aqDdPPr\nhd/yp7qv203R5N/vPLyUzf/266eR17rr/0/VZ+EqZa8a3W9Pbx2EVPcIql81uzm/alv3B8k/\nlZ+Fq1RdyGv+HfnYx1E0+K44pOqQ/6mfR3KR3+8jlf1oUR7S3+uvelv28fwt+aXs1Y7fL3/X\nvY/1T4OGdH5P+/Wu9mfkwj8PH87PER7Ox7nCzz/CXn89R/leNP/n+l//2oVODBrSX79rV/by\n71lhSK+/1193jh6L9/+2g+v/waghvT2ctpvi12wqf0J/rV7/023lG8Ln6186/7NhQ4KeCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkC/D+Kz8FGKGlA2QAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg, col = \"red\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 443,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAWhklEQVR4nO3d7VbbSLOAURkI5AMY7v9qT+JkdIB5h8FydZVUvfcPYNYa\nudSWnoAsJywvwNWW6h2ADoQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQE\nAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEAYQEARJCWuBgNpzl8eEUjIBIQoIAQoIA\nQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQoIAQsq06W8kcwRC\nynOuSEo9CSnP8uojzQgpzfLuM50IKY2QOhNSGiF1JqQ8rpEaE1Ier9o1JqRM7iO1JSQIICQI\nICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQI\nICQIICQIICQIICQIICQIIKQRlg2q95mrCClV24VNT0ip2i5sekJK1XZh0xNSqrYLm56QIICQ\nIICQIICQUrVd2PSElKrtwqYnpFRtFzY9IaVqu7DpCSlV24VNT0gQQEgQQEgQQEip2i5sekJK\n1XZh0xNSqrYLm56QUrVd2PSElKrtwqYnJAggJAggJAggpFRtFzY9IaVqu7DpCSlV24VNT0ip\n2i5sekJK1XZh0xMSBBASBBASBBBSqrYLm56QUrVd2PSElKrtwqYnpFRtFzY9IaVqu7DpCQkC\nCAkCCAkCCClV24VNT0ip2i5sekJK1XZh0xNSqrYLm56QUrVd2PSEBAGEBAGEBAGElKrtwqYn\npFRtFzY9IaVqu7DpCSlV24VNT0ip2i5sekKCAEKCAEKCAEJK1XZh0xNSqrYLm56QUrVd2PSE\nlKrtwqaXGtKPh7vll7v7H6NG7FzbhU0vMaTnm+X/3Q4ZAUUSQ7pfTt8ez189fT8t9yNGQJHE\nkE7L4/r143IaMQKKJIa0LP/2H2Ejdq/twqbnO1KqtgubXu410ven81fzXiO1Xdj0Ml/+vn31\nqt3N85ARe9d2YdPLvY90f76PdLp7cB+JXryzAQLsJ6TltTEjYJSSkP4zFCFxMEJK1XZh00u9\nIfvpn97anm9tFza9xJB+nITUdmHTy/zR7vluuT3fkfWjHd3kXiN9W5ZvL0Kin+QXG55ul7vn\niUOiq/RX7R6W03ch0U3+y9+PN/99w1VIHEzFfaQv84bUdmHT289bhJJH1Gi7sOkJKVXbhU1P\nSKnaLmx6QkrVdmHTExIEEBIEEBIEEFKqtgubnpBStV3Y9ISUqu3CpiekVG0XNj0hpWq7sOkJ\nCQIICQIICQIIKVXbhU1PSKnaLuxzGv9j1EJK1XZhn3GuqGtKQkrVdmGfsbz62I6QUrVd2Ccs\n7z73IiSSCOn6TXY4gmxCun6THY4gnWukqzfZ4YgabRf2GV61u3qTHY6o0XZhn+M+0pWb7HBE\njbYLm56QUrVd2PSElKrtwqYnJAggJAggJAggpFRtFzY9IaVqu7DpCSlV24VNT0ip2i5sekJK\n1XZh0xMSBBASBBASBBBSqrYLm56QUrVd2PSElKrtwqYnpFRtFzY9IaVqu7DpCWkeyx/V+9GS\nkKbiiR1FSFPxxI4ipFTVC6ue35eQUlUvrHp+X0JK1XZh0xNSqrYLm56QUrVd2PSENBVP7ChC\nmoondhQhTcUTO4qQUlUvrHp+X0JKVb2w6vl9CSlV24VNT0ip2i5sekJK1XZh0xPSVDyxowhp\nKp7YUYQ0FU/sKEJKVb2w6vl9CSlV9cKq5/clpFRtFzY9IaVqu7DpCSlV24VNT0hT8cSOIqSp\neGJHEdJUPLGjCClV9cKq5/clpFTVC6ue35eQUrVd2PSElKrtwqYnpFRtFzY9IU3FEzuKkKbi\niR1FSFPxxI4ipFTVC6ue35eQUlUvrHp+X0JK1XZh0xNSqrYLm56QUrVd2PSENBVP7ChCmoon\ndhQhTcUTO4qQUlUvrHp+X0JKVb2w6vl9CSlV24VNT0ip2i5sekJK1XZh0xPSVDyxowhpKp7Y\nUYQ0FU/sKEJKVb2w6vl9CSlV9cKq5/clpO2WJNXrjNNqMW8JabvlrxTHeDI+4VxR15SEtJ2Q\nLrO8+tiOkLY7YEiVT+zy7nMvQtpOSJtmH+PgXkpI2wlp0+xjHNxLCWk7IW0ZfoxjezEhbSek\nC4d71e7aTXY4IsABQyrmPtKVm+xwRAAhsRLSdkJiJaTtDhjSMZ7YIxLSdkJiJaTthMRKSNsJ\niZWQthMSKyFtd8CQGEVI2wmJlZC2ExIrIW13wJCO8cQekZC2ExIrIW0nJFZC2k5IrIS0nZBY\nCWm7A4bEKELaTkishLSdkFgJabsDhnSMJ/aIhLSdkFgJaTshsRLSdkK6eLx/Rei6TXY4IsCh\nQtrBb4rx79pdvckORwQ4VkjxD3nxLrz62I6QthPSZXvw7nMvQtpOSJftwbvPvaSG9OPh7vwT\n+t39j1EjMgnpsj1497mXxJCeb15d7d4OGZFLSBfuwquP7SSGdL+cvj2ev3r6flruR4zIJaQL\nd8GrdtducnZaHtevH5fTiBG5hHTxTnTNKDWkN0/ix8/oMZ5uIbHyHWk7IbHKvUb6/nT+yjWS\nkLrJfPn79tWrdjfPQ0akEhKr3PtI9+f7SKe7B/eRhNSLdzZsJyRW+wmp/t3JlxISq4KQvp6W\nm69jR+QQEqvMkB7vltPXlwdvERJSP4khPZ4Lul++PL883S0ffk86xoEWEqvEkL78und0//tO\n7PNyM2JELiGxSn+L0HL36j+iR+QSEqv0kL79/pnOW4SE1Erqj3Zf/n47w/MXbxESUiuZf7Hv\ntP48t3z8DUlIQjqa1PtI93/nc/rw+5GQhHQ4+3lnQ/KIAEJiJaTthMRKSNsJiZWQthMSKyFt\nJ6SLd+Ig7+vfQEjbCenCXfDPcV27yQ5HBBDShbvw6mM7QtpOSJftwbvPvQhpOyFdtgfvPvci\npO2EdNkevPvci5C2E9KFu/DqYztC2k5IF+6CV+2u3WSHIwII6eKd6JqRkK6xJInZ2T2E1JiQ\nthMSKyFtJyRWQtrONRIrIW0nJFZC2k5IrIS0nZBYCWk7IbES0nZCYiWk7YTESkjbCYmVkLYT\nEishbSckVkLaTkishLSdkFgJaTshsRLSdkJiJaTthMRKSNsJiZWQthMSKyFtJyRWQtpOSKyE\ntJ2QLt4J/xzXdZvscEQAIV24C8vfHxoS0nZCunAXXn1sR0jbCemyPXj3uWIXxn0/FNJ2Qrps\nD959zt+BkT9aCmk7IV22B+8+F+2AkHZHSBfuwquPZeNH7YCQthPShbtQ+6qdkPZKSBfvROWL\n30LaKyEdi2uknRLSsXjVbqeEdDTuI+2SkFgJaTshsRLSdkJiJaTthMRKSNsJiZWQthMSKyFt\nJyRWQtpOSKyEtJ2QWAlpOyGxEtJ2QmIlpO2ExEpI2x0rpDdCHpJXhLSdkC6c+r9k7cloQtpO\nSJfvRdXg4YS03bFCin/ILXtRNXg4IW0npMv3omrwcELaTkiX70XV4OGEtJ2QWAlpu/9+SSpG\nzM4KaSghpapbmJDGElKq2UNqe2CFlEtIXQlpEkIaS0iTENJYQpqEkMYSUqrZr5H6ElIqIXUl\npFRC6kpIqWYPqe2BFVIuIXUlpEkIaSwhTUJILy9+0RhXE5JffdnI7NdIpZZXHwc9+OhNdjii\nhpDqLO8+j3n0sZvscEQNIdURUiOzh1R5YIXUiJAKuUaKetRm/7jnRYTkVbsjPPDuCenFfaQD\nPPDuCWksIaWa/RqpLyGlElJXk4VUTUhdCSnV7CG1PbBCyiWkUl612/0D756Q3Ec6wgPvnpC8\ns+EID7x7QvJeuyM88O7n7yOkSkI6wgPvfr6QhNRIYUi7+K3mpVwj9dF2YZ/kVbvrNtnhiBpt\nF/ZJ7iNdt8luRjiR554/ziwhDfkFx8dTve7q+eNME9Jff03/stVL/YlcPX8cIaWqPpGq5/cl\npFTVJ3L1/L6ElMqJ3JWQUs0eUt/1CylV3xPpc/quX0hTqV539fxxhDSV6nVXzx9HSFOpXnf1\n/HGElKr6RKqe35eQUlWfyNXz+xJSKidyV0JKNXtIfdcvpFR9T6TP6bt+IU2let3V88cR0lSq\n1109fxwhTaV63dXzxxFSquoTqXp+X0JKVX0iV8/vS0ipnMhdCSnV7CH1Xb+QUvU9kT6n7/qF\nNJXqdVfPH0dIUxm87vf/euAWY/dwGCFNZXRIf13tqEdGSKmqTxMhjSKkVNWniZBGEVKqo54m\nnySkwZv88ePh7nw9eXf/Y9SIf33EfRyuo54mnySkwZucPd+8em3mdsiIDx5xH4frqKfJJwlp\n8CZn98vp2+P5q6fvp+V+xIgPHrHH4bqWa6RREkM6LY/r14/LacSIDx6xx+G6lpBGSQzpzb22\nj2+8CWkQIY3iO1Kq6tNESKPkXiN9fzp/VXGNtI83opSeJuPXLqTBm/x2++pEvnkeMuLfH1FI\nCXYWUuab+3LvI92f7yOd7h7y7yMJKcHOQvofO7inR/bOhit2o2huEiEN3uRTDzv0G8ZOQmpO\nSIM3+e35y7Lcfv/zIF7+bkhIgzc5ez79fqPd7wcRUkO7D2mc1Je/v/6s6evp/Da7SUM66mny\nSUIavMnZ6feGT6ebJyH1JKTBm/ze7s+Gz7e3Qupp9yG1uEa6Wf6+CXtzK6SWhDR4k7Ovy5c/\nXz0tt0LqSEiDN/ntfq3n+3/cKmobUnNCGrzJH493f3/19EVIDQlp8Cb1I4SUYfchjSOkVEc9\nTT5JSIM3qR8hpAxCGrxJ/QghZdh9SK6Rrn5EISUQ0uBN6kcIKcPn/kpqxl9Y/bcd3NMjC4l/\nIaTBm9SPEFIGIQ3epH6EkDLs/hppHCGlOupp8klCGrxJ/QghZRDS4E3qRwgpw+5Dco109SMK\nKYGQBm9SPyL1taEPdqNobhIhDd5khyMYQEiDN9nhCAYQ0uBNdjiCAXYf0jiThVR9mKrnDyak\nwZvsZkT1YaqeP5iQBm+ymxHVh6l6/mC7D8k10t4f+CDzBxPS4E32MSLvHtLu3vWc5Jp3fac8\nD0KCAEKiheoDKyRa6HtghUSivgdWSCTqe2CFRKLqA+saCQIICQIICQIIiRaqD6yQaKHvgRUS\nifoeWCGRqO+BFRKJqg+sayQIICQIICQIICRaqD6wQqKFvgdWSCTqe2CFRKK+B1ZIJKo+sK6R\nIICQIICQIICQaKH6wAqJFvoeWCGRqO+BFRKJ+h5YIZFo5IGN+FUY238hhpBoIuCXM13xK5qE\nRBNCKhlBN0IqGUGFoddIQqoYQQUhXbfJDkdQQUjXbbLDEVQQ0nWb7HAEFYR03SY7HEE3QioZ\nQTdCKhlBN0IqGUEF10jXbbLDEVQQ0nWb7HAEFYR03SY7HEEFIV23yQ5HkGHM3/35l1lCqhhB\nN0IqGUE3QioZQTdCKhlBN0IqGUE3QioZQTdCKhlBN0IqGUE3QioZQTdCKhlBN0IqGUE3QioZ\nQTdCKhlBN0IqGUE3fhtFyQi6EVLJCLoRUskIunGNVDKCboRUMoJuhFQygm6EVDKCboRUMoJu\nhFQygm6EVDKCboRUMoJuhFQygm6EVDKCboRUMoJuhFQygm6EVDKCbrz7u2QEMxp3YgmJiQgJ\nAggJAggJAggJdk1IEEBIEEBITMQ1EgQQEgQQEgQQEgQQEuyakCCAkCCAkJiIayQIICQIICQI\nICQIICTYNSFBACFBACExEddIEEBIEEBIEEBIEEBIsGtCggBCggBCYiKukSCAkCBAk5B+PNyd\nf0fn3f2PUSPgAy1Cer559ftub4eMgA+1COl+OX17PH/19P203I8YAUUSQzotj+vXj8tpxAgo\nkhjSsvzbf4SNgCK+IzGRLtdI35/OX7lGokaLkF5uX71qd/M8ZAR8pEdILz/uz/eRTncP7iNR\noUlIexrBjGYIaXltzAgYZT8hJY+ASEKCAEJiIi2ukZbl05dBQmKIFiF9FRLFWoT08nj6+C9P\nBIyAj/QI6eXx4zcGRYyADzQJ6edPd4///T9dNwIqeNUOAggJAgiJiXS5RtrRCGYkJAggJAgg\nJLjY8ilBs1I22eEIiCQkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAk\nCCAkCCAkCCAkCCAkCCAkCCAkCCAkCLDTkOBgNpzl8eGkqd538+ee/8auduZC1ftu/tzz39jV\nzlyoet/Nn3v+G7vamQtV77v5c89/Y1c7c6HqfTd/7vlv7GpnLlS97+bPPf+NXe3Mhar33fy5\n57+xq525UPW+mz/3/Dd2tTMXqt538+ee/8auduZC1ftu/tzz39jVzlyoet/Nn3v+G7vamQtV\n77v5c89/Y1c7A0clJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAggJAgg\nJAhw1JCevyzLl8faffhR+ORt/sfeozz+OgBPZeOf70/L6f65bP4/HDWk0/k8Ki3p+VT35D1W\nh/T9PP5UdSY//T7+p7qS3ztoSPfLl18f7ir34a7wPH6sXfrPP8hOjy/Pd8t90fgv58nns2An\nDhrSafn1Z2HljzYv3yq/IXxdHspm//LtfCI/L6ei+X+e+tIT4K397MkGZcfxp6fltjSkr2Wz\nf/lS+1P1y5+fqitPgHeOHNJ95dl0uzwVhnS3fP/y82K7bP7N8vJwWr6UXew//PnRrvb78mvH\nDennj1Z1J9LPI/mt8geLu9+vNdxWzV+W8x7UfUP4+uvVhlPtt+U3jhvS17tT3R9I54v9wpCW\nnx2/PNd9S/55Ej/+ugVRdgAezn+Q7Ocb0oFDevn1k3rViXTz64Xf8kvd5+WmaPLvOw9PZfO/\n/vpp5Lnu+P9T9blwlbJXjb4s3192EFLdHlS/anZzftW27g+Sfyo/F65SdSCv+T3ysftRNPiu\nOKTqkP9pP3tykd/3kcp+tCgP6e/1V92WfTh/S34qe7Xj98vfdfex/umgIZ3vaT/f1f6MXPjn\n4f35GuH+fDpX+PlH2POva5RvRfN/rv/5z7OwEwcN6c977cpe/j0rDOn59/rrzqOH4uf/dgfH\n/42jhvRyf1puil+zqfwJ/bl6/d9vK28In49/6fz3DhsS7ImQIICQIICQIICQIICQIICQIICQ\nIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQ\nIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQ\nIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQ\nIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIMD/\nAW7CZS95z8IUAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg, col = \"red\", varwidth=TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 444,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAARgklEQVR4nO3d61Ya2RpA0cJbTI4S3v9pj2Ls7qQVL72Ava05fwAOsfZX\nwJLr0GUH/GfLuQeAr0BIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQE\nASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSE\nBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIE\nhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBAS\nBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQ\nEgSEBAEhQeAEIS0wmU/cyvtwzrAElIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBAS\nBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQ\nEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBIE1hrR8wlEHYn6rDOnn7x46\n+fkGIXGYkIREQEhCIiAkIREQkpAICElIBIQkJAJCEhIBIQmJgJCEREBIQiIgJCEREJKQCAhJ\nSASEJCQCQhISgclCStY+X0h6/LKEJCQCQhISASEJiYCQhERASEIiICQhERCSkAgISUgEhCQk\nAkISEgEhCYnAKUO6v14233a724tlc/PJJdYV0h9/vP9jf8vfX/4/qROGtN08/luH22/7/+5w\n+bkl1hTSPoS/a/jjy4/9MMd2wpBulof7oZvNcr3dbfenP7HEqkL6/Uf++PJjP8yxnTCkzf4H\nl2W7P9p8aokVhbT8fvzHlx/7YY7uhCEty9+HLzzqeNf/9Xr+5n86/lxIydIfubh+PxbS2M5w\nj/R4uHWP9N7zCmkKZ3iOdLP9dfoTS6woJM+RpuJVu3FD8qrdRLyPNGxI3keaySlDCpZYV0jM\nQ0hCIiAkIREQkpAICElIBIQkJAJCEhIBIQmJgJCEREBIQiIgJCEREJKQCAhJSAQmC6nZ+tlC\n4ssSkpAICElIBIQkJAJCEhIBIQmJgJCEREBIQiIgJCEREJKQCAhJSASEJCQCQhISASEJiYCQ\nhERglSF9wlEHYn5rDAlyQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAg\nJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAg\nICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgpMjyCeeemY6Q\nIsvP3z108vMNE+4lrxFSREjrJqSIkNZNSBEhrZuQIkJaNyFFhLRuQooIad2EFBHSugkpIqR1\nE1JESOsmpIiQ1k1IESGtm5AiQlo3IUWEtG5CitY/b0jnvsAQUrS+kNZNSNH6Qlo3IUXrC2nd\nhBStL6R1E1K0vpDWTUjR+kJaNyFF6wtp3YQUrS+kdRNStL6Q1k1I0fpCWrdThrS92TwcfrtY\nlsvvR1oi8kVCescfc33rLG9v4nh/MXaqv0V7wpDuNw8XzHbz9Nd6L4+yROVLhLS/GR6+Lb51\nlrc38Y5FPul4Wz6KE4Z0vVxtHw6u7x+aul5ujrFE5WuE9Op33n2WtzfxjkU+6XhbPooThrQs\n218HD4/yls0xlqh8hZCW17/13rO8vYl3LPJJx9vycZw0pIeDzfKPL/749jj/p+F5ho8cfyKk\njy9y6PjPffjj+KXdfOMsQnq/kz60u9vtvj0ePN4jHXySdO5Lzz3SOzchpGcnDOlu2dzc7a42\nDyX9uFh+HGOJylcIyXOkkzrly98/Nn8/dvt2nCUiXyMkr9qd0ClD2u2+X188VnT17f5oSyS+\nREg77yOd0GlDGmiJev0RQ+J0hBStL6R1E1K0vpDWTUjR+kJaNyFF6wtp3YQUrS+kdRNStL6Q\n1k1I0fpCWjchResLad2EFK0vpHUTUrS+kNZNSBH/H2ndhBQR0roJKSKkdRNSREjrJqSIkNZN\nSBEhrZuQIkJaNyFFhLRuQooIad2EFBHSugkpIqR1E1JESOsmpIiQ1k1IkeUTzj0zHSFBQEgQ\nEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBI\nEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFA\nSBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFB\nQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSENKxl\nGOe+JGZw+pBuL5bl6sdRl/galp/v9nBjf/+ZP8y18Q4nDOnpN9vl0y+5m6Ms8aUIaSanDulm\nudnudvc3y+0xlhjfB/ZsJSF9kev61CFtlu3j6e1ycYwlxiekf+3mUbd+MqcO6fmZ67+fwa7j\n6e3z3r3n+AM39SOH9JGpP3P8BZw6pOvnkDbHWGJ87pH+tZtH3frJnDSkq2+3P5bvDye3N4df\nbfgiF+4LhPSv3Tzq1k/mpCEtf9+lb7bHWGJ8QvrXbh516ydzyveR7u5ub6+u9i853Bzs6Ktc\nuP/NSkL6InyyYVhCmomQhvWxj/Ec07kviRkICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKA\nkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKC\ngJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJC\ngoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJCgoCQ5rYM4tyXw9kJaW7Lz096uPF/\n9kdf2tq5L4ezE9LchDQIIc1NSIMQ0tyENAghzU1IgxDS3IQ0CCHNTUiDENLchDQIIc1NSIMQ\n0tyENAghzU1IgxDS3IQ0CCHNTUiDENLchDQIIc1NSIMQ0tyENAghzU1IgxDS3IQ0CCHNTUiD\nENLchDQIIc1NSIMQ0tyENAghRc40spBC/2UvhBQR0vyENAAhzU9IAxDS/IQ0ACHNT0gDENL8\nhDQAIc1PSAMQ0vyENAAhzU9IAxDS/IQ0ACHNT0gDENL8hDQAIc1PSAMQ0vyENAAhzU9IAxDS\n/IQ0ACHNT0gDENL8hDQAIc1vupCWtzYx4fUipPm9uRfL67dcIUWENL839mJ/s33ttnvCkJbf\nHWOJMxLS/N4K6dCZThjS/zZC6pcVUufwXiwHz3XKh3bbq+Xyfr+Flzbx7srG9Dz2iY+HCelM\n+58fH7iG/zh++bsf8B9u5d+X5fvOc6Ry2VFC+grmCWl3f7lcbYUULiukziTPkZ58WzY/hNQt\nK6TOJK/a/XJ38fZzoAmvFyHNb7b3ka6F1C0rpM50n2wYYYmakOYnpAEIaX5CGoCQ5iekAQhp\nfkIagJDmJ6QBCGl+QhqAkOYnpAEIaX5CGoCQ5iekAQhpfkIagJDmJ6QBCGl+QhqAkOYnpAEI\naX5CGoCQ5iekAQhpfkIagJDmJ6QBCGl+QlovIQ1CSHMT0iCENDchDUJIcxPSIIQ0NyENQkhz\nE9IghDQ3IQ1CSHMT0iCENDchDUJIcxPSIIQ0NyENQkhzE9IghDQ3IQ1CSHMT0iCENDchDUJI\ncxPSIIQ0NyENQkhzE9IghDQ3IQ1CSHMT0iCENDchDUJIcxPSIIQ0t2UQ574czk5IEBASBIQE\nASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSE\nBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIE\nhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBBS\nbGmcezf4ICHFlp8HPBRy6Nv/OOO5d4MPElJMSOt0hpBuN8vF7XGXOCMhrdMpQ7q7Wja3u2/7\n5wCXx1nifJ5HPlpIE14ma3LCkO72Bd0s19vd/dVy8D5pwhuNkNbthCFdLze73c2yeTy9XS6O\nscQZCWndThjS02u6y9U/vvj921O/+vs8dhTSr439ccywTh7S96fHdE93TPUSZ+Qead1O+tDu\n4dnRk+3+YV6/xBkJad1OGNJ289fDk+XwHdKMNxohrdtJ30e6ec5nc/D+aOobjfeR1sknG2JC\nWichxXxodZ2EBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQE\nASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSE\nBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIE\nhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEASFBQEgQEBIEhAQBIUFASBAQEgSEBIFBQ4LJfOJW\n3ofzH4w1zSEm7c0z6QvGGn6saQ4xaW+eSV8w1vBjTXOISXvzTPqCsYYfa5pDTNqbZ9IXjDX8\nWNMcYtLePJO+YKzhx5rmEJP25pn0BWMNP9Y0h5i0N8+kLxhr+LGmOcSkvXkmfcFYw481zSEm\n7c0z6QvGGn6saQ4xaW+eSV8w1vBjTXOISXvzTPqCsYYfa5pDTNqbZ9IXTD08jEJIEBASBIQE\nASFBQEgQEBIEhAQBIUFASBAQEgSEBAEhQUBIEBASBIQEgVFCun0e5GazbG62Z53lkNuLv8Yb\ne9Lt9bJc3z2dHnvSR//7dfWPP+lrBgnp7vkfAFzu/xnAxXmned3NfrzN41U9+KSb/Xj7kgaf\n9MF283T1jz/pq8YI6W7zK6T/LZu7x6/+d+aBXnG3XG8f7z2vh5/05nHGm+VqN/ykj66erv4J\nJn3VECHdLpe/QrpZfjwcfl++nXeg11w9Tfk47OCTbpbHe839pTr4pLvH2Z6u/vEnfd0QIS03\nu18hXS33u8df/FfnHegNj8NOMemy2U0w6f3z79HhJz1giJDuds8h/X40qO1yOcekN8vtboJJ\nL5f7p+GGn/SAUWaeKaTbx0cg40/68IDp5vF49Em/Ld93QqpMFNL95vGhx/iT3l5t9s82Bp90\n/0hOSJV5QtpuLh+PJph0t7t+fGw3+KQXj28mCKny68LbjH9RXj69zTHBpI/P5jajT3q9f6Xu\nabixJz1slJl/e9XuftzXbe4vLu/3J4afdO/v1xdHnXT5y+iTHjZYSN/2v59+PD1LHtCP5fLX\nqcEnfXof6f7xUwJjT/rPkMae9LDBQhr8ve37vzoafdL9Jxu2V4/PkQafdM8nGyrPj4sv9r+c\nLg+f+Wyu//7tOfikvz5rtx9v8Ekf/br6J5j0NaOFtN1//ve8s7zuHw9DBp90/0Hqi9v9qdEn\n3f119U8w6WtGCQmmJiQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKA\nkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKC\ngJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJC\ngoCQICAkCAgJAkKCgJAgICQICAkCQoKAkCAgJAgICQJCgoCQICAkCAgJAkKCgJAgICQICAkC\nQoKAkCAgJAgICQL/B9oNaDGLjY6rAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg, col = \"red\", varwidth = TRUE, horizontal = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 445,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAYUklEQVR4nO3d7ULa2BaA4eAHWqsc7v9qj6BN1Zl2JKy9V7L28/xQO9Ow\nsglvJYHW6QhcbcreAahASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBA\nSBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBA\nSBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBA\nSBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBA\nSBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBBA\nSBBASBBASBBASBBASBBASBBASBBASBBASBBASBBASBCgQ0gTbMyCR3l8OAkjIJKQIICQIICQ\nIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQIICQelr0N5LZAiH1\nc65ISjUJqZ/pw0eKEVI305fPVCKkboRUmZC6EVJlQurHOVJhQurHVbvChNST15HKEhIEEBIE\nEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIEEBIE\nEBIEEBIEEBIEEBIEEBIEEFIL0wLZ+8xVhNRV2YUNT0hdlV3Y8ITUVdmFDU9IXZVd2PCEBAGE\nBAGEBAGE1FXZhQ1PSF2VXdjwhNRV2YUNT0hdlV3Y8ITUVdmFDU9IEEBIEEBIEEBIXZVd2PCE\n1FXZhQ1PSF2VXdjwhNRV2YUNT0hdlV3Y8IQEAYQEAYQEAYTUVdmFDU9IXZVd2PCE1FXZhQ1P\nSF2VXdjwhNRV2YUNT0gQQEgQQEgQQEhdlV3Y8ITUVdmFDU9IXZVd2PCE1FXZhQ1PSF2VXdjw\nhAQBhAQBhAQBhNRV2YUNT0hdlV3Y8ITUVdmFDU9IXZVd2PCE1FXZhQ1PSBBASBBASBBASF2V\nXdjwhNRV2YUNT0hdlV3Y8ITUVdmFDU9IXZVd2PCEBAGEBAGEBAGE1FXZhQ1PSF2VXdjwhNRV\n2YUNT0hdlV3Y8LqG9PPhbjq52/9sNWLlyi5seB1DOtxMv902GQFJOoa0n3Y/ns9fvTztpn2L\nEZCkY0i76Xn++nnatRgBSTqGNE1/+kXYiNUru7Dh+Y7UVdmFDa/vOdLTy/mrcc+Ryi5seD0v\nf99+uGp3c2gyYu3KLmx4fV9H2p9fR9rdPXgdiVq8swECrCek6aM2I6CVlJD+MxQhsTFC6qrs\nwobX9QXZbz97K/t4K7uw4XUM6edOSGUXNryeT+0Od9Pt+RVZT+2opu850o9p+nEUEvV0vtjw\ncjvdHQYOiaq6X7V7mHZPQqKa/pe/n2/++wVXIbExGa8j3Y8bUtmFDW89bxHqPCJH2YUNT0hd\nlV3Y8ITUVdmFDU9IXZVd2PCEBAGEBAGEBAGE1FXZhQ1PSF2VXdjwhNRV2YUNT0hdlV3Y8ITU\nVdmFDU9IEEBIEEBIEEBIXZVd2PCE1FXZhX1P4X+MWkhdlV3Yd5wrqpqSkLoqu7DvmD58LEdI\nXZVd2DdMXz7XIiQ6EdL1m6xwBL0J6fpNVjiC7pwjXb3JCkfkKLuw73DV7upNVjgiR9mFfY/X\nka7cZIUjcpRd2PCE1FXZhQ1PSF2VXdjwhAQBhAQBhAQBhNRV2YUNT0hdlV3Y8ITUVdmFDU9I\nXZVd2PCE1FXZhQ1PSBBASBBASBBASF2VXdjwhNRV2YUNT0hdlV3Y8ITUVdmFDU9IXZVd2PCE\nNI7pXfZ+lCSkobhjWxHSUNyxrQipq+yFZc+vS0hdZS8se35dQuqq7MKGJ6Suyi5seELqquzC\nhiekobhjWxHSUNyxrQhpKO7YVoTUVfbCsufXJaSusheWPb8uIXVVdmHDE1JXZRc2PCF1VXZh\nwxPSUNyxrQhpKO7YVoQ0FHdsK0LqKnth2fPrElJX2QvLnl+XkLoqu7DhCamrsgsbnpC6Kruw\n4QlpKO7YVoQ0FHdsK0Iaiju2FSF1lb2w7Pl1Camr7IVlz69LSF2VXdjwhNRV2YUNT0hdlV3Y\n8IQ0FHdsK0Iaiju2FSENxR3bipC6yl5Y9vy6hNRV9sKy59clpK7KLmx4Quqq7MKGJ6Suyi5s\neEIaiju2FSENxR3bipCG4o5tRUhdZS8se35dQuoqe2HZ8+sSUldlFzY8IXVVdmHDE1JXZRc2\nPCENxR3bipCG4o5tRUhDcce2IqSusheWPb8uIXWVvbDs+XUJabmpk+x1xim1mM+EtNz0vy62\ncWd8w7miqikJaTkhXWb68LEcIS23wZAy79jpy+dahLSckBbN3sbBvZSQlhPSotnbOLiXEtJy\nQloyfBvH9mJCWk5IFw531e7aTVY4IsAGQ0rmdaQrN1nhiABCYiak5YTETEjLbTCkbdyxWySk\n5YTETEjLCYmZkJYTEjMhLSckZkJaboMh0YqQlhMSMyEtJyRmQlpugyFt447dIiEtJyRmQlpO\nSMyEtJyQmAlpOSExE9JyGwyJVoS0nJCYCWk5ITET0nIbDGkbd+wWCWk5ITET0nJCYiak5YR0\n8Xj/itB1m6xwRIBNhbSCnxTj37W7epMVjgiwrZDib/LiXfjwsRwhLSeky/bgy+dahLSckC7b\ngy+fa+ka0s+Hu/Mz9Lv9z1YjehLSZXvw5XMtHUM63Hw4271tMqIvIV24Cx8+ltMxpP20+/F8\n/urlaTftW4zoS0gX7oKrdtducrabnuevn6ddixF9CeninaiaUdeQPt2Jf79Ht3F3C4mZ70jL\nCYlZ33Okp5fzV86RhFRNz8vftx+u2t0cmozoSkjM+r6OtD+/jrS7e/A6kpBq8c6G5YTEbD0h\n5b87+VJCYpYQ0uNuunlsO6IPITHrGdLz3bR7PD54i5CQ6ukY0vO5oP10fzi+3E1//Z60jQMt\nJGYdQ7o/vXa0f3sl9jDdtBjRl5CYdX+L0HT34RfRI/oSErPuIf14e07nLUJCKqXrU7v7X29n\nONx7i5CQSun5F/t28/O56e/fkIQkpK3p+jrS/lc+u79+PxKSkDZnPe9s6DwigJCYCWk5ITET\n0nJCYiak5YTETEjLCenindjI+/oXENJyQrpwF/xzXNdussIRAYR04S58+FiOkJYT0mV78OVz\nLUJaTkiX7cGXz7UIaTkhXbYHXz7XIqTlhHThLnz4WI6QlhPShbvgqt21m6xwRAAhXbwTVTMS\n0jWmTmJ2dg0hFSak5YTETEjLCYmZkJZzjsRMSMsJiZmQlhMSMyEtJyRmQlpOSMyEtJyQmAlp\nOSExE9JyQmImpOWExExIywmJmZCWExIzIS0nJGZCWk5IzIS0nJCYCWk5ITET0nJCYiak5YTE\nTEjLCYmZkJYTEjMhLSeki3fCP8d13SYrHBFASBfuwvTrQ0FCWk5IF+7Ch4/lCGk5IV22B18+\nZ+xCu++HQlpOSJftwZfP/Xeg5VNLIS0npMv24MvnpB0Q0uoI6cJd+PAxbXyrHRDSckK6cBdy\nr9oJaa2EdPFOZF78FtJaCWlbnCOtlJC2xVW7lRLS1ngdaZWExExIywmJmZCWExIzIS0nJGZC\nWk5IzIS0nJCYCWk5ITET0nJCYiak5YTETEjLCYmZkJYTEjMhLSckZkJablshfRJyk3wgpOWE\ndOHUf9NrT1oT0nJCunwvsgY3J6TlthVS/E0u2Yuswc0JaTkhXb4XWYObE9JyQrp8L7IGNyek\n5YTETEjL/fclqRgxOyukpoTUVd7ChNSWkLoaPaSyB1ZIfQmpKiENQkhtCWkQQmpLSIMQUltC\n6mr0c6S6hNSVkKoSUldCqkpIXY0eUtkDK6S+hFSVkAYhpLaENAghHY9+0BhXE5IffVnI6OdI\nqaYPHxvdeOtNVjgih5DyTF8+t7n1tpuscEQOIeURUiGjh5R5YIVUiJASOUeKutVi/7jnRYTk\nqt0Wbnj1hHT0OtIGbnj1hNSWkLoa/RypLiF1JaSqBgspm5CqElJXo4dU9sAKqS8hpXLVbvU3\nvHpC8jrSFm549YTknQ1buOHVE5L32m3hhlc/fx0hZRLSFm549fOFJKRCEkNaxU81T+UcqY6y\nC/smV+2u22SFI3KUXdg3eR3puk1WM8IDeez57YwSUpMfcLw92evOnt/OMCH973/DX7Y65j+Q\ns+e3I6Sush9I2fPrElJX2Q/k7Pl1CakrD+SqhNTV6CHVXb+Quqr7QPqeuusX0lCy1509vx0h\nDSV73dnz2xHSULLXnT2/HSF1lf1Ayp5fl5C6yn4gZ8+vS0hdeSBXJaSuRg+p7vqF1FXdB9L3\n1F2/kIaSve7s+e0IaSjZ686e346QhpK97uz57Qipq+wHUvb8uoTUVfYDOXt+XULqygO5KiF1\nNXpIddcvpK7qPpC+p+76hTSU7HVnz29HSENpvO6v/3rgEm33sBkhDaV1SP+72laPjJC6yn6Y\nCKkVIXWV/TARUitC6mqrD5NvElLjTd79fLg7n0/e7X+2GvHHW1zH4drqw+SbhNR4k7PDzYdr\nM7dNRvzlFtdxuLb6MPkmITXe5Gw/7X48n796edpN+xYj/nKLNQ7XtZwjtdIxpN30PH/9PO1a\njPjLLdY4XNcSUisdQ/r0WtvfX3gTUiNCasV3pK6yHyZCaqXvOdLTy/mrjHOkdbwRJfVh0n7t\nQmq8yZvbDw/km0OTEX++RSF1sLKQer65r+/rSPvz60i7u4f+ryMJqYOVhfQvO7imW/bOhit2\nI2luJ0JqvMm3brbpN4yVhFSckBpv8uZwP023T+834vJ3QUJqvMnZYff2Rru3GxFSQasPqZ2u\nl78fX2t63J3fZjdoSFt9mHyTkBpvcrZ72/Bld/MipJqE1HiTt+3eNzzc3gqpptWHVOIc6Wb6\n9SLsza2QShJS403OHqf7969eplshVSSkxpu82c/1PP3HS0VlQypOSI03efd89+url3shFSSk\nxpvkjxBSD6sPqR0hdbXVh8k3CanxJvkjhNSDkBpvkj9CSD2sPiTnSFffopA6EFLjTfJHCKmH\n7/2V1B5/YfVPO7imWxYSfyCkxpvkjxBSD0JqvEn+CCH1sPpzpHaE1NVWHybfJKTGm+SPEFIP\nQmq8Sf4IIfWw+pCcI119i0LqQEiNN8kf0fXa0F92I2luJ0JqvMkKR9CAkBpvssIRNCCkxpus\ncAQNrD6kdgYLKfswZc9vTEiNN1nNiOzDlD2/MSE13mQ1I7IPU/b8xlYfknOktd/wRuY3JqTG\nm6xjRL/XkFb3rudOrnnXd5f7QUgQQEiUkH1ghUQJdQ+skOio7oEVEh3VPbBCoqPsA+scCQII\nCQIICQIIiRKyD6yQKKHugRUSHdU9sEKio7oHVkh0lH1gnSNBACFBACFBACFRQvaBFRIl1D2w\nQqKjugdWSHRU98AKiY6yD6xzJAggJAggJAggJErIPrBCooS6B1ZIdFT3wAqJjuoeWCHRUcsD\nG/GjMJb/QAwhUUTAD2e64kc0CYkihJQygmqElDKCDE3PkYSUMYIMQrpukxWOIIOQrttkhSPI\nIKTrNlnhCDII6bpNVjiCaoSUMoJqhJQygmqElDKCDM6RrttkhSPIIKTrNlnhCDII6bpNVjiC\nDEK6bpMVjqCHNn/35w+zhJQxgmqElDKCaoSUMoJqhJQygmqElDKCaoSUMoJqhJQygmqElDKC\naoSUMoJqhJQygmqElDKCaoSUMoJqhJQygmqElDKCavw0ipQRVCOklBFUI6SUEVTjHCllBNUI\nKWUE1QgpZQTVCCllBNUIKWUE1QgpZQTVCCllBNUIKWUE1QgpZQTVCCllBNUIKWUE1QgpZQTV\nCCllBNV493fKCEbU7oElJAYiJAggJAggJAggJFg1IUEAIUEAITEQ50gQQEgQQEgQQEgQQEiw\nakKCAEKCAEJiIM6RIICQIICQIICQIICQYNWEBAGEBAGExECcI0EAIUEAIUEAIUEAIcGqCQkC\nCAkCCImBOEeCAEKCAEVC+vlwd/4ZnXf7n61GwF+UCOlw8+Hn3d42GQF/VSKk/bT78Xz+6uVp\nN+1bjIAkHUPaTc/z18/TrsUISNIxpGn60y/CRkAS35EYSJVzpKeX81fOkchRIqTj7YerdjeH\nJiPgb2qEdPy5P7+OtLt78DoSGYqEtKYRjGiEkKaP2oyAVtYTUucREElIEEBIDKTEOdI0ffs0\nSEg0USKkRyGRrERIx+fd3//yRMAI+JsaIR2f//7GoIgR8BdFQnp9dvf837/puhGQwVU7CCAk\nCCAkBlLlHGlFIxiRkCCAkCCAkOBi07cEzeqyyQpHQCQhQQAhQQAhQQAhQQAhQQAhQQAhQQAh\nQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQQAhQYCVhgQbs+BRHh9ON9n7\nbv7Y8z9Z1c5cKHvfzR97/ier2pkLZe+7+WPP/2RVO3Oh7H03f+z5n6xqZy6Uve/mjz3/k1Xt\nzIWy9938sed/sqqduVD2vps/9vxPVrUzF8red/PHnv/JqnbmQtn7bv7Y8z9Z1c5cKHvfzR97\n/ier2pkLZe+7+WPP/2RVO3Oh7H03f+z5n6xqZ2CrhAQBhAQBhAQBhAQBhAQBhAQBhAQBhAQB\nhAQBhAQBhAQBhAQBhAQBhAQBhAQBthrS4X6a7p9z9+Fn4p23+B97j/J8OgAvaeMP+9202x/S\n5v/DVkPanR9HqSUddnl33nN2SE/n8busR/LL2/Hf5ZX81UZD2k/3pw93mftwl/g4fs5d+usf\nZLvn4+Fu2ieNvz9PPj8KVmKjIe2m05+FmU9tjj8yvyE8Tg9ps09+nB/Ih2mXNP/9rk99AHy2\nnj1ZIO04vnqZblNDekybfXKf+6z6+P6sOvMB8MWWQ9pnPppup5fEkO6mp/vXk+20+TfT8WE3\n3aed7D+8P7XL/b780XZDen1qlfdAej2SPzKfWNy9XWu4zZo/Tec9yPuG8Hi62rDL/bb8yXZD\nerzb5f2BdD7ZTwxpeu34eMj7lvz6IH4+vQSRdgAezn+QrOcb0oZDOp6eqWc9kG5OF37TT3UP\n003S5LdXHl7S5j+eno0c8o7/P2U/Fq6SdtXofno6riCkvD3Ivmp2c75qm/cHyT+lPxauknUg\nr/k58rH7kTT4Ljmk7JD/aT17cpG315HSnlqkh/Rr/Vkvyz6cvyW/pF3teLv8nfc61j9tNKTz\na9qHu9znyIl/Hu7P5wj788M5w+sfYYfTOcqPpPmv6z+83wsrsdGQ3t9rl3b59ywxpMPb+vMe\nRw/J9//tCo7/J1sN6bjfTTfJ12wyn6Efstf/dJv5gvD5+KfO/2qzIcGaCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkC\nCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCGkrTj8f8F9/RuCKfrT3wByErRDSqjkI\nW/HHXoS0Bg7CVghp1RyEddrvptuX42G6Of/q9PnXU7tpermbdg+/ftf+PaTHm2l3/inn03S4\nme7OP3Z8un3K2v/hCGmVXiOYpt3heDf9PP3yx/TwIaTd6X8+/Ppdd+eQ7k5fTrfH0/9//Xp/\nfDz/h+kxdRkDEdIa/ZhuD8f71xyepvvTr++nlw8hvf6/x9O3qh/T7vn4vDv9x6fTfzzcTk/v\n//943E3Pp99xk7ySYQhpjc7fiA7T7ni8mU5VnHr4HdLpm9Tpq7dvV09vX55+2+H0lO7t/79+\n8rSuJyGt0e/rB4+n53A/Tx9+h/Trd7z/rrcv383/df/6FO/5OWPnxySkNfod0vnb0sPrM7tL\nQzo+nE6ldi8Jez8kIa3Rhyva+9enaDc3x/8M6V+2fdrfOEfqRUhrdDufIx2fp9vn8yW6f4Z0\ndz4N+vn7y+Ov/3P811/QkDt6jR5PV9720/709c20Oz2z+5eQnn5ftTtfwHvd7G5u52b64apd\nR0JapV+vIx3PV+XONfwzpLcXj+7PX543OJ8SvYf04+2c6WfSAoYjpHU6XXR7u1BweHvx9d9C\nOl1Q+PDOhun+5fj72dz5nQ066kVIa/f6Hcmlt/UT0trdepvPFghp3d7fQMfaCWnddqcLcayf\nkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCA\nkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCCAkCDA/wHu7UwA6HM2NwAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(cylinders, mpg, col = \"red\", varwidth=TRUE, xlab = \"cylinders\")"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>hist()</code> môže byť použitá na vykreslenie histogramu. \n",
    "Berte do úvahy, že  <code>col=2</code> má rovnaké správanie ako  <code>col=\"red\"</code>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 446,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAc9ElEQVR4nO3diVbqSBQF0AQQFQX+/2+bQUtweLHjTbhV7L1WP3E6KSp1Gkii\ndnvgz7pbDwBaoEgQQJEggCJBAEWCAIoEARQJAigSBFAkCKBIEECRIIAiQQBFggCKBAEUCQIo\nEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIEUCQIoEgQQJEggCJBAEWCAIoEARQJAigSBFAk\nCKBIEECRIIAiQQBFggCKBAEUCQIoEgRQJAigSJPouu761scHLj3MMpjHvuvm2dIdU6RJ/KpI\nL/0ss/942LYiTU2RJvGrIn3/KBVu0XWvc2znvinSJL4U6d9fNNNYmI45nsRPj0i7x+Xh1ur5\n/JHu/cs2D8dnX5u3b9ke3ls+XXzndtGtD7eeV4fbi/X2Pe9p0S1e9vunvlu+XG/+Ku9Tkb79\nzrcPdg/b74bAMBM1iR+KtO3f6rO8KtLy7fbq9B0vb1/y8Z2L0ze8f1X3cv7o+f3tunysuMy7\n7Ov7gL5+5/GLT+/122+GwDATNYkfinT4//zhwWh3WKBPFyt89d6Qc5P68u77d3bHb3s6LOzd\nfr++6sdh5V928Owq77siff3Oj00uvhkCw0zUJLpLbx84/3v8P/7uvF7fPrU5vH3aHZ71Hd4e\nno09H5b48U3/8Z3HAh2PGWyvkg4ffTqu/NfTm49tf8r75qnd1+889urw0LTpvx0Cw0zUJH4o\n0nFllpdC7yv84fj4dLQ+HaVenZf/cTW/f+fmU/T535erNx9f8CnvmyJ9/c7TY97+VMJvhsAw\nEzWJH4r0eP7AW5c+PrU7vb89faB/X7yfP334guf1sitF2n95U77vMu+7gw0/B5weKz8PgWEm\nahIfK/B6pa7fX59sv3zq/Vb3tUjn958XF838d5Gubv3PIn0zBIaZqEn8VKT97vl8yGx59any\nCNJ/+4h0evf4PGvx8PT6vx6R+s+f/LlIu4/PekT6/0zUJH4s0tHpLM/Hx1aDr5FOn128fXyw\nSKvB10jfvjl9z+Z0FM9rpP/PRE3ihyIt3v7H//FQsfvxqF33qSRvb4cfkYaP2n375ni04XjU\n7unrEBhmoibxQ5EOa3y5PR1zOF6pcDyGd3xbzrSeLy39eh7pFLQ8ffGmHyzS57zfFums/2YI\nDDNRk/jpqd37wYbjS6TjcerzjfeVf75Ee/P2JZ9K8vK+0k/Hrf9VpE95vyzSeWjnKxs+DYFh\nJmoSPxXp/PpoeX4Nc3wt8tadh/7iBNPr8UK3zZeSHD/cP7xu3y9Y+Cb93VXeL4t0PCrYr3ff\nDYFhJiqr3dvTrFl835hZh1A5Rcrm/LJ//7q8voBu8o3eegiVU6RsPg4VXF8aNKmfjlbMOITK\nKVI25UctTkf0ZnJdpJsMoXKKlM7u8fhzEP3DnA8Gn14j3WIIlVMkCKBIEECRIIAiQQBFggCK\nBAEUCQIoEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIEUCQIoEgQQJEggCJBAEWCAIoEARQJ\nAigSBFAkCKBIEECRIIAiQQBFggCKBAEUCQIoEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIE\nUCQIoEgQQJEggCJBAEWCAIoEARQJAigSBFAkCKBIEECRIIAiQQBFggCKBAEUCQIoEgRQJAig\nSEUX5Nb3g1uw24ugqTCjd8luLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ\n8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8U\nifHs9kKRGM9uLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ8ez2QpEYz24v\nFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9u\nLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ8ez2QpEYz24vFInx7PZCkRjP\nbi8UifHs9kKRGM9uLxSJ8ez2QpEYz24vFInx7PZCkRjPbi8UifHs9kKRGM9uLxSJ8ez2QpEY\nz24vFInxxu/2l8dVd7RavwSO54YUifHG7vbdovuwDB3SrSgS443d7euuf3493dpu+m4dN6Db\nUSTGG7vb++613H7t+pjB3JYiMd7Y3d51P71TLUViPI9IhSIx3h9eI222p1teI00SQ11G7/bl\nxVG7xS5ySLeiSIz3h/NI69N5pH716DzSBDHUxW4vFInxJtrt3aVpNhFOkRhv9G7fPnT9437/\ntOj6gUMNtawsRWK80ZcI9cfHmqfHX1wiVMvKUiTGG3/4+/A4tO67h91+t/734e9aVpYiMd74\nE7Kn7+5OB77/fUK2lpWlSIz3t0uE3g4k/Pt4Qi0rS5EY76+PSMd/dx6R4mOoy19fI613b7fj\nNzE3RWI8R+0KRWI855EKRWK8GXZ7LStLkRhPkQpFYjxFKhSJ8RSpUCTGU6RCkRhPkQpFYjxF\nKhSJ8RSpUCTGU6RCkRhPkQpFYjxFKhSJ8RSpUCTGU6RCkRhPkQpFYjxFKhSJ8RSpiCpSkJjR\nMBNFKnI9ItUya5wpUpGrAbXMGmeKVORqQC2zxpkiFbkaUMuscaZIRa4G1DJrnClSkasBtcwa\nZ4pU5GpALbPGmSIVuRpQy6xxpkhFrgbUMmucKVKRqwG1zBpnilTkakAts8aZIhW5GlDLrHGm\nSEWuBtQya5wpUpGrAbXMGmeKVORqQC2zxpkiFbkaUMuscaZIRa4G1DJrnClSkasBtcwaZ4pU\n5GqAn1iviyIVyYqUKoYhilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6\nuWIYokhFrqWbK4YhilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIY\nokhFrqWbK4YhilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIYokhF\nrqWbK4YhilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIYokhFrqWb\nK4YhilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIYokhFrqWbK4Yh\nilTkWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIYokhFrqWbK4YhilTk\nWrq5YhiiSEWupZsrhiGKVORaurliGKJIRa6lmyuGIYpU5Fq6uWIYokhFrqWbK4YhLRSpCxI0\nmhZjGNJEkcRMHcMQRRJDAEUSQwBFEkMARRJDAEUSQwBFEkMARRJDAEUSQwBFEkMARRJDAEUS\nQwBFEkMARRJDAEUSQwBFEkMARRJDAEUSQwBFEkMARRJDAEUSQwBFEkMARRJDAEUSQwBFEkMA\nRRJDAEUSQ4DxE/3yuDr9xuzV+mWqTfxSrjXXZAxDxk70bnHx2+eXk2zi13KtuSZjGDJ2otdd\n//x6urXd9N16ik38Wq4112QMQ8ZOdN+9ltuvXT/FJn4t15prMoYhYyf66q8J/ftPCylS/TEM\n8YgkhgB/eI202Z5ueY10BzEMGT3Ry4ujdovdJJv4rVxrrskYhvzhPNL6dB6pXz06j9R8DENc\n2SCGABNN9AR/LfwfGxMzdQxDRk/0bn08VPe46Lrl80Sb+K1ca67JGIaMnehtf3ik2fUuEbqP\nGIaMneiHbrU7/POwPXTqweHv1mMYMv7Kht3bP4dneU7Ith7DkD9dItR3F++Eb+L3YxEzdQxD\nxj+1e93vH8/XCe3+/SJJkeqPYcjYiX7t+vXrftUfmrRZdJspNvFrudZckzEMGT3Rm/7jRNHj\nNJv4rVxrrskYhvxhop8fTj8lu3rcTraJ38m15pqMYYhLhMQQQJHEEECRxBBAkcQQQJHEEECR\nxBBAkcQQQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQ\nQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQQJHEEECRxBBAkcQQQJHEEECR\nxBBAkcQQ4HKiF0N/xPLvm5hErjXXZAxDLie667opuqRI9ccw5HKid88PU3RJkeqPYcjniX55\nXER3SZHqj2HINxP92h8el54m3USsXGuuyRiGfJ3ozbI7Wk64iWC51lyTMQz5NNG7x8PD0WKz\nO7RpNdEm4uVac03GMORqol+OBxvWr+dPhO0CRao/hiFX55EOD0ZPu/dP9FNsYhK51lyTMQy5\nOo+02ky9iUnkWnNNxjDk6jzS9JvIvAExjHc10bv18flcv45tlCLVH8OQy4ne9qcjDF3Xh17b\noEj1xzDkcqKX3cPxsWi3jjv0/XkTk8i15pqMYcj1Raufb4RvYhK51lyTMQy5nOi+O7842imS\nGP6fy4led8uXw5uXZbeeahOTyLXmmoxhyNVEn6+yi7zO7ssmppBrzTUZw5DriX5eHWsUeOX3\n101MINeaazKGITNMtCLdMiZIzGgapkhi5otpmCKJmS+mYVczdPwx8/hHckUS077LGXqc5imx\nIolp3/UJ2eDjdV83MYlci0XMXfr2EqHpNpF5A2Imj2nY5Qytukl+IkmRxLTv+scoTpcITbmJ\nSeRaLGLu0vVTOwcbxEwZ0zBFEjNfTMOckBUzX0zDFEnMfDENu56hzer4rG4V++coFElM+65m\naHl+eeSXn4iZJqZhlzP01C1PP2X+1D1MtYlJ5FosYu7S9SVCu/3bL+SaahOTyLVYxNylz5cI\nKZKY6WIadjlDi7dHpNduMdUmJpFrsYi5S9+8RtoEXwWuSGLadzVDK79FSMyUMQ37eh6pWz1P\nuYkJ5FosYu6SKxvEzBfTMEUSM19MwxRJzHwxDbs+j+THKMRMGdMwRRIzX0zDvpmhl2Xo3xlT\nJDF34LsZ2rloVcwkMQ37doY8tRMzSUzDvpuhp66fehOhci0WMXfp+4MNj1NtYhK5FouYu/Rd\nkRaxv7lYkcS0zwlZMfPFNEyRxMwX07AfTshGnpRVJDHtUyQx88U07GqGHvvN4d+X3g/2iZkk\npmGXM/TYvZ7evnah1wgpkpj2XT+1+3wjfBOTyLVYxNylyxnqyyOS3yIkZoqYhl3O0Lo7vUby\nW4TETBTTsKsZWr4dr1tPt4kp5FosYu7S9Qw9n36L0GbKTUwg12IRc5dc2SBmvpiGKZKY+WIa\ndj1D/tCYmCljGvb1YMPeHxoTM1FMwy5nyB8aEzNtTMOuT8j6Q2Nipoxp2OdLhBRJzHQxDbuc\nIX9oTMy0MQ375jWSS4TETBTTsKsZ+l9/aOzl8fzlq/XL/9jEFHItFjF36et5pN/9obHd4uJn\naf9dPEUS076xM7Tu+ufzD11sD08F/3mVqyKJad/lDK3+x1Xf7z+7dPT679/Mqkhi2vf58Pev\nv+/336hIYtr3+fD3b3lEEsOFyxnarZYDB+A+HH+a9nxFntdIYvj01O5//E675cVXL/75SKZI\nYto3ukj7l/XpPFK/enQeSczdm2GGFElM+yaaoUl+9/GPGxNTSUzD3mdo/HIf/E5FEtO+6yKN\nqZMiiWF0kf7HX65QJDHtG1ukl16RxFCMfmq3W3XL7a++R5HEtO8Pr5Geu+75N9+jSGLa95eD\nDdtlt9opkhguizTm1M9j128USQx/LNL+dTH8xYokpn1/nqEHRRKDa+3EzBjTMEUSM19MwxRJ\nzHwxDVMkMfPFNEyRxMwX0zBFEjNfTMMUScx8MQ1TJDHzxTRMkcTMF9MwRRIzX0zDFEnMfDEN\nUyQx88U0TJHEzBfTMEUSM19MwxRJzHwxDVMkMfPFNEyRxMwX0zBFEjNfTMMUScx8MQ1TJDHz\nxTRMkcTMF9MwRRIzX0zDFEnMfDENUyQx88U0TJHEzBfTMEUSM19MwxRJzHwxDVMkMfPFNEyR\nxMwX0zBFEjNfTMMUScx8MQ1TJDHzxTRMkcTMF9MwRRIzX0zDFEnMfDENUyQx88U0TJHEzBfT\nMEUSM19MwxRJzHwxDVMkMfPFNEyRxMwX0zBFEjNfTMMUScx8MQ1TJDHzxTRMkcTMF9MwRRIz\nX0zDFEnMfDENUyQx88U0TJHEzBfTMEUSM19MwxRJzHwxDVMkMfPFNEyRxMwX0zBFEjNfTMMU\nScx8MQ1TJDHzxTRMkcTMF9MwRRIzX0zDFEnMfDENUyQx88U0TJHEzBfTMEUSM19MwxRJzHwx\nDVMkMfPFNEyRxMwX0zBFEjNfTMMUScx8MQ1TJDHzxTRMkcTMF9MwRRIzX0zDFEnMfDENUyQx\n88U0TJHEzBfTMEUSM19MwxRJzHwxDVMkMfPFNEyRxMwX0zBFEjNfTMMUScx8MQ1TJDHzxTRM\nkcTMF9MwRRIzX0zDFEnMfDENUyQx88U0TJHE/CYmSMxoMlIkMdXFZKRIYqqLyUiRxFQXk5Ei\niakuJiNFElNdTEaKJKa6mIwUSUx1MRkpkpjqYjJSJDHVxWSkSGKqi8lIkcRUF5ORIompLiYj\nRRJTXUxGiiSmupiMFElMdTEZKZKY6mIyUiQx1cVkpEhiqovJSJHEVBeTkSKJqS4mo/F37eVx\ndfp9Fqv1y1Sb+KVce1nM5DEZjb1ru8XF74ZZTrKJX8u1l8VMHpPR2Lu27vrn19Ot7abv1lNs\n4tdy7WUxk8dkNPau9d1ruf3a9VNs4tdy7WUxk8dkNPauXf2uv3//4j9FEhMbk5FHJDHVxWT0\nh9dIm+3pltdIYmaOyWj0XVteHLVb7CbZxG/l2stiJo/J6A/nkdan80j96tF5JDGzxmTkygYx\n1cVkNNFdm/VveeTay2Imj8lo9F3bPXTdcvMW4vC3mBljMhp9iVB/vtDuHKJIYmaMyWj84e+n\nQ5ue+tNldookZs6YjMafkD292faLrSKJmTcmo79eIrRbLhVJzLwxGY29a4vu/STsYqlIYmaN\nyWjsXXvqHt5ubbulIomZMyaj0XdtXdqzGThVpEhiYmMyGn/XXlfvt7YPiiRmxpiMXCIkprqY\njBRJTHUxGSmSmOpiMlIkMdXFZKRIYqqLyUiRxFQXk5EiiakuJiNFElNdTEaKJKa6mIwUSUx1\nMRkpkpjqYjJSJDHVxWSkSGKqi8lIkcRUF5ORIompLiYjRRJTXUxGiiSmupiMFElMdTEZKZKY\n6mIyUiQx1cVkpEhiqovJSJHEVBeTkSKJqS4mI0USU11MRookprqYjBRJTHUxGSmSmOpiMlIk\nMdXFZKRIYqqLyUiRxFQXk5EiiakuJiNFElNdTEaKJKa6mIwUSUx1MRkpkpjqYjJSJDHVxWSk\nSGKqi8lIkcRUF5ORIompLiYjRRJTXUxGiiSmupiMFElMdTEZKZKY6mIyUiQx1cVkpEhiqovJ\nSJHEVBeTkSKJqS4mI0USU11MRookprqYjBRJTHUxGSmSmOpiMlIkMdXFZKRIYqqLyUiRxFQX\nk5EiiakuJiNFElNdTEaKJKa6mIwUSUx1MRkpkpjqYjJSJDHVxWSkSGKqi8lIkcRUF5ORIomp\nLiYjRRJTXUxGiiSmupiMFElMdTEZKZKY6mIyUiQx1cVkpEhiqovJSJHEVBeTkSKJqS4mI0US\nU11MRookZsaYIDGjCaVIYu41JpQiibnXmFCKJOZeY0Ipkph7jQmlSGLuNSaUIom515hQiiTm\nXmNCKZKYe40JpUhi7jUmlCKJudeYUIok5l5jQimSmHuNCaVIYu41JpQiibnXmFCKJOZeY0Ip\nkph7jQmlSGLuNSaUIom515hQiiTmXmNCKZKYe40JpUhi7jUmlCKJudeYUIok5l5jQimSmHuN\nCXXLIkX9usBcu0dMLTGhblqkqTcgRsxcFEnMvcaEUiQx9xoTSpHE3GtMKEUSc68xoRRJzL3G\nhFIkMfcaE0qRxNxrTChFEnOvMaEUScy9xoRSJDH3GhNKkcTca0woRRJTX0yqi53fxhQZ9j83\noUhiGoj5a9jL4+pU69X6ZeQmFElMAzF/C9stLh4il+M2oUhiGoj5W9i6659fT7e2m75bj9qE\nIolpIOZvYX33Wm6/dv2oTSiSmAZi/hZ2dcjj6/GPXx0ciTr4AqOMXPvfL+aR3/c/HpGgfX94\njbTZnm4NvkaC9o1+eFtePEQudpFDgvr84TzS+nQeqV89DpxHgvZlvGwJqqNIEECRIIAiQQBF\nggCKBAEUCQIoEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIEUCQIoEgQoIUi3eiXOVG70EUY\nGXYjue6D0fys4dHkumvj5LoPRvOzhkeT666Nk+s+GM3PGh5Nrrs2Tq77YDQ/a3g0ue7aOLnu\ng9H8rOHR5Lpr4+S6D0bzs4ZHk+uujZPrPhjNzxoeTa67Nk6u+2A0P2t4NLnu2ji57oPR/Kzh\n0eS6a+Pkug9G87OGR5Prro2T6z4Yzc8aHk2uuzZOrvtgND9reDS57hpUSpEggCJBAEWCAIoE\nARQJAigSBFAkCKBIEECRIIAiQQBFggCKBAEUCQIoEgRQJAhQd5Ge3oe/7rt+vbvtWBZlCLcf\nze6h6x5e90lGc/TytqtuP5rL36AfN5qqi/T6/gcFlqepWdxyLOvTEPpdjtH0pyGcmpRgNAe7\n/ryrbj+a14siBY6m5iK99m9Feun61+N7LzccS/ewOz5CPqQYzfo4jnW32qcYzdHqvKsSjOb1\nNC376NFUXKSnbvn+AN1tDv8+d4+3G8zqPJLjgBKMpu92b4PJMJrT9s+7KsFonj42HjmaiovU\nrfdvRVp12/3V/2pu5jigNKPp+n2S0Wzf/5+XYDRP3dP7zcjRVFyk1/17ka7f3NCuW+YZzfq0\nYlKMZtltzwNIMJpVt3no+nX0aG69t/8mW5Gejs8Vcozm8GQqfLGM9dg97xMV6WQZPJqbr70/\nSVakbb/aZxnN06o/PfdPMJrTc6c0ReoOrd7vTg/XivQuV5F2/fJiGLcezX7/EL1YRlocTwqk\nKdLZ7njQW5HevU1Bn2P3LM8nJJKM5rhY+gyjeTgdGzsP4PajeXccQuRobn+P/uLqqN32xkem\nFsttntGcfBxDvOVouiLDaD5GFTuaJor0ePp/3ub86vpGNqeXr0lGcz6PtD0+fbn9aC6LdPvR\nlLlZxY6miSIlOF++LT3KMJrTlQ271fE1UoLRnKS5smF97M3udC7WlQ3v3p/dLsoRzVt5+Pi/\nboLRvF1rdxpCgtEcve2q249md56bdfBo2ijS7nQV721H8lGk24/mdFnz4nwGP8No9mVXJRjN\nbpK5qbtIkIQiQQBFggCKBAEUCQIoEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIEUCQIoEgQ\nQJEggCJBAEWCAIoEARQJAigSBFAkCKBIEECRIIAiQQBFggCKBAEUCQIoEgRQJAigSBBAkSCA\nIkEARYIAigQBFAkCKFItum7/2PWP+/36/LftD++vy5/kXveHj3V25u2Y+1p03WN3sFke/12X\n95fHz50+9qBIN2Tua3HozG7/9PZvf3y/f92/9t3zfr95u2ln3o65r0XXvZz+3Z7+Pf632R87\ntNrvV2837czbMfe1ONfk49+32ny6yY2Y+1ooUmrmvhaKlJq5r8XXIh1fM226B6+RMjD3tfha\npPOhuo2jdhmY+1p8LdLp7NHq+P7pVqdIN2Tua/HNa6RVt3g6f3Ldd8sXRbohc1+rr7U5X+XA\nTShSrS6K1B0vb9ituvUNh3PvFKlWF0V6PL9C6m84mrunSLW6fGr3tOy6hcejW1IkCKBIEECR\nIIAiQQBFggCKBAEUCQIoEgRQJAigSBBAkSCAIkEARYIAigQBFAkCKBIEUCQIoEgQQJEggCJB\nAEWCAIoEARQJAigSBFAkCKBIEECRIMB/t5SI71Xc+2gAAAAASUVORK5CYII=",
      "text/plain": [
       "Plot with title \"Histogram of mpg\""
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "hist(mpg)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 447,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAgAElEQVR4nO2di1ZiORBFc3kqAsP/f+1wbyAFSlqMdUxy2Xut6dbu9hCq\nzh7koYYTAPyaUPsAAHMAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJ\nwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAc\nQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFE\nAnAAkSSEEO7fsj+4Zf0nh9kOIfzNJb0wiCThKZE+hj+Z/vZ82YikBpEkPCXS41spdxYh7P/i\ncl4bRJLwRaR//6M/OgvoYMYScrdIx+3y/NbqPf5JuP6z3Xr87Gt3+ZDD+b3l281HHhZhc37r\nfXV+e7E5XPPeFmHxcTq9DWH5cX/xd3mfRHr4kZc/DOvDoyPA9zAoCRmRDsNFn+WdSMvL26vp\nIz4u/8Q+cjF9wPVfhY/4p/H9wyb9WeI279bX64G+fuT4j6f3hsODI8D3MCgJGZHO/58/3xgd\nzwV9u2n46mpINGlI714/Mowf9nYu9vF02tz5cW7+rYORu7xHIn39SLvIxYMjwPcwKAnhlssf\nxF/H/+MfY18vf7U7//52PH/Wd/79/NnY+7ni42+DfeQo0PiYweEu6fynb2Pz99Nvdtmf8h58\navf1I0evzjdNu+HhEeB7GJSEjEhjM9NdoWvD1+Pt08hmepR6Fes/tvn6kbtP0fHXj7vf7B98\nynsg0tePnG7zTpOED44A38OgJGRE2sY/uLhkf3Wc3j9MfzBcy/v5r8//4H2zDEmk05ff0sfd\n5j16sCEfMN1Wfj4CfA+DkmANvG/q5nr/5PDlr65vha8ixfffFzdm/luku7d+KNKDI8D3MCgJ\nOZFOx/f4kNny7q/SLcjw8BZpenf8PGuxftv/6BZp+PyXeZGO9rfcIv0cBiUhK9LI9CyP/dnq\n2/tI098uLn/+rUirb+8jPfxt+pjd9Cge95F+DoOSkBFpcfkfv91UHLOP2oVPklx+//4W6ftH\n7R7+Nj7aMD5q9/b1CPA9DEpCRqRzx5eH6TGH8ZUK42N44+/pmdb40tKvzyNNQcvpH++Gb0X6\nnPesSJHhwRHgexiUhNyndtcHG8a7SOPj1PGNa/PjS7R3l3/ySZKPa9Onx63/JdKnvCdFikeL\nr2z4dAT4HgYlISdSvH+0jPdhxvsiF3fWw80TTPvxhW67L5KMfzys94frCxYepF+5y3tSpPFR\nwWFzfHQE+B4G1SrHy6dZf8JjY/70CJ2DSK0R7/af9sv7F9DJL7T2EToHkVrDHiq4f2mQlNyj\nFX94hM5BpNZIX2oxPaL3R9yLVOUInYNIzXHcjl8HMaz/8sbg032kGkfoHEQCcACRABxAJAAH\nEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACR\nABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnA\nAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxA\nJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACRABxAJAAHEAnAAUQCcACREsGJ2tcDasDaE+E/\nF5joS8LaE4gE5bD2BCJBOaw9gUhQDmtPIBKUw9oTiATlsPYEIkE5rD2BSFAOa08gEpTD2hOI\nBOWw9gQiQTmsPYFIUA5rTyASlMPaE4gE5bD2BCJBOaw9gUhQDmtPIBKUw9oTiATlsPYEIkE5\nrD2BSFAOa08gEpTD2hOIBOWw9gQiQTmsPYFIUA5rTyASlMPaE4gE5bD2BCJBOaw9gUhQDmtP\nIBKUw9oTiATlsPYEIkE5rD2BSFAOa08gEpTD2hOIBOWw9gQiQTmsPYFIUA5rTyASlMPaE4gE\n5bD2BCJBOaw9gUhQDmtPIBKUw9oTiATlsPYEIkE5rD2BSFAOa08gEpTD2hOIBOWw9gQiQTms\nPYFIUA5rTyASlMPaE4gE5bD2BCJBOaw9gUhQDmtPIBKUw9oTiATlsPYEIkE5rD2BSFAOa08g\nEpTD2hOIBOWUr/1juwojq82H43kqgkhQTunaj4tgLF2PVAtEgnJK174Jw/t+euuwG8LG70D1\nQCQop3TtQ9int/dh8DlMXRAJyildewi5d7oFkaAcbpESiATl/OI+0u4wvcV9JESC8oe/lzeP\n2i2OnkeqBSJBOb94HmkzPY80rLY8j4RILw9rTyASlCNae7hFcxHuIBKUU7z2wzoM29PpbRGG\nbx5q6KVZiATlFL9EaBhva962T7xEqJdmIRKUU/7w9/l2aDOE9fF03Pz74e9emoVIUE75E7LT\nR4fpge9/PyHbS7MQCcr53UuELg8k/PvxhF6ahUhQzm9vkcZfj9wiIdKr89v7SJvj5W3/i/hr\nEAnK4VG7BCJBOTyPlEAkKOcP1t5LsxAJykGkBCJBOYiUQCQoB5ESiATlIFICkaAcREogEpSD\nSAlEgnIQKYFIUA4iJRAJykGkBCJBOYiUQCQoB5ESiATlIFICkaAcREogEpSDSAlEgnIQKeEl\nkhO1xwE/ApESXiI5xdQeB/wIREogEpSDSAlEgnIQKYFIUA4iJRAJykGkBCJBOYiUQCQoB5ES\niATlIFICkaAcREogEpSDSAlEgnIQKYFIUA4iJRAJykGkBCJBOYiUQCQoB5ESiATlIFICkaAc\nREogEpSDSInGROIr1rsCkRKNieQUU3uqrwIiJRozwCmm9lRfBURKNGaAU0ztqb4KiJRozACn\nmNpTfRUQKdGYAU4xtaf6KiBSojEDnGJqT/VVQKREYwY4xdSe6quASInGDHCKqT3VVwGREo0Z\n4BRTe6qvAiIlGjPAKab2VF8FREo0ZoBTTO2pvgqIlGjMAKeY2lN9FRAp0ZgBTjG1p/oqIFKi\nMQOcYmpP9VVApERjBjjF1J7qq4BIicYMcIqpPdVXAZESjRngFFN7qq8CIiUaM8AppvZUXwVE\nSjRmgFNM7am+CoiUaMwAp5jaU30VECnRmAFOMbWn+iogUqIxA5xiak/1VUCkRGMGOMXUnuqr\ngEiJxgxwiqk91VcBkRKNGeAUU3uqrwIiJRozwCmm9lRfBURKNGaAU0ztqb4KiJRozACnmNpT\nfRUQKdGYAU4xtaf6KiBSojEDnGJqT/VVQKREYwY4xdSe6quASInGDHCKqT3VVwGREo0Z4BRT\ne6qvAiIlGjPAKab2VF8FREo0ZoBTTO2pvgqIlGjMAKeY2lN9FRAp0ZgBTjG1p/oqIFKiMQOc\nYmpP9VVApERjBjjF1J7qq4BIicYMcIqpPdVXAZESjRngFFN7qq8CIiUaM8AppvZUXwVESjRm\ngFNM7am+CnMQKTjhVN22YtTDh8gsRHLq3Cxj1MOHCCJZ52YZox4+RBDJOjfLGPXwIYJI1rlZ\nxqiHDxFEss7NMkY9fIggknVuljHq4UMEkaxzs4xRDx8iiGSdm2WMevgQQSTr3Cxj1MOHCCJZ\n52YZox4+RBDJOjfLGPXwIYJI1rlZxqiHDxFEss7NMkY9fIggknVuljHq4UMEkaxzs4xRDx8i\niGSdm2WMevgQQSTr3Cxj1MOHCCJZ52YZox4+RBDJOjfLGPXwIYJI1rlZxqiHDxFEss7NMkY9\nfIggknVuljHq4UMEkaxzs4xRDx8iiGSdm2WMevgQQSTr3Cxj1MOHCCJZ52YZox4+RBDJOjfL\nGPXwIVI+6I/tavqO2avNh+oinqSx6rYVox4+REoHfVzcfPf5peQinqax6rYVox4+REoHvQnD\n+35667AbwkZxEU/TWHXbilEPHyKlgx7CPr29D4PiIp6mseq2FaMePkRKBx1C7h23i3iaxqrb\nVox6+BDhFsk6N8sY9fAh8ov7SLvD9Bb3kZqOUQ8fIsWDXt48arc4Si7iWRqrblsx6uFD5BfP\nI22m55GG1ZbnkRqOUQ8fIryywTo3yxj18CEiGvTdTwvXXMTNhTl1bpYx6uFDpHjQx834UN12\nEcLyXXQRz9JYdduKUQ8fIqWDPgznW5rjwEuEWo9RDx8ipYNeh9Xx/Mv6cHZqzcPf7caohw+R\n8lc2HC+/nD/L4wnZdmPUw4fIr14iNISbd9wv4vmzOHVuljHq4UOk/FO7/em0ja8TOv77ThIi\n1YxRDx8ipYPeh2GzP62Gs0m7RdgpLuJpGqtuWzHq4UOkeNC7wZ4o2mou4lkaq25bMerhQ+QX\ng35fT18lu9oeZBfxHI1Vt60Y9fAhwkuErHOzjFEPHyKIZJ2bZYx6+BBBJOvcLGPUw4cIIlnn\nZhmjHj5EEMk6N8sY9fAhgkjWuVnGqIcPEUSyzs0yRj18iCCSdW6WMerhQwSRrHOzjFEPHyKI\nZJ2bZYx6+BBBJOvcLGPUw4cIIlnnZhmjHj5EEMk6N8sY9fAhgkjWuVnGqIcPEUSyzs0yRj18\niCCSdW6WMerhQwSRrHOzjFEPHyKIZJ2bZYx6+BBBJOvcLGPUw4cIIlnnZhmjHj5EEMk6N8sY\n9fAhgkjWuVnGqIcPEUSyzs0yRj18iCCSdW6WMerhQwSRrHOzjFEPHyKIZJ2bZYx6+BBBJOvc\nLGPUw4cIIlnnZhmjHj5EEMk6N8sY9fAhgkjWuVnGqIcPEUSyzs0yRj18iCCSdW6WMerhQwSR\nrHOzjFEPHyKIZJ2bZYx6+BC5HfTiux9i+fuLkNBYdduKUQ8fIreDDiEoXEKkmjHq4UPkdtDH\n97XCJUSqGaMePkQ+D/pju/B2CZFqxqiHD5EHg94P59ulN+lF+NJYdduKUQ8fIl8HvVuGkaXw\nIpxprLptxaiHD5FPgz5uzzdHi93xbNNKdBH+NFbdtmLUw4fI3aA/xgcbNvv4F24rQKSaMerh\nQ+TueaTzjdHb8foXg+IiJDRW3bZi1MOHyN3zSKud+iIkNFbdtmLUw4fI3fNI+ovQXIBT52YZ\nox4+RO4GfdyMn88NG1+jEKlmjHr4ELkd9GGYHmEIYXB9bQMi1YxRDx8it4NehvV4W3Tc+D30\n/fkiJDRW3bZi1MOHyP2LVj+/4X4REhqrblsx6uFD5HbQQ4h3jo6INJ8Y9fAhcjvoTVh+nH/7\nWIaN6iIkNFbdtmLUw4fI3aDjq+w8X2f35SIUNFbdtmLUw4fI/aDfV6NGjq/8/noRAhqrblsx\n6uFDhO/ZYJ2bZYwT6h12DyJZ54jJx6h32D2IZGUhJh+j3mH33E1o/DJz/1tyRJpBjHqH3XM7\noa3mU2JEmkGMeofdc/+ErPPjdV8vQkJjnZtljHqH3fPwJUK6i9BcgFNZiMnHqHfYPbcTWgXJ\nVyQh0gxi1Dvsnvsvo5heIqS8CAmNdW6WMeodds+nb1nMgw3EPIxR77B7EMnKQkw+Rr3D7uEJ\nWSsLMfkY9Q67B5GsLMTkY9Q77J77Ce1W42d1K98fR4FIM4hR77B7vn490vi9IfnmJ8Tcx6h3\n2D23E3oLy+mrzN/CWnUREhrr3Cxj1Dvsns/fs+HyDblUFyGhsc7NMka9w+75/BIhRCLmUYx6\nh91z/0304y3SPixUFyGhsc7NMka9w+55cB9p5/wqcESaQYx6h91zN6EV30WImMcx6h12z9fn\nkcLqXXkRAhrr3Cxj1DvsHl7ZYGUhJh+j3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYPX0ZhZSEm\nH6PeYfcgkpWFmHyMeofd82BCH0vXnzOGSHOIUe+wex5N6MiLVon5FKPeYfc8nBCf2hHzKUa9\nw+55NKG3MKgvwpXGOjfLGPUOu+fxgw1b1UVIaKxzs4xR77B7Hom08P3OxYg0gxj1DruHJ2St\nLMTkY9Q77B5EsrIQk49R77B7Mk/Iej4pi0gziFHvsHsQycpCTD5GvcPuuf+JfcPu/OvHwBf2\nEfMpRr3D7rn/iX376fd9cH2NECLNIEa9w+55+IPGeGUDMZ9i1Dvsnvvva3e9ReK7CBFzH6Pe\nYffcTmgTpvtIfBchYr7EqHfYPV+/9/eZje4iFDTWuVnGqHfYPfcTep++i9BOeRECGuvcLGPU\nO+weXtlgZSEmH6PeYfcgkpWFmHyMeofdww8as7IQk49R77B7+EFjVhZi8jHqHXYPP2jMykJM\nPka9w+7hB41ZWYjJx6h32D38oDErCzH5GPUOu4cfNGZlISYfo95h9/CDxqwsxORj1DvsnvIf\nNPaxjf98tfn4wUUoaKxzs4xR77B7Sn/Q2HFx87W0/xYPkWYQo95h95ROaBOG9/hFF4fzp4L/\nfJUrIs0gRr3D7rmd0OoHr/q+fu3SyP7f35kVkWYQo95h9zz8CtlnPu75D0SkGcSod9g9nx/+\nfhZukV4rRr3D7rmd0HG1/OYBOGP8atr4ijzuI71CjHqH3VP8E/uWN/968c9bMkSaQYx6h91T\n/qMvPzbT80jDasvzSPOPUe+we/jCPisLMfkY9Q67RzQhyfc+zl6YU1mIyceod9g9v/+ekN9+\nJCLNIEa9w+65F6lEJ0R6hRj1DrunVKQf/OQKRJpBjHqH3VMq0seASK8Uo95h9xR/andcheXh\nqY9BpBnEqHfYPb+4j/QewvszH4NIM4hR77B7fvNgw2EZVkdEeokY9Q67x0QqeepnG4YdIr1C\njHqH3fM7kU77xff/GJFmEKPeYff8ekJrRHqFGPUOu4fX2llZiMnHqHfYPYhkZSEmH6PeYfcg\nkpWFmHyMeofdg0hWFmLyMeoddg8iWVmIyceod9g9iGRlISYfo95h9yCSlYWYfIx6h92DSFYW\nYvIx6h12DyJZWYjJx6h32D2IZGUhJh+j3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYPIllZiMnH\nqHfYPYhkZSEmH6PeYfcgkpWFmHyMeofdg0hWFmLyMeoddg8iWVmIyceod9g9iGRlISYfo95h\n9yCSlYWYfIx6h92DSFYWYvIx6h12DyJZWYjJx6h32D2IZGUhJh+j3mH3IJKVhZh8jHqH3YNI\nVhZi8jHqHXYPIllZiMnHqHfYPYhkZSEmH6PeYfcgkpWFmHyMeofdg0hWFmLyMeoddg8iWVmI\nyceod9g9iGRlISYfo95h9yCSlYWYfIx6h92DSFYWYvIx6h12DyJZWYjJx6h32D2IZGUhJh+j\n3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYPIllZiMnHqHfYPYhkZSEmH6PeYfcgkpWFmHyMeofd\ng0hWFmLyMeoddg8iWVmIyceod9g9iGRlISYfo95h9yCSlYWYfIx6h92DSFYWYvIx6h12DyJZ\nWYjJx6h32D2IZGUhJh+j3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYPIllZiMnHqHfYPYhkZSEm\nH6PeYfcgkpWFmHyMeofdg0hWFmLyMeoddg8iWVmIyceod9g9iGRlISYfo95h9yCSlYWYfIx6\nh92DSFYWYvIx6h12DyJZWYjJx6h32D2IZGUhJh+j3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYP\nIllZiMnHqHfYPYhkZSEmH6PeYfcgkpWFmHyMeofdg0hWFmLyMeoddg8iWVmIyceod9g9iGRl\nISYfo95h9yCSlYWYfIx6h92DSFYWYvIx6h12DyJZWYjJx6h32D2IZGUhJh+j3mH3IJKVhZh8\njHqH3YNIVhZi8jHqHXYPIllZiMnHqHfYPYhkZSEmH6PeYfcgkpWFmHyMeofdg0hWFmLyMeod\ndg8iWVmIyceod9g9iGRlISYfo95h9yCSlYWYfIx6h92DSFYWYvIx6h12DyJZWYjJx6h32D2I\nZGUhJh+j3mH3IJKVhZh8jHqH3YNIVhZi8jHqHXYPIllZiMnHOKGuQj0QycpCjDxGXYV6IJJt\nmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOP\nUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irU\nA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJt\nmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUo/yqfWxX0/ezWG0+VBfxJI2VhZh8jLoK9Si9\nasfFzfeGWUou4mkaKwsx+Rh1FepRetU2YXjfT28ddkPYKC7iaRorCzH5GHUV6lF61YawT2/v\nw6C4iKdprCzE5GPUVahH6VW7+15///7Gf4hEzDVGXYV6cItkWyZGHqOuQj1+cR9pd5je4j4S\nMU/HqKtQj+Krtrx51G5xlFzEszRWFmLyMeoq1OMXzyNtpueRhtWW55GIeTJGXYV68MoG2zIx\n8hh1Feohump/+rM8GisLMfkYdRXqUXzVjusQlrtLCA9/E/NUjLoK9Sh+idAQX2gXQxCJmKdi\n1FWoR/nD329nm96G6WV2iETMczHqKtSj/AnZ6bfDsDggEjHPxqirUI/fvkTouFwiEjHPxqir\nUI/Sq7YI1ydhF0tEIubJGHUV6lF61d7C+vLWISwRiZjnYtRVqEfxVdske3bfPFWESMRcY9RV\nqEf5Vduvrm8d1ohEzFMx6irUg5cI2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZM\njDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceo\nq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqB\nSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZM\njDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceo\nq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqB\nSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZM\njDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceo\nq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqB\nSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZM\njDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceo\nq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZMjDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqB\nSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkceoq1APRLItEyOPUVehHohkWyZGHqOuQj0QybZM\njDxGXYV6IJJtmRh5jLoK9UAk2zIx8hh1FeqBSLZlYuQx6irUA5Fsy8TIY9RVqAci2ZaJkcc4\noW5UAYhkWyamlxh1owpAJFsPMb3EqBtVACLZeojpJUbdqAIQydZDTC8x6kYVgEi2HmJ6iVE3\nqgBEsvUQ00uMulEFIJKth5heYtSNKgCRbD3E9BKjblQBiGTrIaaXGHWjCkAkWw8xvcSoG1UA\nItl6iOklRt2oAhDJ1kNMLzHqRhWASLYeYnqJUTeqAESy9RDTS4y6UQUgkq2HmF5i1I0qAJFs\nPcT0EqNuVAGIZOshppcYdaMKQCRbDzG9xKgbVQAi2XqI6SVG3agCEMnWQ0wvMepGFYBIth5i\neolRN6oARLL1ENNLjLpRBSCSrYeYXmLUjSoAkWw9xPQSo25UATVF8vp2gY1tmRh5jL60P6aq\nSD5jbW3LxMhj9KX9MYhETH8x+tL+GEQipr8YfWl/DCIR01+MvrQ/BpGI6S9GX9ofg0jE9Bej\nL+2PQSRi+ovRl/bHIBIx/cXoS/tjEImY/mL0pf0xiERMfzH60v4YRCKmvxh9aX8MIhHTX4y+\ntD8GkYjpL8aJP2n5H1wEIhFTNeZPWv4tH9vVpPVq81F4EYhETNWY4u7/pOXfcFzc3EQuyy4C\nkYipGlPY/Z+1/Bs2YXjfT28ddkPYFF0EIhFTNaaw+z9r+TcMYZ/e3oeh6CIQiZiqMYXd/1nL\nv/u4kHvn8idPPDji9eALQBGF3X9c5sKP+8EtEsD8+cV9pN1heuvb+0gA86f45m15cxO5OHoe\nCaA/fvE80mZ6HmlYbb95Hglg/rT4siWA7kAkAAcQCcABRAJwAJEAHEAkAAcQCcABRAJwAJEA\nHEAkAAcQCcABRAJwAJEAHEAkAAcQCcABRAJwAJEAHEAkAAfmIFKlb+YEveNaQs+wSrR1HThN\nnhmfpq2rVkZb14HT5Jnxadq6amW0dR04TZ4Zn6atq1ZGW9eB0+SZ8WnaumpltHUdOE2eGZ+m\nratWRlvXgdPkmfFp2rpqZbR1HThNnhmfpq2rVkZb14HT5Jnxadq6amW0dR04TZ4Zn6atq1ZG\nW9eB0+SZ8WnaumpltHUdOE2eGZ+mratWRlvXgdPkmfFp2rpqAJ2CSAAOIBKAA4gE4AAiATiA\nSAAOIBKAA4gE4AAiATiASAAOIBKAA4gE4AAiATiASAAOIBKAA4gE4EDfIr1dj78ZwrA51j3L\nIh2h/mmO6xDW+1Mjpxn5uKyq/mluv4O+32m6Fml//YECy2k0i5pn2UxHGI5tnGaYjjCZ1MBp\nzhyHuKr6p9nfiOR4mp5F2g8XkT7CsB/f+6h4lrA+jreQ6yZOsxnPsQmrUxOnGVnFVTVwmv00\nlkyEq+EAAAORSURBVJP3aToW6S0srzfQYXf+9T1s6x1mFU8yHqiB0wzheDlMC6eZLj+uqoHT\nvNmFe56mY5HC5nQRaRUOp7v/1VRjPFAzpwnDqZHTHK7/z2vgNG/h7fqm52k6Fml/uop0/1tF\njmHZzmk2U2OaOM0yHOIBGjjNKuzWYdh4n6b2tn9HayK9jZ8rtHGa8ydT7mUpZRveTw2JNLF0\nPk317v2KxkQ6DKtTK6d5Ww3T5/4NnGb63KkZkcLZ6tNxurlGpCttiXQcljfHqH2a02ntXZZC\nFuOTAs2IFDmOD3oj0pXLCIY21rOMT0g0cpqxLEMLp1lPj43FA9Q/zZXxCJ6nqX+NfsPdo3aH\nyo9MLZaHdk4zYY8h1jxNSLRwGjuV72lmIdJ2+n/eLt67rsRuuvvayGni80iH8dOX+qe5Fan+\nadJsVr6nmYVIDTxffkgetXCa6ZUNx9V4H6mB00w088qGzejNcXoullc2XLl+drtIj2jWYm3/\n123gNJfX2k1HaOA0I5dV1T/NMc5m43yaeYh0nF7FW/ckJlL900wva17EZ/BbOM0praqB0xwl\ns+lbJIBGQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQA\nBxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAA\nkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQKReCOG0DcP2dNrEn21/fn+TfiT3\nZjj/WWCZ9WD2vRDCNpzZLcdfN+n95fh305+tEakizL4Xzs4cT2+XX4fx/WF/2g/h/XTaXd5k\nmfVg9r0Qwsf062H6dfxvdxodWp1Oq8ubLLMezL4Xoib260WbT29CJZh9LyBS0zD7XkCkpmH2\nvfBVpPE+0y6suY/UAsy+F76KFB+q2/GoXQsw+174KtL07NFqfH96KyBSRZh9Lzy4j7QKi7f4\nl5shLD8QqSLMvle+ahNf5QBVQKReuREpjC9vOK7CpuJxXh1E6pUbkbbxHtJQ8TQvDyL1yu2n\ndm/LEBbcHtUEkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAA\nkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJwAFEAnAAkQAcQCQABxAJ\nwIH/AVZHiFgwtR9vAAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title \"Histogram of mpg\""
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "hist(mpg, col = 2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 448,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAgAElEQVR4nO2di1bqSBBFE0BABIb//9ohAb2gaOjOOelqsvdac0WP0E1V\n7eEVoTkBwGia0hsAeAUQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAAB\niAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEI\nQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEMlC\n0zT3p/794Ja3STazaZtmmpVmDCJZeEqkj3aS6m/OayOSG0Sy8JRIj2+l5CyaZj/FOvMGkSz8\nEOnvX5poL+CDGlv47RbpuFmeT63eLz9pPn9t99bd+9pdz3I4f7fc3pzzsGjW51Pvq/Ppxfrw\neXnbRbP4OJ22bbP8uF/+7vK+ifTwnNcfNm+HR1uAYSiUhV9EOrRXfZZ3Ii2vp1f9OT6uv/Lv\nnIv+DJ+/1Xxcfnr5/rD++tkXt5d36+vnhn6es/vl/rv28GALMAyFsvCLSOf/z59vjI7nAd3e\nTPjq05CLSe3Xt5/nbLqzbc+DfTyd1nd+nCf/1sELd5f3SKSf5/y35OLBFmAYCmWhueX6g8u/\n3f/xj5d5vUa789ft8Xyv7/z1fG/s/Tzi3Zf23zk7gbrnDA53l3T+6bab/H3/5d/a3y7vwV27\nn+fsvDrfNO3ah1uAYSiUhV9E6ibz66HQ54S/dbdPHev+WerVZfy7af485+7bRV/+/bj78u8X\nvl3eA5F+nrO/zTv1Ej7YAgxDoSz8ItLm8oOrS/+iY//9of9B+zm83+PzL7yvl82XSKcfX77O\nd3t5j55s+P0C+tvK71uAYSiUhX8TeD+p68/HJ4cf0eep5qdIl+/fFzdm/i3S3alEkR5sAYah\nUBZ+E+l0fL88Zba8i75uQdqHt0j9t939rMXbdp90i9R+D38X6fgv5RYpHQpl4VeROvpXef79\nbDX4GKlPF9efD4q0GnyM9PBLf55d/ywej5HSoVAWfhFpcf0f/7+biuOvz9o13yS5fh2+RRp+\n1u7hl+7Zhu5Zu+3PLcAwFMrCLyKdZ3x56J9z6I5U6J7D675+vdJ6ObT05+tI/QUt+1/etYMi\nfb+8Z0W60D7YAgxDoSz8dtfu88mG7iFS9zz15cTn5F8O0d5df+WbJB+fk94/b/2XSN8u70mR\nLlu7HNnwbQswDIWy8JtIl8dHy8tjmO6xyNWdt/bmBaZ9d6Db7ock3Y/bt/3h84CFB5f+yd3l\nPSlS96xguz4+2gIMQ6GicrzezZqEx8ZMuoXKQaRoXB72n/bL+wPo7IuW3kLlIFI0/j1VcH9o\nkJXfnq2YcAuVg0jR+PpTi/4ZvYm4F6nIFioHkcJx3HR/B9G+TXlj8O0xUoktVA4iAQhAJAAB\niAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEI\nQCQAAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlA\nQL5IH/2HUTXNav0h3A9AleSKdFz8+5zRZindEkB95Iq0btr3fX/qsGv5qFGYO7kitc3+6/S+\naTWbAaiVXJHuPry34SkLmDncIgEIGPEYaXfoT/EYCSD/6e/lzbN2i6NySwD1MeJ1pHX/OlK7\n2vA6EsweniYAEGASqbnFswRAIMZP+aAoiASvDyIBCMh/Qfbpe2+IBK9P7pR/tIgE8EX2lB9X\nzbJ/RZa7dgBjpvy9ad5PiARwGjflh2WzOiISwNgp3zTtDpEAxk75fjH8gisiweszesrfEAlg\niilHJHh9EAlAACIBCEAkAAE1i9QM4VoY4DtVi/Tf3yASTAYiAQhAJAABiAQgAJEABCASgABE\nAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQg\nEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgYM4i8Sb8IGPWInGLBioQCZFAACIhEghAJEQCAYiE\nSCAAkRAJBCASIoEAREIkEIBIiAQCEAmRQAAiIRIIQCREAgGIhEggAJEQCQQg0h/n588s4FkQ\n6Y/zj7x8mBGIhEggAJEQCQQgEiKBAERCJBCASIgEAhAJkUAAIiESCEAkRAIBiIRIIACREAkE\nIBIigQBEQiQQgEiIBAJeWqQhEAlUvLRI7tx1xaA+EAmRQAAiIRIIQCREAgGIhEggAJEQCQQg\nEiKBAERCJBCASIgEAhAJkUAAIiESCEAkRAIBiIRIIACRyonEm/S/EIhUUCTz5cOEINKI3L1/\nSZVgEhBpRO7ev6RKMAmINCJ3719SJZgERBqRu/cvqRJMAiKNyN37l1QJJgGRRuTu/UuqBJOA\nSCNy9/4lVYJJQKQRuXv/kirBJCDSiNy9f0mVYBIQaUTu3r+kSjAJiDQid+9fUiWYBEQakbv3\nL6kSTAIijcjd+5dUCSYBkUbkI/8MApFeCEQy5mP37yoc6EEkYz52/67CgR5EMuZj9+8qHOhB\nJGM+dv+uwoEeRDLmY/fvKhzoQSRjPnb/rsKBHkQy5mP37yoc6EEkYz52/67CgR5EMuZj9+8q\nHOhBJGM+dv+uwoEeRDLmY/fvKhzoQSRjPnb/rsKBHkQy5mP37yoc6EEkYz52/67CgR5EMuZj\n9+8qHOhBJGM+dv+uwoEeRDLmY/fvKhzoQSRjPnb/rsKBHkQy5mP37yoc6EEkYz52/67CgR5E\nMuZj9+8qHOhBJGM+dv+uwoEeRDLmY/fvKhzoQSRjPnb/rsKBHkQy5mP37yoc6EEkYz52/67C\ngR5EMuZj9+8qHOhBJGM+dv+uwoEeRDLmY/fvKhzoQSRjPnb/rsKBHkQy5mP37yoc6EEkYz52\n/67CgR5EMuZj9+8qHOjJb9bHZtV/LN1q/eFaYoDiogzlY/fvKhzoyW3WcXHzEY9LyxKDFBdl\nKB+7f1fhQE9us9ZN+77vTx12bbN2LDFIcVGG8rH7dxUO9OQ2q232X6f3TetYYpDiogzlY/fv\nKhzoyW3W3Ud2//353YiUu39X4UAPt0jGfOz+XYUDPSMeI+0O/SkeI/2aj92/q3CgJ7tZy5tn\n7RZHyxJDFBdlKB+7f1fhQM+I15HW/etI7WrD60i/5GP37yoc6OHIBmM+dv+uwoEeU7OaWzxL\nzECkIVyFhXTGNmPbNoutd4nfL9gtwtjcvX9XYSGd7GbsV027PW04ROiP3L1/V2Ehndxm7HuD\n1s3b8XRYNX/eJiGSa/+uwkI6uc146147Wl9eiT02C8cSgxQXZSh3799VWEhn3CFCzermG/US\nw3sYO4ju3L1/V2EhnXEivV/u03GI0OPcvX9XYSGd/Lt2b5+HMxzfOEToce7ev6uwkE72H/a1\nX/fnmr9vkBDJtn9XYSGd/GasP/Vp/7w9QiTf/l2FhXQ4RMiYu/fvKiykg0jG3L1/V2EhHUQy\n5u79uwoL6SCSMXfv31VYSAeRjLl7/67CQjqIZMyHGHv5rsJCOohUce4qLKSDSBXnrsJCOohU\nce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXn\nrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4q\nLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJC\nOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSD\nSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohU\nce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXn\nrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4q\nLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJC\nOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSD\nSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohU\nce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXn\nrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnrsJCOohUce4qLKSDSBXnY3E1Zo4g0oxz\nV2PmCCLNOHc1Zo4g0oxzV2PmyG0xF5uDewntBZcexNpzV2PmyG0xzw8/HS4hUtTc1Zg5clvM\n4/ubwyVEipq7GjNHvhfzY7NQu4RIUXNXY+bIg2Lu2/Pt0ta6hOiCSw9i7bmrMXPkZzF3y/7F\nuqVxCdUFlx7E2nNXY+bIt2IeN+ebo8XueLZpZVpCR/FBrD13NWaO3BXzo3uyYb2/BLIyI1LU\n3NWYOXL3OtL5xmh7/AxaxxJSig9i7bmrMXPk7nWk1c69hPaCSw9i7bmrMXPk7nUk/xLaCy49\niLXnrsbMkbtiHtfd/bl2rTUKkaLmrsbMkdtiHtr+GYamaaXHNiBS1NzVmDlyW8xl89bdFh3X\nuqe+vy8hpfgg1p67GjNH7g9a/X5CvoSU4oNYe+5qzBy5LWbbXB4cHRFpHrmrMXPktpjrZvlx\n/vKxbNauJaQUH8Tac1dj5shdMZfXN8XQHWf3YwnpBZcexNpzV2PmyH0x31edRsIjv38uobzg\n0oNYe+5qzBzhPRtmnLsaM0cQaca5qzFzBJFmnLsaM0fuitn9mbn+PTgRKWruaswcuS3mxvNm\ntogUNXc1Zo7cvyArfr7u5xLaCy49iLXnrsbMkYeHCPmW0F5w6UGsPXc1Zo7cFnPVWP4iCZGi\n5q7GzJH7P6PoDxFyLqG94NKDWHvuaswc+faWxTzZMKfc1Zg5gkgzzl2NmSP5xfzYrHrnVuuB\n+4OIFDV3NWaO5BbzuLi5/fr7aHFEipq7GjNH7ou5W3X36lZPvGXDumnfL+8kedi1f//9EiJF\nzV2NmSM//x6pe2/IYZPaZv91ev/3m0kiUtTc1Zg5clvMbbPs/8p827wNn+/5V3IRKWruaswc\n+f6eDdc35Bo8H7dIL5C7GjNHvt+wPCvS+THS7nIHkMdI1eauxsyR+zfRv9wi7ZvF8BmXN8/a\nLf48tAiRouauxsyRB4+Rds8dBf6x7l9HalcbXkeqNHc1Zo7cFXPFuwjNKnc1Zo78fB2pWb0L\nLvaW8Rf3yyKlB7H23NWYOZJdzOPb+Zbr+nlKPP1dZ+5qzBzJPkSovRxod7kQRKoydzVmjuQW\nc909IXHctv3DKUSqM3c1Zo7k/hlFe/mVQ7s4IFKtuasxcyRXpM9fOS6XiFRr7mrMHHlQzI/l\nE58ztvh6f4fFEpEqzV2NmSOPinl84qDVfwe2HpolItWZuxozRx4W85mXftZfv7QbuCuISFFz\nV2PmyKNibv8+mvvK/usO4OENkarMXY2ZI4+fbNi4lpBSfBBrz12NmSOPRFpo37kYkaLmrsbM\nET7WZca5qzFzBJFmnLsaM0d+eUFWedA2IkXNXY2ZI4g049zVmDlyV8xN2/1dxEfLH/bNI3c1\nZo7cFnNzfWegffPEMUJ5S0gpPoi1567GzJGHb0/Hm+jPI3c1Zo7cv6/d5y3SE+8ilLeElOKD\nWHvuaswcuS1m91515y9PvotQ1hJSig9i7bmrMXPk53t/n/nz/R7HLSG94NKDWHvuaswcuS/m\ne/8uQjvnEsoLLj2IteeuxswRjmyYce5qzBxBpBnnrsbMkZ9vEPncB41lL6G84NKDWHvuaswc\n+flkw3MfNJa7hPSCSw9i7bmrMXPkwZvoP/VBY5lLSCk+iLXnrsbMkdwPGstcQkrxQaw9dzVm\njuR+0FjmElKKD2LtuasxcyT7g8bylpBSfBBrz4dwNe4Vyf+gsawlpBQfxFfPXY17RfigMfJf\nc1fjXhHTB439voTygksP2qvnrsa9IhzZQP5r7mrcK3JbrJX2qO9HS2gvuPSgvXruatwr8vAv\nZH1LaC+49KC9eu5q3Cvy/elv8xLaCy49aK+euxr3itwW67hafpiX0F5w6UF79dzVuFck9xP7\nMpeQUnzQXj13Ne4VQSTyX3NX414Rnv4m/zV3Ne4VQSTyX3NX414Rz3tCPlxCf8GlB+3Vc1fj\nXpF7kSw6IVKtOUeHPw8ikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtbI\nP5Fsz8cg0qvmrsbWCCKRZ+euxtYIRzaQZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYI\nIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G\n1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfn\nrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKR\nZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYI\nIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G\n1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfn\nrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKRZ+euxtYIIpFn567G1ggikWfnrsbWCCKR\nZ+dDuBofEUQit+WuxkcEkchtuavxEUEkclvuanxEEInclrsaHxFEIrflrsZHBJHIbbmr8RFB\nJHJb7mp8RBCJ3Ja7Gh8RRCK35a7GRwSRyG25q/ERQSRyW+5qfEQQidyWuxofEUQit+WuxkcE\nkchtuavxEUEkclvuanxEEInclrsaHxFEIrflrsZHBJHIbbmr8RFBJHJb7mp8RBCJ3Ja7Gh8R\nRCK35a7GRwSRyG25q/ERQSRyW+5qfEQQidyWuxofEUQit+WuxkcEkchtuavxEUEkclvuanxE\nEInclrsaHxFEIrflrsZHBJHIbbmr8RFBJHJb7mp8RBCJ3Ja7Gh8RRCK35a7GRyT/yn5sVv3H\nsq3WH64lBig+KOR/567GRyT3yh4XNx9xuLQsMUjxQSH/O3c1PiK5V3bdtO/7/tRh1zZrxxKD\nFB8U8r9zV+Mjkntl22b/dXrftI4lBik+KOR/567GRyT3yt59ZPXfn1+NSHPNXY2PCLdI5Lbc\n1fiIjHiMtDv0p3iMRP5L7mp8RLKv7PLmWbvF0bLEEMUHhfzv3NX4iIx4HWndv47Urja8jkT+\nMHc1PiIc2UBuy12Nj4jpyja3SC7kEaUHhfzvXDlR0Yl8i1R8EMjH5copig4ikdty5RRFB5HI\nbblyiqKTf2TD0w+DEGmueW7jayT3ym4RiXwoz218jWRf2X379x9PCJYoPgjk4/LcxtdI/pXd\n/31gkGCJ4oNAPi7PbXyNjLiy25vjVi1LFB8E8nF5buNrhGftyG25coqig0jktlw5RdFBJHJb\nrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeRyG25coqig0jk\ntlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeR\nyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoO\nIpHbcuUURQeRyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMU\nHUQit+XKKYoOIpHbcuUURQeRyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliun\nKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeRyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1X\nTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeRyG25coqig0jktlw5RdFBJHJb\nrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeRyG25coqig0jk\ntlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoOIpHbcuUURQeR\nyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMUHUQit+XKKYoO\nIpHbcuUURQeRyG25coqig0jktlw5RdFBJHJbrpyi6CASuS1XTlF0EIncliunKDqIRG7LlVMU\nHUQit+XKKYoOIpHb8iGUU1YaRCIvliunrDSIRF4sV05ZaRCJvFiunLLSIBJ5sVw5ZaVBJPJi\nuXLKSoNI5MVy5ZSVBpHIi+XKKSsNIpEXy5VTVhpEIi+WK6esNIhEXixXTllpEIm8WK6cstIg\nEnmxXDllpUEk8mK5cspKg0jkxXLllJWmpEiDh9mXbjS5Nx8anJr+DKOoSKUbSV42Hxqckeef\nFEQiL5YPDc7I808KIpEXy4cGZ+T5JwWRyIvlQ4Mz8vyTgkjkxfKhwRl5/klBJPJi+dDgjDz/\npCASebF8aHBGnn9SEIm8WD40OCPPPymIRF4sHxqckeefFEQiL5YPDc7I808KIpEXy4cGZ+T5\nJwWRyIvlQ4Mz8vyTgkjkxfKhwRl5/klBJPJi+dDgjDz/pCASebF87J/RRPozC0Qif9ncP9tP\nTPkESxQvNPlr5/7ZfmLKJ1iieKHJXzv3z/YTUz7BEsULTf7auX+2n5jyCZYoXmjy1879s/3E\nlE+wRPFCk7927p/tJ6Z8giWKF5r8tXP/bD8x5RMsUbzQ5K+d+2f7iSmfYInihSZ/7dw/209M\n+QRLFC80+Wvn/tl+YsonWKJ4oclfO/fP9hNTPsESxQtN/tq5f7afmPIJliheaPLXzv2z/cSU\nT7BE8UKTv3Y+5dHhiEQ+23ySKZ9gieKFJJ93PsmUT7BE8UKSzzufZMonWKJ4IcnnnU8y5RMs\nUbyQ5PPOJ5nyCZYoXkjyeeeTTPkESxQvJPm880mmfIIliheSfN75JFM+wRLFC0k+73ySKZ9g\nieKFJJ93PsmUD/KxWfXHWazWH5lLFC8k+bzz7NlPmfIBjoubY5aWeUsULyT5vPPM2U+b8gHW\nTfu+708ddm2zzlqieCHJ551nzn7alA/QNvuv0/umzVqieCHJ551nzn7alA+dr/ntm+tPnjha\nffAwdwAnmbP/eJgzz5dwiwTw+ox4jLQ79KcGHyMBvD7ZN2/Lm5vIxVG5JYD6GPE60rp/Hald\nbQZeRwJ4fUJ9fCBArSASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQ\nCUAAIgEIQCQAAYgEIACRAAQgEoCAyCIVepMmmIrSA6Yk8pWJvLcO9jeO6PtLIvKViby3DvY3\njuj7SyLylYm8tw72N47o+0si8pWJvLcO9jeO6PtLIvKViby3DvY3juj7SyLylYm8tw72N47o\n+0si8pWJvLcO9jeO6PtLIvKViby3DvY3juj7SyLylYm8tw72N47o+0si8pWJvLcO9jeO6PtL\nIvKViby3DvY3juj7SyLylYm8tw72N47o+0vipa4MQCkQCUAAIgEIQCQAAYgEIACRAAQgEoAA\nRAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhAQU6Tt57bWbdOuj0X38pPt4mtTEfd3\nfGuat/3ldMT9dXxcGxx1f+mEFGn/+UEFy/5DCxZld/Oddb+ptmt/yP21/aZ6k0Lu78yxvTQ4\n6v4yiCjSvr2K9NG0++67j8IbumPfvB2728y3oPtbdztbN6tT0P11rC4NDru/DAKKtG2WV5HW\nze7873uzKbuhe1aXvXVbDLm/tuluK/sKhtzfqdvRpcFR95dDQJGa9ekq0qo5nLqbgFXZDT2k\n22Lg/TXtKez+Dp//pwy6vywCirQ/fYp0/yUUx2YZeX/rZnsKu79lc7hsKej+soh5HeKLtO3u\nlUTd3/mu07r7GnN/m+b9hEjTEF6kQ9vdHYm6v+2q7R93hNxff08OkaYhukjHdtl9Cbu/0+mt\nu28Xcn+L7oUDRJqGa2nbqIVeXl76CLu/7jFcG3N/b/0zdZctRdxfLjGvw92zdodoz+ocFstD\nfyLo/nr+PasYa3/NFzH3l0tokTb9/712l0fOYdg1y+upkPu7vI506I4XiLi/W5Ei7i+X0CKF\nfOX78OVRzP31RzYcV91jpJD76+HIhmn4vNe86P/Xtfz7lyfm7d//UUPu73qsXb+pkPvruDY4\n7P7SiS3SsT86uOxevnNz1yTk/vpDqhfb/lTM/Z2+Ghx2f+nEFAmgMhAJQAAiAQhAJAABiAQg\nAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAEIBKAAEQCEIBIAAIQCUAAIgEIQCQA\nAYgEIACRAAQgEoAARAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIB\nCEAkAAGIBCAAkWqhaU6bpt2cTuumWV++X399JPi6Pf+soZnloPa10DSb5sxu2f27/vp+2WX9\nz53saRMAAAEvSURBVN4QqSDUvhbOzhxP2+u/bfd9uz/t2+b9dNpdT9LMclD7Wmiaj/7fQ/9v\n99/u1Dm0Op1W15M0sxzUvhYumvz796rNt5NQCGpfC4gUGmpfC4gUGmpfCz9F6h4z7Zo3HiNF\ngNrXwk+RLk/V7XjWLgLUvhZ+itS/erTqvu9PNYhUEGpfCw8eI62axfYSrttm+YFIBaH2tfJT\nm8tRDlAERKqVG5Ga7vCG46pZF9zO3EGkWrkRaXN5hNQW3M3sQaRaub1rt102zYLbo5IgEoAA\nRAIQgEgAAhAJQAAiAQhAJAABiAQgAJEABCASgABEAhCASAACEAlAACIBCEAkAAGIBCAAkQAE\nIBKAAEQCEIBIAAIQCUAAIgEIQCQAAYgEIACRAAQgEoAARAIQgEgAAv4H1tep5iRWZAYAAAAA\nSUVORK5CYII=",
      "text/plain": [
       "Plot with title \"Histogram of mpg\""
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "hist(mpg, col = 2, breaks = 15)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia  <code>pairs()</code> vytvorí scatterplot maticu, to je pr každý pár premenných v danej dátovej množine. \n",
    "Môžeme vyprodukovať scatterplot aj len pre podmnožinu premenných. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 449,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAABlBMVEUAAAD///+l2Z/dAAAA\nCXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nOxdiZbjOI4k//+nd9+kcDIAHqKdzGpielyW\nRAVxBQC52u5Sr1y58lrKbytw5cq/IJdIV65skEukK1c2yCXSlSsb5BLpypUNcol05coGuUS6\ncmWDXCJdubJBLpGuXNkgl0hXrmyQS6QrVzbIJdKVKxvkEunKlQ1yiXTlyga5RLpyZYNcIl25\nskEuka5c2SCXSFeubJBLpCtXNsgl0pUrG+QS6cqVDXKJdOXKBrlEunJlg1wiXbmyQS6RrlzZ\nIJdIV65skEukK1c2yCXSlSsb5BLpypUNcol05coGuUS6cmWDXCJdubJBLpGuXNkgl0hXrmyQ\nS6QrVzbIJdKVKxvkEunKlQ1yiXTlyga5RLpyZYNcIl25skEuka5c2SCXSFeubJAziVT+X6Lz\n7YWCT39Knt2CPUt/yVeE9QgX/Fz7ro68VbutOgN0yq8eIAeqREkQXYhv+Y4UeUWk7i75ivyQ\nJFHgufZdHYUMzba53w7xaiLnaUTyJ4lUDgn5jx5dBb5MpFJjIsnpUKdf92om52lEEnpycPGn\npKg/Ah07S74iJxKpXiJ9W4Lnj3A8/iaRnuefYNvSX/IV+deIxJG/RJqUqCTNjXz7pfNwUfpL\nviIjRPo+2XMiDTT7S6RpiTT7bSI9G+bRTpd8RQaINNS09kpKpE67ukRakwkifd+If4FIpXaX\nbJeMK6UmF+XUJdK4pJ78bSL9K6Pdr6RlQqRi34GLl0jTkv2FLDr9YXWgEr2/kI2XfEW0HvD6\nr/ylMbOg2baoT2jiv5D9ba/GcqBKV678PblEunJlg1wiXbmyQS6RrlzZIJdIV65skEukK1c2\nyCXSlSsb5BLpypUNcol05coGuUS6cmWDHEukMvc+WvIxif7V5dHjb0i7Z/TNhfTMdon+bdX+\nxb+Rr0fJJdJ7uUT6nvwJxS6R1uQS6XvyJxS7RFqTS6TvyZ9Q7BJpTS6Rvid/QrFLpDW5RPqe\n/AnFLpHW5BLpe/InFLtEWpNLpO/JLsXKSzkb7nD1zoY7XL04p6fkEJykfpcF+BZuBSXDq2uK\nJXDrgPPNL93pdS916Pt6M1S7C5e79RAC7MJJiVTKLDwk0ovqExFpERLDlc8SqRS34oNEMhHb\nSSSQCgmc8uglUl351RgA96qNA2KWn6huI9ILFYdSq/g2r4+Kfvc+8cWOebzUAwVcj9fT3kAH\n1vMUAuzCyTrSQn5FRFrVMpzL1wxH6inYDXB4DeSO2Z6n4A5crg9bMY+X2j/XkVQ7Cnn0n3pG\n2kmkRTUDIqFLS3BPU3peNvRfvCbIp2fPwgr04TCQbkOlRlmctpw0SNCIudVmL56nN8ghOCmR\nOv1+DO6V21oiUe3cONqVn3FxHnRhtDNXShUqvSAS7/CKSGmw10a7aKuVzMo2OwHn7412ikzv\n4X4w+SHpE0SKn+iESD9/LBJJT1LLo10vSisfNgTX3s0oAO8InL9HpNX2EahHw90K4mhqNdCU\n7dSPsEHTRHrxYcMbIs1Fl8rgIQTYhfMlIq2qCYnEDxXv4Z5XwdwAh5cVe6KYP0v1SxI4hC88\nUlZsJFI22s1WoDcfuyK4M3AyIm36e6StRKIivtaSAmtLWYvsGpH0X7KUZl0fDmxAdriNJvDy\nYGef2gFDOoI/WlmVQ3A+3pHeDcR4FlvGRHA8LW7SDq/T82PUTjd0JD3doXY+AAIvIn8rIvUr\npfkbsx8v5DcMyyE4XyDSm486o8xf/LQBTZ7qQ7sd2uGFP9SRT0rg0kUiqT5UzLMetDaGSa/F\nRBoatC3XmfE7PnT4y0Tq/IWDWSkfiU0Bxeqx/xdiACdP0DQHkSeIVNgV8HljDg4sEyLJAx8M\nxhhme2dMpCcQof9IH2pdm/9DcIfgrBApqWwgdknhyUtkoJ6kfmdYGYIrujKqZ40h3OHRjpmf\nloB3o10xxiDShAx+lEx26BGJyFGUQs8JChP3oqIeEjfIITjDRFLvkm3RaEfJgxfn+uNcYM1m\nS2w42jGV/nd29JOMwcxXJDKf3y/CoQ10r+bEnSJSOmTFROJWSxtUHVfx6CWSnC96ySyR4khM\nq1cs5IwDenCcCGMEHch8fiYqvl0EhSWHg/gyPBVuD2gH1KXUtYRJYfiYsKq0SYd6LhCBpKSM\nWjcih+AMEsmYnmRvTiTYEKbV20kkj1WIREOo/cwvjQuoJIOcDuDSmYvULbpXiy3t4ghoiUjc\nwNk0VoJW0HkeQDXLdsghOCtEmvqwwTwmgcvT6rm0nLK/w3N+Rh+E7RKpmDRznhgkUpr+8oLE\nr97ekYixRd6oY+pNUjvo1HCpGpBDcAaJNGp5p+RPKwur4DKPAiJ5rg9HeYBIXmHaMGhf7XE6\nBoVEika70F8dIqGnUeqBzFD9gSHPe/QHz3ZTPX9ADsEZJVK/eQRwaY1cUc+nzDs4n3486C9q\nBzZwbfnJJbDFOJGax5HipYLZ8QWR0FWZKYlRtm7IBxHyFKWidggBduEME8ksmhjtfP5szXyj\n4QD0wKS4jUiUPXCww26Fx6B4S1FnVoIddnakkEh2oFPDnhr7mPcmZIcQYBfOCpGSvtwv+XMK\ng1yI5sWRaQHBgQzcMdrRiIOfXiBfAzi7jAxWf7MJysF3iKQbUJUHIeIRzXl6BBS6BSU6VwTd\nMrH2gzgLRMrqSdqRppI0wsOJn2sVw8E0H0EK4DTyzwsc7Z4scwAjRBIFiaY128DibSeStY77\nY6sFX2YXRyUauyKRv0ykuK/ko12ZHo4HWkhVmT9NJPjZNM1k89oZ5JqRqJRW4YHRTk9PwLut\ns621sVVRsJOrRV8r0gVtjDQ5bNjQPpErEvm7RJoa7drYvh3tIsCl0S7IRTgZjcCZ9wU/0hnd\nSw/Oli19ytV4hwxqfsaVMNjxVU8k4k3Top4zhl24FP+3iPSqI02NvyMtRACXMh9+blcGZ9CM\nSJQ9Sduorq5gIhm6qSMyXtxgnQIzfz+RxGVslTiRnpTIm872dp/IFYn8R4k0ku6pepBHo6Ad\nXlbKBJ7MZrUz2OYJW9mvdjPp3iMSZ6bHtUMkR+4bHQlYqIPEJCpt7OKNpnLk7xLp1Wg3OduN\ndLgJ0JyXOoxDHzDmo91Pcc47ktE8Ge0KJyRlZ4ioDjxekqJ5/sKrMrTFOlAbelSuaFm06aB8\nlEj8AQqX1uHMV28DM6c6UuvnV32bI2MjNwoKhx2QjjX1WQankYNHJOkYhYo13q8wEncl/671\nrn7j8ZK0zXMaXtUKCFHMebtGlAsnk0LT9bh8lkjcS6mtfoNIMBeCPMW399UDRCpD3QPDxaWd\nMZOo5kTicg33UBnPmjRwRcjIy3imkpRsQHGqBvGUa/NEon4je1t1oHIxkbgivqi1qxJ0JJ5M\n+XXs9hejHcwF1PpDTdorIBdazGEeQWtRlhdq5KGxIZw2pwDzG184glhjQ+Ua+ws7WzUEgBeZ\nkl2MiITLpNHLtkht+H+VSOodTlycC7gaR4o0VyAenGn2dqTCMwpUK4ZTBx0SFep7ofU8oInJ\nzBRT6muUrh4v8H31wR66ykSqqrpZmy2rzOEfIxLR6fVopywPfB7lAkqgSJEBIoUJiu3rw0Vk\nL+zBNSJVlzoAX9EftnM02snYyX0IJO53RzvZ2drsmrJ6k3Qk5MlMvtSRaEZ5SSSd5pHPYS6g\n0Q5HDBYppF6Y9n3BHSnIdtptbbSrOs2wD568exaDB0ydjmimbc75mRfgRaZkF8OOpDTAzacC\nGtF5uBF0ZCofJVJ7cZhIepgT740QCeZC0D0Yyt7eVy/KzTEmjfKy0LwUqJXAGYMykWkohGtU\nMi98TjWo1gaPF5mSXQyIZPfEx8VoamyJNpuULxIpdVF7DEe4/mgH4xSUe2Gm6YAD6rUhCfNm\nzNqESfwwGEF3iBQySfmF8hHD2dEOvCToXxjtLG3UG3qqCAVYuyqH4MAa/bw13sOdSt8JRzvo\nTYqAUWBwtCsFgw55Ish8HGseQkPs7mgXZJFw4Wd32/Hlfmk/rhnJ2FdMyj62yA0OD8VNuyC4\nmI12NgTmrV1h3x9DgF04aLTrjHDBeZwLOEt14LPbcW7hKSZ5lonhjElQz0izDE4OQ9RS6ZlS\n6gluaNmEWAWP3VDkRoQXeSa7GI12Xhk5lzwf0vVDCLALZ3S000vwedyRUCJU41CtyBCRgplm\nxBVh5sNYP58FLBMpHr7Yg/IG3k6GNVph+/0uCC/yTHZxhEjOXtrNG62siDablENwhjtSd7SD\nccpjL/6v46Nd0JIKVfgpa63ygYarox1Zj0ALO1nwR0Y7Of+4oxmfOEk/PtoZHxV3yk56Okqk\nZrTZpByCg3IBEWm0UzXn5A7nUobhPEKY7bGdX8YyPrP2eQPznR83JuHE+gDWJtKDD+HCDxua\nbC1SkLYTCbWQ1k9qssPhVm3qFALswoFFVN5y4VRrA5/D0+aDJ3G5S6g4hkGqtiEqvM+UtVrP\nUObh6DiGRckedKQJ4Y5UKngKyYzJLYVXvTnFdp5GseIWRJtNyiE4nyZS53PQWjUBWtQoVTHS\nE80Ja9W7UEdsbg7XA330tC0UJz60M/EnbRzhBZ7JLvaJxGahyAQOiDablENwgHeYMLqf90c7\n7OzkOcF7GU1mcQtJZGUWy7UM6membaagyaWSwKnUHB/tiql+XiXsmB2jneZRNtL669Gmg3Iq\nkSQLbUYWl8MtEjodPtA4x0oadNUz20Wgs58OyNyeoo7CyYjVMdze1DivsaphTpuTounOjgSK\nk9YCd0/4rCSFYY8cgpMSCfs2yip0GpAoT9VRIvWfPlBbCifFKpNhjNqYl/fLDtd5ro3hEHVa\njwEHlgCvscBeezHawZaeDcynEGAXzuhoZ5cgn2NnVxrZVFNPG5QtfQtEorA22qDpRP9Jm+e4\nWr0ArschlUhGxZXRrrVbkL4z2rXNxh9XdUKdijablENwUEdC7/US7HN4WtdIqVrdJwjpipG6\nA8nqMgdOJ62pXWB7V+O83lOhyz+ojfGo8VZXN2MKwqtY4PDmLYPqjahlFOTCukcOwUEdSR3A\nW3BA4GlFCZNlFThZnwqLqvyZx65QApqsComkTO2hFqOFt7bCGcdZV7g2B9oMaaKMlCNtyr6O\nhNu5csmIqioWpf77o93ALdjn8LTPlMeZKv4uCpxgzyvGY1b83FLa3OVnGvkEYcbaoXwYGHba\nO+VNk5wLo50/TK3DcdOqR+5I4EAMTUhs4+JbjyHALpyvEkkalFTuyn9ov3PGYDxFJMVIH8lC\nRFKdcNDapONlox1SBWVYJdM6o90zIag36oW04V7fehuoF1qcXMutJbuE27a46ZqZwK3KITgL\nRAp8ToHN4VVNkkTAGYcGaT3aqV1jHG5xbSQTawN6CmjNh52OcJEYGe26qFzg+84vCVm6Dy3Z\naBd73xW4GG5VDsFZIRL2eeOpLtzP8jTbQjzLSISimpIMIIPqpdlbFW7jl2DSLDKtVn7THcV8\nGkLMxiMxHgjQhCRlI42iclmXSAK4rNaq/AaRMBLywNCk6AdsW+vG8CIyyeQ4UrP1hbDQEh7O\nfCrQ+NbcE9imYLRDLbGHN5eiPbhatHo+ikWfBpUMFuPs4qBaq3IOkeCwM3BfsUGo5u0onieS\nfhhRrBqHe2iH6MCsCGq0emBo1Ek90RzzZMo1Qb1k+mO8vgpz6rGhUkOswdlT0iVShPRk1zSc\n8TW3j4KHpwRFwqp4qII6QyRuX+FDUk7zlkqAd2BPZ5LspZuR9MsFvI4OM3AyfNawByv7B0a7\nS6T6gkhtJ+HkmVGvyV1udlw05+BoQZAVaf8N2NfxA1ABpWNVL3N4e4lUyDtVKKU8j4KRwJlz\n/2kiLY52VTyvwyHT1QzeT/abvsYDHrh9LLcLv1dJkvPStEa3d5jM8WhnB7pR+fxo94NKB1Kv\ndOOM6As1Ga05PZwFOYdIc6OYWWMeaagbLakn6V0oc1TSz6un6GIenmuHl2IBzz4tYkcb8ejg\nLNfDG+hic3AIXD5sqfRnypm3RPgHiQS8MgAn1KH0VAFfyHxV+YWiq7w0qWfGlB4c31e0AgGh\nsTbKo2Oz3AjeHEQK59GF8LY7jVm7S61fwtlIpMXRTvISZMo79Tj71nlplxPFp+Bsq54h0vQw\n18H7yGjntlAW5qw9hAC7cPYRCU4OI3DZyPI2890dO6z13WUWbnK0m9Ktg7cdLlw4VkDbcwvz\n3jYivZSz4Q5X72y4w9WD2YxO5rKLSFeu/EMyT4tLpCtXNsgl0pUrG+QS6cqVDXKJdOXKBrlE\nunJlg1wiXbmyQS6RrlzZIJdIV65skEukK1c2yCXSlSsb5BLpypUNcol05coGuUS6cmWDXCJd\nubJB7veR/gH1zoY7XL04p6dkI5GQSZW+rtrZZ+M3ZKfh6Oecqv45TnmtvR+ILBrE288/mVVo\nhzr+TfjAqQwd/cYR/4gLvovsZU1shKB28nX5OvSiIBHe7m+uK09VYG9zPYbbpdb0/U5nH7dL\npEskgHeJFONI1jSZ1N/mN4nEmmv9qyZBB6+w+ThtW1KNqheySEEiOJRS+i62WVsQOo8oJ286\nLxYSWPsmvNlohz1Wm3cJ3C61lnGgBT+Fr/M7LkiNrxKJtWRXVxOWLp6q8XEgdTiH1QuoILgV\nweXyKGwSKqvR8ttw8qbzYiBRC3khibXuUF/wHgjhdqn1Szi/S6Rv4/2n4A5X7xAC7MI529mH\nq3c23OHqHUKAXThnO/tw9c6GO1y9QwiwC+dsZx+u3tlwh6t3CAF24Zzt7MPVOxvucPUOIcAu\nnLOdfbh6Z8Mdrt4hBNiFc7azD1fvbLjD1fsNAmRrz/bOfysXzoI7XL1fIVLyN2lne+e/lQtn\nwR2u3i91pPZfR0F/W/xejbPgDlfvbLjD1fu10S6gzNne+W/lwllwh6v3i89IsP2c7Z3/Vi6c\nBXe4evfDhi/CHa7e2XCHq/cbRPogztnOPly9s+EOV+8QAuzCOdvZh6t3Ntzh6h1CgF04Zzv7\ncPXOhjtcvUMIsAvnbGcfrt7ZcIerdwgBduGc7ezD1Tsb7nD1DiEAwIm+FV3VrxV0f7Xgk852\nX9Ye+evkEC/8MvdzdUG9CDRWs2NtBliAli0c+A55/0XeeLzU3Xks4Pf0dSDx9839iUS7VdmO\ng39M6Edj0rvV/4tEMj9w0knRHl4bKlMuIjtya5NfDpqH+8mZGBD8NE2b+P/TiS7IUfpijjx+\n7O48tYkBVj3/w0GNB4FLQ+1WZTdOEDT51RpFpkSNzxEp+rmmFbzWSDa2QjP76uU8wmqm1pKW\nISpQAMDxS2lPoZciaxFe5O7YZ+FV+o0dEAg+bI0PtVuVtzg+wpdIl0iXSDtw7mh3R7tibgLq\nxe5OLxKwU++fHO2aMm3y6+WHDdbs3OHxsVUrSdABvDzd74cN98OGL+OMEmlwy80N7psN85+D\nO1y9QwiwCyfxTqG6USr16EqlqUiPNpXsv50LZ8Edrt4hBNiFE3uHKMREqkwdes9EG4Dbrd6F\n+zbeJdLM7cW/40dDQ6yf+fd/1wu+fYt2fywXzoI7XL1DCLALZ5FIdsUI3G71Lty38S6RZm73\no51+SmpGO7WiC7dbvQv3bbz/HpHiz7rbxYl36BPNqolkP2yQVV24EmqVSYSXfaK/AGdPDnyO\nPgGHodBH0cuZ6j4DX8Nb+6uI7l8Ehtd/g0iUsegeGI+i/2wuZLf3w5tKCKf/tYP3mV8SK5fU\nM+fk70w64DOZaqFUIViDa6DlZQ2v70cE17sruf5bROLu0MMx6dUUqJ5zu9HNJekgVf4a7m3m\nq6SZwxtILf337j3wiUy1UPDvY1eJVMDLNN6AHwHckIOC66cQKfxL981EmpNLpGzpJdKgNjPy\nsY6kDSzwQnb7h4h0RzsLdUe73yFS0SWyi7Ppw4YVieHuhw3FHm2Mxf2wYWJ59O/5fSzzT4A7\nXL2z4Q5X75eI9Cmcs519uHpnwx2u3iEE2IVztrMPV+9suMPVO4QAu3DOdvbh6p0Nd7h6hxBg\nF87Zzj5cvbPhDlfvEAJEOMl3MtsvacKvPe7UpoKvSL7DC23ZC1fqCGjuvNEo1Oc76dB5P1dH\nvxz7/W/IBp4bMPtsIj3fK+8aQTHs/qXgK21QMu3Gm8Jt4XJnzcLZg24cKBpMpUa7Cn6H4Zzf\nbBhKtncR68tHcCZMe0ru14k0t8FE5i/BpczsgmbO68eh0kulFwQnzaYOvai1CC+ySECGr77k\n0SlEgvpcIk3CXSL5vcav/iNEwjh3tJuEu6PdyMX/3GiXZRqK4P2wIfHN/bDBXh1s5//Ghw2v\nbz8L7nD1zoY7XL1DCLAL52xnH67e2XCHq3cIAXbhnO3sw9U7G+5w9Q4hwC6cs519uHpnwx2u\n3iEE2IVztrMPV+9suMPVO4QAu3DOdvbh6p0Nd7h6hxAgwvn5QLWgbzIPqbHd2cMfTQ/i2cPn\n89b3cPKB94S+XefBv6pbgQs1c+fM4c7Yrv1NSRb8XyFS8hcbzpHEoTK4w6eJNJXnA3juSKx9\nB1cIbNhxfe1+UHdo96iHmGrP2cONsUUFoQ+XBv83iFRoPSpJ9qA8yTuaEB8nUgUheIFnD8J/\n02kSThI1cvO8dk/YClg3C1fsi1tR0sMEf1ygV7pwefBPIZL+m3G18BJpBe4SaUCzf5RIGOeO\ndmtwhcDuaBep9q+MdtFNg/9GV/zvPB0Nd7h6Z8Mdrl6by0syhVMW7rly5b8glxRXrmyQS6Qr\nVzbIJdKVKxvkEunKlQ1yiXTlyga5RLpyZYNcIl25skEuka5c2SCXSFeubJBLpCtXNsgl0pUr\nG+QS6cqVDXKJdOXKBrlEunJlg2z7OsbRXzJ5C3e4emfDHa5enNNTshVn4iuxHTW+/i3KLuYO\nPPrvBQzDQW/KFz6L+taygyvTX4wNtXEg05DoC7uzOuVwMWh72p85kUjlpzysYO7L/E/8xy02\n4RX6b52MwhV0sfAPnani5W97vq6+FI4WToNA/87hvftvQEDnQU/Raamr4rMQjtbNdqu9RPoJ\n3O8S6dyOxD/H8JJIlf67YM9lnPk/y4Az+mo2G1adi7OQmOfLMk8kvlLAwqCPxRcH1VqV/xHp\n4dEvEwnN0ctw+P75calU+gWWl6Od+s+z8W9Jos3Us8Osrg0cg/B/dug13qROGRy92onNno4L\nz4FEYidfIoH7CyXhFFybcdrLCZHMM/i0sg6OMEqtC4hfIZLzFNNFD8B+0INw5tyvEEnN5POg\n//Zo95PYVX9IsA5HpKzJMxL5QJrgpLbmmNHM0TreB0Y7dK7IwXMMfHUokeZ+JzFR4wWRDvyw\n4SES5887ItGP6HU/bKhrhQ0Nk1WIdOSHDeic0EH10y4c3fGLHza8+Wx+Y+afMdoVmiMk76Wk\nL6nHLJRH0WCUlmFHB2Q4KsEoVvizJEayH0HM4A2qMgQHlpCz2XxVbtzuGwmwC2d9Kv/3iFRo\nLFePRnFdHFGvGG4qGkE4mv3U6mEvYCIVfsPuFcgU/NNEwvb/tNCi/qHl1mHndST5CewFT20c\n7VYzNQWdxJPWw73DXJlXj5igahX9P3hGet7pgIy5oc3USk9cxgD0MoQ30R0H4doFikeGOk1z\nDifD6OKgWqtCHzUstqSNRDrhGYmJ1A4WK3BcYYsjUsFEkrVbiEQlYReR9j8jmRbDao4RCWTs\n7xLJzBILt29S64iOZEY7q9GSegynA08Z0sIpHnNA0ukr1YY/2Sisg9bKvhvB296R9LmiKmkz\n1/H1GM6c+x0i6Wq5cnt2PIGEFPg6kSjpgEcWGiYT4+dP048g3EM4CUmdSF7QQWgjB7T+YcPH\nRjurIcpHf5ht8UsdiQK3UHP+sdFOE6mKM9RT+hScEEjhE6+ikk83VanMYwJ4KXvVXmjbq58e\n7WyDKc0p80FDF44wZ+m+j0h67ECT+5Qabxz96x1JeaHorGGnLI127fMRAQZwdJPqjL19sHZS\nE6hWqiugB3Tx3jSkTkcyE61a8GRku/HOkWwLjuURxZfH9Uk1/uBoJ08mxhEq7ezLlHqlEX5E\niuFKaVQxrTEIC+5Ize5VfZDByGoTa7e3pWtxKMhaTZyiJiM2ukhz7sCNXXq5OMNpP7Zz/0yp\n8feIpExtk15uekMkC5xmqr6t1SUPC0x8/rAhfvlZy+90ZwS2LAskkna0Zrc829FRD05ZPKXm\nvs7WxJmyBuZOR403RAKl9vNEElNB7uoZYwzOLwDsdAy1cNx5kC6dsLSJz5bpI18YLJEUOlJv\nL5GIMaSXYlBVL5AZuJaM5OwAzoLAIeJ3iAT89U0itVOQmrVG4dx1Pzg3BG3gqDjvIFLlUU61\np7ZByYbsD4wHE3pYUP81RKquBSnbBzsSGfdGrVUBka69GSJR488RSZka5nuJbu9VGdyPhJ8A\nLm5JtRcWmPg6G4MXeW6SPUK83OJMoPNUyomWqitpI3I4reYbtVbFZRCRP32qTdR44+jfIZKU\nZFRRqsnbOfUK6vcl56X0QMi+NCw48ftEYj21PwK81OBcsPMcj7TqRVZU4zcIN3bp5eIUx7qV\nY7amxouOhBr4N4hEl0CmVzdJTamnqqvGLnpFo4K+gpiUb9gqUClJ2ycj+xwCvA9nsZ4SM+o5\nbG2/4dWjv2XSxk6yBweN8etq/L3RTu/eZCzRap5I3qXIvTEcHArlWrAlVEHetE/wedw/PtpZ\nroA0LMTeP0Ek5NhlNd4QCeTIt4hk24bWyZTqcfWKfnD26dGFy/K8hNu2ic8JSm8qvxT00sFL\nSDwgmOfRLMszksrQFG6XWss4bSWoEx383xjtTCkx+VxNJZxocGFPqpKOERwVYnhvvG8w2plk\n7LzkeJtHOzjNeSJVac853C611nHUsxHH6zeI9IsdSSetaQxuoFghkoaeIlLDomkikUfFterl\nhI6kiVRxV6rRprq6vJGNhPTFbwZ8Y+Yjr3x/tDNrfOrMjnaACYOjXXB3nRvtyKE/95vRjkcn\n/dLHCw3uSz7a6RIhdA8AACAASURBVFM6E5uRLoLbpdYyzlOqnAGrarzyNB7t/NnRLbh+j9zr\n01VUym5PVCml7fTk6T5cNNgBnTLt7D0DLzneu+qP1GuaoJgqNWAMbpdae3AklaJ+2lFjSK2k\nVwO4Va5275XUzup8tnWY0txSaA00eQiOtDPJZa7OaqfvUqOf7b3AIbs7Ur6aN/srHUneFRV7\nnFjt2ZUsxwHBz0jl+ejj0YuzqlTzqh4/KCkKzAXzvugPGUZ0H7RWd5FCTzbYnV047pNFPg1W\n3ckEEMO1PZanJhnynPdLOwjgSjchsCOFi1mfKDDHEqkJfrsFOLtApGB6hFv+uLPQiPfE9znS\nrzL9u9dAvXZsGvlEasxaMJfhxQNw0ttaRI+L4Wxp9yjy5NYgoaq2lUjw+ado71Wuk8YQCLdL\nrbc4KFBw7QYiwXaNO1Kt1JHsET9PFXovxXWASPLJMAVuTPXOsYCPuHOISDUgEtncI5It7QW9\n2GXmTo+3l0hgEzMkPF6z1TKC26XWW5zi4x+E1Rs+rxb7CJ0HcIXzhY7UWXkt9lxKJPXBlZTm\nLUQC3Sh1Zweuh2cCgolUi0nEosqH71F6W6BxELdRgXAOsLigUKQkZCHcLrXe4oBQodW92L8g\nUkWxq8Fo5/qOJtJAR+K2pozVS6N86Vrr+al4ugKHwTjJHP3zjqT7EJksvAIT4BeI1ORCMUzi\nOLEn/gCR2ogtqfGGSAjOeFN92KA8zA/Nap1aC/HNANEkOrhxzFoiM8j6FbjajAkOs6S3P0Qq\n7KeuCK8qKprDWTFmrU41QjZPSEWH1afNsURCT0nzauwm0iz4KB5IIrsIN+T+Mc79NbiaMqDp\n4MtEklalOtgXiKRbJG9qHpFIIf3UFMDtUus9jk+AJTWGiLQ6O20kkjEXPcYuZj6cxuoqkSI8\nHsRGiMR8tHwxhClmGc/QrTJ7O1LVxrBFRav/88KjbAy3S633OM1IsqLGRzvSvGREio1thqZh\n9VC5j56QhqzlIdbxsgAtWzidfwMfNkjjwnPxcHkdtNbvrLfgSmG0TuB2qbUBx3p1bIuVzE/i\n8WtE8hquqVfa9pHwaMhaNJYFsxdOfA7kcye/UCq7c+INhIcNGZKgI5WnGfJD8I/Fqi2Khhnc\nLrV24NgnvbH2Mq8WytwXcPle4XFCoxW4B1PnZh9+1Fr/uchog5MM/Tnkm6VTNS9qgvp0R5J5\njmZLO8IVfoO2PplIVJFgBRhTI06aIkvssLsENyg5kSbs7ME9mJ6fOfQMkeRx+5nU2sUQrrRH\n+IUnQDrCLSQ2pufFgEhmJLJEqlwMgG+mq+CgWntwOF7qzyk1kpmNLp3VkVJ1xuEsqGrpGXIK\npx7DHT1p9OnCGSY75igEmZ5or0pTVWtdYkvHiXi0M+fVaKcf7DCR8t2G5TMdqRUpDENqZARR\nI8avE6nokjZUMkbUA56rCXAGZ/joQ+KaTaaNuczstjGVcqIf6hu1MyJlYwZtAW6hMmGtZqfx\nzFC1rtjaVfkEDmWVbkfK/SNq/CEimTiNMamjnhnBdL7OW/v0o6oSq6h8GiOSs0irY2IqDyW6\njc0RKW1XTF6vLtlRwFJRRjNNzoebzckHcGweuHwINkyDqXxnwnYAkXiesaV/Ge7n0PiN/wE3\nduF+cp67UVVKivpz2smD/c8Lo6k4692mRrv8gRD2K0Oi4pSrXDx0h5JRL21/U7IfRwWsHcoj\nF2bBM35v2/cs3IqkNb+xtNuTcvUAmH5untROJbZumpxwLWS3XxJxzAZonl8gUjraQZqRh0QT\npdzP/j4FiwANDOJj8gEi1dipYY71M7W95QAiOdPC3JlQDzmNR5EtcCAg9jkHwzGh6aWLrfQ3\neHHcOqNdACdzgQyVQWR4ehD6xxtNkewDhEx4RCN7V42/QSSfLhysNbgG8om8Kv6zcNWMnSAc\nNN7IRAQfQviKhNDmZ23fac84jXKuRNcCIv1cYSap16dGeNV4STTaleZNXz7R2eK4ceh6aoRE\nOmm0ayzjGC3BAUiGXYSrulhH4VCPXyWE475lpyJOUR0P1RdQ3URklWsLo1215YL35pFPDbjV\nLYSanEKkGnNJez5TIyKSfpv4/FeIxJm5CAchgw4+CCdplojyZEAk9aChRrv0ycjaYPFQAhj7\nY0PR5Cl0kRyT4UCx3dgsSxOH/jqRug7uqREQyZQk2Nq6cEsyMtpxoi3DhRm/Cle5k4Rx+CFE\nPtpJU6M3w49HSP3MpNxeDBdNBkIWrXNDp8yhv02kAUd31IiIZK5lpSs/npWgI8EQLsPFPHo3\n2nUeknRHqrDku3EoQnHv4liDc+baGyK1m/d6Z7zRWDBZjT0ySyQ/CsZwejkcknvagONZGRvt\nRsawTD3sp6Tx5nB0pKYbrLEb6GDit889hjR6fvoNIlXaXI6IPtVWAUe7Tz3bbMLpj3bPyEG0\nGCRS1ItzbT5ApNiwJbgMsq99t72no93zB62bMXZQEF5kSupEDIfmAjLKngEH2LmB5pl8iJAj\n7i3Kp6NEGupH3+hIYzkzrl6M1wftWDv0REMPP6BGD9zdwQZ4kSmpFzFcqiC10WKflLTdiUN/\n+xmpzj6UjhNpVZt3MpRbb9R7hdcZ7Wrak9zDDSCuHtyWWNXgxcbllmO4jk7V/Tmg5VlEqoN9\nqdBkYW7XPSjz7YQ2L2SESIPNEqvXiewsXHM0EAHqRjjx3cffrCDQumdIZlxuOYazJRuZWu1L\n180HEYl93hMeKMD98vYvEGngYWYYrg58xJDA+cOBcvzsih6/wUpRs3kHHdPiRaakwcZwQcN9\nBuaqzxSwMnPorxOJP6HP3KtNwd75eZv6dkSbbxCpQjOG1UNg67xstB3gkZregHZVL03vB9ca\ndeJ45sGGV4M0MydlvGvXxhv9/ocNUg3S0VxP3gDuzxCJTNlFJOoKm4jUfUiq1AJLDCel8X9H\nbHcVjCDI2bQBTAme//lOmCq13Z83Mnb++NbUhWizSfkgkaqU6eADSFoOP2w4uiOZgaHKyyKc\nZVHFCTihXXPIdMGjjXEwJhJFRBOpyhU3HRZFF2BtbAqqqvrOmEjqIY5Oqhono56h1qdGsl04\nnFuF3ys7KbKJGtph8zz6QkfSxcAlzop6DS2TdBqAa441ZaQ8C3H7cHSX1EWzxsSUa8GQevZi\n6saESIonTXJRnIo+EfTfVfkQjugpdcubk6lhS+S0kt/oSFW0nO2ZyFp2znzd6FoL6jz3kda9\n4eyk+ZLraK7OBaMLHMLpCcffBSphoo1t12OyjUgv5Wy4w9U7G+5w9WA2o5O57CLSlSv/kMzT\n4hLpypUNcol05coGuUS6cmWDXCJdubJBLpGuXNkgl0hXrmyQS6QrVzbIJdKVKxvkEunKlQ1y\niXTlyga5RLpyZYNcIl25skEuka5c2SCXSFeubJD7faR/QL2z4Q5XL87pKdmKI18x/r3vhsNv\n/S9+veSxJP39yhUZhmu+Bm6/xl1YxRaOv6/+/uvFBiT/VYUhvJXvPKdwFXoK3+13P5FIFOOF\n6G0kUvp15DmF2KBfIlIBF+nHPIyO6Db5Vvhr7bRHkU6TeBM/EzMCl2oFv0f/F4hUYCJPq/Hr\nHYmr/WPUa7zs9hkiVfFwRiT6QZYFZWFHKvhoCe8DHSkiUuOdv9CRivy2zms13hAJzdGTEPb1\n14gEe3vhnwBKRrsnX7QvhqMCOoj2wHR8Id4UQg5Hr+oC/+TOs5867zc/j0j2p1NfqvFLRKIK\nbj3/a6MdzH79Q20F9yyar82vyw3PCX+SSPrnqiSCrmeXWptgHkck+YG+v0ukH0erGyhbf41I\n6F5Kh6Lywy7hhBHlxbR57WQaKtY9oxp7vE8QSY50dSESFf7EZHMo9+MQh9aeJI8gkp7oHixO\nyF3qwduniEQDW0mJJC/2aEk7zcaziVTsC891TYkM4XaptY7Dc90K5BlE+hns9GAQfJr/i0SS\n0U6eftoVqipoq4YSOBztBHJG318gklVRygBS/VwiLTnpBCLJp2FFTkRPIa/kHZziUajd04G0\nBcN/LxEmvgDN6RvhrUl/tKvmOU4PSvCRc4/sG+34GfiPjnZg+NG9aRqvs9UyHBnI/0RwpaqP\nyiceb8KOxAPSuR1J1ZaiLidZeQqRpA8x81dANxJp9cOB0ni7hNn3u6NdbZIbwdG66nKKV0W7\ngkmRPLrrw4Y3Dhxxnrc9eXQ/hUiCwxPHSr05oSOZocXPM7vUg7ePwfEnZ/QkmhBJ9SHKKLd2\nvEYrj4ZEykL+6Y4UzWvUr6P5HMPtUusFju1K79T4PpGKCQn/9dE5ox0zp+lGoIXIDGb+Ikwb\nGO67MNql497nRzvIJNZYRuERuF1qvcFRM95bNb4/2pnM4g+59FC0Rb1lOJXJRfoN7pcyztAR\nLi2DROIPYTTsIBhUb/toB5hknJBQ90AimWell2p8vyOpil/V5zy71VuFk5bAbhaqRGurWd7s\nOTza1SpRbf/VgOAvrRO87R82SMXQfz7+qhJTfTmA26XWMo56Qlpw1MZMXSUSF3CuBnLXrxOp\nUFUVB9MHuqj/MkuS0jb+YYOJra/u4biX4oWL+4LhZHoTXbgjcykAux9HpJ//cbGcxD2gI9Ht\nuibsV28NjjNAZ/RzFo5t5oOJydKGRzshsYmudKlf60iFeqKaKtwCaUzFO+xXiJTEhPq7lMtX\narwg0uIzkrqdEvac0e5JFi5VpCZuBkXu0h1sXTu1ofGvfIg3SaQPPCPxhysu+/RAJ1Uyhtul\n1tBacJOK8krFOagjoSr++0SqnMVmxqI6jOD0IDhT2trEt1WdHSPpOz3a7ScSfyJih0/WjNt5\ntYPugUSySfhOjaHbcWucI5JfeiSROAMUkypnZGDtT69YiEgw2jWO0c1IpqsBvO1EMg3T9KTC\nj061+DqA4XapNbR2gEiTCq5kKi6Dc0RqMKR+nzPauWJKFsqJZj33qS1EchySgc6+RG3p00SS\nqa2aIa+qQ16BPizZIh8i0iTySqZKCO3pGSK1GHqMPqQjPSPa84bJxImDazQl0XxpazOVScsx\n1vtU1gxb8vmOVPkR6GmR6oFONWhHMgy3S618cVzb/hEiCY8Myi8TiWqp7w6BE5hg/oaxB6UW\njis5eYauSKXRHzv08D5CJLZOFw4qAVxVWgV/hUgdHB/lF2oMBhy1xhkiGQz9JFCrcfivEgk8\nohQ17YVEKigmA3GBie821i2gyH3N4BTidbUYV0+N45X7dRHy09DZlEcIt0ut7trAC26OmPXV\nUqbu/bCBC9iTcfqu3+5ItlGa8RPDySADaDCrnYfgTz6Kqvu10nNKL1V3E8lknDzfisMktrV1\nwG8RKRio0OAxzdFFtdydc0TSS2ya6tt+k0gmJywlqPX4O9TQ52+s/WelYLTj+Ym9w8xkfsH0\n+DyR7GMtmWmoL+o6Jp1CJB2hP04km67mtl8lUqFkcZSoIZHUi6cfWD6kHfiwQXqTfmm9/zUi\n1SpPc035qFwRziSSugaK5rIa3ydSk6XpaPfO/TPqNUmhsiMe7SoV4V2jncJRrdvwSvWmAbxl\nCUc7qCzxqNA0esRoF/RuOgVivarG7xPJOPz3iBR8zmAeRwI4k/Mmqya1I87IszsItOdVF29V\n0OSpEBGRlL+62u1Sq7c8mg3U1JzELHTgEpEg2hCRQCSNx/v30+P1T50jRDpW7/n/snbUWvVo\nYpOjWi0jOKnBJbWuZyy9mBlPsaahlI3MHJFyjqWxKaHBEpAWMdtuQrbiWCva59qAhECNoRaC\nW+MAkdCEI35HF9vFQgohjD7mM/LC8/mYtSUurxYmI1Jzf5BPmbHMaH7GUNGWF8umBC8jUpwi\nbFGkrqGR7ZBJCTmSSE3MQGkKk2ZWrcAzA0Qit+oztu531TPEkTOP1arzlOd/6tqgtbDHM0qx\nGYTh8BjWe1BCxrLepcgp+xKwfI5IecdMq5DExFtbpXT6RDiUSG31a0vTPiLhgIwRydZl43yU\nZX0iqdQOiKSAxohUasCD4ipzDEd1uKVRXvbdselIP+51bama9HVKNIYlREI9p9UEqCv1pSiv\n1Ufb509VYwqHZ4/M4FhPARxbDahKm0XBfhuJlM/RfKNWi7oJ0Wu+I5njYs9Wt2LMWo69jCqw\nOnXgiHV+9Eo8DOH4FvEdJBLVflWPAJHC3aP00pcb9dgphTOu0GCn4qr9xnztzbnDMoXTLWO6\niFZ2qKmQY8hvOhLYxqaWu1PnWtA1AyJxgCrHUHJIkVJWDBOJahLzSLzarO+UDbFNHiCmiKT1\n1pWGCoaZp2rlzUqAl+VBSiR4VQqgBEOlYeFHOLWrpn/ohzmZw+l6X6qniVxnKh/IBXBLRCRY\ntRQWq/Ys56IW5GlPvd7i/gp1rJqQemAzfkzLRHNcGjHtYkg7aS620rAzdd5Kpdedy2sU7d0h\nEiqSqoLRbtyEHh6ZTaVA1V8a7YZw2sBxs59QQ3szcG1EpGC0kwzVs51SkdRAm32NSMRk5MUw\nydL+C6lELz9Leg2usAM5OfldSCQ+v5VI4KruPSpviF/CGfVUJ9r/LSL1VUaZz4BBcgc+h1WL\nMtQ0/VqdenEEO8eTEsJZckvSy5/BGBgdU7VG4aAR1ANAOCYPVXkp+faQUzis+TmRcLDVnRBO\nDUCstEyYHGF7No/5pOzGCYvpNJF4fjAtRs25OCC4I1EtMj2ozSy7Q67eC5kh0oAbF4jEu5hR\nLYGTz70kb93E6Wo+RQdnfugZXCvUnZhIKqKiMxlqyUaUe/aLNpuUzxNJJoCk2ADvyCCuvGc6\nFQwIrGmUgkolr6fSZCpVVySGK8iDjgFT2pm2C0IzQiRFuw7Ni23zC0TKLkZF0hjkiOSt9auP\nJVIWtqST4sxXgGoZIpi+M4qdzgegXLtDoh62YlSyFpJJUK5T7dBcZzE9QAv31EHsPaQzsw/V\nfBw3bX5wsdeRHhd12npVrwcTKR7t6IOUITWUx7T3RogUjHYlzSiryKlECj5t62jXbXHNenfM\nW+fKybLnpvqlDxu8PZWzoNFtzKEr8hZHGfDgJRGj+tRqj3JhbbSrsCMZVR9tNLns7QgzPZ6U\nZLSLpVo9x7VrMypPo2C0g23cvCPH+00avMiQLUTSvVD77om4nTyTzSZl/2gXJ0OVtO1lpvKY\n9Z5+F/i8M0eLv21OtDsk6oFtJySEC13HKTIFx8cpbHX5FIx2Y6JnwNa3YmTkmeziEJGwrhVe\nQoPnquzHGfV4qoZaEfk2PI86UtfZo9bh40mJ4BJv/bysaNdhQeVSHcK9FYQXeSYNRgy3plf8\nqDEvH8EZMKBPpM6zUPyMhOBCKlV6GbcOHE9KAJf7LN411a5A650jqmn1Ho487d9guMpwcqrF\ni0zJLuZEWmEUsHZVvkwkZXaqhjIx8m1wPiBSM7m7R6YDiJQFPH0szrQDDy0gIDUlEnpwj5RE\nDdDj4XgqH4SGhnBiSmgjWISsXZXf6EiFPnlIxgk/7wh0heftra2zGyIZpyZZGqn3RiBc5i1s\n6Yh2T7LkweiNdi/HuwYvtgbekN+6oI9W7VwiDTXZhynZOKHeylFIMHNvf7RrPxodtA4fTwpu\nmHkjT/YcGO26TCoJHC2x/koRM99m/u4EA8LxdD6WeP443GxOtuOUMSpV21iTXNC+1fdkPu8/\nI1XJBNDB+nivBJWNjrsyHXPtUPoAfF6df2qXPCj91mgnm44Md43i0WaTshvnmVKenpKF7nnU\nw5NqSKT+hxAQrt3+UbMeQSToKTt5Lo52IbrbSK9FcOQm8lwMBhjm8OK4rREJ0zezNtFuVT5D\npErRyQ2qz4evqArKW23uyGgHrAKb06JelmK8zvp5OOihysqm8e50pDrQldgZERxQK9S3PW/x\n4rgtEmmYRxWoGW02KVM4yd5mtLOrE6vEC7FaekuT9Vk8AsWV9xA3Y8M7x5PSnzwf25SnlrXT\nU2wcBzUYpETqPcgFhhi8LHDZxaQjKRO7g3K176PNJmUGpzRvEI6o1vP7MyygVA6JZNSIPe6P\ns9gO+PLLRJImPRTst6NdKao/h6MdL3s0AlkZTCEeD5wz1xaJpDTSz0Sp2clmk7KfSPZ0SiV6\nUBwm0lD7gHDWsQMQHbxX0uG5FIyhubOrXTh0UU4/Qza/BXC6b1Ve2X66oBI6GmDQOeuJ0FAI\nV02t0G3ce/XntNF4+7PN1NphIj16wzJFPcnMWQDOem+MBFmmrnTz73akqtJ1X78ERNIZR3QL\nRzuaHxRW61gQahyMyJTsYkwkxQ3ZwKnxrLV/F/A6lFaN2bWjRHpqautw8Tu9ieFy33Y0NRjz\nOCHeGkwI53PvJVy4sBWVds8cGcCRXoosP6e5NzEOLgtGi1zDqauqxup5WDSpSgmeTkPtVmUK\nJwl0RCQJkImbtKMyNdqNKhoofiqRXKF5DZctpk1UOIpwAU4HVOflfi5+vg/pPYRqXoNQxTdE\noq2ozUiWtctUVkabTcpbnDxDn1aqx30OCw0Sl0j+44BZ+DkiVRmEKpVsJgQkkkx0VS9RIVS8\n4hfpD0iDSLtXRJJj1TxbIqletTLnB7rNrg0MDXAKf8JdW71VTfg0kbJmuoT3SkCqah59lEjy\nYCpPDFU+6opGO2o16olJJSSf82yqGG+OKu5yx1qjLhVxt8o+Jm2RWSI17O7iuIHAXJL+H8Pt\n6Ug0Us7hhHhrMDHcGx7NaifO5P0449D2NkDSgjychElAIF6PKYn+6JGrWaPPheMlOz3ebEo+\nTyQ1z7WXuJwlcAvWokxFQVjHeyVw2GEaTYOva1f48ejnCMNZMsThAOSaVq8f7D7ckAdfllaA\nN7c2JNJLORvucPXOhjtcvTaXl2SKSOaR8sqVKyyzDx8rM/yVK/+8XFJcubJBLpGuXNkgl0hX\nrmyQS6QrVzbIJdKVKxvkEunKlQ1yiXTlyga5RLpyZYNcIl25skEuka5c2SCXSFeubJBLpCtX\nNsgl0pUrG2Tb1zGO/pLJW7jD1Tsb7nD14pyekq04619W2vcV1N4315dgVvECh3zhC7c9FWbh\nXnwPDX4feAkphJu9vbjjDbIT54ffv06kke/1d1Hsr+rM48lPUahfsuGjt+rlt7ff0zcqLMEp\nt274SacPECn6nru//AeIJL/x9F6NN45G7X9enQfm+XGQWTxJXvphnqLOf49Iqh4Mb4PhxITZ\nGKNZbAqgA0evhY8VqYQ5xZ0K4HaptY4jMdugxouOtIFIRWBsPxnFoyKuO1Ax59+oB3eDx/Qz\nnPp3stbguCPN/z4LItLujmRe5Kd2DInMUGC12fCstJVIKEnW1Hgz2r2HK1wYXhFJBjs69ztE\nalJpAc6b8FK9TxJJpSEkUg63S61lnHfMPqEj6R86NB1pZbQrhX97UVdzPGN9jEjijbaRhJFq\n4crTohXiRJy/0ZHUg3HRzVN5P9jyOCIJlxZ+mW1naq0SiTLuGYXYkoUPG4SF/JD0lGHaY169\nbLv4WELCJJapZzC1pLIwJH2GMVagGrz9z0j+FyvZXkUmPF4cTKQ4RONqfL8jPYnBvxso/XWa\nSEUBsTf4F4HB7Z8c7YrO/KrUCfeFHYm6kbJqNNBf6EjGGra4qrGOZwGvNNRkYbraRyRJmwUm\n7SQSqJQjRPp50VknM8EUnvo17WpCGT70f45IXBX0fNOkXgeOParfpBA99b5DJBU7oHkAZ85N\nqLmNSHYg+k0ivelIRRtihrJxPNuNnjZU9Iea3ySSenotxSZTsC0mEkdWLBsM9Bc6khntpJL5\nrqQqSghnzv0Okapy8vTt29RaJZJPOJ6F5p+RXPLyJw86tNPqpfvh45ZGelqY+7ABeWeQEN8g\nktDD61prLRLJNjuOIxKofFO371JrmUjGAE+FObwGwT0/foNIBQgzeQ5OJSSDGEy7egiva9S4\nej8vSsfKw4VMAtKP3O5nE+kPjnauZOmSMIcHiGgcM8/LruLtsUkbr8MsnCUSY9C8ZB56BsrE\nR4ikPmEw86eEw8bUWec0GnVVotaquLDN4h5AJJfw8geosgmeRA/RSH0KMalepnlzrIuwsWjk\nsSZ4RrJEkqStmhoFAHyeSEalx35V0HSbaom0rkmq1jKO8/SfI1IzsKjoTOBlPKJk/nhHoo87\n2oebESZhIjWju6Ym+/xXiFSodqiogXEaJyfUZCGJd452f5tI8KGGkmUYL3o2IpifGWlevVx1\ndyw1rX1c6z8l4dGuNCBF5jrx+S+MdtwUdXN6CKSyUTsigTPnfuUZqU2auds3qbVCJN9NjcuH\nW4jMFfpmhqNha25SHBFco+XTQmuZShO87wiRijZX5mAI+g0iiW0oiMWnZwJnzv0OkTyVpm/f\notYCkcA4VmmgUxNLBw9NEPLy6FYrmq22E4mfX9pBoegswQWhOeYHIkAkdZ7HrA7eZiJVonBV\ncx6iPUzNS6QIaZpIrepNaR3AIxT0UALXjqrXlwzOp1SxSZKmkVlItUWs8n77WdvWiY8TSVc7\n+3woHNf6p3Dm3AFEUgVrRY2h2yD4JJFkIsmqwAiRSjNH/QQtIt2QekOSwkHDuKOgYSwgkoIg\nu2zZkGUdvN1E8gpUrSgHQubrFE5UnNPyYx1JZp0VNUbuwpaOEYkzioto8TKpHj0ENZmldpuA\nm5GwRlfQIyvT6MmpJkZwtGufIat78FCHHfXSFO1mL4DjMvZoS+M0acpsegjVaDNJmhG1XuE4\nX8fTQ1eNgZsC84eIVJTCyukm36ZGO8axifUQtZ+qrwRkPqe/D4oafKQnudRqbaM2xElJxcdM\nenKYq5elbb/0tnBPSXg8XrR9Sj1mVm6tqDhHrs8RqUiQ+hp9l0icPEXWmxJAeTGqnrlVYUiW\nzja4GQGpVcXvrBV3xyInh4kknPMOk/0skaQpIrzMlNwdge/FMHqjDouc6BU1c24iMDuJVJzU\nqv+ZUuM7RDLjNVA+dKjHU6XPYOg0S6z7BJGe1NdZ3wyytaDoIDiaUzlj2bi2hgiPI7y9RJIJ\nrnLf0XOm1ELRfgAAIABJREFUckClBhbDmXO/Q6TwU8eBfb5LJIpymwa6tyQOVcdgLHSg3x/t\nkqHODmSVKZfDcRJSVMk8bHo1QZ8h0tJo52Kokk9iWWRIsFucRyTckyrXxik1YkeLkTgg8HSz\njDwdcUkqQEc9F7LShGwoVSNrxwSViaL/0Yq1vbPfkQw5VJpGlOK1MV5szPTwojumjaFSnRoV\nNagQzpz7NSIhJvHHQzNqJK2fLr0i0tNBddFSeUVR6avn6egSV2fVgrWDguCY0D4aigeksEMI\niFRoZPNtzQ554j5y4Oc7Uq2soQmosd9WuxBOmdzldKbWqvAw0dT4OlBlRlNL1bl3o51nvU4s\nzpgB9Ypho0tbClnbD8esdVdxfQ/g+IFIGWXakH5HJAngxEUK0jCnWLQqoY/wQlu7VTdQT2mi\n+k9T1p51Mdyq7MTxTmW9+7t8l0hUh4P0b+tihOdDpEBK4VxetRauGiPSEw6lTUL33hxLXdcW\n/xKEmy5w/ZwiktyWu8HBPe5+9iZdmxlPKdje3t1pSq1VsQOXTamBTdLUKibIdqcWCZ1WACrL\nkLJgrovVazOpWqQgY3IiFfl/IVaXKoW+D0cZrCuzIpazl1I/gVPJ1kx1dLtbJvVzjkjJxUC9\nplxU9R7Exm6ANoMLO7KdSNUrryrauBrGVG2QvA0shad1khShSmklmJnxcRstGYR8nR+19ikW\n9PJDIHYg1C+2lltj1JB0kwnhxLSqe0YT5jZlYzzolzUiKY+L54wa/iCDI8dFl0bVWhVJLZSZ\nnFijajS9F9yCz8PTQnMd4yalwuYZEwmImusCi3MiPdwhXRWhZonETI9GMKUtmxRkapVQtkTy\nRcmw5UtE4qIgvrPXjH5kbPgQEV8aU2tVuPi0kdI1dlQNQySckYHP4WnbLysIvXOxAYzUa0dv\nCmecDWrkgdY+uNpfy0Qykyaq0jwtyDQIfK3HCj4qDY7zgXjzW0TikEoNonDbZdrYOCd7enTU\nWhXqhU2kqopUrNqXiPSkAc9KRlWgRg28XWirtqsFXNFoPSLVYv7P6tY5IvFdPBU2+c/Yephp\nM5XT8LG6ffyohmG8CquXEinLkgiuKrqQKl4/Vpubbqk13+w3iVQKsIKqq2RBnOntcUCYmEgZ\nPMoC4gD0KvY2pSqozbiFGbRhIj3ErMz+CgfkqF8+AMIDYDQHTOuHlVZ9jRlV4OFzjrzq8XA8\n5dpaR9JXTO6BIqIdlG42LntxkrBRICrMtCy1jGvlbeBzeNrdhNQLxrGUSPGU0wIptC6RwlvH\nLhlScEajkJDRrHBYhfTgVJr57meFcoHdxeFhT8vFzAvRI5yJoA4EK2dmQHbLZgJswynexUZ3\nVV7dxqMdSd1ozle3PoBD6aTiEBgWZn6Yn6GU2treD0IvuyLt1OQGNOUBwm4VjHZVktW+I+Ug\nw2AwEnOioIplGO4xSNq2C6oa66jf04JwsznZjuN9rLxJpQ3k5iCRigp06HOUCwZLe15CEFoW\nZn5pEVGRaNCWOlIiWb+sEhFc30CiN8cKSLclIpihT23e7CNSgbFFJrmkM/Q2ZUGffiUfISSI\nmGqyNHBkaijDtJm6cWTmg9xQWdDq1XNjTCRU6fsdpnM8KVkVqjGJyPwuHC0zLAGEkUO7KcQL\nTAknA9kRnmTP65mo1lIMyUUrLmnHdqT/HcT5WoL+3B7bLkLvV4lE+7Z69QanQD3SciQ1B+FW\nJYOz+e/1hKbjTHUzGw1QOmXtsk90pBCOPghBIbFxcs3zcCJFVJKm1FFDDUDae0OjHYILmkcp\nY76MhycIuAq3KClcKTgaBc91CE7sEpZIBZLRTjUjCXi7RRK3dSJpo9wp1qq2rvgQAXbhpKPE\nkBoBkaJO1YULiTTmyjBVhw0cg1uTVSIFxgeZakZZS6nf7kjKwKj/Uvv0c+jZRIojF/lpcLTT\n3SzzOR7tGs/KuDllXd6RBuTbo104IcBnhKAj1RbJt6DSHgKXZG7KfYjhqtCErrcfffB7cwJY\nuyofwgnLYKVWm6tR+oTJfI6cHXwCDFaP4LGWnayZgVuVBC7uxDzy9OHYLkQaNdo1qYtdkrkp\n9yGG0xsGE5w+65h0OJHgY5Kenru3d0e4zOdotEM5X96NdsjEPtgpRJIE68C1yYi82FDK5KvH\ni0zJLg49I5WohnPZ01Po+UTKoqdoQm6Bg68GAjsmPg/bv/d2bfNoGA9Rc8ydXx7t8mTTJQvD\n5cIcksNmRYsXmZJd7Ix2hYlidDB9qOle2g+v5JsdifXn0ZyjiDpSj0jJ4w3sSF6JMQ5FeKUU\nb+Qw4BeJRCUpjIVUZXIzztRoWqpNdnLEghTN0jbPaQynFWz5Ijxyj0gUwWizSfnYMxIMmsu4\nYl8sXI9IevzraAPmjQnToHogN8eJ+VUi9VoK3cClpdeR+IyrTw2vpEm1eJEpaXAwXDUbVtHF\nqgE4Vidi1pPPEakzmlfuE0iN0h/tso7S7Y8zpkH1YKkY9eZ3R7sukZ7p7H/LgRH57RkudnYW\ngDw6GA5r2NA5PN4jn8HpsMjahEY0M7nPm9tN/Dm4sdxCCwfhJtWZgCudYNATTuX3E0Tiu/y5\n1NlZAPLoYLh2cC/NHNdckoN4o6k0+QiRfspgl0xkLOgtysRpk7w2tc2lObS/TCT8OZrVWk1C\nFcWi1oqTteL5Fq3TeEkE8vBguOYRzjHbqmJ7FZ5qSvOmLx8jEnS9szCZy+Vc7tsBbWqjxxxY\nH4/MOXC0Q00DKs9JBRK/ujSdnPYavDgEeXwwHOqBozoeTqQqg3dqg5jy8dEujutrPEYdhv4q\nkerQdFAoDP3RbvqpCeFFpqQRwnCtiupET33o+3OIJDnVcTGb5uHkTO7bIW1cd5+XLpFewq3o\nNA43lPvJhw2WiNXUwLj4y8jYqBM7LPcmvGoGF5tYrY0l9gVy4O8TSV3IgkfFMsuF3Ldj2mB/\nbcFbAf0ukX7aTHc8iOFMhVdHjkPVXn0c03on81juTnjVTS5mZ3Pi5+TQ8/JCXD9OpLYeKtN4\nrvsakeZw+niPHS/h1rQag3s6TU86cPI0W2qTrPgw8k4WhzxI8KoZXbhDSu2Qu57nWMf+aLNJ\n+QaRcOBkpPvjRJr34UFEAu7FRHrSUD4kwy8alILs8daJVIG3VSstz3ZCGH6Cehb4lhQ81y5k\nyxcIiYYK9sjj6L9MpHnMXxjtwmeINjeT0Y7hpAjS9EYXJZcJFzgvfxKIDUXuVh2pVma00cra\nYmdPtFtp3vTlG52NAichUU2IoxPBbSXSHEwfbw3xu0SyKe/KGsjcFo5uZTh5HqI2QPRRSzjC\nrXp52U2uJUTSKSW1I8HBmWfOHUakZ4EaWRt/ZURC/XxSm5c8QqlJgCuYXyYSn9fl+Mm3UTgb\nBdV9VCTdhFj0YnNhvZ7Fo51lhdSOCKfo+zDkmUSiCQMvTjtSXqZGtJn529JxvLCizcO9kjm4\nruYBkcyVGXfusxamAiRSX6WI5ubckUSKP1kAt+vjhVYCO8gkRorXDDNv4d7IJFxPcwxXfFA+\npV4KNTTaDQGl2ixMMNuI9FLOhjtcvbPhTlcPw87KLiJdufLPyPOA9Ssd6cqVf0ZKnXzmmlt6\n5cp/Qy6RrlzZIJdIV65skKL+vZvhez6lzJUrf1jK7F+2XyJdubJBLpGuXNkgl0hXrmyQS6Qr\nV5ys/OsOl0hXrnhZYMUl0pUrjczT4hLpypUNcol05coGuUS6cmWD3O8j/QPqnQ13uHpxTk/J\nN3CSf22pBFfV8Z6vmvNes/8OVYBXnpctn/Dor2uW5kJ3g9/9wm27tujD9Mc/2/v7wV5Vr/Ul\n1G5VXn8xcIDYcTrwlYxI4d2dHd3xg7OHSEW9TmIF6vGfxV/4u0RSXhrEGzB4G5GwdqvyFZzw\n3/8r9K8Gph1pvgFDIslvFUwbjcYJ7kvzkhPJBbu/wUFEIgcXuXOOSP1gL6vXtvu3P+WxpMYa\nDnk0vtz9XbstP37ywKwWIUQk91tUb9WjN+4Hp0Y2+B6RBrQxP60yPdoNBHvdWvBrkeeMdjlO\np6CWSj9y9vmOhH4K8QXeq8fU2NoCU28ZbkkS7cawVUTRlxF+qyO1QH+mI/Um3hIuKmjRujY0\nbay6re1IL8B6RNrz0cq6ZP1yCNytmyJSf4td1tLPZS7e3sB9EqfrFj0DRHC7PrVbqfUh3huw\nvOYPVv0xuCV5TSRnw1xH6gZ7G5FeZQSA+ySOtM7wV5jx7cWsmeNR8LO2Jf7l4y5+Z7Tb1UJK\nqWjY+NxTwyQcJLn/8emmp7ZVKBtSNj8jRT+oXCk5/waR2C89jTcSCdW0gk+bq3Pq6Vl+OhyB\ntQXb2oX/GpGQB53GQFlApJRJ6+rBxXEGltK7fUI+hvNoWdgE7CH9QSmGm/ywAc4fhZMUPF8O\nTCwoF7grlenChq3FPCr9cH+PSGCxjc7jy7wjpWzZSqQn75qf+1ebnU4k1QMKTaN4LAgyX63Z\nQ6RSiuZ1545QHdGpasAdREJPXqX0efq7RJIEpbR0CiO8EHPvaEcOLYpOeqsB3o7Kh3BUN+X/\nfBrsrQU71o0TM+ai5Y8Ghf7moGHSbPAedoeWTcIJaBPsgdw6hEgq1uaumY60+8OGwohNnKhN\npZuNy1wljf91IOW3oueRp3DD3qo+N1nqSPEHGKAjFa7txWk70PACIjHm5KfW0FrhprWl8jia\nPOOlx5PSgxNdSlHReV64LSX3x57q/cewgg+SWt9Il6RSbWgjYfsNIpXmDb5GzyI/x5JsXm3q\nuQBxhEiJF1DrEybZII84MyOSaqqjzkTWalp6zdWIMgr3QlAVqio1dQVUZUjFUQUW4WVEyud4\n1K9oX5syOiPpvzBoVKIkPZVIulo9Z0qVLG6ZVMztYIfIt5CAgYImU+2z8dBklnYkZdigN4F6\nikf2ejHjKNzg00QyXmpepGTqgq/oAq2N9k6JFNZcewEMbephnW6Rp+Yt8nEiPbkbPJ2EVUuv\n0b4tVolxIjGHdIFdJhJbVHh2TdQZUY+rplrAtTTf4OMdSb9gNpG6/GKfnSxekr5LRNKzZcVB\n5aekIiuKnNggu4mkuuZzqHikPtXpqGGIpAlXDJPCePhjflJzc1LbAcbwXFMaxenD6WR5jqgE\nhBt8lUjKfTBjOUfFjBZvsSPBW+lpx2Sn46r6qwo+rlRX98gUjppkYhw2jBjfDkEtwmBHso8Q\nndJljl3eS4EdGpNBUS0GM82OAfXYt8wbeVVlYBzuhcBMlY4OX2ghF0rlaOy8YO+cSJ4gpK7p\ngGqwtJqom8nTv0QkdL8nF+mm66hkXVUTnnbYKJH0tSwekZaiROUQrHQkT6MxPoZwSkXIoXyW\n/3hH4ny0Lcg3Iwm51FEwPL0gErrKSkk712OHHugL87xy5H+tIwU3cXZXyTEhk8u5yqZGagx0\npNDnqGoJ3YVJJn3N7aF1Zo2zKkuAHpynuu7qyp9BU/o4kSq3JE5TeflZw2zTztZ5q/CWiQSv\ncqPUVZHfmbjTWcpLpN2qzOBIGQfXmOeis6VQ0aeJT5EaAZGqewuTHjob5Kk5X8mnsEEhIgHT\nkgzI4SyaauHVuNN0zzLivBWBHcm7TL2hk6YZcTv9PJFsveYs1aEueolR7PeIhDNNTXQ+J9yx\nel5ZIJJOH+xz3bQchvIsnZXC/1iAO26XmJTprWO0c2JrPU4xftMdFcxVnyaStBr1Rns6CXg0\nHkR7ZxejjlSKiiJNdSomgXqVRpMtMk8kvHnh/3svtiny4w1Tq4aJ1D0PmVC8VKCqmNYnEqZS\nkAINZpQL3kktPNNHY368I1VuS3aq09ObCmzHKbGjqsKEVzEczziqLgIlCkjH185Sms+vhWlN\n15H+RWwwL4K3kUjdjmRmap2iVOYDdtpjGK1VIvlOrmYlr3hpMb9CJNuRVG/SLbR6nSto07Gj\ngujZO3FRU9WoNqnGqvjpCFi7KlM40SxRdf7lNVXcrdGAd+Rt4Pj0fAPXZrzzqh5OQ8O1taF1\nmXNCuNBn3AlY0Qbz00QiPUrRR1VOt+o6X7d40d7ZxXi0Uyo+BLGnItcCa1dlG470F0wlV2RV\nP0JqfIFINgKVGDTYkSCVwlnBKTTMS4Ps7DKcSuEnJSBSpUYuA91zoYly6+sGL9o7u5gT6Yky\nN06tkZBeJWc9k0jyrifOH5uJhOFAcHGwcbtv8RCoULEjwXSC8LS+Efb3RrtS9LO8zHL5GOLx\ncDzl2hKRVIlum1TBZ5C1q7IdJ++myL97R7uAl6lDywKRoEUlakk9OA+InfibRJKe2FYhfgDB\nlALWfqIj0R/VjMKZIGtXZTdOGWaS4t7ODxswL8HuxVYufXtonRzHVg14tK+eVzXFHicStKx3\nOxP4YZB7Ic3oLahZwNpIQRQ9e2fPeZMJeCiRpkxJ1HhBJMjLEac+YAE5my0QiJrSMxnnpYPn\nfDZ7vCTSiHbyZnigg3H+0RzHTW0RXQ3hGkdlx0azM4kkA8Ckg4eJpN/hgIx1pFaXbCgbHO3o\n0ann1jUiFf6YyWkLnKdU0a/cSNQAJCcLHnYGOtKjXTiROrz2nLn2kkgD1BKFzyTSUC+ScSBR\nIyKSsjzwOaxpfaXogT+xrtkksg5yOYUbrDxCCJPxQLvwtZD2ct4uiYwd5HqgdROMyDPZxYhI\nPdWSupe0v0nZTaThKcXuPEgknT+Bz+PY9TTi2Smwzh4nwWE2pc4yx0PZQKNI6RLpmQrU1QeD\n/6yypksk1H6UpQVe1OtAMCLPZBeHYgsVSXh0IJFGyypy77eJlIzNQ89ICNNZZ3F6g+yIwwpT\noTfaCTOqe5Wj8Y7U8VhfcYDX+ljvNXMV+mlUs2SzSdmHM5YN2rvKiI2j3ZCzU9eiebE9zqPj\nGFmsSS3ciGZ6BtQpAIlULD/caEebjhPphSC8xsV6r+Di29hC3Y4j0sOMOROSXFDI2nv6HfQ5\ndjYaS5LjBhQcT5uXlo0umIxPbGI62hHvzGuRPys9+ZiTndFOZrxg2oM+RRHyHtbXJonUz7lk\nxTFEGtK2tYkKapILdodo57HTIOSeOe6qHcbmiCQPJOZ+6VHzHQnsV6t3YqTtpKBMrRK4al/I\nYqCf0tTggXPm2gc7Elg9655It20402M03wbU+AqR1ElfENwwNkQkcMYoIJBoFovdRPq06KqN\nBM5bkW0dqXXDg9eeM9c+QSRKzzZNZ90T6bYLZ1ZscgHvWORox7HTuBKZqtle7k2ewY04SvTM\nFJSNFCa89mB9nEgvBeFFe2cXV4hUg/ehdquyk0hdl+u6X2mQj3KhKOTXRIr8F5Qp3ydxqvbM\ntRO4emyaHu2qelWnYue9kU1EouLxBSLF2detdsc8IwnOlI/N9kEuUK4Hvg3OB87GcxdNKPHY\npNR06g0PFXwLJ9UMkVj5prbW8tXRrlUrVNukLyZmtHd2MS6SjzLzpG9pviqfJVJVfz6zfrWu\nTUa7rURCytFMBRb86Km1dNYmRreh4owvMVyExa7Dvk20WxU0F3sNfqLomyRY9Q0iCW9HiFTd\n21n3RLrtwwHjkVGZa5vZNcyFzaMdfEqilgTca1AiIrWxiQJnTUJwqvk0t0Pl2ZHf6UjmzU+4\nUYUy5+h2h9cGyFyL9UdXxTlRnBuPcpOvJ452sO4rKlUqrmjXlY7keltNlrcPGZU7UTakhOqp\nzUbmicobhnCqEg0PKNZRoTMnBXck1o2bEeS96EVIG4kEQ14ck8IIBFGZ8EwmHyaSepjnGRZt\nGqRWrbFvbW6q02C5RJ2HTWmFRd1nfdwjEhvmm69/7xCi/qv6j3VZM+BVVZKgtS9kpCOx2sqd\nYrC5aXK0g0HVmoVEUpWoFq0OSsvK7h13TCpbcbDGPNcpH/fU0HNQ5Hh8Gi6XKUj5WS41uutG\nGqinjdZ3R+VkxFoq/OoF9EuTJYl2qwIT38/tVXUqWVGZQRL8jc9IndGOtay6HrXam8noeCJx\noeci1iZUrIb2V+RafB6GQgq8FC54n0tWbleBupIqtte1YiCC/it9UyugIc0cI1QLtFuUwDPG\nrp/zhuXVEokdM0WkMNjxrSpkejqoNg6UUiq+7PctMoWj3QhwXOrYy2zckBpFvy1tMGo4BUAN\ni9zxQDZbFpWjvgXE6lFO0VmDYp3B0Q7g5IqaiAxxmg8eJGMj563IJJGsnzgoxpoWL94941Gk\nXpXt2VVWX1GaHYbb+arM4JTmjblmlLa+UpmyQKRwR3Q+IVKqic1SO2ONqcdNuaUSbRDM5V49\n1lGI6ZHV2QNGO+QIa4jHW9eshfOhKr4f8Rp5E1q7KvuIZOYONMuoYtBVw90Me2DUkVDsHJqU\nfH1fkf9Lkj6GDagnLaRtTHrTHi85TaU3eRDJl7RfrgnIVLWX8q9YbvqQ0imydpFI8FYdJWKS\naFeqjiQHJ7Z2VfYSyRYBeyuXihE17M1BF4NwUjEDOGpHbo2qu5K50JZQPTHSoDA/pYh31Hty\ngUOviGSrVZG8ibSblxaOjLEtSFsu9tlshzxf7kgobmaUoCMKGanC8Wiz5jwiUUsCk13t1qCl\nXICYXSIF96rpmuv9yGjXghadV5LtQ6Od005aQOGUNNX1h3Bj2o0K7kikDh4QqDqhoOwkEoKr\nxqtczR4CVef8E4jEpTDA0TV9Ur99uTBIJKgCJ+0DNNaRYqQqtdp6ZxCOeamtMswq6PbtRFJ7\n08tbvFXlIBx3Tanm3LxUT6fN7QSwrkmq1vT9llyqyb5S4xeIpBLExgG2r54OlfoYt4znjZ/R\nMzg9nnD8eUgJb/8ckUif93hrqkE48/KwhV+9tlJ+Arhdar3FkVnmlRq/QSSznqMw1ULMdTUF\nFY7w3ENNESjKElCovkok2APn8dZUg3D0qt9oh9sG9JeIVP88kSqP2K+IRCGTuUIIMQYnnZ51\naqb8/zqRVP+RN+T5apKx8MNSCLdLrXStm+MADtB0SY03RJofxZA+8hHBCp6pg9JX6iJcFRL6\n3AC3byeSUfn9aAc88BIuXtsEopn11jVJ1VpdLERaqjcbiYSIPAEnMxTn/Urmq48oTHtaanBc\nxQsBfJVIzqMbPmx4oyKyNoLjPs4bN0+ovzPaJTPI8wdQdQX41zpScQ1knZhc+mw3QrcPNziD\nEt7+2Y70Hm87XNaS/GSw2VmfwllsSFuJ9OYZyTCo4mFgDE8xRsBkcp+CU1qhBvlxIm1/qPnW\naGcoi/8K7FQitY/CS2r81mjH6a+f8t8SyYGtEsmjhLd/eLR7jbcfbvRGsPZQInXqw7Aa7xz9\nerQDZ6fxEk8sj3ab4Lqb2ePFmIZ42+HG72wXH0ekl3I23OHqnQ13uHpxTk/JLpwrV/7Tcol0\n5coGuUS6cmWDXCJdubJBLpGuXNkgl0hXrmyQS6QrVzbIJdKVKxvkEunKlQ1yiXTlyga5RLpy\nZYNcIl25skEuka5c8UL/MusEOy6RrlxxIt9Km7znypUrIvaLzTP3bNj76C+ZvIU7XL2z4Q5X\nDyUz/fEbRMLnSlE/VF3kR3nUl6673+WOKsPkV1Ab/9HGA98ABd++rrU0kBNfegbHpQHEYR6E\nkwOsLdKYFqfwszL1Ddnud4Hxt58ljIV+7h+aW+mnXCgxo8T9+fMMIv1kr/k1POGTephDw2hx\nb6Ovfwfqo9iZ9KEf3Xp07PkBf/u6zflBz+NcwNFfhTPQAY98XpIeOfyswKqWrQ03DGsupVol\no5p6UeinoumN5GOi8iVSe3yJdIkEiTTh6Ew+SKQnfe9oN6RewKR1ODm4ox2bW4dGO0YYsk+p\nsUEcDqoLMEWeP/NciPoOPl9gLuAseihV7O096zDeu8xPHNXq2Icz9hBKCK4Xf55IqZNyD+LY\nVuU+UDBtyE3BCjtApzfie3ZIW9mk+QQ5nKnxoiPhqhVmp18LUYcy/8lXpGofrjSpUIUANIeM\nw7ljEIaq3szBzcp3OpJnijlFTxPFhg71X4I8gkg/ylZlj2+3nklJ8CKLgvPwNMx4WOoxatCR\nqkVNZoUenOoaVf5wPTNC7mR+CRtohc3uC0TKTckrBobz1Uw9CnE21mbGDRrgJVJ0+hLpEukv\nEolacDSY62wGc16tZo4u9gCfb/Z258I8WhztMrOAUj241FWk7AScOkgfkfjKs7QLtyCoqsWL\nU/+BeDWeo1VqtKM/KbjG+mCfjibtLRNrJ3D8Q10SQlgXdN5oi6Lzbu82duCRhhzdru1ZV+Vu\nYFXfp7Co5q7CpTOGU+8HYvCUvbjkv5FPE8k/AjKTjIlip/PIolWNap/BeSLCzbUZg8hgegFw\nxUCl7zvaVLR7lDdjeBBwFHKwI3nYCTj9ttjhx23xtNAno9DYtZ1ICWbuvoDnbAY57X+nzdDT\njjiF7J4zJpRLpEuk/zaR2BXv5FOELBxEnhpMhrChpT/aDbzvadPkEQdlyAEAD8yKw5A4tWCm\nlwHELPMf55YInycj2ecLRIohc2NhqpgyrSxRxjmiaOsP7kg4IUCCSM0AmWoA++/NvZ2OZHJI\nypWo1eDiKogxtYl9Z8kx9hLwW2N3mvnZ45wAMi503jtJY9uuzptvP7bNs5F/JKIzTwYu2QQ0\n244Dij/9qWzsqOGLau+9Wx6PYuxHk2G+eo2p5+LTzq9AuxhONJFppUkKOOn1nWc1k5M8OLBJ\n2Hmv5OsdSaXbwzyTi7IDgluV7TjgcYT+dNmQqVHc25K/93fiqmVHSXn/FGVSHdTMKPOb9LTH\nkXMRnHbSTzoZPFeDSg8uV1S91KogA+e9E2httjYvQCC2T8T4xVtpE5Ix8s0m5RLpEukSaYPs\nx7mjXWRkDqcCfUe75GoD94+Odja/InksKKW9vT0upf/eLo+JZPJJNSrSu9JRrE4FxQIbGUUp\n6EhDAuzuO6+jojJ5oMjNSpv5GWKe2VC92Dbzp/fjc3HJJqDZfhxX/Uzt54LKwwtWY3tHQo5U\nWlHVDvyBciHOTDVADMKRPxSEf8sqD8FZaI+jq3ar59/rSNZxVYcB9iS1/GAiuRSr/uV/awrf\nU9x1tjKqAAAgAElEQVTtjVpqVfje3wkSH+S8nax5qk6tI7zqDdNhUkhjcJpHbcS1yqHJ+Pi5\nI+F967EvECnEjH0WXi2+rtmwCtMkyDyFxEPDtFwiXSKhexL4WTmcSNq3L+QDhLyj3R3tOurF\nkOlFHFuO47822uXC7ahU5RWUqeqg/97cG1Qtq0bV2cWKy9ZmpwavY2V5zGOCBs6S4wFAyf8+\nnDgj1RU58uNESqt/3hpgbBsTm2CH7z7SSfbgGEVNYSiUV2PTSa/zzHYkU7ZYWWlEpoY5dJz5\nqPMqJFalURTCmZahtRRXGt7ncNpAk0LVaAz89+c6UpX4sutdbGiqq94B5xJJKMRB1DNLpD32\njlyKBpqAknAUq6wDRYMbUNErpO4VA2o3AZWe7mNIgvLZAVOrRXoapU4TyKQ488VASyIJUOO/\nrxApxIyCnVwlX6voKm/qZLTrwqJOKjYFK5VLpEuk8HZ8PCt/j0is4YTp2zubs8AlQaR81v6T\nshF4AbR/0UANTVU0rEZVjw5zweWluo8h2dx+5huaGC3FleLcLpw20JDITDZhOc6OZyWLLVqc\n7IdjK/Fl17c1g4JsHXAskZo63Zbt1hVADZMsUYsNzoMEUTmoclE7tT4rZGujQR+PbVNFo8qp\n3NqK8ULpw4kzujhUyEfgViSNbbs63W4sto2ZJkIuYoHGv0skr6hUCToMNkxzYUdH8s6mgYvU\najpSRz1tlg+MaXtIS6iea5quKKlcGGpw6gjp+aOr3XwMTp3kqlNooILy8Y7ETb8YNxY5w71I\n5gTpXYHGUbuKVdsitLdPV/s2dHc2nQRqBufh6SaXmEdVDVKkIx4fzHFpbWVcMThWp1VPj16P\nwo33tOYpnFM1EFpc7JwwQSTzGqUS7L/Z2jAnsTMLvbpHIAoCTcVqlXYz3MjWmhG5RLpEWiFS\nFQ9U0iuQw4m0QJpQtw2io2Ljf0e7Abg/N9ppPktfCla21kZr84tBbEvlfzaOdpOyl0hh8Stk\nTLBfr6jim4IQt94prWq1Wpfr8tqgB8QM7K2MWVDkgxrd3h758XlJ4bQ78qBwqo3BWaUrt6YJ\nIqXVP28NMLbY/ZZQzTm+AneZp8XujqRbqgp5Ycf/VkdS7UYc6Dwqhcuhh1VQB6iyrRZyyFpd\nKZvcV1NKrbIqgVMHPNn8gHDXiwbFGSJVoeLvdSTxkvYJD8cqnMX8kxCpx2d8zxb5cSuPpDq9\niOCFFg2o4QskuCk4D0+XqhNUXCs5+jBApjwD0wbv59VWOOq4XAMjcwNequLpwMWvlS0RmLQK\nUbfj4AiBJP9LdHtkQXx6xNr45jhDwqsSRMUkGea4XZZqz9FRuM8cNS6RLpGWiDSeOH+USJXy\ndky2EklIpPonjSGUvENqFPs+Il/ghbb91yrNXmWhIsEDZ3iWqMerdar/p0a7YcHWxouT/WBs\nxUvaJy9Hu2nZS6QmBVQmsOojavhcwDcFpGzLTLGKUcUSfek+qlUOHXc4ZKigZhrm6gkUPid1\nNdTOuMPVDIfYKPlxIqWFPu8CaWyr/GEaOu1q1vH4MG1PoNlWHKY7ZaUrAnlLD453dCSXjbLu\n8SnD4SKFO5LPSdo26UUBXNH5oLQUYsp8okaUUDuwpU6zoi398x2pbTW18VdVrrMt/UgiGRLp\nP2Wemu9IkbnBeXjaViMOV9GackgAKsx8U9oUk8jONFv8MWhKopDxplKzhHDNjnqWK9rS1l9f\nIFJeUMMNg9iyddUFWfzFIXkCx2lwiXSJdIn0c/IlkcTdr2QvIT2J2EyVB0NqFPse3hach+2/\nGZqkxd/Rzt3wBSKlNSZ33H9htLN13+XYE8FBNczS6LbgPOBr8brR7boakXuby0GHa3sIFw96\nz+gMSWncqAfQdOL7Hcmj0HnKPRmq0a25PTyelTS27ep0O+Q8MQV7LTY+642zshHHNB5JpLjO\nJ2ro9Vs6kq3JujJRbOgUBUVfxuOEwlTBrMpsdX8xPmqtlwHFxdzUWnteeilwJutiWfhsw0d/\nvyOJedK7S2uz8hlHoZeWE7IPRzHHvq1BvDM11PqoAQfnwxpt/M3luqpkevKLm5Jcxni6pxls\nqSUMT8WEXjycIV5DTj7texIsUUW9MDv1H5rtrb++QKQQMwp2clW5Rle2vBlziC+RLpEukX5O\n/mtEIiZJAnGwYLhTNfT66N7gPG7/yse1MHNEw8qnKAz6MsArTCaX9FWZre4vxket9SrnbdTN\nXGLPBxWqiHuKMVusl6PWjV8gUgyZJwqOrakrxlPaZuUzjkIvLSdkJ05QAjjHJtQw66N7g/PE\nDAMvJYqKkT5Fe6p2ZC7D4AGLW2apHeUtbiGB2+RmdAk6T7knQ2UjrD8/TqQ0F/JEQc4TU1Q/\nslZGArRblY90pILeTqkx0pESTZKOFDe4pswLhQAxpfdw7Kr6R5/TFyJrHxXUfaZ3FWMDL8nh\nKsdEZVVtdNWO68Atyec7EnUjYwP3p7iMnNmRHHOKfttlEh525NK4mmEusBrYezxY0Xsq6RDv\nOWuzs1Iwm4yVO0Jrq+keVWZH0d8mhak0CK4SjyojEnCRlLQoqEZ/gEghZh7sOBZUZXSFwMOy\nRKbQDVvkEomWXCLRRiHcmhxOJD77TjYScmgkBb0ZqaGTPbQSn0ZegYqoCw+adXXpjXYgQmqo\nMNsVYxJQz5PEY1R/Ska9LPODmEgqKWcw52O4JUHBiBdnF7PYCpl8EAPzJV5bZCdOxwKu8Kgf\n+GOX7MGWkJOxs1VaEoQoVu0CdQHzvDGTYTyNinSrUThmI3GlYRZlDqgn+hiHQhSzFSvS7pV8\nhUgNjdjA1AOnEqly4MlmPVxw9Ww3TYsqVjNDAu3fZDXzg9VTNpghIVTPDAgqmLSfckc3NVus\nSjQRkFqZTnQ1GFQtkSoxkv/gslfh/R8nUoIZBTu5WtiYyu6hQIuNbpxTboAbCdFG5RLpEukS\nKdJ4wvStna2owBd4VFHggRrFvsdlI/QCav9CJuMoQwAVAouOc0EmBGUfbWgi17e2OLhK/5AX\nyY4HsND/kbXWdGd90Tv2eIiOZwVWoWRxsl8SW3GKdqIijXaviu9xRGqlNkfPygE1fC4Ee0an\nccl3fUP3EjbBvLbME2vZZG0mbW9tr2YdstY7CzlQ7ymH0NpczBLgxI8TKR2Z0osdaxvTqwQS\nuAVqZ879SkdShRm9nVNjd0f638uTOXTOqWXaqDUgLaoMq9qIbiaacUkPkDuEQHQScECnVFQ2\n9FJzJEr+Gx1JeUQ34God5b16bEeqhV8rNSBlzZQaxb0Ftwfn4elCGhbl1mqiQkoX/1qB9qqt\nWNiiGKQCy2g8aXg4udvXzFIURtUvrIKHkwIQ/FGJ98hbXyBSiBnmdnxVnCU+NyR6YlO0W8R6\nXKOV/wflEokNuEQK4Bofz8nhRFogTajbBtHZU9DbOTWKfY/LRtiXYeLzaEPnnFqlwH/SzDew\npbp/aAcf6Ci1aEcpiM/JhliMFDiP18i++kiUjLTJjmclcx5anOwHY6vdK7aa9HMLydVIu+hc\nTzZ2pKKzhmqAXJhSwxxHtwfnVYpZOKeKV0sl3/PKd4Dgufukv5kwFo9cUD3mdmRoVNRJrTqD\nWeu8Qkb0SVESO/HjRErTIc8VFFvrL2NsVUFwlOPYwF3mbd5LpHU5G+5w9c6GO1w9lMw9PuN7\nrly5okUmhMl7rly5IiIz9PQ9V65cIfnNDxuuXPlPyyXSlSsb5BLpypUNcol05coGuUS6cmWD\nXCJdubJBpoiU/GXwlSv/aZkhRfgvd1258l+XS6QrVzbIJdKVKxvkEunKlQ1yP2y4cmWD3O8j\n/QPqnQ13uHpxTk/JR3DkC6IdG36+fRp83bkoZKBm+EVhcLrdtv2m5bB1tQbmMW4PurU2dNCS\ndvat/X4sTKQS3C7H8nXdOvSi1m7+xm0A1zCjmK846+85P7ECpm9Ua/Ymr/5z/RJpCu4SaVz+\nJSJ1cczPFoB8kzR5/gHeKeh9tCbVxuVRHU/REA/lflU2TcIFzhpUMsvU0iEScCPQ7qkPUvb6\nL+YoxZ+UCM7xyJDI8IiX7tAmVGsTThg4F0VOIg9nf10k2DNUfqDkjxoW4OlWrHgkPyoyBZc5\naEk7jZ1RiVbkcPw7LPoHWXov8qaj7qSEcI3LxEAfFrXyV4hE6fIWp3/7WXCHq3c23OHq/QaR\nZOx9hzOgxllwh6t3Ntzh6l0ifRHucPXOhjtcvUukL8Idrt7ZcIer91tEim462zv/rVw4C+5w\n9X7nw4b4nrO989/KhbPgDlfvV4j0OZyznX24emfDHa7eIQTYhXO2sw9X72y4w9U7hAC7cM52\n9uHqnQ13uHqHEGAXztnOPly9s+EOV+8QAuzCOdvZh6t3Ntzh6h1CgF04Zzv7cPXOhjtcvUMI\ngL9G8V6Ns+AOV+9suMPVO4VIm3DOdvbh6p0Nd7h6hxBgF87Zzj5cvbPhDlfvEALswjnb2Yer\ndzbc4eodQoBdOGc7+3D1zoY7XL1DCLAL52xnH67e2XCHq/crBEg+oTvbO/+tXDgL7nD1foNI\npXmzhjOgxllwh6t3Ntzh6l0ifRHucPXOhjtcvUukL8Idrt7ZcIerd4n0RbjD1Tsb7nD1Tv6w\nIfyZNveDbfptplb0G3fLv2unf9dsSBq8zLQ+MrQ2AmMvhbi91DJASUB+VkHnPdt//HftSn8N\ngrPRBLHlX1vl6+zgRJsZ+QBOJ2SSGIpJmbN1LKL3ye2PSvo3bfGPUo5Zp0yMfra4ixzkQuau\n7CdcO5kaACKtHyr5+2s9+5dWbfUCtaxQCvB1k4k7ZD9OlGIgNQoHLnG2Jlr0PtaGdPIazTGp\nj2dD00GGuRAkO/0QcmJunqkF/85qNXvwKtD4eGeJVP9FrR0gUiHePayg5Biz1vZr0L1Rp1TR\n2iJLOKj9mDOXSHNw/3Ei/azVna9UlBWBtX+XSDlOl0OP+ne008cdd/3To92TDeZ1gkj/6Gg3\nxCS1DqphC0rpv09ur8JZk0XDtkVEinK+i4xrfprvNTG3l6ktcXBAym992PCWSI79ILbcb/k6\nOxjtsSBTOOzxlzj928+CO1y9s+HmiTQ72m3V7hs4TKJLpAu3Fa9Q5xIa/fNECmb1s4J3iXQO\n3AJeuuKfIRJ4fJzEGVDjLLjD1TsbbhKv+/T67xAJPvWeFbxLpHPgDlfvdz5siG862zv/rVw4\nC+5w9X6FSJ/DOdvZh6t3Ntzh6h1CgF04Zzv7cPXOhjtcvUMIsAvnbGcfrt7ZcIerdwgBduGc\n7ezD1Tsb7nD1DiHALpyznX24emfDHa7eIQTYhXO2sw9X72y4w9U7hADgaxRb1DgL7nD1zoY7\nXL1TiLQJ52xnH67e2XCHq3cIAXbhnO3sw9U7G+5w9Q4hwC6cs519uHpnwx2u3iEE2IVztrMP\nV+9suMPVO4QAu3DOdvbh6p0Nd7h6hxBgF87Zzj5cvbPhDlfvVwiQfNR9tnf+W7lwFtzh6v0G\nkUrzZg1nQI2z4A5X72y4w9W7RPoi3OHqnQ13uHqXSF+EO1y9s+EOV+8S6Ytwh6t3Ntzh6h33\nYcOMtL9wkXon+hf5oh+Hxj/uGSpCJqkz9AuSdA3gzZqr9xpVbwAXWjsNZH93s9Hu0z8QOSWJ\ntaHp/vw+bT6AQz8FnMb9edOEP3M2iEV23qWFnMvd6/RXhxX++OhQupofORU8pN4Kk4pkrI9F\nY18HSJnYZuqPwZ/7yeIpeV02fuzdpM1+nIG4aSY5ByfOLoGawXl4uuGMfU8tAzQlor23tktM\nPuV3eMHLZjf5ZUWg3RTZk8GdPSrL+i9q7eeJNPSjzM7qTdq8w9Fp7iLSDdkT4kskq94l0qj8\nS0SCOHe0C3a4o11j7Rv590e7V3I23OHqnQ13uHpxTk/JLpwrV/7Tcol05coGmSHS9nZ45cq/\nIlOcuAS6cgXLHDcuk65cgXKpceXKBrlEunJlg1wiXbmyQS6RrlzZIJdIV65skEukK1c2yCXS\nlSsb5BLpypUNcol05coGuUS6cmWD3O8j/QPqnQ13uHpxTk/JR3D0t7Vrfb4OS98w17fQl6XT\nr5pH5kbfnMVwhVVK7xzEE7BS6ERr4TBcJZ+Rmx7MOhTpka+gypd17UL6hu3joc43Wimc6lA0\n5C/r0td2F74hO5DbH/7C7Uk49F1y+YUC9XVrDsRPECSOEVzk25KoHxJJabFqHekkiLUaEq1l\nvlNPikyfSb3UMl86998p5woQ7mdu0L7ToPr3A5htlAO5elbVSyT13v08g/a3yTeKwVeJNN44\nEjyfm4XLx3si6foyhNdJrWIiUgRZxgVu05hIz0JNFfVTFBLsal7oFyUOJ5Jo/w7n5f0Qx/14\nDntUZUmRWCA1Bog0N9oVI7N2o45k8IRNi6OdQWrTfRbOHzni0wypWwnPlaChEcU4XJ40VWPq\nrTYTqQD1ErgBObkjsSebhNP0kWECqDFCpCTFksSXQjohPWJOAmcNk9NPHc3DJeAqEJz1VfME\ndiTbNDWb+FCy3EW7o665lluMrv7TRIKh+/EsJ6Edt2O40LczHalNorejHUzNQdwOL93DxwKc\nU7a1X2JAHadyYYIdqVUR01O8Q01qqoWEwY6v/utE0qMdyDc3jy8QCY6EEVwT7zkmjXQkNeBN\nw2EZVbJLJKwubeHZionE/UvNFGy0iqsxR0ia4LeemLr6rxMpDh6nXKLG6UTy1szl/hgvtxGp\nUdhFovZioXoYQGjmUDPzTT7U4FjzRTDP/9tE4tGhjRufTW9vkMCWsc/TxPcj2MpTSJhXO0Y7\nBJY+gfePUSxUPRvoSFWTw/PFX5AzKPPzTxN6j0j/DSIV/tOHrsob8Hizk0ggm0EeqSvYCRp8\nNPNBmKHmQOMIjF+i5tst+bGqZHwvFs1jm5r2SFFzlSONnvKiuFUy9I52lYZoM0XD7ADjR3AM\nvdc7D9eCfI8/IeBFwZgfZ2aqI9wu7m+ci6KEJCxr0mr3LAwnAxsMeLvRzj0POR1blekNHO28\nT/zenZaErV2VI4mkq5UJoOEV2nQfkeBpN+MHSalzSuYZmAs1zH6N5M5pDwG4pmdKUvJjiukB\nteLE4wIguR92POTYxqNMSnEvv3fkYiNZY1zV2m2t2+Pr/wkiceN33n1ch7sRUmM7kbw6ZrE+\nNPawXZG1lc2T5GckyiSxJqrRvIlFtNzyVoh6MdyjRsAkcC+EIxBhDuxNQqRGEYOXECmd+yL1\nXonR/A3Oy/sNjs5UNw1UaVYVuGsnkYLEF834PlG1uZWrLh0A9TQiGanvlmtyX0wkcxPDqRT1\nx9LIEJxqiVE7AuVdtPEeFRar/qRLke5X6ra50S7vR1i9zvpJuCNw2pA9qWOeULlQJ2p8oCPp\n+ly0vpL+Wq0HpaQtxKel9DO20/DILXPOM5z0bd22BdEaDzt8d0Ai2qd1KyISuNd4uugdqUjV\nxnyNhzYek/8CkZzPddt85ognLZvs/DiRdIvQvNLNUVoCHVHBxx3OlGjHGNOR5C63TsMR0U1P\natxpqBQ5T5pZziPYz8aI1FpvW1VhpDYYOJ6j8h8jEnL/UwLLrxDJ6aQ7gLtVEYdbBVCvsVHN\ndS1SNbmF4CoikeWNyl5D28YFvLO2U+lV3CimyB50EOs634IEnABEw0kidTn2XyCSY40NgelF\nHxzt8LDTVvdKLaBdxftnRILdoprBivqgBYvgFGJ1fxbGMoeR81SdYjtbeQymBlZZCehoG9hq\nmOjdwV5rCiYvrIFk1wJr8+U9OZFITR54Kj0RAO5aIhIsX3C5S01KA8rGwmkkKcZ68KDSqOfS\nS+Uv72NMZdyIl5YpbXdS9V9rBcqGmGT514j0LFEEOtrhyCnTm9j7wrcpIgVBbZyVHE/KgURS\nzIGxs8U6V+NFR0Knqfy6JFVVtars1/cXnFt6L5dejMT1XZhUzO0OzvsKoot7k9HO7NT2Yhsg\n6pyM1OlIylI9vdmLVVbMEQkpYO7994nk62nre8mXZt9PE6kakkgmkD7mktyeZ77vSVSEpfcW\n4qGttB1e+uZkCW5fIZzqgawZDggHpnAOgyrk7rKjnS6OtERza2dHguqFq4fkQCKxF3X49buf\nhVKtEzVCIul3MCAwFHo4UYo+DHu0Z91UHmazWFSreaYRBlFr6lirALwPSfcqecz6xc4TDgJd\nmUc6ILDk+45j6GODzlobqrkIobipi9G1oGGGy4dEWfQO5+X9guO82MZN4j9ApIAwpcm6RhF0\nuiX1s0g6hxRk6Z32xaoLkovQdaJz2hSV8n1eqtsMGSr7UbWjjEhornNniBPt7fq4va20p80S\npXEboRpIdq3KttDaJYG3qwx5hbOkT/h8RGWuUIHyOgbtX70tOgM57eAUAD3QZAHxvRLJGK6o\n6uy3NNaGxYLsUS2YjlIiWQXJVZpL5JaHQgNE8r2o+hAJPLjdOZ0hxD+kCRRpV20wKhbo7fzW\nDxCpZBcncFak+KYE0sud1LcGJf9/b9VyQyREwBo422yv24bOTspMzlPJlBavtvmjupS1SEiq\nzLDWeh4pxdgD5EviWX+086CNI5CJHSLpcHBbkvajdG1DLTpVLDmRMFy0ekxOJJJLqqK6VDVx\nrE3ckHcAkUz9BbWY14NzvmE+9xe9iP6QQh2kqskrC8mpZDUSsC6R2FXs1yq+pOOiKI/g9NYq\nuZtUrwqouf05Fv623DDaanThFgpGJEFQ6U5cc9/IeURi79nsqvK+Kh87DQY7kvZj0JGwsyXc\nKu059rKnNKLCV0BsQYct1OSqbhZKI5X0A0RimzUP1BiqceLUUnwHvJddjCdR1bCBJUOFnZIA\nEm2+joJRI0ku/TeIpB1rezsNUTz6O2dEma/eIu9Crwb8UqroLGeecH1XeaJzH/K8TUzSqqq9\nqmSZ3tLDASKp00ovcq7CCVJLSkKLrCjRKAU7kg2pWKk6j/KcTQEUDB+2IcFwS1D57YHm0zgr\n+ojjbI5p3wba4cxXb6FJIRh0tlbtSWzhj9Nap1rTQB88b9SzWqebpLKvIDgXNEyhXcE2opnu\nch4utk1HojxU1yHAVajxj+q0Xi0+11ZNwmvjOSLo1k8Q6VdxxKF2itDhBI0eq6GOS+D44Dw8\nzSOISnWb9Da7dGMl2jlrmxyS1NRHvLU0w6SFKG89KW6T116iNofgnH1Y2DRTK9rEp5rjDFUX\n5ZzmEHfmNkJN3MYEwaFV5DweD0xt7twuo8CMZhNrc5wgVm0tG1FjO5FkLpIcUmobSnG151VB\nbqkbW/MrpTv3IiZR0JEQO2GjLKoTBf2ySg7hwFigtCOp9mNIg5DkquyPItTEbVhGiFR56JBw\n4qXhOVjxJtRalWAerzApdGYm0wktwI4PzkuxdNpZRSjFqzsnCUPJUBFeLz0LpVAxWtSshRh3\nufbk3Vp0rCGRzIyAtWMH2hDgqmELR3XvmraklUaBa+I2JoMd6XGCxKCEu4o/mvt/h0jGu8rH\ntcnhUlTwS1ajGfl9R1I6VCaROm8rrILhcmbxgjQ1OSUFoxRWw1kn6nkOFSnqLY90kmBe6qYQ\nShWFirm98WhD9KA3KRqpFQBvSSAcWFZVRwpCmNz+yx3JJkLrehdBTq2oqPLbwPHBeRw7U9kl\nx/R6t4KLX0HqwecjP5QJj9hcZbVTD+T8j1K6ZmqvsgXYeWxT1piqUwxrJ9FkPPFOUz3b0gTx\nViSYNtp1lShkiRSRpt2HrRvXbXxpF6eZyf2xcbds/yUi+bJu15tc9UohIsESIWnn79YQmEjK\nZyplH0hFXlaRcELnRWVMdw3g2NZY2o/vVI1HgdVq0a2nBQ/Gc0DistGeIhoRkWqwaaBJ5Jxc\ntw0iRApDR/kihK+crx8nkm8XNPvIjKSI8KNSVqQbW3X/lU6g7s6JlLUNo54iR5dIKrVjbODY\n1lgeJrlQgLKpyE7sw8EI9u3LaEeawnx3+ydwwlRAE4bc2CszUcCD8zh2VYVVz3QuQUpyv7e2\nNZLqmJisnZPDpQkv9VGZIFrmRKoB+JOXbWrijlRM44yIbxi2vSPBW/81IhWQXDoRikrZvhof\nIJKeTEgNPeO4P587UvV8ZjpKqJS2GmEiCU285xhNnVaYIZFKJy6KTZl2esuiQNUevEK97O9I\ntarqFKk7i/ju9k/gxOHSnsOzZ+adwO8wSBmRmgSSGTogEqsaE9NZ6GlQDVDCSyn42I90Qb3Y\nztM678n4NCbooRoTqdg3IUXJBx/pSIm1u+D+d87EdB1nTZ+ISmp2qpULVkeN/R0JZWZt3+qO\npUYjpB7OSzaZDWeMhJcCCGDNvEhvVD4GNKeXOCjyZBf4/vGo4hAe7apxomcYilCNpJu83+hI\nC5jbiNSGzLR8esulN1djO5FsWE1GmARRmupnDIBnyz09bKhtJEV5CIrhVPewpJErjYNLCKd3\nirpc1f8EvjfGKvdQS1RNhzoyu7Ni9A6RsmuReq8E3z4PupNITaBMauhQNPuuEKmq2amzvK2f\n6n6dAqrq15q0kHa0EcXtObJWD1GwYQogEV9cZd1Z7PVstOOM94HhZOfWi3yvjW1Fuds5WHdQ\nPCpWLELJUHYTyQVwGefl/YJTmnDbml3kbLvvApEkze1ZtNy0R7rs7ld5xhlKQFC9Nqtkq5//\nV+5sZHPAS9sfJS/tc5O5Ktih85gBRlXF2QqDARP//9o5AyU5cRiImv//6au6YLkltwwMGpZs\n+lXdZgYG0chqyZOty7ja+leDe3TPukW2K0i8jUP7DH+67P1F6gxQFmfKt7Vit4p0knxiJN66\nuJFo1cdOjBq9yEtGgmpylQE3nsORLt4/jznEEWBzbjGRbHpNUsEOR00NzREGD/oKPhaaKYm3\ncX5gIt27/Btx3Dwa245go7axPH7bSNjN8UL3SauCFk/R3Y63nhVoHH/9cqhY9rRu/4sizUcj\nsTBrciPZSPUm6kcgNL08psU/6sixRUVfYSe6ZCRaHAfy1h8/4n1GapBGbFmepOd8YiR+mD5E\nDGkAAAf0SURBVMZPunII4fY73mIkHogDz1hD7hHcVMonEpjdFMIgg2ptLcZeGckeffM/bdNI\nMsge1jS5d24OhVxAPwnxlmZZ++jEZuYi7zQS2mUsewsnSbF/YKTkOF+7LmR8+/7zWafDl8cZ\neb56oBVbRx6Wg+v4RHJzzIlsAVPdWhauR6TXm7+m7NFwzacGegWOoChwOGqKtzLSkmRt7/A+\nI8FePjZqLA9bSHfrOiMlyQ6K5inRL+2vMjnwntRmHwR7JDfvwH8k3PQ1DvzoDTRNktzm+39b\nUIkVP0MLvz/W1Dv8MDJz4fRi8diND6Gaf5+R/Jpbl4I/XSn7Es5lXTUSHf8z+yf9OmcLTOVN\nEXu5JZHGIR4OEzQmucUcQyg+9rK0oNKj4ilQFm6MH+/DkQN0zVQDUx5kpNNxRhnAErrxNLXr\nLNxlI7Fws4/oFu7k09ERssckNj4jz2mE6Q3t6ZI6eB1s6u9ySp0NmbChG6/o/rHtV85Pe2dn\n988YqUFa6SiAbUIq42sTCTYq+wly+eLpxvsQcX+gEbqHYrNpfh83n8NIZjOLFCOukmd1S8uc\nJ3Z630aYnja/zhnpRJrvega65HeNZFpvxrl5vY8DhbBNKcXVw2JmMm4YiSc7rjBsz+bLw4F0\na8d2d2MG7EfChHCPDeHyKoSoIzBEW31HMk0seuPTk3chyw388KohIf4iFm++7Qnokv/GiQQr\n5DOMTdYlOZPxuZGSZNMSJR+ejvDdyf5RawoWGb7V9EHixvUWndXDzRJ7RZqPXI8CzybJG3Ns\nnh1gsuMBZ58ZNx9RR9KG4rj6MR5dzxMka3uLNxppkc1QGy0W1Gkj4Su6IKw0fB3ZZoV9OB5J\nmioq8GWEPnITakTjW7uRs5hI9Ox+OQy+LHnQKBodSmMmNXI5vrc7W4KCOjKM4DbkafOyW3rs\nnzHSZqvDjGT1MJfnWSPBqlPHnJ9Im/kJA14yEu0WNl42fzOIxnp0Fs+HgSR2nQdGskeffbSB\nO8jDxYw2SNrkF649SR5ZIHcyO9cfiD3tx7zRSNMGwtVCX/ew2eEyEiPhqje+IPSwDQlTtG1o\nr34huby3fyIvRvWxRoXFaPnT2uBhxYkK3TTKbL7NBe90wgClanxG/aRsbT4eRpXt+1i8jZN0\nx6W85acPeaWRkrZkO/JRlleMBG3ItU++HpMT+iXwNXkv59bCylsF+ICLnj8VOhoJpq+LtjIS\nb0WufK1Ix2Tl4cB2i3CzxCncWtWI1F9tpi+Zv7mRmIAkWcn7i7zTSCTf2yiADfYbBzLcRIIm\n1bBM6ILQw81JMxvhtgla9NwW054fSwxiwMYm6llNpLF1mwJjO8KgJNxIGDSLsCrNzh6ow0cj\nC9zN6N82e3JNpOtx5jRb08P9Bin//L13RigfZiS2m0BxXYb9ac19nAvrn/f8UPCb9QqbPae+\nzruHdWH9qKQjiIyQsSCrccLmUWakDZpCaD19BNkxb5WVzycWJsvD3YFe3uIzfBjnUz20YzXb\nguwaz8hAI9ERljYvmgFn8650D9LczmQYwWvI5bm6DBNplP2ZATeeCis93OBU5fejbTygi2j7\n3AM1+3t4tFFi+AoeE7Z2qbxViR5W7wNGaquTF+J8QmIktu5nZIRxkLYNfjQxUoi3DyIzUIMC\nPG+kbQtVitquG6kfcCYag6prW16ORnIbLvhrn24wevM5XCOMwWnX4VejRbyVkQ6pNtJoCHPI\nnzLSnsH41zsfyPB1l4RIhtuRkcY2c69LK3778Nmt3XRLu3ODhEzVelwLsWb5JiwN13BBwH3Y\nNILgRbiuYHgKo4Zt92x2Fo8/yCl++0S6ybvDvVzeu8O9XB4r5unFMVVGIrGOWkflrc9xNFjW\nn/4e08LFP49PfBdyu5OvntC3vO3JkyFibrJjEfeRkT5ERrpFvZFuiSiPJSOdRUa6hYz0NDLS\nh8hIF0SUx5KRziIj3UJGehoZ6UNkpAsiymPJSGeRkW4hIz2NjPQhMtIFEUKIj5GRhChARhKi\nABlJiAJkJCEKkJGEKEBGEqIAGUmIAmQkIQqQkYQoQEYSooAqI/0fJ/u/c/fjF//n3TpQ3AkR\n7dKnb4tqh3ebBT2VyuYFXjj5lNJVzralwGIdRWFaj8VS+udHdvrroLgTIuAfpPuiZPjH4I7u\nNgt6NJUtX9nFyYeUrnIW0vtdauL/SdhS8M8ZyYl7i5Fc7F9gJHbCTj1vJJbe71K5tXupkZy4\nYxFtm+r2u6KO7kYEPZnK5cq25PhPG4ml97s8Y6Tm//3ep3mvkVo7nn/vN9LqO1J2ZRFrZe25\nwtNEmj/78EQ6sAcT9GAqm//BTtKxFLdWX+J4Ij2ULRlp/uxzRtrcbf5WI9GTy+vqWBppfyEj\nVXHBSPtf6b7HSFTQc6mEmcI2nflJO/pdmf+UkZ5vo0TABRHv2toxQX+Rkb6s8ldu7fQL2Zui\n3vcL2V4fye9clyftd6FflXr4C9nFZ0p1fPsGQvwLyEhCFCAjCVGAjCREATKSEAXISEIUICMJ\nUYCMJEQBMpIQBchIQhQgIwlRgIwkRAEykhAFyEhCFCAjCVGAjCREATKSEAXISEIUICMJUYCM\nJEQBMpIQBchIQhQgIwlRgIwkRAEykhAFyEhCFCAjCVGAjCREATKSEAXISEIUICMJUYCMJEQB\nMpIQBchIQhQgIwlRgIwkRAEykhAFyEhCFCAjCVGAjCREATKSEAXISEIU8B/iixVPF7M1MwAA\nAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "pairs(Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 450,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO1diXakuA5V0p2efr3x/3/7kgJr8YYNAmTQPTPpAmzZFrrWApXA\n5HA4dgOunoDDcQc4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEc\nDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiR\nHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4\nkRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4F\nOJHa8dIVfGH+Z8J/VvpR286ee7rO893W09EN12szZhucFbZ8ZGcq/ZYf/T33dF3mu6mnox+u\n1lYIO+y2zK1s2NHViXQmXK3tIMPcQqStPbd2BWKgE+l4uFrbwXOO+biLSJt6YobT3XUm0sbp\nOnrham0HeiTotszEmPs9UmdX2DeooxOu1nYAfej1K5t7UqtNRNo8qKMTrtZ2bKYDsE8nEQmA\nSt1OpBPgam3H1tAuVznr6LkttJs8tDsVrtZ2zHYoHm22POGE7EPR7geyvV2pONLf09EN16vD\noQAnksOhACeSw6EAJ5LDoQAnksOhACeSw6EAJ5LDoQAnksOhACeSw6EAJ5LDoQAn0iZU1bb9\n4lFyd8zI0QbX4iY4kRwSrsVNcCI5JFyLm+BEcki4FjfBieSQcC1ughPJIeFa3AQnkkPCtbgJ\nTiSHhJYW4d541GoftVg1AhiTYxOJbV0yi5PwqMWaI8CztH3r1T5qseYI8Cxt33q1j1qsOQI8\nS9u3Xu2jFmuOAM/Stv3V7kii2xd7h1+SZ40AN1BpBcMRCXbMsXmxewYxA2sEGF+jNYxGJMAf\nWztXjlUGMQNrBBheoVU4kbQHMQNrBBheoVWMRiQP7ZphjQDja7SG4YjkxYZWWCPADVRawalE\n0jXPurTc1d7FchnjUcsaAYZTYBfOJJJuwFSXlr3auVguY8BgzxoBRtNfH04kkm4KX5eWv9q3\nWC5jxPKDNQIMpr5OOJGaRnAi2ZFjEx7atcnw0M6MHJsYs9iw/LXL3rFaFlsqMHixwYocmxiv\n/D1tdw8Nix3Q85RgjQB30WseIxJpc8KyvtgRc6ESrBHgJmotwImkI9ogrBHgJmotYEQieWjX\nBGsEuIte8xiSSFsz/95iw9iwRoDbKDaLEYmU2vpyZo0E9cX2VwG3NToL1ghgSTf6GJBIafS1\nnFkNy6qL3fBcalOj02CNAIZUcwDGI1JaD1jOrBcKaout924qQhirVFgjgB3NHAEnUlFsfdCt\njc6DNQLY0cwRGI9IHto1whoBDKnmAAxIpFdKL9P664sN82UvNpwgxyZGJNK0de8/brG2fNEM\nawQwpyBVjEmkjdnIYYs1lh3NsEYAa/rRxU2I1BZT7VlsdQQn0olybGJMIsWhVGNktWOxKyN4\naHeeHJsYlEjSQbQ6hO2LXR3BVJlhhjUC2NOQJkYlkoABIhlEdrob/giZE6kFtyDS9aGdReTm\nC7WLHXK2YDT99eEeRLq62GASTqQzcRMiteFRi3UinYpH2dajFutEOhWPsq1HLdaLDadiVNva\nlLKcutjLkyprBLhaH8diUCJtK6Kdudjry3zukc7EmESaf0HkepP43MrxuoxmCzTw4MlzpDMx\nJJEAVjf87PXOxaYy2t2MBSJlvI8T6SiMSKSXOa98ewh/JGcrx2syethhM7RzIh2FQYm0+j07\n/JGcrRyvyehyMyaLDU6kozAikVp2+6tDOwPwYsOZGJJIhd1eZgPXFhu6cJDUm8qxiTGJlMW6\nuzC62IP8XNEjFS92yNkAI9o+CEZtawMa7MPmYo8q8BVzpPVnB6tytsCGto+CTdvaAidSTm72\nXJ8LdCK1wKZtTfW8If8H+/aGdn0ZOOilNieGdhD+cSIpwyqRasYFiyUkc28o5ZWPu8x5oZEW\nk04rNoRzPSM6kVpglEi1cAfWGtSlFo77nhFNU8trStciX2yoXeyQswGWdbUfTqSGEbOCxiTS\nDeTYhFEibQrtWoSWjy8M7Y6BNQKYVtZuWCXShmJDg8zq8WXFhoNgjQC2tbUXZol0BB61WHME\neJa2b73aRy3WHAGepe1br/ZRizVHgGdp+9arfdRizRHgWdq+9WoftVhzBHiWtq9d7fq7CdGj\n+XIHja9RSHm8VLi1bngmrBHAtrb2whSRVp/MYIPlQ7lD9sqOxQLw3xSx+UnWmbBGANPK2g1L\nRFp9uQAbLB/KHfJXti+WeSDg0i0bhzUCWNbVfjiR2qbmRDIjxyYsEclDO1VYI4BpZe2GKSIl\ntYTkimxQ+y0e7Ap1itt0TY05JXnQIeVMWCOAVT3pwBaRApLNPj7R4xKo2R6PlPxXmqoZWCOA\nUTUpwSSRkvQjPtGTpLBmO3Kk1w/+szRVO7BGAJta0oITqWNGTiQLcmzCJJE8tNOANQIYVZMS\nbBKpWGyQx415vlKxIf5ZmJkZWCOAVT3pwAqRGsyx2gRavmnXu9gMnZ1Il8uxCSNEagiQqk1e\nj3lWhXQuNg0wIXzB3EO76+TYhA0iNaTs1SYU6FWF9C02LXnMo3ix4Vo5NnFTIhV+y/7K8cqI\nMZHQBdo0EWsEsKklLdggknZoV2irG9plSnimYI0ARtWkBCNE0i02lNyEarEhDOLFhpPl2MTl\nRIJk019p3EI5/JE5XzleR4ZI7LwtWCOAQRUp4moiRZFRPVAClpf0SGWnq8eNckVoVxvvWlgj\ngD0NaeJiIkW+o566xxWFmlyFYkOhvyw2sPOdwg6HNQKYU5AqbkqkymiV46b+mb9450Q6U45N\n3DO0K/evHrcIyBbqPLQ7UY5NXE0kFoQ1vD4niw3dGX5pse2CSt/l6/s74efAGgHsaUgTlxOJ\nj9w3eL8bKCxWwZ9YdEnWCGBOQaowQ6S+PANqv/mkPkZyvDPDMft+gzUCWNOPLsYkEkZ41xPp\nRSMn0olybMIMkXqiI0xUrg/tFgp5aHeeHJuwQ6SelH/+cUGxoTQVi682ZGcEC/bK0ZrPbWCI\nSB1AU+iz3yMWu/ii1a/0no/cBKB2sUPOFlyukEMxNpE6I6pDFhseEUthBmI9J9KZGIZIPB4R\nJNphEmpEAiwjcskX69KJdCZGIRLgV44mS0QCpFH0ixx0xO+CE+lMDEKkuS6G2z5EZGqWUj/e\nMq05QUrKDUZDOy82HIWLiRTfU/5tbnYR8P6Lr9bJ3uv5fvticy8BxT8xqJvnxR5ugWxzEawR\nwIl05Ogyt8B0A8RFWMyVWW04K4KVtXy/ebHZrtF/GNGJL6CHM0VB56EY2rlHOgCXEml5kBkV\nEZb9nC4Ge108ULBaEDxMspJMmtK62LRr4o7mcbP0ZmHepalSiUh7M8utcCIdOHgXkSYiUuAQ\nZU2XEAkjOuEnqfO1RMrkQ06kozBOaIduKBgCD+0o4IqExWeqx/WuaWgn5ssOxXdnzYV2TqQj\ncC2ROooNgTfA/m4eveCAfRNh4sTKcaVrqdjA3BHQ9KEi6DRkiYR70z45WvMpNx6NdhcTqaYw\nMloWOUVXwgn8UR9s5bgVGSKFiUYTuxKFWTT8aucmOd1wIh07fCVR4eFcPXJrsw2lxWZDOwrw\nrMBaSOZEOnj0/JC0t4e3B2TLqGuT4nUWu4wcJriQCQO7TTKPgBPpTIxBJFglUvtwleMOKQmR\n2Gw3SdWHE+lM3CS0ax6tetwuJg7twkQthXeFYkP3O0JXEel/7wAff5fjn98Avv3Eaz8AfkzT\nvx+fTd5//Mm3+c0O2cXf8DGf+Q++zx8+4HdphO2rM1hsgKTYsNq1JHHluFlOXGwIR+xPVVyP\n7Cw2TO0iIv148f3txaS/7zP7v/2dr33Al5n/fVs2hf9eXb4tbZb+v+bD90TA2zKRd6wJv6W9\n5xF2rO58G4j5kCta42s4kGtQOJdptXLcNsHk8jqRLglUKiGzgpx+dBIJ/vs3/fk2W/M3+Pbp\nND5dzLf52tuv6d+XJ/n4/Pnv56zduc1nj+9L/89G2IUL+PFyQNO/zyavD7++xoh7zyPsWN0Z\ndzx+1g78ZCY0ApbM5389QmM8tWmxJDtDB/YIqRLaXRPuDZ4jvRj0G96nL1N/n8++w6/Xtf+W\nNqwDtvn2okfwZXMXIeD3LPp/8D7L+Yrskt7/dS7uCiIJswI6A/w4XA75u6yKxU4sc64wcvW4\n2IfNMrpIj4rZZIsiTsXgRPq7/Dt9mfqv+eyvl8MA+LNc+x91mBOdaVp4AvAzdPmIBby9Lx0W\nB/ee6f1n6sT5RJJmtRzhyeQq3+kvJVJmkNlDhncAcX5JsNo6li4GJxL79w2WMOvfK50J1z6z\nqLeP/y2X3slo3ici4txFCvjxuvbJotfp31/eJ+ndubbriZTzRhHL6GHnpaFdnkhYCKGwLp2M\nh3bdcgSRyK7l4fe5nPDfv2li9chMF3n0+8tbffHnx5ejetGq2Hvz6s4O7cKk6SR7zYa8gfBJ\nmTmeUWzIhnbT8qodmyNJxlkZKjYMIqeJSNOfH++htNdBpOnt21fx++8cx73NLmhAIuWnKU8C\nhlOaBeWdi80WG9KNgf+4gkBiIqPKaQnt5lO/fryK1m8Q9ccu74mAH5+H7y/+vH9mTT+nTO+e\nuc5dVo4PRmHG0hWpzeqgxUaLSGLBi57S34dISbFBtv37deJ7KBeEftjlRyLg0xP9exUVPuDv\n+4tjSe+euc5dVo73ozapEkekF1IzxN2LbYwggaSrbgR9uA+RkvL3fPS2FBRebubX8iwVyYZd\n/iQCPnv+fDHns9PcLendu7jjiVQzo3LUdozx7V1s56wYiTxH2kOk5IHsfO3H65nr1+n/sM3X\n49k/rzZzl/f5hSAp4KveF7LYpYQe9969Ou07XjWjysVDwqG9OVJvn2K9/hTciEhLfW553wdt\nY3mtZ2ZHeAto9jnhFaPwPp0Q8BUMzi/cfYRcKu69e3WnEglrCpkG0YNNdrSdY1pEKs5AzFI/\nx+vDnYg0/foQr5Qu+N8XP74v+c/rtdO3j/Cwdvrf5+FHuCYEYIg3/S+8wZr07sXpoV2GH7IJ\nlr95S9Zkh10qhXYAiaLjGn54+jVR4fF0DE2k3YOdrfOziw0ZGkSVBbI9gEyTPZHS7sWSl5Fd\nk2yIzf8aFikObE1O22D3I1IqHirnlgOjRCrMIEyaLjiRjpPTNtgDiSS8FIZIFkO7pVfikVhc\nlwvtLoI1AjiRVMeDzBDsrSAKkWQmYqHYQBOIp5AGo6zYkBexbegeWCOAE0l1uHLFCxkUndAc\nvX7cLCfpCMlkq7M/xVNZI8B1vvkMnEukStKQXDogwThusX2zPyd3skYAJ5LyaE4kJ9L9cCSR\ncm9LV62rIzjaNqGV4z2i49zPQ7uj5NjEkbaVk1ZJAgtPORVxpEfqm70XG+6GE6Kd6uvfa1Ut\nVYs7bLFYZxQnM+LPLCZZI4ATaYdkqIcxpWt4XjcGOpRI4Zuy7Fxa3DvTnKwRwIm0XTQQn4qD\n5/bt8EM5Kz82tHstFuhMOsA5RQYx2g3l2MThxYZnEAlfY3AiHS7HJo4k0iIx9y4DjTZyaCcy\nnuxfH0wH9NDunjjCtvgv8c3VsxpqCTaLDZl3vtn3ZnLFhvi9PC823BXKRIJJfhMnH82cujHL\ncavH692lCyJ3W1hRoFLfOEqwRgAnUp+0kHWTU7o2VYgHrhw39I5jt2pFZaGakW3jLnJsYodt\n5V9ciIiU26tvQqQQyzmRzpVjE9ttKxuyxKEd/fLK1a4nQDu0A2Akoku0Yt7kdFgjgBOp3DFf\nRmDFBsj/iWIjv8VgV7FhWSIkl3j5DmBK95GTYI0ATqRyxxKR2ONJ9Ensi+NAH0QqFX/BHOIP\nO6GaELIdY5rYOsSfZyYmzS8+lHaUzO+BSBv1T1AF1uTYxCGhHYZ3QAZEzfETRP/V2ylAlUg0\n30msg57Myr+hkfvmOY8Mi6vcunxrBHAilbpmeUT+KFgPhTfyB/msWRq5o6Sd0l3QJlJYQQjz\nZpnEL/bnDRi7ovEB1Zaf0OblWyOAE6lNUDAERiQqNtySSLgCJBJQNDufcSLpy7EJLdsCNHoK\n7ZYLdw3tmOsR65jojId2B8ixCSXbIvcRGAF0pVZEGLfYME1xsUG+bWez2FB4INEtR2s+t4E2\nkegMi+eAn+VNKPQhQ8oQSQvaRMqJk/XuhT7scUBuUeyy9nRK5zoGciK1QDm0i46Zu0lbAUuh\nKLTJhHZqOJhIGM7xvUAULeM3xFm3ODRUmU35nBNJGWq2JTdTygsS4RTzAW7YoT9/yTV1crtx\nNJGQRJQgBr8rHjFlZsEuq02mds6JpIyDbCvdm8NZuDORpilLpGlyIjmRNsvNlKlk2HO70G4W\nKtc4mQrtvNhwFHRsS6bX4V+sVoG4iAXxpNgQPiZlByUoE4lXHMVpvpiwzmniaw4dZdHy+GLD\nHeTYhIptsZ2U0SCEcrxIvDTJbsL5Op8mdIlU8yLhFSnaMeJL3AsfA/dIZ0LDtlg2w9OdKbgj\nyST+xCUQBzdnNK1joq6V435hkJtsCFbDkoATRl7inbUdsOdIZ+JgIvFyQmiQEkma1uhEgpgt\nok2RSOreCTLex4l0FHba1rLbhgocr9SFkm/2bor/yC2NG9rFNRT6EYd/WF2RoZ3+9uEe6Uzs\nsy3GnVCcokJcMCEszLFujDVU8ka6qVcZwrgrx73iyCnhhjLJkgKrpVCvpNiAc3EiDYsdtiUS\nIFadCueA8wz3bWZyfFB5PAaRmKBlG8BdREBSbhkY1YIuqa8E0DCp/Ey92HAIttsWpjq09c6O\naDk50eMhFrAhsSrMGSS0iwWFpaNSWNwbXDNrynKpWcYpRLqBHJvYbFtyD+bWwy2EIhtuObJa\nlZ3SIVo/3iMxJjG3NDcBpghBouiH2qRuKscmdhEJ858ELMiZFjd0ZyKFCgLPEkWuxP2RZNPk\nRLoFdod2lB7wrIkqcbzOUAztMpKPwHFEYiUH6aaDAjDgneR/LLTTXnVOmvSS2+Vozec+2GJb\nbI8l15N4p7nJxEt0eD0kRYU7OlixgRXsYgcdIl2gTYfrbYoUNdHaizpoVk623YYlO5FasMG2\nkAfLlppuuyymm9JQBvfjEAudhmOIhLkPFl2iMgNuJ+wDoPKYPib6VPRP7Y6r2L9/fSpwIkUt\nKM5fTIBFdqxchWlRlA8A+xE+n4RDiBTUgR5FeBvulMS2s2wkgWhRplTMmIoXCk0VYE2OTWwh\nEm6ooRRVqjpMUdowhR6YnN+LSJkAF6QCWDFiIj2gGif2b3Z64EQyiq1ECpE/cGZFoR0GMsxX\nsTCIIpuzcHBoR5U5FsuxqC+QDunFdcVEUPybG2pnaLdpfabk2ES3bZE3SWL+iVsHC2CIaCz4\nwc35gEWV514/3ioWKK6jTUI4IorxpKOKVYPbTbamgGO0TUtndebk2MQWIqGfmSZmByxkE06I\n59mYJvGY7jwuHUQkLg9YKjgJtnDnzSsO4d9pChoqKqQjrutpOJgcm9gQ2gkPlOyuRCLZIJyf\nQnKAPDpPxRpEiqyc+1SiUAjO0rSRdEWapECYehcX0D5nawRwIkUtpEHI9JrtwlOSIZFTYvbX\nt8vugwKRIlMWWV5YCq5RskiGdsG3swwJt5jK8B1TtkYAJ1LcgHFkwlrVJEgEtLWyUC8nfiwi\nRbON6o6xw0gzIkyokEpIoKWLXqBrjQBOpOQ6L2jTvsvifcq5MVfAsC4jcZzQrk6kyGGkwS3X\nD+4sXDGayrBGACdScp1iEfyPyDVx58MiuWLQMlSxoRbaZYeTBGLeGlihLw4OVXBXOTbRalv8\nXvOsaKLgDi0DEnuIN/KLdKpApFqxgbeAEO2G/SbQKGw22fHl2Z1qskYAJ9IkNmIZpWSvZ5IF\nLvrEYE5Cg0gtg+CjZio7TCmRmP7ENjVlPm+ciAqsybGJNtvCnPh1wKMUoF7BWkLcHwngBpLb\njE/Q8/FEEqWXIB9S9ZCfWhqwj3xyIM/1zWVTL/tybKKZSHTfWVgXLAB/QJx+owThveJxipUI\nXRxOpLB2oYVlacuyqcSAS85qjNi3VTXWCOBEmoggE386MlEMh/uwoFxdEh+0UBtXxtFEQq5g\nSYFOckIRr+j5URTmQUzAjbNRgDU5NtFqW0A2ECVJIE2C4r3SeAnRaAs/GIcTCYR6+MM2uooK\nC//LtRODREi4ZTa712NTjk002xYFcvKhCPdJspZbHC43ZqWKrIfjiTRJvbCHBHy7wA0p7DtJ\nZsT15KHdCGi3LfEkURbuZm9FprMyXHI9WNXROJhIXDkTVu7EY7Wgp+BxmNdiUwLJHi82DIAO\nIr1+JG9hLmfxUl1I+twlyhAOxZFEQq+DeiCe4FhhrwmnsOEiIciZhEqcSAOgl0gxj8IzkSmY\nUF1IQqQzUiM+WPV4n2jxVio/x6I6EdpNU8gqsXWaQHpoNwYabIuqCbh1chax6I6xqjIct5Q1\n3ulCkUhpvYRyInSyorLAiw3khqInCBl99KqInk51Lagi0Jgcm1i3Ldop4+wIMDdaGPL6sFZs\nEHvuqEQS2wVFY+RvcZcB2YdpjnrzeI5XXURy1T0zawR4JJHiMhJZAL3sjTcd711DEBIVewcN\n7YRxY8xGWSKmPiCacYe0nAQhQeojhH+dPGJ3QwXW5NhE3rbS+59WGai2wKKJdWXRLtvcRQ2H\nEImiOsyDEmeNhe6olhdiPXTU3CORp+8J7Ghm1gjwQCIlG26mxoB1hpZBeLNgRBfgkNCO2Ttg\nSU447WT/mRiHkEb05IC/6CGm2KI2D+2uQQORaDvdyiPZsKOnMvSIFOV5IQIL0e/CpBC0MWYt\n/AoXgBqy0K4Q07WpzYsNl2AttMMtM8OjOLCrDQG1E2dBkUhCDPkPog8r0aFfovSSwjtgP4hn\nGNOFZGvqV5s1AjyRSKI4K+4/90fYo66i2xOJZAERagoOSmiNhuQM426LZVZTCAAzcULrjBRg\nTY5N1G0r2EFEIeGPclISmbHY4UO7rHDmmbD+HUI+2n7QkePzJPReIVtiPJL5Us+MrRHg2USK\nvRFFIR37ZBL8DV9syErnYTF7FMtDu4nTAROquVtQKgVzEZE61WaNAE8mEjKJnBOlxtv2yStx\nLJFQKtKBWT468UCvZXyaAhCZxAw3l2asEWAUK9mGNdsSeykLUHgcP4yGziES8ysiJwL0LXhe\nPhdgT+b4ya0KtkaAYcxkE9Y8Er4aFKIULOINqJmTiBSiOx718qSSBWusT0qivOzmSVsjwHDm\n0oWmHImy4Qnw0eE4jghxFpFQUThGSJyWi+nYvH5Tldw+a2sEGM9eelC1LVb7FsFKS4HBIk4j\nEslnPCI/lbCB1RlWJTZP2xoBBjSYDtSJFB6+U/IsirGj4Wwi8eobxGwS8wgF0VWB+KNh8M7J\njiLHJtaIJMu2QK1GVMvpROIjkcvJTQMacyQP7YxiNbSjO8zv84AJ0nQlkbBSU5xGY63Biw1G\n0VBsuI8KLiQSGzId9RgVWyPAXawojxXbqj7GGM4tGSBSXml7NFm+PdtlmpZjE6u2Vb7H47kq\nC0RaRlZ7elC+C9nTPFZvH0EFgxlLJ4q2lXmLBZ90jFq6u5hI/I35+F2gtM26lFnSJNbBrmZd\nX+1iacD2pqfIsYmSbS0E4vcJkv9GU861RAKmSSrhldqsSwmH/ASscMWJdBQKthXuD7tP4d4D\nuzaYbi4lklBlgUjrm1PSAiIeib0w3311kEKfnRjMWDqxQqRAGMgQyYsN/YOTSyo6pLpWU6qJ\npxL8qhPpTKyEdoxD+FU1WRAfiU1WQrupWGyovHBHb5UkDXjytcIVLzYchKJtxVkr/zaSvDaO\ngq4lUtM7qcXHdujEUilQuG0bSJMfWQfj2MkWtNjW8iUKuouFoNw8LiZSA6Q+Q+UUo+pyuJaP\nEwtt3SPpo8G28Fd0gBPpcESxGQZzikTqvWdOpBas2xa6I2D5Er86joIGIJLMd5A7UKxPTMV7\n4EQ6E21EmnhcJ5t4seEoSCLVArJC4aJwzol0BJpCO/pvbIxFJBHabeuenoPCVzk65WjN5z5o\nLjYM5XoKGIxIvNiwpXdJaCcznUgtGM22duFRizVHgGdp+9arfdRizRHgWdq+9WoftVhzBHiW\ntm+92kct1hwBnqXtW6/2UYs1R4BnafvWq33UYs0RAO6NR632UYu1RiSH49FwIjkcCnAiORwK\ncCI5HApwIjkcCnAiORwKcCI5HApwIjkcCnAiORwKcCI5HApwIjkcCnAiORwKcCI5HApwIjkc\nCnAiORwK8O8jNeFRq33UYq19H+nenu1RXxp91GLNEeBZ2r71ah+1WHMEeJa2b73aRy3WHAGe\npe1br/ZRizVHAKPaVsolH2VbWosd49egWyOATaVp/XEIJ9ImMSOoyRoBTOoM8IeGoMrxraCz\nWDXdHwxrBDCpMifSFjiR7iBHFx7abYCHdneQowwvNvTDiw13kGMTTqTbwhoBnqXtW6/2UYs1\nR4ALtX1CCPEo2zp8saZiPmsEuE43ZyS1TiRd+Yb0Z40Al6nmlDKrE0lZvB0FWiGA9tc6+ieA\nPyptMtfrM46uOpFa+wL9rIm3o0ArRNKWs2nkNR5lWtR7xVedSM1dYfWOeGh3hpwtQ6dji1O5\nLbC+LSZXnUjtPSHSXnp7vNhwghwVyD3PidQHXSLZ8j8prBHAkrJiHnho1wXV0M5YRpTCGgEs\n6Sp1KF5s6IBqscGJdJEcFaiHE06kPdJMa8saAWwpSzuddSLtEGdbWdYIYFtbe+FEui2sEeBZ\n2r71ah+1WHMEeJa2b73aRy3WHAGepe1br/ZRizVHAHPa3pDjlrs8yrb2l7/Tz3ZhjQDWlFap\nupZucK3LyvGtsPuBbPpZBccQ0xoBLjSt7ONW/JG7lL1Qe3ToRGrvCennfONOJR70QMoaAbKp\nP9AAACAASURBVK4zrayCy7exeMWJtOAcIvXy4qhXJC4hQOW7R5eZVkHBxa9IVSnmod2kEdq9\nVF9nSjcv7kQkSD5sk6OKcNOS0/2pkBcbXthdbOB0EhfYqX5e3Ci0s0SkcEvg61OOR5WiQmIp\nq5N3IrX2hTxHgP3HzySdV2Tr4+FE4vers9hQlOUeacbe0C6je+aOcIdL97NL9PpsIhGJStOp\neKSKLM+Rpj2LXVSZKlIQqaDno5KgFVxBJDvFBuA/skO3/z4WIaacV1WPb4XdRMp9u5z+K+59\nfWNp4RIinSCnfbiQJLVmQmuynEgL9oZ2+SvolIp6fk5oZ8cj6WaeiywP7WbsWWzLbSnq+ZJ3\nip6dIx0DLza8cPhiTb2E50Q6E06k28KJREPnq6lJiz1DrBzfCsqLLb0QbsQvOZHYyPhfrcXO\nMarHt4LuYkHaTfbzlXh6sYENDJD8dk+6ulLXbh6kfnwr7F8sixG48kufL4WVsvX1v0Sfhock\nXKg+uOgZZOX4Vti9WJD/MfLQ61yPJtKyzxjySIszAkDKiHkEevVPz39BZPk4aZ/uXhPFCJlw\nruHl8PNwFZGKMZTOdPoAgUpIJjkRoEZ4qmmiWUZWjm+FzsUmjJBEEm98v24SxOcvhROJ3TF6\nopoSILnJDTPNM7JyfCv0LTZjECKuYxqPGGYDTiQWarI7FYcZ7OZN0ezLfsqJVDvOXC1oPY4S\n0jPX+6VLiJQLn5Tn0wVggdsrxssWGxi/+OzlVll3XE6kavNsC1lOnfMiAJAdsl8mOxVXEGma\nuZTtc406xDcuM/6I2iTsYd+szfgpLzaUj1/nIP+Z94KFTHhvBKmC6KuZdBGRDpezYWSMxHOO\nJQ7KgXgEOSLl9wknUnIKcp9FE1hiGMjeCPRXFwd3FxKgsAFdBLnjrYR2+BF3S362HLk6keiI\nqRD/KTAJVbw0ivm36cmEMq4gElSevp6ijkx5gGiRvSmlYkO0FaJXcyKtLFbEaPhPfm9leQDE\nKofQYjVGPBiXeKRK6fIMHWQ8C6MG8LCtLEFwL70mNk152+O2d0VtsdK11J+syuQ0r21OpGu8\n00WhXanWcIYK2H0RH/OluqKMEtuCjUDa1okkPgfXnbiZuNvaneC7YMW1HYqLiDRNhdfqLiNS\nUvSu35BK+AB5m8mJeyyRkt1lxflXFMUy0iRePBGXEclYaMffbGAzkdNpDL7LhHQi0ZGMd5PG\nbTQj8pAvelRod7ic+iCQfkyDi6QasvEOeWiXP+YXMm1RZ+yNk2z8jYG0iBfPhjUCnKwD7pHi\nOmJfrFcbRG6+sci7on2xpTxzucgqq7nNLRdfnA9rBDhXEekNg+y1/ImN41WOb4Udi82msTOP\nMi+LZOKL82GNAJcRaXnulxBJta7qRGrvG8VrMhtisi5/XXWGNQKcHdpBeL0Epji2YzcOW+8d\nbuX4Vti1WHpbgUXfoSK03CgjFJphjQCXEGmhDL2dHy5qhHNiuJXjW2HnYlH1LMWcGcSotHeO\nerBGgFNUE9VWMYjLRuCahSAnUmf3RMa81y1lh6vf+OawRoAzNMODhWmJFQpECjG50sScSH39\nczwKXslYcGeNACdoJluqwxQpvXcq9To2dOX4Vti92JQmPEe69pdOJbBGAF3NZBUdE4lF3YVY\nwYm0BVqLjR6fQ4jr9lFJm4PWCKC6vEJEhqchuCJMlArDe2i3AUqL5boP1Ak1iO3hnXqlwhoB\nNFdXdCT4NbGFQ/SjKMqLDd3QWay8ieFxxUTBxKZ7oxZjSIk3lIOyygKXbQ2rDCdE3E6kbVJk\ncDdhIZV+oec+qQqwRoAzQjs+FEbcp5SAnEibxLCe/EuXody6RbKHdn3SMrdAjEVVINVxi/NZ\nOb4VDig2RAnTFPzSTqkasEKAw+uZOYUDfbfyHJt2Iu0Xyd8FnyZ9RmyEFSJpy8nKzdxaoGse\n2uniECLhZnve7tcGawQ4k0h4jtLWg+FE2isT3z5xIp0jhyJoEhwXFNjOtpRRj74xTqQd4mAK\nNyncuFaJ8TefOxq3T29TryHkZL4DESkfDwHf0D8WTqTt0vChUUikm+9WVPerz2Rz8WJLJ/ty\n8mE07mThJH8q4URShupiQ7m7VGGt3DppBish4eaI0RgBTiFS4ZcxdIV2m19MqR7fCvXFdiqQ\n9sDS+5PFjdCJtFNO/rfhs69ZijH7HkhsDACcSOyga/Erb3Bhk8JVD+22C4JJql4+vxNar+1n\nrHM0yw1TdSLxz+36noquiMRlXnLgr0HUZK8M3QRrBDjMtEjJ7GVvvLgybHKHRO+uSVSPb4Ud\nRMq5heo9Cu8f52tJZ8AaAfbJSdyQlItMAsjcybXIITrjod0Ktod2WZrVNzssjsdSit+MUda9\nDQIoycknRiQ3nM9UwquxQxfrViZYPb4V6outvQaZI1LmtiYlo2wNqSVvUoAJAijJAfkjuVil\nQjWb1VK7E6nQcJU1ub2skBElDdb2VRVYIICWHEGkfLEh+sQ+11XrX+zrR+tis/4n23kJ1prf\nEcpG8Is47fdYLBBATQ4L7epRHqSf/YGsNvYQKduKxWoVZ5Pv1np+M0wQQE1OVOLOCuRnxeck\nR9LnlROp0DB/TdYOiEeSTCuzKPDoFh6p8t0jpflsIFIu5dU2dCdSvmWJR4UvYy53ZsdGd48c\nCZIP2+SsjNEX2qW5azqd3S7KidTaF0rBdrMrWhngDqHdwUQCwJ8Fvw6ZzwlvUiLtV74Tqblr\n8feuAzRsaLk3I9Za7MP9iMQCgp6vrq/zRiEccCK199zzPn665YnfR31EUel2RGJBQeZO1N/X\nAtlM6QW7WETl+FYoLbbBn8w/uvbBNJiA6DIvQukr/goiHVpsCDcB2RBdrDAplzk1926fXOX4\nVigstkWLS5uueALEUVSVQ2mMTLq4hEg6csoJEJBHyexUqzKKmvZiQw/yi20z4/XkNhUteEPP\nbLFnI5FGevtbxSOVdjb6XfjJGIkK8zJEM9V42olUMeNVTZd9WXpjE2rRLw1fiUs23pUriATJ\nhw1yVm5I/penRloqyWDNdONpJ1JlA1xTR82TpJ3jM9wcln9zzN0c941LJMhrHpWULfqseKik\nmXI87USaimFbrkt7i8ydXqGlsJ/9N3xgIpV2FIyOC1STatu+C27AhUTKB9Ly5G/dEVeOM1d3\n3i0pboWVPItSCEFGJRLk9xwRA7dEbmvj3Sa0ayDSh+50OhfbEPLteSqYEYqSReuHFRvY2sWL\nCuEHxnVlsrXOtbVli7CV47MRRbqXEmlzyFfuVe4G82XgrXvHyIyogL1yun+JPt9OIHcaSpuc\nxv6zEU6k9V5Rsw1GTre+yiRmbApxx2Wh3Q6PJN47iBUd/qZb5Q2TQkS8UpnQgBOpoRPIqWQM\npfw8KQQjPB5peSYlxmuZZypvU699ciC0L7mL1e5pMBftLuHvIubFJTWarPtS2KaSgVeON+I3\nfMwf/oPv84cP+Coc/PwG8O3nMtQy1uvcb9qM/vcO8PF3wphAZ0Yv4SvHxT7ytf3kYWCxhhRu\n/UT3Drr/OELUvFkh4xEpcUFS88HdJRrPbUHsviVf9doQU7TNvXK8FW+LoHd8UvL2+ePbTI1v\n85n5ynLuRyDSj9fh219TROL3Ir3d0UsL4Tx7Co8mBt23MWrezsLxiTSrEDWP2oy+sJ/4MfRG\nePfW3ifaj6OI9OPlgKZ/n2t+ffgFP7448+l5pj/fZi81r+3769zvd3yJCv7799XkBzVRw6bF\nolPBLUF2jbZNcf5lV2w7WE6kQ69UIZg3bJ73NUTC3WOTnJwapeZ5aJe9H8wdAf8gnZY6jw4j\n0u+ZCf+Dd/jv68NXZPcL3ueL317keq3tdzj3hh5potMWiIT3ofD0aOFGVnbgkHyBIb2N1Rsr\no5iOeTe1UpdTDHSb/H/OrzPNA9uY2O0o7zQQhRPFcfbiKCJNby8mfPJnDuS+iDGnSVNg2Wsx\nP+DXfO5XINLfeR5AP9WwfbHyXqTbm4wcKMCRRALm35J5VJgUhSWN076ISMpyhOaJSOJsvLHF\nN+MAB5SZZ/14M368GPHJojf490Wd/77yJRzli2Uv+3j/uvqFf5I6xohUvRfRLJemYS+MYvpc\n1tfhZjp0cgkBAMp/52bz8IIxtDGVNrZ0IH0HlA6xcrwZv+HnzJ+Xz3nRChimsHFH2rBKpE77\nDfFe2EHZlRwlD9kyryAS+eJ9clgvYmXQX1DsJnlH4TAiTW/fvorff+c47m12QQMTqW8QXIUo\nPKZ7KXY6YCq3IBInDP2ZUThGY3twnG39+Aza3l/8ef9MgL6eHb1J4UOFdn2jhC0irt8nNa0j\nzeEORKI4keU61jj0wnG29emJ/r2KCh/wd6bLdxAvc7/08ZEUG9jFMYmExQaK5wWZxB7bucSe\n1lcRqdSpLie/Msy4AIO6hl5X4EDbeoOfL+b8gm9z5e7X8iT288PXg6SXEv6E8vf7fYiEopf6\nUlxWEjzqWWNfZnAFkTCm7ZUTryyklZQSYWhX6XUhDrStH/QYEv73+jA/kP33E+DPFHS1PJD9\nBnkiqX4h6RIiRY/hZSNYfuRlQHLcYzmXEGmjnFhFgKdCrXuK9hGAtJcUeS7FDrStv7C8cPcB\nSyL0932xrFc4t6w0fkVomQcsPTX1sXOxtakk1zBDSh718+pDjRrJJl2nXa6/Ck4kEt59eS7o\nknkkUkWj9o7GkZv0+5L//C+8wTq/oPr28WceCugcf2mVX/xk0pvehPYttnZrMtfQAKKrZA71\nMm5iJY2BoKwWK+AUOYEYQE0xnIHFMfGz848O7R2NE6OdOv6F18QPxK7Frmx/uWtYZ2DmD9xm\nYCozI5VZay0aMQEKOEcO33cyr3xHu05QTib6lQ1Ow9VEClHf9N/8Tt6xg60cr3cOu2T5mjyf\nRqZIpCiaYV1IaMlM2ma52rgNp8nhewyPficsf2K6VFAOO3un0K4Fc61h+vMBb/8OH0wptMvF\nccLpyI+R+QPfcZPQDiIb6sXIRMolPkA6xKcKsZPnDRmTzjXlq4n0921Jyd9+HT/YzsUCM9BE\nVOkdSh6lBH+Gdzwp6GVtpG+Sg4Z2rxZJKQ4VxXaf5GESb3i+BfMJVI6Px8/vn/r79t/x/khr\nsbnbFTsCyFxJ4ry0oKdApEGLDdgk+jLyxDxRroEQ3vecbSeSQCMzobuid7EFi86GdiiuRKTk\nDQfabeWQWjHJgESKNxIseWOps/R15EWR58VzyY1Lr98XnYst7m+Z28XaFkI73DOj07FvU7OF\n8eVAUAdwDRZuy7k5URKWOJHqrZv1kS82sENW2I0zgWMwPJEoIYp/+cx0Nm8SOJFqx5mr2/WR\nFr5pd60/lFfCHYhEFe80JbmcSR7alY7Tyzt4lBmOBSgnWMLYRJodeObxAcm6mEkJs6vHt0Lv\nYneED5k7HdLh8ORwxR/uvhNDE2nxRsC+uC4qNZoTU4ET6YBhsjlQKC3Quy7ZYgO13ju7kYkU\n6gr0PZRII5eHdjGcSEeMAuJOJyEde4CUGIRovHceKthN6OgL96VWyZhAv8Qu1cjFxYYETiQl\n0VRTWn4k78wF2sz2MZ/JFX9AsGnHlPZ1P1dOJnenwA7YiXB9nZrnwomkJZl4I99heVnB/IPz\niUd30Yyi1y93zEkFZ8jJRMLx71Tl6RJ7lhCOroYTSU0w3mQuGLD6tJxm31RLGnODelaxIe+B\neY4kAkQQWoyyp2tM2InUJSCXz0zodUK8Jl9gld83h5AoFUQqxXUqEk6Uk/fAPEUKkd7Ew+NU\nXQqufBOcSH3903xm+YivgPH7umyf4nZHwX4yhk5cN+ndynPklKqXtA2FOI9vTyiXb2mXGLET\nqbM75A/lPRX8wugOn4cwIuXtRyU8GYtI+S5hDwo7Ev8GCovzhENyIh2OA4nE+QPRSQzvEz91\naCAyPpHoFwPyEh7G0Zh4Ro9qPbQ7GseFdq9DSD6GLwGIKIT5rUP3z+GJNPsdIpL4bjF7hyjq\ndY0JO5G6BEDtkJ8WN5sVIsK4QP2dSJUOyx4E6J4mVBsEtz5dxh4GJ5KSaOGOOFOw0MQjefZA\n1kO7Sg8A3IuWw8CocDFOS6+CE0lLMpYPMJzjNzuK5LHHgVvp+ESSz1yx/h1URyU8zWluhBNJ\nTbAM3QN5KEGO+xyt6vGJxOLfKUqW6IoT6XycQqSQI0/kkIgzZ8by9yASMF1ihSb4d0aiqw3X\nibRHHhEkCu3ClklOKW4WS9DH4ESi0JieddPvQcGHtNT4WjiRdonLuRoWceDzo8wz+FhCImcv\nxiYSD42p+ElbFP1vA06kfdLY2wrxZQiBfQhIEiKlsb1mjDI0kUI4R7Wbibt1vGzGYJ1Iu6QB\nvuKfPGPCTZSV7aIbn/NQoxNAvMOxR87EXXoo2oVrzNMbsVgn0h5xlPFSyZtdozITMCotDXiy\nLCY0MpEg+bBVDgZ0PLpjDULAbCW4cyLtkYfZELBbu1xi2ZF4cigoRLVdnNHQod1+IoXNB18K\nItfDPB1/G7hjegfCibRXIts4J7qvmCFReoyvukzihSERtYxebNhNJKkjZNJEP0iWh3ZX4YDF\nLkVaFshRQDfJuy7q4nQ+zrDUqDQikWjP4WFxSDOZnijy65jdkXAi9fRPOojyEa/RpXHexN3T\nRJ/4+UkzuLuEkDuLDbjNRBkSJaBOJAPYudjUxvk3NqfF6zAjwGYY+JGUkB1NFALilHRuwoie\nLUTEYTNigZ2oLcR+/Xo4kfp6Q3yGxXQTtwIerE0i1INIhtjCRyfSPo+EGxDWEaKSTZwj9U7v\nODiR+nonRMIsKXzAQxmtsQeKzAomNJeJN1bBeDkS25hwb6JKg3Ty7D8TcCJ1dU9CO1k3iHZU\nbEaBXc4EpNwHFxtwx1nUxSrfonrzaiu3o8vhROrpn3Tgz4dYihTVZYHxSgYlR5rDeESa6H2g\nwKOQQJYjRiNwImlI5e/28wcf83VBFkGkQ0OTAYmEfod0yUJmlknaM1MnkoJYoB9AT5OwXsvi\nukmEdmnWpYlLQsSd5e9JKhJDYnx5NUgyZ6dOJF354SXWEKIgrybcR8lD3ZBIuf4VchXGC06I\nHidg7W46Wm0b4URSFo9pEgb30zTRxpr0uGFot88jBT9ECROyCi90zuoMOJF2iIv68wpC4FFc\nj1gRoYmriFSy87YciZoG9YVKDXAnbs5OnUh7pKVMwvSHbaCNAYl2BW9AIqFKuQ7ZcySUbs9M\nnUi7hEVBDO2ZmCBXQztuEYyFOhiJSEnMxirexCeTrmiBE2mXMCgGeFh2InaIljG32E6bNNsx\nQQV0EUkEss1ygoJmEUFUyDGZZ7Jrn06kPdKWCCQ9z5/Ei4dG7HGSNLk8kfZswRd5NvlSR05O\nsjngqrlLDhqSfqlvLifCibRDXHh4GPkldEI866GXGXBkSZtcaFfa3JOJZM/2raYsXVlOyrOs\nStChJ0+4TcKJtE8io1J0gZ1H94PpMndSTNYUkaKNSGseYCe65IgSdVZO7jJEV6leJz5atk4n\n0k6RSYw2YVSH1JEJEXdNa5W6ltBuxXB3o0cOD9IKcrLTpcQI0KOLl4TocYJROJF6ZeRsIIrR\nWLGW33x6Ti/lCFKtDZdpwgePzyugm0gF+pdDO96EXBp/OQSLDWbhROoWUQijGI8okksS5CQV\nJ7vZrHxDoR16nRqxxatSogUSiZw6f0fEiWQE+xdbTFrIzfCsKQQqccNMvFeUvDql0k59IZGy\nMyrmRXhGPoNdaISn88GAFTiR+iUUrSXeTaf09rPsCTdu8WnDjAq9riASj9/qcvh6qaIJnEnJ\nN5JSgXbM1YnULaIY6/MnHhNyiu4/D/qFH4ofzvbNp9TvEiI1y2ETx52FaIQxHVYc0prdZh9+\nCJxIvTLEngv8FL/nQJEKGw1NA7tzYm6aTnkdtolEK8clAKcS+iDKKp1IVqC6WLr/aBFiG6XA\nLnnKGPprJNDGQrsOOaLmgCGx9OdSW6lAO+bqRNojjWK01w8GDNjwvYfgguh7npsqde0Zt3Ui\n4VmK5ESGFFw751vU15C1OpF2iOMx2nwChEUsxAk/IabOhtcwO6hnm0jkaaaQPKaIkkzLcCJp\nSKXHr9wvoYGwHRcLUa+e0LurruYFwGmqg0Pk8LwHcizCwG4QJjmRFMTyF4Li3TR4nbgwPneM\nquOrJrNGJO6wLBOJ+/KYR/gUYaJdSWkKB8KJpCaY4hMsdJO3Imc0Ua0uDu0a4rZ6E8Ezs0QK\niwZ2lAvs8PQIVulEUhMcSnW8eseju3BqIq8kacGk5EeB+vVBiJSsPE2RJlKfeySDOG6xwTii\nm4/UwLiOh3b4qISVLSrbb0udYYDQjgI6vCBCYUB3PrEtyTycSEqiF96Q6wkj0DMl8ikgAzsA\nYV75aa2lR2werIMCjiaSTCxRN1P4ZwgeOZF0B4DY4Fk+gIkR+S/moyLPVJh8j10ZJVIc2kWB\nXaKuQSzSiXTIIBCdmU0CecQclUh9AKA8K+D21ToRBajLiYsNsr6AKxyFQjOcSEeMEjmOkB3x\ngI7YhDWIUN0rCk783do8VHAMkTAZTGt1YzFogRPpgGEwegNmK8F02EWRGvH38kpSb0EkGdql\nJBrTBJ1IR40UKlHsERJVxNmjJGIQua0gBaRE/m/THLTWsq+/rGHHhZY0uBvSJzmRVAcA4gR7\nlwE5gmVd8izotNjzWpoeJVI438GLDWyNC6OCe6YkqX2zsAMnkqb8QBV8WE8EQXfDCgY0PgV7\nIgRigWD/fE0SCX0yO44dEttfxoETSVE8PT8E/MxeHGKVujhEY3Edd0iMQv27tFUiSaYAI9PE\nvPJoTHIiaYqHhU3MJYVzIajBUaWl5OxH+q5uyzJJJFIHnhZOaSJNjWWKTiRF8ewdO+Z+eJZd\ntg/Zjc7V+qxMZ0un4+UAJAsK5GIlccVxz4ETSU86i0/yg9f9ingamVzYMJ9NvQ6Xw8r4y3Go\nw7CVDueQnEiawiF2OowC69WC9HkrVfQ2TkgF2qEddzesDiMD29FSJCfSVlFZWSAvZUoHZWkw\nxcW5EOzdKbTjyeI0Yc2f1TsHhRNpqyRIzsREit1LcZfFoEYk2XRm20zNEgnLdhBcEj6uHtcA\nnUibBaVMimoDFSLJA/5D+LP7EUmoCTCxpFcfRjVAJ9JmQYk0iC8VQzv5TtmySyce646hnVST\nYNGANW8GJ9JWSYXOkjBR8hy2YZYQobRM6HfHYgM/oOfUYc8Y1/ycSBtFFftmOQbiv5hI8bNa\nHZgmEttTMFcaGk4k/VGyPAp2My1Mir8u8DQiUcmbaWZgOJFOGxjYh1wcpz0f40RaTkFUYhkV\nTqSzRpZFq1wb5elcQiRegGuQA3ADDr3gRDpp6LT+cPiQF8iB5ENJzk34g3AinTj8ueOZJtIN\nsiIJJ9KZo586oGUiZUsrQzspJ9Kpg59pO6MRaWwn5UQ6dfAzbcd0sSFduX79/1Q4kc4c/VTb\nsV3+rrw+PyScSCcOf67tmPZI+esDW58T6UrcLrRrL3/nOl9+P3bAnG0dCXuLfWqx4X6wZ1sH\n4lGLdSKdikfZ1qMW60Q6FY+yrUctdrhiw9h4lG09arFmyt9QIdd98CjbetRirwvtSh7p3njU\nah+12KuINPiTVYfjGDiRHA4FOJEcDgV0EemQX+PicNwAnZyAO/wqE4dDHU4Kh0MBTiSHQwFO\nJIdDAZ3FBt2HWA7HXdD3rt1Rs3A4BkcfN5xJDkcWTg2HQwFOJIdDAU4kh0MBTiSHQwFqX8e4\nNx612kcttvh178K1IgF62HKCHJt41JdGH7XY7Oq2fM3BidSCR9nWoxbrRDoVj7KtRy3WiXQq\nHmVbj1psnkgbvnjnRGrBo2zrUYstrQ56v3h3IpEGftf1Atu6TlsPI1KletclR2U2LXJG/mrt\n+bZ1obYeRqTsyYVYl4d2GX4P/cseNtnWnk3uSm05kVD7VxMpt50+jki7fIoT6SwUidR5A48g\nUt4KHhba7aSCh3YnoUykCWwS6WHFhr0+xYsN56BCpK57cFpoNzROD+2uhBOJmLRTzgasFhuG\nxunFhivhRLqDHJt4lG09arHmCPAsbd96tY9arDkCPEvbt17toxZrjgDP0vatV/uoxZojwLO0\nfevVPmqx5giAckatVVWx27ZG0ooTyYKcYZ+eVLHXtobSihPJgBx8nj/SFryOPbY13F9ncyIZ\nkBNMZqgteB07bAvCpjKMPpxIFuQwEt3oBmy3rVkTQ+0rTiQTcl7brxNJtIShIl0nkiE5Q23B\n69gZ2qnO5XA4kSzJGWkLXsfOYsNYcCLdQY5NPMq2HrVYcwR4lrZvvdpHLdYcAZ6l7Vuv9lGL\nNUeAZ2n71qt91GLNEeBZ2r71ah+1WHMEeJa2b73aRy3WHAGepe1br/ZRizVHgGdp+9arfdRi\nzRHgWdq+9WoftVhzBHiWtm+92kct1hwBpJz212LGeIGm07bUF3WqlpxIZuS0v6g5yCudfbal\nvqhzteREsiKHfYliZStlLU2jy7ZoUUqO5GQtOZGsyAH+o9HmbGMbkbQciRPpQFgmElrQqgWM\n8tXRTaHdfvsPHs1Du+NgmkjBAmhvzg8Dty427CYS4B/o8WLDYTBLJHHPaW/OjTNKYLfFthZf\nu4tHX/9doB4nkgU5kfFUf4PDjYkE+90tVFz5oXAiGZCT5UaRMINkSP22pbFFwFXqcSIZkAMs\nsBcXC0nSIDepx7awgLJ3bVf97iEnkgU5ec6MQpgSOmwL2H97R71Ga04kA3LyHml4tNtW8EUD\nbx1OJANyxqkfdKGfSAPDiWRBzjD1gy50h3Yjw4lkQs7AMU0ZvcWGoeFEMiAna0UgLzZYmjVj\nbLGt5XWGY2YOZf3qf2dj5fhesEmkbFzDysFQapPvYQYNtqVYrSsJz4rXH9GJdLmcbKYtLKDp\nj27ZS9jXbYu5I/2ZRyrMXdIerXJ8LziRzoQT6bYwSaRCaAfALeGhod2+9+48tDsKlczlowAA\nG4JJREFUNomUNZdApEcXG3bauxcbjsI4RMKtdOAb0k6kwjLtRatlOJGul5Pbdyk3wkvDcao5\ntCt5ni1EukpLTqTL5eTNBeIag7kUaBWtxYYyYfrXfJmWnEiXyymYUfTFgpHCnAX7idTtX67T\nkhPpldZjar9Dzub5VHZRunRLInXUJDuGdCIdjmIgXrrYIWcLKlW7SV4C8auDxkiXdhcbWsdh\nnVNKnqQrJ5IBIjU1ZD5zkHTpJNuS2oh5c5aunEh2iQRyaoUjuzjFtlbeizhNV04ks0Rie6kT\nqTwG/cql4hycSNqwWWyoXGNMqiYCJnGCbb1IVP2avod2RwA2kCYrR2U2HUSKQv/7FBs0hqhr\nw4sNB6DokYoXO+RsQGtoF/0m1kFukrpt5V+lgtr10+BEQhJdSqT8e6uB5bG5jEGlNtsSxesM\nU9jCcyJ4MXN/qLEdTiQIP68kUml4INqIdGkIJjXZFtS1UKy4pA3mfWfjXHfDiRRuw5VEWkL9\nJA9a3loNJrSYyii/Bq/FtsTS0kb8FG+aa9Abn+vCiYTGfDmRhNyFQeh/gE5d9vutO9FBJLFf\npJfxIA5zBZHcI52GUnBRvtghZwOSoIadmF1PoA0wm8v8oTGToV57aPd1hRaaXMaDjNvisV8+\nRzpHN04kG3LiymHYXplxsNDmqvdg+tBmW+huoWmLSNwWQLFt6HCGbpxIZuTQHRePu9JX7Ng3\nqAP9QuZkCmu2RbHYslixmZReZ+0khnjbN7cHKSnNiWRHjiBIYBK3G/HrUFi+sLgua3dvxbYo\nYl3crCBSWFqef12ToL+FmcpTU5oTyZyc+eUxyFS+qQ+QhWAMqDkxFdRtK+wAvDxJdh08bU5O\n3xyYo5eHbBgFOJHMyQFYXNLUTCSsh5u6fT1ECpEsAGurQiR6rOBEUsMQRFpCOypz50MifnEh\nk7EkqT20yzwZK4d2raPLEDHSWDTMfjiRrMlBdwSyasdfhUHj4BdHI1LYMDCOzb5RGJ1rXiEF\niYyPXmxQwgBEkl+wgdyn/APZ0UK75QwutuExc8dbhlIbJ+jGiWRLTtg3lyMyM+6GMHugbofn\nSBt27lXbwimH0FTmLxkP1jyPNSL1Lme1vRPJlpyFNcsB7dKBPPlHRnT1KGwR3k4k9lS2PCJ/\n1tQ0OJSO+pez3t6JZEwOu2XIG3zprhDoh9DoUB71r7o5tFs+C2tNRoQpPLdtHL3igXqX09De\niWRNDn+TAYvggMEdliFYy+NTgIOIJN/vETThmWLoneeRrMI0+Swn0k6MQCR5OTgjHuKx9wF4\nw0NxSGgnrwqXmiuIJw+BKOhlc2yaqYd2+zAWkYL7mWgvRicVPao9vvB9RLEhuih/c1+p2CB6\ncGfB3FEDkzqX48UGgcGItDyYZSYGxKU0MTL2GKlkW/lpIgHCTiHYJJwPcPJkiJQLAA/XjRPJ\nqhx62Y5MSyRJS+B3YnzXibxtlaa5rEjUVqJ/5MNV1imVkBV+JJxIRuUIvrCYJrgjCEkDM1Bj\nty9rW+VpLtWGZX9gj9BkH3JWIpoLEpLHUfVB1eBEsimH8qPYXui7s7R/oyxTt6+TSBN7xZB/\nz7FEpILjyQ1wwouITiSbcpBIuQgmBD/TxHffwUO7xRXJb8pGoV1dQKoSunL41x6dSEblLKEd\nBnTsBwAzNFYlHrnYsCyDr5p7HdEnPofKIZUk0g9nkhPJkJzYXID8DhBpKHPq/xWxp2LVtkS5\nm5cnKQ+CqG3URfQtOyuQso6AE8mOnDiOZzUq8e2k5Tyl5kXx197NNdtiDnf+kbCEx7PpCTzF\n4sBS0Bc7JHXVOJHMyAFmCFizoiwp0EcEKtWApUqyE7BiW2y9i99lfgMSjkyYF2IXkrDqmeM9\nSl01TiQzcqSVBK8jnkVSTUvyqyz8yvu5RiR2bmFE8cXVlEikHNEvl0wVZqarGieSGTmZ/TVK\no4OLEg9cipMxTyQeisXJEfYohXasP/NkMQ9LkV5uevvgRLIjB3MGItL8Idpm8dH/yrf5jId2\nUU6YDdEqxQa200QhYiIwOzUP7XbANpHY/kx2w/IhIHcE4lRR/LV3c9W2BI/CUkWaGLeVW8o0\nkTJoz5FevDCmFxt2wTiR5nMhgJsPomodMgnP0s5sDQ2hHb/GiMS4wa4njiS0F5UJigBze8xh\nXtqJZEzOTJbwCT2S+A9/4EeTN65uW0m6wwsG7IkZdc08NSMVLAQK6ghSclM4RFXnE6ln8/zd\n3WNlbPNypMUA7blIIPY+WrC+48xjF6q2xeccbQcQn1gjkswW5efMFJ5HpA/teHYUIrGILcQ6\nYfOFTGiXyZQsxHqtRKJYltVQQPKmFMiGII6qDSG0y3MGjlKNaSIdnhEalCNshYV2yKq02MBy\ngkjKtWgN7eRSMFqTVGDFBrE4Ug9rNoUKRCa4O0g1TiQ7cpLClPA9vK61mBwaWTBD4HIvZ1LR\ntuKFMk4t61hWSNwiIbkAT6ojiGQVCzHWIapxIpmRI8yJ9tSJe50oaRLtWXxnm0jxQnGPQKfL\n7F9UUnihm/Vm/fhQxNcT9phdRPr18Qbw/uPvfPTv43Mp339nDqaf3wC+/VxGgOy5HwA/pEhg\n6s31+Dr8+NszX9NEAv6D1eoChSaWIkV7NUYxvMp1OY9KthUtFLcIXkqZQqojLF8Estg7eOvU\n7ywqimJEe6Hd93Bf/3wd/X2bD34lB9O3+eDbPALkzn3x7ocUGRHp7/vS4+/c48fr6K2LSUMQ\nKdz+kChQ6gCcSsxyKLSLoqdrsUYk3Ap4pYHCuoRI2AZk74nJYWMFfsZeyFyx4Se8f3mc399m\nNrzDtz9fJ+FvfPDZ4LPhn2/w/TXCa4j43Nuv6V8ikm24oQddgv/+TX/e4WPParfiEDlR1EL7\nyHwSgqsilyQcUP0lhytQsq04POOrDTsHUEtsTpyLe0fqwNY8ujtYNTuI9D57ounfa46/Fufy\n88uxRAfvc4dv8MWSpXV07r+MSEEk7PH+cnNzIDj9hrf2CRsnEkt5QoTDoztmbsAScupqIpzj\nKNpWuLsstEMaieSPOxpsyMRh70lciQalhgdiT2iHfb46fSxh3L8v044OllTp98v4l9bRuT8Z\nkYJIQeQno76/zv1lDZtn2tP4MjkAnDCTjNgElSamqRaPdG7AV7etwArMcYhTvBXQvzLUp+N4\nmGh/SYO7ypQzbdqUtpNI/37//P72GukN/tFpcfBOZvAe5pU7l4gUREKRL3IKBbdjCCKFUI6n\nC8x0lh887iHrqk/sZJ9VtS05XRnUAW+F6giOJXbQ6SiQfGwkUk5BjUrbQ6R/P95o38zuI8uB\n2GDZDpR2FiIFkaI8+vZEwuhOZNvEI0YcwBeFVnl0KpPaiUSxqtwPwgERBz0MObTE0YX+XFQT\nHXIKavZlK8cV/Pu0+bfvP//Ehp4eNBNJinwokVhZYSIiAWORtDhiXHFanHVKU29A3ba4aQfv\nMk1IEOoBYpncU1eJRPLCEG0TPp9IH/B9jraW0ItdKh/kWtMqpciHhna0+iXpCe6G8QhjILaT\n086dGYab5FlYsS0+0eBuiC/YJayJ/udMCjoigcQ7fq15xkmHRqXtIFJY7u/Xh+9L+eBl59kD\n3i13LhEpiJQUG2SPxin3NL5aDiUAZGNl347BX+GecoWehHbbClEb/7RckTsJJVOLD2ZeB/gi\ns96qYcqZDm1CFIj07fXhf7zi/b9cLZxTIHcuESmIlJS/ZY/GKfc0vlgOe3OTEYmxiUK8XMAX\nj5Lc6OM51WxbWHDETYI5HSJTaC0eS6Ngvl0EKZ2L3KOTHUT6Dt/+vZ6Qwivqeofvf1/PYJOD\n+VHqv59zkXuebe5cIhJmv8V7RM9q70yksAdP8gM3E/oYjDETz8gtnkY+nEntRApsmYLPYZFZ\n+Icas62ELSR45Gi3KY2Xn+92newg0t9lrr/eX/ZefkUovNwzH82ryJ1LRH6gmXxheX3o/S/v\ncX8iUbEh2Ak5IAxzOJMySX2ipayT0kY/kYAtEdcs6yjAG0zALIB1nkhB+XkVTu/QyQ4iTX8/\nDf3tx9/PjOb1ns+/H5/k+FierIqD1/ulb8tRWHjuXCzy64iu/vpIX329KZFEBkAGQVbCiMTc\nVdjO4yGSccwQie0PU+DCFBOJ32VqgotmsliIixKz0+o434Y9RBoP5Y2oFAW0y9mCkhxBEQpR\ncqHdQjrmkKRYjHjSEZQWUUSDbS3TwCXSbkCxm5wqrhzXLeSRiuKOrE2fp2qDE4mip31ytqAg\nJ0Q0LHbD1sxMiFNsJ0bTZMJytTwTxQYkD9UNwl5AC4t2Ob6PpKsQCVJ+jblueGUznEg2icRe\nXpDxjcwhhE3w9hOlDyHW05l0h7H1EQkvi4xJumTuhQuTks4t12DK5Iwlae1wIhkkkojTkFbc\nuQD+xwxQfMSYiFFQZ8bNcnpCOzJuYMwH5pmn0C51sFHwRycyqkH91aa9QVVOJNiwYx9NpIkS\nBGY7gRsshWA2xddAn5Fx+bF6N98uRbXYliw2TCHKw1ICI86ik/R2yUPiYEYdU5BYWASPjvvg\nRJqmft0dT6RgYowHQGwKmQASboqshe3htKvnh+mfsCaRcBpYUMGF4XkWy7YTKXXQ1B6mwmSA\n9qpePIxItSS0R47KbMpy0NeEqEbsosQhxqMJ2y9tWBBTWm+vI576qNduW7Q8Kp+w8DXwSIR2\nUdqTTrHYoLiIZQIe2q3icE+iJIfl2BS/cc6IyhQ7GxlM3C83fG9w196+w7bQSWC2hHOnfYPT\nTC5VTiozxXJxIp4gT9d64ESyKEfEMcDsZ7nKfRKP43KkAeomRgB+7RD0eKSFNmJ/mH0P6YGT\nhy1ceOEp87k6R9EHQ7t+cU4kHoTvkaM1n/k8j2Ai15MYHBIiH8aF5CPawnHfPwzNthXWyWNv\nEdSSX+JdJr52ucDWHSLuwzTYKc6JpBEQb0WLaTHiLJdCjQHw1mNKVaaGCOOOJxEfrXSMjnR2\njkvIxvY1qisAyLWFZeMPuUCx2LUZJn2gfGlFVOX4XiiHxhpy+tEQ7ASnNNFjJRbuiZ27JR/i\npns5kSg6i4mEDghtmGlgijeaPUTCSMSJ1IHjCaAmhwxfhnC4PxOPyBPVQhBudCK1OAxrtoWc\npgyQMr+Qq+C0mQYEe9jJDaFdRE7WsVOcE8moHGZl+WID207FM6ayRP4Apisl3IheIlGNjvYI\n9J4wcQ3Q0vcVG6IChujoxYYyBiLSBMyGQvVOXGQCmjfgtUFV0RnahZOAxIr6Mg20LrhpinqS\nKsf3wkhECllBKCvwHRq3bNpMy8EaO02Jl15kVxa0blvBq9BKwlKFVKro4Whbpx/3Y+6+0Cw/\nUpbpteN7YSgivRoARTW4fUbVhyBJ7NIsQpnEPi4zdJUllAS12hbnhwxl2RDAHiYpzRY5m5Ro\nIp2tyAlnqsf3wlhEogKWjOWCR4lDHRHup8UonkWphTQ1QU22hYUTNsNQq+RDYP079lWbZ7vo\njJ7Z5Zrl15c560QyKycYDWVKkyASD9AiIjGDE0YBwAlogUhikVUi5Ubr9au8fxCbcUlOpDWM\nRCR2o0U8MlFoN0UuaZK2x6/IRmZCO1qkmGEmtAsLj+LZfiZFOgppaKVZft6QnKke3wsDEimp\nItB2Let4vBkV+iZmecIjmSg2cBfEpaXFBmSRKEpLqS1LSlKvQpK0JtWLDePIYf4jubTEHfJ2\nMt6EPV1e542QU20GmJ3gSr/W0K4oNCINLgwvCQcFU+f+AFxmNCzfl5pkOpHsykEmZG5S8EiJ\nqUXX8qU9Cg0pyuum02p02GRb0bBcaPQ5OBCaO1MRaapAxPyJiYXK4gwTtbpOGr5yfC+MRSRs\nAdlzkTfh/oZRRJgB+ixJJkanzrmvudTq8YpQMQBOnMJSkG1QG1ki5k/MQmX4HLYh3GDapu5E\nsi0nic8mpMAakViWFGQxIqU7e+eyDiRSrkS3JDJlIrFNAXvIMeXbIawsKBTpRGrAcESCYjgy\nMaLws8ycMIcOWzaP56LQrp9I6z5si21xJxo5U8CJM//J2/Dz08TWRddF4pP9zKeQDlGdePX4\nXhiNSHnzxp21XGygf5k9BEOcwv7OvVqbuch5rHTYZFvy0azsO28OkQOBqDv1iJfEiRQLyRDO\niw1lDE8kSgKa7zKaDm3n9HHKmtbWMl5u9pXjWje5GyCxOiYG6UbDQjuWFyUPgJN5O5FijEak\neFMN2zHjUSKkeNszpTqIBGRO7cBW26LxZQ0AY7teMbkzFCKCLDck3Ty0SzEckaTZYGwSbdS8\nbeW2s3gOcB8WAmhEjRVuti3uRNnqekPQ1MeIwI894WXv+6VBQNvUnUgDyUnvqQiDppBcF8Sy\nDT18tEkk7CA3DSpVds8j6YFuWdBpyujYiZTB6ESCSbooGQZNdRaIeA5kdCekXR3aiR7A1hcT\nv2MaeSZFoR3tMWnLplEqx/fC4EQK4Yc8hbKWpx+lJGIJYWijj+pfJO3aYoPoIl7LxayGXW6c\nRtpQFhvY+3ZebFjH6ETK3FMe9k/CIHKjEU8g3WiLleSNzNphW7wwzZgUTbzRdUqnG8iz2qi4\nIWXPO5HGlsOtajWJ4PlRahCRWbLDjbHedtvKj82fMMkfa+KS4DXjt+NGpUUXzjuRhpbDbAlD\nnxWzL9lgdCqSvCkuWzmudyyNvYFIceeqw1kRXj1fOb4XzBBASw6/rRT6VMWOTiThhHun5UTS\ngRkCtMtZSU+4LeEDxtVBs26rEtp1vVLAJVSPp+Lq6mFlZ7EhIzkX2jGRHtqtYTwirW665QpB\nvUumYVHUYUQqrm53oaOIUrGBzSh+na88N9mxenwvDEekrVEVF5FPq2tno1cIDgvtFFYn5UF6\nvOqfgX1YdJDrV/KdzHPKCw3zHRcPJFIaxeQDF3Y2fKzkKW1DrxxrEyleE2Cg1tAHAz58NpvI\nqg7pRLItZzW0W+ufeB+QP9Kz/OeuSewI7bYgXhOuvDIE9gmNC2/cFSgf7zbxpdtiPCLtTRE2\nE0kY+WEPZDUTIBUiTZl3eTOy09NOpDvIqQ2xMbRTMPKzbUshtJuCU/LQrgprBOiWs8G4txYb\n9mOfbW1aanrcX2zI68eLDRyjE0kxp1gnUs50uqx7l22ppk+zxL7JQ/5z7vh1buX4XhicSIVI\nfb1fNrrPhXahXAV5S+6z7j221bbUHmpUHsLmthWeIbaEeU6kgeRsJFLmxieS0AeBcEq7xj+c\nSD28rj9jzWwrMvuB/LXobOX4XhicSE2Wk9tc1ylBJ2wQKcv+PdOpESkV5ESqY3QiNcQyqQHG\nHMk3C84IotrdivCVqVSPV3rXoi2SFy+2Fr1VHFI20i0M7KHd+ERqk5gyCfi/88ncfi9/Q31m\nducVG/LSytZeOsOuVUg2TTHNvNhQgzUCnEMkHqeBPJd0JwqtvakarpbfLz2cSPVgL1qAqHMn\nwitf40q3FSeSNQIcoO3yniytrLZ1h/25xqSMm8uEQOkEtqMhruRLlL/pm3oXxGR3IGpfC/Wo\nf+X4XrBGgCO0vRLAsIGrhKu1YAJYs6SHtm01xJW0RP47zfnkSuuqn5cMzbV0It1BTutwfFNd\nI1LdI11BpBawNw36iFT3VE4kCWsEuE7bq6HdWo50fmjXic7QrrhteGiXgTUCXKjtav4Day3Y\n5bOKDd3oKTbU5cS9vNhgjQBna1vzWwsNo60cnzCD84a8frFnwhoBzt6jzx3xcts6c72XL/ZU\nWCPA2VnDuUNebVunrvfqxZ4LawRwIh0+vhPpCFgjgId2R0/AQ7tDkF0d/l2PnXK05nMgvNhw\n3FArx/dC8Ylb6WKHnC14lrZvvdpHLdaJtIbm33DQcvVU26q9hdE1cPUbgJVuK8f3ghOpjrWk\non49vnqmbVVm1pcpvVpvSK6cSE4kxFqZq349uXqibVVm1le7A/mjcwaV43vh6cWGFTiRnEht\ngA2kycpRmY09bXto56FdE6wRwJy2vdjgxYYWWCPAhdo+7BFL9KUnfuWgEXvQtRN0CV45vhey\nxYYN8d74RNoQvHQLNmhbfbFpp+Tq8b2QLzYoydmAy7S9JZ3uFmzPtjqrJd2iK8f3QqWuoyCn\nH06kc+FEUoI1AnhodzI8tNOBNQJ4seFseLFBBdYIcBttZy1wTNvaSKYxF7sV1ghwF23nY6Ih\nbWtreDfkYjfDGgFuou1Clj6ibW0uOIy42O2wRoCbaNuJNOZit8MaAe6ibQ/txlzsZlgjwG20\n7cWGMRe7FdYIMIq2138ta/bKyvFlUHvBlXdcOb4XrBFgEG3Xwp3KNau2VZ/yxllaXewxsEaA\nMbRdS8BXr1WOL0JlyptLDWYXexCsEWAMbTuRWqVWju8FawQYRNse2jUJrR7fC9YIMIq2vdiw\nLnPl+F6wRgAb2j7q/VVDtnX8r1w1tNgTYI0AJrS9PZxZF1w9Pg+HLVEMUT2+F6wRwIK2dyTY\nLZIrx6fhuCVGY1SO7wVrBLCgbSeS3hiV43vBGgFMaNtDO6Uhqsf3gjUC2NC2Fxs0Rlg5vhes\nEeBZ2r71ah+1WHMEeJa2b73aRy3WHAGepe1br/ZRizVHgGdp+9arfdRizRHgWdq+9WoftVhz\nBIB741GrfdRirRFJQ+Yo/RwSu/Q4aOeDpe2TOUo/h8SgXHAiXd3PITEoF5xIV/dzSAzKBSfS\n1f0cEoNywYl0dT+HxKBccCJd3c8hMSgXnEhX93NIDMoF+0RyOB4HJ5LDoQAnksOhACeSw6EA\nJ5LDoQAnksOhACeSw6EAJ5LDoQAnksOhACeSw6EAJ5LDoQDlF47mL8F3fhUeQtepryv26xpS\nDqT4rf1Hgt+77Z37e++6fayz2s0/4s096BM8L2ru09MVWOP2fnKgzqk6IvB7t63zNu3vun2h\nl+p9v55Iszr6NSMa93LXiaQCce+2dd6h/V0CTBMJ2D8dgjd6JOrnRLoMezwSv4Hbxt5FJMNf\nowj5SqfgXUTaNKQTSQv7ibQ9UdlLJNX8WN8j9S9vt0fqHRI2T9URQccjbc2TLupcEKiMc4m0\nZcjNBHQk2E0k+WGIkesS1WCeSMB+OJF24jJzBvlj48BGiTREaAf004m0G1eFduIuntq5KlNN\n2qbHZLCx66Z+4Ten+wNZFfB7cGLn6C6e2LkoVE2Sw/FgOJEcDgU4kRwOBTiRHA4FOJEcDgU4\nkRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4F\nOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwO\nBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEcDgU4kRwOBTiRHA4FOJEc\nDgU4kRwOBTiRHA4FOJEcDgU4kRwOBfwfomzRz76nmRcAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "pairs(~ horsepower + weight + acceleration, Auto)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 451,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nOxdjZrbqA5VO91u7263vP/b3pmJJR2BwICxgzPoazPxHzqAjnQg\naYfCsmXLDhs9G8CyZa9gi0jLlg2wRaRlywbYItKyZQNsEWnZsgG2iLRs2QBbRFq2bIAtIi1b\nNsAWkZYtG2CLSMuWDbBFpGXLBtgi0rJlA2wRadmyAbaItGzZAFtEWrZsgC0iLVs2wBaRli0b\nYItIy5YNsEWkZcsG2CLSsmUDbBFp2bIBtoi0bNkAW0RatmyALSItWzbAFpGWLRtgi0jLlg2w\nRaRlywbYItKyZQNsEWnZsgG2iLRs2QBbRFq2bIAtIi1bNsAWkZYtG2CLSMuWDbBFpGXLBtgi\n0rJlA2wRadmyAbaItGzZAFtEWrZsgC0iLVs2wBaRli0bYItIy5YNsJcm0mfn6N30R/Wj5qnG\nh6c0GQyq65Y7AnsDwfdU+nghe+VOPiby8x3/qH7UPNX48JRG0ImabrkjsDcQOuKvNHRV9sJ9\nfMzigQl9JSKZTlR3axGp2l66j4tIYBrjpxHp84ZWHy9iL93HI0R66PzOh2c0XL48jvdokd5a\nRaQWH69jL93HVZHA0sEYXZGI/7za0NXYS/dxEQmM9M2pRGr18SL20n1cRAI7nUhEutX9WkNX\nYy/dx34ivaA+aZR27q27A7Gk3UvaYxbXB7Kf5gzGeR/I1j/xKvYlOrls2dm2iLRs2QBbRFq2\nbIAtIi1bNsAWkZYtG2CLSMuWDbBFpGXLBtgi0rJlA2wRadmyAbaItGzZAPsSRCp3cmcIDj08\np8Wgk07snhjwxIvZq/fv0xaRrC0ijbdX79+nLSJZW0Qab6/ev09bRLK2iDTeXr1/n7aIZG0R\naby9ev8+bRHJ2iLSeHv1/n3aIpK1RaTx9ur9+7RFJGuLSONtVP/oyTYzmgWnBGcuNP0EmKyd\nMe718Cn/YcBeNr4YVE1xuBBSdq6OttvV0mwEmJRI9BRkO5F7NagKIl0J6SQidXZhNgLMSSRy\nrl1g5ci9HNQ+kS6FdA6RerswGwEWkRz3/vEiUunwUKuLSIPdL2lXcL+k3Unup2pnjPu12VB0\n792zNhsOep+snTHu50Kz4JTcz4XmZdoZ4x4On1GSdiP3WlAFOBOMThOC8XhnI8CsRBr4kVu9\nuZELOC5eJOWJJECuHKQDROoduNJ/cd7T3g3aGeNeNxvoGVnXi9xPIKSXnxe5ZisGwD0JToPf\nAztzzk4lTMYAm62dMe4hVIiuZ5ITufSojRoKMxFpwxeuodPlRIof418ZPXQeZmtnjHuoSBq/\nT0OzVSOCX606lbSj7Zco0zXALpd28LvWpREsxkNstnbGuJ+RSPDLjefabFAqXVMqr95soGAi\nABasi0h77ueWdldbgUgBAuuqX693hEid7jACtk4uaVfjfr7NBoLNhgngxEdkFw5XwrmCSMYJ\nGXLNRoBJiTTP9vdTgKj7wjFFiediOFdUwCh1RLQa5WWqdsa4N6uAKSqSF6NXAdsh0nX7da77\n3t2DQbfPRoBpiXT1Flns3juWs9cAq4Fz4SgdJtJQrLMRYFoiXbOAzrp3j/XkJcAq4Fw5SkeJ\nNBarPzft/wz9xYlEF23pFtFktJR35SlwQsCt+dPtdCIdJgCVLja002NzEom3y56LJrO6n0na\nXfkhwdnSrm1cF5FK7gl+zLLZYI+uXN/vE4muHKaTNxsaK/0iUsm9IdLVWKqJdJVVEelGmw0V\nzS8ijXEv0u45H95USLsn/ruFnLS7BEvqfqxfav3C4NpsKLnnijQfkbZvOFy6cMvB0a99XPo1\nqrFEsqs7au7LqP8o8pWJ1JydTkIT7EQzpmeVABC+/J3VZ8I55hc6ELo6Uri7qaEXJtL2rd9J\nviIkb6QOPJlIst1x1ZdVM3AO+aUNfv+i2F0jdZSplyZS4O9cN6I7yr0dIllpdz7R94i0P0RD\nMR4nkob4lioFHzVjzayRmpG9MJG2RX37guSwHixJO/4XUjj1h5x1w2Fpt/8vPMZiPEwk/QdG\n/K9kgEkdk+2eHtROs81IpAAx21qkjwqO3PEGiCCaTx+8HBz5px07yWYwxqNEkn/PiwWeescz\n3+u20vbSRNKK1LJWuoBIoE345IlWgCPrgSipp/dPRSQiJJISi9rHs1yIW1CNsTmJJEvGpv27\nE6WdirtI1Z85fkUiJStrB8zs0g5rVOt4zkaAKYkEMRL9w/2d1g72pq4E6LH3zEArw8FsE/BF\nbxlbMcdVpCC7JSEAtfRKO5pum62dMe6VSBwFl/6b8yYinb9OysPh1RrLXxfM6Hp5mEgRb0wR\n4n5Up83ZCDArkWJ7Bhq7RpKFm2TOp0k7/aRNBycBM5zmfUQCLYy7C7JS2t7jgriq5dkIMCOR\nKKHSRTj3SoCAYUjP2WwgGCEgdARmDiKRTipOpW6BgsbjLiwiHXbP4whrJI6QK4CWSoDuyYvW\nP5vfWSIpl3kZ6QXgDNIOVKfUHSG9ojbidEm74+63ITcJlxdL16NBIkFBMn8uhkOCJCCjSQcO\n7x+LbgiReJ2kn8lFeWBtNoxwj1U/qkpPQBNJu7hKno4qhQO5HL4cANLuTEDHpZ1+rA2ro07o\nsxFgOiKxAoCSdPZaJIcGj1NyP6EiOfldK/bVu/G1lUM/52KFYbfB3WLajKbbZmtnjHtdc5og\nuQplgUhOTXoWkSTbQFxOTCS505RRKa694zgbAaYjktlrUN0SrihLJSIlBSA0fHtpFBzVcIpH\n979OLt2d0k5oIus7LUvM/Q7UsxFgPiKh9oeidP6SZIdIWJA0u14MR4kSa83AkvgqOJVEgsqj\nMysru/7KPhsBJiRS0KFm3cKXTkabI5ItAWZT/swqkOe1xGFEpHAimoNEMi/I/c6JnY0AsxIp\nUXaqpy9Dg3AQFqRYkVtJUwNwZonEGgmpLcpPPI8eqgYiQeHU9ZB+tQGSkd2TbYA8GwFmJBIl\nqXZ7OXvL2Y9cUCeW3rw4cTANwZktkI8XwrgkXbnJKA4eqnoioWvSP0bMSVmFHbsWyLMRYEIi\nWdHyOGO2TK9CoxHJtEFxx1FBuQcP4ywQCWFoTWLZNA5CAU6+bUJyCGl0swELvNb7QAbyXnGa\njQDzEcluNMhwa766nEgcGImUCipdnAdPIxIOkdBIP5CZgEhxaUGQpAUJyKR1Slovg5+NANMR\niXOUKCjWUYZMl6DBNZLlkdm39XLnqdIuYjTsIJri9GRpB9chFcWlHOiEOWk/DcxGgAmJRKlp\nknvGZoOJUsum7ISfttmg8QipRtMNjNHzNht0aPg4BNhuEMhRL3CjZMdD5iKmuUp7WSIlTJKE\ndj7UXEV6JFiPSKeWSA8O0yharymPUq05auDqieRIO1Z0zBej65j9lknt0o5KFxva6bHpiJR8\nGks9eWYIGl4jPV5STGeXSAeOhJyBIpuKknAoeWo4nHK9iG8mHjARd0IhIBVg7dlsWESCQ5P7\nYwVzLRpLpLQinT14BSIZJm1jxiDtoxKqo+HUNcmeo0162H7gchWrO/P4Lhp7bhEpRCUp2Hi5\nFo2Rdt7S7WRq56VdiEdGfuo6BB8awvkeIvGsxeOHe3eKcMsJQQhUmPRFpJL7bRApLkocItei\nsTLDWSSdPHwuHCPsmDY8RN5y0m4rj4Oz2yBsH3KtxCmVFID32x3HqLjuu+/Ib69LJBspoPXO\nB5uRdsQL4WT1di6kHK+TVaSEn7uRGIu9QXD2GiTjWYmPKck2opt6/Lygd5rvIE0G5hCbjkhm\noEnmQ3l07eqepWZSkLz4HAwtT6RoHems3+MHL5V2ymd9I1mIa1NcOQEnFLKsKs1VJKfZoj2F\nSO8I/6Zvf4fwk+jn4/jj3Z/Piz+/0du/raGUjCSkL836mHzOLExe5HIO9aRdNGWjoVVWJD3U\nuhk/OQJXNZFIJzLaTySD3Jn9+MPkfNX3Tu7Jwdp2eqyRSH9/DMA/bx+vP+X428e1t65KmyFS\n0NAIUqGijHWCFYkkm0qQ/KPFyGBoWSIxW8jUS0V5Co+qiSRTaJgfgOigMpwHAxSV/JjenEhv\nf8Ivfv04/vY7/H6jX+H9+O397ffDRJL8b1JuJKqvJJKVF6YOANV7prAPjuIQ2kixFvWUMPzK\niiQ1JcIrVRPrk94QpIAZCuYc3ZxI/32+/gmcUv59f/ebvn8UpN/vb49LOx5SE66gZS6Xdpgf\nQzAEl1ggmcNrpB2DQlaHiFdkHxsArE3aRadMXkxRksx9nCuzmw2lc/MTyb5CPsbU3O8eRoJC\nErTbOJ/Go2LkyjnSzI8rEskBV8LB5G4GLJhQHMPwaiKl4wC79HbPgXPVdpM+XMK7u3Bq6ewX\nIJKTwZ5JJOm2xYTbd9cRSYYbOGSB6UjRoDGrJxLehaOGIIOOnfLr0e4O72lo7Z+ESA8998bS\n7vcoIm0rExR1wqSuvlcBK2qp7Y8FpHUgDJ3eHTiayjU8Q2akOPeblrqGsIwu94zUHizhmoOI\nl1M8mnvwsHoNsEmI9GY3G96GEclZjGxz0AqaG654qFQCHi9AHMz8EgJDmZSFAyWQLAwjOYP2\nm+KGOnB2EAkixc6i8IiJZlBXtPlyRPro+9vH8aDtb/FjxxwSWCtoeaByjqJj1kcPXFGsajgE\nGrYWKcIJ7EsEUTRCOlLEPXB41JmMSujcRxgDDBquMvEK4IS1go/j9aRd+EHffj0ujvlAdnv1\ndJ2UpM4Y6CISGVAQpRaSBHcztDY4ACwSmo4I5rSdCDuv8WY4VRVel0H8R4nD3GHgmLSKOUnp\nOcCmaCeNm4+d8APuUbNgype3sERt9dMl7SDm4pQfk/sBrhVYGxzFRVs0mbFJilPapBF8h+DU\n5CXFlQwcswoVqfJ+nytTEGBUOzBTRP8L4c+Pz28O9btHIjkWdPQPQK1GY4kUdM0cbTeYpdNA\nKxBJQy3CgQPl5DkRWsfhVBBJGCGUEgFseYViTgb0axLp78eIfPtzyL2VdimRJHqGrkVyaKwa\n9yFRJO1G4qqQdrYmYbKX4Yob6EbYTSTSKbVoISuZruFyMzeiUxBgVDvYyV9vRN9/NvIoMzlJ\n0peMz07Hpv4MmoCeJGgTZKKWymvkMXD4rcRoOkqBYADTBi4k0lZdtIxL3QaqRzCheG1efEdT\nEOCEdsa4j1YBXvrnJaq3QDvamVLkbqhQPykmINnAES3AkVNONbKn7M1HJryZSFLRTTFKZjZq\nyWDMj+hsBJiQSFvJsWOtb3hJ4j18sDf7RIqjQuUc592BQ9pApLRM6njB43Qk17QTifc2yEg7\nLqe5qonUyRf52QgwH5G2ouMEhlLMUynHdIuHxhyLT8+UYIcxVMLhM3ke4UDJ00ewdVQkHJoI\nmR2+qNlFpIPuNVpDSPK+BMaDbnHNLwdKVSrORq4V7cm+g8r6o1m/Dg6ciZQmyE3BhE/bEWsD\n2kwkGJNgBsqIjlin56Sdt94bYLO1M8a9lhoRccgjkFGN0q5O9uUiN5nbJP/r6v/YOqQKjjmV\nMjoaM3w8zjxNQNuJpF5kkDQZ6shRNMCeEPDQD7HZ2hnjHhgCSUvphJOjFYminxk3lTOfHkdP\nu9qE8Y1QmDtw7Dnxnlq020CURmIL0N6K5GmLgBKvCAWEQCy1h9hs7Yxxr7rOXZBsF620k4nZ\nczOGSDL3cUkyuHdd1VgNkTDjBEWiqFg4JZXyfCKxkOPMiAzi0qRlk9pmcDYCTEgkfQ+6X5fO\nOjfCo31BNUzagUyxKxIl9pXS7vM0bMXYHUWO0JDqpw6g7UTS7GYIhHRSaI0zOBsB5iRSuiKF\nnL/dKctYDOG8o6p5zx2bgMgIKZKadNbc5NrV2Ey3ZwIH8TZW9rkjcOoettLOWcMpm3baXJsN\nDe5VS20RYII2QyRNvYPROA1qGvVW+eM4VAlnOx/VIa5BNgUdRtdDJKZvjuus/kSm96Lpttna\nGeNeFTUzCcfbVHdhD8/KgK5URC7Jn5RHY0A0wRFIukICRKiHj7O8R9rxi1crhe462Q3j596o\nwVBtX4JI0eDjA1CHaES69dBkK5LHIw3aYVZHJB0oWSohnbAYXF6ReMqkKiWyeAP/+FHbbO4+\nKl1saKfHZiQSZiZemErxl/MsCjI5qCdqaogUIslpakG0Hh5bAspEwj2HaDtEdScdAdUl7SDL\nmfkyizhMkotII9wjfYIdd6hKISiRchuoXcWhWtpFFQkTLFF8a7c1SLuEMcnyXpdJvVTqJlKA\nscmMG97VhcaeW0Sy73V7NE8kmQcWXdpQs96ridytyWw0mLJ6rCZVEimRmuw7BsfLzJZ4zbuv\nlXYyTYHn0mZHJrfe1YPGnltEit5ajY13pETSKhaCzkpT/2ojN2glFIZLNAjVDlOpmkjB9F4W\ncdm6GWvQLjiVRGK2oCI2qjPgiWPSbm02mMNIMMMQQwAkRMLEF6A8HRnUEpGy8UnKpHTZ1GQN\nRCIhEsetMtwC1MJ0EE61tNOByRObMrjynNDnjtnrEglqD38CwjzC+4ljJ5qOINJry9LwRCOa\n4uAgg+VHwGiQAOod42o4W18J3hlwSCIOPqzfXXDqno14JHkRMyOMX4SoQPhsRarH1tCN69oZ\n494IONxxkKVyzAtkkEYIKJuk7Xo0ddIOFtSBAkGUIrV6rIFIJCMlqR9wuem/uS5VEwkHHSSc\nqUkKAJVeyqOsH++0qpj93ux3o80mJFJEFyvSdKwtkTRu5aqdmZpMVa2l4KOaOEJV0QHN+ka5\nBo7mDnyBHJ+VU1UjUnBfrI+KDJwlTObZNHdBx7qI1JgfXpZI8ThAvScYXr7NieTH1ejESCKR\nad8IqCCQNP1qim4UeRVwKB4zTPIpPEN4ifRKYJVEeiCIBylAPZJ32536J9YPBU7kiRSaEtfL\nEimuSKjPJIEpL6Iki3faM+OknamEHBmkQCVM+QKDaEuVNXB0OLSbLKOUQnHZ1vdBFnEVwOqI\npApT5ieoI+ObRLcnKyR9vBKNOdeSsF6YSOZ0fMgkkpGGxYmlnJ2bdCG7j6ZIpGACVELDUAhy\nbdqVfWsgkj3rECkqS4HMJe5QC5zM4DBj+D34xPQm+cUyThvfE8TuRSpdbGinw6YjUiLtLK1k\nfFnURKHBN+L8bcfNaErSDnSKhA7Zn/a6ifq6lFkBx68le9JOb7BRX0ZVQyRObUxM4YyKOPhh\n0ovtym6RnI0A8xEpnk8jnA1Xth82RviiYVblOqCSSKyF0lC1hcqGKwRHnZSqguP3ivM/kMbA\nDfBORmcPVQWRSJxrbdJak9bG7RmpiEcrUofN1s4Y93viQvKnOakBDCrZECuZl0z87RwnYDiR\nS8AGRYK6Tson3FLRdgucXEuIkbltlC+GtXIg01ThUMsLN2qznBIWYMD9pk23/yX33TZbO2Pc\ndxAJlrL4PE+OX5Eyybcrcrk6PfSLhq3SBtyp5im1LUm6A47blsGDXMLCKqWjbnTiaRB9Bn1W\n1WvpLONF8ihZr7tFezYC3ItIaSrn0M1WJNLDUjuu+5rBYSKjZIpzr9BGatUWQr4DVDytcJzW\nhN8a0qYm2bKRqYbpKUoOHk8TiwRS6RiNiVA7BHixo1HMND7ALputnTHu99CkC+JtBrNEEvWg\nMg8v2PZqIjcFEBMpSNRi3kfXQQLarU1jiRQYkkooGJx42dJOpK2qoFLD2oM/lDwkNxoiYbJb\nRDrgfheNG3WgD/BGDAsNWApRvFg9sQcnjW9UJkJrlS7II8nK+gilDWKf9uBUGBRHYlQQ1lFF\nUmHmNeQcJuMvbpICGLREOY9axxkMRwdj/nbGuO9BYzJiUpEktk2Ui96xTvcjN83WyhZNydtN\nELd8RmqRaStlknu6a66kSkC5JCxKph5pQc20FB/KoKJSS1tWTRDr3ABJT+mTq4oHB+MG7Yxx\n343GToONEzl63CgzHSTKQoDDIhyPSNyqsnR7H4MQtccYY8YgHavg7Jtweys/QQqyrVSYeKia\nSJJANEnweKPYhbuCdtGO5SLSSPf9aGJFYkJYmaMVBNUFqabZg5PeZQSKhAioJlU0EsWKMZUz\ncH0fzp5Bk1I4nUqEtcNwueCeO2R+BB1P7R5WbAr2TgcqjmqxZ0NstnbGuD+AJl6qaobVbCmX\n9FClDAjDEpw0xoiSC+hXAxTUHzxJJnaQWseJJBU3yNJFipLDKijVfg6xh1p8tDYFfAtNKkeh\n8lgv8QxWdG2AzdbOGPfD0MREgpIUIl7p0mGIltrcBxLiAJJoKRcFkl48gUjqxPDbMyYddid1\nr+sbIQfTI62A8MMOf7fNRoAXJZLkVhUbKBbi9/XSrs55EB4BmTzpRsljJ0k7OANLlyyLDJN0\nGJ2mE6UGJ0nKTHRywEzPRoAXJZJIFUmbZCLUViQpSmV09c4RATNayxFkb3QB1333PXDSYiLV\nscQkHhHE6cyVXVLpGJpmTEUyIvCIzUaA1yUSaHF7YEM4eX8cDhMpUmsgajJEilwOgZNTZRri\nSi3IKnVEyvuT/BU1z9cWkcbaedIuqkEq7WS1zRdEcYwiktU6yidQORCcuHSTNO+674Pj6aho\nm4Fj3oo7GSbtTg0abiKY5ZHRdEvaDbfTiCTSTo8geoVIHNXkzm43HNU6sERSdWc4DW7IRtmo\nAuk8Z8WcPREk9EEap+5LRJLORs0aEXjMZiPAyxIpbdd5Mapl4K6dj8DwBMmS6DkK8enBcFxD\n5ZUeNki7raM4qsOxz0aA1yaSCLh4hc+p1q5ZzolcUY1KJNzrCKj2LiFSrh5IGWL3iKueSCII\nZVRRG4wytz2ssUfaGYXnOjuXSEYl4TuCWIWqdErkkhQ/st7wMoTacGmXAeSc1yWTnAitRMKO\nmh/j5zZ/rsHXIlJl47YEhaCbU+b80M0GFwQvuC0aOK/7Hxn3gwpkpqkHBF1Jbod6b31F0qKW\nlP1htohUcj8UDYSEciWYc1FQnUqk7ClO+4kmuZhIuKVIzr21RIqvEaSOcQpvEankfiQaIygi\ndQHqBX2eKe2ypyTOKL7zWmmnfE535D33JWnnnSH3WrctIpXcD0QTFyGbKWFfvOB+UAlIm4FT\nIvbSPeaTiOSXBahFWBljpBVo0uZJP44dmQ4812uzwTs81HKU4Gsm8azILXhM9Oez4LB3AlhF\n983RWiJSu+SjDtK47Rx8fnQ7Y9wPJVI0OxWy4nIiUQh2RXKFtCtgSTHl3Teh2ZF2HZJvNgK8\nKpEihfJ5arf1q4kUZ/9LNhvyaJjP7hcZDs5V8SsNPZJvNgK8MJGOZ7lriFS+XDg+zU4gUoe/\nimficx16bxFpv+V23b1zPNzKIJ9GJB/XeXM1TNp1YFpE2m26vbFnbDaULu4cn2iDNxu6/O08\n0XC2vZ12e10iddgTI9ezueHMheZl2hnjfi40C07J/Vxont/Ok21mNAtOCc5caPoJMKidZcu+\ntC0iLVs2wBaRli0bYItIy5YNsEWkZcsG2CLSsmUDbBFp2bIBtoi0bNkAW0RatmyALSItWzbA\nFpGWLRtgi0jLlg2wRaRlywbYItKyZQNs/TOK89EsOCU4c6HpJ8Bk7YxxPxeaBafkfi40c7XD\nv3NqUNut7qebnCfAwf+ObwSchsn00jyeyc+V/b+2romfmYlE8OciW0RKPOr4D4DTMJner0g2\nj2fnarvL/jjbJiYSlKPLImgRKXZof3nTQTgNkxn/fr708dxckTwOP063RaSc+0v9+raItIg0\nop0l7XaOL0GwpF2VzUwk/vUbF8bPIpLxR8/bbLB7yslvD0zdk966Nhu80VkVKXt8vvtUWRWO\nz/PtxoA/V8mtqyKFWKNfYItIkTeKTxSOT/Ptr3PcufJBf+k1kvxCa7qqOodFpBD0w7snE0mF\nHf7ysz1ph6DhVy+fH0DTEomSP1fYIhKM+FOlna7NIAAqNhsofrfl4bPHblYiQS26cgf8yxMJ\n8n6yzXMtkYA8tihl3Nv6JTfLr8M9efCmJ1KIx+9UW0T6fKlalJxLJOeljkhRC58B9IWJZBTd\nknb+8Uk+c2L6UjiJRIve7s/VknbbO/wE46qIXkQqfFP4Wjjur7Kt+9KqvZnoigCal0hPsUWk\ngs0NZy40L9POGPdzoVlwSu7nQvMy7YxxPxeaBafkfi40E7UjX/R6fKD2lG9MTTY5Y+CYJYf5\nOl12jP1tvIGjE2+023/AzQjhZ+o+Pkwjifx11xiblkhk/lz13dUvQCSzCUako5zfHNXr4+HE\nmBgXMEmCwPwsz1Wy1SdflPEcjunClO0AfbY/lzDp9YkEyZx0lLcD3wVfOI1IkWf+FJXLiEMi\nBw4lB9zLrbnkQ95R8FP3T2wn/s9YFpEc92cTKf0HQOaRk4kEYuQIkfTT1y9JpKSdJe2+nLRD\nJnVLu7QvX1vaBVuO1maDd9zZKo4xbDZkKxI/ckqBJM9BdrOB9jYb5Ap+6/VLbzYETRvXfDSd\nuE8Pr7bzSgC0iH/KLk6AQwkB6m537k7aSYrSqTYxkTC5LCJ5x2McSH7fC7fxcPywr7k9dR+L\nNtv26XN5CyLlNcdo+9JE2stWpxKpJlXWECn+ZxTpc+fYxEQyyeWikP5iRIp03fVwGmd2X9r5\nN39taQdJan372z0e4QKK0u69O8f9/rtu352rzLfGz7GpiXS9fTkitdjccOZCM0s7+Vp0bm6Z\ne3LGwDEjWPyA7sp/ap7fUcp99FE7V/bpva8V9tqcRMqvjk5Wu1+ASPE6Iz+i8ZUzibTRyGmy\n/IWLfTS21e1ofBhNSSR5SbZbzt5/eX0imRH8jKdcUPmDPxgONKXf7bFXGKSLbxeN7QVJk6Mn\nd2Iima818HevIl+j15MvQqRYvfHP6HfM4Z+M9yuIJN9X8H8THmXEXS2R5FsN0H95l2Lx3tZ0\nouXmy9oh88d+d9Up1NHbw+5zh1dbb+Q66k2G0mYl/FNu5gCcPbRbRCdEVx65Qd0g7eQLQuIr\n6BjEN6dvq3rRcO+F7XBnbVGKhxRy5qBi/RJEitUbpKTgRGiSnrQhe/IcIm0k0jIRs51nPoUx\nff8AACAASURBVHmwCg1889sWY249aaMvoCYlUlKKyBvORaT8Y7tEytf5wXD2WgUiBQhypLur\ns5y58u+yRArG1csTKSftkruXtHOfGyHtRsHZaVTk1mFp5/bja0u7EPzNhuR28t6OcO8dXm3d\nkTtks2EcnJ02eWYdGhFvQ+zDye7FJZsNOBLOzc7byo6MsNPaGaTZ+tzflUiVTTe2dxaROhuq\nJdI1Nj2RBmm2PvevS6SeYT1J2vW2UyntLrL5iTT+2xz17l+YSB3DetZmQ++D6eGVoRLZU4iU\nXfLMFrpzoVlwSu7nQnNJO5S88drhBagsDQMvS0/MO3NPziE4rTsLrsgeB8dsIei+HSbZXLL1\n3WfvtPsHpOE0NJamJRKZP/xxxxYHpwX46xLJjmfl7efBCUhpJbjZ9d5hfeVcQU8IqCQ0GjTH\nsxKJy1FEIs5jZ0X4yxLJjOR+Q+4G2OgCiapDxEb0+VGBSXVzBT3ZoofkJQyMpUmJZHVdwHFd\nROpoiBqIJGn6yUSisUTi9i2RhpWkp0jE8mZD/Jl78ili8nn0OHs5IuFiw3zImb09LwBHSzue\nSV22JFPNPPIgt0i7NIhY2vnDcXxLs9fGtSP50BuB/VA46r50eLUdj9zMGBZvD5zOxsN5PCbk\n0KJg6pB5zw/swvHRYAVKM7K+Sdpq7dx0FUkq/vbGI9F5NenFiLRlpHjxUZJBBeU8hkhcZnjF\nq8IujnJhtY+pZq646ugOg4Senk/iyRW2e91qu31IO8U1kmTE7YhgCPTnWTH+0kQKe4Nnxv4E\nOA802wuse2EBA9TCWKhQmpmFAqzATDK2VdA+fmciRQmTq39G2g0EnoHmHl5to6VdoJ0khGN/\nBpwQSQ6oB4IOFkzixZUg9USKpWOk6tJ4uom0K1Ykq86NKEmK/nh7NSLpZgMGz87tJ8IJKu3k\nHeFqOOApcUO9mw3aHiiaoEJPvSYgW7vV+sCAdnaIZI9xB5yrUUc/W6FlAV5pYyI3IJ0mgKMw\nmDfRix7pbftwMjdJZtZXoKtS+qg9g0jFzYZBeDrtRYk0xuaGMxeal2lnjHun4OdXEKOg/865\nn2xwJoMzF5pr2tGlzml4Om0CIv0ATRO7GOOh1+aGMxeaS9qRTZKKNdLFtk+k/KODoNMiUp0t\nIh0k0mk7Dan7lyDSsPE6h0jd8EYQaVws3Y9I6V7lQMtOzs9v9FOl3a/vRG//hM+jn0Q//4Tt\nwj8/iL79/Hjgz/sT3//9fPb97m+/wuOWv+nb3+HzmfjSfz8+n8RdmCGRO268TiFSP7wBRBoY\nS88iUu6h3ZwPW5lwttbz3r25yfn+Ed4/mEh/PzYdf30cfb7/FsyFD5J8+3z3Qba3z3dvQe7+\n541vwkvfHie7iRR/QgSfZ46qHS1w/BZIf8DnNw7sdjgdYbDFEsXnS0hy+J6z2ZB/xm8HPkij\n7RAeaBn6nXszk/OL3n6H32/6AcTvEP5H3z/j//PCL77wvxB+Pyj19ue98Hz/fPZP+PP2wSn6\nePuLX71L37ql3aNv+BkNfBwzB5GYOI8vMPAPkzpaprObSPrxUTAf/Qo8MnfFXjIhWu1+B9yZ\n7XyiJ4IXS8ZK5xX3Zibn7YM54V8m0jf68evP4wb6UG+/H5z6OPHfP39/8u07/SfPftz6h358\n6rfPZ1gJOpd6ifQYIk0xW0s0kbRjOAxVEVP/dHaggUEmDKbtRb5v4VWfPL47EMl+s4EThma4\n84kEkuTj7z8fau6Xc2HTamYOAHX6EbtzqZFIwBja0gx81xkwHrdjRILv0TFW6b7l09lE4hfz\nvSH4BhEe6VNknt1D022nEgn7R5hnGxPu/r11RNo2Ff5JLvxF33/989+VRJJ8YrKNNJ95qs+O\nEinE38LWd0Kjhuk8WpG2P6QjtyGUSgVLCCC57+g+RKJ01CWOqlvfuzczOW+bggN3v389jh6a\n7w1I8MdKu+/0x7rXV/dSE5GIH7WJVd8O5NEIaadFUzklsdw4nb1E4qLI6cdGVlSWWCnrS8bP\nLYjEKYPH/RE/I91m3PPhr21PgZgA/xNavdnNhn8/Ng/oY4MbNhv++3j9kRLJvUTArjK6YIn0\naECSLOu9IeNSCWfnea2USCSZ3MYWu4nEI5ZUSDilA6iNFz3cgUhS8pFHTSqg170cfq59/uJI\n+N9j2P/6JNLHu8cG9ufnQ5/2b7r9/e2/lEjupfcHv/toitJOpQpql6F2lEiqpKy0ExK1NdhP\nJEUj7AaZQziqZG6uR9Nt57YD8v+ROPjsaMtOjv1A9uOToLe/HxB+4L7DO9fe/v3ng2J/Pt8+\nnv3+TjrelLOvzqV/vn9+LOWgyeleHghug/DkQDtMJF252UoQhP8H4HShERrJiiE6b6A3oOm2\nK9ox6tVyapS1Ts4JXC6433MmbORY3Zv8QyWgbs6F3bIcAhpZBMfgVD6MTrEq6mGUmCrB3YhI\n5FJpkF/f/b2IRPgHRXDx/tPgICYCKgUzexTd2g2n7lkUbLBdJ5knkcq14G5DJO1qZIMcu+7v\nRCQycSFBu9N6C/4OIoHY5HoUz54UqYNw6upj0F0N+fBNwaDUNDTfB3cXIsWpTDs+yLHr/kZE\n0qwq1YhmJJKJWGX+cTiHiKSpZ1N+upMI/WhA020nt/NIEi6Zhlqf7j7LGiI3Sq7TSrvUAqej\np0g7SyIduhAN36tIO85sFE/JILcZ9/ciUiztdofnOZsNMd/hniNwKh+ONxtgqPANrzOjflSj\n6bbzpZ1kCZCywwP9tkTSVCs1YDj6LiI5jaD6jKTdATidvYWNOrvTsFfPy2i67fR2dAkoa6MT\nFij3JVK02XDG6AwhEtOIl/OmKB2B09tdcqgUQvPy+zZEusZuTKTzbW44c6F5mXbGuJ8LzYJT\ncj8XmunbAYUHMmaYzT05eTi4rzwBHLgHl/Fjd4hGzBVoTDqmim9GpG1zCjYbxi6qb0ok3bMb\nnFj64OAt8YcWrYv4ajg9jfLOB3/MdWCf5l5E+rxKyayMC517Egl4dM4eTBscvGPL+Gcw6fhc\nsboJ+Gk2fyB7DE23HW2nruwvIuXuW0RaRGppZ0m73I1L2vU18TWlXWazYa4F7DirrkiS82Gz\nYY7PkXY2G46AHLvZABEVoarDeDci+c/MlOUGWmXkuhl0bKVugVN43GmhH+TQucojqcT4AkTa\nlkmT6O6RVhe5lL11MPxjRHIQHQM5cq7ySGox3o1ISZ0l3m/YJMMxRXN/IvE3XIZ/xNYr7RjS\nQ0SlDVxAJJC7GV35pYikuwv2flkfJHsP7YF0RyKZPst7WZls5wd0pYNIJNPmboQA8hPnSvxu\n23KpcwHqu3ktaYepzd6uAWNv6FDgtyQShID0H1bP26njfWknEjE4zHXmhgvmSj4hsXuGUSzl\n9+pebLMB2BLfTmReMiPV4/4mRIrueERukE/Zkn+ldikckhgWJNtFsjeeNVcSGbKY1k+KSO7o\nQVDlfrZ2dG8yvt8kXRQLHbjuTiSUdvq50qDPaY9IO/jAE7SnbeqsuRIOkYFgkXwVIsGOgu73\nh7CtX1U54Gryy0g7vYGkAMDnn8H5cOQKONuE2K+i8IOxsjpzrsSvfncBPnKDCGpEUOl+qnZM\nMtHKI3kOv++gDzVvXN2XSDZQVdRJBrpc2lFEaCvO4wpw6sYQbrlweYYkY1HGUF5tjRSARxIe\nMldSlKJPpRuR3ZZIWqm1eodotC6Es121NLLi/DCkvrmCpMulSmu3N1aVOG9DJC69GBpJMpFk\no6PUBu1mRJK9Sk2mj3AQIqG4Ox1OfDXSdQhzAKSuueIFAmpNjRzYkthuj/a38pjvQyS4Q//A\nCCQTJnHW735yIunkY4TiJl27uD0AJ7nsFCTZAhkOp5pIEi66OtL1gSUS8QPBHMdtilQdYBe2\nA/sNvnEyDCAk+tzPTSQUT9L3wBG83UFPIBJ5yDDFDWFSr7QzhTIIySF68AJkpYzAkbQ+xC5t\nh+tzhk1yOmg+rgynuxHJTv7GH7IPXE6kUqIDBToYTrFBrSmaaiXjWHCmtgfe3NORdEdhSInd\n78bgdjSAdFL4bYgGAh7pcD83kSCbJEsRfWJcHyqJJGHq5LcQgslvA+GUWpRhsGoGebTVbrP+\nFqUnj/sF6b5EsimEollDSQ6tVnK0Fc2Jthu5GAhRcpU7LoSjLtNEr1Vo1Lqtfq5k+lXvC3EM\nyoRIJIVJ++a0fl9pJ+UnJhHJCGBrr0qkkKQU0kB5Bhw+b4ukaoSgYmk0nGYihYRIut0A0i7s\njuYtNxtMVdb+RzyKsgRMY5v72YmUW4hI1b4WjqDKWYCgHg2nRtph0nG1p26TgAzsQdNtTe3A\nuDa2w923QiZaISHb9KGqIbkXkfy1iImRK+FsZw254yQnAT0cTrFFDoQHJDcDqdYLIkMVsWmn\nAk23tbRDyZvadmL17RmOkuSi2hXurYikSTaq0ia/XAYnCJwUhbzd5nDE0DbPlWweuCEEJcho\nPGy5gPt+RArQZXe+QtAKhRkGNh9qu3ELInn8idb3l8B5oMkYTAnZ9esoOA1E8vWw1CvDLYrj\nNePnXkTacoQSx9O55jpEVE0avBWRMhqFMFauhBOCByYmUygHZDecKuH+IEq0zaBxpD+UVLYg\nvQqRuKelCctNZ400vxWRvFBgHrHmuxDOvuoWQM+RdiHiiTt8geCmOGQmk3YHNhseT8trJpCy\n01lR8VrRnGnlyM338ylwCng2RIDs6s0GizKifIDkq+8DK1HzdNbLU4h0tB2WuqXCZPf1CLfw\nHm24nm5EJNNR7OsT4PDopnMgqvp0OHU+thgox01gzMKj/RRww4oUuByVxYSjfMCBM0SO+wmJ\nRJluA7GuhLO98echnIqoda50B66oQHVnilD9cFXVCLI/77ZG4pu2/FdcLJnhkR1NdWNyjut+\nPiLls4cuHy+Es/3M5rPPyycBapwrMhNeIJEOo1JFSm6Al/jnGb2quxceMkNf87x2C0Yh0TvJ\nsW2CeEs2043piMSZo5hSr4Oz/cwG5WlQHDg7zjRo8jyKgsXUr2BFjYgDPHFCr+ru7axIUW98\n6uSYRKRjIJeCFPH+Xp1gHpFKWjacG7x5aeeDOg+JB6eWSJ8/K4IlMHFwvY1k0r3xuxIJFjhB\nV4e1JvuaQQZLVd/sRCpKO5nY6+A8fmYG+mTrk3afbwshY/dutkjhMAvaMY6ZZ0q7UZsN3Enc\nuXT3GHRY+DBsJJTh2XzPT6QcjYJkUL55OPgWIuHdJ3Gqda5w561awAROUDFxYMOrzn1fry5o\nR2uIEMoue5VfKIgMbbic2XXj+F51mhe5Tgi4kZp25hQ4MoAxiQhvO2Ucu+cqHsJkeWA6BJH2\nOGRPtl+3JZKKU2TDboYxQg42G+4i7UJIe5Th0XD4boFMF0jBUvsMJB6cpshJRhDGFC/i+pl1\nHRS2HvcV6K5oB5RZgMoKs2XUng5NgMrkqY17bDY8XjV87bIIV8je88PheDza2C5DPBORiCsL\nyFJNpzx0RsDgjfhzB023tbSzm0mLbkjnJjnaWrcRxYvFYO+r6cacRNLKG/FIKkS4RtrJRqEt\nR2ZiZpJ2KjusJuNRMynIxuhuJ55SkQo376JFXYbpDntsw8xqjfLK9wZEivdOCK9u2gP0yJlw\npPZDXZIZwtQ2GokHZ98JD59NP1LcjbiJRne/rD6FSIW7G4gkt5O9A/Kybiv0AZuQSMoRzhHm\nqhLpCjhSkFgM6enTClEOTgOR3Ls11eofFDJTEqm7HaMZ9ET0PEX31afEexBJZzde78Zq72w4\nuOgA1ZRM0wVwKrwZdIXbtPJrVZ1S2h1oJ9nsjUnCg+VvCje6n5BIpQQBS8PL4Dz8auqWH6fB\nyMCpcUcG5O7NRvvsp/ghNk87hybwBkQ6P0JzliVSeAqoC+aqoVfzEGBsO2Pcz4VmwSm5nwvN\n89t5ss2MZsEpwZkLTT8BBrWzbNmXtkWkZcsG2CLSsmUDbBFp2bIBtoi0bNkAW0RatmyALSIt\nWzbAFpGWLRtgi0jLlg2wRaRlywbYItKyZQNsEWnZsgG2iLRs2QBbRFq2bIAtIi1bNsDWv0c6\nH82CU4IzF5p+AkzWzhj3c6FZcEru50IzbzvX/KcAz5ocv3dzR+6pcCqmuzxXV/8nEnch0vn/\nu5Pn/qrJyPTu6xKpZrqLc3VRvOTcT9sOFa6NtOcQKde7L0ukqukuzdVV8ZJxP1s78h+yfz0i\n4X9OeDWcnI2AU/lfyj1ecr/qwHXvEIkaXB61mYlEyZ/TbRZp5/f4/kSqncbP+9KbzZkKaUcN\nLg/axESCrEJfbLOBM3J811VwfDsOp15YkPd/dNszNZsN2f/pe7jdgEjn/WfWRffO4WVG/v+F\n/4WIFDx1W0sk/PUsi0gXi7rUfXp4mfGveIpPPwVM1v2J0i5sS6QuaWc13ZJ2QX4Bz1erSCQ1\nKTn/TBsBp1qhk3tzzWaD1KC12QCdf2Fpl/0litnf6vQCRKp3pvIss0LOzBX8ujA84TU/0uYk\nEtk3Lyntcv2iILLuCxPJ/q55d6z8uUoiJvfsYPRTEkmL8+tKu9wieEvC7uWvQyRVZvIulXne\nodQwc9pFPhb+HYh0YQTNQiTf/dciUugnktvS3sljNiWRZLX9atIuSpVZaZdx/3WIpBHQJ+2i\nluIn/QYPmT+X7f/EYjAhxf8Vv0MxdZ85HNA6Mslr3fT3CxMJgp0yMZCZK+efTaUPjvv3Qxk0\n9lyDs9GVLbdVc7KdSqQKQRFRzWvgeXYtHKvv9+Hk0Hgl6gTs0xJpZKPt7v3DEY0Xm4zuWESi\nwqjVzVX6+Bcj0gtWpP3l3iKSbZ7CCUQ6Z9U9K5HO/DX3Ne7dw+PN7zW4pB22T+xmqLQ7J0P7\nECfYbHhGPTqXSFUdMjd9bSLht1vc65VoSuM+LsiGV5Ih7XBV3xnK8XYikeoExSKStO59Dl/7\nD/vim/NcPJUAz65I2wtFvLrAziNS3RJ3STto3P13JNkVZIIGbs4E0MhthynXSI8XeTuyvzXu\ns4eHW65YIq3NhkfbRpGgw1x0uugoflto75h5/7/dk4lEBOnoZYhU9ZXBRSRt21YfVCq++w4i\n5aVO+1pivor0INFGoFeSdjWTs6SdNo5LHCXDSGmXJUxHwE1HJMwesnd32V74aUQqVVXcovy6\nmw3pf0Esp2K977pPRzDabKjfCe6RQO7tz9xsSMo3V6hLougZROI+7qJ5aSLFQ4Cj4g+eP1f5\n4lNfaIYRqcMGSzts1ayZTrYzpV1pgv2rX4hIcezaUXGHx52rLAcKw5y5uc2yFSl7saGdDqMQ\naeNXIVL+X5YvIoWUANGoVH/7ewyRRm42UOZiQzs9lo7Oa0i7ss8l7YrSrgrOQGnXY/n5a/N6\nlkR8lc2GotPcKvgrEam02VAFhw+zD537tbNCImwqArOttca4nwvNglNyPxcac66Fv+OJFCWQ\na4rSZZMTbdJ+6YqU++/rnH9K0/RdO3mGGre/e6w4gc8kUiRpL1omXUUkWEYXFsFfg0hp52Xu\n4/9bwRxWzpXS6PI10gztRPF11cbdRUSi3EvZ/UsSKe28lKP4vw+yt9bN1YNEWx4+kUnTE4n/\nF+wXIxLrDNLDXTQvTST4bgcTif//m/jW+FP7Ihrz+5JTrTjMZiUSlHdm1etJO+J3S9rJCKAK\n4+C3t8LI1aCxK6TTatK0RIpq0WttNnBa2OTLl65IQTqvFZokdTqbDVKXqtBQ4Gok33o7ZRjn\nJdLjiOvxRR8kXSztFpFI6pASicNd1Lzdb6smEmmDukg6S9jMTSSj664IoyXtCnYCHKPotjda\noDjVRLyplHYwwPrrpr6gtAs8AJJNXk3abftIGDxl9y9HJFBa9h+SsMKzqUb+WYWn0Fx0Wz0K\nou6+ZEUirclMpLPJNIRI+yB1jUT8QMXXMl+NSLJkITvrQiE5Iftt8Y176Hh4edOu8On3QZuY\nSLKAUGl3WmF23DuH1W1UMMkojy9JJOFGQpBot47k3iQ+Smi0WZR2Z32YNDeRVNrB/6k+yNOe\n+15fNSBx0fdVNxtYvaUDlvwqalBkDUQyH03pp1InBdHERApajjV7vwSREqmeSZJfgEheZKvq\ntWV6X9plRBvUPd4EPgQ942PadqQMyQi+hrRzNKo/sy9NpED2j7lCtD9K6VxlR15IxOruSxFp\nq/2m46+w2UAaKW1oXoxI8Olq0rL+TqS8k2SuCvejkj7j14xNT6Tk61Yn2xAi7fvI/e6sMppX\nI5K0kSnHO1PfQiR86JwFwsRECvrtju34/EC6gkjar0Y0r0ikrBwjLEs1cErSzj6jYz8womYm\nEu8Lk1w6PZIuIVKo/d/OvgKRXF23nS6LMGeudsdU9oD5kWFDOjWR+JNK+LB7kJs696e5W0Qq\neJFvIOyskrrmClseGlHztkOyKDd/ztV3JxIJP3VNStKX3LUDgbXVH5Kh0e/0BMLhsd94KKCx\njyh/pGVh05iImpZILHnhn2RVL9IHuHcPD7asQsWu/bIa46WJhPtyEurIIU03sEy2EZJHozfq\nwNt/T8Ef5g3Sd7MSaVsVYoKyn02fY6cRSYDLcpfMXLu+XplIuhD6TJeyHrbRzl99wC05EyIZ\nNPbujTAJkbzvS3T353gTp7SjRBI6cRW+KZGwCg0h0gWbmCX3x4kkY8BRjkTCU4E7e4hIiQVL\n0GOGrR5q5zgU245KuyAbofJzkLOCe/fwYMuDpd29ieRKO5QfIuRRfR2UduxG1kwhO/bN3RnQ\nxjnt8GaDzSGcSE6ySysStN6z2XB7IuloBKJkqrUc4br4yGaDW5NGjeO8RHocWXWnmeokO49I\ngF+lXRuaFyMSTOQ2LqLlQHjk57tqrsRDiNlkOHl8KOcmkpR9XSdxsjrHTiZSJO0a0aRE+knf\nfn6+//lte0f0+9tbCL++E73983np/e23X3I//fyDD/yP3m8O/9LHrd8/XuHuz4bq4dSbVgJV\nWJwhZYr5VF571cyV1jORdkBTwrsO2txEisoR8mmQv6L7cUQC/HrYiiYh0o+PVj748/bZ3tvn\nybf3M38/HPyKLn2e/hbg7J9PFD/pr/CIs7ihBjjVxmHLiYVXSrBtxySS1OO5qpgrqWkBaaSR\nZO86ZLMTiaWy2XnZstUJdh6RJN/qYSuahEhvf94p806MX/T2O/x++yDOg1jv5eSj2nz/vPQn\n/Hn7KDbvHOK79IE3+jeEbx9Y/n1nk7k7otEoIknYcnQDrXRHSavEUSLhoppk6ypIRH0JIkme\nUh4FKfxn2IkVSTJwkFlsRJMQ6b/wiJPvH7wJvz+I8zj5jX78eki4N/r4+Yd+fFz6l+/SB/5H\nf79T6Oc7dX69/zV3/9cGp9YIXzStiAyTfLMnvKqlnV5kecOackc8NndrgJ3VjupZKUYQkHuN\nNaNqJVLtas1I81A7dXtE4lfYfnq8/edDwv1Sx+Te9fHjz7uO+/mO6q/wg7y76+Hs90aVFNcg\nWQYl6q5iK6Bqrjh45CZYH0i1qp3Fks1OJBl3LcV1skifPOB+7/H61ZosikRktKOpJ9I7ld7X\nT9/+2SfSexEK3/4Kf7135Me5RKKo7zyvUKHqU6TjPv8ctgpr06ggHrTZiSSbDQGKUkNTrVmz\njCYFV132qDFMPPc5Ij2U2r8PaceXf/96XPqj9z/uejMPvGu7d033v3d197/o7kY4NX0RxOZt\nUOWrgb4/rPVEYhd8TPxXS9/h+J2cSGT+3JhI1JgFXPc5IvHewd988vsHK35vl/77eP0sN2/x\nZsPfHwsiemfP49Xe3Qinpi8PacE/ROkSU8lc3pUDtWiwALI3/gFuj9ncRMIMJsKuhUmtsNqI\nVC/teHV3CE2WSGbX+uPk/x6s/Usuffvvk0h8Fzzw/vbjx3c8/7i7EU5FZyRiH28McSyxapJg\n/VwRuEVvSuBXl3aGSLydg1NcDs3nbzagdjE3D10jmQ9kP6/9886It78/3/78/s6obX/vx7YF\nAQ+8k+7j1N8fNSy6uw3Ofm9UYkXzGkRqnUMkHnksf8yhaD3Yve0wN5EcaWfqTEfNaXW/d3uZ\nyaonrLCrA34wcuOnjw7VEDhYxFlkkebJM6Sd+DIICN+ld7Xa5ETCrSkIRl6QjvTsud+bHCrf\ng/hiHtUAfx0iWe5oIsQqpdFtnqiFs8s7gaDrsWif/UhAzU4kOU862rhI3VdXR9zvyAWy9Ejv\nwDY6JuxliLTlwWB6bo9bdkBd99WPqpiLWf0FiMR1OJ2RqDaPdV+sNqQf7OXaAmw9EuJViCRz\nFaDn9pgntqXK9aLR/BfrzBeWdnLW9F5uJJv1R7svVBtFlOe+lTSWSTWQxxLpsB0ikmS/WJZD\nWpR3PXAa0MjmL8wfyaU+uxORtLdSi3guoFwfQlIxOdatV5LsFhG01ArtBYjEZdvmnERFOSPW\nCqekHtQvb2xIHZRtwzbne2hmbYdlEg8AyCb5+lQspga4d5oiLYLsN30ItUx09gCauxAp2p2U\nXaKSiuoQVm3q4QGM9LvP2yU5GBs507ajGy3JQhGzzOC8krZkdw69j4iVW7ZWdZTKexIJK0+Q\nT2ugdrsq6rzNBlQQPDfmgyQ81233IBLp0h4+dJB9PBmNs4hkNmxxo4dTmsEqlero8v6WRMIp\nQA6ZXWfIfFqrGrnUTiQtSRpRJpi2B0DxBXOyHk23ndqOCDs7JzoL8uccaYc5lsyYGp2w3SDb\niweWri6a+xEJ52wrBir2zCjJFNf3slnakc4W8UwCjQhnO9bsu7j8wI0oWmFnEgk0FOYTnQqj\n60YWaNJXHmUcGJ2ZqEaJ8BwrF25BJLMkMaGq07SNodYEmb1CuztwCk+R4IGKJMslT8+Q0Boa\nL+LKBO4utpp2emyfSJhBmEjhuIxy3ZeJtOXTaMQjWAPR3IRIEreQVnh1YvPdVUSSOxQD7ICg\n4lMIr0ikwDksTm8qsEmnZqT7VNoF5JGKSniEFGoBThXQmxIJrto5k4kM6VwGjfI+7f+d9AAA\nIABJREFUOBWPCZNEyFh1pwmA2YWtt0u76YgU9zZHpZZpqHIPGg6wQFJNBtwQqcCjyokvH19s\nPURKpw1yop3I1lTYTiQrKZ3ErJLUavgKXPcgEtZbWCJtQx/Sl0HuM7R+XHClG2qCPJJKoLcm\nkiQLu9GgQp1nMp7FTjiNzyKjgOnSVKvA8aXUTj6tbafDchVJ9XRUnigW17Y8HHMvlSdpU8Ih\naUDT69cmkmR/SP8Snzp7eP50IqnaJgQCMg+r1nEiddip7ZD8cZmk90SKqV3pOZMTt0mSQN3m\nJcsWJ+H1pR3pGMGkSQaCk7rObOtfO5EIBx7FZbRYCI60a0QDPuapSGTDkxKTGh0vZpqBpZMT\n1RZTCY24Y3c4PwVHVQl05/hiq4ejPIHyo9tzcS5sTv+e+6oCrxwJEQYD0Vn7NqKx544SssP2\nieRaYCWOT6n27nW/zTG3K/xR0kqG28Zdt1g7hOUOmrsQKY1NnTl4YxZIRSVcBaeBSF4ujsjV\nDAlCMYU0CZGkJCcJJOk2mYbaZ6dIJLvXpM1zOoWYwMv9dk8iOfOTZ5KvyXvgNEg7f6ltYFu1\n0Y7GnpuFSCqzkxEgOBmw62lNqBmWkrSLAkSKEK8FUP/jUqrfbkmkJN/FE4YVC7TG+RUpkhQl\nk1TYi8aem4ZIfG1/BLT/JAVFWq6q/vGh0CXnCq4qkXQFfcBuSKRMnGICBHZprc801wCn9vGa\nGDLwLJ1y5PKllARKtV1BpCKTbK34vFuoJDO2izJPJN9pkFHi8YJdn8Ojcj8iVUWpTJhJ2RdI\nO/bUihEWDFmglxBgWDvZ7pr32gxLB9DjTe6Fk6wKrB8Ihe0sKhX6ehWpgUfEayN+8iicugZk\niio4pDOos5yl/N2I5K4RkxniQkEhju0293kisXu9k4wzEHn9dkciOerOOZKXcXCaiFSIngSn\nts3zWoGm266Rdn5vvZMyqfhnX0B40k4VXrp6BmiBix5o669IpGJ0JhM1Ds5O5CDCvdIZc10e\nFmmzi4adxXHS2qtuK7VTGIAMoXShJJlkp+Q5h7wgdl3Induh7NqNWCXdjkgYOhWxemx8Gogk\njqLEug/RModClvujytRFRMqPgVeuuE7U7zcUJsfxhatQ1M9GXB6w2xEp2prLTE+QwnARkWBS\nAi90VIdmSeSUzHxtqa9TZbtG2j3qiuQz4Qn2HjQwLHC4JLVLO37rjnaEDX7at312JyLxcJvR\ncWNTa/yxHh0gEseEw3iBqsmxSoFeQoBh7ZjcBtUpo7t03OB9i/sykUB466CrEqybgAY0MxMJ\ndv0T8gQzSUZowSAehdMg7UIACiUzq6ClY/mlUZX7FruoHZPEmExZZc7zyzXJtFQjao2vdLQB\nVKxTDlcjB83ERIJ9Shx9XWjI/ZzSghz09qqBSHazYTvhsIjTLUsfztUV83kvIplwdeqQu35S\ncWdb8lzlJscbccKbooVzzKs+uxGRtnpvIhKmQx6I1pKsuAfAaWolCRKTHwnX1xo9Zao2439m\nOxifnDVgCIJ5ozSSXOM2VHCf5yxQExPtXvttdh8iJaoO5QLkI6lc20PPI5KRMdEJZDv3Yc/D\nPYhkVJSckmHI5RfDpHjem4jk+0hAIeKjCyQH4LxEcsaGsw3FKUzOaMSOgLPbjOJAjLjUhgwg\nSyVgWbHhWxCJTEjDKZ4sGAYzp8g1YGDwgz91L49YYloe4RTBqa9EpLgeaYDGGSzAej8EOjJM\njUQSPUlejMCkAoeQbVmglI2mHjuzHad8qNqWvQROJn59ktDW8axwz3f6MbLXjS8g7Swl0iGP\nJW+QInB8iNqIpOkzVf9E6RzD8q4MlpX9gZ40dONQO1kiYd0lfzSSkXHaItNu7NnhUShmqAzk\nDpueSMRD5PIoXpvyjkR4IpFk8nbiRUQMAWpfe0jDQ+wqaWdPkbzXpe2OPR7A6RW+pO7tsHNc\naDks9uP1pV2hHG2xGOu/wNJugB7qknbMexH9EWQ5g6sF0aAu5PtIOz8RABuk40FLdzbTRBOM\nmcolkkvE/QXmgCXSXYiUHegQJSyJ45BL7wfg7DaW8N4jkzffsNR2/dxns6HiMQny/ZpkB+Tx\nXsY4QZOMNNx4dmDPTiSp2OkiMr2fnJeRcGobVMVWCJCtE3Ivi5C8n1cgku6kbYfRkKS7buiJ\nROH6RHKl3dBqnu/YzvHF5slrV9gVdHL0biCclhY1YEx8uNU1iIShUhl9ASKRVI6AhXgjlhG+\nklvQEW7mOZNjQkXy0hjttt+z4vHFloGTib0UrY7YkLE7QKTA+TQGHnSJIEQLQWqT5tE9NN32\nvHZiscXDo33nIs0jF7yZzCXRaLCb4R2xWxDJ3dS8Is8cIdLjCYkJ3WEIuk2H881v8+Lu9Yik\nqtYQAVRxvXvWilr8L7V7EAkIBEn8cjg9WkYEivnQSK+k6Tbr6eZEwj1JGAVzGPgzW93Yq3VP\n8vgzeHQXIuGOseb0q+F0+oR9uSDUkaTgOfWlvc+u9vz7HCKxktuOyLzqBrnoPEe/2V7miPSU\ngnQLIukel1ala5COIdL2MKyMAmtTisnyuFPcYdp23VPypgJJ/a3j2sksa6I/ehbfhOAd+9JO\n1WELuuN2AyKRVGxdcnj3ng/noEfBD3tPTkYw/aP4RA7hDYkEhciUH1g2llpwJkd13bjvgVTa\n/ESyRSnIbtjtiITlSDrC+1WRE4I39kQO4exEclLGpi747U6DydrYK2+sWy5bRefQTEskKdqa\nzu9IpABECgGyghzbrTtTfu9NpPSjCd5WyJXm+OlIsCWTw5lqrZGK0g53c+BT6yvhHJZ2gfsg\np6S8EudcXC3YGHPd32azwTy39cdsK+zxCFS9556/8rCI5LnXITY7d6XIOhHOUX8cMRgMmpJl\n/af1anuRDD4mRp5MJFtyax+qIJL84Zcr7Q5EerwhM5i3JJLvYesNr5AJOx0KkQO33KoiQa8a\nYFOiQpzJ0e30yyP5PkTSXe/WbDYMzhkOYS88sG5Fh/nIkXOtSWUWadf4VLynnZ+cqz4dybh3\njy+2PBwWP9FHepfCOc8jKZGMk1LkyLm7EWnQ1JUm5/Il0n2IlGxwXWGXEamqdy9DpFPcz4Vm\nwSm5nwvN4xxrwUWk56DIuV9wCu7nQiOnW5cEw4j0ZJsZzYJTgjMXmn4CDGpn2bIvbYtIy5YN\nsEWkZcsG2CLSsmUDbBFp2bIBtoi0bNkAW0RatmyALSItWzbAFpGWLRtgi0jLlg2wRaRlywbY\nItKyZQNsEWnZsgG2iLRs2QBbRFq2bICtf490PpoFpwRnLjT9BDipnYv/I4Bn/atLv5vX/JPU\n6iG+97+QPTmSJifS1f91z5OIlOnmJZFbP8S3JtLZkTQ3kVr/54jB7q9ynevmFZHbMMR3JtLp\nkbSIVHC/iFR0v4hU7f7p7SxpVzo+07d/Z/H4YlvSrq6dmv8Gf7h9hc2GdLur9sGd44vt0GbD\n8LialkhX16LIvXt4ptvLKlL/wN6bSPHNg9HPSqRnlKPwFCLZ/43T/OfZZ0Suu1iwv04rd/Gm\nRHL+w+ETVkyzECn+XIu2cwebbYZRPDzJo/wKK82U5CbN4UTi3+1TUgJ64p5E2mhkMvMLEylp\nh7xMcrpdTiSZX51bPThb2m1vMaySEMNqeQacfqubq0dGDlFu+jrSjjn0NYjEFekKIjm/cw7a\nfmUimX6OBj8vkb5GRQrSyYukXdycJmvFkwD03d+CSCDtTs3MTyFS4Xt+FN12DFWzXU8kM8vh\n/M2GqD0yXuP39sQ9iQQJebygq3B/YjuUvMm08yV27R6OXE+nR27bAN+USHjPeZAnJJL9jYLX\nztaJRCr2xC8JF0RuvC9cSmQ3JZL82vGWtpv7Nh+RTP29Wt2dR6RIVkQR6y9SzolcQ9oIlV2k\nxgLhFDjd1rBGCmlnQoktHRpwOiKZFSHsN1xDqNOIFC1044jV35eNN54SuZa05hd1W5AR5JsS\n6dELbws4zxbn5lY03dYmtgubDdKJxyKcf1P2metEdF88PNIwpQGsh3G+OIlI2+/mxkRlpgF8\ne7/99KZE+uyKbN7IWJuBdjTsHYhUbGfjD9NoG4eRPoruS4dHGkbiyG+bN4ebw/OkHenwJo7h\nDr01ynW3JJJIO/mkDgef8JbkmQNoum1YRQqYQfi2yz6cPYtIXAr48JEq9Bsr5gNZK66GwdnG\nsCDttC4+3r8CkSQfxDVJK7Mn+5r79gwiZQMlaKcoSHcpnv4T7UQiYWvaL7lM7m0j4cjQupoy\nA/cFpF2wlVYkDmkeyz/ei+aSdmqIpJGmpfkCO0/axTFpYxjm1CqtkXCcjJTbFXVVwC2JxCoV\njmDFBLeMRXNJO7tE4nwhf8LtiRRUXmyHfgzTmZHLejlhcIrEft/iHDgHrXauYkkdcAWe3DII\nzSXt7BPJLJFeYtfu0ZyqiYhHF36zgeIwshuK9tbz4fRby1wRiult8MeG1DOItLPZoHcplYbI\n2BpkxcOjjatgSngUD0YkPobBIZItUan+Zhnuw3bdz04ks2vDyUNq0uCQegqRvOdTcpHmDnLj\n6gQ7l0j6YhZIzprfEVZD4HAsAXlCiFajqVOSd4PhHLK9uTLAlUGwAr87kSQp59uR/WGuwpxI\nT7YziYS1Nf4gNN6F3s6W0XVACDqsgYkknzHIHQ+IBornfm4iWeCcjSFhb4NxDppL2pHq4ue/\nIOkRLFojn2UnEgkERUIkrUhCtLOIBKGkY41Ewu1SweO6n5ZIxBkCS5JkDEkjQ0NqSiKJ3DA8\nSvTPCXYekQinNiESaHbSvcozpB3HkXAamEPyqR2IhrtJO0kKOIAQSRGfRoXU5ETSfQlZJ55q\nJxKJPwZ8tGu0nBCJ+EZ/K60bjpY7KXWyaJBjgEGKUp66CZH0SzFmjEXVBLxO2sXBaC5pR2TF\nnrQLQZkUJfGT7DQi2e8y5DYbIMBNQj0IB1O0KhwcZaS4HX49dQsiAWgLmVcHQdNH0EXD8b48\ng0ghk3ChHc2ddCmTziISpr8AuV+vQqkKgyNXGEIEI6rcxqDT8iPVCFTCEDijLEekeGcuwCZD\nADmHYud4Z55EpMp2dARE4A7yU+V+IJFkMvnQEEkLFHH+8NwfJBKMpvWKFQsqJWHCuwmROGQ+\n32KR4pWnjrsE1JDPZp9IJPeRZHSURH5wjbWziKRBCclQL5pDE8lD4ChDiBkd5FiJkiwVpIDe\nR9pFuSFwx2S5LTwTfkHtGofmknZKQi2ZLLj51kSSxe125Eu7svtuOFvk4OYNJ6lQM6432myQ\nQ9LzvA1KMACaSzixDEVzTTuF2pIlklbiM+1MIhlVZdNIpmNjiSQ5GJkUsCrttTIKzhirnSvZ\n5VFpyxIPFeBYNFe1k527vLTL1bChNpRIpuZEy5OoL37HDkVu5N1WJAghXoFXtHgEznirnitN\nF7JjWRNNbcH2JCJlyylFRzGPblSRMFdAEH8e1iWFI5EL3ilCAM6btqzuSiTJIqElLTfKn6cR\nqaoi2bl/jEcXvE5MR5xZ+SpLpIuIhN7BZRJCLTs4tyUSqDvCkdghX/uAD7Bz2klm/65Eurwi\nRd6ByImqrG73vkSCqmzlTUEP7rfZ4P7Z7UCfNRAGeapwP1LamRCuUBae+w5pJ5+owM4VxYNc\n32Q3nBOsh0iyUbmflu8j7ezzrmzVSizp5Nz5G0IkWYCQOZcQabf5Q5GrH5bIw/4g17d4BM54\na5srghEQlV1eJFH+aBdNt51UkTCNkqPoR9enEURSNY4nOYBFY1SkvO7I5da5HInLmgAaD+cc\na5yrLSkHrdLu55iEP0zrFSVvgJ0p7czuv7lneH0aQCQJ3iihJd9ok1uy2aA3cglQyAeR4jfv\ncG8/uBPOSZaZq0InCNiEScY0EhVyaLxcv/YBV9lJ7eD6iDAk9Oah09lMpHTayL7Ifc4aifiB\nXGDvHOcwMS5ZC8go4tZh0oW9tHQLIqWdwP4F0dRSpvWyfnE4af7uRJJ4M7sO9uanEsmLPV+C\nRtzRg0InDhAJ1gRcDUXvWWmnhXHPxR2I5HKA4A6j7nA0CM8mze9qn8mJ9PlizcTn6NlsJJIX\ne1AEzEmO6u1B0XmuxPDdV/RVRSNLR1hdUnCQOS+5ttvhnGllIsmOD9waL4sImLQNlcxJtm7X\noem2MysSFqZoNJ682ZBPXVB+ttOmJGHNomxCaI9cqUNBl2lAJEpwYRf20tIdiCTj75UokDS4\nA4Pc0c2GmHVtaLrtpHaQR0gm78kREBqJlMYeiIOoeNp1PkE3EiGYc18Hh9i1/iF252w2QBde\nZ7PBTQ+StmCRBCLB7qMmGacNTbedVJFkiczpYutd6m4vnfa4rykB3hO6+azzIiuV7TGcptFE\n0mUzVyLMxEpwTM4Vdg8i6QH0UoU0iWhTJul9SKS23DwvkRKNL3+8HuZisdu9d1jVAmnsQprk\noCaZvmjXxC2yO8fuE7BGs5mYPcvwxTWxovFGOKdaca5sneVQkomIkzHJZRmcVyGSShHcZfB2\nHPS5yYiENUfObfdEszRwswHWlfiYHU9xCdf2226Hc6Y5c+WtngmCQ+px1OONXJyBdAK70XTb\n6HZUmhCyJy/uKoOh0r1/WNMAcQq0U8FB/Hhfme56IlfKNyycJZY2FIwmSKKuI2kHnBMtnSsv\nBoRfUKBE3UE2kUkLEmovsdmAHUR1ly1Jz9ls8BuQdQrgNEoLOVbAXRu5iUrEZCNSRqOGID9j\nwq7pWwWciyyZq7gfdgz0nFmcEv8g/BmVt+RoF023DW9HJxjESJZHQ1gUnMmpe8oqClijyAzC\nxxLcFTnKeqmMXJM7CS3IIIInOE3CqqpiVwfnKtsjkmGJO9qarXUodDdGK3ry4D6abhvfjvZd\n5FKWSZWR0OLeO8w/ZAM5uJFsZB7MbKHS7ByzR5NkuXyLjuRbbAuSeIN5vGRDiRS5hMPftS0k\nhxR10Iy7PwaQUnQfSCQFlqud/s5LJD3FsWAClOKHhiDoIVI8O5ziQDfZtGgqWMlNJZFC0NaZ\nQ5psKBMLLaKuBU5tYzki/aht1pmrSONmE4c5GTgXMeF0L0bG8CWIxKGRqBb70CREQqhYheyh\neTrrpSZypQAFETK2GEoU2A/1t2dbxm0okeK2KH2398gOGk5ekNmihKYMIvKuKJH2tx5mIZJL\nELxoaWSzxvOkXaKfLVDbBb9/xzYbhDjcVCwsmWDmEj6718UmON12ApE2GmgKIz2Ce/Sj8vgK\nzq6MWg7eLEQqtUP4rQatTlKt/VQ/wv1eqxClcgbKp61T0WKmHY0XK1vjG4wo30gUaFRAYWyu\n4x1E+h+9vb/+S/+8v37/eP31nb79eoD+eP35jd7+3SD9pG8/uaJ3wHEjJyhLTJERoZBkPpQQ\nSh0Zq2zKvgWRohhJlkrjUmMbkRznUdXUaeHsfwaRHi8q8XSctsuwatY4uoJIfz49/6S/wgPE\n2yewt+1oO3xg/vHx5ud4IvGLybySgALySK4khCE858K7BZFi+sT9npRIkWCJzrSjyUk78RAw\nLpi5Ov8iYDjVNo5cB5HeqfJvCN8+HP77zqZf9PYn/Hn7KE0fp94Pf4ff3x9Y36/8Td8aRqhm\nrrQUsXjgcyAnbO7TxiImkXe+7L7D2mbEgN5vhzImCWaYtRHJcR7t0evVQp9r0eR0r3pAoWJU\nDHFdD7hsbhTEPUT6H/39TqGf79T59f73jf6EjzL1g+vTx1b3Ju3+CyE0pZqqudJBh+wBBdlk\nPb0zJcxe8nkGkSh5U27H/0y2kOP7V0w1cgErQOLJlk1soLkeVUSuac94Zu8GbeCy1Gc9RPrz\nruN+vvv863Nb24StBqcG93AihaRBLDowXpxmgtW/SVs5ePcgEncuWkynndLFQJ/tT44Igp3q\nWRr0TjTeMYaiYVF7/TsMx7U3Ct/+Cn+9A/vxJCI5T24Fh+kjfx4Sh+Mtuj8UI+sORFKlm4SK\nve34sml3cmQKMkyK4pjgwmE0LjqTRqFSOwjP5rVr79ruXdP9713d/e9j4+4PgnlIu99nEylu\nkWDoROxg/otLveQr3w9n7yF2FpF4gCV3YEaL+6vnemOmkkgJTSwIBSm3dJWHCiJJPrE5JrBz\nzfnHV5NdRPrzjubP9vqxu/Dfx+u2RnpsNrzFRPqz16brPosGNITeyMzQ8Qsi9GSRJGoveUnb\nfwaRgA577QhITLT6tKm/EjowEq22PzlGDSAAobwHsGOB5LhPj7lSa0ykRBpQqOvg+Pb2udv9\n/fN12+/+9t82Grj9/dkifW7xfe+Bk0PDGkLukPCQOeRxCjxRqjnJDJxHGG1/iJ3TjlZgk+pV\nwkT36gh1IqqYHILxh4Hl0QdweDXXWgsaZxJJBsZyWEhkC/UziPQ/+vgA9u8PZfduP78T/cUb\ndPYD2e3kP98/NsHb4ZSJhL3nEqXDI3wyROITZpYz7U9ekXAQuIcRmczNBAN2FpFEUZnZgRqE\n7+SZ1ork5gJnFvWDIc3tll5QqDvHxGSDIpw+q6xAyWPFwyDA43rMG1d87THSIHiEacqsHRy9\nQ+u31n6v81A6OhAMwCQNEriZ7GMdVkskOxcBwthENGJr45HbB2+8QJhgnVZ5wmAbmRxB8dwf\njh36KFN/ftDPvqd30JDOTUi6QTCN8hNUppyt6GS/APIa67l3n0hQjjRGSdcoUbhGj9WezrrP\ntBJEL+nsCJG0aNolXPMIpXIh01OKnNr6E1O60Uwq34fTZH8/IH+r3F0ou3fRuRPABceUaxU7\ndlY70XTbWUSyWT8Sd49LTZ3dubeCSEBhTPwq6ExVqoXm+K0j0nbBqN1ohXxojs8kUvj1RvT9\nZx+PWomEl3BgMCdKeOGNdeM3PZFM9EPW1cIE+aPktGrfap9IhjqKDpgt6uAYk5yH0yyDRUfG\nJAQdmuMG47sH51rbm6v86CcMomBjKirmNR19BpHqNxu2u9MHgU0S2sUekw5fEdkeGqg8JHsb\nUIL4lsDTU3RXAEKOe+dYem6GxoA4aqdvNnRaxVxlHxTqGC0OcSl/azdpnkIk7/kCufCuEHca\nt1piGEYWh1CRXKomR/6yFJB8Jl0J0fZ3n+1ELsGLNyQEEAYQ6nZEgmuoWXTmpHLDmEG+fdwY\n6tLhDSqS86ANGVk8RY9DIGMtLzrYQ2O5KwMPHeJFCuuCA1ZNpBCPiYYHxMRRuy2RsHIrOWJN\nB+EkkplLVjOabmtph5I3te2kRDIpOOGRYVLHcOSIFHHJEolXJ8eDt1baGWDAItElTrU+Ac7F\nVk0kIJHqOtUT8YTCbgPJgrcVTbddQyTYVol2HETsRk1BoDVBy6Gxw26lQrTZcFxO7UZuunyM\nf2pRWkRSzaZTpkknlXaPhyt7eTMiQaY1Ia1KyjKptXv7RIrWpioSlEia0Q5aQ+RGCgV5tKSd\nlXZclOKUY5Rcc99uRiQNWYkWHhVnmdQez/uTg7yBEvh0IiVbT2Y7c2026E+ZJYgl3EPqyzrP\nINKBzYbH08wnEbS4SCIdkXbLTI62lqxNQcbF7w5bB5Esozqz63E4V1gDkeSex3Bg5jVlXDI1\n3t+FptuuaWdLsHGsREPDIvi4e5IfOLRx6tfZCebdYauP3LggBRyMIVia4Fxi7UQinT+vhjON\nvHlvRdNtrRUJed/QDqtcLEZSnlVV6UujuZND8DYee9UD0p9xsVsduY6wMzXpYjjXWDORyAgK\nj0YqK+xLO5pua2lHhWp7OyJXcqEjK4KuurBDJM8fd0gTw7DYrYtcFxSmlVF2fyLpkiA7aFiz\n6pqtdT++nSNE4rySKJk0jEJHOi5Lu3I2I+XdlRWpPBSLSEEzGy4hdTUAWw6SEnG53YWm2y4j\nEkd0cMLGUknLVxs055B8YScopAYWetZhNZFLSVaBcRkp7O5LJFj0kFvAhVKi0lXnzV6Rcg9V\nESnLoS2spIA3F6Xy5GTmQBex8sxlRPLGgesjk3yU3ZRIMCFe3JhpDXiyaSqfQSRQTB3tmH06\n3/iyysBGZLnDdMR5rJ8k7dwMG+wIDLMXIBJPlU8keSuxU2q30n2jXdiObpIhb2wY8ZhIsehz\nv1uRtHFwcuFmQyalSKeHxvpNiWSnhpLh0u0FGTqTIbvQdNul7ZhNb/jJKxZTikBwNbtPQifh\nkdJmqIrKuHduiQODFX7HAnEAnCutmkg4Djg4JvGSrKr7JnUWIkEyrbrbrAMMnYKM1Han5Jaa\naucc6nNeRarrXp/VRC4PRYpqOLTbEknvkQSTFCWbfZhU9V2chUhN7Zh0YvOKJBcZAxmjugVY\ncijPpSyqxdtre5ErueMaaLcnktUnSSWHTT2+ub4y3ZFIvEayo8DdZuIEqOMUKmMrnRx5zil/\nZ8fSTuTyUijaecKV25VwrrZmIrGM0beYjTFcnLjZa/6GRFJdJ/EDRCIMfRkHqNhJWwX3qSeM\n1jOWRSU0kdJUTe9IuzOg3Z9IVrVgSnQW2PwCyTRqj0zjY+y6drQOU4BxgOK8tbOFVNh67C1o\nkkyTlXYmWHVxeq55kauQ08KsPLoMzhOthUhbQsXCA/s0ASIp8GYDbFX5RLLBczsiQe0hE91Y\nlAJc1iLlDUXkMVeRopIE6vlMcyIXIQuoeCiug/NMayCSDBwr4UhjbDIuyE6EKj/zfOKP7OEA\nu45IgcsD7CvYYqHDwScyIreOSOIwTvynW5ZIPL+G2ElBGg3xtkSSedbhSSdTBpK1vI6zO5TR\nWuF+RDKdjYuEFmMTXrmgapF20cCfvPPtoRE4ok18aQcF63Q4T7R2Igldor0ZrO2i7WivTauh\nb0ckJgyXYy+xOFcyLe9vNjAzEx49iUicJv0dEMujwRhvSyQmEb+NwsNbH9DO8G2JrM59i13Y\njvRTIzwtTSHlWFR7ciXKPfQY29y3ZstErvLJIdEiknsv1xfZd0pGjfOvqU2ZlpzRvRuRCKIo\n2QOQUQl8Ob2ozRA0GPwUJBXJ83G+5SLXrblxF5e0857g8EnSouXUlqLzTYSTvIesAAAgAElE\nQVQ4gG5GJA2OqBwFMwyQYmCoVNVqwoEi7oji7VQ2Vk+2rLQjP4VE2NZmQ/IIbCNkRm9L0cFN\nRJhtow29exEpLahSdyImRUfmTUg/c0MyWX/C10mIJNuQHoXOhXZ/In3eF+t+Z3p5kqPh1C1g\n69VJwd32JCIhjSRZmwEJcFE2KXRMWDJvDbtEcnLWNeZEbkaz8sJwEanquTRMHC6FeK45pyZe\n70ckL9Y3ggQlC45NUq0ez6g0tFXJk3bORsNF5hIpM/nhfGwvQiSbHjP1iLMyNisRljZ2OyI5\n5YB1rUR5OjqYgR5OdGEk5cgbDl6UELZ+uI/VlpN2ztRzRrkazhOtm0g7mzVRxASNDT6MG2t0\nX8b25HYkztNFUtjGBe4BXzb69oh0bex4FYm4/npUuhzOM62fSCEZv8KiSeV0Jtv2uC8AO/r8\nsUjVOComGruMcEZltyJdGjyZNVJUgy8j+AsRKbM5RRxHOOEoYjAPH3BfQvbcdmDNZwZINiO4\nMJuYc1Zc6WGUuPrw9VkauaA5rif46xApyUNCosdVlH5BCCRL8Qo03fZsInFajocINiNCgMHi\nx4IdmnRyzIdRT5d2oE/TNHo9nKfaISJF2VZ/ckP2k9l0C28HTbc9ux0IqChRw5rC1biGWsnk\nmI2Ki3nkr5FidpPsPD4BzjOtlUgwe3E24qqjGclGUJyA99F0W6NCzYZlt7Tbei1bC6DqZCi8\nZZE9kxLJJv8+dL3mVyTRqEa/PgXOU62RSEAFmVOZfak4GidcjkTflz08g0i5sG1txz5GOiAy\nCLK1rdUoZsMOkaLk34eu1zwixdWIO/0UOE+1NiLhPENQbIfMIaYTpGZZI30JInEwbbsJEF7m\nnUOkHWkXMPU/n0is7kR47GuOU+E80/qJJHNOdkgDpF8ZXSVaC5puezaRNKS0/zBWZMgUP5l1\nr0V/FiJxooCKdBmoWxMpSpgRRUh0M2Zhnu+a3ZyXIVKQvmrFJhm+/Bqp6B5K/BN4lItcLJBX\ngro3kWIqALFAtegSoHHl+QwinbDZ4HkIWpQ03nZKtCftnlWP8pELmw0zwHmStRIped4oellt\nxvKvD023TdaODfvc+133xG09J2ayFUl28y8F9mJEMg/HSi7sRcoOmn4kTTefXZGsgmvILV5F\notbkNMz8yCXz9kJgL0yk44P6SmukqBXyDmoeNIeyEH2C7RGppWenwXmanUSkzkF9TSKZrHKU\nSOHqtUgODUo7PV5Ecg87Wjs0qC9KpHhP+4i0a1XL4yy/2aAnlrTzD9ubOzaor0ok22h1q/5m\nw1g09bYfuWuzIXd4pOGepl5zs6HbTpucLps7cieDMxeap7XztM9qIhjFw6tt7sidDM5caC5p\nZxNMfkV6ss2MZsEpwZkLTbe1EuniDadly+5hi0jLlg2wRaRlywZYE5HgX1QtW7YMrJETdOU/\nSFu27Da2SLFs2QBbRFq2bIAtIi1bNsAaNxvGfoi1bNmrWNt37c5CsWzZza2NG4tJy5a5tqix\nbNkAW0Ratiyy0rezi88sW7ZMree7cOP+ifhzbWY0C04JzlxoHpDCE4k0qJ0x7udCs+CU3M+F\nRs7dkUgDPpeqnpxLPgOridwb/pfFgyDfgEgd386egEid//uLeaY0OZ3/MdEBy0Vu9J/tng+k\nDMee3IUzCvL8RAod385+PpH6/mFG1M3C5OCdF/0jkEzkApJL/zVKVYHchTMM8mREKqyVmtoZ\nguZyIsUP5SfH3PlUIqHz2YhUgedVieSeJGrt7vOJ1CUZOon0VGkXU3omaVcTNl9H2slo3ItI\nXYvYPmk3bMFctn1pdxGQIpz43P4iaQzkmxCpMXHMQKQ+h8ZjaXJm+v1IVyMx7nPHj5PPKpDT\nEinM/wvLxtvck7PgFNzPhcaca0kuNyWS85uZM4fPqAJu5M78X5HrpetXkBMSyW5OHWinwxrb\nOThhiXzNTg7NIu0+IT+HTNVEuuZ/trkBkW7TzsEJS/eYcpPznPB1Ipfw5/Ph+Pdd8zsOF5GG\ntVOz2dr2fJ5I1LhoHGEZIhE5154Dx7/tmrFaRBrWzlEitUi7Z/wm2ay0c649CY5/2yXVexFp\nXDuHY7tts2ECafckSufh+PetzYabtTN6wkqTM8dmw+PN/JsN59si0hXtjHE/F5oFp+R+LjQv\n084Y93OhWXBK7udC8zLtjHE/F5oFp+R+LjQ3bCf9t/vj3B9blAz/tyl8nGv45LXJLpEa/R//\nNL2I5lq7PZHiLaJjO1qZyena0T2+t5aJXMpsjJ29mbdHpByufHOH4C4iHWwn5Y39p9dHwPiT\nw43y9nN9U0Nz7nYsKJJSfDKTdoiUw+U2NeBXzS0iHWvHzlT8MXpTrO+6ByLx1wnE/Z6Tk4n0\ngJDmlEMOe+DYw7peEye/RaSntROPf/z5JMZ6nccoGD00rFggj+47OUnaPQqPKZLbxRmkXRU9\nREYsafe8dpKZiiekJdUl3xLITc7jv7UgdV/j5JTNBv4fNhIMFFeo4bZLJMRVamer8Guz4ant\neIuDtIkqPCkh8kSKqsAA4VaFLz4GIHHGOLsg7Us7ZshuO0OgLiIdbGd3pmqnSaa9gkh6tLk/\nPWxTNAnx3Vp8KRx7VMuQMd9pXUQ6vZ3KaUrXGRUVqdXJEStWpIswlOFER1S52zEE9yJSezss\nZgpT4HysUqEx4uToTQ7J0mSvPXR8Qs6VNRI6yg7KeJIViLShaFukxePU+nluGd3FdgsikfzJ\nSgdn5VQBKpk6Z3J4UVSt5Ro0zn5LTsuoNyk7KCdIz/xgMY1amzPj1Ip4Eam1HawLxVvkKF5M\n9LqHdqhWt5B9OWJp5GK7tFUnd1DGANiDA29iFDUrWQOzGfEiUms7VUSCMKc45LrdI5Fqxd3J\nRNJ+PkhEUxCJ5PMBvbbjfRHp+nbqpR3Uoi5tk5V2RFa7FDh1srTTfMGCyhVVT5B29kTBP3yQ\n8NrSruM/1j+XkLubDVumNrWoZ7XtTQ5RXAt2Jv3EzQZTkTYaZUTnhZsNaUUqEolgYF96s4FK\nFxva6bGe4CczJ4eqQW5yOGjx/Pm70B6R4LR8AsrV4OTd8AKReAbwmgNGbyI4MQbOItLBdljg\n7NSiuinLTg6v7FXDYGk4aRbL0i7wd3JAI50aTQ3Szh3v9JtNhxAvIg1th7MhJ7tMA5VTlp8c\n+FU3pMUgmJfR5kUuBuiWQ5BEZ4ZTnkjlj/j0HgqI9SDiRaSh7VhZwZMZT2rtlO1NjpLpWUSK\nD2V9EiguChfD8Z+BYNoqp66+X51Is242mGNcr+DnRryJZZ84QCTrS74FDmtrN37P+mZDMD3f\nvnHR/OWLgXACgoq3DmBoZNDwqxkvJO3u8Ksv4/EmO0MiKzTutx4l3wJodE8y/9A+yVm5zeHR\niCFxIxd6Ilt2lIToGVaSdjJKyBtWCUIyTnKlkeuF82wiuSfn+tWXERZYYac38rYDBTuv8ecc\nGbzJ5HCESH6Fo1yfuVYdHhMvcrmPQTi9jYe8L0EbDgeAmZ1NUhgiF2zGOwx0fiJp9j3WTo/t\nEwk/MkrvRBqZHVnTSLZeuETSANF/clOoOGm49JpPJMkjwh49pUXrqO9KOPJOEgwSSUkkp0xF\nOgT0JkRq7OSZREKhxokX0i/epOmZonDH0M6HeTo5KJw0DgoqStcrpXRblYrdyCXDbiyQKPLi\n0RlhWSIRWjAjhNqGhHHSwFa88Vw17LsQidNbfzs9ViCSpL04+20PyqTohkP87S+jOyrcKydE\nGgqJMz3WvYhSJqrLUn7kaq7gVzs2sgwZHVo5IiGjtVzKCCkSVqTSAGlv2tP3bYjUJGDPJJIO\nP4aOZYMoOj6SIrJdh2pVmC63IgFxgVE5JoKn7LDkny+hwYmx6cSwSpk+OLYycGCEiFV3EFmd\nrczCeJCmtQPjwZmQSFYOHWinw8jhLxIp2pCLVAIs820kyUyJvqjqhkYpwYQzad0GuBAm6yh0\neZBIAXgk3ZbMAbTf9eDBb4UDuQOlQ+CBzvBIOhF0XLMD47VxAyI9tR0nj0sNiUIa77Vyj+wM\nmppWAutMDgas4MuXNFErMY8KR5VoTP3ViqRFKcCJLiKVYeULpMppXSIJV/Is4DmCtOMjcM8u\nIhXbcXMS6bjn1B3yiw9jIhVSHt4YHRIYA3AqEqPhJGsDKPZbFeQFIllU9lD3HCp8JO1XDw7A\ngVkBcamo5L7tlXSw+Hn2nWfdDpxFJNtOYdBswAQzwPHaJ8rIUtDakq62Dbk/uNLOqYUUt9QV\n2O4xp32RsxDJ4qunIHURSaSZYtlmCwbD1hxMauo243sRqaedTHHnvCaJT9b022O2CAiRiKLQ\nztQCl8FJRTL6xScKFgh7Q19g+8fgBX8IsNzSZNdhfZbB+sEMllKIk4T5S3WoPkrSWhOuRaSd\ndtwIUN0gc4TBrKekHXnCpumC3/QG4itYlEzU4p2GTSmT2oeoQCTjhBQgg+si7g7IFI5xIsxh\neaCk1gyGJ/WxXd9ZwZdHd7FNSKTsaVnAqrYDctnQlpjXDL3DIy/vqe4wMSop35QILJkaVEes\nTCQdB4psP2+MgWOdwBDJ5CiJKMpG/Jy33OyCs4hU045VTioWbBzp44ZDQsAdtxVE0iiIFmFC\nJLtWOYdIvOrImITmZURSwSb9V04poeCctBaPYzecRaSqdgjmTUhk5BsWJNLLskWw65dS9yYE\nONlzijUB4GErRUhV7GSIJJw13LFEAhYfLIslOFBvYJiCKAfRedHSEqdKh6kR6CJSVztQViSn\nYX0wQkrknlxQsVFo358cK562IIC8D3fGeTnfm6oR84lEZDGx3ESM0NnDdbEExxXYpGNvsg6z\njTPBVqqgfjYBXUTqb0fqD+E7qRug17cZkuCrlFq5ydHqh03h3VImlGBFHtUMWYZImxvJJFqS\ngUeNrmosUyBtuoFxxhfAxwOkIiC6uw/OIlJFO1hucDo0F8u6QW6CiqQZr1QlHPfaWuQzqUiS\nZeGGPJOOEUkFUsY8zTnAskTC9AZVSeWATggMoxBKitYi0sntmPyvDAkSr6ohgDMBZnR7cFc/\nuJNDccgG9W/uZERSMLO+6mRMJnKh/1keGWSDJicHBxKarodUzYGC03GJMs3OcNXA6exkObGG\n8LvingPuL21n44JOE2S0Lf+jliP9IRejl1r3qS4B4uraS25Sv4Ezbc5RzYCVSkAEiqL3kuKp\nzlWNZQpkgLHQ6bDlRucDxOg2U6FOLOzBOYdIP2j/niPuL21HE73Oic2BQCycUSSPzOVhIoFX\nLJQSuaR0PzguO0RKKqXhVFTIB5gLR/kaEhQhyNTwrAFsEX37+a0GzjlEqib3HYgkSk3ZpJSA\nmdNagTGGSVHjvc79lnOTKAWvAUWWpFpOsMeGJaulsOMumaAwjmOSB0exRDwSmigewhkMAQeJ\nyXQAziJSRTtYdWDObDBFoSXTxHMF01rrXiqSE6aaUiUICITOrquOwVAtFZLu+iPhtTISThYL\n1igRBQrOEotkkg7AiQ7/+UH07efHuz8/v9H3f+278Os7ffu1gbeHv7+96dMC8t3eH340SPTf\nj+1tfnB67fx2UL5BwuMZ00WUEV/E+U9u6ZB2RtjxKVB3Qd1IVWpIZrVoDJGcOmmpHpTngyxP\nJFKlqUc6SSDfJC5h8jo1aJFIfz8G4iPav32++8e8e/t89xa2WcLDt/eH5GkgEt7zjdvOD06v\nndWO5INsEmZ+wVoGKo+OBKTGaveOtLPiLrCbEDvkY+jI8cGQHyUWyWmuw4cw7MBRvppRScWe\nmSubblKgFmsGdpFIRP8L4ffHk3/T25/wk77ju18f7/68fXDq4xZz+NM8zTn4457f4fcb/fok\n25/342/Fwem1k9qBXOXOD6ZmJy/DE4EnuAh1j0iaVCVacZmQ3Bx15NhgyLHWXYXkMgse7cv6\n+3AwhSWQ0uS3TQPqCxcWnMzBLku78N8/f799tP2d/tvO6Ls3+vP++od+PPCbw//M00Kk7/Sx\nEf77g4aPeyJ6z00kqCHCmahAOHMIWkNKg/4tIvUmB0M1IgpzCP7aELcNHRsMc5yXdpbpMJB9\nGHbhPCINAQQWwHHeIQlLkAo5HmH7Luwykd5w5rc74B3h5egweRou6NsbEokkfzn5TSsVOVMX\nhFGP9vZgukTK1bxtlAPfhGRn5QIdaRdWBSIZfRfXYgBs+sGPteIow6GYTFBsEnBxqsngMSPr\nuHbO2cO/6Puvf/7rJVL09P2JhNUowETIZBjtEKKzmvaq0bmTk1uGYDqFQdeIgea2c4cGwx4b\nFDtM0nCIYA2Bw/02BNKckoyYKabQH2xZk0CftPts7c9Dk6XS7vunlpMbo0N8WkbuIe3+fUi7\nGK8zOHKuceLPIqRWHSJ/ZmRegFTRjaE6DZcrkg1SLjwbzi16EAy0J6AODUY0NHG3PZzcAy6R\n2QR/CA7484dKZgILAI4HMCdEE5YZtR0i/fuxffB+8qdsMfzEzYb/Pl63NVJ0iE/TB8e2ez43\nG/5uJFLreJ9W2QR0MjFCdszAWhskQ+oMNruXUXCjI8BogrTTd1FsNBeDckUKKSLvhMalzulo\nIsn0YBkK7P1xoLOFQLEFrEEVGItE+rl5+Le0/f3tv20Go0N4+v2R73iP7JjfhEgaoEKYOFps\nTEeho8QLoqqI4s7vdoO2V8e3xqgATcIERCWfSTrYgCZaI1k3GYiaTYJOKhW9Zy9m4VhZ4M8R\ns8zkPclFdrC4bDWNTnT413vQ//sP/fUu0T7ffpzTd+Hnd6K/dPMtOtSn//lO3/ge/UDWGaY5\niUT4RtnghrLMFscW806OZA73K4I/OX5w2LHkiY/iyTaRdrAFTUykkGJKcAbsNzGUkvf8xRoi\nFW1r284fVyO7OWPreQ2cURHYaS6RuA/PIpK8APVBLwR8kQtApuiSJZh0sqIbGipOiFJypzAJ\npd12xfCqcnRLRDI8cvBJBtKgJGymWHb8i3k4XlVMaG4r4pZV4BQyWGRyweYnUtjNWtXtNFtM\nJElUIJzsgUaNJQ3cZV7ET64Ye4dJoAbjxBJJWI96SpQNHFYNRu5YGCOjYMNWrgaglYzkWCJl\nymE0I8QqbvthKiUTi6A9UXtu1puMSBoax9oZgkbUh31DPPwcxEGCxagF5coWRQEzZcCZyWCu\nJBJWuwQyVEyla1QV6kZ8h0iaH8ybmE5BsrseFOYrf7FQkWLvIfNeKo0mSDOAWqk4KikLaTIi\nzdmOxDsTaBtcmQAMZ1VydvpA8kHeVjf1k4NkjOJU7oqqjQLnk1AJOErqBsM/LiopZLH225b3\nrNdisfKO09F3+R04j7njprUTMmMILPBSUItI9e3osAbRBDL+uuhRvphZ4+Al0igibHm3GzrH\niZn8mYCO555yLw2DkQxOJOhgEAIXRovKaKl2y8HxZwC5FUjueDyQ44ZMF2K9LZFwZo60cwAP\nFh5Ew7W+JCX0BGS3pAr4nctNTkwiPeN0HeV/0gAe2Ud20STosgOgvdUKpCun6nmNbiwTKUIR\nDM3hTfDUmoyLAofaDjfjDBYH52qrmsDedjqM+JXSCfq8orOQxo2NK07KfDnrMq4czmHcPEbI\nfqvYgB5i81X1MT0mAyONWvVDXMODgtizJBnk4KR5zCbBoC/ImcQTQZm1ApnsjR6cGYnUAWoo\nkbSUcFqyZEouh2jGQhAWSf0oeNzPchiENlwruyVRzXLFbD04rr1TeSLZZCLqKJJTxAiqUCeo\n8nDQq2AQgLa7zpAJwIAPxy/uQR7dxTa2kgxqR/mDf5gkmq0kOCWS5LnspOUcut3gRhCC4VHR\nA9AMYuzR7ggiad5IiATjwIXA9mB3bDRp7cMx8yWYgs4OUNoUGGwIiSTZj7CILSI1t0PRH5gP\no5/1PZ+SJ2oT7y6RtOUo32azu4oXwyQMXwEa4DAzGNljxIOyKAhTgfMBiWRqVW5YKEZVIpKO\nuPDILspIhASzzIyODLUSifOE3B+SQSuhu9jmJJJfjtJSQHgHsIvb2Di455HwIL1GMqeq60C1\nZBqMcikm6ggo3ucNRuFY0zeWA+631cTYBc4MubHhilAJR8uN0BZKoJaiAJSCqbElCJjHPIIy\nVJqrZ9qkRJJCQzj9JpAfd8kU+kmdStHC92BAJ2hk5vk1SLKP2QBNwK2Mg0sau9wjeIrG4Wyc\nOCToIv5raoIRLRRtkpc6OFpoIVloXdMXJUY6GjLnAW4lH0t6ahHJb8cwSUlkxRXfJ3zanlU6\nAg86umEdcNOQMx0qwQLBBLnmWkm9jWj84icFSeJRqUx4HNV25Jfr2k8RJTjMDyEQdFonjHA4\n4cVMcJBhlhK3A2cRKdMOJTyKwhElTcCpx3ec2ioRepMDDgKACJBG44cktqE3KZF2IdUQSV9Q\n4oIPTjPRaGJAu2GanqwgktQYTWDJhAUt1lrVKaI5E4gT1/7oLCIV2tEy5AwzJ7jHjUmC25or\nqoO9blB8pJSUAI0J4atJDQrt1y6k/ciNM7t21XBV66gMJ1eP+iRTRSSLQqfOYSbj45JDMMUh\nM58F94tI+XYMhWRKCLKuHmDRgHbMzc3dEMooHs6PJNEZhYjrSyULhBjc5su8isjlsvx4L3WJ\nqerWRGWxZCTCxnJWR6TA/BAISW8Vu86ijCUQSZ5MZsJxv4iUbQcmG6qBBHIIMgG2DnhzVonQ\nmRz7KFcVjl+Oyh1fEq5YIYBHPrzKyLUtkPxhSYUQDInN2/1BqiUS1CLNN/4DTCRJNXHmxJIZ\n4VtEqmwHJ0RUc2CJhBJCMuDjOU9S7yRbx71A4NOg7MWVIXDJV1SRbJD7arAucrXXpi2tPgYC\nBmnQpJ/tSi0cQ9jAQ0TgM4NfZtGpSSLgY53nwllEyrUjdJHxlRsgpjkWoEocAFMgkk3icsNO\n8MmNIlecx7gnO2iygZjcI2w316R0Gz0I3NvJN3k46EkniAsNVEmnUWW03qEaGh5bROpth0kk\nPHJmmoUe8ugAGmdySH54AeGWP7dlE9lRrSC/mX0iOb0V8sMKCd6gK6lQHPOdRKL4yI4TAbdi\nMPqIIZSUJplWbNKtb4tI+XZ41kUUJUlWpwXmZCyRYmFRSZy4YRPC8fJlJJG8iDUERmGqJeqI\ntItQRMRJn+KUp/6ExA9ARtHrQ+ZgEamhnW1YYem67yrKW0fcJ/VR3rc2zfkA27WRd1TaFSCZ\nRBCt3VEXp1mqFk78ZA0YXOXGV4nLFVnwpoVFpOp2SOeal58VrmzeOuA+Gx3tTUdLf1udMDeb\nEKwgUk1vYyLBrrMMrhaRPAkKcOxDVWBgS86MLBKJdCMiyLtFpNZ2ME/q5s9eQSJ5uKMmVU0O\n0rl2jeSIOWksu1NSQ6QUEjpVH9g+niaynSiMcC0cOz4xGugrgdwA96jryICm6KAGzUU2MZE4\nSeofk7yyz8N8tUuw4qEBtr3dWVfIM4ZIUARMKxEfDhIJKCOjQbYikYQrFRpqhGPGR+7SmcGV\nYlIGgdmyduMbpBZ5KBeRcu3IAOqnH0XRoM+E7cn9+lVw7xzCaeFRCFVMsvdR/HKUSF5XbTyb\naqTHmKWihzwfdXAo9hsSv3CzJVLQQx6b5HHX/SJSph2SfIkkqtlYgjR8DpFAM1USyXyyKH3b\nXKC04/Mu+GLPk4tRFMumWLxrFxVLvFuLgec+Dwf1dUwkfUPQ52iLEcYmgPaz8rgWzSU2LZGU\nPypAVAqUno9josu9e+jdXyftMBt8HuuB2WyAvapcjak3aAFKUbLnETOJCacgkBZtcHwIGw4h\nqhUPcLRhgbFaRGpsB8rPxibNoOUGyH/f5t4/dN1VbjYEzbLQNXATxa9X6ZrTAuFbIIU5H0wY\nW0BmOdIDJ91sYBxc8gy79EabDj3si0g17UREklVS5dr+qHv/8FDLkdiPv/2Snj9OpARCSqSt\nRkU5ZxyRfBzBpMcQozK8XkQ61g5Ff0TWnTpgp01ORB2KoyU6H18fAodSvwEGNwM3KpzD4Ohy\nMK2JBo4lkWHYODSHzXUfy+bedg7hkf2kgBKgXa11uvcOD7ZrPi/J7M3z+ebNhmoMiV8XyrHN\nhjo8PKvxvp2DRXdpsu4nJFKueLa202OF4RzpptL9aCL1PFU4vgJDwf3xAnmojUWkxnYkSV8w\nWOdKO/8KeUcnVCQXQ6YWuSdGwIlKSkFh5Gp2zv0i0k47KpFPlnWO+4EOc+CjxYFZDAwmkv9Z\nk7c68k8MgBMvhQr5ZTdzLiI1tfM5mlcUI8/9Rcyl+IiXVN7N53l3z8CJ43Di1vPqrmLa5yfS\nHJsNeoL2y/woexaRiPDoXCLFn2nWEMmN+IFE8vTkzYjUQRq3nSFoitLuipG6fnJs6j1X2hkX\n6YF/BqT1cThx69py7JR2dchkRJq/HaoZ1XPcX8Jd/KT21M0GbQOYlEoApziEYbx29t4zZfAF\nNhtma6dCL4+y50xObqlwAZFaHjlHaYYMkXabn59I6RcZ+9oZhKfq30+c4/6qyUmlzaBFSY2v\n8t2gvE4jkq8n98JvfiJ1it8h5q+RXnezgR1565KTIrcxP1I4ldcZTKWdcd/9jETqAHUakTqk\nyDj3T5qc07VUKxDf/alw9ud9jrka7f5EIl1WjlL317iNy9HQ1f0BIHEhOhdOMgp7HhaR2tq5\nboGUur9KTkYLbfk2Z3rnhUCSkT8VTjIKu/9gZhGpqZ0L975T95ftb0TRSqcvSvaBMJK8+5Fw\nnFF4gc2Gmdr55NCXI5Lv/hlEKrg/mUh77S8itbVDFRs4w+yayUn+OWos7TLux2opP2eVj0+A\no9+OyoxC9sEz0HTbPYj0WpsNSYA6y2zX/eASkDIp7n4E7Aw4giM7CoUnh6Ppt+mJVFPkx9kV\nk1PfoxOJ1DOsZ8A5ML2LSE3tLCLljy8BkXe/iHSC+xOl3ZVj9BRpV7qxeHwJiLz7sdKu58nC\n4dU2P5Gu+zQ2dX/JZkPhvp3jS0Dk3Q/dbOh4sHh4td2ASFfa3JOz4LfQmcMAAAKFSURBVBTc\nz4Xm+e082WZGs+CU4MyFpp8Ag9qpbO/Uy7Nb4wcsw6/fxio6ctkttbaIdJ0tIlXaItIiUskW\nkSptEWkRqWSLSJW2iLSIVLJFpEpbRFpEKtkiUqUtIi0ilWwRqdIWkRaRSraIVGmLSMuWfVFb\nRFq2bIAtIi1bNsAWkZYtG2CLSMuWDbBFpGXLBtgi0rJlA2wRadmyAbaItGzZAFtEWrZsgC0i\nLVs2wEYS6bOt3D+D3853Xt5aH/hv7C+17T8HyMDHcWvvoX3wriMkVgyi6JZsqOyPBdwyZrxG\nfm2PuD2n0e185+Wt9cLluY30NYWP49beQ/vgbUeIrRhEcEupkxVjwdfGDdXIlnbHYGeivyaR\nzLh19vBliHQ8iBpum5RI4VQi6a+IuWGYEPzIlONFpM32K5LeUm6ngkgj9di4po4Ricol595E\nomLvFpHAaom0t7ipI9K4JeWVRNqjQqHvtP/0xLYT5YeJRAefn8laKlJ5nTTglga7kEhHCta9\nifRp5xHpeEWbyCqJFPZvOd5Ki11HJArFy6EYao8afOswOY1IOLC3HqFPG0KB/ViDCzcjEulr\nJpZ24uDGFelUaWcG9q4jpDZC2pVjrfaWNhtNpOyHjuXPJL/AB7IhPzb7t5SbhoG96wiJlYKo\n8pa9WKu7pdHuPerLlk1ii0jLlg2wRaRlywbYItKyZQNsEWnZsgH2//bpWAAAAABgkL/1JHaW\nQyLBQCQYiAQDkWAgEgxEgoFIMBAJBiLBQCQYiAQDkWAgEgxEgoFIMBAJBiLBQCQYiAQDkWAg\nEgxEgoFIMBAJBiLBQCQYiAQDkWAgEgxEgoFIMBAJBiLBQCQYiAQDkWAgEgwCZpcn7ZlYRkgA\nAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "pairs(~ mpg + displacement + horsepower + weight + acceleration, Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Spojenie kombinácií alebo priesečník funkcií <code>plot() , identify()</code> dokáže vytvoriť užitočnú interaktívnu metódu na identifikovanie hodnoty pre určitú premennú pre dané body na grafe. \n",
    "Do funkcie <code>indentify()</code> vstupujú tri argumenty: premenná osi x, premenná osi y, a pemenná tých hodnôt, ktoré chceme vypísať pre každý bod. Potom klikneme na daný bod v grafe a R vypíše hodnotu premennej ktorá nás zaujíma. Pravým kliknutím na graf ukončíme funkciu <code>identify()</code>. Čísla sú vypísané pod funkciu <code>identify()</code> korešpondujúc s riadkami pre zvolené body. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 452,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [],
      "text/latex": [],
      "text/markdown": [],
      "text/plain": [
       "integer(0)"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAMFBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////QFLu4AAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO2di3ajKhRAyaNpp03j///tNIkPUFTEA/LYe93bZBLlEOsucECj\nGgDYjTq6AgAlgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEI\ngEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACI\nBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgA\nAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAA\nIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiAS\ngACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEI\ngEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIEEEkBZAZHme5\nvDgHhACQBJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEA\nBEAkAAEQCUAARAIQAJEABKhOJK+LggFWqEykl0WoBOLUJlLY4qFa6hJJjR4BhEAkAAEQCUCA\nukRijASBqE0ksnYQhMpEYh4JwlCdSAAhQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAE\nQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEqFUkbiYEotQp\nEre3A2EqFSlKFKiIKkXiFuAgDSIBCJClSHszBYgE0mQokkCmgDESCJOjSPtrQdYOhMlPJJl+\nGfNIIEoBIuEEHE/2ItFLgxTIT6TRGIm8AaRAjiLpbRCZbEiCDEUyRkWIBEmQpUiWLREJDiV3\nkRgjQRLkLxJZO0iA7EViHglSoACRAI4nS5FogyA1MhSJURGkR44ixaoFgDP5icTMESRIliK9\nxkiIBAmRoUjtGAmRICHyE4kxEiRIfiLRIkGCZCgSYyRIjyxFilUNAFfyE4kxEiRIjiKxsgGS\nI0ORyDRAemQpEkBqIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiA\nSAACIBKAAIgEIAAiAQiASPYKcOkgbAKRbOG5mB02gkiz4REJ3EGk+eiYBM4g0nx0RAJnEGk+\nOiKBM4g0Gx6PwB1EsoUnawcbQSR7BdAINoFIAAJUJxJtDYSgMpEY/UAYahMpbPFQLXWJxAwR\nBAKRAARAJAABoor083lVT663n1AhVmCMBGGIKNLjrAYuQUKsQtYOwhBRpJs6/bu/nv1+n9Qt\nRAgHmEeCEEQU6aTu/fO7OoUIAXAQEUUymoLldgGRIDNokQAEiDtG+v59PTtyjAQQgpjp74uW\ntTs/goQAOIa480i31zzS6fp51DwSQBjqWtkAEIh0RFI6YUIAhOIQkVZFQSTIDEQCECDqhKxz\n7w2RIDMiivRzQiQolZhdu8dVXV4zsnTtoDTijpH+KfWvSUwkcoQgQORkw+9FXR8picQFSiBC\n9Kzdpzp9pyRS5HhQKPHT3/fzemcq2onNTRxAhiPmkT4iiOQ48kEkkCGdJUKSIZxHPogEMhQq\nkr0USzPFGAlEKFIkeztjbabI2oEINYlkL5p5JBCgHpEYDkFAihTJ2vggEgSkUJEsIx9EgoCU\nKRIJOohMqSLZCiVBB8GoSCQSdBCOqkQCCAUiAQiASAACIBKAAIWLRHoB4lC0SCS8IRZli6QX\nZjZO+5oqGjoYUbJI+qIgs3Ha11TR0MGEakSavOIfhbVGMKESkewG+YVh9StMKVkkTRtEgrCU\nLVI3mOmTA4gEYShapNagQSXGSBCIwkXqS+uNer9C1g5kqUAk5pEgPPWIRF8MAoJIAAJUINJC\ncoAuGghRhUh6ckBzh6QBiFGDSPo8kuFUkFhQJXWINCpYYloWQKcukbqZ2Vf5XTMlGIwxV7VU\nJpLSJme7GVrBZRRNw5irUmoTqX/Q/5MqXfsJlVGrSJPlrAKFjx6hJmoTqevaKe3fUoWPHqEm\nKhOpTzYEOOsRqWbqEmlyqV+AtUh4VCW1iaSmPwIUDtVRmUj6sCjApA/zSNVSnUhdBE55kKRO\nkeiEgTCVihQlClRElSKRqAZpEAlAgMJFsuYURne5A9hPqSJpi7vV+J1+qdCwpb7fWkJP8nZE\nUAplijRcLTEtTLuQohm79lyE91qJN18Bya+1gHIoVCSjFDV9a2SZtuXatRW2ohEJihSpl8VS\nml2B/l9Kf1yo2YKqUCOIZP4LkcCLkkWyd7yMF91E0m/hZS0akaqnSJGMfJwta6dlC4x41jHS\nyg4C1YX8KVSk7txfnkdqJpbYsnYjdcjagYUyRZoxyGHL6TzSpPvGPBJMKVUkORgHgQOItAYi\ngQOItAoJBVgHkVYhoQDrIJIDJBRgjcJFQgGIQ9Ei0SmDWJQt0lphAg0WbR48KVmktcS1QINF\nmwdvqhZpfyxS4/CmYpEEZlqZrIWWkkUaXTExWQa+PxgiQUvZIg0jGMtgBpFAjqJF0poh22CG\nMRKIUbhI4wLNJundSu1JupG1gzc1i9RbtE8lNIIKRbJetocLsJNKRJq7i8NahpzmBtyoRqR2\nPDQqflEkBkDgTC0ivS2aeKOa7mvOZ2uBSOBAPSK15Q7ezN9n36wEJsE6lYk09PD03DciwV7q\nEknrrfXPZrt2biKRj4AndYk0tEhq/MJsLRbrQj4C3lQmUt8A9SLpD+Ot1y0hHwFvqhOpfVTa\nWtZ5W1a/vG/0CNVSl0javKzSvwPTt3OGSNBSm0h61k5zSRnbOIdHJGipTCQ906AZpPT3m/mu\n3rS08e5QKdWJpBdvm5DdpgZZO3hTu0jjntxKZ23a7euzFthUNVWKpM/LjpqURZFm2x8apuqp\nVKTBoVG8ZZHm3mKoVD11ijT0yCYBF5yYlYzkHdQq0iiQJtJ8Lw2RYBZEmgSczRsgEsxSuUjb\nRjeMkWCOQkTyX+QzztotFUTWDuYoQqRd57EyNFopaL7bh0Z1U4ZIPjsFLchWNqqVTAEijW5L\nLBA2wCek81c42YvUr+JOXKRQBUMa5C9S91/SIh2QIKcrGZXcReoMUiL1CtZuRBeJrmRkyhBp\n6N7tjBvq9IsvUtxwUIRIgv2YUB2iyCc2ay1ik7tIYmfoYFAQlyJ3tRApNvmLJHKGatdVBOvd\nxRyxIFJsshfJ8wyd/ZqkQgYXhXyMfChAJJ/yxyvs+kfVLHw9RUaQtYtMpSKNomgi7bvRXUKU\n8BkyokqRjBGE+b1JK7deBbBTgUij2wQpo/+mWrqwDiI5/6mnTaiI4kUyBwvmtyKp8QvNetfO\nefDBKKUqyhfJKNBob/oG6NVK9Qtfl5MNzukw8mZVUbpII4Paf/TNjtkQTTZcK885MJROdSK9\nW5+u2elmjrR8w3KPDJHASmUimSOgt1JN2yj1uyxmGlxriEh1UbpIK2MkPePgU57EhlAC5Yuk\nd9X6FkkN73TZb73Nci1PZEMogeJFMtwYcnLD7FH7rH3erJ/8zCPBlApEspSrdGc0e+iOgSd1\niWRd5a2GRHjo8FAstYk0ztEpo5Vqt0Ek2EplIvWazIpkTs8CuFGdSKMIhkitTIrOHWylVpGs\no6Xts0oAb+oVyZa1G3p1iASbKECkbSMac/ZoUsJS4i7wjYYgZ7IXadsCgmFlQ/vDElq/ZNYa\niDULMCF/kTbt0CW455MKs5ZYB1UAb3IXadscaj8Qaroc+GS/uRbJnuYDeINIM1vMvIFIYAWR\nLFsoy035EQmWyF0k6TGSJpiy7ro5JFRB/iK5ptBGNw2az9r1Eimjh0fWDhbIXiTHSZ3R/bbM\neaTRhv1XaY6EYR4JZokq0s/n9XX+Xm8/oUIsl+hU7ujLnVEGHIgo0uOsBi5BQqwWuCUnQVIB\n3Iko0k2d/t1fz36/T+oWIsRqgY4iGX06RIJ1Iop0Uvf++V2dQoRYLdA5u6dIc8MWIopkDNCX\nR+uHjpF27QOVUkmL5JWyJs0NzsQdI33/vp7FHyM145S1cTuu2Y2tm5D7hikx098XLWt3fgQJ\nsU43LzvMyk5bnVGyYeFfAG/iziPdXvNIp+tn9HmkruB2ZUO/gsE6DrKlv+3/AnhTwMoGl/Im\nc6z9GiBLQBeDxjWkv1c56YikdIRL7n/0L8iKRH+veg4Q6eukzl9hQ9hKCyqS5TWoipgi3a/q\n9NV8xl4ipJ375lOxMRJTtxBRpPvLoJv6eDS/V7XYJoUSqdNAOGuHSBBRpI/n3NHtPRP7UOcQ\nIRYLG0ZKajSPZLmwfGHmaOkydKiViCK15+1V+4d0iKXS+vFR1ypNf8hEgBqJLtK/d58u5hIh\ne/et/ylgAVm76onatfvoljM8PuIuEQp/UyDmkSonokiPkzZiX2yQInSSpEWCyok6j3Tr9Dkt\ntkeIBNlxwIRsSiGExkhQPdmKtPeWPqPbCllvFjQtup188ogHZZOpSBLJa+NGd5aSp0X33qES\njMhVpP7nzo7ZZHftBet75vefA7zJUySxVMFkd+0F63v6/+GhF5kNO0XS71S3konzDbH0ftki\nMc2bEXIirc0NSdaqEpHM8JAye7t2H6fvv5/fJ/XTXJdXK3iHmN+g7DESE1w5sVOkW3uLrbu6\nrK3o9g1h30AgazcqaPrCwVk7RMqJ3V077Ync6eVQkNhXQ1jnipbei5UBQKSc2CnSqW+RTpFF\nSowQdjFGyojdXbtujHRr/q1cPx62VocSJr9G1i4j9iYbups+Xp6/8pVbmgSt1aGEajuYR8qG\n3ROy3897Pl6fzZL6lKnSJETyMJqBPFc2JAYiASI5sNbDQiTYLdK/Z9fu41uoOtYQkbF9bYVF\nJf2bKt45ca6wqBipZMNVqkLTEHGZ3sXOOgXbXX5hPjTTDaEOxNLfYhm7cYjImAm4t0IWQdrN\n+gfV3QZ5Q91pvwpCbEJWbHnQOERczOGOGv0/3ky/R16z0STar6KQXCIkRxUibdkYUmd3165r\nkUQHSUmJpLoe3nSzHSKR6SuLvcmGz9cY6ecktjpoGiIukzHSTLLh/dN8MHZ1ioNIpbC7axfk\n+8FSy9pNP9vurB0ilQUiTYNPvnvC+sn0eaTBIjV6eyGM9hOyZ/eEbBCyP70cGieydkWBSA5s\nb2udmhvmkQoCkVbxaDoYAFXHXpFuJ+nx0STE0XgMZhCpOnbPI4knGsYhIrBY+4kUDp912Ifu\nWyXsztqJrrGzhQjOStdtJJJbR6+bXyKhUAtSS4RkiSvScsixSMtbdxvryXBEqoDdXbvH7HY7\nkJuQ2tINW9xAb2MardNmPpiRGSrVw95kw+XyK1WVuRA7inHpWa2LpLQfyrx5pPmwuWgohr0i\nfaecbHCbzVmPqfXRVLth10AZDx5FQyHsFOkz5ayd43nsPJDpDFL91qZIcyb5fxpyftmwUyTh\nK2NtIfaXsrrAoGmcsiZdn04N5qyJtCtrR84vI0rO2jn3rBz/8Pf2KNcWaV+bQs4vI3Z37VLO\n2kmfiVrmzmmMtFbcyqrW0SOkzN5kw+flR6oqcyF2FLOhb+TSdGj3FHLK2u2rHCLlxO6uXcLJ\nhsa9Z+Vqgp6/W55HWi9K+7mwASLlQeEibQvomnDQN/X95C5Zd9dKwfHs7dqFIfbJ4/7Hf7Sl\nf2LNRSSydvmASHq87SI57uYZknmkbEAkPZ5z326U7/Y3CVEKAZG0gC5hjf7WLpHouJUEIr0D\n+iXK9yXW6LgVRF4iyZ16w+2zJvlr855as7fj0iqqLOWJ1A+yISeR5DpDw3V37Q9rkLcVarKJ\npaD58vbUb2cpEJGsRBILP5TUfmeLNYhq25rxJmZR2oIhW3k76weZkJFI+wYk05KUdtbbRj2t\nIJ0oSxM+XXnKYWPn+mFSTiCSnEhq+PZLRKoNRBIWqUGkKslIpDTHSNrmbXlqfx0ZI2VHViKl\nl7WzlafI2lVITiI1IeeRrEFW55H6HVSvpXVCyrN+kA15iRST7ZcymR0yqVYFpbIAkWZq4KyB\nNt4y9pEZ59DJywREWqqBQz0Mb8SW4W2vBxwLIi1WYL0ic1vKiEQiPBcQabECiARuINJiBRxE\nUt2ck7UIkZ5dAgcEVkCkZpwYGy1DbfosuG0/ZcwcmZnzZmuaYDYTj0fJg0jjZFs7vzSZl51I\noc3nqnFBwwytbz3MANs/FcQFkcbTP93PXgOl/Tfar3tRjQvyaUgm+0xaOUgXRLLP+yj9faU/\n6vvp/+u7+gxtJvswPsoJREIkEACR9ohk9PkQqWYQaW6MpL8/N0YycwGBxkibCoGDQCR71s58\nfzZr1ygj493v6rNEzpq1I2OXCYWL5Jbysswjjd+fm0cyt57MI21j6YoOSJuiRQr/J51GA96U\nLZJkYQdFgDwoWaTwaa8hAp2wykEkkQjRengImyiIJBch/IFhSJYsJYsUfYwU/MgwJEuWskXy\n+gM+m+leijDci2vYYfN3U6xtzFqHdClaJJ8hhVW+BSMHWyyXXmy6CGJde0RKl8JF8g1tWQ20\nVKu3S+YSIdXp5Ppp1vttiJQuiGSPrBZfHDV0eovUS9S+4ty7c7GEMVKyIJI98pJItkVx2ioi\nXaSuYfKNPN6GrF2qIJI98qJI4y26F2ZEant7IpkE5pESBZGsoZfGSNMzXr9nw3iM1HRZvWG7\nLZEhExBpHHo1a2cTaTlrp5wsod+WM4g0Db4yj2Tpg3XZOfs8krLu4xoZsgCRtjNtXeYak2G+\n1th1plhapIxBpO3Yzvi5xmR0I1Zy26WCSD54LJjQfi5tkf5nByuIFAfW/xQOIsXCeisI/V+j\nR8gKRDqK6foI7SfkBiIdxXR9BFm7jClHpBCTMCvfeL4UduVta09O5BZecAiliBTiz/nSHRu7\ntQzLE0hL1zGNHoWqCAdRjEie+20qU3uhfToXduXtRkwkgTJAgkJECpHympSpvdA+HS+/G205\n97b2ooRHmJQAiOReprBIAr0yREoGRHIvU1YkiTwBIiVDISLlN0aSgTFSKhQj0sFZu8ldHMy3\nQ0HWLhVKEUmio+RQ5sw8kuV8XptHClZFOIRyRDoSoR4WUuQLIu1Ev3HdzhQc3bSMQaRdmCc/\nk6v1gki7ME/+XdUmlZ01iLQH8+RncrViEGkP/cnPKoXaQaQupHm56roVZpZh8uXmQ/p7NhE+\nnnvqfpK8yxBEegc0kwbrDYx2S8hxdYebQrZCKevU7Nx0L8m7LEEkLeCGIU+3Bshy1r9eavol\nD20jMynSEsT1nqyQHoikx3NOws306bq32v+7zp+yLF+dC8JQKU8QSY/nIZL1LUSqDkTS4yES\neIJIWsDtY6S5t/zGSJPXyd9lAyK9A3pm7ebe8snaTV4nf5cRiNSF9JlHWnhr+zxS04y23PRV\nznAsiJQM4wbI/IpnSBtESobxoKlrl6o8GNmBSKkwSdeRv8sJREqFqUi0SBmBSKlgEYkxUj4g\nUiAEvtSPrF1GIFIXcsuJ380NTe4pNPyzce6U9dlus0TmkbICkd4Bt5yz3WTrWyfr7g5rIyaR\nJyLRr8sIRNICuorUNO3yOdV0i+nM3Tck3IZdN9UBEgOR9HhOcVXXtWs6k3ZkroctyXZnDSLp\n8dxEemUAFCKBBiLp8RxFavoF3TMiuXfTEKkQEEkL6Jpla9bGSG7Ji9GV5WS7cwaR3gG3pqtX\nsnYOCbfJvU7IducMInUhnU/hPtmwMI/k8ELfAHHVRAlEFenn8/o6+663n1AhYuDQD5y715b+\ngmoMuxgjZU1EkR5nNXAJEiIOLhfQaj9nXlD6Q4NImRNRpJs6/bu/nv1+n9QtRIhYrPUDV/Lh\n1q+CQaSsiSjSSd3753d1ChEiFjNf3De8P3o0XjD6dPoVseYuoWDZURAiijS99Yd4iDhoXbtJ\n6q3dYvRoitQWMhojxcnakRoMBC3SdrSmw2hWFodE/c/BqUmSLkJjEanZq4+4Y6Tv39ezvMdI\nWuvSZ8JHyXDbJRHtC/2rPnNPHlvO1h1EiZn+vmhZu/MjSIgY6CINXTtTnTmR2mV67929r2Hy\n758hUijiziPdXvNIp+tnzvNIhkjvZ13jNM7OjXfqVhc1to/oPiHr3z9DpFBEFSmlEDsYzvhB\npO5f5jk+TjZ0TYmytCfT7MN8/FHpm+ruuycsko5ISidMCCGMi1qbtubNeA2q/miINGPLNB8+\nG39culfdQZSYIj0+lLp8t4XknP4eWiQ92dClH5pVkayfz12Pff2z1P9MZUpEkR6n90K7dyH5\niqSfx+YYaXyO28dIMx/PvUWif5YgEUW6qa8/m75Or2V2pYhkZO2GTzW3aHWhZ+U+RqJ/liAR\nRTq9d/w9nX+LEak/8ydDu7nLKOZN2XIZBf2z1IgoUve7f1wuWYsUqmdFO5MzEUU6q24S9nzJ\nWyTLGS/SRMRqZ2jP5Iko0pf6aJ/9qkvOIk3PxKwak6wqmw0x09+3/rf3vfI3MbffclZptKwq\nmw1RJ2Tv1+7Z70dJInlO7BzTHbRWls7eXqKKlFIISZSxrMF1J4kelkchFpHo7O0HkQTYMAWk\n7aT99I+8vRCbSBJVqRxE8mF8qfn8RXrGlRXG+/rjyhTUfD1Gjxt2mniU/lFPGkTajtYTMhcs\nqPEm+vLWfp92i+HRfG9LP8tPpIWqgC+ItB3tT3r7VHVrV0ebDFsuNQNq/ELjegRkshyIJAAi\nbWaiwHRR9+T1pYGJ3aAtJu09XIyR9oNIm5kVSW0Tqeth7RJJJN9G1m4/iLQZm0ijMZKLSEM+\nwnhvaz9LZgaIeaS9INJ2ZsdIk00Wxki28izX2EImINJ2ZrN2k02Glmqp99RvPFxnf3gDQRO1\nEUTyYTyPZDnxjNeVWj41TdeOP4nTkDkrECkwzj21ScbiQOhebgaRwuKeO9iaZQhIQlXJBkQK\nCyJVAiKFZYNIwbp2MldawCKIFBj34YbTCH97ImJcrPu9XAv6LYQHkQLjngBzuMmsTzZtNM/r\nVAJZu80g0hIOf73X09+z9+HyuWPX8NOx0qNummtbc3wKPjMQaR6Hv8tuE7LWstb3mUYbPbpU\n2tzHcfRDi7QZRJrH4a+3kSBQC69Py1rfZybaikijLfxEctkIdBBpFoeTrusvqdGWk9enZU1e\nmSvLq0aTQGrubbdCYA1EmiU9kRxaCksgo5vmNsqaFAJrINIsKYq0OnaxVdpyDfxCCTOFOFB1\nggKR5pn/663M0z3WGKlZPVnVyu7rJdjr5kDlCQpEmmfu1Nh8GYW1LI+snUuFh4XkO9g/X1Ud\niLSE/a+3OXx3uYzCXtb2eaS16i5UejHwbFW2xk7nVxcbRNqMyynj9Sd9b9/I8Vx2aBzDBS8W\nRNqMk0irW8jsYylgXaTJRhK9MkSKsUuCIfxxOGV8zqr9Z6JbCdOtZBxgjBRhlwRD7GD9lDlG\nJN9JIiGRyNqF3yXBEDvwm81ZLdVjn3ERLudyKJF2JElKAJF8WD1lDhkjNW7ncpgxUu0gUhAs\nbcO6fOvXI9n3Wn1lLY5PbcEEkQIxvlH9eq/LRySfVLYtzvbaggkixcGh9yTTHXTNhGyuCm3U\nIogUhWgp8/VS/KpCG7UCIkUhf5E2160yECkKuYsklSEvF0SKQ+ZjJERaA5Hi4H4jlZ3FumTt\ntlcFkdZApFi439pr0yab5pHcr9OY5Me1n6KUkgxEpJzYlzvbs3egrF05yUBEyol97cLOvUOc\n7+UkAxEpI/aNVBIc5yRYJV8QKSO2nneLNy9OgQSr5AsiZcS28248/kjwrE2wSr4gUk5sGlLM\nTAYldWwTrJIniBQLiVv3bElyWZYndHu7XWjhFGWlDmEuHTmMpZkFj9L2VCWZEJFxv6/dWjnO\nA6TRY7/3Wpy/t14n9+7zO9ClI4ex+HkQKQ7TPkzontfs+GMtjtL+E6jBskjrm6TDYmURKQqW\nftb4FfGB98zvfS1OZ9Bukxw+UFbJhuXKIlIUDhHJ3hNBJE8QKQGOEGlmQIVIniBSCsQfI22o\nyuR9xkg2GCMlgFTWLkhVJu9HzNqtbpIOZO2SQOYrIERyxdOrKca354o1j+SySULpceaRCkHy\nD7hWVsrXSOTSZiFSTkgOKbSyAo1URIrNZRSFSBkhmeTSygqUOxMpNpu8HiJlBCKlCyJlBCKl\nCyLlBGOkZEGknCBrlyyI1IUM/csKdDsur00mG+7/VnPrPpKzXpvfiwsivQOG/rsXbZbfpxSR\nRRYOazd8WCokpdYKkbSAIUVaDyBTB59SJvuIFBJ+jJTS+AmR9HjB4joEkKmDTymTfUQKCZ+1\nSyqjh0h6PESSKwSRAuySYAhrPESSKwSRAuySYAhbQMZIkoUwRpLfJcEQo4Ch8z+ZZu02pJfJ\n2kXYJcEQk5B5zCPJBFrfx+nGXauBmUcS3iXBELBOSl2n1EEkmCOpwXzqIBLMgUgbQCSYA5E2\ngEgwC2MkdxAJZkkpvZw6iFQNQ6rYIaGsPcxtfdjdxGSQuT3asK1HDbbvkmCI2hhaF4cpToeL\n/nwuvUiohXOYPt5WW0SqhGG847DoRttkbuvJ6w4DqoTGXNOq+Hygye4edQhKEse6KIYM3FIu\nrn2t+zOs5jN3k9cdUnwJZQGnVfH5QLYSPSoRkAQOdWEgkgEigR+IZIBI4AljJAPGSOAHWTsD\nsnbgi8880tLWzCMZ23rUYPsuCYYAkASRAARAJAABEAlAAEQCEACRAARApKJYuuzB3GrllaVN\nnPPh+xLKe/aJXywiFUR/J7rFc8RrLnJ9Pld8itN/nyOKRaSCeC8AGpYBzW+1eXXM8IrzmqG9\ni2789zmiWEQqBzX6f36rxthi8srSJtP3dhS7js8+hxSLSOWASAcWi0jlgEgHFotIBcEY6eIb\n19EAAAhhSURBVLhiEakgyNodVywiFQXzSEcVi0gAAiASgACIBCAAIgEIgEgAAiASgACIBJ64\nZ8F9Somxt2TpiAReuM/L+pQSY2/Z0hEJvHBfKeRTSoy9ZUtHJPBhbtXnttWg+9aO7ttbuHRE\nAh8QaWZzjwgBQaTUQaSZzT0iBASRkocxkm1rjwBBQaTkIWs32tojwPZdEgwBe2EeydjWo/jt\nuyQYAkASRAIQAJEABEAkAAEQCUAARAIQAJEABEAksBHt68eDB5p+TXuYMFF2STAELBB2yUDM\nQG2A8B8IkWBK2EVsMQO1AcJ/IESCCWGXVccM1BbctUXBjQ29S4IhYB5E8o4UeJcEQ8A8iOQd\nKfAuCYaABRgjeQYKvUuCIWABsnbbA0XZJcEQsAjzSFvDRNml5efz+vzjoK63n1AhAA4hokiP\nsxq4BAkBcBARRbqp07/769nv90ndQoQAOIiIIp3UvX9+V6cQIQAOIqJI0y/qFQ8BcBC0SAAC\nxB0jff++njFGAlES+LL0mOnvi5a1Oz+ChIAK8ZltFZ+hjTuPdHvNI52un8wjgRg+63/E1wyx\nsgEyx2flq/xq2XREUjphQkCJINKhIaAUEOnQEFAMjJGODAHFUFvWTinnYRAiwRbqmkf6QiQo\nlphdu/tp+eIJgRAAxxB1jHRfXhgkEQLgEOImG760dauBQgAcAVk7AAEQCUAARIJ8SHjxGCJB\nLkS7254PiAS5IL6sRxJEgkyQX2gqCSJBJiBSkiEgNxApyRCQHYyRUgwB2UHWLsUQkCHMI6UX\nAkASRAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEA\nBEAkAAEQCUAARAIQIFGRADLD4yyXF8eTdGriArUNR161bUmn0unUxAVqG468atuSTqXTqYkL\n1DYcedW2JZ1Kp1MTF6htOPKqbUs6lU6nJi5Q23DkVduWdCqdTk1coLbhyKu2LelUOp2auEBt\nw5FXbVvSqXQ6NXGB2oYjr9q2pFPpdGriArUNR161bUmn0unUxAVqG468atuSTqXTqYkL1DYc\nedW2JZ1Kp1MTF6htOPKqbUuWlQZIDUQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQC\nEACRAARAJAABEAlAAEQCEACRAARAJAABDhdJv2v57aROt8fBFZrnqztYWj3TrXJX2xwO8NfZ\ndkBTra2Vo0W6a7/ny+vZ+eAazXLvvqRAq2e6Ve5qm8MBvr3qdXo6k8WxtXG8SNfu6Y863Zv7\nSf0cWZ95/mr2PlhaPdOtcl/bDA7wXX08ni3oRybH1srRIn2pz+7pTX3//fw3vJAUX+rS9Y+G\neiZb5aG2GRzg67umzwrncGztHC/SV/f0qn4b4y9oUqhb056aWj2TrfJQ22wO8KvCORxbO0eL\ndFXfH39DyldVhj9MCXIfV/D5kGyVh9pmc4Af6pLHsbVzdDWv76HwpcngyGUkUqOJlMkB/np2\n5TI5thaOrqZS//7+GN2e/Y/kj1yWIuVygH9Pzz5cJsfWQhrVfDyznMkfuSxFepP8AX6cnm1m\nLsfWQiLVfB6uU+pHrq2ZVs+Uq2xWKvXaXt7zRZkcWwuJVHPI2Pymm6Yxsna/Q2YpzSpPRUq3\ntr/ny+/rSSbH1sLRIp3Ucz77dbg+XxMH3+p2cJVmaU9NrZ4pV7lvP9M/wN+vXMiTTI6thaNF\nuj0P1OM1+Zb8VHZOKxv62mZwgH97j3I5thaOFulxemVnX392zn2iNk26zpJWz4Sr3NY2gwP8\noYb1gHkcWwtHi/T3x/Kkzl/901PCLXknklbPhKus1zbtA6w0kfI4thYOFwmgBBAJQABEAhAA\nkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJ\nQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAE\nQCQAARApERS/iazh15cIiJQ3/PoSAZHyhl9fIiBS3vDrS4Q/kW7q9Pl6/nVuv4dcqcdZXZvm\n+6LU5bt77/Q17NB+63e7x4/6eP7rW722/VA/xvbvsiAIiJQISl3VH89z/vJ8oi7di7fm6/XC\n672r9t5n93TY4/T6fX6ol1/qZG7/KgvCgEiJ8He2P/6MOTfNP3W6N/eT+te++NTj/nz5/Gxr\n/l54XJ4tjho2G/b4fP7z+VbzfPXT3P5VFoQBkRJBPfthr5HS9dUx+342I+8X/x6+262u6inD\n49lFU+1mV32P3+deP39tz/3ZTP2a2/8c8sEqAZES4Z1seP5s0w7a09tft+x+f7/YYtvs+XD5\nM+em7n+N0e/bxPH2EAaObiIsidR8nv5cOP06iPT9p9Dp3JzP714eIsWCo5sIiyL9CXI7P8dI\nmg12kRp1/lG3v0bpcX726qbbQxg4uokwiHQdBj/GyT+81/7z57XZh7HHn0Iff//6e/mVCTe2\nj/NBKoWjmwiDSEbW7vXe+Z2a6zJ6zddbsvdm38Yezc9fP+7VFL0UMrY/8NOVD0c3EQaRjHmk\n13v/3uOcn/6993Dp9fw1xTrs8bTu/Hrl1DSj7aN/pprg6CaCJlLzdepXNrzffK1seGevv85K\nffy+37u2m2l7NM3na9b1Uw1rHvrtIRwc3VxBjKTgt5EriJQU/DZyBZGSgt9GriBSUvDbABAA\nkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJ\nQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAAf4DggG6yW4Q4BsA\nAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data",
     "source": "R display func"
    }
   ],
   "source": [
    "plot(horsepower, mpg)\n",
    "identify(horsepower,mpg,name)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Funkcia <code>summary()</code> produkuje numerické prehľadové zhrnutie každej premennej v danej dátovej množine. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 453,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "      mpg          cylinders      displacement     horsepower        weight    \n",
       " Min.   : 9.00   Min.   :3.000   Min.   : 68.0   Min.   : 46.0   Min.   :1613  \n",
       " 1st Qu.:17.00   1st Qu.:4.000   1st Qu.:105.0   1st Qu.: 75.0   1st Qu.:2225  \n",
       " Median :22.75   Median :4.000   Median :151.0   Median : 93.5   Median :2804  \n",
       " Mean   :23.45   Mean   :5.472   Mean   :194.4   Mean   :104.5   Mean   :2978  \n",
       " 3rd Qu.:29.00   3rd Qu.:8.000   3rd Qu.:275.8   3rd Qu.:126.0   3rd Qu.:3615  \n",
       " Max.   :46.60   Max.   :8.000   Max.   :455.0   Max.   :230.0   Max.   :5140  \n",
       "                                                                               \n",
       "  acceleration        year           origin                  name    \n",
       " Min.   : 8.00   Min.   :70.00   Min.   :1.000   amc matador   :  5  \n",
       " 1st Qu.:13.78   1st Qu.:73.00   1st Qu.:1.000   ford pinto    :  5  \n",
       " Median :15.50   Median :76.00   Median :1.000   toyota corolla:  5  \n",
       " Mean   :15.54   Mean   :75.98   Mean   :1.577   amc gremlin   :  4  \n",
       " 3rd Qu.:17.02   3rd Qu.:79.00   3rd Qu.:2.000   amc hornet    :  4  \n",
       " Max.   :24.80   Max.   :82.00   Max.   :3.000   ford maverick :  4  \n",
       "                                                 (Other)       :365  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "summary(Auto)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Pre kvalitatívne premenné ako napríklad <code>name</code>, R vytorí zoznam počtu záznamov, ktoré patria do daných kategórií. \n",
    "Môžeme tiež vyprodukovať zhrnutie aj jednej premennej. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 454,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. \n",
       "   9.00   17.00   22.75   23.45   29.00   46.60 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "summary(mpg)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<h2>Na záver</h2>\n",
    "<p>Keď sme už dokončili prácu s R, tak zavoláme funkciu <code>g()</code> na to, aby R vypla a ukončila. \n",
    "Keď už existujúce R je spustené, tak máme možnosť uložiť súčastný workspace so všekými objektmi a dátovými množinami, ktoré sme vytvorili v danej R relácií, a toto bude prístupné pri ďalšej návšteve. \n",
    "Pred skončením R, možno chceme uložiť záznam všetkých príkazov, ktoré sme napísali, a toto môže byť spravené funkciou <code>savehistory()</code>. \n",
    "Pri návrate môžete načítať históriu volaním funkcie <code>loadhistory()</code>.\n",
    "    </p>"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 455,
   "metadata": {},
   "outputs": [],
   "source": [
    "q()"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.4.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}
