Analysis_and_Visualization_of_Data_with_R.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "# Analyzing ETCBC data with R"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "by Martijn Naaijer (m.naaijer@vu.nl)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In this R course you learn how to analyze and visualize structured datasets obtained from the ETCBC database. The focus is on descriptive statistics.\n",
    "\n",
    "The course consists of three parts:\n",
    "\n",
    " 1. Basic operations\n",
    " 2. Moving data around\n",
    " 3. Analysis and visualization of data"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "## 1. Basic operations"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In this section you will learn how to make a vector and a matrix in R and how to do some basic calculations."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "At the end of section 1 you know the following functions:\n",
    "* c()\n",
    "* class()\n",
    "* sum()\n",
    "* mean()\n",
    "* cumsum()\n",
    "* cumprod()\n",
    "* seq()\n",
    "* rep()\n",
    "* length()\n",
    "* sort()\n",
    "* matrix()\n",
    "* colSums()\n",
    "* rowSums()\n",
    "* apply()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.1 Basic Operations"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "First look at some basic arithmetic operations. As in Python, comments are preceded by #."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "5 + 5 # a comment \n",
    "\n",
    "5 - 2\n",
    "\n",
    "5 * 7\n",
    "\n",
    "5 / 4\n",
    "\n",
    "5 ^ 5  # power\n",
    "\n",
    "5 ** 5  # also power\n",
    "\n",
    "sqrt(5)\n",
    "\n",
    "1 + 5 ; 1 + 6 # two statements on one line. It is better not to do this, it can easily make lines too long"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "1 == 2  # is equal to, result is a Boolean\n",
    "\n",
    "2 == 2 \n",
    "\n",
    "1 != 2 # is not equal to "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "3 > 1\n",
    "\n",
    "3 < 1"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The assignment of a value to a variable works as follows "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num <- 7  # use <- or ="
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.2 Vectors in R"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In R, there is a special role for vectors. A vector is a sequence of elements. Very often these elements are numeric, but that does not have to be the case. How do we create a vector?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num.vec1 <- 1:5 \n",
    "\n",
    "num.vec1\n",
    "\n",
    "num.vec2 <- 5:1\n",
    "\n",
    "num.vec2\n",
    "\n",
    "num.vec3 <- c(3, 2, 4, 1, 5)\n",
    "\n",
    "num.vec3"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In R, the dot (.) has no special significance, in contrast to its use in Python. It is used generally between the parts of a variable name."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can use an index vector to get a slice of a vector. R is 1-based, which means that in R the first element of a vector is indexed with 1."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "# access members of a vector by indexing. The result is a new vector.\n",
    "\n",
    "num.vec2[2]\n",
    "\n",
    "num.vec2[2:4]\n",
    "\n",
    "num.vec2[c(2, 4)]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In contrast to the Python list, an R vector contains only one data type."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "class(num.vec2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "What happens if we try to mix data types?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "mix.vec <- c(1, 'etcbc', TRUE) # R interprets this as a character vector, so 1 and TRUE are characters here.\n",
    "\n",
    "class(mix.vec)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.3 Vectors: Basic Calculations "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can easily calculate some basic properties of the data in a vector."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "mean(num.vec2)\n",
    "\n",
    "sum(num.vec2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "There are functions for the cumulative sum and the cumulative product."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "cumsum(num.vec2)\n",
    "\n",
    "cumprod(num.vec2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "bool.vec <- c(TRUE, TRUE, FALSE) # short notation c(T, T, F)\n",
    "\n",
    "class(bool.vec)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can also use the functions sum() and mean() on a logical vector."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "sum(bool.vec) # number of TRUE's in the vector\n",
    "\n",
    "mean(bool.vec) # fraction of TRUE values in the vector "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We create a character vector."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "ch.vec <- c('a', 'bb', 'ccc')\n",
    "\n",
    "class(ch.vec)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "With as.factor() you can convert a numeric or character vector into a factor variable. In data analysis you will often work with factor variables. A factor variable has a limited number of values (called levels in R)."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "fac.vec <- as.factor(ch.vec)\n",
    "class(fac.vec)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "length() returns the number of elements in a vector. sort() sorts the numbers. decreasing is an optional argument, of which FALSE is the default value."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "# length() and sort()\n",
    "\n",
    "length(num.vec3)\n",
    "\n",
    "sort(num.vec3)\n",
    "\n",
    "sort(num.vec3, decreasing = T) # T is same as TRUE, F is same as FALSE"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If you add a number to a vector, the number is added to each element. The same for multiplication. If you add two vectors, they are added element wise."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num.vec1\n",
    "\n",
    "num.vec1 + 2\n",
    "\n",
    "num.vec1 * 2\n",
    "\n",
    "num.vec1 + num.vec3"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Look what happens if you add two vectors of unequal length. There is also an, in this case harmless, warning."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "short.vec <- c(1, 2)\n",
    "\n",
    "num.vec1 + short.vec"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.4 Making vectors with seq() and rep()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can also make a vector with seq()."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num.vec4 <- seq(1, 5)\n",
    "\n",
    "num.vec4"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "seq() has an optional argument 'by', which specifies the step size."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "num.vec5 <- seq(1, 5, by = 0.5)\n",
    "\n",
    "num.vec5"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If you want to create a vector with repeating elements, you can use the function rep(). The second argument specifies how often the first argument should be repeated. Look also the mathematically important numbers pi and e (exp(1) in R)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "rep(5, 4) # the first argument is an integer\n",
    "\n",
    "c(rep(5, 4), rep(4, 5))\n",
    "\n",
    "c(rep(5, 4), pi, exp(1), 10, rep(4, 5))\n",
    "\n",
    "rep(c(1, 2), 3) # the first argument is a vector."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.5 Matrices in R"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In R you can easily create a matrix. A matrix is a 2-dimensional object with a rectangular shape that contains only one data type. Often it is numeric. You can make it with a simple numeric vector and a specification of the number of rows or the number of columns."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "# creating matrices\n",
    "\n",
    "mat.A <- matrix(1:10, nrow = 5)\n",
    "\n",
    "class(mat.A)\n",
    "\n",
    "mat.A"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "mat.B <- matrix(1:10, ncol = 5)\n",
    "\n",
    "mat.B"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Now there are more elements in the matrix than in the vector. How does R handle this?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "mat.C <- matrix(1:10, nrow = 5, ncol = 5)\n",
    "\n",
    "mat.C"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the examples above the matrix was filled by column. This is the default way, but you can also do it by row with byrow. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1 </td><td>2 </td><td>3 </td><td>4 </td><td> 5</td></tr>\n",
       "\t<tr><td>6 </td><td>7 </td><td>8 </td><td>9 </td><td>10</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lllll}\n",
       "\t 1  & 2  & 3  & 4  &  5\\\\\n",
       "\t 6  & 7  & 8  & 9  & 10\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1  | 2  | 3  | 4  |  5 | \n",
       "| 6  | 7  | 8  | 9  | 10 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     [,1] [,2] [,3] [,4] [,5]\n",
       "[1,] 1    2    3    4     5  \n",
       "[2,] 6    7    8    9    10  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "mat.D <- matrix(1:10, ncol = 5, byrow = TRUE)\n",
    "\n",
    "mat.D"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You calculate the sums of the rows and the columns with rowSums() and colSums()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "rowSums(mat.D)\n",
    "\n",
    "colSums(mat.D)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.6 The Function apply()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "For calculations on numeric matrices the function apply() can be very useful. It applies a function that you choose on all the rows or the columns of the matrix. The function has 3 arguments. The first one is the name of the matrix object, the second argument is the dimension, this is 1 (rows) or 2 (columns) and the third argument is the function that you want to apply. This could also be a function that you have written yourself"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "apply(mat.D, 1, mean)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "apply(mat.D, 2, mean)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 1.7 Making Your Own Functions"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If you want to write a function in R you use the keyword function, and the function body is embraced by {}.\n",
    "The structure of an R function is as follows:\n",
    "\n",
    "my.function <- function(arg1, arg2, ...) {   \n",
    "&nbsp;&nbsp;function body  \n",
    "&nbsp;&nbsp;...  \n",
    "&nbsp;&nbsp;return(result)  \n",
    "\n",
    "}\n",
    "\n",
    "The return statement is not required in R. If you omit it, the function simply returns the last thing that it calculated. Indentation is not required either, but it is stringly recommended to indent the function body for readability. Below you see an example of a simple R function."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "sum.2.nums <- function(a, b) {\n",
    "  a + b\n",
    "}"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "new.num <- sum.2.nums(4, 6) #here we call the function, which sums the two numbers.\n",
    "\n",
    "new.num"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "This is an example of apply() with a customized function as third argument. It subtracts the mean of the whole column for every element in that column. x is the argument of the function, in this case this is a column of the matrix.\n",
    "apply() is a member of the apply family of functions. In later sessions we will meet other members of the family, namely sapply() and tapply(). These are so called vectorized functions that perform calculations rapidly."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "apply(mat.D, 2, function (x) {x - mean(x)})"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We have seen that various R functions have optional arguments, that have a default value if you omit them. If you want to know more about the arguments and the use of a function, you can use help(function.name) or ?function.name"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "help(length)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "?length"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "For many R problems there are good ad-hoc solutions. The most obvious is to to use Google. If you get an error message, copy it and paste the message in Google and follow the links. It is likely that you find the solution of your problem on [stackoverflow.com](https://stackoverflow.com) or similar websites. The same applies for visualizations in R. If you want to make a specific kind of visualization, for instance a barplot, and you want to browse a little bit to see what the possibilities are, simply type \"barplot r\" in Google, click on \"images\" and go the website where you will likely find example data and code. You can assume that every problem you encounter with R, has been encountered by others as well, so you will probably find the solution online."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In R there does not seem to be a preferred way to do things, like there is in Python, although R programmers have certain preferences, such as the avoidance of for loops if possible. If you want to know more about good R style, take a look at [Google's R Style Guide](https://google.github.io/styleguide/Rguide.xml)."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "## 2. Moving data around"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "At the end of this section you know the following functions:\n",
    "\n",
    "* cbind()\n",
    "* rbind()\n",
    "* data.frame()\n",
    "* t()\n",
    "* colnames()\n",
    "* nrow()\n",
    "* ncol()\n",
    "* subset()\n",
    "* ifelse()\n",
    "* write.csv()\n",
    "* paste()\n",
    "* attach()\n",
    "* detach()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 2.1 Combining Vectors"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "First, we create a vector called 'lexeem', consisting of the lexemes of the first three words of the books of Genesis, Exodus and Psalms."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "lexeem <- c('B', 'R>CJT',  'BR>[', 'W', '>LH', 'CM/', '>CR=/', 'H', '>JC/')\n",
    "\n",
    "lexeem"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A second vector is created with the names of the book for each lexeme."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "boek <- c(rep('Genesis', 3), rep('Exodus', 3), rep('Psalms', 3))\n",
    "\n",
    "boek"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "These vectors are combined in a matrix by using the fuction cbind(). cbind stands for column bind. The resulting matrix is assigned to the variable 'words' and converted into a dataframe. In R we distinguish between a matrix and a dataframe. A matrix contains data of one specific type. Often a matrix contains only numeric data, but the words matrix contains character data. We will expand this dataset with numeric data, so we first make a data frame of the matrix. A data frame can contain more data types."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words <- cbind(boek, lexeem)\n",
    "\n",
    "class(words)\n",
    "\n",
    "class(words[,1])"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words <- data.frame(words)\n",
    "\n",
    "class(words[,1])\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can access a column of a data frame with $. Each column of the data frame is a vector."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$boek"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The vectors can also be combined as rows of a matrix. The function t(), transpose, flips the axes of the matrix."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.horiz <- rbind(boek, lexeem)\n",
    "\n",
    "words.horiz\n",
    "\n",
    "t(words.horiz)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 2.2 Expanding and Saving a Dataset"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We continue with the object 'words', because it has the most widely used data format: every column contains a variable, every row contains 1 observation. The header of a data frame can easily be changed by using the function colnames()."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "colnames(words) <- c('book', 'lexeme')\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We expand the dataset a bit with some extra columns. Often it is useful to have an enumeration of the rows. This can be done easily by creating a new column vector which we give the name 'enumeration'."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$enumeration <- 1:nrow(words)\n",
    "\n",
    "class(words$enumeration)\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Not only is there a function nrow(), there is also ncol()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "ncol(words)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A column with identical values for each row can be added as follows:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$phase <- 'biblical'\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The function ifelse() can be used if you want to add a column with only two values. These values are often 0/1 or TRUE/FALSE. In this case we add a column with the values 'prose' and 'poetry'. ifelse() has three arguments. In this particular case it can be read as follows: if the column 'book' has one of the values 'Genesis'/'Exodus', the column 'genre' gets the value 'prose', else it gets the value 'poetry'."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "narrative <- c('Genesis', 'Exodus')\n",
    "\n",
    "words$genre <- ifelse(words$book %in% narrative, 'prose', 'poetry')\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A data-frame can easily be saved as csv file."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "write.csv(words, file = 'my_words.csv')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 2.3 Making Subsets"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The following condition returns a boolean vector."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$book == 'Genesis'"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If this vector is used as index of the dataframe a subset of the data can be made. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.gen <- words[words$book == 'Genesis',]\n",
    "\n",
    "words.gen"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We can also use more conditions as index."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.gen.not.B <- words[words$book == 'Genesis' & words$lexeme != 'B',] # not unexpected, & means 'and'\n",
    "\n",
    "words.gen.not.B"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.gen.and.W <- words[words$book == 'Genesis' | words$lexeme == 'W',] # | means 'or'\n",
    "\n",
    "words.gen.and.W"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the case of numeric variables you can use >, <, >= and <=."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.high <- words[words$enumeration > 5,]\n",
    "\n",
    "words.high"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can also use the function subset() for making subsets of dataframes."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.subset <- subset(words, book == 'Genesis' & words$lexeme != 'B')\n",
    "\n",
    "words.subset"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can merge the values of two variables by using the function paste(). You use the argument sep to specify the separator."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$book.genre <- paste(words$book, words$genre, sep = '.')\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The resulting new variable is a character variable. If it should be a factor, you need to change this manually."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "class(words$book.genre)\n",
    "\n",
    "words$book.genre <- as.factor(words$book.genre)\n",
    "\n",
    "class(words$book.genre)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can remove a variable (a column) from the data frame in the following way."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words$book.genre <- NULL\n",
    "\n",
    "words"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Or by using a negative index."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words[,-5]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If you want to access specific column of a data frame you use the name of the data frame followed by $. If you want to simplify your code a little bit you can use the function attach(). I never use attach(), but if you like it, feel free to use it."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "attach(words)\n",
    "\n",
    "lexeme #you do not need to say words$lexeme"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can go back to the $-notation with detach()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "detach(words)\n",
    "lexeme"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "## 3. Analysis and Visualization of Data"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "After this section you know the following functions:\n",
    "* getwd()\n",
    "* setwd()\n",
    "* read.csv()\n",
    "* dim()\n",
    "* str()\n",
    "* head()\n",
    "* tail()\n",
    "* subset()\n",
    "* sapply()\n",
    "* stripchart()\n",
    "* table()\n",
    "* unique()\n",
    "* barplot()\n",
    "* boxplot()\n",
    "* mosaicplot()\n",
    "* mosaic() from the vcd package\n",
    "* assoc() from the vcd package\n",
    "* tapply()\n",
    "* hist()\n",
    "* abline()\n",
    "* rug()\n",
    "* melt() from the reshape package\n",
    "* dist()\n",
    "* hclust()\n",
    "* plot()\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.1 Importing and Inspecting a Dataset"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If we want to import data from a separate file, in our case the file 'all_words.csv', we need to go to the right directory with setwd(). getwd() returns the present working directory.\n",
    "\n",
    "Source of the file: https://shebanq.ancient-data.org/hebrew/query?id=1875 The query on which this file is based is very simple. I have done this to show that even with a very simple query it is possible to make a nice analysis with some effort."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "If the data are in a subdirectory called /Shebanq_Course_Files you uncomment and execute the following script. If they are in the working directory, you can import the data into R directly."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "ename": "ERROR",
     "evalue": "Error in setwd(\"Shebanq_Course_Files\"): cannot change working directory\n",
     "output_type": "error",
     "traceback": [
      "Error in setwd(\"Shebanq_Course_Files\"): cannot change working directory\nTraceback:\n",
      "1. setwd(\"Shebanq_Course_Files\")"
     ]
    }
   ],
   "source": [
    "#getwd()\n",
    "\n",
    "setwd('Shebanq_Course_Files') # You can do this because 'Shebanq_Course_Files' is a subfolder of the present working directory.\n",
    "                              # otherwise use the complete path: setwd('/mnt/shared/martijn/R_Course/Shebanq_Course_Files')\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The dataset can be imported now with the function read.csv(). The argument 'header' has TRUE as default value, so in this case you did not have to use it."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 32,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat <- read.csv('all_words.csv', header = TRUE) \n",
    "#you can also use: dat <- read.table('he_locale.csv', sep = ',', header = TRUE)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You **always** inspect a dataset in various ways,\n",
    "first with the function dim(), dimensions, which returns the number of rows and the number of columns in a dataset."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dim(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can also get these numbers separately."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "nrow(dat)\n",
    "\n",
    "ncol(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "With str() you get the structure of a dataset."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "str(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "What are the column names?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "colnames(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The function head() returns the first 6 rows of the dataframe (default), which you can change in the second argument."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book</th><th scope=col>chapter</th><th scope=col>verse</th><th scope=col>lexeme.t</th><th scope=col>part.of.speech</th><th scope=col>language</th><th scope=col>state</th><th scope=col>tense</th><th scope=col>uvf</th><th scope=col>vbe</th><th scope=col>vbs</th><th scope=col>phrase.</th><th scope=col>clause.</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Genesis</td><td>1      </td><td>1      </td><td>B      </td><td>prep   </td><td>hbo    </td><td>NA     </td><td>NA     </td><td>absent </td><td>n/a    </td><td>n/a    </td><td>1      </td><td>1      </td></tr>\n",
       "\t<tr><td>Genesis                                       </td><td>1                                             </td><td>1                                             </td><td>R&gt;CJT/                                     </td><td>subs                                          </td><td>hbo                                           </td><td>a                                             </td><td><span style=white-space:pre-wrap>NA  </span>  </td><td>absent                                        </td><td>n/a                                           </td><td><span style=white-space:pre-wrap>n/a   </span></td><td>1                                             </td><td>1                                             </td></tr>\n",
       "\t<tr><td>Genesis                                          </td><td>1                                                </td><td>1                                                </td><td><span style=white-space:pre-wrap>BR&gt;[  </span></td><td>verb                                             </td><td>hbo                                              </td><td>NA                                               </td><td>perf                                             </td><td>absent                                           </td><td><span style=white-space:pre-wrap>   </span>      </td><td>absent                                           </td><td>2                                                </td><td>1                                                </td></tr>\n",
       "\t<tr><td>Genesis                                       </td><td>1                                             </td><td>1                                             </td><td>&gt;LHJM/                                     </td><td>subs                                          </td><td>hbo                                           </td><td>a                                             </td><td><span style=white-space:pre-wrap>NA  </span>  </td><td>absent                                        </td><td>n/a                                           </td><td><span style=white-space:pre-wrap>n/a   </span></td><td>3                                             </td><td>1                                             </td></tr>\n",
       "\t<tr><td>Genesis                                          </td><td>1                                                </td><td>1                                                </td><td><span style=white-space:pre-wrap>&gt;T    </span></td><td>prep                                             </td><td>hbo                                              </td><td>NA                                               </td><td><span style=white-space:pre-wrap>NA  </span>     </td><td>absent                                           </td><td>n/a                                              </td><td><span style=white-space:pre-wrap>n/a   </span>   </td><td>4                                                </td><td>1                                                </td></tr>\n",
       "\t<tr><td>Genesis</td><td>1      </td><td>1      </td><td>H      </td><td>art    </td><td>hbo    </td><td>NA     </td><td>NA     </td><td>absent </td><td>n/a    </td><td>n/a    </td><td>4      </td><td>1      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllll}\n",
       " book & chapter & verse & lexeme.t & part.of.speech & language & state & tense & uvf & vbe & vbs & phrase. & clause.\\\\\n",
       "\\hline\n",
       "\t Genesis & 1       & 1       & B       & prep    & hbo     & NA      & NA      & absent  & n/a     & n/a     & 1       & 1      \\\\\n",
       "\t Genesis & 1       & 1       & R>CJT/  & subs    & hbo     & a       & NA      & absent  & n/a     & n/a     & 1       & 1      \\\\\n",
       "\t Genesis  & 1        & 1        & BR>{[}   & verb     & hbo      & NA       & perf     & absent   &          & absent   & 2        & 1       \\\\\n",
       "\t Genesis & 1       & 1       & >LHJM/  & subs    & hbo     & a       & NA      & absent  & n/a     & n/a     & 3       & 1      \\\\\n",
       "\t Genesis & 1       & 1       & >T      & prep    & hbo     & NA      & NA      & absent  & n/a     & n/a     & 4       & 1      \\\\\n",
       "\t Genesis & 1       & 1       & H       & art     & hbo     & NA      & NA      & absent  & n/a     & n/a     & 4       & 1      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "book | chapter | verse | lexeme.t | part.of.speech | language | state | tense | uvf | vbe | vbs | phrase. | clause. | \n",
       "|---|---|---|---|---|---|\n",
       "| Genesis | 1       | 1       | B       | prep    | hbo     | NA      | NA      | absent  | n/a     | n/a     | 1       | 1       | \n",
       "| Genesis | 1       | 1       | R>CJT/  | subs    | hbo     | a       | NA      | absent  | n/a     | n/a     | 1       | 1       | \n",
       "| Genesis | 1       | 1       | BR>[    | verb    | hbo     | NA      | perf    | absent  |         | absent  | 2       | 1       | \n",
       "| Genesis | 1       | 1       | >LHJM/  | subs    | hbo     | a       | NA      | absent  | n/a     | n/a     | 3       | 1       | \n",
       "| Genesis | 1       | 1       | >T      | prep    | hbo     | NA      | NA      | absent  | n/a     | n/a     | 4       | 1       | \n",
       "| Genesis | 1       | 1       | H       | art     | hbo     | NA      | NA      | absent  | n/a     | n/a     | 4       | 1       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  book    chapter verse lexeme.t part.of.speech language state tense uvf    vbe\n",
       "1 Genesis 1       1     B        prep           hbo      NA    NA    absent n/a\n",
       "2 Genesis 1       1     R>CJT/   subs           hbo      a     NA    absent n/a\n",
       "3 Genesis 1       1     BR>[     verb           hbo      NA    perf  absent    \n",
       "4 Genesis 1       1     >LHJM/   subs           hbo      a     NA    absent n/a\n",
       "5 Genesis 1       1     >T       prep           hbo      NA    NA    absent n/a\n",
       "6 Genesis 1       1     H        art            hbo      NA    NA    absent n/a\n",
       "  vbs    phrase. clause.\n",
       "1 n/a    1       1      \n",
       "2 n/a    1       1      \n",
       "3 absent 2       1      \n",
       "4 n/a    3       1      \n",
       "5 n/a    4       1      \n",
       "6 n/a    4       1      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book</th><th scope=col>chapter</th><th scope=col>verse</th><th scope=col>lexeme.t</th><th scope=col>part.of.speech</th><th scope=col>language</th><th scope=col>state</th><th scope=col>tense</th><th scope=col>uvf</th><th scope=col>vbe</th><th scope=col>vbs</th><th scope=col>phrase.</th><th scope=col>clause.</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Genesis</td><td>1      </td><td>1      </td><td>B      </td><td>prep   </td><td>hbo    </td><td>NA     </td><td>NA     </td><td>absent </td><td>n/a    </td><td>n/a    </td><td>1      </td><td>1      </td></tr>\n",
       "\t<tr><td>Genesis                                       </td><td>1                                             </td><td>1                                             </td><td>R&gt;CJT/                                     </td><td>subs                                          </td><td>hbo                                           </td><td>a                                             </td><td><span style=white-space:pre-wrap>NA  </span>  </td><td>absent                                        </td><td>n/a                                           </td><td><span style=white-space:pre-wrap>n/a   </span></td><td>1                                             </td><td>1                                             </td></tr>\n",
       "\t<tr><td>Genesis                                          </td><td>1                                                </td><td>1                                                </td><td><span style=white-space:pre-wrap>BR&gt;[  </span></td><td>verb                                             </td><td>hbo                                              </td><td>NA                                               </td><td>perf                                             </td><td>absent                                           </td><td><span style=white-space:pre-wrap>   </span>      </td><td>absent                                           </td><td>2                                                </td><td>1                                                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllll}\n",
       " book & chapter & verse & lexeme.t & part.of.speech & language & state & tense & uvf & vbe & vbs & phrase. & clause.\\\\\n",
       "\\hline\n",
       "\t Genesis & 1       & 1       & B       & prep    & hbo     & NA      & NA      & absent  & n/a     & n/a     & 1       & 1      \\\\\n",
       "\t Genesis & 1       & 1       & R>CJT/  & subs    & hbo     & a       & NA      & absent  & n/a     & n/a     & 1       & 1      \\\\\n",
       "\t Genesis  & 1        & 1        & BR>{[}   & verb     & hbo      & NA       & perf     & absent   &          & absent   & 2        & 1       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "book | chapter | verse | lexeme.t | part.of.speech | language | state | tense | uvf | vbe | vbs | phrase. | clause. | \n",
       "|---|---|---|\n",
       "| Genesis | 1       | 1       | B       | prep    | hbo     | NA      | NA      | absent  | n/a     | n/a     | 1       | 1       | \n",
       "| Genesis | 1       | 1       | R>CJT/  | subs    | hbo     | a       | NA      | absent  | n/a     | n/a     | 1       | 1       | \n",
       "| Genesis | 1       | 1       | BR>[    | verb    | hbo     | NA      | perf    | absent  |         | absent  | 2       | 1       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  book    chapter verse lexeme.t part.of.speech language state tense uvf    vbe\n",
       "1 Genesis 1       1     B        prep           hbo      NA    NA    absent n/a\n",
       "2 Genesis 1       1     R>CJT/   subs           hbo      a     NA    absent n/a\n",
       "3 Genesis 1       1     BR>[     verb           hbo      NA    perf  absent    \n",
       "  vbs    phrase. clause.\n",
       "1 n/a    1       1      \n",
       "2 n/a    1       1      \n",
       "3 absent 2       1      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(dat)\n",
    "\n",
    "head(dat, 3)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "It is a good idea to inspect the bottom of your dataset as well."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "tail(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The csv files that you download from the SHEBANQ website are an example of tidy data. This means that there is one observation on each row and one type of information (variable) in each column. If you want to read more about tidy data, you can read [this article](https://www.jstatsoft.org/article/view/v059i10). If you make a dataset with Text-Fabric, you should also try to make accorsing to these principles."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.2 Additional Counts and Manipulations"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can make a subset of the data frame by specifying which columns and rows you want to select."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat[1:10, 1:5]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A very important function for the kind of data we have (many categorical variables) is table(). Table counts how many each level of a categorical variable occurs."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "table(dat$book)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "You can give table() two or three arguments, each argument is a categorical variable."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "table(dat$book, dat$state)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A different way of making subsets is by using the function subset()."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "first.chapters <- subset(dat, dat$chapter < 2) #first argument is the data object, second argument is a condition.\n",
    "\n",
    "dim(first.chapters)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Again, we enumerate the dataset."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat$enumeration <- 1:nrow(dat)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We create an extra variable 'genre', which makes a distinction assigns the value 'prose', 'poetry', or 'prophecy' on the basis of the book in which a word occurs."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "prose <- c('Genesis', 'Exodus', 'Leviticus', 'Numeri', 'Deuteronomium', 'Josua', 'Judices', 'Samuel_I', 'Samuel_II', 'Reges_I', 'Reges_II', 'Jona', 'Ruth', 'Esther', 'Daniel', 'Esra', 'Nehemia', 'Chronica_I', 'Chronica_II')\n",
    "poetry <- c('Psalmi', 'Iob', 'Proverbia', 'Canticum', 'Ecclesiastes', 'Threni')\n",
    "prophecy <- c('Jesaia', 'Jeremia', 'Ezechiel', 'Hosea', 'Joel', 'Amos', 'Obadia', 'Micha', 'Nahum', 'Habakuk', 'Zephania', 'Haggai', 'Sacharia', 'Maleachi')\n",
    "\n",
    "dat$genre <- ifelse(dat$book %in% prose, 'prose', \n",
    "             ifelse(dat$book %in% poetry, 'poetry', 'prophecy'))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We fix the order of the books in the data frame. If we skip this step, in many analyses the order will be alphabetic. If you want that, that is good, but here we maintain the canonical order."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "unique(dat$book)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat$book <- factor(dat$book, levels = unique(dat$book))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the following analyses we work with the 39 books of the Hebrew Bible. However, you might also want to work with 36 books only, if you decide that 1 and 2 Samuel are only one book of Samuel, and likewise with Kings and Chronicles. If you want this, you should add an extra column in which this distinction is not made. First we split the names of the books with the function strsplit(), which splits a string on the character that is specified as second argument of the function. Then we use the function sapply(). This function takes a vector as first argument, and a function as second argument and returns a vector, which we call book2. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "book.split <- strsplit(as.character(dat$book), '_')\n",
    "\n",
    "dat$book2 <- sapply(book.split, function(x) return(x[1])) # the function returns only the first element\n",
    "    \n",
    "unique(dat$book2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.3 The Scatterplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A basic type of visualization is the scatterplot. It shows the relationship between two numeric variables.  \n",
    "Suppose we have two vectors of equal length, called x and y. Imagine that x is the time and y is place (for instance of a car). Each element in x corresponds with an element in y with the same index."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "x <- 1:10\n",
    "\n",
    "y <- 2 * x + 5\n",
    "\n",
    "x\n",
    "y"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A scatterplot is made easily."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "plot(x, y)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "This plot is clear, but we can give it a bit more structure and information. You want to know more? Look at [QuickR](http://www.statmethods.net/advgraphs/axes.html)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "plot(x, y, \n",
    "     main = \"Relationship between time and place of a car\",\n",
    "     xlab = \"Time (in seconds)\",\n",
    "     ylab = \"Place (in metres)\",\n",
    "     xlim = c(0, 10),\n",
    "     ylim = c(0, 20))\n",
    "\n",
    "axis(x, at = 1:10)\n",
    "lines(x, y)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.4. A Scatterplot of Biblical Data"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We make a scatterplot to visualize the frequencies of the verbal tenses in the Song of Songs."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "song <- dat[dat$book == 'Canticum',] # select the book\n",
    "song.tenses <- table(song$chapter, song$tense) # make a table with frequencies of tenses per chapter. \n",
    "song.tenses <- as.data.frame.matrix(song.tenses) # make a data frame.\n",
    "\n",
    "class(song.tenses)\n",
    "\n",
    "song.tenses$chap <- 1:8 \n",
    "\n",
    "plot(rownames(song.tenses), song.tenses$impf)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the figure above you see that with a simple lines it rapidly becomes difficult to distinguish the different lines. Therefore we decide to use different colors and line types for the lines and different symbols for the points. Make sure you understand all the arguments used in the functions lines() and legend(). One way to do that is to change them and see what happens. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "#First we make an empty plot and we specify the colors, linetypes and symbols\n",
    "plot(c(1, 8), c(0,25), type=\"n\", xlab=\"Chapter\", ylab=\"Frequency\" ) \n",
    "colors <- rainbow(8) \n",
    "linetype <- c(1:8) \n",
    "plchar <- seq(1,1+8,1)\n",
    "\n",
    "\n",
    "# we add the lines using a for loop. Every i selects a different column in song.tenses \n",
    "for (i in 1:8) { \n",
    "  tense <- song.tenses[,i]\n",
    "  lines(song.tenses$chap, tense, type=\"b\", lwd=1.5,\n",
    "    lty=linetype[i], col=colors[i], pch=plchar[i]) \n",
    "} \n",
    "\n",
    "# add a title\n",
    "title(\"Distribution of verbal tenses in the Song of Songs\")\n",
    "\n",
    "# add a legend, the first two arguments specify the location of the legend in the plot.\n",
    "legend(1, 25, colnames(song.tenses)[1:8], cex=0.7, col=colors, pch=plchar, lty=linetype, title=\"Tense\")\n",
    "\n",
    "#You may find the resulting plot a bit too 'crowded'. In that case you could decide to make a separate plot for each tense or you \n",
    "#could for instance make 2 plots for finite and nonfinite verb forms.\n",
    "\n",
    "#Suppose you do not want to plot the absolute frequencies of the verbal forms, but the relative frequencies (or fractions).\n",
    "#How would you do that? Hint: use apply()."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.5 The Stripchart"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1070</li>\n",
       "\t<li>15</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1070\n",
       "\\item 15\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1070\n",
       "2. 15\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1070   15"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>book</th><th scope=col>chapter</th><th scope=col>verse</th><th scope=col>lexeme.t</th><th scope=col>part.of.speech</th><th scope=col>language</th><th scope=col>state</th><th scope=col>tense</th><th scope=col>uvf</th><th scope=col>vbe</th><th scope=col>vbs</th><th scope=col>phrase.</th><th scope=col>clause.</th><th scope=col>enumeration</th><th scope=col>genre</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>2900</th><td>Genesis                                           </td><td> 6                                                </td><td>16                                                </td><td><span style=white-space:pre-wrap>M&lt;L/   </span></td><td>subs                                              </td><td>hbo                                               </td><td>a                                                 </td><td>NA                                                </td><td>H                                                 </td><td>n/a                                               </td><td>n/a                                               </td><td>4                                                 </td><td>1                                                 </td><td>2900                                              </td><td>prose                                             </td></tr>\n",
       "\t<tr><th scope=row>3440</th><td>Genesis                                           </td><td> 7                                                </td><td>20                                                </td><td><span style=white-space:pre-wrap>M&lt;L/   </span></td><td>subs                                              </td><td>hbo                                               </td><td>a                                                 </td><td>NA                                                </td><td>H                                                 </td><td>n/a                                               </td><td>n/a                                               </td><td>1                                                 </td><td>1                                                 </td><td>3440                                              </td><td>prose                                             </td></tr>\n",
       "\t<tr><th scope=row>4791</th><td>Genesis</td><td>10     </td><td>19     </td><td>GRR/   </td><td>nmpr   </td><td>hbo    </td><td>a      </td><td>NA     </td><td>H      </td><td>n/a    </td><td>n/a    </td><td>2      </td><td>2      </td><td>4791   </td><td>prose  </td></tr>\n",
       "\t<tr><th scope=row>4795</th><td>Genesis</td><td>10     </td><td>19     </td><td>SDM/   </td><td>nmpr   </td><td>hbo    </td><td>a      </td><td>NA     </td><td>H      </td><td>n/a    </td><td>n/a    </td><td>2      </td><td>3      </td><td>4795   </td><td>prose  </td></tr>\n",
       "\t<tr><th scope=row>4931</th><td>Genesis</td><td>10     </td><td>30     </td><td>SPR===/</td><td>nmpr   </td><td>hbo    </td><td>a      </td><td>NA     </td><td>H      </td><td>n/a    </td><td>n/a    </td><td>2      </td><td>2      </td><td>4931   </td><td>prose  </td></tr>\n",
       "\t<tr><th scope=row>5461</th><td>Genesis                                           </td><td>11                                                </td><td>31                                                </td><td><span style=white-space:pre-wrap>&gt;RY/   </span></td><td>subs                                              </td><td>hbo                                               </td><td>c                                                 </td><td>NA                                                </td><td>H                                                 </td><td>n/a                                               </td><td>n/a                                               </td><td>2                                                 </td><td>2                                                 </td><td>5461                                              </td><td>prose                                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllll}\n",
       "  & book & chapter & verse & lexeme.t & part.of.speech & language & state & tense & uvf & vbe & vbs & phrase. & clause. & enumeration & genre\\\\\n",
       "\\hline\n",
       "\t2900 & Genesis &  6      & 16      & M<L/    & subs    & hbo     & a       & NA      & H       & n/a     & n/a     & 4       & 1       & 2900    & prose  \\\\\n",
       "\t3440 & Genesis &  7      & 20      & M<L/    & subs    & hbo     & a       & NA      & H       & n/a     & n/a     & 1       & 1       & 3440    & prose  \\\\\n",
       "\t4791 & Genesis & 10      & 19      & GRR/    & nmpr    & hbo     & a       & NA      & H       & n/a     & n/a     & 2       & 2       & 4791    & prose  \\\\\n",
       "\t4795 & Genesis & 10      & 19      & SDM/    & nmpr    & hbo     & a       & NA      & H       & n/a     & n/a     & 2       & 3       & 4795    & prose  \\\\\n",
       "\t4931 & Genesis & 10      & 30      & SPR===/ & nmpr    & hbo     & a       & NA      & H       & n/a     & n/a     & 2       & 2       & 4931    & prose  \\\\\n",
       "\t5461 & Genesis & 11      & 31      & >RY/    & subs    & hbo     & c       & NA      & H       & n/a     & n/a     & 2       & 2       & 5461    & prose  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | book | chapter | verse | lexeme.t | part.of.speech | language | state | tense | uvf | vbe | vbs | phrase. | clause. | enumeration | genre | \n",
       "|---|---|---|---|---|---|\n",
       "| 2900 | Genesis |  6      | 16      | M<L/    | subs    | hbo     | a       | NA      | H       | n/a     | n/a     | 4       | 1       | 2900    | prose   | \n",
       "| 3440 | Genesis |  7      | 20      | M<L/    | subs    | hbo     | a       | NA      | H       | n/a     | n/a     | 1       | 1       | 3440    | prose   | \n",
       "| 4791 | Genesis | 10      | 19      | GRR/    | nmpr    | hbo     | a       | NA      | H       | n/a     | n/a     | 2       | 2       | 4791    | prose   | \n",
       "| 4795 | Genesis | 10      | 19      | SDM/    | nmpr    | hbo     | a       | NA      | H       | n/a     | n/a     | 2       | 3       | 4795    | prose   | \n",
       "| 4931 | Genesis | 10      | 30      | SPR===/ | nmpr    | hbo     | a       | NA      | H       | n/a     | n/a     | 2       | 2       | 4931    | prose   | \n",
       "| 5461 | Genesis | 11      | 31      | >RY/    | subs    | hbo     | c       | NA      | H       | n/a     | n/a     | 2       | 2       | 5461    | prose   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     book    chapter verse lexeme.t part.of.speech language state tense uvf vbe\n",
       "2900 Genesis  6      16    M<L/     subs           hbo      a     NA    H   n/a\n",
       "3440 Genesis  7      20    M<L/     subs           hbo      a     NA    H   n/a\n",
       "4791 Genesis 10      19    GRR/     nmpr           hbo      a     NA    H   n/a\n",
       "4795 Genesis 10      19    SDM/     nmpr           hbo      a     NA    H   n/a\n",
       "4931 Genesis 10      30    SPR===/  nmpr           hbo      a     NA    H   n/a\n",
       "5461 Genesis 11      31    >RY/     subs           hbo      c     NA    H   n/a\n",
       "     vbs phrase. clause. enumeration genre\n",
       "2900 n/a 4       1       2900        prose\n",
       "3440 n/a 1       1       3440        prose\n",
       "4791 n/a 2       2       4791        prose\n",
       "4795 n/a 2       3       4795        prose\n",
       "4931 n/a 2       2       4931        prose\n",
       "5461 n/a 2       2       5461        prose"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "he.local <- dat[dat$uvf == 'H',]\n",
    "\n",
    "dim(he.local)\n",
    "\n",
    "head(he.local)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the cell above a new object 'he.local' is created. It is a subset of the object 'dat'. If we would have said:\n",
    "\n",
    "dat <- dat[dat$uvf == 'H',]\n",
    "\n",
    "we would have created a subset of the original object with the same name. In that case we would not have had access anymore to the original data. Therefore it is advisable to give subsets a new name."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A stripchart is a very simple visualisation, but it can be useful. We make a stripchart of the place in the Hebrew Bible of all the occurrences of local he. One occurrence is represented by a square. We use the variable enumeration as indicator of the place of a local he in the text. Look what happens if the argument 'method' is removed. 'main' is used to add a header to the chart."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "stripchart(he.local$enumeration, method = 'jitter', main = 'Stripchart of he locale in Biblical Hebrew')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Now we make a stripchart of the words MMLKH/ and MLKWT/, both meaning 'kingdom'. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "kingdom = c('MMLKH/', 'MLKWT/')\n",
    "\n",
    "dat.king <- dat[dat$lexeme.t %in% kingdom,]\n",
    "\n",
    "dat.king$lexeme.t <- factor(dat.king$lexeme.t)\n",
    "\n",
    "dim(dat.king)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "stripchart(dat.king$enumeration ~ dat.king$lexeme.t, \n",
    "           method = 'jitter', \n",
    "           xlim = c(0, 450000), \n",
    "           col=c(\"blue\", \"green\")[dat.king$lexeme.t])"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.6 The Mosaicplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A very useful kind of visualization for **categorical data** is the mosaicplot. In it, you get an impression of which variant of a feature is over- or underrepresented in specific groups."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We study this by looking at the distribution of MLKWT/ and MMLKH/ in Early Biblical Hebrew (EBH) and Late Biblical Hebrew LBH. The variation between these two lexemes is one of the classic examples of supposed linguistic change in Biblical Hebrew. MMLKH/ occurs more in EBH and MLKWT/ occurs more in LBH.  \n",
    "First a new column is created with the name 'phase', in which the typical narrative EBH books get the value 'EBH' and the typical narrative LBH books get the value 'LBH'. The other books get the value 'other'. A table is created using this new column and the lexeme column, after which the function mosaicplot() is applied to the table."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "ename": "ERROR",
     "evalue": "Error in match(x, table, nomatch = 0L): object 'dat.king' not found\n",
     "output_type": "error",
     "traceback": [
      "Error in match(x, table, nomatch = 0L): object 'dat.king' not found\nTraceback:\n",
      "1. ifelse(dat.king$book %in% EBH, \"EBH\", ifelse(dat.king$book %in% \n .     LBH, \"LBH\", \"other\"))",
      "2. dat.king$book %in% EBH",
      "3. match(x, table, nomatch = 0L)"
     ]
    }
   ],
   "source": [
    "EBH <- c('Genesis', 'Exodus', 'Leviticus', 'Numeri', 'Deuteronomium', 'Josua', 'Judices', 'Samuel_I', 'Samuel_II', 'Reges_I', 'Reges_II')\n",
    "LBH <- c('Esther', 'Daniel', 'Esra', 'Nehemia', 'Chronica_I', 'Chronica_II')\n",
    "\n",
    "dat.king$phase <- ifelse(dat.king$book %in% EBH, 'EBH', \n",
    "                   ifelse(dat.king$book %in% LBH, 'LBH', 'other')\n",
    "                  )\n",
    "\n",
    "kingdom.table <- table(dat.king$lexeme.t, dat.king$phase)\n",
    "mosaicplot(kingdom.table, main = 'Distibution of \"Kingdom\" in the Hebrew Bible', col = c(3, 5, 6))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In this course we work mainly with the base R package. However, in R you will work very often with functions that come from packages that you have to download from CRAN (Comprehensive R Archive Network). These packages are made by your fellow R users and developers. You can download a package with install.package('package.name'). On your own computer you need to do this only once. In every session that you want to use functions from that package you have to load the package with library(package.name). First we install and load the reshape package. In it you can find functions with which you can manipulate the shape of data frames."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "With the package vcd you can make beautiful mosaicplots.First use the function structable."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "install.packages('vcd')\n",
    "library(vcd)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "mosaic(structable(kingdom.table), shade = T, varnames = F)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "With the function assoc() from the package vcd you can make an associationplot, which is related to the mosaicplot."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "assoc(kingdom.table, shade = T, legend = T)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.7 The Barplot"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       "      Genesis        Exodus     Leviticus        Numeri Deuteronomium \n",
       "          137            70            32            89            65 \n",
       "        Josua       Judices      Samuel_I     Samuel_II       Reges_I \n",
       "          114            51            55            40            41 \n",
       "     Reges_II        Jesaia       Jeremia      Ezechiel         Hosea \n",
       "           51            23            48           120             2 \n",
       "         Joel          Amos        Obadia          Jona         Micha \n",
       "            2             2             0             3             1 \n",
       "        Nahum       Habakuk      Zephania        Haggai      Sacharia \n",
       "            0             2             0             2             4 \n",
       "     Maleachi        Psalmi           Iob     Proverbia          Ruth \n",
       "            0             9             6             2             2 \n",
       "     Canticum  Ecclesiastes        Threni        Esther        Daniel \n",
       "            2             4             0             0             9 \n",
       "         Esra       Nehemia    Chronica_I   Chronica_II \n",
       "            2             2            34            44 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "he.count <- table(he.local$book)\n",
    "he.count"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>Genesis</li>\n",
       "\t<li>Exodus</li>\n",
       "\t<li>Leviticus</li>\n",
       "\t<li>Numeri</li>\n",
       "\t<li>Deuteronomium</li>\n",
       "\t<li>Josua</li>\n",
       "\t<li>Judices</li>\n",
       "\t<li>Samuel_I</li>\n",
       "\t<li>Samuel_II</li>\n",
       "\t<li>Reges_I</li>\n",
       "\t<li>Reges_II</li>\n",
       "\t<li>Jesaia</li>\n",
       "\t<li>Jeremia</li>\n",
       "\t<li>Ezechiel</li>\n",
       "\t<li>Hosea</li>\n",
       "\t<li>Joel</li>\n",
       "\t<li>Amos</li>\n",
       "\t<li>Jona</li>\n",
       "\t<li>Micha</li>\n",
       "\t<li>Habakuk</li>\n",
       "\t<li>Haggai</li>\n",
       "\t<li>Sacharia</li>\n",
       "\t<li>Psalmi</li>\n",
       "\t<li>Iob</li>\n",
       "\t<li>Proverbia</li>\n",
       "\t<li>Ruth</li>\n",
       "\t<li>Canticum</li>\n",
       "\t<li>Ecclesiastes</li>\n",
       "\t<li>Daniel</li>\n",
       "\t<li>Esra</li>\n",
       "\t<li>Nehemia</li>\n",
       "\t<li>Chronica_I</li>\n",
       "\t<li>Chronica_II</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item Genesis\n",
       "\\item Exodus\n",
       "\\item Leviticus\n",
       "\\item Numeri\n",
       "\\item Deuteronomium\n",
       "\\item Josua\n",
       "\\item Judices\n",
       "\\item Samuel\\_I\n",
       "\\item Samuel\\_II\n",
       "\\item Reges\\_I\n",
       "\\item Reges\\_II\n",
       "\\item Jesaia\n",
       "\\item Jeremia\n",
       "\\item Ezechiel\n",
       "\\item Hosea\n",
       "\\item Joel\n",
       "\\item Amos\n",
       "\\item Jona\n",
       "\\item Micha\n",
       "\\item Habakuk\n",
       "\\item Haggai\n",
       "\\item Sacharia\n",
       "\\item Psalmi\n",
       "\\item Iob\n",
       "\\item Proverbia\n",
       "\\item Ruth\n",
       "\\item Canticum\n",
       "\\item Ecclesiastes\n",
       "\\item Daniel\n",
       "\\item Esra\n",
       "\\item Nehemia\n",
       "\\item Chronica\\_I\n",
       "\\item Chronica\\_II\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. Genesis\n",
       "2. Exodus\n",
       "3. Leviticus\n",
       "4. Numeri\n",
       "5. Deuteronomium\n",
       "6. Josua\n",
       "7. Judices\n",
       "8. Samuel_I\n",
       "9. Samuel_II\n",
       "10. Reges_I\n",
       "11. Reges_II\n",
       "12. Jesaia\n",
       "13. Jeremia\n",
       "14. Ezechiel\n",
       "15. Hosea\n",
       "16. Joel\n",
       "17. Amos\n",
       "18. Jona\n",
       "19. Micha\n",
       "20. Habakuk\n",
       "21. Haggai\n",
       "22. Sacharia\n",
       "23. Psalmi\n",
       "24. Iob\n",
       "25. Proverbia\n",
       "26. Ruth\n",
       "27. Canticum\n",
       "28. Ecclesiastes\n",
       "29. Daniel\n",
       "30. Esra\n",
       "31. Nehemia\n",
       "32. Chronica_I\n",
       "33. Chronica_II\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] Genesis       Exodus        Leviticus     Numeri        Deuteronomium\n",
       " [6] Josua         Judices       Samuel_I      Samuel_II     Reges_I      \n",
       "[11] Reges_II      Jesaia        Jeremia       Ezechiel      Hosea        \n",
       "[16] Joel          Amos          Jona          Micha         Habakuk      \n",
       "[21] Haggai        Sacharia      Psalmi        Iob           Proverbia    \n",
       "[26] Ruth          Canticum      Ecclesiastes  Daniel        Esra         \n",
       "[31] Nehemia       Chronica_I    Chronica_II  \n",
       "39 Levels: Genesis Exodus Leviticus Numeri Deuteronomium Josua ... Chronica_II"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "unique(he.local$book)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "he.count <- table(he.local$book)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAADAFBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgpKSkqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6\nOjo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tM\nTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1e\nXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29w\ncHBxcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGC\ngoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OU\nlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWm\npqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4\nuLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnK\nysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc\n3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u\n7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7////i\nsF19AAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2dCbwdRZm3697k3suSjSUECJKA\nrApkwyRAQIIiKJCwJZAEuBhCQIgsojIkOOzyKXzD5+gI6IwJIIugLEEGFDjAMDIKk9EhIiBh\nE2JQJIBZCISb/k732aret7qr+/R7Oeee+j+/H5xTnTrdfbv76a56a2kVAAByoxq9AwC0AhAJ\nAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIB\nIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQA\nBIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASA\nABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQ\nACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgAC\nQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAA\niASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgA\nkQAQACIBIABEAkCARoq08r91lqxv4K4AkI9GijRXGfykgbsCQD4aKdLJhxY0ht7UwF0BIB8Q\nCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAi\nASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIAAkAk\nAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgE\ngAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEA\nEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIA\nAkAkAARIJ9LP5u27qTqu9H3Vbcdt3zFovx/2lJLLZg7r2mnBmnq2DZFAy5BOpHFq0C4Vka5R\nnROnHdBfTYlMWjqkbcrZY9XEtXVsGyKBliGdSI+8sOHeikg//f47xf8/s5W6JUyNVwuDoGeG\nuqyObUMk0DKkriNVRSpzpTqt+P8lanSYeL19uw3Ztw2RQMtQt0jfV2cV/3+VuiBKjVbPZd82\nRAItQ70ibZioHix+zFGLouR0tTj7tiESaBnqFekidXT4MU3dFSXnqhuN3K++WOPZuFW2pkg9\nL72oU08UBvQ96hTpu2rsu+FnjEjL2pTGhzGrbE2RfqIMvtzo/QEfCfWJdLUatzL6Ele0e3dl\nlQfU+zGrbE2RFm51j8aBcxq9P+AjoS6RLlL7vFP6Vgk2jIkPNvzKN5G21v+qgyGSH9Qj0rnq\nwFXlr0vUmPBjeUL4GyIBD8guUs+p6pBaDXq8uqG4aFZCgyxEAh6Qsq9dd/dn1Mju7vOK37+t\n2md0h1wd/svSwe1TzxmnJsQHpyAS8IB0Ii0oh6BGFL+fX4lHHRL907IZQzt3nL86/rcQCXhA\n7w+jgEjAAyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJ\nSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJSyCSNBDJ\nSyCSNBDJS1pLpJ6f367zfP41ZgcieUlrifSkGqjRdWD+NWYHInlJa4n0hPqFtsYv7p9/jdmB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSB\nSF6STqSfzdt3U3VcJbVs5rCunRassSRsQCTgAelEGqcG7VIVaemQtilnj1UT17KEFYgEPCCd\nSI+8sOHeqkjj1cIg6JmhLmMJKxAJeEDqOlJVpCVqdPjxevt2G0jCDkQCHpBdpKvUBdHnaPUc\nSdiBSMADsos0Ry2KPqerxSRhByIBD8gu0jR1V/Q5V91IEjX+dsK0KgdBJND69I5Ib8+bW2Uq\nRAKtD4p20kAkL6k/2DBGDzaMQbChAkTyknrC32PCj+Xl8LeWsAORgAdkFykYr24Igp5ZlQZZ\nLWEFIgEPSNnXrrv7M2pkd/d5YWLp4Pap54xTE9ayhBWIBDwgnUgLVIkRUWrZjKGdO85fHfCE\nDYgEPADDKKSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4C\nkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4C\nkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4C\nkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4C\nkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF4CkaSBSF7Sp0T64EfX6zzGMkAk0CD6lEhP\nq512qTF0b5YBIoEG0adE+p26R/vB6eNYBogEGgREkgYieQlEkgYieQlEkgYieQlEkgYieQlE\nkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlE\nkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlE\nkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieQlEkgYieUkd\nIm2486DhG+1w7BOl1LKZw7p2WrAmPjtEAh5Qh0hnqMEnnP359rZFYWLpkLYpZ49VE9fGZodI\nwAOyi/Si2nJ58eNu9bEwNV4tDIKeGeqy2PwQCXhAdpEeUl8IP3r6b1z8/xI1Oky83r7dhrj8\nEAl4QHaRXu83dEXx4151ZPH/V6kLooWj1XNx+SES8IA66kiXqyEnnnNY/8PeLH6fo6KaUjBd\nLY7LDpGAB9QT/r5lkFJq11vCr9PUXdGiuepGI8urL1a5AyKB1qcOkS5u+/rLa5Z8LirUxYi0\nrE1pQCTQ8mQX6RdqRvix9mP9Xokv2r27ssoDEAm0PtlFOkv9IPqcpu6uBRvGINhQASJ5SXaR\nTleXR58HqPvD8PeY8PtyhL+rQCQvyS7SzWrr14ofi9s2eTsIG2RvCIKeWWiQrQKRvCS7SB9O\nVpsed9bBSl0bppYObp96zjg1AV2EKkAkL6kjavf+P40f0G/oEQ+XUstmDO3ccf7q+OwQCXgA\nhlFIA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8\nBCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8\nBCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8\nBCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8\nBCJJA5G8pJlE6rnpep1H2Q8gEmhWmkmkZWqrbWoM/gT7AUQCzUozifRHdbuWPmd39gOIBJoV\niCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPIS\niCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPISiCQNRPIS\niCQNRPISiCQNRPKSvi3SyUqn/UmIBBpE3xbp8IOv0+h/P0QCDaKPizRdX0MnRAKNAiJJA5G8\nBCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8BCJJA5G8\nBCJJA5G8BCJJA5G8BCJJA5G8pC6RHpq6Ved2Ux6Jvi+bOaxrpwVr4jNDJOAB9Yj0D6rr09Mn\nb7Eg/L50SNuUs8eqiWtjc0Mk4AF1iPQjtc/rxY+ev4WJ8Wph8esMdVlsdogEPCC7SO9vvekb\n1cQSNTr8eL19uw1x+SES8IDsIt2vZr1324VXPByZc5W6IFo4Wj0Xlx8iAQ/ILtKl6qydw6lG\n9vtLMTFHLYoWTleL4/JDJOAB2UWap/rt+siqpw9WBxUT09Rd0cK56kY9z99OmFblIIgEWp/s\nIp2h+j9b/Fi9rfrvWJHenje3ylSIBFqf7CLNV3tEn93qWhTtLEAkL8ku0g1qUvR5trqmFmwY\ng2BDBYjkJdlFeq1tyw/Cz4PU3WH4e0z4fTnC31UgkpfU0SB7tLqo+P/FaotVQdgge0MQ9MxC\ng2wViOQldYi0fKTa58zD2jvuDhNLB7dPPWecmoAuQhUgkpfU09fuzS+P6NjiqKdKiWUzhnbu\nOH91fG6IBDwAwyikgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGk\ngUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUhe4plIHz7yoM6rwn9rCETy\nEs9EelQZHCb8t4ZAJC/xTKSH2vUfzDxE+G8NgUheApGkgUheApGkgUheApGkgUheApGkgUhe\nApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUheApGkgUhe\nApGkgUheApGkgUhe0uIiLbleZ9H72UV6wljDj3ucP4BIXtLiIn124DYa6vHsIo0ZpK1gmPqD\n8wcQyUtaXKSDTtLSD6vHsos06kztB3eq3zt/AJG8BCI5gEggDRDJAUQCaYBIDiASSANEcgCR\nQBogkgOIBNIAkRxAJJAGiOQAIoE0QCQHEAmkASI5gEggDRDJAUQCaYBIDiASSANEcuAU6fOb\n6Wz7FkTyEojkwCnSzsdeVWO+egkieQlEcuAW6Twtw60QyVMgkgOIBNIAkRxAJJAGiOQAIoE0\nQCQHEAmkASI5gEggDRDJAUQCaYBIDiASSANEcgCRQBogkgOIBNIAkRxAJJAGiOQAIoE0QCQH\nEAmkASI5gEggDRDJAUQCaYBIDiBSK/HuSp0NgmuGSA4gUgvxc2VwruCqIZIDiNRC3DTkOo19\nThZcNURyAJFaiJuG6ufmUIgEkUA9QKQSEAnkAiKVgEggFxCpBEQCuYBIJSASyAVEKgGRQC4g\nUgmIBHIBkUpAJJCL5hNpsVILSt+WzRzWtdOCNfFZIRJoFppOpL8OG1AWaemQtilnj1UT18bm\nhUigWWg6kY7c5htlkcarhUHQM0NdFpu3b4n0+ulzdW6HSK1Es4n0I/Xza0oiLVGjw4/X27eL\n7ZLet0S6t//hGjseCZFaiSYT6eWBXwzKIl2lLogWjVbPxeXuYyJtrGc4BiK1FM0lUs8BH3un\nItIctShaNl0tjssOkUCz0FwifVv9MqiINE3dFS2bq2408rz6YpU7mlqkd17U+RNEammaSqSn\nu04PXCIta9MHIjazSJPNMZPPQKRWpplE2jBqh1VB4CraaWPjH2hqkSaedE+Nn6inIFIr00wi\nra/dvk+pBRvG9NVgw8RTtfR9EKm1aSaRek6JmKhGn7IoDH+PCRcu77Phb4jkE80kUplrqg2y\nNxTlmtVnG2Qhkk80sUhLB7dPPWecmtBXuwhBJJ9oYpGCZTOGdu44f3V8TogEmoUmFCk9EAk0\nCxCpBEQCuYBIJSASyAVEKgGRQC4gUgmIBHIBkUpAJJALiFQCIoFcQKQSEAnkAiKVgEggFxCp\nBEQCuYBIJSASyAVEKgGRQC4gUgmIBHIBkUpAJJALiFQCIoFcQKQSEAnkAiKVgEggFxCpBEQC\nuYBIJSASyAVEKgGRQCaevl3nAYhUBiKBTOzRNbDGpuoliFQCIoFM7H6OdipuV3+ESCUgEsgE\nRCpAJJAfiFSASCA/EKkAkUB+IFIBIoH8QKQCRAL5gUiFSKTnjfa0n66BSCATEKkQiXT8Jtto\ntN0NkUAmIFIhEmn6VD3DwJ9BJJAJiFSASCA/EKkAkUB+IFIBIoH8QKQCRAL5gUgFiATyA5EK\nEAnkByIVIBLID0QqQCSQH4hUgEggPxCpAJFAfiBSASKB/ECkAkQC+YFIBYgE8gORChAJ5Aci\nFSASyA9EKkAkkB+IVIBIID8QqQCRQH4gUgEigfxApAJEAvmBSAWIBPIDkQoQCeQHIhUgEsgP\nRCpAJJAfiFSASCA/EKkAkUB+IFIBIoH8QKQCRAL5gUgFiATyA5EKEAnkByIVIBLID0QqQCSQ\nH4hUgEggPxCpAJFAfiBSASKB/ECkAkQC+YFIBYgE8gORCs0r0jsrddZDpCYGIhWaVqQHlMHp\nEKmJgUiFphXpJwOv05g0EyI1MRCp0LwiDdEzHA6RmhmIVIBIID8QqQCRQH4gUgEigfxApAJE\nAvlpapFW3Xbc9h2D9vthTym5bOawrp0WrInPD5FAo2hqka5RnROnHdBfTYlMWjqkbcrZY9XE\ntbH5IRJoFE0t0k+//07x/89spW4JU+PVwiDomaEui80PkUCjaGqRylypTiv+f4kaHSZeb99u\nQ1xGiAQaRV8Q6fvqrOL/r1IXRKnR6rm4jBAJNIo+INKGierB4scctShKTleL43JCJNAo+oBI\nF6mjw49p6q4oOVfdqP/r306YVuUgiAQaRPOL9F019t3wM0akt+fNrTIVIoEG0fQiXa3GrYy+\noGgHkZqYZhfpIrXPO6VvlWDDGAQbIiBSU9HkIp2rDlxV/rpEjQk/liP8XQIiNRVNLVLPqeqQ\nWj+G8eqG4qJZaJAtAZGaiqYW6duqfUZ3yNVhaung9qnnjFMT0EUoAiI1FU0t0vmV6QoOiZLL\nZgzt3HH+6vj8EAk0iqYWKSsQCTQKiFSASCA/EKkAkUB+IFIBIoH8QKQCRAL5gUgFiATyA5EK\nEAnkByIVIBLID0QqQCSQH4hUgEggPxCpAJFAfiBSASKB/ECkAkQC+YFIBYgE8gORChAJ5Aci\nFSASyA9EKkAkkB+IVIBIID8QqQCRQH4gUgEigfxApAJEAvmBSAWIBPIDkQoQCeQHIhUgEsgP\nRCpAJJAfiFSASCA/EKkAkUB+IFIBIoH8QKQCRAL5gUgFiATyA5EKEAnkByIVIBLID0QqQCSQ\nH4hUgEggPxCpAJFAfiBSASKB/ECkAkQC+YFIBYgE8gORChAJ5AciFSASyA9EKkAkkB+IVIBI\nzUXPDdfrPNiIfVj9Q2MfnnT/AiIVIFJz8bLacZcaw3ZpxD78ok3bhV02O8L9C4hUgEjNxUvq\nVu2vOm/nRuzD/Z36kZ1+uPsXEKkAkZoLiOQAImlpiBQLRHIAkbQ0RIoFIjmASFoaIsUCkRxA\nJC0NkWKBSA4gkpaGSLFAJAcQSUtDpFggkgOIpKUhUiwQyQFE0tIQKRaI5AAiaWmIFAtEcgCR\ntDREigUiOYBIWhoixcJE+orSaX/4I9gHiBTzLxCp78BEmjXhKo2Bt30E+wCRYv4FIvUduEiH\n6X/mZhBJcF12IFIrAJEcQCQtDZFigUgOIJKWhkixQCQHEElLQ6RYIJIDiKSlIVIsEMkBRNLS\nHou0dqUOP2O9INKHxiZXuX8AkWL+BSI1De9uZLSv7sEy9IJIxxubbFvi/AFEivkXiNQ0vKEu\nuq7G7OEsQy+IdMih2iava3vI+QOIFPMvEKlpeEMt1HZ6/kcj0kx9De0QyQFE6gNApLxAJC3d\nrCJdMVfnIoE1UiBSXiCSlm5Wkbr2/HSN0epDgVUSIFJeIJKWblqRvqWt8TsQKQIiVYFIKYFI\nERAp5l88EendF3X+Gmx4RU+/tD54x8jwN36gMov04Uv6Gl/pYRnWmxk2CIj0hvFXrArWGenX\nguDPxoI1AiKtNta4Igj+ZCx4HyKFtIxIuxkNjx3v3Gik1YJgeyO90XvsQGUW6XJzE9exDAvM\nDDfmF+mVdmON+wUnmZt45Nk2I32wgEgHmk26y35pbvIUiBTSMiINP+PmGlepN/5luJa++VNn\nBZudq6UvV39nByqzSP+wl76JHa9iGc76lJ5h+L/kF+kZda22xpP2Co46VN/ERoufUv+mpY+b\nKCDSuFnaGq9Xv/vZAH2TB0/vUyItmzmsa6cFa+IzQKT5WnphUaQReob9iyJdqqWvExFpvL6J\nXS0i7a9nGCEi0p1ael5RpGP0DJsURbpPS58qItLpWvqeokgD9QxT+5RIS4e0TTl7rJq4NjYH\nRIJIEMnJeLUwCHpmqMtic0AkcZF+bTTQzv01+wFEKvQxkZao0eHH6+3bbYjLApHERbpki8M1\ntriE/QAiFfqYSFepC6LP0eq5uCwQSV6kvfQ17AWRQvq2SHPUouhzuloclwUiQSSI5GKauiv6\nnKtuNJa/WmsWuyNepAP0aOXmRZG+p6W/WBTpYD3DgKJI12vpWUWRDtMzdBRFWqSljy2KdJSW\nvikUSf/BEUWRjtPS/1YUqUvPcGhRpBO19LVFkQbpGQ4qijRHS3+nKNJQPcN+dYS/179I2hW7\nztcyfKMo0m76Gna7hDSG/pWHv1cYGd60hL+v0tJnDA/WGj94qecl9R0tw5yiSJP1NQyuJ/x9\nhJ6hKJLRUP3iu6Ql+9Xg/g79B4elCX9/UUt/ryjS5nqGA5pfpGV641vb+pgfn2W2n92zvJ+R\nnlB83hk8uMxs9JsczDQz/Gqp2eh3WHCkmeG3T5rpacHnzDa95x4zM5wU7G+k21+538xwejDO\nSPd/42dmhnOD3Y105zs3mRkWBCOM9EbrSIZrgqFGesCGa5IzbB9cYWa4/sOBRno32iB70zud\nRnp3muH+N/ob6XHBl8wM//6qeW4mBd1mhkefM8/N54rXjsGTz5npGcGxRrrtxV+ZGWYGk410\n+7IHzQxzgglGut/ye8wMZ+W7+A16qWj3rjYa39LnpcR6Y9D+20Hwd2PBe8EHyRnWkQzvmNsN\npx5430i/GwTvkAzrkjN8QDIUi11vGwvWB+8Z6VVBsJJkWJuc4UOSYXWwwczQE6wx0muCnowZ\nNgSrjfRaMl/CyiBYRTKsT87wnuvkOc/NOnJusp8857n5gJwby8mTQyjYMCY+2ACAB+QOf48J\nP5YnhL8B8ID8DbI3BEHPrIQGWQA8IHcXocHtU88ZpybEdxECwAPyd1qdMbRzx/mrJfYFgD5L\n7w+jAMADIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEA\nEAAiASAARAJAAIgEgAAQCQABIBIAAkAkAASASAAIAJEAEAAiASAARAJAAIgEmpn/+m2j9yAl\nzSHSnxbdvjYpzRfk3kRTIrmT71W/LZNaZW+R8Ge3HfOR7kn9NFqkb+2yMgj+Y4BSe75rTfMF\njLevPH7ShIjygrfu+f41EWnXkB2yCcsC5y9M+E46N0HS9DAc3VPO98r2QvtoYc1t559+/m1r\nUq+B7qTz3Gx5onMfHMflI6LRIk04MPxf5wWnqCutaWPB1Kl/KP5XpZThqSHVF0eVFnxzIzNt\nrHKwQcAXODPYNqEvmGqSMgP7u5M2YUuzw6DmlT6Xf7w//4H1SCZlsP4guHPLKPuWd8XsY/Do\nEcM6+0XYd9J5do/d9cPqteI8sjztPLtiNFqkoWcGwZ9V8X+TR1nTxgKlHg+0F66VMuynLlz2\n3vqIKH2r+tQV6rzLD1LTbrJswnxlW8AXODPYNqEvUJYfuDPQvztxE7Y0PQzBl9W3wo83dm2/\nlf/AdiQTM1gP/cP9Orr/9d5/7e7oV7Dv9OJ2NfiToyLsO+k8u3/cYl71eec8sjztPLtiNFqk\njn8MgjvUL4Lg/M2saWPBa6+9X/yvSilD1+HmGicNW7tC3R8EP+73sGUT7xkEfIEzg20T+oLX\nTFJmoH934iZsaXoYgp6j224Ogjf3aFtoWYHtSCZmsB76SRv/T/T5Pxvvb9/pcf1uNt6bxXbS\neXa7J6stP3tSd4j7yPK08+yK0WiRhp0WBGe2FwvIF25iTbMFLIwz9AwzPfCU4A11X/HL4QfZ\n12Cw/in+EnFnBrYJtsD5CwrdSecmaJoehuJFs1/nwytHq+vS7oIzA2PjU8pfTonZ6a5jzR+w\nnUw8NyHO54fruJg4T3fdNFqkz2y9/C9b7lf8MnNHa5otYGGcE8aaLwvsuiBYqW4pfrlwsH0N\nBivUg8k7aMvANsEWFKv4T7yT9Auage6kcxM0TQ9Dkbd2GzRa/b+EXXD8VU6GXFj+cuFm9jVs\nTsRhO5l4bkJ+W6OyKPnIJv8VztNdN40WabHq16mKhfgN2x5lTbMFLIzz+vCvGLHTEacGGwaE\nb7Y9cbB9DQZ1icQ2wRb817SE/MAAAB+XSURBVF4q/N2tn3w0ZQa6k85N0DQ9DCGvbF0JXdjW\nSONblgwEGnM7onLTn3yEfQ3T9zZXwHYy8dxYcR3Z5L+idUUKFu677/eKH49uca09TRfoYZwS\nfxyy2aTDIqLklOIN7vDNH1r1s879Yzahs0JtmhzHsWVgm6AL/rDpgKnhKVu1yZkpM9CddG6C\nZdAPQ3eZCZuXahf240LiXTyDK+b2zODzVxU/Vp0/+Bn7Gl4ZdrF5tsi54ueGbDJaif4Ech5Z\n/lfoDDLOpiVD3TRcpKzoYZyI57cxT+/1ba8FT3UVU/0eSbG6Fa44ji0D2wRdMLPz6Teje9/h\no1JmoDg3QdPGYbDFt9gaabyLZUiMuUWGTlJDJh8/eYia1M3XEGU4SI2Y2l2TmZ4rBt0kewI5\nj2zy6W/dqF1m9DBOxKHqtF+9rMdxQv571n4nPllLmsVqnRXqvuQ4TmwGsgljwbDjgtLp/uoW\nGTK8/crb5raTNkHTxmH4rYl9BSzGRjMkxtxsrhprsGWwnSvj3NBNsieQ88jaD1x1Y8bZtOWo\nlz4nEjt5Az7r+gktVuuwQjON6zgz2Oh/fvl0n9+ZNsP7l+9Q/JN2uOID58rtuA8DxRmlS4y5\nxbqalIHvJDk3dJPsCcQOXLbOePRsykXxGimSrSn74zUC6wJ28jY707ZuDV4f0WCe0AXODDaG\nzi6f7s+NqC4z7rwsw3v7q7Ztx23bpj69zrl2K87DwHBG6Zwxt8ywnaTnhm6SPYHYgcvWGc95\nduumkSLZmrJLtcD+Sg0qn122gHLURMdmEusjvSPSkcPWRZt8uK27vITceVmGy9UXni1+PPt5\nLc6WCedhYDijdM6YWwgrj+rc9FL5y9Kb7DtJzw3dJHsCsQOXojOeRmuKZG3KjvjgN/scYZRx\njAVmjeeFLS81IkPsmWYvVpfJLNLUQ9WDxmPU9lz9z/bPP6YWP3luR8f/ln5F77wswyc/Ueo0\ns373PWL6tdF4FknTw2AcB+sa9fiWNYM75qaVR61rUOWuQsFlyr6T9NywTdInEDtwZmc824HT\naU2Rkli5zcUxC2iNp3uyGnGkFhlij7DECktmkYoXzoPGY9TaReza/lGi44byr9hTkWbo+lr5\ny1c3sq+RxrNomh4G4zhY16jHt1iGVDE3vTxq3URVpIvb7DtJzw3dJH8C0QNndsaz7EPi2Ww1\nkSwDUk7cwb6A1XjsR057hNkqLFVYbbN6aMv7RDO89j/qQeMxan+u/n7euJGjTvt95Vf8qUgy\nDKjUHr400L5GGs+i6ZgLqHQc4p/95fgWy6BMorws5qaXR62bqIo0fQv7TtJzwzKwJxA9cGZn\nvLg/s4IzlFQ3jRYpdkDKHPr4KC9g9/a40FH1EcYrLEkUD23yIJm6jr0zjLfvsL9Fn3/dapI9\nA41n0XRsBI092+Mw4l+pYm56eZRz3HHHqYnHhRw7Xk2x7yQ9N/yvoE8gSvITKCJhgFLriMTG\n4ZRZMYw8kSoLEms8BpVnmn5Tsw9pMbajHozbp2oG959FsT0VjWr6j9XHF72y7pWFO6hb7Wug\n8SwW34qFPdtjcMa/WMxNL49y9CfaxBftq+QPHAZ5AlESQ/ARbJCURuuIRMfhXBSx4KRB6tLA\nusB5b69SfaZpNzVbicWkeGjZmCiagd/k2ChdAnsqsmajc8u79DX7Clg8i8W3YmHP9hic8S8W\nc9PLoyX0EbMvvPCCuvqFkJfihybzB05843k66Klgg6R0WkckOg6ncolv/NXySGm6ILHGo6M9\n02o3NeuQFvNn6kE2JopmYDc5vReaNXRE77yWZqPHuvcasdfJ/1H8NsKk9M80nsXiW87jQMN+\n1Q3sMOr42zdYejH+5MDXo8/XPv3T6JPF3Fh5lI6YvTL2QVKFPHCSGs8TgnK1SjbrEGjtwFGh\ndUSiA1LujbjviVWVDHQBu7fTcDd7pmWjeGiTB8kUM7CbnN4LzR46InfexGajLULC62HT4n9D\nyiVYPZ5lC6mxqD89DqwbW20TxX07fD3vxfjZceUvow4p7QKNudHyKB0xy2A7SUlsPLceWVqh\nZYNwEztwtI5IzgEpFFaqpuFu9kyzkFB8WP/U32P2qRbGYzc5vRdaTOjIvPMmV9OLrJo09r5V\nwar7xkwq30H0K8hWQGVRf3ocWDe2v08a/8DqYPUDe096+3cHq//LezGGN5SIU7Zlu1CClEfp\niFkG20naYssbz7XnqPXI0gotG4Sb2IGjNboIhWQfkGIP49TC3eyZRksoicUH6z7Rux67yfHh\nqQ54NZ0U7c/ZsfR0WLPjOaV/1yvV8f3ctKg/PQ6sG9tZO5V6ba79+NnBmu3HcU865pdzXtDJ\ndqFMrTwaQkfMxjyBtJ2kLbYslMS7gxPYpB/0VPAOHL0yzVCjRUocLBTCNIgL48SGeWkJxSg+\nWMN4dJ/YXY/e5FL2QquV5Fk1nRbth3+1nOGr26VZc43qYaDz2rEw3/CKzF8rbuL0AdyTraeV\nM0zbKt226YjZ2P5d1Z2kLbYslMSeoxRaoWWngg1QSori1U/DRdKwVrKpBvEYYV6tiZeWUIzi\ng62UxKB3PXaTs/ZC06HPNFZNp0X7zvPKvzyvq7aWxH5tFSqHgc5rx8J8nRVXw01c2hUwju16\nNvr8Q1fK0gIdMVuGdfiq7SRtsWWhJPYcpdAKLTsVdIBSYhSvfppApGqFxVrJphrEUw7zsuZU\nWkIxig8xYTyzEkXvenwUJu2FRiNk9JnGmo1o0X6Xkaujz9UjdysvIQFz/qQ2DwOb146F+Xbe\nYU15E7sWn0jDA8YT7Zv/8wtrX/jnzdt/xf/RBh0xW4WVFqKdtLTYslASe47SI8sqtKxDYIg2\nQCkxilc/DReJVFhYJZtqENtkUwnzsuZUWkJxt0TRShS967FRmLQXGivZs6Yp2mxEi/b/pEbd\n9Vbw1l2jVLkkTwPmcU/qarSbzmvHurF9W425p7iJu0epq4Ng90MDXnm4tl+0j/2utRWByVyL\nthGzNUijcGkn9aJAucWWhZLoc5QdWVqhdQ7CzT5ZUioaLRKNd7JKNtWAtRPQMC+7ZmkJxTlY\niMVgrWE8fRQm7YXGSva8acqsprOifc+pxT8wDKvMLZfQaMCcPqlZ1J/Oa8cKsB92lzcx+8Pg\nzTN/bqs8/O9po0eOPv3pwFYEJguSy8jlx6S5k7YWWxpKos9RXmciFVrrgGmd7JMlpaLRItF4\nJ6tkUw1YO0Hl1FXCvOyapSUU52AhFoN1hhZpLzRWsnfO38ZrWYXQtO5HKkkaMKdPanoY2Lx2\nlpjbgyfuOWLPkx4qpxIrD7wITOZajI8kBrXHJNtJ3mKrhZJszWXOOhPrEEjLwO7Jkuqi0SLR\neCerZFMNWDsBDfPya1YroYQ4Bwvx7nzW0KIWz6C90FjJ3t1cZi3aa9CAOX1Ss6g/ndfOSf7K\nAxv2TR+Tlp0MqR1JYw22h5yziyHrEEjLwMnTDNVNo0WiFRZeySYaOJtsLNdsrYRSWqNjsJCz\nEsXiGbQXGouQOZ9pzqI9DZinCakZ89o5sVQeMra4sG6v/DFJoEfSWIPtIWce2d++Wvv+RMwg\nXFoGzjbLVGoaLRKtsLBKNtXA2WSToonXMVjIWYli8QzaC413hNOfaUYtfegnZod/Gi/ak4uY\nBswTQ2q2ee2cWvDKA6s0OdbAur3GPIFq0CPp7DhrHlnVXfzfOSOi790xg3BZtCokdpqhumm0\nSLTCwirZFGeTjbOJl+GcF4BWolg8Q++FZivZm5Aii+p8wlK0pxcxC5iTJ3XSFuxrpJ1WWeWB\nVZpcTZl88s4qy6P/s5g9PZJsDbQPkXlkI5FmlfamLBLrEJi5Wbk+Gi0SH5BCKtkMvTLhHqSf\nBue8ALQSxeIZ+kVrvYhDqs2pRi191XNfUZ/jRXte82fjLEiBVW9gsRWK2Bppp1VWeaCVJmdT\nJuv2WuGtr28cfbKYPT2SbA20D5F5ZC0isUOfuVm5PhotknMEJIXMKGofpF+9ZlOZ5pwXgFai\nWDzD3REuadq6UUN40d5S8ycBc4KzUxpbI+20yioPtNLkjEbQbq8v3XH3n4sfay4frGrvGomo\ntK7TI8k6ztI+ROaRtYjEDj0tA8e2ZOej4SJZus4lamBUJqz9gfVr1mYa60npnBeAVqIyd1lP\nnrbueMWL9pmbDZ2d0tgaaafVCL3yQCtNzn0yj/SGM9uKxdbvBg8PVxud/UaUgdVX6JFkd0Xa\nh4hssDugInFIGTh9n7NMNF4kgksD54yixjVrM433pHQ9FWklyhbPSB7YmTj+6IP3eNE+c7Oh\npYHFDA2wNdJOqwxaaXLuk/k0+JHq96m9+7X9qLPf6cvLGVh9hR5Jcw2WPkQmdpHoqTDLwOn7\nnGWi2URyauCcUTTlVItGT0rHvAAsjMfiGSQawYoPzvFH9H6R2Gxoe1LzBhYSGmBrdHZapZWm\njE2ZB7QXD8Yv29q2WVJdxOsriZEhva5ZnfVBvz3YRHINkrFG8fLTbCI5NeAzipLOd85rtkLq\n6XXc8xDRaAQrPiRPExLwor15EZOAue1JzZquaGiAxRKcnVZppSlNU6b2NNgsKgB+Wv177V8z\ndoO19SEybg+qo3g8OlR0WDpKxyFxjG1IL0XxGi4S6c3LNKDxT9ZOQDvfOa/ZKnHT69C4sG2u\nG7P4YItGRFSKD3yaEAfmRawIHY+xJzVruqKhARZLYJ1WLe8mMipN7qZM42nQHg3zm61WaxmS\nYvZWaB+i5HctBylemNNLUbxGi0SDTUwDGv9k7QS0851xzVqHOFWIm16HxoV5JYp1DyfRCFZ8\ncE5bV2X9nbXv1YvYFjDXsDZdWUMDeiyBdlp1xv3YGijm00BFd5PTzCuMxOxZG69VZq0PUfK7\nlgNyKmxl4MyDQ9LRaJFosIndumn8k8V1aOc745q1DnEqUx1wQMN4NC4c0EoUKz7QaAQrPjin\nrSvz0vxt0pyRMGCuoSx35jThCrPTqi3ul21uLPNpYBWJQipyTGbnKH+KcSrs00lnfSqmotEi\n0WATu3XT+CdrJ6Cd79g1S4c4sQEHNIxnjQvrsOIDjUbw4oNr2rqQD+44uE21HZyQo8IB6l4N\ne9NV5l7OPO5nrbdbppeuYD6YVWd4WDtV0msmaUWOyewc5U8xToV9Ihr2VJSg0SLRYJOpgTP+\nGVg639Frlg5xqtyfSE/KWhjPGRdm3cNpNMJSfEhuTi3ywte3UmrohS9X0vpcixTbE4iSuZcz\ni/vRB2/yVM4BfTCn2UlakWMyO0f5U7JNUC1Ho0ViwSZDA/1MxM16yzvfkWuWDnGK7UlZCeM5\n48KseziLRmQtPrx/60FtqvMYdUp1CZ1r0UD1/0J3DfsqWWiAVz/M+gk7FfTBmzyVc0AfzKQC\nY+1kQktqTGb3KH9CikmQe4VGi8T7SesapJr11jWSxzqPiJVyGI/FhWkYj3cPZ026mYoPz51X\ntGbcd98KaiIlz7X4CdVxzP20V6+ta7YWGuCxBFI/YaeC9YpPnMo5cDwNrPUVWlJjMjtH+TOy\n9jkTotEixfeTfr/0QeOfrIOPcyQPH+IURzmMx+LCNIxnuWCSmnTfNLBkUGrr85ZGX6oiOeZa\n/M+TN1HbX/SqvsjVNZtVP/T6iTXuRx+8yVM5B46ngbW+QktqTGbnKH8OPRXak1imk7OVRotE\n71GzK5WCZTGTxLMOPs5B+myIk2v6FDaZAQ3jsQvG8kZgLd7lrCyotpNLdamaSGyuRcq7145T\n7Yfc/n4l7eyazaofev1E2faRPnid4+WzPw30kppV5uwTiFL0J7H7TWR102iRaLBJfaJ0K7lt\nUOKeaR18jM53tjFzdIiTc/oUGhfmYTx6wbChoUa8a3jIJmp4CctfE3Yv3OWbr+sisbkWLfz2\njCFq6G/KCUvXbDNcwaofev3EGvejD94UfXUdfa1o6zp5a6DthsP6EP35f59eEXtILOhPYveb\nyOqm0SJRLmzf+IfFK3au2vzu5EEQ1Q4+Ruc7cjKiMXN0iJNz+hQGD+ORC4YO7LT0U5mVdKQ3\nPHB0R/H5cmtNpJi5FgkPb6cqwQjewELCFaz64Ywk0wdv/qcDbV0vUS6p2cefmLz19e3Cv2n7\n+SlmyizjnC5FhiYQyWz0e2hrNeM3e6pJfwoc7wStdPAxOt85ugBEOKdPYfvknpOUDOy09FNJ\nFKnIG1d+vPgnjqs8YGLnWqzx5j99UnUcVbnHMy1ouIJVP9wNTfTB6xp7/Fbyn8hb103ud8Zm\nXiw+ujuHb9uh1M6vxuWhwcn0b2TLRcNFYo1+bxysVPuC6JwnPokrHXxY5zsd0gUgwj3jPd0n\nZ/dOOrDT8lpBl0jFG/1D0zuV2vM7jrkWy5l/Wcy8y7f+Ul3AtNDDFdbqB40kW0a8OUpqlM5j\nFq9PzJBidJEOndukZ4La76FirXDdL/dR+8eMvmLByfRvZMtFo0XihaC/z1Rqs186f1jt4MM6\n3+kcb/n7nNOnsH3ic5IS6MBOyzxEbpGK/PWqXZxzLYa8dslItfEJxjgB1sCihyusa6SRZNeI\nt5dvv+OV5N3fTamtzv1d3L+mG13EFmhzmzygDimL+sFnVMwoXRacZE9ie3e+vDRaJFYIWrKz\nOuS6AW3nV25ttLjAIgOJl1w4Zo4GzHkLLgnjsX0ywnidm/J4Bt0HyzxEqUQq8sjMFJWFdjX6\nu6SWwBpY9HBF/Bq1SLJjxNu5bUq1nZu8878+Y3OlRl3zF+s/6iqHreusBmwXSRtudGrb85V/\neladFlhhVSL6JE7XNzczjRaJFoK+09n/yg3BH8eoiS+XMtDiAosMuOqnPGBOW3BpGM9SMNPC\neLZ4Bt0HS0NTWpFSofrb+7TrDSzpwhUaySPefqza9x7Xrm52rOT9nx7RX/U/wjYdAm1dZzVg\np0hjP1n7t0/ElNhYlYje5Jxj8uuj0SLRQpDaPmpRWTdPla96WlxwTpUWQy1gzlpwaRgveYLI\nNPEMS8ukrEiusl+QKlxhYnRZZ5PmT267v3jwVYoZJP56zZi4fTJa11kNWE1foRFwkbacXvv1\nsUPtm2BVInqT66UoXqNFooWgqSvL/3Bnpf0ksbhQJtWLgyoBc9aCS8N4zgkiDcrxDDODEe8q\nD+CsvLchFT2Fy770pcsKMfF4yzgcA3u4Qm9XsvS2MLqss1rV5geE/zbJFiQgfPjAzI66Lit2\ne6Aidc6pZY4bTOZ8SXUvRfEaLVJ896xaxTahuBD9c8JMVwblgDmbPoWG8ZwTRBpE8QyWQY93\npXl+EB7etZR515i3GjtgGoQY7UqWDEaXdTZpfvvsMM/sdtemn/n6tkrtfFmm3S2PzFCbkgIr\nFUmvF9nGOcXOzanfaHspitdokVJ21k0oLiTOdGVQvomx6VNoGM85QaRBGM9InijA9fzg3N5P\njZxz6aVzRqp+d6TJT7WwBRfMdiVbb4vELuuphun97bt7F6uic/4zNgONmBkjM5x1JJdI1vsH\nvdE6H1n10WiRjEKQZU70MuXigu1ApZw1qBYwZ9OnsDCea4JIhjNDNl7buOsHUaGu5wddm7ye\n4gdb1BgQO/SHd4Ol9bakLutpRDqyQ7UffHPCjNIsYmaMzOAikblNSkMFS3Ra9sQanKQ32uTp\npOum4SLphSDLnOgR1eKC7YJxzhpEA+a8BZcNxHBMEMmgGWbNK4/6eHiW68+3cZ66sfJ1kfpq\nUk7K+muHKVtvvsDaDdYZANFGZqQZ76p2/Way9ixiZozM4CKR+2YdZWR+o82+hlQ0XiQN63x/\n1uKCdsE4Zw2qHLZKwJy14MYPxChPbOh8zwuLPao9SlW8a+s6vnvsXPu+854ZfnjPbmrgZdUn\ngjlAydIN1iWSPjIjzUX8X679YxEzY2QGE4mWiVOWkc24D73ROptL6qPpRbIWF/QLxjnTFQ2Y\ns+shbiBGZep3axjPgGZQE9u3iq6q+kQaoPWBPSHl/F1FnjxA9T+9Ft0kA5Qs7UpUJDI00BiZ\nkbailxhAZREzY2QGE6kuaNwn/fRsuWh6kSzFBfOCST/TVRl2SyJhPDb1u3seAJpBXXvXphvd\nFtQrUldtxHkwO+3pf2lGm5rybC1NByhZ2pWISHRoYPZX+LkCqCxiZozMeNs+QUU2WNzHdqNN\n1VySjcaKtOibxQrgN6LeO+F4cOsMtPQ39IJJO9NVPEYYzzL1uzu0SDOoa4Mlw9suqVekkVo4\nZELMLJaElV/pUp96TF9CNdDalSqlWlMkNjQw80T+zgAqi5jlH5lBYXEfdqNN3VySiYaK9Hz7\nl4IwEhTS/nzcnOhGmZdfMKlmukrECONZpn5PMfKTZCiKFCwfq2auq0+k7rbqQOrftJ2c4gfr\nrt5MjbzFrMdTDcxKTrRfpkjsAZR5In9nAJVHzDK/Fc4FCwzRG2365pJMNFSk+W3hzECnqRUr\nVvxazY8RSS/z2i6Y5JmubENmaV3ACONZpn4PUownMDOEIgVrjlT7XlrX8X1Sfay8pqUfU0+l\n+MFItdnV9LKgGpih4QG8twV7AGWeGS/zqwJ6AR4YIjfa1M0l2WioSBOjToiltom99rXOiW6W\neW0XTDLkPhx1MaV1ASOMZ5n6XWO5dSnfanR/7fmaaq/v+H5NdZ508+OP33xSp/p6qu2pLVgn\n1mQNLEE49gDKPDNe5lcFhGSbzNWJJTBk3mhTv2QhGw0VabOoE2JJpCO3sIdYjTKv7YJJxtLF\nlNUFjG3apn6vUA3juRheXvO/1tfpLNhwcamoqPpfnKqnsu3AWTTQrllLEI6Zl/n935lfFeB+\nCUtmWGCITkzTS1G8horUP7pofxd1/prd3x5iNcq8tgsmG6OG8LqAcZ+0tODzMF5qVrxQz04W\nefkbk3ffffI3XnLnDLEdOKaB65q1P4CyvP87cwDV/RKWzLDAEJ2Ypg7b09BQkQZr7XPHxMyW\nY5R5rY0ZmUY8Hq8cwSgmki2MZ/4VtmpYk6Bp4LxmMz+AGCkCqKR6Kty3KoQGhujENNltT0VD\nRRqlhXZHjrbncTaGZhvx+MF7jmAU6wpjDeMZvyB0aLMMPxEzyVwDSHfNZnkAcZwBVFo9dXa+\nqgMSGKIT0+RvLrHSUJHOUQ9Uvt6vYkYxOxtDM494tNTC9T5ltPRoD+NpsGpYOFLb0mOwwWS8\nZu81SLsRx6sCWPXU2fkqP3RimvzNJVYaeqKfa9+23Mr++23bn7fncTaGZh7xyOsC+n2SlR6T\nw3gWVHhNuF613ctYxu1lvGbrqY5aJpw1YdVTZ3kjP3RimhQvBqmHxt4xL1Ibzb718cdvnb2R\nujguj6sxNPOIR1YXSJ7tNymMZyW67BoskkWDdNdsYf75Py+tIcULLyhswlkKq55+BC9hocfB\naXudm+mVtaalFua9JL545mgMrW/Eo14XSO5TlmpEm/GDE4KGi2QZt5d8zT56WFR8i4o9M8Jz\nYX3hhQNar2ew6qnwS1hsj1HaduW0vc5N98pa07PswjDMe2HMu490Pojpcpx/xGPGMJ6LmI5O\nHz1mD6Dka/bLKoy0/4fqOvWMIer2KD9/4YULWq9n8Oqp7EtY0gxwdNpeH40WKT1x12T+EY8Z\nw3gumlSk5Gt2XDTs6ST1kyB4sq08GQx94YUTVq+nWJqqMk7mmpKEAY5O2+uj74tUXwtttS4Q\n1NGZJplmFSnxmh12dPj/kVuFpbp9a5eg8cILJ7xeT8jfVJUOc4CjidP2+uj7ImUb8cjqAoGr\nT1naEW1VbD0GG0KWqfT6n1r830oVRUBP0sN62gsvnKS74eRrqkoBGeBIGuydttdH3xcpG7wu\nIH6frCdw3CtkEWlQOGz2IXVF+H12te+M+cILJ700ijsbdLwabbDvpXPTGiKlH/FoqwtEyN0n\nMz/CegtNpDO/XQvAXTzOknfipsUjeLaKRnp9ZvdoEXvhhTBsMlcJ+Hg12mDvw5wNicSKlGnE\nY0xdoCXRRFLqiGo7mPVAXqP2XnRZ5/CwHr5uYHiMLC+8cOF4XcWH+08oT5uxavyBH8bNQpcL\n23g1f140lpI4kbKNeIytC7QWdJZk1a5GV2Z2sR7IdfuERdtwmongTvWDwPrCCweu11XcXH07\nUrBQ3WaZzDU/tvFqvrxoLBG9X3VcvT3biEd7XSAww3h9H3qzVzNnq23KY23td6R13zn+rOg9\nocH3usPOuXEvvIjF+bqKKVtU487rh4i+UbyKbbyaJy8aSybNwz/biEdWF7CF8fo+tJ6muoP/\n07Zxafb0dFGbzOUu5+sqttWqpF+wvoIpN7ad9uRFY8mkqbdnG/HI6gK2MF7rEbZt3bVpW/Qg\nTidS5pCJ83UVHbNr37/YUfq0vG4zD3SnbbPqt+iLxvKTbcQjqwvEhvFaiqiReMlwddL7vdZI\n7HxdxcDjat+nDyp9ul63mRNbPKNFXzSWn4wjHmldwI8wXmkS0+Vj1f5v9pZIzj6Jn9QmYt6p\n/O49x+s282KbVb9FXzSWn5wjHv0I45VnA15zlNrx2UaJNE9VX7H9CzWv9CX5dZu9Qou+aEyA\nfCMeY8N4LUVlWu0N56she/WSSK7OvX9o36Y8ncXTW7eXux4Yr9v8aGjRF41JkGvEo6VJvwWp\nzU//o45e6rbkDvNdorq6b3n88Vu6O9Ul5UXG6zZ7AdoIHLTui8Zyk3PEIwvjtSQjzqt+fXTz\n3jnnKcJ8V3SULOu4orLEeN1mL0AagWPfjZmfvi9SzhGPLIzX8qxa0bBNv/yPB+2++0H/+HJt\nSeLrNvNDGoF7oVdShb4vUt4RjzSMBz5Skl63mR/SCGx9N6YMfV+kXhrxCFoBWyNw79D3Reql\nEY+gFbA1AvcO/x8Dhh+bwFtnWQAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "barplot(he.count, las = 2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.8 The Cleveland Dotplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Sometimes a so called Cleveland dot plot is en elegant alternative of the barplot. You can make it by using the function dotchart()."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dotchart(he.count)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.9 Again the Barplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Now we know how many times local he occurs in each book. However, longer books tend to have more cases of local he than shorter books, so comparing them is relatively hard. Therefore, we divide the number of local he's by the total number of words per book. First we select the Hebrew words (in other words, we remove the Aramaic parts)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>hbo</li>\n",
       "\t<li>arc</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item hbo\n",
       "\\item arc\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. hbo\n",
       "2. arc\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] hbo arc\n",
       "Levels: arc hbo"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "unique(dat$language)\n",
    "dat.h <- dat[dat$language == 'hbo',]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Then all Hebrew words are counted per book."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       "      Genesis        Exodus     Leviticus        Numeri Deuteronomium \n",
       "        28756         23748         17099         23186         20127 \n",
       "        Josua       Judices      Samuel_I     Samuel_II       Reges_I \n",
       "        14523         14085         18929         15612         18684 \n",
       "     Reges_II        Jesaia       Jeremia      Ezechiel         Hosea \n",
       "        17307         22931         29717         26182          3146 \n",
       "         Joel          Amos        Obadia          Jona         Micha \n",
       "         1318          2780           392           985          1895 \n",
       "        Nahum       Habakuk      Zephania        Haggai      Sacharia \n",
       "          746           897          1037           877          4471 \n",
       "     Maleachi        Psalmi           Iob     Proverbia          Ruth \n",
       "         1187         25369         10912          8859          1802 \n",
       "     Canticum  Ecclesiastes        Threni        Esther        Daniel \n",
       "         1682          4233          1945          4621          3512 \n",
       "         Esra       Nehemia    Chronica_I   Chronica_II \n",
       "         3745          7842         15561         19762 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "word.count <- table(dat.h$book)\n",
    "word.count"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Finally, we divide."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       "      Genesis        Exodus     Leviticus        Numeri Deuteronomium \n",
       " 0.0047642231  0.0029476166  0.0018714545  0.0038385232  0.0032294927 \n",
       "        Josua       Judices      Samuel_I     Samuel_II       Reges_I \n",
       " 0.0078496178  0.0036208733  0.0029055946  0.0025621317  0.0021943909 \n",
       "     Reges_II        Jesaia       Jeremia      Ezechiel         Hosea \n",
       " 0.0029467845  0.0010030090  0.0016152371  0.0045833015  0.0006357279 \n",
       "         Joel          Amos        Obadia          Jona         Micha \n",
       " 0.0015174507  0.0007194245  0.0000000000  0.0030456853  0.0005277045 \n",
       "        Nahum       Habakuk      Zephania        Haggai      Sacharia \n",
       " 0.0000000000  0.0022296544  0.0000000000  0.0022805017  0.0008946544 \n",
       "     Maleachi        Psalmi           Iob     Proverbia          Ruth \n",
       " 0.0000000000  0.0003547637  0.0005498534  0.0002257591  0.0011098779 \n",
       "     Canticum  Ecclesiastes        Threni        Esther        Daniel \n",
       " 0.0011890606  0.0009449563  0.0000000000  0.0000000000  0.0025626424 \n",
       "         Esra       Nehemia    Chronica_I   Chronica_II \n",
       " 0.0005340454  0.0002550370  0.0021849496  0.0022264953 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "he.count/word.count"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAADAFBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgpKSkqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6\nOjo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tM\nTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1e\nXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29w\ncHBxcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGC\ngoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OU\nlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWm\npqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4\nuLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnK\nysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc\n3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u\n7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7////i\nsF19AAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2dCZwdRbWHayaZGUISshECBEkg\n7AjZBAIEkCiCsgRFAgmSYAgEZF8UCSi7qOG9PEQF9UlQRBAUBERQ4Aqy+CQiq4ISCMgS1rBk\nXyb9uvtuVedUdXXfeyZ3Zvr//X7Jne6u7q7bfb/uqtNV1SoAANSNanQGAOgOQCQABIBIAAgA\nkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEg\nEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABE\nAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkCAritSD6XUX+rawur/2a1fk1JH\nCGRmcZgZ9UzGlSzfwPmlavu2dK3UW6lhd+VV2KrOBVJ7Fvgp1E+DRBqrqszNsN6dF1xwwZ3F\nP+s/eocV999wkdJ8qc4mUukEtg4cM/NBcxVhkaId7V/8c1r459CacrsO6GIizQzTzyz+WffR\n+1u08/U2H3ZyPRspUZdIab5UJxUp5str9VUg0rpEQKQzTzvttJfrycM14bY+trieLVSpSaTy\nN+iEInkPrn4C1U/1VZwipTthECkT0eEZdlqRv2ZYT/vN1c0V4bY+JbStmkQq0wlF8hKdwN3n\nzXvwPEWPolOkdECkTGiHJygdiHdOGd5znyC4/cx9thzYs+/WR95RXvrS13cb1DJ41Kl/DSZW\nroGD9KP395k7bNAy5DPfX1bd2Htnb9m28dH0+qcnPKuyrVtKSxf3VKpHdIfaQ6m+a8LPrct7\nsOyglNtg6Te2advkS/+uiLTymv02bVtvs0/MuOa9ym5dGy5+A/6lPjxnBMu869vqh4cfPKtI\n5uafOfnj/Vo3OeSWtdbdOQ9m5QTuF/4xgq3y9inD2zY7YSHfVuYs20Uyc23fZfkUGYndJ7lO\nOo1IN38s/G+fIBhZ+V0duipatvaSHqXpaXaRVp9cnrn538ob++km8YyNX9X3aSbkIgW7hhP3\nBcGKtvDziSB4K/zos9q+g3Ju39kpXtDnzpJIy8dVNntvdc+ODTtEumkLS+Zd31Y/PPzg2UQy\nNt/+tabSChPes+3OeTArJ/Az4R9j6SrXF1cZ/Cxd8JfMWbaJRHNt3WX5FJHEjnNRNw0UafhZ\nMd8sfu/B0VfdOz6wLYN6x1/8wijlrMqBdoh0YmWmGjg/KM5vKc2Yqu/TTGgR6avhxMVB8HA0\n8/tBcGv48RnHDsq5/VxpQZ/ov1Ck/44+1xsUXvZ0kRwbdojUx5Z517fVDw8/eDaRjM3HR6E5\nnrXXasvunAezVLT78zeiX+n5dJXepVW2XhZwkbJlWful7KhKItFcW3dZPkUkseNc1E3jgw2l\nn4/qcehXjz40rDD8ZH57eKE4M1oS3oufik7Uhv/z1HO/PWJ68NaCKeHUlAULFvyncsQfi9bd\n5e4nLo9+vBOD0sbGzv3hptHRXVPdJUm4aEF0QvcMt7W0nOJ3Kr74fSdKOLl4Bi5z7aCY2wfj\nfd324CnxNwlFOiT8uHVtsOYfP/jk/dVd2zdc+gbsS9ky7/q2xuFhB88qkr75J8LVm2YvD/66\neTjjx3x37vzowYZxi9kqh95zT3Qo1PcCJlLGLBtRjaJILNfWXZZOEU3sOBd102lE6vFnI8Hq\nXuG8fxavwD2eiGd9ENjq5ceFHwOjM3lZ+EfTW8X5my0JgkK08ReqW2QJZytSTf6gWal+7aEM\nTYPV5kGwW7j8YccOSrk9IfxzwEfhH18uibR/ePHjkSn7hl3hb1vmXd+WHB5y8Kwi6ZuP8n90\ntOAX4R+78t2586OdwE3+zlbZNVSiPUoyLmAiZcyyRSSWa+sutVOkJ3aci7rpNCIdXVrS/qvD\nt+nTXFwUlmWj2/mk6npcpO3DjxOi6TejNW4tzo+uMR9G0/Oqq7KETKRgTDjn6WBDtcNkpV5d\nFhZpeq107ODo6tc4Lvrj4ZJI0YW1bfyM/yos92/YJZIt865vSw4POXhWkfTNR6vvdGDIntEv\nbxXbnTs/+u+7+Zd0lWuiGd8P/2hdw0TKmGWLSCzX1l2WThFLbD8XddNpgg3XF/9cso921H4b\nBAPCj0ur63GRogTfiWdE17QfFOdHEaA1yjwlLCEX6YzohPxLqRlXhXXyB8KJCbb1tNxuFv75\nreiPN0oivdivlPW+Z6/wbdglki3zrm9rHh568Kwi6ZsfYPxI32C7c+endAJXPvWp8I9eb5NV\n/hAl+X20zrtMpIxZtgQbWK6tu7y+etqNxPZzUTedRqQHin/GNdGdj545c73w87ZaRYrPRHaR\nbg/nTL1Wqbl/V+qUqPB0kW09LbdDyyK9VhIp+OcX2krnbKZvwy6RbJlPJxI9ePbwt7Z581e2\ngCd05qdyAt+OllwVWET6XRqRvFn2irTAscvSKWKJ7eeibjqNSKWDt0345ynh5+rW4oGN7sxa\nY7iURTvbuU9RtFsUFjFGHKvUv9f0UWM+Gy5+0LaeltuomBAX7R4qixQEyx659tzR4VTbcs+G\naxHJVrSrHh568LwiRZubYzs/6UUKonjY6WSVq6MF4RXfVbTLkGWLSCzXzl3aEtvPRd10NpH6\nlo7nXar4R1w1fSpeFFVNo6coU42VrLEA27n3BxuKDzU2VoOD4FOqxwZKrbfCtp6W20iBONhw\nTEmkUgh5zcbh5EueDVc2xL+UUyRrsKFyeOjB84p0fPixaykY94YtoV+kf0RLziKr7NIeVn6i\nq4wr2JA+yxaRWK6du7Qltp+LuulsIkVPCz/7wdoHNi0d2CejYOng7z39/O+mRsHSi8KpTQov\nLXjPDAjves+T39aj07ZzzxJaRDo1ShMt/Gb8xz7W9bTcPhAtG/PrwkmqJNJZh/7ilbXB2t9F\nad/1bLiyIf6lnCLRzJiHhx48r0iPR5+TXgiC9++a2usCS8JEkXafN++Rn46IlvycrKIOuuuu\ng6PPK/m2MmbZIhLLtXOXtsT2c1E3nU2k+Fv26K1aWkoH9uuqzLRw6u7S36dVV9IeUQ6YHySc\ne5rQItJv4qVhJeSe+I9vWtfTT/UBpQWtJZFOi/4eFFeTdvduuLwhy5dyicQyYxwedvB8IsU1\nb6V6RfcFdYElYaJIFYYuJqu0lhaMWGrZVrYs21o20Fw7d2lLbD8XddPZRHp36/jb9bhuUOnA\nrr2gR/WwB2tGs9/c6pPK56Xagsd67mlCi0jvxK1JHi4+bVDqfut6+ll6e4d4QduN0f8lkYps\n/Kx3w+UNWb6UUySaGePwsIPnFan96+X2M0pdYUmYSqRN/05X+fGG8YJBT9m2lS3L1iZCJNfO\nXdoS289F3XQ2kYJFpw9rGTzx0aB8YINg/td2Gdhzw2ITx+C9U0a0kt9c8PjM7fu0bPTpq5aa\nG6Pnnia0iBTXhFujQvPO0R/LrOsZp3rJeVu1bjTpmXKj1f9ce9wum/dq2Wjvy9/3b7iyIcuX\ncolEM2MeHnrwvCIFwfNnjhnQo/dWh8x+LrAk9IrU62MHXLWYr7LwxM1bhx7/hn1bmbJsb7Rq\n5tq5S1ti10muk67b1RyATgREAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAA\niASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgA\nkQAQACIBIABEAkAAiASAABAJAAEgEgACQCQABIBIAAgAkQAQACIBIABEAkAAiASAABAJAAEg\nEgACQCQABIBIAAjQzUR68m86CxudHZAbupdIf1MGn2p0fkBu6F4iPar+UKjy5b0anR+QGyAS\nAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQC\nQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgA\nCACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkA\nASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEg\nAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAE\ngEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAA\nEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAA\nIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJA\nJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACI\nBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACR\nABAAIgEgAEQCQACIBIAAEAkAAWwizZ8ypG2r85Y6Z5nL75u4Uetmh/ypQ3OZFogEGoRFpGf6\nNx1y2hg1bpljlrn866ptn0n7DjpvneTWB0QCDcIi0q5qbhC0T1aXOGYZE9eq3V8LP9rf7fis\npgAigQbBRXpcjYo+XmvebK11ljGxcuPeb66jnKYBIoEGwUWarc6NP0ep562zjIm71VHLbzr/\nsvvXss00BIgEGgQXaYa6Lv6cpO6wzjImLlanbq1C9nxrXWTWC0QCDYKLdLi6Lf48Xv3cOsuY\nOFn12PZPi5/eT00wtvHG/p+usNfH1t3tCiKBBlGnSF9RPZ8L/16yqfqbvo2lV3y7wolqZYfl\nngKRQIOos2g3S308npimrnbt4RGIBLo/7mDDaB5sGK0HG+KJn6nx8cRpao5rDxAJ5ABb+Ht0\n9PG6Ef7WZhkTrzZtuCqamqB+69oDRAI5wPpA9mdB0H5U8YHr3Dlv0VnGxBfUBeH/d6hBi117\ngEggB9iaCPVrnnj6WLVb3ARohJpHZxkTrw9Xu590YHOL84YEkUAesDZanTy4dctZS+K/iyIZ\ns8yJd04Z1jLo8/Pce4BIIAd0fDcKiARyAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAA\nIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJA\nJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACI\nBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACR\nABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASAS\nAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQC\nQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgA\nCACRABCgkSK9c69OQcA3iAQaRCNFOk4Z3FT/viASaBCNFOmYA7RffWHw9fXvCyKBBgGRABAA\nIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQCQACIJM3al1/UWXd9SEAj\ngUjS3GK2aT+tEXkA6xyIJM3cwTdo7DmjEXkA6xyIJM3cjfVvtR9EygcQSRqIlEsgkjQQKZdA\nJGkgUi6BSNJApFwCkaSBSLkEIkkDkXIJRJIGIuUSiCQNRMolEEkaiJRLIJI0ECmXQCRpIFIu\ngUjSQKRcApGkgUi5BCJJA5FyCUSSBiLlEogkDUTKJRBJGoiUSyCSNBApl0AkaSBSLoFI0kCk\nXAKRpIFIuQQiSQORcglEkgYi5RKIJA1EyiUQSRqIlEsgkjQQKZdAJGkgUi6BSNJApFwCkaSB\nSLkEIkkDkXIJRJIGIuUSiCQNRMolEEkaiJRLIJI0ECmXQCRpIFIugUjSQKRcYhNp/pQhbVud\nt9Q5iy6/Q6nz3HuASCAHWER6pn/TIaeNUeOWOWbR5W8P6QORqkCkXGIRaVc1NwjaJ6tLHLPo\n8kM3+QZEqgKRcgkX6XE1Kvp4rXmztdZZdPm16ndzIFIViJRLuEiz1bnx5yj1vHUWWb6g75cD\niKQBkXIJF2mGui7+nKTusM4yl7fv/bEPIJIORMolXKTD1W3x5/Hq59ZZ5vLvqj8GXKQPZ51T\n4UsQCXR/6hTp6bYTAotIb08+vMIEiAS6P/UV7daO3GJxYBFJB0U7kAPcwYbRPNgwWg82RBOr\nVYVjXXuASCAH2MLfo6OP143wtzZLn2g/NmacGnXsda49QCSQA6wPZH8WBO1HFR+4zp3zFp1l\nTMSgaKcBkXKJrYlQv+aJp49Vu8VNgEaoeXSWMREDkTQgUi6xNlqdPLh1y1lL4r+LIhmzzIkI\niKQBkXIJulFIA5FyCUSSBiLlEogkDUTKJRBJGoiUSyCSNBApl3QpkV4dMkBnEksAkUCD6FIi\nPakunl3l4LEsAUQCDaKLiXS7tsIJEAl0GiCSNBApl0AkaSBSLoFI0kCkXAKRpIFIuQQiSQOR\ncglEkgYi5RKIJA1EyiUQSRqIlEsgkjQQKZdAJGkgUi6BSNJApFwCkaSBSLkEIkkDkXIJRJIG\nIuWSbi7SDKMn4ODn6vwuaYBIuaSbizRhP60n4Gz1YJ3fJQ0QKZd0d5GmatP3QyTQUUAkaSBS\nLoFI0kCkXAKRpIFIuQQiSQORcglEkgYi5RKIJA1EyiUQSRqIlEsgkjQQKZdAJGkgUi6BSNJA\npFwCkaSBSLkEIkkDkXIJRJIGIuUSiCQNRMolEEkaiJRLIJI0ECmXQCRpIFIugUjSQKRcApGk\ngUi5BCJJA5FyCUSSBiLlEogkDUTKJRBJGoiUSyCSNBApl0AkaSBSLoFI0kCkXAKRpIFIuaRr\ni/Tkj3SuXQaRQIPo2iId0nsTjaY/QCTQILq2SAdN0rfQejdEAg0CIkkDkXIJRJIGIuUSiCQN\nRMolEEkaiJRLIJI0ECmXQCRpIFIugUjSQKRcApGkgUi5BCJJA5FyCUSSBiLlEogkDUTKJRBJ\nGoiUSyCSNB0g0lClM3CtwCaBMBBJmg4Qqe3Ua6qcpdYIbBIIA5Gk6QiRvqNt8UqI1BmBSNJA\npFwCkaSBSLkEIkkDkXIJRJIGIuWSziRS+43GoECPsBUaIdKzN+v83h96hki5pDOJNF9tpI0J\n1G9HtkIjRBrT1rdKH/W8dwWIlEs6k0j/Vjdr06dvz1ZohEgjT9K2cKt61rsCRMoleRPpw0U6\nq/zZh0ggDTkT6TGjsY063J99iATSkDOR7mu+QePg/f3Zh0ggDbkTSV9hCkQCQkAkDxAJpAEi\neYBIIA0QyQNEAmmASB4gEkgDRPIAkUAaIJIHiATSAJE8QCSQBojkASKBNEAkDxAJpAEieYBI\nIA0QyQNEAmmASB4gEkgDRPIAkUAaIJIHiATSAJE8QCSQBojkASKBNEAkDxAJpAEieYBIIA0Q\nyQNEAmmASB4gEkgDRPIAkUAaIJIHiATSAJE8QCSQhryLtOBenYf4yyYgUqdh1e3Gm0FebHR+\nDPIu0nhzDOMn2T4hUqfh3ibtxSB9Wyc2Oj8GeRdp3HHa9F1qHtsnROo03N2qH9lJBzU6PwYQ\nCSJ1FSCSYwlESglEioFIjiUQKSUQKQYiOZZApJRApBiI5FgCkVICkWIgkmMJREoJRIqBSI4l\nECklECkGIjmWQKSUQKQYiORYApFSApFiIJJjCURKCUSKgUiOJRApJRApBiI5lkCklECkGIjk\nWAKRUgKRYiCSYwlESglEioFIjiUQKSUQKQYiOZZApJRApBiI5FgCkVICkWIgkmMJREoJRIqB\nSI4lECklECkGIjmWQKSUyIv0njF40v3L6t/iOgAiOZZApJTIi3SmOXjSj+vf4joAIjmWQKSU\nyIt06l56Jof9oP4trgMgkmMJREoJRIqBSI4lECklmUV616gC3fshS5BXkT5cpMPH1a0diNQd\nRTqvpz4mafMcliCnIt1lVg3PEMwcROqOIn19Vz0P285mCXIq0vX9r9HY/RjBzEEkbToU6Z1Z\n5+jcA5E6DwIiDda3cABEiukQke5sHqux0aEQqfOQXaST9ZM5dq8PIFKRdSFSLz3BYRCpE5Fd\npO3HH1flKPVviFQEIhUgUplUIp2urXAzRCoDkQoQqQxEqgCRUgKRYiCSYwlESglEioFIjiUQ\nKSUQKQYiOZZApJRApJguJ9L8KUPatjpvqXOWNrH4piM2b9lgz5+0u/cAkeoGIsV0NZGe6d90\nyGlj1Lhljln6xBzVOu7wvXuqQ9wmQaS6gUgxXU2kXdXcIGifrC5xzNInfv3DD8L//7GR+qVz\nDxCpbiBSTBcT6XE1Kvp4rXmztdZZluXB5Wqmcw8QqW4gUkwXE2m2Ojf+HKWet86yLA9+qE51\n7gEi1Q1EiuliIs1Q18Wfk9Qd1lmW5WvHqXude4BIdQORYrqYSIer2+LP49XPrbMsyy9QXzC3\nsfrWmytcApHqBSLFdHuRrlJjSGfmV7bZssKmaoVj3xApJRAppouJlLlod4UauyhhDyja1Q1E\niuliIpWDCaN5sGG0HmwoL79A7f5B0h4gUt1ApJguJtLjanT08boR/tZmkeVnqE8uTtwDRKob\niBTTxUQKdlU/C4L2o4pPX+fOeYvO0ifaj1P7e8a7hUh1A5FiuppIz/Rrnnj6WLVbLMiIeGAd\nY5Y+8V3VPHlaxBXOPUCkuoFIMV1NpGD+5MGtW85aEv9dFMmYpU+cUx4ibH/nHiBS3UCkmC4n\nkiwQqW4gUgxEciyBSCmBSDEQybHEK9JLN+vcuhwiFSBSGYhUwSvS5BZ9COum30KkAkQqA5Eq\neEWaNFFP0Pc3EKkAkcpApAoQKSUQKQYiOZZApJRApBiI5FgCkVICkWIgkmMJREoJRIqBSI4l\nECklECkGIjmWQKSUQKQYiORYApFSApFiIJJjCURKCUSKgUiOJRApJRApBiI5lkCklECkGIjk\nWAKRUgKRYiCSYwlESglEioFIjiUQKSUQKQYiOZZApJRApBiI5FgCkVICkWIgkmMJREoJRIqB\nSI4lECklECkGIjmWdA+RnjQGlvgDROowIJJjSfcQabs2bVyJ3uo/EKmjgEiOJd1DpK3P0hLc\nqF6CSB0FRHIsgUgpgUgxEMmxBCKlBCLFQCTHEoiUEogUA5EcSyBSSiBSDERyLIFIKYFIMRDJ\nsSSnIj0x6XCd3/sPIUSKgUiOJTkV6Qd9D9LY5FT/IYRIMRDJsSSvIg3TE+wFkdICkRxLIFIB\nImUAIjmWQKQCRMoARHIsgUgFiJQBiORYApEKECkDEMmxBCIVIFIGIJJjCUQqQKQMQCTHEohU\ngEgZgEiOJRCpAJEyAJEcSyBSASJlACI5lkCkAkTKAERyLIFIBYiUAYjkWAKRChApAxDJsQQi\nFSBSBiCSYwlEKkCkDEAkxxKIVIBIGYBIjiUQqQCRMgCRHEsgUgEiZQAiOZZApAJEygBEciyB\nSAWIlAGI5FgCkQoQKQMQybEEIhUgUgYgkmMJRCpApAxAJMcSiFSASBmASI4lEKmQI5Hmtyid\ng7NvASI5lkCkQo5EmqeuvKbKoeOybwEiOZZApEKuRLpL2+VxECkrEIkAkQoQqQYgEgEiFSBS\nDUAkAkQqQKQagEiEnIh02ZY62z0LkeoEIhFyItLnR5+p0XoHRKoTiETIi0iH6btYHyLVC0Qi\nQKQCRKoBiESASAWIVAMQiQCRChCpBiASASIVIFINQCQCRCpApBroZiK9/Z1v6zwKkRxAJGG6\nmUg39xyrseEUiOQAIgnTzUT6VX89wUEQyQVEEgYiESBSASLVAEQiQKQCRKoBiESASIVYpBMG\n6Ax6xrtFiORYApEKeRZp/wmzNZru824RIjmWQKRCrkWaoidohkgeIBIBIhUgUg1AJEJnFOmj\n9Y2xskb68+QFIgkDkQidUaQ31QXaWFnTh/rz5AUiCQORCJ1TpLna9CyIlBmIpE1DpCIQKTsQ\nSZuGSEUgUnYgkjYNkYpApOxAJG0aIhWBSNmBSNo0RCoCkbIDkbRpiFQEImUHImnTEKkIRMoO\nRNKmIVIRiJQdiKRNQ6QiECk7EEmbhkhFIFJ2IJI23SCRHr5Z54/8QEGkGIjkWAKRCrFIG/bq\nW2V9tYStAZFiIJJjCUQqxCINuFibvkZ9xNaASDEQybEEIhUgUhmI5AMiESBSASLVAEQiQKQC\nRKoBiESASAWIVAO5F+kYfbDwsZ9cDpEKEKkGci/S0AnHVTlcvQmRChCpBiDSLG16LkSKgUiZ\ngUgQCSIJAJEgEkQSACJBJIgkAETqliKtelHnPzwBRBIGInVLkU4wxjhWv2cJIJIwEElcpDd+\n8iONn7zBVlgHIh217w0a/W5iCdaBSMdvqbPDQrYGRCpAJA0q0qWtm2i0XspWWBciHahvYUBD\nRBq7z5lVTlJPsjUgUgEiaVCRLtpZ38LOF7EV8iLSCdr07RCpCESKgUhOIJJjCUQqQKQyEMkH\nRIJIEEkAiASRIJIAEAkiQSQBIBJEgkgCQCSIBJEEgEgQCSIJAJEgEkQSACJBJIgkAESCSBBJ\nAIjUHUT6YGejpfVREIkAkbRpiFTEItJLaobW0nq/rSESASJp0xCpiFWkG7UEZ0EkCkTSpiFS\nEYiUHYikTUOkIhApOxBJm4ZIRSBSdiCSNg2RikCk7EAkbRoiFemyIn24SGcNRIqASBUgUoxX\npPvNIcKOg0gREKkCRIrxihMMluYAACAASURBVPSb9a/R2GcSRIqASBW6gkiL9jJeA3VmQ0Tq\nqyeYCJFiIFKFriDSP9SXtNdA7bEzRJIGIuVEpFu16ZMhkjgQCSJBJAEgEkSCSAJAJIgEkQSA\nSBAJIgkAkSASRBIAIkEkiCQARIJIEEkAiASRcirS/ClD2rY6b6lzlnvCBkSCSPkU6Zn+TYec\nNkaNW+aY5Z6wApEgUj5F2lXNDYL2yeoSxyz3hBWIBJFyKdLjalT08VrzZmuts9wTdiASRMql\nSLPVufHnKPW8dZZ7wg5Egki5FGmGui7+nKTusM5yT9iBSBAplyIdrm6LP49XP7fOck9ovPJi\nhVvcIu19g8bAUKTva9NfDkXaT0/QJxTpR9r0UaFIB+oJWkKRrtOmvxiK9Hlt+vpIJH2Fg0OR\njtCmfxqK1KYnOCAU6Wht+upQpA30BBNCkWZo01eGIg3WE+wZivQVbXp2KNJQPcEuoUhnaNOX\nqo9Wv2iwMmg7R0vwjVCk7fQtbHdR8KaxwtvB13fWE2w5O1hoJHgnOHUXPcHQUKTZ2vRXhgbL\njBVean9JXaklmBGKtK++hX6hSFdr01NDkQ7QE6wXivRTbfqIUKSD9QShSC8b+/ww+NCYfiW4\nu0Vf4cBQpKO06R+FIvXRE+wXivRlbfr7oUgD9QR7d36R5jdpXeebVjv2farZxf7213sY07uF\n9zuDe+c3G9P7BlPMBI8802RMHxgcaiZ44jFz+vDgM8Z00/MPmgmmBnsZ080v320mOCEYa0z3\nfPM3ZoIzgu2N6dYPrjcTnBcMM6bXW0ESzAkGG9N91s5JTrB5cJmZ4Edr+hrT2wXnmQmu/6DV\nmN6eJrj7zZ7G9NjgRDPB718xz834YJqZ4IHnzXPzmfC3Y/DY8+b05OCLxnTTi4+YCaYE+xrT\nzfPvNRPMCHYzpnu8fruZ4NT6/anQQUU7fTiXd137Xm2M+fJ+EHxkzFgerEpOsIIk+CAgw8is\nDFYa0x8GwQckwYrkBKtIgrDY9b4xY3Ww3JheHASLSIJlyQnWkARLgrVmgvZgqTG9NGjPmGBt\nsMSYXhasMRMEwWKSYHVyguW+k+c9NyvIucl+8rznZhU5N5aTJ4c72DCaBxtG6/EFPgFAbrGF\nv0dHH68b4W9tlnsCgNxifSD7syBoP6r4jHXunLfoLPcEAHnF1kSoX/PE08eq3eJWPyPUPDrL\nPQFAXrE2Wp08uHXLWUviv4siGbMSJgDIKR3fjQKAHACRABAAIgEgAEQCQACIBIAAEAkAASAS\nAAJAJAAEgEgACACRABAAIgEgAEQCQACIBIAAEAkAASASAAJAJAAEgEgACACRABAAIgEgAEQC\nQACIBIAAEAkAASASAAJAJNCZ+csTjc5BSjqHSP+57uZlSdN8Rt276JRIZnJ55a/5UpvsKBK+\ndtNh6zQntdNokb6zzaIg+HMfpXb60DrNZzDev/zI8bvFlGa8d/sP58Sk3UJ2yC4sM7xrmPBM\nendBpulh+EJ7Kd3Lmwvl0cLSm8454ZyblqbeAs2k99xseLQ3D57jso5otEi7fTL6r/XcY9Xl\n1mljxsSJ/wz/VSgmmNe/8uKo4oxvrWdOG5vsZxDwGd4Etl3oMyaapEzAvnfSLmzT7DCok4uf\nr4/oyVewHsmkBNYVgls3jJNveJsjj8EDBw9p7RFjz6T37H5x2zWV34r3yPJp79kVo9EiDT4p\nCN5Q4X/7jrROGzOUeijQXrhWTLCnOn/+8tUx8fSNapfL1FmXTlCHX2/ZhfnKtoDP8Caw7UKf\noSwr+BPQ7524C9s0PQzBKeo70ceb2zbfyFewHcnEBNZDf3+Plmn/e+f/TmvpUbBn+o5m1W/H\nkTH2THrP7r8HnVy533mPLJ/2nl0xGi1SyzeD4Bb1hyA4Z4B12pjx6qsrw38VignaDjK3OH7I\nsoXq7iD4RY/7LbtYbhDwGd4Etl3oM141SZmAfu/EXdim6WEI2r/QdEMQvPPxprmWDdiOZGIC\n66Ef3+vv8effe+1lz/TYHjcY781imfSe3Wn7qg0/PXVahP/I8mnv2RWj0SINmRkEJzWHBeTz\n17dOsxksjDP4K+Z032ODN9Vd4R8HTbBvwWD1PP4ScW8Ctgs2w7sGhWbSuws6TQ9D+KPZs/X+\nRaPUNWmz4E3A6HVs6Y9jHZlu+6K5Astk4rmJ8N4/fMfFxHu6a6bRIn1q49ff2nDP8I8pW1qn\n2QwWxvnSGPNlgW3nBovUL8M/zu9n34LBQnVvcgZtCdgu2Iywiv/oB0lr0AQ0k95d0Gl6GELe\n226DUep/ErLg+VZe+p9f+uP8AfYtDCTisEwmnpuIJ6qUZyUf2eRv4T3dNdNoke5QPVpVWIhf\nu+nnrdNsBgvjvDb0TCN2Ouy4YG2f6M22R/ezb8GgJpHYLtiMv+ysovVu3PGBlAloJr27oNP0\nMES8vHE5dGHbIo1vWRIQaMzt4PJFf9+D7VuY9AlzAyyTiefGiu/IJn+L7itSMHePPb4ffjww\n6Gr7NJ2hh3GK/Lv/gPEHxsSTh4QXuIMG3rf4N617OXahs1D1To7j2BKwXdAZ/+zdZ2J0yhav\nf1LKBDST3l2wBPphmFZit4HF2oX9uJB4F0/gi7n9o985i8OPxef0+4d9Cy8PudA8W+Rc8XND\ndhlvRL8DeY8s/xY6Gxhn05KgZhouUlb0ME7MvzYxT++Pml4N5rWFUz3+lGJzC31xHFsCtgs6\nY0rr0+/E176DRqZMQPHugk4bh8EW32JbpPEuliAx5hYbOl713/fIffur8dP4FuIEE9SwidOq\nMtNzxaC7ZHcg75FNPv3dN2qXGT2ME3OAmvnIAj2OE/G3o/Y8+rHqpFms1lmo7kqO4zgTkF0Y\nM4YcERRP99mDMiR4/+X3zX0n7YJOG4fhCRP7BliMjSZIjLnZXDW2YEtgO1fGuaG7ZHcg75G1\nH7jKzoyzaUtRK11OJHby+nzatwotVuuwQjON63gT2Oh5Tul0n9OaNsHKS7cIv9IWl63ybtyO\n/zBQvFG6xJib09WkBDyT5NzQXbI7EDtw2Rrj0bMpF8VrpEi2R9kjqgTWGezkDTjJtm0NXh/R\nYJ7QGd4ENgZPL53uzwyrzDOuvCzB8r1U06ZjN21S+6zwbt2K9zAwvFE6b8wtMyyT9NzQXbI7\nEDtw2Rrjec9uzTRSJNuj7GItsKdSG5TOLptB+fw4z24S6yMdI9KhQ1bEu7y/aVppDrnysgSX\nqs89F34891ktzpYJ72FgeKN03phbBCuP6lz/UumPZ663Z5KeG7pLdgdiBy5FYzyN7imS9VF2\nzKq/7n6wUcYxZpg1nhc2vNiIDLF7mr1YXSKzSBMPUPcat1HbffXh5s8+qO547IyWlqeKa9Er\nL0uw4w7FRjOrt/+4o10bjWeRaXoYjONg3aIe37Im8MfctPKodQuq1FQouETZM0nPDdslvQOx\nA2c2xrMdOJ3uKVISiza50DGD1nim7auGHapFhtgtLLHCklmk8Idzr3EbtTYRu7pnPNHys9Ja\n7K5IE7R9tfTH2evZt0jjWXSaHgbjOFi3qMe3WIJUMTe9PGrdRUWkC5vsmaTnhu6S34HogTMb\n41nykHg2u5tIlg4pR29hn8FqPPYjp93CbBWWCqy2WTm0pTzRBK/+Xd1r3Ebt99VnTx47fOTM\nZ8tr8bsiSdCnXHs4sa99izSeRacdP6DicXDf+0vxLZZAmcRpWcxNL49ad1ERadIgeybpuWEJ\n2B2IHjizMZ7ra5bxhpJqptEiOTukzKC3j9IMdm13hY4qtzBeYUkiPLTJnWRqOvbeMN4eQ96N\nP9/eaLw9AY1n0WlnBI3d210Y8a9UMTe9PMo54ogj1LgjIr64qzrEnkl6bvi3oHcgSvIdKCah\ng1L3EYn1wymxcAi5I5VnJNZ4DMr3NP2iZu/SYuxH3evKUyWB/2tRbHdFo5r+CzXiupdXvDx3\nC3WjfQs0nsXiW07Yvd2BN/7FYm56eZSj39HGvWjfJL/hMMgdiJIYgo9hnaQ0uo9ItB/OBTHn\nTd1AXRxYZ3iv7RUq9zTtomYrsZiEh5b1iaIJ+EWO9dIlsLsie2x0RilLX7VvgMWzWHzLCbu3\nO/DGv1jMTS+PFtF7zL7wwgvqihciXnJ3TeY3HPfD83TQU8E6Sel0H5FoP5zyT7zX2aWe0nRG\nYo1HR7unVS9q1i4t5mrqXtYniiZgFzm9FZo1dESvvJbHRg9O23nYzsf8OfxrmElxMY1nsfiW\n9zjQsF9lB1uMPPLmtZZWjL/65Gvx56v7/Dr+ZDE3Vh6lPWYvd95IKpAbTtLD84SgXLWSzRoE\nWhtwlOk+ItEOKXfG3PXo4nICOoNd22m4m93TshEe2uROMmECdpHTW6HZQ0fkypv42GhQRPR7\n6B3+618qwerxLFtIjUX96XFgzdiquwjzdtBq3orx02NLf4zcv5gFGnOj5VHaY5bBMklJfHhu\nPbK0Qss64SY24Og+Ink7pFBYqZqGu9k9zUJC8WH1vI8ceaqG8dhFTm+F5ggdmVfe5Gp6yOLx\nY+5aHCy+a/T40hVE/wXZCqgs6k+PA2vG9tH4Xe9ZEiy55xPj339yP/VfvBVjdEGJOXZTloUi\npDxKe8wyWCbpE1v+8Fy7j1qPLK3Qsk64iQ04ukcToYjsHVLsYZxquJvd02gJJbH4YM0Tveqx\nixzvnuqBV9NJ0f70LYt3h6Vbnl5crleq3e3ctKg/PQ6sGdupWxVbbS4bcVqwdPOx3JOWWaWU\n57ayLJSolkcjaI9Zxx1IyyR9YstCSbw5OIEN+kFPBW/A0SHDDDVapMTOQhFMA1cYxxnmpSUU\no/hgDePRPLGrHr3IpWyFVi3Js2o6LdoPPbuU4OzN0my5SuUw0HHtWJhvaFnmr4a7OKEP92Tj\nw0sJDt8o3b5pj1ln+65KJukTWxZKYvdRCq3QslPBOiglRfFqp+EiaVgr2VQDN0aYV3vES0so\nRvHBVkpi0Kseu8hZW6Hp0Hsaq6bTon3rWaU1z2qrbiWxXVuZ8mGg49qxMF9r2dVoFxe3BYwv\ntj0Xf/6zLWVpgfaYLcEafFUzSZ/YslASu49SaIWWnQraQSkxilc7nUCkSoXFWsmmGrgphXnZ\n41RaQjGKD44wnlmJolc93guTtkKjETJ6T2OPjWjRfpvhS+LPJcO3K80hAXN+pzYPAxvXjoX5\ntt5iaWkX24Z3pKEB49Hmgd97YdkL3xvY/AhfaIP2mK3ASgtxJi1PbFkoid1H6ZFlFVrWIDBC\n66CUGMWrnYaLRCosrJJNNXA+simHednjVFpC8T+JopUoetVjvTBpKzRWsmePpuhjI1q0/281\n8rb3gvduG6lKJXkaMHfdqSvRbjquHWvG9l01+vZwF78dqa4Igu0PCHjl4eoecR57XG0rApOx\nFm09ZquQh8LFTOpFgdITWxZKovdRdmRphdbbCTf7YEmpaLRINN7JKtlUA/acgIZ52W+WllC8\nnYVYDNYaxtN7YdJWaKxkzx9NmdV0VrRvPy78glFY5fhSCY0GzOmdmkX96bh2rAC7ZlppF9PX\nBO+c9Dtb5eGpmaOGjzrh6cBWBCYzksvIpdukmUnbE1saSqL3UV5nIhVaa4dpneyDJaWi0SLR\neCerZFMN2HOC8qkrh3nZb5aWULydhVgM1htapK3QWMneO34br2UVItOm/ak8SQPm9E5NDwMb\n184Sc7v36J2G7TT1vtJUYuWBF4HJWIvuSGJQvU2yTPIntlooyfa4zFtnYg0CaRnYP1hSTTRa\nJBrvZJVsqgF7TkDDvPw3q5VQIrydhXhzPmtoUYtn0FZorGTvf1xmLdpr0IA5vVOzqD8d185L\n/ZUH1u2b3iYtmYyoHkljC7abnLeJIWsQSMvAycMM1UyjRaIVFl7JJhp4H9lYfrPVEkpxi57O\nQt5KFItn0FZoLELmvad5i/Y0YJ4mpGaMa+fFUnnI+MSFNXvlt0kCPZLGFmw3OfPIPvFK9e9H\nHZ1waRk42yhTqWm0SLTCwirZVAPvI5sUj3g9nYW8lSgWz6Ct0HhDOP2eZtTSB+8wPfpqvGhP\nfsQ0YJ4YUrONa+fVglceWKXJswXW7NVxB6pCj6S34ax5ZNW08L/Th8V/T3N0wmXRqgjnMEM1\n02iRaIWFVbIp3kc23ke8DO+4ALQSxeIZeis0W8nehBRZVOujlqI9/RGzgDm5Uyftwb5F2miV\nVR5Ypcn3KJMP3lnh9fh/FrOnR5JtgbYhMo9sLNJRxdyURGINAjM/Vq6NRovEO6SQSjZDr0z4\nO+mnwTsuAK1EsXiG/qO1/ogjKo9TjVr64ufPVJ/hRXte82f9LEiBVX/AYisUsS3SRqus8kAr\nTd5HmazZa5n3vtYr/mQxe3ok2RZoGyLzyFpEYoc+82Pl2mi0SN4ekBQyoqi9k37lN5vKNO+4\nALQSxeIZ/oZwScPWjezPi/aWmj8JmBO8jdLYFmmjVVZ5oJUmbzSCNnt96ZbfvhF+LL20n6q+\naySm/HSdHknWcJa2ITKPrEUkduhpGdj5JLs+Gi6SpelcogZGZcLaHlj/zdpMYy0pveMC0EpU\n5ibrycPWHal40T7zY0NvozS2RdpoNUavPNBKkzdP5pFee1JTWGy9Krh/qFrvtDfjBKy+Qo8k\nuyrSNkRkh9MCKhKHlIHTtznLRONFIvg08I4oavxmbabxlpS+uyKtRNniGckdOxP7H61azov2\nmR8bWh6wmKEBtkXaaJVBK03ePJl3g2tVj10+0aPp2tYeJ7xeSsDqK/RImluwtCEysYtET4VZ\nBk7f5iwTnU0krwbeEUVTDrVotKT0jAvAwngsnkGiEaz44O1/RK8XiY8NbXdq/oCFhAbYFr2N\nVmmlKeOjzL2bw4Pxx6amTR6vzOL1lcTIkF7XrIz6oF8ebCL5OslYo3j109lE8mrARxQlje+8\nv9kyqYfX8Y9DRKMRrPiQPExIwIv25o+YBMxtd2r26IqGBlgswdtolVaa0jzK1O4GA+IC4D7q\n99WlGZvB2toQGZcH1RIejxYVH5aW4nFI7GMb0UFRvIaLRFrzMg1o/JM9J6CN77y/2Qqu4XVo\nXNg21o1ZfLBFI2LKxQc+TIgH80esCC0Psjs1e3RFQwMslsAarVreTWRUmvyPMo27QXPczW+6\nWqIlSIrZW6FtiJLftRykeGFOB0XxGi0SDTYxDWj8kz0noI3vjN+stYtTGdfwOjQuzCtRrHk4\niUaw4oN32LoKq2+t/l35EdsC5hrWR1fW0IAeS6CNVr1xP7YFink3UPHVZKb5CyMxe/aM1yqz\n1oYo+V3LATkVtjJw5s4h6Wi0SDTYxC7dNP7J4jq08Z3xm7V2cSpR6XBAw3g0LhzQShQrPtBo\nBCs+eIetK/HSrE3SnJEoYK6hLFfmNOEKs9GqLe6XbWws825gFYlCKnJMZm8vf4pxKuzDSWe9\nK6ai0SLRYBO7dNP4J3tOQBvfsd8s7eLEOhzQMJ41LqzDig80GsGLD75h6yJW3bJfk2raLyFF\nmb3VnRr2R1eZWznzuJ+13m4ZXrqMeWNWrdFhbVVJr5mkFTkms7eXP8U4FfaBaNhdUYJGi0SD\nTaYG3vhnYGl8R3+ztItT+fpEWlJWw3jeuDBrHk6jEZbiQ/Lj1JAXvraRUoPPX1Ce1sdapNju\nQJTMrZxZ3I/eeJOHcg7ojTlNJmlFjsns7eVPyTZAtRyNFokFmwwN9DPhGvWWN74jv1naxcnZ\nkrIcxvPGhVnzcBaNyFp8WHnjhCbVepg6tjKHjrVooHp+bloV+yZZaIBXP8z6CTsV9MabPJRz\nQG/MpAJjbWRCS2pMZn8vf0KKQZA7hEaLxNtJ6xqkGvXW15PHOo6IlVIYj8WFaRiPNw9nj3Qz\nFR+ePyu0ZuxV7wVVkZLHWtxBtRx2N23Va2uarYUGeCyB1E/YqWCt4hOHcg48dwNrfYWW1JjM\n3l7+jKxtzoRotEjudtIrix80/ska+Hh78vAuTi5KYTwWF6ZhPMsPJumR7jsGlgRKbXzWM/Ef\nFZE8Yy0+fMz6avMLXtFn+Zpms+qHXj+xxv3ojTd5KOfAczew1ldoSY3J7O3lz6GnQrsTyzRy\nttJokeg1anq5UjDfMUg8a+Dj7aTPujj5hk9hgxnQMB77wVjeCKzFu7yVBdV0TLEuVRWJjbVI\n+fDqsap5/5tXlqe9TbNZ9UOvnyhbHumN19tfPvvdQC+pWWXOPoAoRb8T+99EVjONFokGm9QO\nxUvJTRsk5kxr4GM0vrP1maNdnLzDp9C4MA/j0R8M6xpqxLuGRqyvhhaxfJuoeeE233pNF4mN\ntWjhia/0V4P/WpqwNM02wxWs+qHXT6xxP3rjTdFW19PWij5dJ28NtF1wWBuiN556eqHzkFjQ\n78T+N5HVTKNFopzf3Osn4S/2eDXwt8mdICoNfIzGd+RkxH3maBcn7/ApDB7GIz8Y2rHT0k7l\nqKQjvfaeL7SE95cbqyI5xlok3L+ZKgcj+AMWEq5g1Q9vJJneeOu/O9Cn60VKJTV7/xOT9762\nWfSdNp+VYqTMEt7hUmToBCKZD/3u21hN/utOavx/As87QcsNfIzGd54mADHe4VNYnvxjkpKO\nnZZ2Kokihbx5+YjwK44t32CcYy1Weee/d1Qtny9f45kWNFzBqh/+B030xuvre/xe8lfkT9dN\n7vbGZl4Mb92tQzdtUWrrV1xpaHAy/RvZ6qLhIrGHfm/up1TzefE5T7wTlxv4sMZ3OqQJQIx/\nxHuaJ2/zTtqx0/JaQZ9I4YX+vkmtSu10pWesxVLiP4aJt/nOW5UZTAs9XGGtftBIsqXHm6ek\nRmk97I7ViQlS9C7SoWObtO+m9rwvrBWu+OPuai9H7ysWnEz/Rra6aLRIvBD00RSlBvzRu2Kl\ngQ9rfKdzpOX7eYdPYXniY5ISaMdOyzhEfpFC3p69jXesxYhXLxquen3J6CfAHrDo4QrrFmkk\n2dfjbcHNt7ycnP3tlNrojCddS9P1LmIztLFN7lH7l0Rd9Snl6KXLgpPsTmxvzlcvjRaJFYIe\n31rtf02fpnPKlzZaXGCRgcSfXNRnjgbM+RNcEsZjeTLCeK29eTyD5sEyDlEqkUL+NCVFZaFZ\njbqK1BLYAxY9XOHeohZJ9vR4O6NJqaYzkjP/f18ZqNTIOW9ZF+oqR0/XWQ3YLpLW3ei4pn+V\nFz2nZgZWWJWI3onTtc3NTKNFooWgK1t7Xr42+PdoNW5BMQEtLrDIgK9+ygPm9AkuDeNZCmZa\nGM8Wz6B5sDxoSitSKlRPe5t2/QFLunCFRnKPt1+o5k+MbVY3eDay8tcH91Q9D7YNh0CfrrMa\nsFekMTtWl+3gKLGxKhG9yHn75NdGo0WihSC1efxEZcXJqvSrp8UF71BpDqoBc/YEl4bxkgeI\nTBPPsDyZlBXJV/YLUoUrTIwm62zQ/H2b7g4PvkoxgsTbc0a78mQ8XWc1YDVpoUbARdpwUnXt\nLw6274JViehFroOieI0WiRaCJi4qLbi1/PwksbhQItWLg8oBc/YEl4bxvANEGpTiGWYCI95V\n6sBZfm9DKtoLl5x44iUFRzze0g/HwB6u0J8rWVpbGE3WWa1q4N7RsvG2IAFhzT1TWmr6WbHL\nAxWpdUY1saszmfcl1R0UxWu0SO7mWdWKbUJxIV6cMNKVQSlgzoZPoWE87wCRBnE8gyXQ411p\n7h+E+7ctJt7W8VZjD0yDCOO5kiWB0WSdDZrfPD1KM73Zt+t/fG1Tpba+JFN2Sz0zVG9SYKUi\n6fUiWz8n59ic+oW2g6J4jRYpZWPdhOJC4khXBqWLGBs+hYbxvANEGkTxjOSBAnz3D87NPdTw\nGRdfPGO46nFLmvRUC1twwXyuZGttkdhkPVU3vXev+kRYFZ3xsDMBjZgZPTO8dSSfSNbrB73Q\nem9ZtdFokYxCkGVM9BKl4oLtQKUcNagaMGfDp7Awnm+ASIY3QTZe7dX247hQ1/7jtvVfS7HC\noCp9nF1/eDNYWm9LarKeRqRDW1TzfjckjCjNImZGzwwuEhnbpNhVsEirJSfW4CS90CYPJ10z\nDRdJLwRZxkSPqRQXbD8Y76hBNGDOn+CyjhieASIZNMFRJ5d6fdx/lO/r2zhL/bz853Xq7KSU\nlNVXD1G21nyBtRmsNwCi9cxI099VbfutZO1ZxMzomcFFItfNGsrI/EKbfQupaLxIGtbx/qzF\nBe0H4x01qHzYygFz9gTX3RGjNLCh9z0vLPaoPl6s4l1d0/H9+NbVv7feKcOKt2+n+l5SuSOY\nHZQszWB9Iuk9M9L8iP/iyx+LmBk9M5hItEycsoxsxn3ohdb7uKQ2Or1I1uKC/oPxjnRFA+bs\n9+DqiFEe+t0axjOgCdS45o3iX1VtIvXR2sB+KeX4XSGP7a16nlCNbpIOSpbnSlQk0jXQ6JmR\ntqKXGEBlETOjZwYTqSZo3Cf98Gx10elFshQXzB9M+pGuSrBLEgnjsaHf/eMA0ATq6tt6r3dT\nUKtIbdUe58H0tKf/pclN6pDnqtO0g5LluRIRiXYNzP4KP18AlUXMjJ4Z79sHqMgGi/vYLrSp\nHpdko7EiXfetsAL4jbj1TtQf3DoCLV2H/mDSjnTlxgjjWYZ+94cWaQJ1dfD40KaLahVpuBYO\n2c0xiiVh0ZltapcH9TlUA+25UrlUa4rEugZmHsjfG0BlEbP6e2ZQWNyHXWhTPy7JRENF+lfz\niUEUCYpo/pdrTHSjzMt/MKlGukrECONZhn5P0fOTJAhFCl4fo6asqE2kaU2VjtR/bTomxQor\nrhighv/SrMdTDcxKTpwvUyR2A8o8kL83gMojZpnfCueDBYbohTb945JMNFSkWU3RyEAz1cKF\nC/9PzXKIpJd5bT+Y5JGubF1maV3ACONZhn4PUvQnMBNEIgVLD1V7XFzT8X1Mfay0pWc+pual\nWGG4GnAF/VlQDczQcB/e2oLdgDKPjJf5VQEdAA8MkQtt6scl2WioSOPiRojFZxM772EdE90s\n89p+MMmQ63DcxJTWuiiYsAAABpVJREFUBYwwnmXod43XrXP5XuPra/tXVXNtx/erqnXqDQ89\ndMPUVvW1VPtTg1gj1mQNLEE4dgPKPDJe5lcFRGQbzNWLJTBkXmhTv2QhGw0VaUDcCLEo0qGD\n7CFWo8xr+8EkY2liyuoCxj5tQ7+XqYTxfAwtbfl/a2t0Fqy9sFhUVD0vTNVS2XbgLBpov1lL\nEI6Zl/n935lfFeB/CUtmWGCIDkzTQVG8horUM/7RPhk3/pre0x5iNcq8th9MNkb253UB4zpp\neYLPw3ipWfhCLZkMWfCNfbffft9vvORPGWE7cEwD32/WfgPK8v7vzAFU/0tYMsMCQ3Rgmhps\nT0NDReqnPZ87zDFajlHmtT7MyNTj8UjlCUYxkWxhPPNb2KphnQRNA+9vNvMNiJEigEqqp8Jt\nqyJoYIgOTJPd9lQ0VKSRWmh3+Ch7Gu/D0Gw9Hlct9wSjWFMYaxjPWIPQoo0y/KhjkLkGkO43\nm+UGxPEGUGn11Nv4qgZIYIgOTFP/4xIrDRXpdHVP+c+7laMXs/dhaOYej5ZauN6mjJYe7WE8\nDVYNi3pqW1oMNpiMv9k7DdLuxPOqAFY99Ta+qh86ME39j0usNPREP9+8aekp+7ObNv/Lnsb7\nMDRzj0deF9Cvk6z0mBzGs6Ci34TvVdsdjKXfXsbfbC3VUcuAsyaseuotb9QPHZgmxYtBaqGx\nV8wL1HrTb3zooRunr6cudKXxPQzN3OOR1QWSR/tNCuNZiX92DRbJokG632xh1jm/K24hxQsv\nKGzAWQqrnq6Dl7DQ4+C1vcbddMhW01IN817kLp55HobW1uNRrwsktylL1aPNWOFLQcNFsvTb\nS/7NPnBgXHyLiz2To3NhfeGFB1qvZ7DqqfBLWGy3Ufrsymt7jbvukK2mZ/75UZj3fMe7j3RW\nOZoc19/jMWMYz4ejodO6x2wBlPybPUVFkfY/q7bjvtJf3Ryn5y+88EHr9QxePZV9CUuaDo5e\n22uj0SKlx/WbrL/HY8Ywno9OKlLyb3Zs3O1pqvpVEDzWVBoMhr7wwgur11Msj6oyDuaakoQO\njl7ba6Pri1TbE9pKXSCooTFNMp1VpMTf7JAvRP8P3ygq1e1R/QkaL7zwwuv1hPofVaXD7OBo\n4rW9Nrq+SNl6PLK6QOBrU5a2R1sFW4vBhpBlKL2ex4X/LVJxBHSqHtbTXnjhJd0Fp75HVSkg\nHRzJA3uv7bXR9UXKBq8LiF8nawkcdwhZRNog6jZ7n7os+nt6pe2M+cILLx3UizsbtL8afWDf\nQeeme4iUvsejrS4QI3edzHwL6yg0kU76bjUAd+FYS9pxvcMjeJqKe3p9avt4FnvhhTBsMFcJ\neH81+sA+D2M2JOIUKVOPR0ddoFuiiaTUwZXnYNYDOUd94rpLWodG9fAVfaNjZHnhhQ/P6yrW\n7LVbadiMxbt+co1rFLq6sPVXy8+LxlLiEilbj0dnXaB7QUdJVs1qVHlkF+uBXLF7VLSNhpkI\nblU/DqwvvPDge13FDZW3IwVz1U2WwVzrx9ZfLS8vGktEb1ftqrdn6/ForwsEZhiv60Mv9mrK\ndLVJqa+t/Yq04sojT43fExp8f1rUONf1wgsn3tdVHDKoEnde3V/0jeIVbP3VcvKisWTS3Pyz\n9XhkdQFbGK/rQ+tpalrw7aZexdHT00VtMpe7vK+r2FSrkn7O+gqmurFlOicvGksmTb09W49H\nVhewhfG6H9Gzrdt6N8U34nQiZQ6ZeF9X0TK9+veXW4qfltdt1gPNtG1U/W76orH6ydbjkdUF\nnGG8bkX8kPjxoWrqyg57SOx9XUXfI6p/T9qg+Ol73Wad2OIZ3fRFY/WTsccjrQvkI4xXHMT0\n9TFqr3c6SiRvm8QdtYGYtyq9e8/zus16sY2q301fNFY/dfZ4zEcYrzQa8NLPqy2fa5RIJ6vK\nK7b/oE4u/pH8us0OoZu+aEyA+no8OsN43YrysNprz1H9d+4gkXyNe//ZvElpOIunN24uNT0w\nXre5buimLxqToK4ej5ZH+t2Q6vj017Z0ULMlf5jvItU27ZcPPfTLaa3qotIs43WbHQB9CBx0\n3xeN1U2dPR5ZGK9bMuysyp8PDOyYc54izHdZS9GylsvKc4zXbXYA5CGw892Y9dP1RaqzxyML\n43V7Fi9s2K4XfHPC9ttP+OaC6pzE123WD3kI3AGtksp0fZHq7fFIw3hgnZL0us36IQ+Bre/G\nlKHri9RBPR5Bd8D2ELhj6PoidVCPR9AdsD0E7hj+Hzb2yyR9/AOvAAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title “Fraction of words with local he in Biblical Hebrew”"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "barplot(he.count/word.count, las = 2, main = 'Fraction of words with local he in Biblical Hebrew')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In various studies the length or complexity of linguistic units like phrases or clauses plays a role. First we count the number of clauses in each book."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book</th><th scope=col>chapter</th><th scope=col>verse</th><th scope=col>lexeme.t</th><th scope=col>part.of.speech</th><th scope=col>language</th><th scope=col>state</th><th scope=col>tense</th><th scope=col>uvf</th><th scope=col>vbe</th><th scope=col>vbs</th><th scope=col>phrase.</th><th scope=col>clause.</th><th scope=col>enumeration</th><th scope=col>genre</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Genesis</td><td>1      </td><td>1      </td><td>B      </td><td>prep   </td><td>hbo    </td><td>NA     </td><td>NA     </td><td>absent </td><td>n/a    </td><td>n/a    </td><td>1      </td><td>1      </td><td>1      </td><td>prose  </td></tr>\n",
       "\t<tr><td>Genesis                                       </td><td>1                                             </td><td>1                                             </td><td>R&gt;CJT/                                     </td><td>subs                                          </td><td>hbo                                           </td><td>a                                             </td><td><span style=white-space:pre-wrap>NA  </span>  </td><td>absent                                        </td><td>n/a                                           </td><td><span style=white-space:pre-wrap>n/a   </span></td><td>1                                             </td><td>1                                             </td><td>2                                             </td><td>prose                                         </td></tr>\n",
       "\t<tr><td>Genesis                                          </td><td>1                                                </td><td>1                                                </td><td><span style=white-space:pre-wrap>BR&gt;[  </span></td><td>verb                                             </td><td>hbo                                              </td><td>NA                                               </td><td>perf                                             </td><td>absent                                           </td><td><span style=white-space:pre-wrap>   </span>      </td><td>absent                                           </td><td>2                                                </td><td>1                                                </td><td>3                                                </td><td>prose                                            </td></tr>\n",
       "\t<tr><td>Genesis                                       </td><td>1                                             </td><td>1                                             </td><td>&gt;LHJM/                                     </td><td>subs                                          </td><td>hbo                                           </td><td>a                                             </td><td><span style=white-space:pre-wrap>NA  </span>  </td><td>absent                                        </td><td>n/a                                           </td><td><span style=white-space:pre-wrap>n/a   </span></td><td>3                                             </td><td>1                                             </td><td>4                                             </td><td>prose                                         </td></tr>\n",
       "\t<tr><td>Genesis                                          </td><td>1                                                </td><td>1                                                </td><td><span style=white-space:pre-wrap>&gt;T    </span></td><td>prep                                             </td><td>hbo                                              </td><td>NA                                               </td><td><span style=white-space:pre-wrap>NA  </span>     </td><td>absent                                           </td><td>n/a                                              </td><td><span style=white-space:pre-wrap>n/a   </span>   </td><td>4                                                </td><td>1                                                </td><td>5                                                </td><td>prose                                            </td></tr>\n",
       "\t<tr><td>Genesis</td><td>1      </td><td>1      </td><td>H      </td><td>art    </td><td>hbo    </td><td>NA     </td><td>NA     </td><td>absent </td><td>n/a    </td><td>n/a    </td><td>4      </td><td>1      </td><td>6      </td><td>prose  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllll}\n",
       " book & chapter & verse & lexeme.t & part.of.speech & language & state & tense & uvf & vbe & vbs & phrase. & clause. & enumeration & genre\\\\\n",
       "\\hline\n",
       "\t Genesis & 1       & 1       & B       & prep    & hbo     & NA      & NA      & absent  & n/a     & n/a     & 1       & 1       & 1       & prose  \\\\\n",
       "\t Genesis & 1       & 1       & R>CJT/  & subs    & hbo     & a       & NA      & absent  & n/a     & n/a     & 1       & 1       & 2       & prose  \\\\\n",
       "\t Genesis  & 1        & 1        & BR>{[}   & verb     & hbo      & NA       & perf     & absent   &          & absent   & 2        & 1        & 3        & prose   \\\\\n",
       "\t Genesis & 1       & 1       & >LHJM/  & subs    & hbo     & a       & NA      & absent  & n/a     & n/a     & 3       & 1       & 4       & prose  \\\\\n",
       "\t Genesis & 1       & 1       & >T      & prep    & hbo     & NA      & NA      & absent  & n/a     & n/a     & 4       & 1       & 5       & prose  \\\\\n",
       "\t Genesis & 1       & 1       & H       & art     & hbo     & NA      & NA      & absent  & n/a     & n/a     & 4       & 1       & 6       & prose  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "book | chapter | verse | lexeme.t | part.of.speech | language | state | tense | uvf | vbe | vbs | phrase. | clause. | enumeration | genre | \n",
       "|---|---|---|---|---|---|\n",
       "| Genesis | 1       | 1       | B       | prep    | hbo     | NA      | NA      | absent  | n/a     | n/a     | 1       | 1       | 1       | prose   | \n",
       "| Genesis | 1       | 1       | R>CJT/  | subs    | hbo     | a       | NA      | absent  | n/a     | n/a     | 1       | 1       | 2       | prose   | \n",
       "| Genesis | 1       | 1       | BR>[    | verb    | hbo     | NA      | perf    | absent  |         | absent  | 2       | 1       | 3       | prose   | \n",
       "| Genesis | 1       | 1       | >LHJM/  | subs    | hbo     | a       | NA      | absent  | n/a     | n/a     | 3       | 1       | 4       | prose   | \n",
       "| Genesis | 1       | 1       | >T      | prep    | hbo     | NA      | NA      | absent  | n/a     | n/a     | 4       | 1       | 5       | prose   | \n",
       "| Genesis | 1       | 1       | H       | art     | hbo     | NA      | NA      | absent  | n/a     | n/a     | 4       | 1       | 6       | prose   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  book    chapter verse lexeme.t part.of.speech language state tense uvf    vbe\n",
       "1 Genesis 1       1     B        prep           hbo      NA    NA    absent n/a\n",
       "2 Genesis 1       1     R>CJT/   subs           hbo      a     NA    absent n/a\n",
       "3 Genesis 1       1     BR>[     verb           hbo      NA    perf  absent    \n",
       "4 Genesis 1       1     >LHJM/   subs           hbo      a     NA    absent n/a\n",
       "5 Genesis 1       1     >T       prep           hbo      NA    NA    absent n/a\n",
       "6 Genesis 1       1     H        art            hbo      NA    NA    absent n/a\n",
       "  vbs    phrase. clause. enumeration genre\n",
       "1 n/a    1       1       1           prose\n",
       "2 n/a    1       1       2           prose\n",
       "3 absent 2       1       3           prose\n",
       "4 n/a    3       1       4           prose\n",
       "5 n/a    4       1       5           prose\n",
       "6 n/a    4       1       6           prose"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'book'</li>\n",
       "\t<li>'chapter'</li>\n",
       "\t<li>'verse'</li>\n",
       "\t<li>'lexeme.t'</li>\n",
       "\t<li>'part.of.speech'</li>\n",
       "\t<li>'language'</li>\n",
       "\t<li>'state'</li>\n",
       "\t<li>'tense'</li>\n",
       "\t<li>'uvf'</li>\n",
       "\t<li>'vbe'</li>\n",
       "\t<li>'vbs'</li>\n",
       "\t<li>'phrase.'</li>\n",
       "\t<li>'clause.'</li>\n",
       "\t<li>'enumeration'</li>\n",
       "\t<li>'genre'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'book'\n",
       "\\item 'chapter'\n",
       "\\item 'verse'\n",
       "\\item 'lexeme.t'\n",
       "\\item 'part.of.speech'\n",
       "\\item 'language'\n",
       "\\item 'state'\n",
       "\\item 'tense'\n",
       "\\item 'uvf'\n",
       "\\item 'vbe'\n",
       "\\item 'vbs'\n",
       "\\item 'phrase.'\n",
       "\\item 'clause.'\n",
       "\\item 'enumeration'\n",
       "\\item 'genre'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'book'\n",
       "2. 'chapter'\n",
       "3. 'verse'\n",
       "4. 'lexeme.t'\n",
       "5. 'part.of.speech'\n",
       "6. 'language'\n",
       "7. 'state'\n",
       "8. 'tense'\n",
       "9. 'uvf'\n",
       "10. 'vbe'\n",
       "11. 'vbs'\n",
       "12. 'phrase.'\n",
       "13. 'clause.'\n",
       "14. 'enumeration'\n",
       "15. 'genre'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"book\"           \"chapter\"        \"verse\"          \"lexeme.t\"      \n",
       " [5] \"part.of.speech\" \"language\"       \"state\"          \"tense\"         \n",
       " [9] \"uvf\"            \"vbe\"            \"vbs\"            \"phrase.\"       \n",
       "[13] \"clause.\"        \"enumeration\"    \"genre\"         "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "colnames(dat.h) \n",
    "clause.count <- tapply(dat.h$clause_a, (dat.h$book), function(x) length(unique(x)))\n",
    "#clause.count <- tapply(dat.h$clause_a, (dat.h$book.ord), max) does not work properly, because a number of clauses have been removed from Daniel and Esra"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Then a data frame is made and a column name is added."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>clauses</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>Genesis</th><td> 7</td></tr>\n",
       "\t<tr><th scope=row>Exodus</th><td>16</td></tr>\n",
       "\t<tr><th scope=row>Leviticus</th><td>13</td></tr>\n",
       "\t<tr><th scope=row>Numeri</th><td>10</td></tr>\n",
       "\t<tr><th scope=row>Deuteronomium</th><td>17</td></tr>\n",
       "\t<tr><th scope=row>Josua</th><td>11</td></tr>\n",
       "\t<tr><th scope=row>Judices</th><td>11</td></tr>\n",
       "\t<tr><th scope=row>Samuel_I</th><td>17</td></tr>\n",
       "\t<tr><th scope=row>Samuel_II</th><td>31</td></tr>\n",
       "\t<tr><th scope=row>Reges_I</th><td>14</td></tr>\n",
       "\t<tr><th scope=row>Reges_II</th><td> 9</td></tr>\n",
       "\t<tr><th scope=row>Jesaia</th><td>12</td></tr>\n",
       "\t<tr><th scope=row>Jeremia</th><td>17</td></tr>\n",
       "\t<tr><th scope=row>Ezechiel</th><td> 9</td></tr>\n",
       "\t<tr><th scope=row>Hosea</th><td> 6</td></tr>\n",
       "\t<tr><th scope=row>Joel</th><td> 7</td></tr>\n",
       "\t<tr><th scope=row>Amos</th><td>12</td></tr>\n",
       "\t<tr><th scope=row>Obadia</th><td> 5</td></tr>\n",
       "\t<tr><th scope=row>Jona</th><td> 5</td></tr>\n",
       "\t<tr><th scope=row>Micha</th><td>10</td></tr>\n",
       "\t<tr><th scope=row>Nahum</th><td> 7</td></tr>\n",
       "\t<tr><th scope=row>Habakuk</th><td> 8</td></tr>\n",
       "\t<tr><th scope=row>Zephania</th><td> 9</td></tr>\n",
       "\t<tr><th scope=row>Haggai</th><td> 4</td></tr>\n",
       "\t<tr><th scope=row>Sacharia</th><td>14</td></tr>\n",
       "\t<tr><th scope=row>Maleachi</th><td> 4</td></tr>\n",
       "\t<tr><th scope=row>Psalmi</th><td>23</td></tr>\n",
       "\t<tr><th scope=row>Iob</th><td>12</td></tr>\n",
       "\t<tr><th scope=row>Proverbia</th><td>13</td></tr>\n",
       "\t<tr><th scope=row>Ruth</th><td> 5</td></tr>\n",
       "\t<tr><th scope=row>Canticum</th><td> 5</td></tr>\n",
       "\t<tr><th scope=row>Ecclesiastes</th><td>13</td></tr>\n",
       "\t<tr><th scope=row>Threni</th><td> 4</td></tr>\n",
       "\t<tr><th scope=row>Esther</th><td>13</td></tr>\n",
       "\t<tr><th scope=row>Daniel</th><td>11</td></tr>\n",
       "\t<tr><th scope=row>Esra</th><td>25</td></tr>\n",
       "\t<tr><th scope=row>Nehemia</th><td>22</td></tr>\n",
       "\t<tr><th scope=row>Chronica_I</th><td>24</td></tr>\n",
       "\t<tr><th scope=row>Chronica_II</th><td>10</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       "  & clauses\\\\\n",
       "\\hline\n",
       "\tGenesis &  7\\\\\n",
       "\tExodus & 16\\\\\n",
       "\tLeviticus & 13\\\\\n",
       "\tNumeri & 10\\\\\n",
       "\tDeuteronomium & 17\\\\\n",
       "\tJosua & 11\\\\\n",
       "\tJudices & 11\\\\\n",
       "\tSamuel\\_I & 17\\\\\n",
       "\tSamuel\\_II & 31\\\\\n",
       "\tReges\\_I & 14\\\\\n",
       "\tReges\\_II &  9\\\\\n",
       "\tJesaia & 12\\\\\n",
       "\tJeremia & 17\\\\\n",
       "\tEzechiel &  9\\\\\n",
       "\tHosea &  6\\\\\n",
       "\tJoel &  7\\\\\n",
       "\tAmos & 12\\\\\n",
       "\tObadia &  5\\\\\n",
       "\tJona &  5\\\\\n",
       "\tMicha & 10\\\\\n",
       "\tNahum &  7\\\\\n",
       "\tHabakuk &  8\\\\\n",
       "\tZephania &  9\\\\\n",
       "\tHaggai &  4\\\\\n",
       "\tSacharia & 14\\\\\n",
       "\tMaleachi &  4\\\\\n",
       "\tPsalmi & 23\\\\\n",
       "\tIob & 12\\\\\n",
       "\tProverbia & 13\\\\\n",
       "\tRuth &  5\\\\\n",
       "\tCanticum &  5\\\\\n",
       "\tEcclesiastes & 13\\\\\n",
       "\tThreni &  4\\\\\n",
       "\tEsther & 13\\\\\n",
       "\tDaniel & 11\\\\\n",
       "\tEsra & 25\\\\\n",
       "\tNehemia & 22\\\\\n",
       "\tChronica\\_I & 24\\\\\n",
       "\tChronica\\_II & 10\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | clauses | \n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| Genesis |  7 | \n",
       "| Exodus | 16 | \n",
       "| Leviticus | 13 | \n",
       "| Numeri | 10 | \n",
       "| Deuteronomium | 17 | \n",
       "| Josua | 11 | \n",
       "| Judices | 11 | \n",
       "| Samuel_I | 17 | \n",
       "| Samuel_II | 31 | \n",
       "| Reges_I | 14 | \n",
       "| Reges_II |  9 | \n",
       "| Jesaia | 12 | \n",
       "| Jeremia | 17 | \n",
       "| Ezechiel |  9 | \n",
       "| Hosea |  6 | \n",
       "| Joel |  7 | \n",
       "| Amos | 12 | \n",
       "| Obadia |  5 | \n",
       "| Jona |  5 | \n",
       "| Micha | 10 | \n",
       "| Nahum |  7 | \n",
       "| Habakuk |  8 | \n",
       "| Zephania |  9 | \n",
       "| Haggai |  4 | \n",
       "| Sacharia | 14 | \n",
       "| Maleachi |  4 | \n",
       "| Psalmi | 23 | \n",
       "| Iob | 12 | \n",
       "| Proverbia | 13 | \n",
       "| Ruth |  5 | \n",
       "| Canticum |  5 | \n",
       "| Ecclesiastes | 13 | \n",
       "| Threni |  4 | \n",
       "| Esther | 13 | \n",
       "| Daniel | 11 | \n",
       "| Esra | 25 | \n",
       "| Nehemia | 22 | \n",
       "| Chronica_I | 24 | \n",
       "| Chronica_II | 10 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "              clauses\n",
       "Genesis        7     \n",
       "Exodus        16     \n",
       "Leviticus     13     \n",
       "Numeri        10     \n",
       "Deuteronomium 17     \n",
       "Josua         11     \n",
       "Judices       11     \n",
       "Samuel_I      17     \n",
       "Samuel_II     31     \n",
       "Reges_I       14     \n",
       "Reges_II       9     \n",
       "Jesaia        12     \n",
       "Jeremia       17     \n",
       "Ezechiel       9     \n",
       "Hosea          6     \n",
       "Joel           7     \n",
       "Amos          12     \n",
       "Obadia         5     \n",
       "Jona           5     \n",
       "Micha         10     \n",
       "Nahum          7     \n",
       "Habakuk        8     \n",
       "Zephania       9     \n",
       "Haggai         4     \n",
       "Sacharia      14     \n",
       "Maleachi       4     \n",
       "Psalmi        23     \n",
       "Iob           12     \n",
       "Proverbia     13     \n",
       "Ruth           5     \n",
       "Canticum       5     \n",
       "Ecclesiastes  13     \n",
       "Threni         4     \n",
       "Esther        13     \n",
       "Daniel        11     \n",
       "Esra          25     \n",
       "Nehemia       22     \n",
       "Chronica_I    24     \n",
       "Chronica_II   10     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "clause.count <- as.data.frame(clause.count)\n",
    "\n",
    "colnames(clause.count) <- c('clauses')\n",
    "    \n",
    "clause.count"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "The number of words in every book is counted and then the average number of words per clause in each book."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "words.tab <- as.data.frame(table(dat.h$book))\n",
    "\n",
    "colnames(words.tab) <- c('book', 'words')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Genesis'</li>\n",
       "\t<li>'Exodus'</li>\n",
       "\t<li>'Leviticus'</li>\n",
       "\t<li>'Numeri'</li>\n",
       "\t<li>'Deuteronomium'</li>\n",
       "\t<li>'Josua'</li>\n",
       "\t<li>'Judices'</li>\n",
       "\t<li>'Samuel_I'</li>\n",
       "\t<li>'Samuel_II'</li>\n",
       "\t<li>'Reges_I'</li>\n",
       "\t<li>'Reges_II'</li>\n",
       "\t<li>'Jesaia'</li>\n",
       "\t<li>'Jeremia'</li>\n",
       "\t<li>'Ezechiel'</li>\n",
       "\t<li>'Hosea'</li>\n",
       "\t<li>'Joel'</li>\n",
       "\t<li>'Amos'</li>\n",
       "\t<li>'Obadia'</li>\n",
       "\t<li>'Jona'</li>\n",
       "\t<li>'Micha'</li>\n",
       "\t<li>'Nahum'</li>\n",
       "\t<li>'Habakuk'</li>\n",
       "\t<li>'Zephania'</li>\n",
       "\t<li>'Haggai'</li>\n",
       "\t<li>'Sacharia'</li>\n",
       "\t<li>'Maleachi'</li>\n",
       "\t<li>'Psalmi'</li>\n",
       "\t<li>'Iob'</li>\n",
       "\t<li>'Proverbia'</li>\n",
       "\t<li>'Ruth'</li>\n",
       "\t<li>'Canticum'</li>\n",
       "\t<li>'Ecclesiastes'</li>\n",
       "\t<li>'Threni'</li>\n",
       "\t<li>'Esther'</li>\n",
       "\t<li>'Daniel'</li>\n",
       "\t<li>'Esra'</li>\n",
       "\t<li>'Nehemia'</li>\n",
       "\t<li>'Chronica_I'</li>\n",
       "\t<li>'Chronica_II'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Genesis'\n",
       "\\item 'Exodus'\n",
       "\\item 'Leviticus'\n",
       "\\item 'Numeri'\n",
       "\\item 'Deuteronomium'\n",
       "\\item 'Josua'\n",
       "\\item 'Judices'\n",
       "\\item 'Samuel\\_I'\n",
       "\\item 'Samuel\\_II'\n",
       "\\item 'Reges\\_I'\n",
       "\\item 'Reges\\_II'\n",
       "\\item 'Jesaia'\n",
       "\\item 'Jeremia'\n",
       "\\item 'Ezechiel'\n",
       "\\item 'Hosea'\n",
       "\\item 'Joel'\n",
       "\\item 'Amos'\n",
       "\\item 'Obadia'\n",
       "\\item 'Jona'\n",
       "\\item 'Micha'\n",
       "\\item 'Nahum'\n",
       "\\item 'Habakuk'\n",
       "\\item 'Zephania'\n",
       "\\item 'Haggai'\n",
       "\\item 'Sacharia'\n",
       "\\item 'Maleachi'\n",
       "\\item 'Psalmi'\n",
       "\\item 'Iob'\n",
       "\\item 'Proverbia'\n",
       "\\item 'Ruth'\n",
       "\\item 'Canticum'\n",
       "\\item 'Ecclesiastes'\n",
       "\\item 'Threni'\n",
       "\\item 'Esther'\n",
       "\\item 'Daniel'\n",
       "\\item 'Esra'\n",
       "\\item 'Nehemia'\n",
       "\\item 'Chronica\\_I'\n",
       "\\item 'Chronica\\_II'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Genesis'\n",
       "2. 'Exodus'\n",
       "3. 'Leviticus'\n",
       "4. 'Numeri'\n",
       "5. 'Deuteronomium'\n",
       "6. 'Josua'\n",
       "7. 'Judices'\n",
       "8. 'Samuel_I'\n",
       "9. 'Samuel_II'\n",
       "10. 'Reges_I'\n",
       "11. 'Reges_II'\n",
       "12. 'Jesaia'\n",
       "13. 'Jeremia'\n",
       "14. 'Ezechiel'\n",
       "15. 'Hosea'\n",
       "16. 'Joel'\n",
       "17. 'Amos'\n",
       "18. 'Obadia'\n",
       "19. 'Jona'\n",
       "20. 'Micha'\n",
       "21. 'Nahum'\n",
       "22. 'Habakuk'\n",
       "23. 'Zephania'\n",
       "24. 'Haggai'\n",
       "25. 'Sacharia'\n",
       "26. 'Maleachi'\n",
       "27. 'Psalmi'\n",
       "28. 'Iob'\n",
       "29. 'Proverbia'\n",
       "30. 'Ruth'\n",
       "31. 'Canticum'\n",
       "32. 'Ecclesiastes'\n",
       "33. 'Threni'\n",
       "34. 'Esther'\n",
       "35. 'Daniel'\n",
       "36. 'Esra'\n",
       "37. 'Nehemia'\n",
       "38. 'Chronica_I'\n",
       "39. 'Chronica_II'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"Genesis\"       \"Exodus\"        \"Leviticus\"     \"Numeri\"       \n",
       " [5] \"Deuteronomium\" \"Josua\"         \"Judices\"       \"Samuel_I\"     \n",
       " [9] \"Samuel_II\"     \"Reges_I\"       \"Reges_II\"      \"Jesaia\"       \n",
       "[13] \"Jeremia\"       \"Ezechiel\"      \"Hosea\"         \"Joel\"         \n",
       "[17] \"Amos\"          \"Obadia\"        \"Jona\"          \"Micha\"        \n",
       "[21] \"Nahum\"         \"Habakuk\"       \"Zephania\"      \"Haggai\"       \n",
       "[25] \"Sacharia\"      \"Maleachi\"      \"Psalmi\"        \"Iob\"          \n",
       "[29] \"Proverbia\"     \"Ruth\"          \"Canticum\"      \"Ecclesiastes\" \n",
       "[33] \"Threni\"        \"Esther\"        \"Daniel\"        \"Esra\"         \n",
       "[37] \"Nehemia\"       \"Chronica_I\"    \"Chronica_II\"  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "words.per.clause <- words.tab$words/clause.count$clauses\n",
    "\n",
    "rownames(words.per.clause)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "We add genre and manipulate the structure of the dataframe a bit."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "39"
      ],
      "text/latex": [
       "39"
      ],
      "text/markdown": [
       "39"
      ],
      "text/plain": [
       "[1] 39"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>words.per.clause</th><th scope=col>book</th><th scope=col>genre</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4108.0000    </td><td>Genesis      </td><td>prose        </td></tr>\n",
       "\t<tr><td>1484.2500    </td><td>Exodus       </td><td>prose        </td></tr>\n",
       "\t<tr><td>1315.3077    </td><td>Leviticus    </td><td>prose        </td></tr>\n",
       "\t<tr><td>2318.6000    </td><td>Numeri       </td><td>prose        </td></tr>\n",
       "\t<tr><td>1183.9412    </td><td>Deuteronomium</td><td>prose        </td></tr>\n",
       "\t<tr><td>1320.2727    </td><td>Josua        </td><td>prose        </td></tr>\n",
       "\t<tr><td>1280.4545    </td><td>Judices      </td><td>prose        </td></tr>\n",
       "\t<tr><td>1113.4706    </td><td>Samuel_I     </td><td>prose        </td></tr>\n",
       "\t<tr><td> 503.6129    </td><td>Samuel_II    </td><td>prose        </td></tr>\n",
       "\t<tr><td>1334.5714    </td><td>Reges_I      </td><td>prose        </td></tr>\n",
       "\t<tr><td>1923.0000    </td><td>Reges_II     </td><td>prose        </td></tr>\n",
       "\t<tr><td>1910.9167    </td><td>Jesaia       </td><td>prophecy     </td></tr>\n",
       "\t<tr><td>1748.0588    </td><td>Jeremia      </td><td>prophecy     </td></tr>\n",
       "\t<tr><td>2909.1111    </td><td>Ezechiel     </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 524.3333    </td><td>Hosea        </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 188.2857    </td><td>Joel         </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 231.6667    </td><td>Amos         </td><td>prophecy     </td></tr>\n",
       "\t<tr><td>  78.4000    </td><td>Obadia       </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 197.0000    </td><td>Jona         </td><td>prose        </td></tr>\n",
       "\t<tr><td> 189.5000    </td><td>Micha        </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 106.5714    </td><td>Nahum        </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 112.1250    </td><td>Habakuk      </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 115.2222    </td><td>Zephania     </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 219.2500    </td><td>Haggai       </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 319.3571    </td><td>Sacharia     </td><td>prophecy     </td></tr>\n",
       "\t<tr><td> 296.7500    </td><td>Maleachi     </td><td>prophecy     </td></tr>\n",
       "\t<tr><td>1103.0000    </td><td>Psalmi       </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 909.3333    </td><td>Iob          </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 681.4615    </td><td>Proverbia    </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 360.4000    </td><td>Ruth         </td><td>prose        </td></tr>\n",
       "\t<tr><td> 336.4000    </td><td>Canticum     </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 325.6154    </td><td>Ecclesiastes </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 486.2500    </td><td>Threni       </td><td>poetry       </td></tr>\n",
       "\t<tr><td> 355.4615    </td><td>Esther       </td><td>prose        </td></tr>\n",
       "\t<tr><td> 319.2727    </td><td>Daniel       </td><td>prose        </td></tr>\n",
       "\t<tr><td> 149.8000    </td><td>Esra         </td><td>prose        </td></tr>\n",
       "\t<tr><td> 356.4545    </td><td>Nehemia      </td><td>prose        </td></tr>\n",
       "\t<tr><td> 648.3750    </td><td>Chronica_I   </td><td>prose        </td></tr>\n",
       "\t<tr><td>1976.2000    </td><td>Chronica_II  </td><td>prose        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lll}\n",
       " words.per.clause & book & genre\\\\\n",
       "\\hline\n",
       "\t 4108.0000     & Genesis       & prose        \\\\\n",
       "\t 1484.2500     & Exodus        & prose        \\\\\n",
       "\t 1315.3077     & Leviticus     & prose        \\\\\n",
       "\t 2318.6000     & Numeri        & prose        \\\\\n",
       "\t 1183.9412     & Deuteronomium & prose        \\\\\n",
       "\t 1320.2727     & Josua         & prose        \\\\\n",
       "\t 1280.4545     & Judices       & prose        \\\\\n",
       "\t 1113.4706       & Samuel\\_I      & prose          \\\\\n",
       "\t  503.6129       & Samuel\\_II     & prose          \\\\\n",
       "\t 1334.5714       & Reges\\_I       & prose          \\\\\n",
       "\t 1923.0000       & Reges\\_II      & prose          \\\\\n",
       "\t 1910.9167     & Jesaia        & prophecy     \\\\\n",
       "\t 1748.0588     & Jeremia       & prophecy     \\\\\n",
       "\t 2909.1111     & Ezechiel      & prophecy     \\\\\n",
       "\t  524.3333     & Hosea         & prophecy     \\\\\n",
       "\t  188.2857     & Joel          & prophecy     \\\\\n",
       "\t  231.6667     & Amos          & prophecy     \\\\\n",
       "\t   78.4000     & Obadia        & prophecy     \\\\\n",
       "\t  197.0000     & Jona          & prose        \\\\\n",
       "\t  189.5000     & Micha         & prophecy     \\\\\n",
       "\t  106.5714     & Nahum         & prophecy     \\\\\n",
       "\t  112.1250     & Habakuk       & prophecy     \\\\\n",
       "\t  115.2222     & Zephania      & prophecy     \\\\\n",
       "\t  219.2500     & Haggai        & prophecy     \\\\\n",
       "\t  319.3571     & Sacharia      & prophecy     \\\\\n",
       "\t  296.7500     & Maleachi      & prophecy     \\\\\n",
       "\t 1103.0000     & Psalmi        & poetry       \\\\\n",
       "\t  909.3333     & Iob           & poetry       \\\\\n",
       "\t  681.4615     & Proverbia     & poetry       \\\\\n",
       "\t  360.4000     & Ruth          & prose        \\\\\n",
       "\t  336.4000     & Canticum      & poetry       \\\\\n",
       "\t  325.6154     & Ecclesiastes  & poetry       \\\\\n",
       "\t  486.2500     & Threni        & poetry       \\\\\n",
       "\t  355.4615     & Esther        & prose        \\\\\n",
       "\t  319.2727     & Daniel        & prose        \\\\\n",
       "\t  149.8000     & Esra          & prose        \\\\\n",
       "\t  356.4545     & Nehemia       & prose        \\\\\n",
       "\t  648.3750       & Chronica\\_I    & prose          \\\\\n",
       "\t 1976.2000       & Chronica\\_II   & prose          \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "words.per.clause | book | genre | \n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 4108.0000     | Genesis       | prose         | \n",
       "| 1484.2500     | Exodus        | prose         | \n",
       "| 1315.3077     | Leviticus     | prose         | \n",
       "| 2318.6000     | Numeri        | prose         | \n",
       "| 1183.9412     | Deuteronomium | prose         | \n",
       "| 1320.2727     | Josua         | prose         | \n",
       "| 1280.4545     | Judices       | prose         | \n",
       "| 1113.4706     | Samuel_I      | prose         | \n",
       "|  503.6129     | Samuel_II     | prose         | \n",
       "| 1334.5714     | Reges_I       | prose         | \n",
       "| 1923.0000     | Reges_II      | prose         | \n",
       "| 1910.9167     | Jesaia        | prophecy      | \n",
       "| 1748.0588     | Jeremia       | prophecy      | \n",
       "| 2909.1111     | Ezechiel      | prophecy      | \n",
       "|  524.3333     | Hosea         | prophecy      | \n",
       "|  188.2857     | Joel          | prophecy      | \n",
       "|  231.6667     | Amos          | prophecy      | \n",
       "|   78.4000     | Obadia        | prophecy      | \n",
       "|  197.0000     | Jona          | prose         | \n",
       "|  189.5000     | Micha         | prophecy      | \n",
       "|  106.5714     | Nahum         | prophecy      | \n",
       "|  112.1250     | Habakuk       | prophecy      | \n",
       "|  115.2222     | Zephania      | prophecy      | \n",
       "|  219.2500     | Haggai        | prophecy      | \n",
       "|  319.3571     | Sacharia      | prophecy      | \n",
       "|  296.7500     | Maleachi      | prophecy      | \n",
       "| 1103.0000     | Psalmi        | poetry        | \n",
       "|  909.3333     | Iob           | poetry        | \n",
       "|  681.4615     | Proverbia     | poetry        | \n",
       "|  360.4000     | Ruth          | prose         | \n",
       "|  336.4000     | Canticum      | poetry        | \n",
       "|  325.6154     | Ecclesiastes  | poetry        | \n",
       "|  486.2500     | Threni        | poetry        | \n",
       "|  355.4615     | Esther        | prose         | \n",
       "|  319.2727     | Daniel        | prose         | \n",
       "|  149.8000     | Esra          | prose         | \n",
       "|  356.4545     | Nehemia       | prose         | \n",
       "|  648.3750     | Chronica_I    | prose         | \n",
       "| 1976.2000     | Chronica_II   | prose         | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "   words.per.clause book          genre   \n",
       "1  4108.0000        Genesis       prose   \n",
       "2  1484.2500        Exodus        prose   \n",
       "3  1315.3077        Leviticus     prose   \n",
       "4  2318.6000        Numeri        prose   \n",
       "5  1183.9412        Deuteronomium prose   \n",
       "6  1320.2727        Josua         prose   \n",
       "7  1280.4545        Judices       prose   \n",
       "8  1113.4706        Samuel_I      prose   \n",
       "9   503.6129        Samuel_II     prose   \n",
       "10 1334.5714        Reges_I       prose   \n",
       "11 1923.0000        Reges_II      prose   \n",
       "12 1910.9167        Jesaia        prophecy\n",
       "13 1748.0588        Jeremia       prophecy\n",
       "14 2909.1111        Ezechiel      prophecy\n",
       "15  524.3333        Hosea         prophecy\n",
       "16  188.2857        Joel          prophecy\n",
       "17  231.6667        Amos          prophecy\n",
       "18   78.4000        Obadia        prophecy\n",
       "19  197.0000        Jona          prose   \n",
       "20  189.5000        Micha         prophecy\n",
       "21  106.5714        Nahum         prophecy\n",
       "22  112.1250        Habakuk       prophecy\n",
       "23  115.2222        Zephania      prophecy\n",
       "24  219.2500        Haggai        prophecy\n",
       "25  319.3571        Sacharia      prophecy\n",
       "26  296.7500        Maleachi      prophecy\n",
       "27 1103.0000        Psalmi        poetry  \n",
       "28  909.3333        Iob           poetry  \n",
       "29  681.4615        Proverbia     poetry  \n",
       "30  360.4000        Ruth          prose   \n",
       "31  336.4000        Canticum      poetry  \n",
       "32  325.6154        Ecclesiastes  poetry  \n",
       "33  486.2500        Threni        poetry  \n",
       "34  355.4615        Esther        prose   \n",
       "35  319.2727        Daniel        prose   \n",
       "36  149.8000        Esra          prose   \n",
       "37  356.4545        Nehemia       prose   \n",
       "38  648.3750        Chronica_I    prose   \n",
       "39 1976.2000        Chronica_II   prose   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "words.per.clause <- as.data.frame(words.per.clause)\n",
    "\n",
    "nrow(words.per.clause)\n",
    "\n",
    "words.per.clause$book <- unique(dat$book)\n",
    "\n",
    "words.per.clause$genre <- ifelse(rownames(words.per.clause) %in% prose, 'prose', \n",
    "             ifelse(rownames(words.per.clause) %in% poetry, 'poetry', 'prophecy'))\n",
    "\n",
    "rownames(words.per.clause) <- NULL\n",
    "words.per.clause"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "source": [
    "We can make a barplot of this result, and color the genres."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAIAAAByhViMAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAgAElEQVR4nOzda3wV1b0//pUA4R4uQgXBIlqkVUAKVVTAKuXUWqXeqxy84EHFXvx5AbWl\n2KoFtSpH+6+teoSK2lbtRSvWegW1KCAUkIpapSgIIiJCIhCuSf4Pdk1jgmT2zt4JrLzfLx7s\nzP7OrDUzmcUns2f25JWXlwcAAPZ8+fXdAQAAskOwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBI\nCHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgB\nAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJ\nwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsA\ngEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh\n2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcA\nEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQE\nOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAA\nIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRg\nBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACLRuL470OCsX7/+7bffTlKZl5fXp0+fxo3t\nIwAgkbzy8vL67kPDMnr06P/7v/9LWPzQQw99+9vfzml/AIBo+Ci2rm3btm1kCOUJ/nUNYdu2\nbfXdXwBgjyHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAikZNg99hj\nj+Xl5eXl5Y0fP776u0uXLh0xYkSnTp2aNWvWo0eP8ePHl5SU5LoMACB62Q92H3744QUXXNCq\nVaudvrt48eKvfOUrDzzwwIABAy666KLCwsKJEyd+7Wtf27x5c+7KAAAaguwHuwsvvDA/P/+y\nyy7b6bujRo0qKir69a9//eijj952223z5s0bPnz4nDlzJk2alLsyAICGIMvB7p577vnzn/98\n9913t2/fvvq7CxYsmDt3bt++fUeOHPnv5vPzb7755vz8/Lvuuqu8vDwXZQAADUQ2g92yZcsu\nueSS88477/jjj99pwYwZM0IIxx13XOWJXbp06dOnz8qVK996661clAEANBCNs7WgsrKyc889\nt23btrfeeutn1bz55pshhJ49e1aZfuCBB77yyitvvfVW6q3sltXo/fffr/GavIKCgq5duyZZ\nGgBAfclasJs0adLf/va3p59+uk2bNp9VU1xcHEKoXtC2bdsQQlFRUS7Kdm3p0qVf+MIXaizL\ny8vbtm1b48ZZ21wAAFmXnaTy6quvXn311RdddNF//dd/ZWWBdeaAAw549913t2/fvouaBQsW\nnH766WVlZXXWKwCADGQh2JWXl5999tn77LPPzTffvOvK1Nm11Jm2ylJn11Jn2rJeVqN99913\n1wWrV69OuCgAgHqUhZsnSktLFy1a9M4777Ru3TrvE6mvO5k4cWJeXt7555+fqqx8bVxlS5Ys\nCSEceOCBuSgDAGggsnDGLj8/f9SoUVUmvvbaa3PmzOnbt2///v0HDx6cmjhkyJAQwpNPPnn9\n9ddXVK5atWrRokVdu3atiGLZLQMAaCCyE+wmT55cZeJtt902Z86c448/fsKECRUT+/Xrd9hh\nh82dO/e+++4755xzQghlZWVXXnllWVnZ6NGj8/LyclEGANBA1PVtnlOmTBk0aNB555338MMP\nd+/efebMmfPnzx8wYMCYMWNyVwYA0BBk/5Fiu9arV6/58+efccYZs2bN+tWvfrV+/fpx48ZN\nnz69efPmuSsDAGgI8jx6q0azZs0aOHDg1q1bCwoKar+08847L0ydek+Cyn1DuOH++88666za\nNwoANAR1fcYOAIAcEewAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ\n7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMA\niIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKC\nHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAA\nkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKw\nAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAg\nEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2\nAACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBE\nQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEO\nACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBI\nCHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgB\nAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJ\nwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEtkJdqWlpddd\nd91xxx3XrVu3Fi1atG/f/stf/vK11167bt266sVLly4dMWJEp06dmjVr1qNHj/Hjx5eUlOS6\nDAAgetkJdtu3b//JT37yyiuv7Lfffscff/yAAQPee++9a665pnfv3suXL69cuXjx4q985SsP\nPPDAgAEDLrroosLCwokTJ37ta1/bvHlz7soAABqE8mwoKytbtmxZ5Slbt24dMWJECOGCCy6o\nPP2www4LIdxzzz2pH0tLS4cPHx5C+OlPf5q7slp66aWXQghbt27NytJGjhw5MoTyBP+6hnD/\n/fdnpVEAoCHIzhm7vLy8bt26VZ5SUFBwwQUXhBCWLFlSMXHBggVz587t27fvyJEjU1Py8/Nv\nvvnm/Pz8u+66q7y8PBdlAAANRA5vnvjTn/4UQjjkkEMqpsyYMSOEcNxxx1Uu69KlS58+fVau\nXPnWW2/logwAoIHIcrC79NJLL7roouHDh/fo0eMXv/hFnz59fvSjH1W8++abb4YQevbsWWWu\nAw88MIRQEcWyWwYA0EA0zu7iJk+evGnTptTrb3zjG1OnTu3YsWPFu8XFxSGENm3aVJmrbdu2\nIYSioqJclO3au++++/Wvf3379u27qNmyZUsIwWe7AMBuLsvBbuPGjeXl5R988MELL7xw1VVX\n9e3b9/HHH+/Xr192W8mizp07jxs3LhXdPsvSpUtvuummvLy8OusVAEAGshzsQgh5eXmdOnU6\n44wzevXq1atXr/POO2/RokWpt1Jn11Jn2ipLnV1LnWnLetmuNWnS5Jxzztl1zaxZs2666aYk\nSwMAqEc5vHni4IMP7ty58z/+8Y/169enpqSuh0tdG1dZ6s7Z1LVxWS8DAGggchjsNmzYsGbN\nmhBC48b/Pi84ZMiQEMKTTz5ZuWzVqlWLFi3q2rVrRRTLbhkAQAORnWA3Z86cV199tfKUjz76\n6JxzziktLT3qqKNat26dmtivX7/DDjts4cKF9913X2pKWVnZlVdeWVZWNnr06IqL2LJbBgDQ\nQGTnGrvnn3/+hz/8YY8ePbp169a2bdvVq1fPnz9/8+bNnTt3vuuuuypXTpkyZdCgQeedd97D\nDz/cvXv3mTNnzp8/f8CAAWPGjMldGQBAQ5CdM3YnnnjimDFjCgsLX3nllUceeeTVV1/t3bv3\nNddc89prr33xi1+sXNmrV6/58+efccYZs2bN+tWvfrV+/fpx48ZNnz69efPmuSsDAGgI8nw9\nW41mzZo1cODArVu3FhQU1H5p5513Xpg69Z4ElfuGcMP995911lm1bxQAaAhyePMEAAB1SbAD\nAIiEYAcAEAnBDgAgEtl/pBiwOyspKXnqqad27NiRpHjgwIH77LNPrrsEQLYIdtCwPPzww2ef\nfW4IbRLUbho9+rw777wz530CIEsEO2hYduzYEcLnQ3gnQe3ZpaWlOe8QANnjGjsAgEgIdgAA\nkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKw\nAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAg\nEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2\nAACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBE\nQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEO\nACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBI\nCHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgB\nAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIROP67gC7\nhTfeeKOkpCRJ5ec///mOHTvmuj8AQAYEO8Kbb7550EEHJSweOHDgiy++mNP+AACZEewIW7Zs\nCSG8HULbmip/GcKft2ypgy4BABkQ7Pi3tiG0q6mmeV10BADIkJsnAAAiIdgBAERCsAMAiIRg\nBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBA\nJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDs\nAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCI\nhGAHABAJwQ4AIBKCHQBAJLIT7DZu3PjQQw+deeaZ3bp1KygoaNOmzaBBgyZPnlxWVla9eOnS\npSNGjOjUqVOzZs169Ogxfvz4kpKSXJcBAESvcVaWMnny5Msuu6ygoKBfv34DBgz44IMPZs2a\n9dJLLz322GOPPPJIfv5/4uPixYsHDx5cXFw8bNiw7t27z5w5c+LEidOnT58xY0bz5s1zVAYA\n0BBk54zdvvvu+6tf/WrNmjWzZ8/+/e9//8ILLyxatOhzn/vctGnTHnroocqVo0aNKioq+vWv\nf/3oo4/edttt8+bNGz58+Jw5cyZNmpS7MgCAhiA7we7UU0/9zne+06ZNm4opBx100GWXXRZC\neOGFFyomLliwYO7cuX379h05cuS/m8/Pv/nmm/Pz8++6667y8vJclAEANBA5vHkilfOaNm1a\nMWXGjBkhhOOOO65yWZcuXfr06bNy5cq33norF2UAAA1EroJdeXn5fffdF0IYNmxYxcQ333wz\nhNCzZ88qxQceeGAIoSKKZbcMAKCByM7NE9Vde+21c+bMOeWUU4YOHVoxsbi4OHxyJq+ytm3b\nhhCKiopyUbZr69atGz9+fGlp6S5qPvjggySLAgCoXzk5Y3f77bdfe+21/fr1u+eee3Kx/CzK\ny8vLy8ur714AAGRB9s/YTZo0aezYsf3793/mmWcKCwsrv5U6u5Y601ZZ6uxa6kxb1st2rV27\ndr/85S93XTNr1qxHH300ydIAAOpRloPdNddcc+211x5xxBFPPPFE9Q9JU9fDpa6Nq2zJkiXh\nk2vjsl4GAESsqKgo4VdhFBYWNmrUKNf9qV/Z/Cj28ssvv/baa48++uinn366eqoLIQwZMiSE\n8OSTT1aeuGrVqkWLFnXt2rUiimW3DACI1WOPPdauXbv2yVx++eX13d+cy06wKysru/DCC2+9\n9dZjjz32r3/9a6tWrXZa1q9fv8MOO2zhwoWpG2ZTM1555ZVlZWWjR4+uuNYtu2UAQKyKi4s/\nF8LfE/w7IYSPP/64vvubc9n5KHbSpEl33313fn5++/btv/Od71R+q3fv3mPGjKn4ccqUKYMG\nDTrvvPMefvjh1EPA5s+fP2DAgMo1WS8DAGJVEEL/BGUdct6R3UJ2gt1HH30UQigrK3vggQeq\nvHXsscdWjlm9evWaP3/+1Vdf/eyzzz7xxBNdu3YdN27cuHHjqjzaNbtlAAANQXaC3Y033njj\njTcmLD7ggAN+97vf1XEZAED0cvhIMQAA6pJgBwAQiVw9UgwIIRQXF6euQK1R06ZNu3Tpkuv+\nABA3wQ5y6Ljjjps9e3aSyrwQlr79dvfu3XPdJQAiJthBDpWUlFwdwsiaytaFcGgIJSUlJSUl\nTz75ZGlpaZKF9+/ff//99691HwGIh2AHubVXCDWGr9afvHjiiSdOO+30EJI86bjkrLNOv//+\n+2vVOQDiItjBbqS0tDSEjiF8kKB2dFnZxpx3CIA9irtiAQAiIdgBAERCsAMAiIRgBwAQCcEO\nACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBI\nCHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDvYsx155JF5yTRv3vzDDz+s\n7/4CkEON67sDQK2sXbs2hPEhnFRT4ftbtgzbuHFjXfQJgHoi2EEEPh9C/5pqltdFRwCoVz6K\nBQCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAg\nEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOACASgh0AQCQEOwCASAh2\nAACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBE\nQrADAIiEYAcAEAnBDgAgEoIdAEAkGtd3B6hBSUnJ9773vU2bNiUp/spXvnLllVfmuksAwO5J\nsNvdvffee1OnTh0RQsuaKl8PYerixYIdADRYgt2e4WchdKmp5o4QflEXfQEAdlOusQMAiIRg\nBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBA\nJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEo3ruwOwx9i2bdvjjz++Y8eO\nJMX9+vU74IADct0lAKhMsIOkpk+ffuopp7RNUFkSwgmnnvrHP/4x530CgEoEO+rI4sWLt27d\nmqTy85//fMeOHXPdnwyUlpa2DGFdgsrLQlhWWprzDgHApwl2EZo3b96MGTOSVDZu3HjUqFG5\n7k8IYeHChf369UtYPHTo0GeeeSan/QGAKAl2EZo0adKMhx76fILKRSHsv//++++/f667tGXL\nlhDC+yE0ranylhBmJjuxBwBUIdhFqLy8/PQQfpmgcq8QysvLc96hT7RLEOya1UVHACBOvu4E\nACASgh0AQCR8FMtuauXKlf/85z+TVDZt2nTQoEF5eXm57hIA7OYEO3ZT559//lNPPZWweNas\nWUcccURO+wMAuz8fxbKb2r59+49DKK/pX+knxfXcXQDYDQh2AACREOwAACIh2AEAREKwAwCI\nhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIhE4/ruAHuka6+99r77\n7ktSWVBQ8Mgjj+S6PwBAEOzIzN///vcD3n77tASV3w9h2bJlbdq0yXmfAKDBE+zI0CEhXJig\n7JKcdwQA+DfX2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJHwPXZEYvv27Y8/\n/vj27duTFPfp06dnz5657hIA1DHBjki89NJLJ598crsElZtDGPLNbz7++OM57xMA1C3BjkiU\nlpY2CmFdgspxISwoLc15h4Cd2bhx4/Dhw7ds2ZKk+JBDDrnlllty3SWIiWAHQN358MMP//KX\nv4QfhNC2ptK5Yfm05YIdpEWwA6DOXRRCt5pq7g7h1broC8TEXbEAAJEQ7AAAIiHYAQBEQrAD\nAIiEYAcAEAnBDgAgElkLdg8//PDFF188cODAVq1a5eXlnXnmmZ9VuXTp0hEjRnTq1KlZs2Y9\nevQYP358SUlJrssAAKKXte+xu/766+fPn19YWNilS5e33nrrs8oWL148ePDg4uLiYcOGde/e\nfebMmRMnTpw+ffqMGTOaN2+eozIAgIYga2fsbrnlliVLlhQVFU2aNGkXZaNGjSoqKvr1r3/9\n6KOP3nbbbfPmzRs+fPicOXOqzJXdMgCAhiBrwe7oo4/+whe+kJeXt4uaBQsWzJ07t2/fviNH\njvx38/n5N998c35+/l133VVeXp6LMgCABqJOb56YMWNGCOG4446rPLFLly59+vRZuXJlxQe4\n2S0DAGgg6jTYvfnmmyGEnj17Vpl+4IEHhhAqolh2ywAAGois3TyRRHFxcQihTZs2Vaa3bds2\nhFBUVJSLsl3btm3b7373u23btu2iZunSpUkWBQBQv+o02O2GPvjgg5tuumnr1q27qNmyZUsI\nwUV7AMBurk6DXersWupMW2Wps2upM21ZL9u1fffd9/XXX991zaxZswYOHLjr+0IAAOpdnV5j\nl7oeLnVtXGVLliwJn1wbl/UyAIAGok6D3ZAhQ0IITz75ZOWJq1atWrRoUdeuXSuiWHbLAAAa\niDoNdv369TvssMMWLlx43333paaUlZVdeeWVZWVlo0ePrvisM7tlAAANRNausXv44YenTZsW\nQli5cmUI4eWXX059b3CHDh1uueWWirIpU6YMGjTovPPOe/jhh1MPAZs/f/6AAQPGjBlTeWnZ\nLQMAaAiyFuwWLFhw7733Vvy4bNmyZcuWhRC6detWOdj16tVr/vz5V1999bPPPvvEE0907dp1\n3Lhx48aNq/Jo1+yWAQA0BFkLdhMmTJgwYUKSygMOOOB3v/tdHZcBAESvTq+xAwAgdwQ7AIBI\nCHYAAJEQ7AAAIiHYAQBEok6fFQsA6br55pvvvPPOJJWNGjX67W9/e+ihh+a6S7DbEuwA2K0t\nWrTo7X3eDmcnKL0ivP3224IdDZlgB8Bu70shXJig7Mc57wjs5lxjBwAQCcEOACASgh0AQCQE\nOwCASAh2AACREOwAACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAA\nIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRg\nBwAQCcEOACASgh0AQCQEOwCASAh2AACREOwAACIh2AEARKJxfXcAALJp7dq1xxxzTElJSZLi\nIUOG3H333bnuEtQZwQ6AqKxZs2bx4sXhlhBa11Q6I7Sa26ou+gR1RbADIEZnh/C5mmq2hPBG\nXfQF6oxr7AAAIiHYAQBEwkexAMDu4tRTT33uueeSVLZq1WrBggW57s8eR7ADAHYXb7zxxqnr\n13+9prJ1IVy0fv369evrok97FMEOANiN9Avh9Jpq3quLjuyRXGMHABAJwQ4AIBKCHQBAJAQ7\nAIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcAEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAi\nIdgBAESicX13ANjdPfPMM++8806SytatWw8fPjzX/QHgswh2QA3+53/+Z+XKbSG0qqlwewgr\nhg4d2rFjx7roFgDVCHZADcrLy0P43xBG1FT4RggHlZWV1UWfANgZwY6G6/XXX3/ttdeSVDZv\n3vyb3/xmrvsDALUk2NFwXXjhhQteeqlZTWXlIRSFsGDBgrroEwDUgmBHw1VaWvrjEH5QU9nG\nEFqHUFpaWhd9AoBaEOwAYLfz/vvvn3/++du2bUtS/M1vfvOyyy7LdZfYIwh2ALDbWbJkyV//\n+tdwZQh5NZW+GMr+UibYkSLYAcDu6oYETxL4SQgv1kVf2CN48gQAQCQEOwCASAh2AACREOwA\nACIh2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiE\nYAcAEAnBDgAgEo3ruwMAUM+uuOKKKVOmJKls1KjRk08+2b9//1x3KQNr1qxZsWJFksqCgoLe\nvXvnuj8hhJKSkieeeKKsrCxJcd++fXv06JHrLkVPsAOgoVu6dOkR69ePTFB5bgirVq3aPYPd\niBEjnn322YTF8+fP79evX077E0J45plnvn3aafslqFwbwjfPPPOBBx7IdZeiJ9gBQOgRwukJ\nykblvCOZ27p167gQxtZYFkLnELZu3VoHXSotLW0bwtIEld8LYW2yE3vsmmAHAOkpLS2dNm3a\njh07khT36NGjb9++ue5SSrMQ2tVUUxeBjvoj2AFAev7xj3+ccsopYb8EtyAWhSO/eORLL71U\nB72CINgBQLpKS0tDCOHVEFrVVHpjKHu0LIRw6623/vWvf02y8EaNGv3f//1fLVLqAc0AACAA\nSURBVHtIgyXYAfBvW7Zs+cY3vrFx48Ykxb169Zo6dWqOexSPp5566tmNz4avJii9KSxZsqRJ\nkya57tKSJUvOPvvshB8on3baaT/4wQ9y3SVqT7AD4N+Ki4tfeOGFEC4P4XM11b6yenXSGzD5\nt2NCuD5B2S0570jK0qVL57/88oQElX8N4aXOnXPeIbJBsAOgivND+FJNNb8NYWZd9IVcahzC\nVQnK1obwz5z3hewQ7ADI3Kuvvprw0rHGjRufc845ue4PNHCCHQCZ+8UvfnH33X8KoXuC2lc7\nduw4ePDgnPcJGjDBDoDMlZeXh/DNEO5PUNs94aOlgIzV+A08AADsGQQ7AIBICHYAAJEQ7AAA\nIiHYAQBEQrADAIiEYAcAEAnfYwfUv+9+97tLlixJUtm+ffvf/e53jRo1ynWXAPZEgh1Q/x58\n8MH1648O4cCaCleHcO/kyZNbt25dB70C2OMIdsBu4uwQTq6pZn4I99ZFX2Jx11133XTTTUkq\n8/Ly7rjjjj59+uS6S0BOCXYA0Xr99dfffrtNCBclqL1myZIlgh3s6QQ7gLh1D+HCBGU/z3lH\ngNwT7IAG4ec///n777+fpLJDhw5jx47NdX8AckGwA7Js8+bNs2fPLisrS1Lcv3//du3a5bpL\nIYSrrrrqsK1bO9VUtjaE50K47LLLVqxY8Yc//CHJWuTn559++un77bdfNroJUCuCHZBlv/nN\nby68MMlnfyGEcPnll0+aNCmn/anwoxCOralmZgjPhRBC+M1vfnP11T8LoWeCBb+5devW8ePH\n17Z/ALUm2AFZtn379hAOCuG1BLWn7tixI+cdykhZWVkI/UJ4IUHtVxOengTINU+eAACIhGAH\nABAJwQ4AIBKusQMAEnnkkUdefvnlJJUtWrS48sorc90fqhPsAIBEJk6c+PH8+d1qKtsewgsh\nnHTSSXXRJz5NsAMAkhodwpiaataH0D6E8vLyuugQn+YaOwCASAh2AACR8FEswB7j6aefLi4u\nTlLZuXPnQYMG5bo/wO5GsAPIji1btmzevDlJZfPmzZs1azZ16tSf/vSnCRf+v//7v0OHDj32\n2GND6BJC05rKN+211461a9cmXDgQDcEOIAvKy8s7deqU8HTa3nvvvXr16jfffPPttwtDGJdg\njh8uWbJkyJAhIYQQHg2hf031j5SVjUrSEyAygh1AFpSVlRUXF4dwdwhfrql2dlHR2E9edwrh\n9ASLv6lWnQMaDMEOIIt6Jjid5hNSIFfcFQsAEAln7IA9z+OPP37JJZck/PrT6667bsSIEbnu\nEsDuQLAD9jxvvPHG0qU7kt128P8tXrw45x0C2D0IdsAeqmMIFyYoeyTnHQHYbbjGDgAgEoId\nAEAk9vhgt3Tp0hEjRnTq1KlZs2Y9evQYP358SUlJfXcKAKAe7NnX2C1evHjw4MHFxcXDhg3r\n3r37zJkzJ06cOH369BkzZjRv3ry+ewcAUKf27DN2o0aNKioq+vWvf/3oo4/edttt8+bNGz58\n+Jw5cyZNmlTfXQMAqGt7cLBbsGDB3Llz+/btO3LkyNSU/Pz8m2++OT8//6677kr4BVcAANHY\ng4PdjBkzQgjHHXdc5YldunTp06fPypUr33rrrXrqFwBA/diDg92bb74ZQujZs2eV6QceeGAI\nQbADABqaPfjmieLi4hBCmzZtqkxv27ZtCKGoqCjhct59990dO3bsomDVqlUZdfAzbQjh7QRl\nlfv0bghba6qv/Fzxj5M1UVbp9bIQ1tdUv67S66JkTVT+RPydEApqql//6dc1NlH26R+TdKly\nE+sSzFL5LuuyZE0UV3r9UYJZ1n3qp9JkjXxc6Q+ztQlmea/S6x3JmtgQQrNPXq9JMMvKSq+3\nJWtiU6XXH6S5FluTNfGfHbg6wQyfPtq3JGtiy6cXUOMsqyu9LknWROUB4L0Q2tVU/0Gl15uS\nNbGt0uuVITStqX5Npdfpj2rvhlBaU3kGg1rlZS4PYWNN9R/952Vx+sNmWBZCi5pmqHx4JxnU\nqng7wRmY9Z96WWMLlfd0ebIeVf4PNcmwWXkMTDhsflzpdZIRrfKvePIRrXWCsj3dHhzssmLp\n0qU9evSo8YK8vLy8/PzsnN0sLCycGsKfEhe3bNmyUaNGR5bWOASGEMKAwsLUXJND+E3iJlq1\napWfn9+vrKzm6hCOqdTE5MRNtG7dOi8v70vJLnw8/pMmfhHCLxI3sX379tIQDkhWf/onTdwc\nws0J6vPy8lq3bl1SUlKSuIlzPmnipyH8NEF9fn5+q1atCgsLQ/goYSOFhRelmghhXJKHazVu\n3LhFixaFhYUhrEzYROvWl6WaeO+9y0O4vMb6goKCZs2aFRYWhvCvxE18JdXE+vXfSVLfrFmz\ngoKCwsLCEF5N3MSxqSZGfvhhkvrUEVFYWBjC3MT7YnhqD27ceGay+o4hhNatW4fwt8RNFKY2\n75YtJyar7/ZJE08lbyK1ebdt+3qy+i990sTkEB5N2ESLFi0aN26846hd/Tn9n/r+/z6Owh0h\nPJRkjv+MaWWHJRrTCgf9u4mpIUxN1MJ/xrTy3onGtMKvf7IWd4ZwZ9ImmjRpEkIIPZLVn/Tv\nJm4N4dYE9akxrby8fGviMe2/PxnTrg/h+gT1FWNaUeImzv+kiR+H8OME9Y0aNWrZsmVhYeHq\nxE38v8LCZIV7sLw99yaDCy64YPLkyVOnTj333HMrTz/jjDN+//vfT5s2bdiwYUmW8/HHH5fW\nFJvKysr22muvzPtayY4dOzZs2JCkMi8vL3X2ccOGDbs+p1ihefPmzZo12759+8aNNf6hmmET\nLVq0aNq0afIm8vPzU2dVk2znlJYtWxYUFGzbtm3Tpk01V4fQqFGjwsLCEEJxcXFZsniaamLr\n1q0Jv/UwgyZatWrVpEmT5E00bty4devWIYSioqKER2Xr1q0bN268ZcuWzZs3J6lv0qRJq1at\nQgjr19d4cvZTTWzevHnLli01V2fURGFhYaNGjZI3UVBQ0LJly/Ly8uRn5du0aZOfn19SUrJ1\na40nvkMIoWnTpi1atCgrK0t9LLCbNNG2bdu8vLxNmzZt27at5uoQmjVr1rx589LS0o8//rjm\n6hBCCO3atQshbNy4cfv27cmbSD6mZdBEakzL6bBZB2NaqonkY9ruOWzWwZiWaiL5mJbxsJmk\ncs+1Bwe7W2655YorrvjhD394/fWf+uOhX79+Cxcu/Oc//1n98jsAgIjtwTdPDBkyJITw5JNP\nVp64atWqRYsWde3aNXULBQBAw7EHB7t+/foddthhCxcuvO+++1JTysrKrrzyyrKystGjR+fl\n5dVv9wAA6tge/FFsCGHx4sWDBg3asGFDxSPF5s+fP2DAgOeee84jxQCAhmbPDnYhhKVLl159\n9dXPPvtscXFx165dzzzzzHHjxrVs2bK++wUAUNf2+GAHAEDKHnyNHQAAlQl2AACREOwAACIh\n2AEAREKwAwCIhGAHABAJwQ4AIBKCHQBAJAQ7AIBICHYAAJEQ7AAAIiHYAQBEQrADAIiEYAcA\nEAnBDgAgEoIdAEAkBDsAgEgIdgAAkRDsAAAiIdgBAERCsAMAiIRgBwAQCcEOAGIzZ86cV155\npb57QT3IKy8vr+8+8B8rVqyYMWNGixYtTjjhhObNm2e9PrNZdkNxrAUJNYTdvWXLlmbNmn3W\nu0uXLj3ggAPqsj/Usaz/kufn559yyil//OMfa78o9iyN67sDDdpNN900ZcqUOXPmtGvXLoQw\nc+bMb37zmxs3bgwh9O7d+8UXXywsLKxNfWazZKCoqOjOO+9ctGjRypUrt2/fXuXdOXPmVJ9l\n3bp1L7744nvvvbd169Yqb1166aX1sha7p7Q2VMaz1EGvkstsd9fBhkqrPt2DYsSIEX/4wx/y\n83fyKcry5cuHDBmyfPny2q9CBuqgiQyUlJQ89thjCxcuLC4ubtOmzZe//OVhw4a1aNHis+pz\nvRbp7u46GNP22muvXWyQLMrpcUQGnLGrT4cffnjz5s2fe+65ih8XLlw4ZsyYNWvWTJky5YYb\nbvjBD35Qm/qEs5x00kkhhBtuuOFLX/pS6vUu/PnPf64y5e9///t//dd/FRUVfdYs1X/Hbrjh\nhuuuu27Lli0J6xOueNu2bXfd+QoVvU13ljpoorJ0N1SSWWrcxZVV39110EQGv+e52FC1qc/g\noMjLy/v+97//i1/8osr0VatWHXXUUcuXL68eF5J0qZZHdy6aqGWXQgiPPPLIhRdeuHbt2soT\nO3TocPfdd+90gRn8erzwwguTJk2aO3fu+vXrS0tLq7y7Y8eOyj9msLvrYGQ+/fTTX3311dde\ne61Ro0afNVcdjAaZ1dfByByzcupPx44dv/e976Ver1q1KoRQ8eMxxxxzyCGH1LI+4Syp34SZ\nM2eWJ0j51ZsYOHBgCGH8+PH/+te/Nm/evL2aKvUPPPBACOHQQw+dOHFiCGHMmDETJkwYMmRI\nCOH000+///77M95QGfzapztLHTRRmw2VZJbk/anepbppIt3f8xxtqNrUp3tQlJeXX3zxxSGE\nn/3sZ5Unrl69umfPnvn5+Q888EBmXUpt5MyO7hw1UZsulZeXT58+vVGjRk2aNDn33HMnT578\n2GOPTZ48+dxzz23SpEmjRo1mzJhRy31XXl4+bdq01KnTNm3aHHzwwYdUU/vdXQcj81tvvbXX\nXnt9//vf37RpU/V3K++7hKrPnrvjKN1e1WYt4tMgVnK31aRJkx//+Mep13/4wx9CCE899VTq\nx6uuuqpdu3a1rE84y4oVK1asWLF169aK17tQvYmmTZuecMIJydd60KBBe++9d0lJyfvvvx9C\neOKJJ1LTf/Ob3zRq1Gj69OmZrUV5efnmxCqWnO4sddBEbTZUkllq3MW73t110ES6v+c52lC1\nqU/3oCgvLy8tLT3llFPy8vJ++9vfpqZ8+OGHvXr1ysvLu+eeezJehdoc3TlqojZdSvWqefPm\nCxYsqDJ9wYIFzZs3Hzx4cGZrUVn//v0bNWr029/+tqysrPq71WWwu+tgZD733HOPOeaYEEKH\nDh2GDh16zjnnnPtpSRZb477I0XFUByNzxAS7+rT33nuPHj069fp73/tefn5+cXFx6sfx48e3\naNGilvUZzDJ79uyFCxemtRYdO3b87ne/m7y+devWo0aNKi8vX716dQjh8ccfr3jrhBNOGDJk\nSO3XIqHt27fPmzfv448/zmz2XDeRwYbKYJY66FW60t3ddbCh0q1P96BI2bx588CBAwsKCqZP\nn75u3bq+ffuGEO68886dFsexrzPQvHnzVK+qGzVqVFZ+PZo2bXraaacl71IGuztHY1pldXDu\nKtfHUXJ1MJjvQXzdSX3q1avXo48+umrVqjVr1jz00ENHHHFExQWzb7/9dqdOnWpZn8EsRx55\n5IQJE9Jai2OPPXbOnDnliU+Gb9u27XOf+1wIoaCgIIRQXFxc8Vbfvn3nz59f+7VIaO3atYce\neujLL7+c2ey5biKDDZXBLCnLly+fPXt25fos9irdJtLd3XWwodKtT/egSGnWrNm0adP233//\nk08+eciQIa+88sptt902evTonRZnvCOSq4MmMtC0adPOnTvv9K3OnTs3bdq0ysQM1qJly5ap\nWRLKYHfnaEyrbGFNPmvG3I0GufuNqoPBfA8i2NWnSy65ZPXq1Z///Of33XfftWvXfv/7309N\nLy8vf/755w855JBa1mcwSwY3Ut14440ffPDB2LFjN2/enKS+U6dOqaue27Zt26pVq1dffbXi\nrZ3e95fBWsQhgw2VwSxz5sw55JBD9ttvvyOPPHLevHmpiQ8++GCvXr1eeOGFemki3d1dBxsq\n3fp0D4oK7du3f/LJJ1u0aPHKK6/ccMMNl1xyyWdVZrDWKevWrZs2bdodd9xxWzXZaiItRUVF\nN9544/DhwwcPHnx4NdXrBw8ePGvWrJ0u6qWXXho0aFDt12Lo0KFz585NvgoZ7O46GNP61qT6\nLLkeDermNwofxdaze+6558gjjzzyyCNvv/32ionPP//8Xnvtdccdd9S+Pt1ZTjvttJ49e+7Y\nsSOttXjrrbfatm3brl27QYMGHV9NleJvfetbAwcOTL0+4YQT2rdv/+yzz27YsOFPf/pTQUFB\n9UtkMl7xGqWu82jZsmWbBOq+iQw2VLqzvP766y1btmzVqtWJJ54YQnjmmWdS0zds2NCiRYuK\nq7nruInyNHd3HWyoDJpIclCc+xkGDBjQvn376ldE1bJL5eXl119//S6+LS8rTTz//PPDhg3b\ne++9CwoKGlVTpXjevHm7vp+x+vJfe+21Nm3aXHXVVRs2bKiYuGHDhquuuqpNmzavvfZa7ddi\n2bJle++99zXXXJN8JExrDExJd0xLa8NWWZ1Zs2YVFRXtehXqYDTI7DcqidT5ziQjbcZN7EEE\nOz4lyY1UVbz55puf9cnITofmu+66Ky8vL3Up7rx58yp/dNKoUaPnnnsuu2u0C6nUldM/gWrT\nRAYbKt1Z/vu//7ugoOAf//jHhx9+WHkoLy8vP+GEE3Z6n3UdNJGuOthQ6dYnPCiS/25k5dcj\n3XsYM2giR/eTVsm4qdNybdu2PeaYY84888xjjjkmlQ4HDRpUPQEnXIsqTaQ2S7du3U488cTq\nyTuz3V0b6W7YlNmzZ/fp0yfVh4pD74EHHjj44IOff/75KsV1MBrkbvDP+DiKUoNYSZJLciNV\nFd/4xjdCCKNHj37ppZfeeeedJPdSVfb3v/99xIgRAwcOPPvss+fOnbvr4oR/eiaUSl2PP/54\n7u6lymITaW2ohLPsvffeZ5xxRnl5efWhfOzYsXvttVe9N7F+/fply5atX7++xp4k71LtZ6mx\nPuFBUeNVUJXVfhUyuD803SZydD9p8v+2a/yf+7PWojZN1GYMTDimpbthy9M/A1cHo0Et63dh\n2bJlCUfa2rSypxDs+JQMBs1WrVoNHTo01x1L60/PhFL/vVUev2qU7r1XddBEbTRu3Piqq64q\n39lQftVVVxUUFNRXE1u3bp0wYUL37t0rfvG6d+8+ceLEbdu21b5LdaBuDop01cFdrjm6nzSL\nCTgXTWS2u9Ma09LdsOXpn4HL4FDN4FsUciTdkTbuu2g9Uqyu1ebLxL/whS/suv5f//pXlSnp\nzrLws2+V+ixNmjTp2bNnunOl5Y033hg6dGheXt6JJ5746KOPVkw/4YQTRo0a9Yc//OGrX/1q\nTjtQIXXv1TPPPDN06NA9t4kK7dq1Sw3i1S1cuHDXny4tX7581apVBx10UJs2bbLbxJYtW77+\n9a/PnDkzLy9vn3326dy58/vvv79s2bIf/ehHTz/99FNPPVX9zsfdTR0cFBnY9T2J1R96kYGM\n7yfNy8vbRdlOr/TPrto0kcHuTndMS3fDhhCmT59+8skn9+7du8ojOkIIX/ziF2fPnl1lYgaH\n6pFHHrmHPo62LofZuifY1bXUMTx27NiK18lVPz43bdqUerhNYWHhTkfGdGfJYHQ7+uijc/3F\nBxMmTNi+ffvf//73zp07V95orVq1GjJkyIsvvpjT1iM2cODAxx9/vPoTG2fMmPHMM8+cc845\nO51rzpw5o0eP/sc//hFCqBgZH3zwwQkTJvzyl7+s8h9SBk1MmjQp9ejMSZMmffGLX0xN/Oc/\n/3n55Zc/8cQTt956a/VHiu1u6uCgyED1exKHDx+eeitb9yRmcD/pgAEDxo4dO2HChObpP/m+\nqKgo9azY5E+USuI3v/nNwIEDK58wrrB48eJXXnnlrLPOqjwxg92d7piW7oYNIXz00Uf77bff\nTt9q1KjRhg0bqkzM4FCts8fRkhbBrq6tWLEihJD62yv1OrnqD7nbvn37woULL7300g4dOvzp\nT3/KyiwpCc/HhBBuuummI4444qc//em4ceN28VDCChmcd0z3T88910knnVQxsCY8oVubc8Bj\nx4496qijTj755FRU2rx587x58x544IHbb7+9cePGl19+efUlpHumIYMmHnjggYMOOujRRx9t\n3Pg/A9QXv/jFadOm9enT57e//W3tH6MZ0nwYaLr16R4UIdlxUcu1PuSQQ15//fUQQl5e3tFH\nH33XXXd97WtfGzBgwNNPP/3QQw8NGDAg1PrZsjfddNOAAQOuvfba8ePHJ1nxLl26PPfcc4cd\ndtg999xz8MEHVx9t/vKXv1Sfa9u2bTfffPOUKVPeeeed1JTu3buff/75V1xxRZMmTWq/Fmef\nffb999+/02D35z//+eqrr64S7DLY3emOaelu2JD+GbgMDtWjjz567ty5paWlNT6OtjaHKmmr\n78+CyYJ169Z17tz5mmuuycos6V7NVnG/Rbdu3U466aQa7yCrfv95xf/fhYWFO70dPUeXgmVw\nAVy6s6RbX3FgPvPMMwkP3tTrjB8oeccdd1TOTylNmjS59957d9rDDG6dS7eJpk2bXnHFFTt9\na+zYsc2aNav9Wqd7j2G69ekeFOXJjotarnWSexIzaKKO7yfdvHnz4MGDQwipT+r79++/zz77\npD58+OpXv7ply5bab6gQwk6fIVteXn7NNdfk5eXVfnenO6alu2HLy8tPOumkvffee8uWLVWa\nmD59el5e3k5nSfdQTf442oz3RUK5Hpn3LM7Y7V5WrFgxY8aMFi1anHDCCck/mGjXrt3QoUPv\nvffen/zkJ7WcJYOr2e69997Ui+XLl+/0A52pU6dW/jGDk4i1uRRsFzp06DBv3rxsXQu1032X\nbhMrVqz48MMP+/XrFxKf0K3NOeAQwkUXXTR48OA777xz9uzZH330UZs2bQ4//PCLL7744IMP\n3ml9BmdP022iSZMmJSUlO31r06ZNqVMytVzra6+9NvVU1uHDh+/66q7M6tM9KEKy46KWa33h\nhRdeeOGFqddf+cpXXnrppVtvvXXZsmX777//xRdffOihh2bWRMXKVpZwxS+55JL3339/9OjR\n55xzzj777FM9VVSX5JP6Wm6oXXj99dfbt29fZWIGuzvdMS2DJjI4A5fuoTpx4sQ+ffrcfvvt\nDz74YN++fSsSduVe5W5fVJbdwXxPl1ee5m3eZNFNN900ZcqUOXPmtGvXLoSQGq02btwYQujd\nu/eLL75Y8ZCZGl1wwQX33Xdf9csj0p1lxIgRf/zjH1NXfnTs2LHytaXDhg1bsWLFK6+8UmU5\n1adUkfC6vfXr1x988MGjR4+uHk9PPvnk2bNnL1++fMOGDZV7NWPGjNR3slQf1HJk9erVnTt3\nfuaZZxYsWJCtffdZTeyeV/U2adJkzJgxN95449q1a6v8hvzgBz+49dZb0/ol3KmBAwcuXbr0\ntdde22uvvSpP//DDD3v16nXggQfOnDmzlk00a9Zs2LBhqYev56I+WwdF2OVxkWtz5sxp1qxZ\njV2tcWUrq7K01q1bH3744UnOT1fo1atXeXn5okWLqqTAHTt29OnTp1GjRpWfZ5CWM888M/Xi\noYceOvzww7t161b53dLS0nfffXfu3Lnf+ta3qlwencHuTndMy+w36s4777z44ourXCfQpEmT\nyZMnf9YVtGmp8Y+cbAWMdevWvfjii++991714eXSSy/NYIG7+TBbS87Y1aeHH354n332SSWD\nEMIVV1yxbdu2H/7wh2vWrJkyZcqvfvWrhBeJr169+rHHHuvSpUvypj9rlgzOx2TrhrVdnHdM\n8qdnjVdvVFb7Kzmyte/2OLU5e5rwUvfvfve7Z5111oABA66++uqjjz66U6dOq1evfu655667\n7ro1a9b8/Oc/r9UKhBDSv8cw3fos3sWZwfn4bEl4z2Md30/6r3/96//9v/9X/dxe48aNjz/+\n+Ntvvz3jzjz00EMVr+fMmTNnzpzqNYcffvitt95aZWIGWyDd02mZbeR0z8ClK4NvUcjADTfc\ncN11123ZsmWn72YW7OIm2NWnt99++9vf/nbq9fvvv//yyy9/73vfu/7661NvPfjgg1XCwTXX\nXFNlCTt27FixYsWf//znjz/++LrrrqveRLqzpHsjVXY1bdr0vffeqz594MCBv/zlLy+++OIn\nnngihPCtb30rNT31p2fqisB0bzGupXT3XcbS/VO1qKjozjvvXLRo0cqVK7dv317l3Z3+X5WW\nDG6dq/FS9ypGjBgxf/78W2+9deTIkVXeuuKKKypOq9RGuvcYZnBPYhZ91nGRa3Vwz2MG95Mm\n+aS+upKSkscee2zhwoWpPy2+/OUvDxs2rMraLVmyJPWiR48et9xyS+p7fSs0atRor732yvhM\nfBVJxrSdSn5bW8rBBx+clS+y2akM4ma6A9SDDz44bty4Qw899KSTTvrRj340ZsyYdu3azZgx\nY8aMGaeffnrFduNT6vkav4atSZMmP/7xj1OvU5/yPPXUU6kfr7rqqnbt2lWp/6yd2Lx587Fj\nx5aWllZvIt1ZOnbs+D//8z/lO7uk9+tf/3q3bt2ytOo78f777++9997du3f/rILFixd///vf\n79+//3777XfIIYeMHj168eLFFe9W/7b3XahNJ1ObJd19l0ET5Wk+2bM82ZM3TzzxxBNPPPH1\n11+veL0L1Zt48cUX8/PzjzvuuNRDwadNmzZ37tzLLrusSZMmTZo0WbRoUZX6JJe679QLL7xw\n7rnn9unTp1u3bn369Bk5cuTf/va3ine7paP6wtN9GGgGDw/Nll0cF+k+PHQXm6h79+6HHHLI\nmWee+fvf/77i2QYZPDn6oYceOvroo1euXFll+ooVK7761a/+8Y9/rDJ9yZIlHTp0uO6665K3\ncuSRR+69995r166tMn3NmjWf+9znBg0aVH2Whx9+uEOHDlWOhQ4dOjzyyCM7beKGG26oPLbk\nzq7HtCpy8SXttRwNqnv33XenTp36+9//vqSkpPq7GTwauJaPS/ksbp4gV9q3b//BBx+kXj//\n/PP5+fmHH3546scmTZpUPyny2GOPVZmSn5/frl273r17t2rVaqdNpDtLDlqnrQAAIABJREFU\nBudj0v36kgzOO6bs+k/Prl277rob2ZXuvstABn+qXnrppUVFRePHjx85cmSXLl12eil6bb5J\nMaR/piHjL6U76qijjjrqqM/qRupyxgqlpaUVNx+0bNly06ZNqddt27bd6Rcx/OQnPzn44IOv\nueaae+65p2/fvtX/s5k6dWqV84U11lf+MYPv9En3uHjsscdOOumksrKyNm3a9OjRI8ltBxs3\nbtzFhlqxYsWiRYsefPDBE0444ZFHHmncuPH1119/xBFHXHrppT/72c8Snrq7++67N2zYUP0a\nj65duxYVFd19992nnnpq5ekTJkzo3bv3j3/84ylTpnz5y1+ufhaq+uWz6X5S//+3d95xUVzd\n/7+7sLuAKNIEwQhqLEAQFQSE1cgTFKNgALEBAsGGioqC8lUxgqLGRMVECYlRUROKKGIjNsSC\nvaEhlkeNYq8UAypFmN8f9/fMazOz5d4728R9/7U7e2fmzszOnTPnnvM58H7h8/mRkZH9+/e3\nsrJ6/vx5SUlJdnZ2SEjI4cOHYUKrJLjudoLLDUF3p6lIpJ3jaIAbJo4yQDG4evXqqFGjDA0N\n//nnHwBAc3MzXB4WFpabm7t06VKYLKzjX2jasvyo+eKLL6ytrR8/fvz8+XMLCwtvb2/6p9DQ\n0M6dO6u/S7j+GApfvkTWX1GO35EY5daWpSQK0Sjl2kl9u6V3QfCqilJ5E/os6+vrKQQ3p6yN\noHsanJycHB0d6Wrukofp4OAAA+E5UlNTIxaL+/TpU1hYWFNTA5cUFhb27t1bLBbDJQxQBkYu\nAymBpg/ufUFQPBT+qdzd3Q8cOFBbW0tRVG1t7YEDB9zc3MRicVVV1ZUrVwYNGgQAWLVqFUVU\nOdrKymry5MlS9z5+/HgbGxvEo5Z1YiGzZs2S2liqSo5YLDY0NLx8+TJj+eXLlw0NDfv376/g\nrCFAcLl/++23u3fvSt1aWVkZW2yFQGaIQvDpchwNPDw8Bg4cKPlVKBTOmzdv/PjxAIDly5cz\n2iOWBmasMm/ePIqiKisrAQDZ2dn0T0lJSVLPLQq6kmI6VMXMmTOHDx/esWNHPT29hoYG+tWN\noqhjx45BvVA1QxD5gStfQuB3zMvLy8jI+P333xmegEePHoWHh0+fPp3hBgCY1RHQ0dfXd3Nz\nA0TXDvHtlt4FwatqmzZtOnbsKP8QJF2bxG5OdE8DWag7ViDOwoULnzx5UlZWRnuVjI2Nhw4d\nOnDgQGdn54ULF7Kj3VGCvrkEhhNo+uDeF3/99VdQUFBoaCh6r5KSkp49e1ZWVkbP77dq1crP\nz2/AgAHOzs7Jyclr1qzZtWuXg4NDdnb27NmzaYmNV69eFRUVsTfIdqdVVlYycplp2rVrx07J\nIjvJq1evDgwM3LRpEx0z16dPn+joaDjpz+DSpUuhoaG9e/dmLO/du3doaGhOTg57FVwPHMHl\nxtVAJkhrQ/HpchwNcEONUQYoBmTlUhSGJtPDbItEZ9hpkoCAgMzMzF9//RUAEBoaSkeFnzhx\nor6+fvDgwdx3QWAScU+kEggE7u7uhYWFTk5Oy5YtY2Tz+fv74x4F7vwO4rQFl0RagmuHm0hL\nUNkTsfKmcnkoV3yRINT94sWLgwYNYj8sZbF9+/axY8ey5wqNjIyCg4Nzc3PJ0hiVW59U/k0B\nAPD19ZUTT/n333936dJFcglB8dD8/PzQ0FD2XgwNDYODg3NyctasWWNkZDR06NDff/8dEFld\n5ubmdAoCgzt37rCnsIlPsvyZeklEIpGsZO327dtLrTtMULyRgcLLLYempib2LgjS2nDFFwmo\nrq6m7fhTp04BCV+Au7v7+vXrGe0JBiiUcikMdFm0uqlYbYdjkLivr6+rq6vULbu4uPj5+am0\n8+PGjZOTDEEjP96Wwp/fQZy2UPOdYmlpOW3aNPj5yZMnAAD6q4+PD3syxc7ObuLEiRRFNTc3\nGxsbw/kIyLhx46TOQTx69MjW1nb27NmyziR3VqxY0a1bt8rKSvj1xIkTtD/J2dn59evXjPYE\noe7e3t4AgKSkpDt37rx7966RBaO9UCiMj4+X2tv4+HiRSCT/iKqqqsrLy6uqquQ3Uxayborg\n4GBZcQjl5eUdO3ZkLBw1apSbmxvWroVCYUJCgtSfJE/U4sWLFZ40WYSEhIhEohs3bjCWX79+\nXSQSBQUFkW2WCwEBAf/5z3+k/uTj4xMQEICykYaGhnPnzvXr1y8gIKChoQF977IuN5Bd3GLU\nqFHm5uaMhQRpbSKRKCQkBL2rBEiOzNOmTePz+fQIkJSUZGRkxGhPMEChlEuRBLpg+/btu3Tp\nUgBAfHx8amoqnNwYOXKkrHPewtAZdlqBnFAw838j+crbqlUr+nPbtm3ZYwGFbxIplwkTJrBr\n4+BaBhRFCQSC+fPnS93FvHnz2LuwsrIaPXo0JW0QTEhIoE+UUhJp0cP4cBNphw8fTofu+fv7\nm5mZFRUV1dTU5OfnC4VCWbFBt27datu2rampqVgsHsaC3R43sxI3qgb6frp06bJ58+by8vK6\nurry8vLMzEw4CZWTk8PeBW4gTrdu3ezt7WHQmCS1tbX29vY9evSQulZ9fX1qaqrkXFinTp2W\nLl0q9bGNm+wpB6k3BUVRAIDY2Fj28sePH3fp0kVfX5+xnCBRt2vXrp06dWJXf4Inqnv37vBr\nTEyMra0t4jYZnD59ms/nm5mZ/fjjj7dv33779u3t27d//PFHMzMzPp9/6tQpss1y4dq1ayYm\nJomJiZLRljU1NYmJiSYmJteuXUPfFEHxRsblHv0/AACenp6j/01ISIi7uzsAYPjw4YztENQH\nMzMzmzp1KnpXKfzRgCDUGHeAYnDx4sWwsDBvb+9x48adP3+e3UBFWbQfFjrDTsNgZbATBInj\nmkQURVVVVS1fvnzMmDFisdiDBfqhyZJpwLUMKIqytrYeOXKk1L2MHDmyXbt2jIUqqi3LAFd9\nAPftFvdVlcKvvIlbApXC9ztSmKHucBdYD6TVq1cDAFxcXAoKCioqKiiKqqioKCgocHFxAQCk\npaWxV8EVYVGW51uOdsn06dMBACtWrJBc+OzZs+7du/P5fLYFTFA89LvvvgMA9O7de/fu3fSJ\n2rVrFzxRK1euhM0cHByGDBlCr1VRUbF79+6ffvopjYXUY8zIyGBnIuvp6WVkZMAGCmU1pEps\nsBMUZEGxyteKxWL49uvj4zNmzBgfHx/4hiwWi6WeKDkgzkJA2Jdbzr1J4+np+ffffzM2RZDW\nhuvTJRgN9uzZAy8uDBeh/6XNzc02NjZsBy1BaWBcWrduPX78eIqinj17BgAoLCykf/L395fl\nu21h6Aw7TXL9+vVWrVoZGxtDJUzaOKipqTEyMqKflzRxcXGdO3dmv3C/efOmc+fOcXFx7F3g\nmkQEOkOLWCxYsCAiIgKmAixevJjRnsAywJ3f4aLGh+iBw712FOckaIWvqhRFDRkyBAAwefLk\nU6dO3bt3T6HfkSCzkkzAT74oHYPw8PA+ffqgd6mpqWnixIn0X1QySHzSpElS5zdTU1MBAEOH\nDpX8U924cePLL78E0t4ucD3fuDcFPIrg4GAYFAWXwBJqPB4vMzOT3V6hfcBe5f3795GRkVJP\nVHR0NPT8vXz5ctq0afv27YOr4CopQq5evTp58uRevXrZ29v36tUrJibmzz//RO+51F1grUK2\nCxSkOlzRL/ft/wEAWLly5e1/c/fuXalTFpCMjAx2AoRAINiyZYvU9rg+XYLRgKKozMxMLy8v\nLy+vdevW0QuPHTtmbm5Om/I0uAMUASrKov2w0Bl2mgQ3g93W1lZWiExCQkKHDh3Yy3FNItzw\nJgpfpoHAMsCd3yGYtqAwPXAE6gO4b7cEGBsb+/r6orcniMLB9TsSQBYpWFxcLGk7RkZGSnVq\nQnBFWHA937g3BeTdu3fe3t5CofDIkSOVlZUwseDnn3+W2rhUEbKO/fDhw+PGjXN2drazs3N2\ndo6IiCgqKpLaUkXhSmQhEO+QQTk5KCeKjSyHK8HlJtNAVigzxHBVYvl01RCThztAUfhREASh\nyS0PXVasJsHNYH/58iUlYxCh/uedYjB79uydO3d6e3snJyd/+eWXtra2jx8/3r9/f3JycmNj\nI9SllOTixYv+/v5LlixBPwpcmQYCad9+/fqlp6fHxsbOmDFDcrmenl56erqXlxejPW4dRoCv\n/0mgPsA9CVp+/inAr7xJkFn52Wef7d69+5tvvtHX19+2bVu/fv1oDdK7d+9aW1tjbU0qtra2\nR48edXd3z8zMdHJyYovW7tu3j72Wj48PW2lWFrgiLLjJngSaPgAAAwODPXv2eHt7BwUFde7c\n+cqVK2vWrJk8ebLUxsT5pL6+voiFz9PT062srI4fP/769esFCxb4+voOGTJkwYIFWVlZkZGR\nMTExZB0gE9mR4zhkI3lyzp49a2BggHW6CMSiGUsUXm62BrL8u5s+CvkyQ7RCjST379+XqgzC\nUKshGA1wISgNjCuJQJBF2wLRtGX5UYMbCkYWJK4w5EUS3PAmAohnJOXP7zDAnbbA9cCpIYyP\nIMskKCjI09MTfRcEmZVq8DuqIRDH2NhY6nQ5RVFTpkxp3bo1Y6E6kz3Ly8uhfSw13lSdEIcr\n4YblqRQejzdixAisVWT98ZQooo57dyMeBRdXJfpoUFpaev/+ffltTp8+zfbp4g5QFH4UBEFo\ncstD57HTJKamplLdbACA0tJS9rMtJiZm9uzZ0P02YMAAMzOzysrKEydOJCcnl5eXs8W66LW8\nvLx++umnc+fOVVdXt23b1tPTc+rUqc7OzuzGahBCI5Zl7tmz588//4y4F1w1PlwPHO61kwSx\njDeu7h0A4LvvvuvXr9+SJUvmz58vtZQWu72Hh0dKSkpSUhJKe4Dsd5QfqUkjFAotLS09PT3j\n4uLoP+TMmTOfPn06efLkiIgIGxsblLpDAEGSVJKePXvu2LEjJSWFoab78uXL/Px8mEwgCa7n\nGxFG1TIaOzu7hoaGmzdvSjZgqwEDzKPGhUBJERCpiKn0KMzNzRHrodGQOVyxwL27EY+Ci/gi\n+mjQu3fvyMhI+g85a9asgoKC8vJyyTa//PLLli1bGDLLuAMUwJe8njRp0qRJk+BnNze3U6dO\npaWllZeXd+7cefr06X379kXZ6QePpi3LjxrcUDCCIHFc1CCERmHG26oHXA+cGsL4CLJM6BpQ\ndnZ2gYGBUqNquEThoIM7EAmFwtOnT8N1CQJxcGP8CURYsDzfiGCdIu5HLUcCs1OnTi4uLmPG\njMnLy6Nj5wnClQjC8sjyM9AJCQnp3r07uiiMQh4/fsxYQqCGg3t3ExwFbtUy9NEAACD5NSws\njH2lYJoOe6HCAYoBbv6fDkqXPKFZCDLYKcwgcQJQdIagEsH169cpBPECJfZNdeAm0hJcO9xE\nWoIsExTjANmQUPxYlSPtixjnXlNTc/PmTRj1OHjwYLiuqamprHlSqZDF+OOKsFCYwQAokmBc\nJs4Ijlq+ECb9oujv7w/TSgiUFHFVxNQgJ3vr1i1zc/PY2Fi2ngAuFRUVc+fONTQ0ZCwnUMPB\nvbsJjgLI1kCGUdTs9oijASA17AgGHC2UvNZ+dIadhsENBVM1iOFN8HNJSQlFWsYbIscyULPt\nSOCBU3UYH0H+KYpxwMWYgGBJ+yLi4uLStm1b+Bk3EIdYkhRLhAULAkkwXAiO+p9//hGLxe7u\n7gcOHIChurW1tQcOHHBzcxOLxVVVVVeuXBk0aBAAYNWqVRRRuBJuWJ4a5GRpL5GFhYWvr29E\nRIR8L9Hdu3e3b9++a9euJ0+e0AvfvHmTmpoKYyfYtx6BDjzu3Y17FJRcwy45OZnH4zEWoo8G\ngNSwIxhwcCURlKgl/uGiM+w0j8IMdqmoyCRC1BmCn+vr6ykE8QJ2D1EsAy62YxdFsLtE5j3F\nunaI9TBoOOreqQhcaV9EYKwe/Hz79m0LC4vFixcjTjxpoSQpmSQYFgRHPWPGjE8//RQKgkjy\n9u3bLl26zJw5k6KoN2/edOzYUar/CUVJEVdFTA3XDn30aG5unjZtGh1eLBQK165dS1HUkSNH\nYFamgYHBzJkznz17xtgFgQ487t2NOwZS+FXL0CE27MjAioLQbBVNLUGXPKF5nJyc5GewS9LQ\n0PD9999v3Ljx3r17cEmnTp0mTJgwZ84cup46VOuAAd2Syh0onDx50tfXV2GOgqRgAa54QV1d\n3eDBg0tKSqBl0L59+6dPn5aXly9YsODQoUMHDx6EjoGHDx8CAGDsNvyMDkENb29v7/T09OnT\np+/fvx9IlLIWCAQbNmygA+MYYF073DLexFkmADk/g4BVq1aVlJQMHTp01apVPXr0gAvhdOr+\n/fvT0tLYKR0obN26NTMzE35OTU11dnb+5ptvNm7c2Lt3b/YhMNIIyGL8Vcpff/0VFBQUGhqK\nuyJ6GgHBUefn54eGhrID2gwNDYODg3NyctasWWNkZDR06FAYg8jA1dVV6nJJrK2t4d3Xtm1b\nY2PjsrKysWPHwp+kKm6o4dqVlpYitty8eXN6erqenl6fPn0oiiotLZ0xY0arVq1iYmKamppi\nYmIWLlxoY2PDXhFXDQfg393oR0HnMwEA0tPTGdpATU1NDx48OH/+PD3EaQSsAQor/6+srCww\nMFDqdtzc3ODw3vLRsGGpAwdEZwkXdxpueBMBuKL/SgGxhjeZ9xQRgnoYBFkmWPkZBNMWuNK+\nBOCOWiqSJOXi+SYo00lhphEQHLVQKJSlcB4fHy8SieDnxYsX059xwQ3L0yo52QEDBvD5fPo2\nOXToEI/H4/F47du3v3TpkpwVyeLAVJRDhvLcl1q1DIIiVQM4eOxwKzHiQuA9bXnoDLsPCTWY\nRAQ6QxRmeVk1WAayIKjhrUTIEmmxwM3PIJi2EIlEstILEhISDAwMOHT//4MbiINuTCAWG7W0\ntHR0dITPHrJgAAKBQNw0AoLMhq5du3bq1IkdfQ+FMLt37w6/xsTE2NraYnWeBjcsj+AoiFFY\nLdDU1JQx+Qtlyf/44w/5W8aNA1MpXKqWIb5aAAAEAgF9v8DJIsZNBBcytk9QiREXXRYtpTPs\nNA5K6hwNgUmEm/GOG95E4ZeXVYNlIAesGt5ywFWOoEjD+Cjk8rUUt/wMBrKCvnGlfdUAujGh\n0D5jIBAIjh8/TuF7vnHLdFL4aQQEmQ3fffcdAKB37967d++uqKigKKqiomLXrl1Qt2/lypWw\nmYODw5AhQ+BnrAGKjcKwPPXIySJ6ifh8Pgz4o4mOjgYAsDXh2ahCDYcjuFXL0F8t0O8gxi4I\nKjHiosuipXSGnWbBTZ0jMIkAZsY7gc4QbnlZRMtAjuXERurWpCK1hjcBuMoRENxEWtxpC9z8\nDIJpCy8vLysrq1evXjGWv3jxol27dmKxWOrWlEVjY+POnTvlt5FjTHARYVEI407BFQjkmEaA\nktnw/v17OEEGkfwrRkdHQxv05cuX06ZN27dvH6WW3F6Co8AF3UsEAGC858B6bog7wlLDgWCV\n6OBoZFMU9eDBg82bN+fl5UmVKUV/tcCq2ysJ4gDFJQpCq7ynmkJn2GkS3NQ5AmeJHMNOasY7\n7hsYRVEikcjf3x+l/xBEy8D838ixotDTu2TV8KbwE2lxlSNo0MP4CKYtcGWWCaYtCKR9lcLd\nu3fnz58PtXhUtAs2kiIsClF47yi8j7DySYk5fPjwuHHjnJ2d7ezsnJ2dIyIiioqKpLbkktuL\n7mZWNeheIo6GHS5YIZUERjZu1TI1ZCgjDlCwk8RyWlroPVUzuqxYTYKbOodbB0k+169fNzMz\nYyxEz72iadOmTceOHdHbT506NTw83MPDY+HChQMHDrS2tn727NnRo0cXL1784sWLH374ATaT\nzGytra398ssv3759u2TJkgEDBhgbG9fW1p44cSIpKalVq1bsRCfcGt4AP5E2KSnp2bNnZWVl\n9NDcqlUrPz+/AQMGODs7Jycnr1mzZteuXQ4ODtnZ2dD3A0FPpE1NTW1sbLx48WL79u0ls5uN\njY3/85//nDx5kr0KbqEzsVi8Z8+emzdv0vmtkBs3buzZs2fo0KHs7YSFhV26dCktLY1dDmvO\nnDmSGXlKobGxcffu3evXr4fGB4/Hg+ayejAxMamurmbkFUrF39+f4N6RBDeflBhfX19fX1+U\nlmS5vWfPnp08efKff/4JADh8+DDcV25ubmpqanp6Ooxak8PDhw+Li4uNjIz8/f0NDQ2xdi0V\nrGqBmZmZubm59Nd3794BafXxqqurOfYqNzd3/vz5ffv2DQwMXLBgQXx8vKmpaXFxcXFx8ciR\nI9kpqykpKTweLysra+zYsYj1HnGrlqkhQxlxgOIiiQAws2hbJpq2LD9qcFPn0J0lo/8HAMDT\n03P0vwkJCXF3dwcADB8+nPtRhIeH9+nTB+udHlf0Py4urnPnzuyg7zdv3nTu3DkuLo6xXNa/\nHauGt/xEWltbW1m9nTNnTocOHeDnmJgYY2NjlN2xwZ1XpfDzM4inLVQn7Utz+/btuXPnwsEd\nAGBpaZmUlHTv3j1Z7d+8eZObm5uYmBgTE5OYmJibm8u90oA6B1J1phEgQpDbi+tmxvUqEYDu\nxlbn5cYNqRSJRCEhIVi7wK1apoYMZTUkkOmgdB47zeLr63v+/Hn09ujOkm3bttGfz549e/bs\nWfbWPD0909LS8HosjW+//dbDwyMhISE1NRXxDXv16tWBgYGbNm0qLS19/fq1iYlJnz59oqOj\noZgLm+3bt48dO5ZdA9vIyCg4ODg3N5dxIEqp4S0QCNzd3QsLC52cnJYtW7Zo0SLJX1++fEnJ\neBI0NzfTb6U2NjaNjY2Ie2SAq3sHAEhISBgwYEBQUBB8F3/37t2FCxdycnLWrVunr68v6TiE\n9OvXLz09PTY2dsaMGYztp6ene3l5yerbgAEDBgwYgHtEKDQ0NOzcufPXX3+FgfNCoXDEiBH5\n+fnDhw+HUaFSKSgomDRpEsMlY2Fh8euvv8oStUJEX19/8ODBlpaWXDaCwrBhw2JiYh49etSh\nQ4dFixaJxWLar6anpyfVzXz8+PFVq1adP3++qqqqqamJ8Sv0N7NBl8rDHaAAvpsZ16tEALob\nG/rnEIH/q+XLlzs4OCj8j+3atYux5OrVq6NGjTI0NPznn38AAM3NzXB5WFhYbm7u0qVLYYwm\nTatWreiXHESqq6vpuZ1Tp04BCXlOd3f39evXM9q7uLhcv34dAMDj8QYOHPjLL7988cUXHh4e\nhw4d2rZtm3zhTERwBygdhGjYsPy4IUido9CcJVwy3glAKS/LBaFQGB8fL/UnSf0tFSE1kZZA\nOQI3kZZA944iKlJHEPStCm7evBkfH29hYQH77OrqunbtWpi8CQBgpCtKcuTIET09PYFAEBkZ\nuWHDhr17927YsCEyMlIgEOjp6RUXFxN3CYqeCASCESNG7N+/H9HXS4MVGs9AYRoBWWYDVlwX\nwQCF62bG9SoRoCIvETxjxHFguCGVBAI6uFXL1JOhrG1VNFskOsNOkxCkzskBKhIzwM14JyjG\nhVhelgvdunWzt7dniw5AK6pHjx7cdyEHqYm0BMoRuIm0xA8kVcgsv0SGeBfw8K2trePj48vK\nyhg/yTHsxGKxoaHh5cuXGcsvX75saGjIcRLz5MmTUVFR0FvcsWPHRYsW3b9/H2VFLBOKAILM\nBhQ9C465vbjpOwKB4JtvvoGft2/fDgA4ePAg3d7U1BTvpEiDWGZIPhzLKuLOexIY2RxrEqoi\nQxmCO0ApTAfmkkXbItEZdppEjjEkdfSPjo6WFTZ0584d3Pc5qbDFWmmDo02bNlLDLBDLy3Jh\n9erVAAAXF5eCggLaiiooKIBWlFT/B5ZmshxkJdLiKkdQ+Im0BA+kM2fOSC2krRCFOYwK/6vc\nTRYAAI/Hi4qKYsf2yTfsDA0NZf06fvx4tmeCgNevX2dkZLi6ugIA+Hy+n59fXl6e1FcpCK7a\nMAEEQVcocV3oF1rqtcZ1M+N6lcjQQi8RSkglRyN7z549AAA9PT2YDEEHYTc3N9vY2Hwoim4o\nnml4QYm9py2Pj+IgtRZchX0AgKOjI/vlJjc3t02bNir6yyosxmVsbOzr66twO1ii/9HR0ZKz\ngU1NTRMnTqTvTMkxetKkSewJMlzNZIqiFrFYsGBBREQEPLGLFy+WelDoyhEUUQl23AcSj8cb\nMWKErA5IBVEqz/bfQA+WrTSw9i5JamoqTAMCAHTr1m3ZsmV0rTMg17Br27ZtUlKS1J+SkpKU\n4vWhKS0tnTp1Kvx3WVpanjt3Tmoz3NB4GvQUEILMBhQ9C4WDkpwBisJ3M3P0KqGj0mqBuDrw\nFNq8p0IbRaG9QlC17MmTJ1evXv3zzz+fPn2KeRpUAopnmqP3tOWhM+w+JJKSkvh8vqGh4a+/\n/gqXvH37dtKkSQAAMzOzXbt2wYWq8EvLKcaFWF4Wa5ACAAiFwtOnT0tuobi4WDK4MDIyUlbY\nB65mspzuYSXSyocskRbrgWRhYTFu3Dj0LhFX+JFaHZI7zc3NBw4cCA4OhvWIoG8Mer/kGHYB\nAQGyRLZ8fHwCAgKU3s8jR4506NABAFBQUCC1AZkk2M6dO+kQQxoLCwupeyEIulKDVB6um7ll\neJUApg48G6nznhyNbCwqKirmzp0L/9U0HTt2nD9/flVVFceNc4HAM61DZ9hpBehinkVFRdbW\n1gCAsWPHnjt3DgrziMXiBw8e0G3gPal0v7SsYlyI5WVVKvrPAFczmaKovSwKCwtPnz5dU1Mj\nf0X0a6eGEuwhISHdu3dHj8IhrvCjIsOO5tmzZ8uXL+/SpQv9R3V1dZXlHrt27ZqJiUliYqLk\nxaqpqUlMTDQxMbl27ZqyevXy5cvVq1c7OTkBAAQCQVBQkCw/DYEJhZsCQhB0pQY9CwrfzUzg\nVcICBm+oFDmGnVQdeHT279+vhkymv//+m3aWC4VCW1tbGxsb+HK0a4r1AAAgAElEQVQFAOja\ntStiXCkKuPUzCDzTOnSGnYbBrRlFUdSzZ89ojVY+n79gwQLGyK4iv7SsYlwE5WVRwBL9Z2Bp\naamGsQD32qmhBPutW7fMzc1jY2MRJdwIpPIgqjbsIM3NzUVFRaNGjYLuHACAs7PzDz/8QLHC\nj8RiMQCgbdu2Pj4+Y8aM8fHxgbOlYrGYuzhWc3PzoUOH6G5069ZtxYoVz58/l7MKgQmFkgLC\nMegKVypv27ZtAwcOpCfEaR4+fPj555/v2LFD1uGrdN4TF6iYs2fPHqmueqUgx7AbNWoUemkc\nqVvG/QOXlpYqtMNOnz5Nd7ipqQlKmXh7excVFdGRo3V1dYcOHerXrx8AoH///gTVR9gQpHIT\neKZ16Aw7TUI2EfbPP//QWvCmpqaHDh1SQ1flFOOKxC8viwKU5SNbl0AzGReCa0eQSIsLfS0s\nLCx8fX0jIiLkXwvcHEYa9Rh2NC9evPj++++7detGu5kVuqLJ3NIMHj58mJKSAtUEDQ0Nw8PD\nZb1uMSBQG0ZJAeF41Lh6Fr6+vnS4JwMXFxc/Pz+UUyGHe/fu5eXlbd++vby8nOOm5EBXVWnX\nrt2sWbOuXLmirC2rQQeewLBjrBIXF8fOWYGJX/DzgQMHAAB+fn5SDd+GhoYvvvgCACAnMBQd\nglRuAs8096K6Hzo6gWJNQlAz6vLly2PGjLl9+7afn19QUFBCQoKfn9/cuXNTU1PZ0x8AgMrK\nSnbdMDkQFOPasmUL/HD//n2ptY82b96M3gGarVu3ZmZmws+ffvqp/MZ37tyR/EqgmQwAqK6u\n/vnnn69evfro0SO2qjBD5Jng2s2ePfvatWtbtmyBtqC+vj4tIRsdHQ21YV+9evX3338/ePBA\nfvIHAEAoFFpaWnp6esbFxdGlcuhr8erVq6KiIvZajGuBW4JMU1haWiYkJCQkJBw7duzXX38F\nRLXvCLCzs2tubob1lMLDwxVeFBoCtWGRSCTrhLdv3x4aYRyPetKkSTAkFwDg5uZ26tSptLS0\n8vLyzp07T58+vW/fvoz2ZWVlsqR33dzc2KX8sJg9e/aaNWuo/2VDx8XFweR3pXPjxo1z585t\n3boVKpmnpaW5uLhERUWFhobiSv4ywNWB56hpTMbLly/ll6TLz8/n8Xg//vij1CeIQCBYt26d\ng4NDXl4eQzOZAIIidYsWLXJyckpOTs7MzOzVqxf7HmSMaXv37g0MDGxubjYxMenatavUg2r5\naNqy/KjBnQj74YcfhEKhvr7+8uXL4RvPrVu3evfuDQDw9PSUWm0JdxpC1v9ETg6BqqN6KSIR\nFlzNZNxEWuJJTIWJtLi3sGSWCe61IJbKU7PHTlMAAPT19eUoS9PI3w6KJJj6U0AUIhAI5s+f\nL/WnefPmyXHoKgRWR+Tz+W5ubq6urnB6Lisri3iDKNTX1+/YsSMgIACOHvr6+gEBAXImlBWC\nqwMPb1is6GfA2WMn9VaV9Nj16dPHyclJ/jYdHR2VMh9KEDCHeKJoCJyCLY+P0pjVGnBrRs2c\nObNjx445OTl0raeuXbueOXMmISFh3bp1vXr1Ypem7ty5c35+fn5+frt27cLCwiIjI+HEnywI\ninH16tVLzgaVAvu4GhsbS0tL4+LiLCws8vPzGb/eunVr4MCBcC2pzjM2cXFx1dXVSUlJUVFR\ntra2Ct/zCOp9QRSWYEesa/T+/fvHjx+vX79+9erVycnJBw8eBPjXQlfhRyHv37+X7/BAwdXV\nFZoycvj222+9vLz+7//+Lykpib7XamtrU1NTL1++fPr0aY59IMDc3BxaLWzu3LlDvwhhFW2D\njqiNGzfyeLzCwkKogrlv376AgICNGzdi+XJwgW+5I0aMePnyZVZW1tatW2GaFIX/NgWhZxKW\nL18+ZMgQhRMLD4lq27979w7mVssHJtUR8ODBA4WuOEdHR5jmzBGCInW4XmoCp2ALRNOW5UcN\nrpjnV199RVfLZrBz505Zel1nz56dOnUqPSHr4uKSlpYmP/SbmKqqqvLycrWlx8sSYSHQTMZN\npCWr9wVBT6RFQWqWCfouEHMYGR5TmDEnVYlQKQeFRVNTU3Fx8ZIlS6ZMmTJlypQlS5YUFxcr\nRaEGMZWbrU2ICPcUEBTdO+KqISEhISKR6MaNG4zl169fF4lEtBYJwRPHzMxswIABktsUi8Vc\nkgyweP/+/YEDB0JDQ+HfWD07JYPgUQ4wPXZCoXDChAnyuyErcw4XsiqaWOiyaCld8oRmUW4R\nQ/kByEqfhmBsXFJdFgDQqVOnpUuXShU0Vi5SRVgQNZMlwU2kJbt2BEnQCmFkmRDsAiWHkeAB\nox6OHDnSvXt3dje6d+/OpUqsekA/q1JPLKLuHfEuTp8+zefzzczMfvzxx9u3b799+/b27ds/\n/vijmZkZn8+nC4QoTL1nv1Px+Xz4XkQTHR3N5/OVdmZlcO3atblz59rY2MDj7dq165IlS1S9\nU0QePHiwefPmvLy8t2/f0gsBAK1atcIKBgCYhh0AgC7+IYvJkycT39ocU7klQXEc6LJoKZ1h\np1lUVMRQPi9evEhLS4OReUp5DL97965///4AAB6PZ2Nj4+rqamNjw+PxAACff/55XV0d913I\nQeqrJKJmsiS4ibQE145YDVg+DQ0NtMdIRbugVO+7IiMvL09PTw8AYG9vP2HChMWLFy9evHjC\nhAlwllxPT2/79u3q7A+uCcVFgRZd945L1ZCMjAx4hiXR09PjqDDHNia4mA4KefXq1dq1a93c\n3GD/27RpM2HChJMnTypxF7iZmCtWrOjWrRs9A3PixAl6/t3Z2ZkOzgOqj7FTtWGHflPI2gWW\n40ANTkHtR2fYaRiUiTBcXSL5SJ2G4HLjpaamAgCGDh0qOWVz48aNL7/8EgCwfPlylF6RIUuE\nBVEzWZJHjx7Z2trOnj1b8nVZPrhCrMRqwOioYRfaw8OHDw0NDUUi0fr16xkTr01NTevXrxeJ\nREZGRmwZNtVhrgj64c19Xyi6d1LBTXy5evXq5MmTe/XqZW9v36tXr5iYGO6SuWxjQnWGXWBg\nIF3IZNCgQVlZWej3OCIE8mweHh4DBw6U/CoUCufNmzd+/HjJYRMQGXYCgUB+1ARj8BcKhfIr\nPUIFR7KTw+XthcJ3HHB0CrYMdIad5lE4EQYwdYlkIWcagssDycnJydHRkZ1129jY6ODg8Nln\nnyGdBbngFnIl00zGTaSlMIVYiRNp0cHdRVhYWGxsLCN3D3LkyJGwsDDuXVId8fHxAICtW7fK\nagB1EGRV+1AzjY2NGRkZVlZWAAAuFXVpUHTvpKKGjOaKiordu3f/9NNPaSxgA7YxAU0HVYRs\nAgC6d+8uWXpY6RBkYlpaWtIe9CdPngAA6K8+Pj60LUhm2GG9peO2VzO4jgPtPAo1o8uK1TxO\nTk5r165Fb69Ql4hBRUVFTk7Oli1bLl68CP43DREVFQULqkJevXola/X3799v2LAhOTm5trbW\n1taW3eDOnTszZsxg+6709fWHDRu2bt069K7KIiUlRepyKMKyYMECxvLU1FRnZ+dvvvlm48aN\nvXv3NjExYTRgS+sRJNIC2dfuyZMntAFNQ5xIiw7uLrKysgAAx44d27dvn52dneRPt27dysrK\nUpjLqUEOHjzYtWvXcePGyWoQGRm5dOnSgwcPfv/99+rsGJs9e/YkJibevHmzdevWS5YsgSap\nVCorK0+ePPn48eP6+nrGT1DpkAZF904jLF++fPHixXV1dVJ/pY+ioaGhoaGB8evr16+V3p8z\nZ854enoqfbOSEGRiVldXm5ubw8+nTp0CAAwfPhx+dXd3X79+PXFnENPqidsrhfv37z958sTR\n0ZE9ODPIyclxdHTcvXu35COmR48ee/bs6dmzZ1ZWFszop8HNom2R6Ay7Fk5QUFBhYWFjYyOc\nhoiKigoKCkLX7EV5IAkEgrdv30pd/c2bN3TBQS7girAQaCbPnDnz6dOnkydPjoiIsLGxIZa1\nrKysXLFixdq1a9nnRA1qwAS78PT0PH/+vLu7++7du1X9/FMu5eXlQUFB8tt4eHhIykernwsX\nLiQkJJw4cUJfXz8mJiYlJUWOKC6iSQTp37+/LA2UU6dOwQRbpYBuawIAcnNz58+f37dv38DA\nwAULFsTHx5uamhYXFxcXF48cOZK2XdRpTEj+q6urq1+/fm1iYoKuNY1Cq1atcLWOzczMnj9/\nDj8fO3aMz+fT/RQIBOxTjY6BgYFK23Pk7NmzkydP/vPPPwEAhw8fhtpPubm5qamp6enpn3/+\nOaM9ruNADfJbHwCadhnqUAzADIZlrEs2DXH+/PkBAwYAAOADSY48ipeXl5WV1atXrxjLX7x4\n0a5dO7FYjLVfpUAQyYGVSHv37t3t27fv2rXryZMn9MI3b96kpqbCF1CpE2HKTYKWCu4uAAAZ\nGRkFBQWtWrUyMDDIzc2lf8rIyNDy8UEkEsmai6SJjo42MDBQT38Y3L17d+zYsTAYaPjw4WzR\nEAY5OTkAgL59+y5duhQAEB8fn5qaCqOFRo4cyY6gvXbtmomJSWJiYk1NDb2wpqYmMTHRxMTk\n2rVrsnaENRW7bNkyOQ9+dnuxWGxlZfX27dunT58CAPbv3w+X//7773p6ekopS0WAqtP2CTIx\nv/jiC2tr68ePHz9//tzCwoIuQEdRVGhoaOfOneHnqqoqxLrPHwQE2V3Gxsaysr6mTJnSunVr\nObtTs/yW9qDVA3cLZvPmzcuWLaMDPxcuXNjl38THx9ONuRh2Z86cwe0b7gMJztZ16dJl8+bN\n5eXldXV15eXlmZmZcBjNycnB7YBGQEykbW5unjZtGjw5AAChULh27VqKoo4cOQLnqQ0MDGbO\nnPns2TP2umpIgsbdBTTsKIq6dOmSra0tj8dLSUmBP2m/YWdvb68wRcbDw0NqgWOVUllZOXv2\nbDgZ2rdv3+PHj6OshWsSKdS9kxUwjm7Y4dqaFEW1bt0aWttQU7ewsJD+yd/fX1ZpDZWihrR9\ngkzMPXv2AAD09PRgcCE9TjY3N9vY2NAagS0MguwuAseBBuW3tAStHrhbKv/973/5fP6UKVPo\nJTAjTBI+n//f//4X/srFsKNBUawleyBRFDVr1iypL/Rz5sxB3ILGQUyk3bRpExyO+/bt6+bm\npqenx+PxNm3aBDUOYmJiHj9+LGd13ERaArB2QRt2FEU9fvy4T58+AIDQ0NC6ujrtN+wiIyN5\nPJ6sCl0URZ07d47H40VFRamtS3V1dStXrjQ1NQUA2NvbZ2dno0fT45pEUu84WUiuiG7YEbjf\nRCLRvHnzKIqqrKwEAGRnZ9M/JSUlaUS/Wg1p+2SZmJmZmV5eXl5eXuvWraMXHjt2zNzcnKOa\njNZCkECG6zjQrPyWlqDVA3dLZf78+Twe7++//6aXQMPu6f+AxaTpKo0cDTsUxVouDyTI8ePH\nIyMje/bsaWdn17Nnz6ioqBMnTmBtgY38DHwaS0tLR0fH6OhohgqDwtQ8SRATaQcMGMDn8+nz\ndujQIR6Px+Px2rdvf+nSJZSDwkqkJQN9F5KGHUVRb968geWhvLy8YKF65XZMucDaRJ988onU\noysrK/vkk08AABcuXFBbl2Dmiqmp6cqVK3EfIbgmEbqEhLGxMVvqQuqtxNgFgfvNzs5u4sSJ\nFEU1NzcbGxvDI4KMGzdOI4adGtL2sQzrjxl9ff3ExERKmmGXmJgoq7gFluNAg/Jb2oPuD6cB\nPD09GUWX2RpOPXv29PLygp8Bpi6RJIgxDVweSKoD0RtBIxQKT58+DdfFjQ2KjIz08fEBANjZ\n2QUGBsp65zY1NWU8z2C07x9//MHxYOW7+lQE+LdhR1FUU1PTnDlzAABQl0v9XcICdlUoFEZE\nRGRlZZWUlJSUlGRlZUVERMAZrrlz56qzP/DfZW5ujl4ngEZ1JhH6HcRYkcD9Nnz4cDpczN/f\n38zMrKioqKamJj8/XygUylHXUx0ikUjW1EFCQoJSQjAJgnpplFtgUMshrsSI7jhQgx2v/Wj7\nwN0iMTU1HTVqlOQStmEXGBhI+6WJx2UKOaaBywNJdSCWOqipqbl58yasWD948GCKKDYI8dzy\n+XxGwH50dDQAoLa2lvgwKyoq5s6da2hoSLwFYmxtbaWejQ0bNmh/GU2Kopqbm5OTk6WmMOvr\n6ycnJ+M6njnC5VYlNokUWgbEVUMIbM1ffvmFx+PB0mEXLlyQVF3R09M7evSonLOnIrhE36sU\nVRQY1HIIEsjOnDkj3zJmoAY7XvvR9oG7RaKvr88wDq5cucIo7xgdHa2vrw8/c6nmhBjTwOWB\npD24uLi0bduWIooNQnznBqSK+WSJtBrk6dOnt2/f1nQvkLh3797ChQt9fHwcHBwcHBx8fHwW\nLlx49+5d9feEy61KYBKp2jLg7n67ePFiWFiYt7f3uHHj5ERDqhQtTNunVFn9T5shSCDj8Xgj\nRoxA34XW2vHqRKuf0y0VExOTkJAQ+W1GjBhhamrKfV+IMQ1cHkgUfp1EFTFmzBhoY6kuNY/A\nsOOSSIsIx2BEHVqIQpNIDZaBFrrfCFBb2j5WUO9HVf1PEtwEMgsLi3HjxqFvXzvteDWjM+w0\ngIuLi0IJBliWkfu+iGMa0CGok6giGhoaoOmputQ8gF8KiWMiLWKvsBAIBAwPMRv06sM6NIL6\nLQNtcL+RoYa0fdygXjUUGNRasBLIQkJCunfvjq4j0zLktziiqzyhAXx8fNasWXPw4EE/Pz+p\nDQ4cOFBeXi5rMMLC29u7sLCQrWNeXFx8+PDhiIgI7rtISUnh8XhZWVm0+p2mgP58AIC1tTUs\nkta2bVtjY+OysrKxY8fCNvKrsaGI7OOWQtq8eTOfzz9y5AhMszh8+LCfn9/48eOtra337dsH\nFUY48g5Nx//9+/ePHz9ev3796tWrp02bBhNgAQCzZs0qKCgoLy+XbPzLL79s2bIlPDyce/d0\nqIIjR44EBQU5Ozuz6wH26NHjzJkzSt+jq6urrBJz+/btQ9yIv7+/8nqEyurVqwMDAzdt2lRa\nWgorT/Tp0yc6OhrqYnAHsd6GJGooMKi1YFXRXLZsWb9+/eLi4lasWGFkZKSwfVhY2KVLl9LS\n0qKiohg/zZkzB87qtHw0bVl+jNy8eZPP59vY2EhVh//rr79sbGwkdey4oAZRXJFIpHBmWc2Q\nxQahvHMTzFmrLpGWGACApLIAmTKiDqXwEhnGimTKESpCm584uNH3BBAE9aphLqVlQOsVWFhY\n+Pr6RkREoGgEqkJ+6wNC57HTAN27d1+4cGFKSoqrq2toaOigQYM6dOgAAHj06NHhw4ezs7Pr\n6uqSk5O7devGfV/e3t7p6enTp0/fv38/kKgzLRAINmzYQEdec4GgTqKqGTZsWExMzKNHjzp0\n6LBo0SKxWAwrEgIA9PT0oEIbA8R3boK6iq9fv5bUQAcAdOnS5fjx47Bim6ZgOx11aARLS0vE\nltS/7Sc1lB5mcPTo0aKioqampv79+w8bNozxq76+/uDBg9EPR214eXkFBwfv2LFDdbu4evXq\nqFGjDA0N//nnHwBAc3MzXB4WFpabm7t06VKYki+JGuZSWgZ04e9Xr14VFRWxGzAKf589e9bA\nwGDAgAGaHWA1jKYty48U+TINKSkpypVpUKkoLkGdRDWDEhukuhqXgDSRVnUAAMLDw+mvOo+d\nBrH9N3CyyVYajBVVV3r42LFjw4YN27t3r+RCRmTI2LFjJccoR0dHAIBAIBgxYsT+/fubmpqI\n9650cKPvCSAI6lXDXIr2wMUgwdUIxM2ibZHoBm5NcufOnaSkJEmZhqSkJMmKFCqFTjXgCEGd\nRC1EqxJpVQ1QRpE6HaoAvd6X6iyD6dOnAwAk9WJOnDgBABCJRBMnTpw6dSqsSJuXl8foT1RU\nFDRMO3bsuGjRovv37xP3QYngRt8TQCYurYYCg1qCuSKMjY2V5WlSgx2v/egG7o8XZT25yeok\nahtalUiranSGndaCbthRKrMMXF1dnZ2dJZfAmcFt27bBr+fPn+fxeP7+/ux1X79+nZGR4erq\nCgDg8/l+fn55eXn19fVc+sORW7dumZubx8bGvnnzRkW7IBb8U0OBQS2nsbExIyPDysoKOqq5\nb1ANdrz2oxu4P16U9eQm8K6rmeLi4vnz5ycmJu7bt09WGy0s6KQ6dIad1oJl2FGqsQysrKyC\ng4Mll9jb27dr105y7tXLy0v+Y7i0tJT27VlaWp47d45jr4ghi77HomUI/qmf3bt39+jRAwDQ\nunXrJUuWvH37lvs21WDHaz88Cl8ES0fLICoqCr7Zc9zOlStX5Dfo1asXx10gcvz48e+//z4m\nJkZSUmH27NlpaWn017Fjx2ZlZbFlWb766quKioqTJ08CAAICAk6fPp2Xl+fh4XHo0KGxY8d6\neHjA2SgC6urqEFsSZGaQwePxBAIBrR3w9u3bxsZGWACDBi7UjQ9qJjw8PCsrS7OnXSAQfP31\n1+vXr4dfq6qqzMzMQkJCtm/fTreJjIzMzc1lx/4zKC4ujoyMfPToUUFBAS2vo2YUajAp/WxD\nuY3y8vLOnTtPnz69b9++yt1+C+DChQsJCQknTpzQ19efMGFCSkqKnAy848ePr1q16vz581VV\nVU1NTYxf379/L/k1KirqwYMHR48etbCw6NWrl42NDeMPwEi2aJHosmJ1cEVtdptC8vPzCwsL\nJRWSSkpK0tLSRCJRRESEQCDIzs7OyckJCgoaOXIkY12CRFpE1GauYdHY2MjQ3pMjxafjo8LI\nyAhGmkIuX74MAOjdu7dkG319fUm/FINXr1799ttvGzduvHbtmkAgCAoKcnFxUV2H5VNaWqrm\nPcoR/NNx7969BQsW5ObmUhQ1fPjwFStWQKedLPbu3RsYGNjc3GxiYtK1a1epGYeS4GbRtkh0\nhp0OZVJdXQ31P+EUjJo5ffq0s7OzpLbIhg0bAABbt24dNWoUACAqKsrDw2Pr1q1sw27SpEmT\nJk2Cn93c3E6dOtWC37kRBY11aCGxsbF2dnbx8fGw3ItUUlJS9u7de/HiRbJdODo6FhcXV1dX\nw7t47969AACxWCzZ5v79+1CkSRKKooqKijZs2LBr166GhoZu3bqtWLEiKipKs3JI2vPmieWz\n3LVrl+p6ohGqqqpSU1PT09Pr6+v79u27cuVKFEUSXAF89dvx2ogGp4F1aBYlBlHV19enpqZK\nWlSdOnVaunRpQ0ODUraPiFJig3To0CAKY+zg/RUQEFBbWyurDcdbG4YuuLm5bd68ecmSJUKh\n0NbWVjIava6urnXr1pL32sOHD1NSUmApBUNDw/Dw8GPHjhF3QIncu3cvLy9v+/bt5eXlSt/4\n+/fv+/fv7+HhUVNTw/61pqbG3d194MCB9Kn7aB/NdXV1K1euNDU1BQDY29tnZ2ej63lpoQC+\n9qPz2OngSl1d3eDBg0tKSng8no2NTfv27Z8+fVpeXr5gwYJDhw4dPHhQzpSNcqmoqDA3N6e/\nVlVVlZeXh4SESL7nffrpp8SeDB06lA7Dt/327Vv2Qkh1dTX8wOfz9+7dKxaL9+7dy3abcWfK\nlCl5eXlnzpyBRZn09PRWrVqlp6dHN/jjjz9qamqGDBlCL7Gzs2tubu7Vq9fatWvDw8M14rBn\nM3v27DVr1lAUBQDg8XhxcXGrV69W4va3bdtWUlLy22+/0WodkhgbG0+ZMuXrr7/esWPH6NGj\nAQAPHz5U4t4/IHr06FFeXm5qarpy5crY2FisJ4IWCuBrPzrDrmWCMrDCRwh3Vq1aVVJSMnTo\n0FWrVtHREjdv3pw9e/b+/fvT0tL+7//+Tyk7Ugj32CAa+SL7OnQoC6mhjfLjHceMGWNgYLBp\n0yZ3d/c9e/a4ubkpt0sikejo0aO//PLLmTNn2rVrN2bMmH79+kk2ePLkSWRkpOR90dzcrK+v\nX1VVtXLlypUrV8rZOKMkserIyspKS0vj8/murq4URZWWlqalpbm5uYWGhiprF9u2bTM3N6fr\nULMJDw+fNWtWTk4ONOxUYYV/EMCLzufz165dK79KLPvv4evre/78eZV1rYWiaZehDpWgzj+A\nk5OTo6MjzKCUpLGx0cHB4bPPPuO+C0Q8PT1btWpVVVUFv86cORMAcPz4cck2X3zxhYODA/2V\nQGRfhw4lglt9GPxPqubbb7/l8XiGhoY7duxgbFP9UjVa+MTx8fHh8Xh0CRkYKchFaZyNjY2N\nVDE/SYYOHWpjY6PEnX6IcPl7EAjgHzt2LCAgwMrKSigU6rFQ6pFpKTqPXctEndHxd+7cmTFj\nBjtZSV9ff9iwYevWrVNbT0aPHn327NlBgwbFxsY+fPgwIyPD1tbW29ubblBfX3/+/PlBgwbR\nS7gk0urQwR3ipOnExMTu3buHh4ePHDkyNTV1/vz5yu0YFlqYjnP16tX+/fvT88X+/v5isfjq\n1atK3MXLly8VzhJaWVlJLembl5eXkZHx+++/29raSi5/9OhReHj49OnTR4wYocSuahbcvweM\nAaBxcnJKTk7OzMzs1asXezKKkeWKm0XbMtG0Zanjg8fY2HjatGlSf5oyZUrr1q3V1pO6ujrJ\nOSM9PT2YVE+zc+dOAMD69evpJVxE9nXoUD/g3+LSly5dgpZBREQEXeBBJy5NURSfz4+OjpZc\nEh0dzefzlbiL1q1bjx49Wn6bUaNGtWnThr3c19cXzhGzcXFx8fPzU0L/Pli42DCurq56enpZ\nWVkf8zTLR2nM6lAqPXv23LFjR0pKimTiAgDg5cuX+fn56tSvIogNevTokaRLDwBw4sSJdu3a\n0f65vn379uvXT5dCr0M76dOnz/nz5wMCArZu3Xrv3r2dO3daWFhoulNaQXNzs0AgkFwiEAia\nm5uVuIuOHTvCQF45XL58+ZNPPmEvLysrk6V+4ubmtn//fiX074OFy3j7119/BQUFKTGS8kNE\nZ9jp4MrUqVPDw8M9PDwWLlw4cOBAa2vrZ8+eHT16dPHixSfcN3EAAAObSURBVC9evPjhhx/U\n2RmRSDRjxowZM2ZI/XXatGmMJbpEWh0fOjY2NiUlJeHh4QUFBR4eHoWFhZru0ceCj4/PunXr\nDh8+LBndIcmhQ4fu3LkTGxvL/qmyspLxJkzTrl27V69eKbOjHxpcpAd1WbRAZ9jp4E5YWBgs\nocMIjAAAzJkzZ8yYMZroFCpKTKTVoUNTGBkZ5efnz5s3b8WKFf369evYsaOme6QVZGZm5ubm\n0l9hpBc7SIvWkcFl6tSpP/30U2Rk5MGDB52dnRm/lpWVRUZG8vl89vskAMDc3Pz27dtSN3vn\nzh0t0Yv5ENFl0QLw0cdh6FAWx48fj4yM7Nmzp52dXc+ePaOiok6cOKHpTimGIJFWhw4NAv4d\nY8dg06ZN9PyjGjuljajnIZiSkgIAEIlEkZGR2dnZJSUlJSUl2dnZkZGRQqEQAJCSkiJ1xZCQ\nEJFIdOPGDcby69evi0SioKAgLr1qAeCKP9MQZNG2PHiUrsi3Dm6cPXvWwMBAe+r2YLFmzZpZ\ns2a5ubnBRNolS5ZYWlrev3+flmOtr6+3tLQcNGhQfn6+ZruqQwcAwN7ePiQkRI5W3PHjx4OD\ngysrKz/ysb2urg6xJcdqzsuWLUtOTm5sbGQsFwgEycnJsrKVz5w5IxaL27Ztm5yc/OWXX9ra\n2j5+/Hj//v3JycnV1dUlJSVeXl5cevWhk52dHRYW9ttvv4WHh0ttsHnz5q+//jo3N3f06NGM\nyaKHDx8WFxfb2dmhZNG2SHSGnQ6u8Pn84ODgHTt2aLojJNTX1/v4+Jw5cwZ+helUUE0UUlBQ\nEBwcvH79+okTJ2qojzp04FFbW1tbW2ttba3pjnwslJeXZ2Zmnjx58unTpwCA9u3bi8Xir7/+\nGtZYk8XPP/8cGxvb1NQkuVBPT2/dunUxMTEq7bD289VXX506der58+eSJU8kef/+vaWl5eef\nf75r1y6UGrI0H4PNo4ux08EVc3NzIyMjTfeCEIJEWh06tBxjY2OpRa50qAh7e3s4J4tFTEyM\nl5fXTz/9dO7cuerq6rZt23p6ek6dOpUdrvcRcvHixX79+smy6gAA+vr6Xl5eFy5cANyyaFsk\nOo+dDq6MHDmyrKzs2rVrcm5CHTp06NChAxGhUDhu3LiNGzfKaRMdHf377783NDSorVcfCnxN\nd0DHB8+yZctevXoVFxenrOKzOnTo0KHjY8bAwODNmzfy27x588bQ0FA9/fmw+H+j3Vixlhx6\nRAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "barplot(words.per.clause$words.per.clause, las = 2, col = c(rep('red', 11), rep('blue', 7), 'red', rep('blue', 7), rep('green', 3), 'red', rep('green', 3), rep('red', 11)))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.10 The Boxplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "source": [
    "We have discoverd the mean of the number of words per clause per book. However, there is more to discover than just the mean. How want to know more about the variation within each book, for which a boxplot offers a good solution. For more information on box plots check the [Wikipedia page](https://en.wikipedia.org/wiki/Box_plot)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "install.packages('reshape')\n",
    "library(reshape)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat.h.prose <- dat.h[dat.h$genre == 'prose', ]\n",
    "\n",
    "genex.tab <- (table(factor(dat.h.prose$book), dat.h.prose$clause_a.))\n",
    "\n",
    "genex.tab"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "With the function melt() we transform the data frame genex.tab. From a \"wide\" format we go to a \"long\" data format."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "genex.melt <- melt(genex.tab)\n",
    "\n",
    "genex.ready <- subset(genex.melt, genex.melt[ , 3] != 0) \n",
    "\n",
    "genex.ready"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Now the boxplot is created."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "boxplot(genex.ready[,3] ~ genex.ready[,1], las = 2, ylim = c(0, 20))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "poet <- dat.h[dat.h$genre == 'poetry',]\n",
    "head(poet)\n",
    "table(poet$book, poet$clause_a.)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.11 Sampling and the Histogram"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In various publications it is suggested that the article H occurs in lower frequencies in poetry than in prose. A natural way to investigate the variation within a dataset is by using a technique called sampling. Sampling from datasets plays an important role in various statistical techniques, like the bootstrap. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "source": [
    "The function sample() selects a number of elements from a vector randomly. This can be done with or without replacement:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "sample(1:6, 2, replace = T) #this is equal to rolling a die twice\n",
    "sample(1:6, 2, replace = F) #this is not equal to rolling a die twice. Why not?"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "A histogram shows the distribution of a numeric variable. Suppose we roll a die 1000 times. With a histogram you can visualize the frequency of each number of eyes."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "die.rolls <- sample(1:6, 1000, replace = T)\n",
    "hist(die.rolls, breaks=seq(0.5,6.5,1)) # the breaks argument makes the figure clearer."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In this experiment we take a random sample of 500 words from the books of Genesis and Psalms. In each sample we count how often the article H occurs in it and the result is stored in a vector. This is repeated 500 times. At the end we compare the books by making a histogram of the two vectors. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "h.sampler <- function(book, nsamp) {\n",
    "    # this function counts the number of 'H's in a random sample of size nsamp and returns it\n",
    "    rand.vec <- sample(1:nrow(book), nsamp, replace = T)\n",
    "    gen.sample <- book[rand.vec,]\n",
    "    h.count <- nrow(gen.sample[gen.sample$lexeme.t == 'H',])    \n",
    "    }\n",
    "\n",
    "\n",
    "par(mfrow = c(1, 2)) # with par(mfrow = ) we specify the organization of the plots. c(1, 2) means: 1 row, 2 columns, \n",
    "                     # in other words, 2 plots next to each other\n",
    "\n",
    "books <- c('Genesis', 'Psalmi') #the books are specified\n",
    "\n",
    "for (bo in books) {\n",
    "    book.subset <- dat[dat$book == bo,]\n",
    "    h.count.vec <- numeric() # a numeric vector is initiated\n",
    "    \n",
    "    for (i in 1:500) {\n",
    "        count <- h.sampler(book.subset, 500)\n",
    "        h.count.vec[i] <- count # the count is added to the vector \n",
    "    }\n",
    "hist(h.count.vec, col = 'lightblue')\n",
    "abline(v = mean(h.count.vec)) # abline() with v draws vertical line. h = horizontal line\n",
    "rug(h.count.vec) # sometimes this is an interesting addition to the plot. It adds the individual measurements to the x-axis.\n",
    "}\n",
    "\n",
    "par(mfrow = c(1, 1)) # we restore the original organization of the plots."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "collapsed": true,
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.12 Hierarchical clustering"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Hierarchical clustering is a multivariate technique, in which groups are made of similar objects. Similar objects are objects with more or less the same values for the features in the dataset. Characteristic of hierarchical clustering is that groups of nested clusters are formed in one supercluster. In a dataset one calculates the distances between the objects using the function dist()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "First we remove proper nouns."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "dat.h.2 <- dat.h[dat.h$part.of.speech != 'nmpr',]\n",
    "dat.h.2 <- droplevels(dat.h.2)\n",
    "head(dat.h.2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "lex <- table(dat.h.2$book, dat.h.2$lexeme.t)\n",
    "lexem.binary <- apply(lex, 2, function(x) {ifelse(x > 0, 1, 0)})\n",
    "select.lex <- lexem.binary[,colSums(lexem.binary) > 1 & colSums(lexem.binary) < 11]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "In the next cell the distance object lex.dist is calculated. Check what it looks like. The function dist() has an argument 'method'. In this argument you specify the method with which the distance is measured. For binary data (1 (present) or 0 (absent)), you use the method 'binary', in general. Other methods are 'euclidian', 'manhattan', ''"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "lex.dist <- dist(select.lex, method = 'binary')\n",
    "plot(hclust(lex.dist))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "There is a lot of interesting literature on clustering, for instance in corpus linguistics:  \n",
    "Moisl, H., Cluster Analysis for Corpus Linguistics, Mouton De Gruyter, 2015.  \n",
    "\n",
    "And a practical introduction on clustering with R:\n",
    "\n",
    "Kassambara, A., Practical Guide to Cluster Analysis in R: Unsupervised Machine Learning, sthda.com, 2017."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.13 The Heatmap"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "An alternative way to visualize these data is using a heatmap. A heatmap is a rectangular grid in which in each cell the value of 1 variable of 1 object is represented by a color. Some heatmap functions also perform a clustering, like the one that is used here."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "heatmap(select.lex, labCol = '')\n",
    "\n",
    "#with labCol = '', the labels of the lexemes are removed. Because there are so many, they are unreadable."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.14 Merging dataframes"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "It may occur that you use data from different sources, which you want to use together in your research. Then it useful to merge different dataframes."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "First we make two dataframes consisting of a number of fictive books. dat.frame.A has information about the size of the books and dat.frame.B has information about the genre."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>books.1</th><th scope=col>num.of.words</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>A    </td><td>1000 </td></tr>\n",
       "\t<tr><td>B    </td><td>2000 </td></tr>\n",
       "\t<tr><td>C    </td><td>3000 </td></tr>\n",
       "\t<tr><td>D    </td><td>4000 </td></tr>\n",
       "\t<tr><td>E    </td><td>5000 </td></tr>\n",
       "\t<tr><td>F    </td><td>6000 </td></tr>\n",
       "\t<tr><td>G    </td><td>7000 </td></tr>\n",
       "\t<tr><td>H    </td><td>8000 </td></tr>\n",
       "\t<tr><td>I    </td><td>9000 </td></tr>\n",
       "\t<tr><td>J    </td><td>10000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " books.1 & num.of.words\\\\\n",
       "\\hline\n",
       "\t A     & 1000 \\\\\n",
       "\t B     & 2000 \\\\\n",
       "\t C     & 3000 \\\\\n",
       "\t D     & 4000 \\\\\n",
       "\t E     & 5000 \\\\\n",
       "\t F     & 6000 \\\\\n",
       "\t G     & 7000 \\\\\n",
       "\t H     & 8000 \\\\\n",
       "\t I     & 9000 \\\\\n",
       "\t J     & 10000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "books.1 | num.of.words | \n",
       "|---|---|---|---|---|---|---|---|---|---|\n",
       "| A     | 1000  | \n",
       "| B     | 2000  | \n",
       "| C     | 3000  | \n",
       "| D     | 4000  | \n",
       "| E     | 5000  | \n",
       "| F     | 6000  | \n",
       "| G     | 7000  | \n",
       "| H     | 8000  | \n",
       "| I     | 9000  | \n",
       "| J     | 10000 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "   books.1 num.of.words\n",
       "1  A       1000        \n",
       "2  B       2000        \n",
       "3  C       3000        \n",
       "4  D       4000        \n",
       "5  E       5000        \n",
       "6  F       6000        \n",
       "7  G       7000        \n",
       "8  H       8000        \n",
       "9  I       9000        \n",
       "10 J       10000       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>books.2</th><th scope=col>genre</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>F     </td><td>prose </td></tr>\n",
       "\t<tr><td>G     </td><td>prose </td></tr>\n",
       "\t<tr><td>H     </td><td>prose </td></tr>\n",
       "\t<tr><td>I     </td><td>prose </td></tr>\n",
       "\t<tr><td>J     </td><td>prose </td></tr>\n",
       "\t<tr><td>K     </td><td>poetry</td></tr>\n",
       "\t<tr><td>L     </td><td>poetry</td></tr>\n",
       "\t<tr><td>M     </td><td>poetry</td></tr>\n",
       "\t<tr><td>N     </td><td>poetry</td></tr>\n",
       "\t<tr><td>O     </td><td>poetry</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " books.2 & genre\\\\\n",
       "\\hline\n",
       "\t F      & prose \\\\\n",
       "\t G      & prose \\\\\n",
       "\t H      & prose \\\\\n",
       "\t I      & prose \\\\\n",
       "\t J      & prose \\\\\n",
       "\t K      & poetry\\\\\n",
       "\t L      & poetry\\\\\n",
       "\t M      & poetry\\\\\n",
       "\t N      & poetry\\\\\n",
       "\t O      & poetry\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "books.2 | genre | \n",
       "|---|---|---|---|---|---|---|---|---|---|\n",
       "| F      | prose  | \n",
       "| G      | prose  | \n",
       "| H      | prose  | \n",
       "| I      | prose  | \n",
       "| J      | prose  | \n",
       "| K      | poetry | \n",
       "| L      | poetry | \n",
       "| M      | poetry | \n",
       "| N      | poetry | \n",
       "| O      | poetry | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "   books.2 genre \n",
       "1  F       prose \n",
       "2  G       prose \n",
       "3  H       prose \n",
       "4  I       prose \n",
       "5  J       prose \n",
       "6  K       poetry\n",
       "7  L       poetry\n",
       "8  M       poetry\n",
       "9  N       poetry\n",
       "10 O       poetry"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "books.1 <- LETTERS[seq(from = 1, to = 10)]\n",
    "num.of.words <- 1000 * 1:10\n",
    "\n",
    "dat.frame.A <- as.data.frame(cbind(books.1, num.of.words))\n",
    "\n",
    "books.2 <- LETTERS[seq(from = 6, to = 15)]\n",
    "genre <- c(rep('prose', 5), rep('poetry', 5))\n",
    "\n",
    "dat.frame.B <- as.data.frame(cbind(books.2, genre))\n",
    "\n",
    "dat.frame.A\n",
    "\n",
    "dat.frame.B"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "These dataframes can be merged in different ways, but we use the vaiable book as key for merging. Check carefully what the following four scripts do. If you download different csv files from SHEBANQ, you can use the feature \"monad\" as key for merging dataframes."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "merge(dat.frame.A, dat.frame.B, by.x = 'books.1', by.y = 'books.2') # this is an inner join"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "merge(dat.frame.A, dat.frame.B, by.x = 'books.1', by.y = 'books.2', all = T) # this is an outer join"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "merge(dat.frame.A, dat.frame.B, by.x = 'books.1', by.y = 'books.2', all.x = T) # this is a left join"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": false,
    "deletable": true,
    "editable": true
   },
   "outputs": [],
   "source": [
    "merge(dat.frame.A, dat.frame.B, by.x = 'books.1', by.y = 'books.2', all.y = T) # this is a right join"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "### 3.15 Finally..."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Most of the code in this course is based on the base R package. However, many things can be done with other packages. There are many packages with specialized statistical tools, but also packages for general operations. The package dplyr is useful for data wrangling and ggplot2 can be used for making beautiful visualizations. \n",
    "\n",
    "Look here for cheatsheets:  \n",
    "https://www.rstudio.com/wp-content/uploads/2015/02/data-wrangling-cheatsheet.pdf  \n",
    "https://www.rstudio.com/wp-content/uploads/2015/03/ggplot2-cheatsheet.pdf  \n",
    "\n",
    "More interesting cheatsheets by R-studio can be found here:  \n",
    "https://www.rstudio.com/resources/cheatsheets/"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Of course there is much more to learn about R. As you might know already, doing things with R is more important than reading about R. There are many good practical online courses for free or a bit of money.  \n",
    "\n",
    "You can find some here:  \n",
    "\n",
    "https://www.coursera.org/courses?languages=en&query=data+sience+r  \n",
    "https://www.edx.org/course?search_query=r  \n",
    "https://www.udemy.com/courses/search/?q=r&src=ukw  \n",
    "\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Are you looking for books on language analysis and R?  \n",
    "\n",
    "Baayen, R.H., Analyzing Linguistic Data: A Practical Introduction to Statistics using R, Cambridge University Press, 2008.  \n",
    "Gries, S.Th., Quantitative Corpus Linguistics with R: A Practical Introduction, Routledge, 2016, 2nd edition.  \n",
    "Levshina, N., How to do Linguistics with R: Data exploration and statistical analysis, John Benjamins, 2015.  "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "deletable": true,
    "editable": true
   },
   "source": [
    "Finally, if you want to receive a daily newsletter about R and statistical analyses and visualizations, subscribe on www.r-bloggers.com . This is both for beginners and more advanced users of R."
   ]
  }
 ],
 "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.3.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}