{ "cells": [ { "cell_type": "markdown", "metadata": { "collapsed": false }, "source": [ "# Lecture 4: Linear Regression\n", "\n", "We're reaching a really exciting part of the course: we're finally starting to work with some predictive models. Over the next two lectures, we're delving into two really exciting problems.\n", "\n", "* __Regression__ - predicting a numeric value based on other values that are influence it in some way.\n", "* __Classification__ - assigning a discrete \"class\" to a data point (for example, either Red or Blue) based on attributes of the data point.\n", "\n", "Today, we'll cover a model used for regression. Next lecture, we'll look at an algorithm that is used for both regression and classification." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Line of Best Fit\n", "\n", "Suppose you're a botany major who wants to measure the relationship between two things - for example, the sepal length and sepal width of a species of flower called _Iris setosa_. You decide to plot these measurements on a scatterplot, with length on the $x$-axis and width on the $y$-axis. Luckily, R has a built-in dataset called `iris` (based on a famous experiment done on Iris flowers) that we can use exactly for this purpose." ] }, { "cell_type": "code", "execution_count": 7, "metadata": { "collapsed": false }, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAYAAAD958/bAAAEDWlDQ1BJQ0MgUHJvZmlsZQAA\nOI2NVV1oHFUUPrtzZyMkzlNsNIV0qD8NJQ2TVjShtLp/3d02bpZJNtoi6GT27s6Yyc44M7v9\noU9FUHwx6psUxL+3gCAo9Q/bPrQvlQol2tQgKD60+INQ6Ium65k7M5lpurHeZe58853vnnvu\nuWfvBei5qliWkRQBFpquLRcy4nOHj4g9K5CEh6AXBqFXUR0rXalMAjZPC3e1W99Dwntf2dXd\n/p+tt0YdFSBxH2Kz5qgLiI8B8KdVy3YBevqRHz/qWh72Yui3MUDEL3q44WPXw3M+fo1pZuQs\n4tOIBVVTaoiXEI/MxfhGDPsxsNZfoE1q66ro5aJim3XdoLFw72H+n23BaIXzbcOnz5mfPoTv\nYVz7KzUl5+FRxEuqkp9G/Ajia219thzg25abkRE/BpDc3pqvphHvRFys2weqvp+krbWKIX7n\nhDbzLOItiM8358pTwdirqpPFnMF2xLc1WvLyOwTAibpbmvHHcvttU57y5+XqNZrLe3lE/Pq8\neUj2fXKfOe3pfOjzhJYtB/yll5SDFcSDiH+hRkH25+L+sdxKEAMZahrlSX8ukqMOWy/jXW2m\n6M9LDBc31B9LFuv6gVKg/0Szi3KAr1kGq1GMjU/aLbnq6/lRxc4XfJ98hTargX++DbMJBSiY\nMIe9Ck1YAxFkKEAG3xbYaKmDDgYyFK0UGYpfoWYXG+fAPPI6tJnNwb7ClP7IyF+D+bjOtCpk\nhz6CFrIa/I6sFtNl8auFXGMTP34sNwI/JhkgEtmDz14ySfaRcTIBInmKPE32kxyyE2Tv+thK\nbEVePDfW/byMM1Kmm0XdObS7oGD/MypMXFPXrCwOtoYjyyn7BV29/MZfsVzpLDdRtuIZnbpX\nzvlf+ev8MvYr/Gqk4H/kV/G3csdazLuyTMPsbFhzd1UabQbjFvDRmcWJxR3zcfHkVw9GfpbJ\nmeev9F08WW8uDkaslwX6avlWGU6NRKz0g/SHtCy9J30o/ca9zX3Kfc19zn3BXQKRO8ud477h\nLnAfc1/G9mrzGlrfexZ5GLdn6ZZrrEohI2wVHhZywjbhUWEy8icMCGNCUdiBlq3r+xafL549\nHQ5jH+an+1y+LlYBifuxAvRN/lVVVOlwlCkdVm9NOL5BE4wkQ2SMlDZU97hX86EilU/lUmkQ\nUztTE6mx1EEPh7OmdqBtAvv8HdWpbrJS6tJj3n0CWdM6busNzRV3S9KTYhqvNiqWmuroiKgY\nhshMjmhTh9ptWhsF7970j/SbMrsPE1suR5z7DMC+P/Hs+y7ijrQAlhyAgccjbhjPygfeBTjz\nhNqy28EdkUh8C+DU9+z2v/oyeH791OncxHOs5y2AtTc7nb/f73TWPkD/qwBnjX8BoJ98VVBg\n/m8AAEAASURBVHgB7N0L2HRlXS9+iPdF4VURUNDwiKKVqSh4gFI74NbQNDXLtta2/vFPa5tl\nWWmJuq90d/S0rbRyq7nVbKuZecw8ZHkowgOigicUAQVUEDkf9/en8+jDw8w8M++c1tzrc1/X\nl2dmrTVr3ffnnuGd3zNr1rPHHhoBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQeYE9O9/D/nTwyAx1Z3+Ga6QE\nCBAgQIAAAQINCVyesZzYwngUSN2YxSqOTuhGV/SCAAECBAgQIECAwG4J1HvatS+SduzW0D1o\n3gIbnxzdMDuu6lsjQIAAAQIECBAgsC4Ce6ej30jq59o3BVK3prCKIwVSt+ZEbwgQIECAAAEC\nBHok8F09GquhEiBAgAABAgQIECBAYKyAAmksj5UECBAgQIAAAQIECPRJQIHUp9k2VgIECBAg\nQIAAAQIExgookMbyWEmAAAECBAgQIECAQJ8EFEh9mm1jJUCAAAECBAgQIEBgrIACaSyPlQQI\nECBAgAABAgQI9ElAgdSn2TZWAgQIECBAgAABAgTGCiiQxvJYSYAAAQIECBAgQIBAnwQUSH2a\nbWMlQIAAAQIECBAgQGCsgAJpLI+VBAgQIECAAAECBAj0SUCB1KfZNlYCBAgQIECAAAECBMYK\nKJDG8lhJgAABAgQIECBAgECfBBRIfZptYyVAgAABAgQIECBAYKyAAmksj5UECBAgQIAAAQIE\nCPRJQIHUp9k2VgIECBAgQIAAAQIExgrsGLvWSgIECBAgQIAAAQIENgT2yY1fTO6f7J98Lnl1\n8rZEa0TAJ0iNTKRhECBAgAABAgQILFTgjtn7yclTki8kb0+un7wxeU2yd6IRIDAngaOyn2sS\nL6w5gdoNAQIECBAgQGCOAvXJ0WeTKoZ2bdnvnXP/rOT5W5b36W69h633svWeViMwFwEF0lwY\n7YQAAQIECBAgsBCBJ2SvVQRtLY42DvaA3LgyOWRjQc9+NlUgOcWuZ89ewyVAgAABAgQIEJha\noL5z9LrkohGPrNPtzk1+ZMR6i9dIQIG0RpOlqwQIECBAgAABAisRqAsynL3Nkc/J+tpOW3MB\nBdKaT6DuEyBAgAABAgQILFygrlZX3zUa1eo7SrdPajuNAIE5CPgO0hwQ7YIAAQIECBAgsCCB\nB2a/lyejiqSnZV19wlSFUh9bU99B6uMEdnHMCqQuzoo+ESBAgAABAgS+I/Ca3KwLNdQFGTZa\nFURVHNUFGh65sbCHPxVIPZz0RQ9ZgbRoYfsnQIAAAQIECMwmUEVAXcq7iqEvJR9N6qIN9clR\nn4ujDP+bf6qmmct876gRaQQIECBAgAABAgQIjBWoU+yemPxRUlerqwsy1HeO3plckmiNCCiQ\nGplIwyBAgAABAgQIEFiKwJk5yiuWciQHWYmAq9ithN1BCRAgQIAAAQIECBDoooACqYuzok8E\nCBAgQIAAAQIECKxEQIG0EnYHJUCAAAECBAgQIECgiwIKpC7Oij4RIECAAAECBAgQILASAQXS\nStgdlAABAgQIECBAgACBLgookLo4K/pEgAABAgQIECBAgMBKBBRIK2F3UAIECBAgQIAAAQIE\nuiigQOrirOgTAQIECBAgQIAAAQIrEVAgrYTdQQkQIECAAAECBAgQ6KKAAqmLs6JPBAgQIECA\nAAECBAisRECBtBJ2ByVAgAABAgQIECBAoIsCCqQuzoo+ESBAgAABAgQIECCwEgEF0krYHZQA\nAQIECBAgQIAAgS4KKJC6OCv6RIAAAQIECBAgQIDASgQUSCthd1ACBAgQIECAAAECBLoooEDq\n4qzoEwECBAgQIECAAAECKxFQIK2E3UEJECBAgAABAgQIEOiigAKpi7OiTwQIECBAgAABAgQI\nrERAgbQSdgclQIAAAQIECBAgQKCLAgqkLs6KPhEgQIAAAQIECBAgsBIBBdJK2B2UAAECBAgQ\nIECAAIEuCiiQujgr+kSAAAECBAgQIECAwEoEFEgrYXdQAgQIECBAgAABAgS6KKBA6uKs6BMB\nAgQIECBAgAABAisRUCCthN1BCRAgQIAAAQIECBDoooACqYuzok8ECBAgQIAAAQIECKxEQIG0\nEnYHJUCAAAECBAgQIECgiwIKpC7Oij4RIECAAAECBAgQILASAQXSStgdlAABAgQIECBAgACB\nLgookLo4K/pEgAABAgQIECBAgMBKBBRIK2F3UAIECBAgQIAAAQIEuiigQOrirOgTAQIECBAg\nQIAAAQIrEVAgrYTdQQkQIECAAAECBAgQ6KKAAqmLs6JPBAgQIECAAAECBAisRECBtBJ2ByVA\ngAABAgQIECBAoIsCCqQuzoo+ESBAgAABAgQIECCwEgEF0krYHZQAAQIECBAgQIAAgS4KKJC6\nOCv6RIAAAQIECBAgQIDASgQUSCthd1ACBAgQIECAAAECBLoooEDq4qzoEwECBAgQIECAAAEC\nKxFQIK2E3UEJECBAgAABAgQIEOiigAKpi7OiTwQIECBAgAABAgQIrERgx0qO6qAECBAgQIAA\nAQLLENgrB7nN4ECfz8+rBrf9IEBghIBPkEbAWEyAAAECBAgQWGOBvdP3/5GcnXxmkLpdy2qd\nRoAAgU4LHJXeXZP4H1anp0nnCBAgQIDAWgjsTC/fmZyV/GJyy0Hqdi3756S20QjMS6Dew9Z7\n2XpPqxGYi4ACaS6MdkKAAAECBAhE4HeTLydVGG1ttazW1TYagXkJKJDmJWk/3xZQIH2bwg0C\nBAgQIEBgRoEz8vgnjNlHrattNALzEmiqQPIdpHk9LeyHAAECBAgQILB6gZukC4ck7xrTlXcP\ntqltNQIEtggokLaAuEuAAAECBAgQWGOBqwZ9H/cdox2DbTa2XePh6jqB+QsokOZvao8ECBAg\nQIAAgVUJnJcD11XrHjSmA7Xu00ltqxEgQKCTAr6D1Mlp0SkCBAgQILCWAo9Lry9IDh/S+1pW\n62objcC8BJr6DtK8UOxnNgEF0mx+Hk2AAAECBAh8R2DP3Hx5cmHy+8l9B6nbtazW1TYagXkJ\nKJDmJWk/3xZQIH2bwg0CBAgQIEBgTgI/n/18OLl6kLpdyzQC8xZQIM1b1P6++Ue1/KFYTwQC\nBAgQIEBgEQJ1UYaNCzMsYv/2SaCpAsmLxROaAAECBAgQINC2wJVtD8/oCMxXwFXs5utpbwQI\nECBAgAABAgQIrLGAAmmNJ0/XCRAgQIAAAQIECBCYr4ACab6e9kaAAAECBAgQIECAwBoLKJDW\nePJ0nQABAgQIECBAgACB+QookObraW8ECBAgQIAAAQIECKyxgAJpjSdP1wkQIECAAAECBAgQ\nmK+AAmm+nvZGgAABAgQIECBAgMAaCyiQ1njydJ0AAQIECBAgQIAAgfkKKJDm62lvBAgQIECA\nAAECBAissYACaY0nT9cJECBAgAABAgQIEJivgAJpvp72RoAAAQIECBAgQIDAGgsokNZ48nSd\nAAECBAgQIECAAIH5CiiQ5utpbwQIECBAgAABAgQIrLGAAmmNJ0/XCRAgQIAAAQIECBCYr4AC\nab6e9kaAAAECBAgQIECAwBoLKJDWePJ0nQABAgQIbCNwz6x/RfKJQep2LdMIECBAYISAAmkE\njMUECBAgQGDNBX4r/f9AcqPkzwap27Ws1mkECBAgQKCzAkelZ9cke3e2hzpGgAABAusk8OPp\n7BXJw4d0upbVutpGI0CAwDwE6j1svZet97QagbkIKJDmwmgnBAgQIDAQOCE/nzdGo9bVNhoB\nAgTmIaBAmoeifVxLQIF0LQ53CBAgQGAGgRvksfWb3HuP2Uetq21qW40AAQKzCjRVIPkO0qxP\nB48nQIAAAQLdEtg16M75Y7q1sW5j2zGbWkWAAIF+CSiQ+jXfRkuAAAEC7QucmyGelxw5Zqi1\nrrapbTUCBAgQINA5AafYdW5KdIgAAQJrLfCC9P6TybBT6GpZrattNAIECMxDoKlT7OYBYh+z\nCyiQZje0BwIECBD4jsD+uXlqckJyr+8s/ubtWlbrahuNAAEC8xBoqkByit08nhL2QYAAAQIE\nuiVQp8/dJzkj+WBS3zmq1O1aVutqG40AAQIEtgjs2HLfXQIECBAgQKANgXMyjIclt0yOGAzp\nxPz84uC2HwQIECAwRECBNATFIgIECBAg0JBAFUSKooYm1FAIEFisgFPsFutr7wQIECBAgAAB\nAgQIrJGAAmmNJktXCRAgQIAAAQIECBBYrIACabG+9k6AAAECBAgQIECAwBoJKJDWaLJ0lQAB\nAgQIECBAgACBxQookBbra+8ECBAgQIAAAQIECKyRgAJpjSZLVwkQIECAAAECBAgQWKyAAmmx\nvvZOgAABAgQIECBAgMAaCfTx7yDtn/nZL7lecmFSf1n8okQjQIAAAQIECBAgQKDnAn35BOlu\nmee/Tuqvin8tOS05JTkjqSLps8mLk5smGgECBAgQIECAAAECBJoVOD4ju2aQL+Tn+5M3JX+b\nvDX59+RLSW3zleS/JstuR+WAdfy9l31gxyNAgAABAgQIECAwo0C9h633svWeVuu4wCPTv5qs\nKoTuPqave2bdfZMTktr+6GSZTYG0TG3HIkCAAAECBAgQmKeAAmmemgve1yuz/zp9rr5vNEmr\n7yddkLxoko3nuI0CaY6YdkWAAAECBAgQILBUgaYKpNa/g3SXPDU+kFw24VPkvGx3UnLIhNvb\njAABAgQIECBAgACBhgRaL5Dqu0VHJDsnnLP6BKmKqrqAg0aAAAECBAgQIECAQM8EWi+QXp75\n/J7kdcm9xsxtfQfpPsnbkn2TNyQaAQIECBAgQIAAAQI9E2j97yC9KvN5UPL7yY8nZyZ1ae+v\nJvVdoxslByS3Tm6eXJn8RvK+RCNAgAABAgQIECCwrgL1HfyHJncfDOBD+fkPyaRfPRk8zI9W\nBQ7NwF6dVIFUV6nbnPojsZ9O/iS5ZbKK5iINq1B3TAIECBAgQIBAmwJ15tTnk68ndYZUpW5/\nPhl3VlVW71Zr6iINuyWw5g+qT42qEDos2a8jY1EgdWQidIMAAQIECBAgsOYC9R63iqG/Tm64\naSx1+yVJratt5tkUSPPUtK9vCiiQPBEIECBAgAABAgTmIfDa7OQdSX3HfmurZbWutplna6pA\nav07SPOc+Gn3tX8eMKnvjafdue0JECBAgAABAgQIbBGoQuXBycOT+krJ1lbLnpu8PtmZXJFo\nBMYKPD5rP5o8buxW26+8fTbZ/D2nSW9ff/td24IAAQIECBAgQIDAUIGbZ2m977zD0LXfWljr\napvadl7NJ0jzkuzgfg5On+6S1M9Z2mfy4Dq3s54sk7SfzEbPTPaaZGPbECBAgAABAgQIEBgi\n8LUsq0+Fbp18asj6WlTrapvaViOwrcC8CqRtD7Rlg+Nyvyr5XVuWu0uAAAECBAgQIEBgGoE3\nZ+O/H/OAWlfbzLM19QnSPGHsa/cFFEi7b+eRBAgQIECAAAEC3xG4a25ekvxhUt8z2mh1+4+S\ni5M6Y2qerakCadKLCMwTsGv7umk6dGBSH0Ne3bXO6Q8BAgQIECBAgACBKQTq+/QPTV6VPDp5\nT1Lth5L6vvtPJCcl2giB7xqxvE+LfzOD/WTiSnJ9mnVjJUCAAAECBAi0K/BPGdrtkmcnlw1S\nt2tZrdPGCLT+CVJ9fLjd93oOGfjcIz8vGNz+Yn6eMbjtBwECBAgQIECAAIF1E6g/CPvn69Zp\n/V28wEdyiLr4wbR5+uK7dq0j+A7StTjcIUCAAAECBAgQWCOBvdPXer991Br1eWRXW/8E6UUZ\n+XOTOt/yjUmdSre1/XAW3DN5QVJfaKv2vm/98F8CBAgQIECAAAECBAi0JXCnDKe+rFZX7HhC\nsmeyudUVPqriPWDzwiXf9gnSksEdjgABAgQIECBAYG4CTX2C1IeLNHw8U1+fENU5mM9P3p5s\nfO8oNzUCBAgQIECAAAECBAh8S6APBVKNtK7eUVerOyb53uRjyaMSjQABAgQIECBAgAABAt8W\n6EuBtDHgd+VGXdnuHcmrk1cl+ycaAQIECBAgQIAAAQIE9mj9Ig3Dpvi8LPzp5E3JC5MbJRoB\nAgQIECBAgAABAgT26NsnSJun/BW5c9fktcl7kisSjQABAgQIECBAgACBHgv08ROkzdP9+dx5\n5OYFbhMgQIAAAQIECBAg0F+BPn+C1N9ZN3ICBAgQIECAAAECBIYKKJCGslhIgAABAgQIECBA\ngEAfBRRIfZx1YyZAgAABAgQIECBAYKiAAmkoi4UECBAgQIAAAQIECPRRQIHUx1k3ZgIECBAg\nQIAAAQIEhgookIayWEiAAAECBAgQIECAQB8F+n6Z7z7OuTETIECAAAECswnszMMflhyS/Hvy\n/kQjQIAAgTkKHJd9XZPsmuM+7YoAAQIECBCYv8DLs8srk/p3++rBzwvy81GJRqCvAntn4PWa\nOKoFAKfYtTCLxkCAAAECBAgsQ+C9OcjPJm9NvjfZK3locl7yquT/SzQCBAgQmIOAT5DmgGgX\nBAgQIEBggQKPzr7rE6PfHXGMU7P8sqROv9MI9E2gqU+Q+jZ5XR2vAqmrM6NfBAgQIEDgWwIf\ny49zx2DcPuuqgPr1MdtYRaBVgaYKJKfYtfo0NS4CBAgQIEBgngK3yM5OGrPDz2RdfYJ07zHb\nWEWAwBoIKJDWYJJ0kQABAgQIEFi5QF2Y4Qbb9KK+k3TxNttYTYBAxwUUSB2fIN0jQIAAAQIE\nOiHw0fTi8GTUd4zqKna17u8SjQABAgRmFPAdpBkBPZwAAQIECCxY4Huy/6uS/0z23HKs+v5R\nfXJ05pbl7hLoi0BT30Hyh2L78rQ1TgIECBAgQGAWgVPy4Ccnf5Kcn7wxOT25Z/LDSX3/6D6J\nRoAAAQJzEPAJ0hwQ7YIAAQIECCxBoIqgTySXJ3XVuouSNyX7JRqBvgr4BKmvM2/cBAgQIECA\nQO8F/jUC39d7BQAEGhZwkYaGJ9fQCBAgQIAAAQIECBCYTkCBNJ2XrQkQIECAAAECBAgQaFhA\ngdTw5BoaAQIECBAgQIAAAQLTCSiQpvOyNQECBAgQIECAAAECDQsokBqeXEMjQIAAAQIECBAg\nQGA6AQXSdF62JkCAAAECBAgQIECgYQEFUsOTa2gECBAgQIAAAQIECEwnoECazsvWBAgQIECA\nAAECBAg0LKBAanhyDY0AAQIECBAgQIAAgekEFEjTedmaAAECBAgQIECAAIGGBRRIDU+uoREg\nQIAAAQIECBAgMJ2AAmk6L1sTIECAAAECBAgQINCwgAKp4ck1NAIECBAgQIAAAQIEphNQIE3n\nZWsCBAgQIECAAAECBBoWUCA1PLmGRoAAAQIECBAgQIDAdAIKpOm8bE2AAAECBAgQIECAQMMC\nCqSGJ9fQCBAgQGAhAo/JXs9Prh7kqvw8Nbl5ohEg0LbA7TO8lyRfTC5MTkqekuyTaAQIzFHg\nuOzrmmTXHPdpVwQIECAwf4G/yi6rMLoi+dfk/ySnJLWsCqUjE40AgTYF7p9hfSN5T/ILyYOS\n30nOSD6SHJj0te2dgdd72aP6CmDc8xdQIM3f1B4JECAwb4EfzA6rEDpryI7vlmVVIF0yZJ1F\nBAisv8BBGUJ9cvxHQ4ZyQJZ9KPmHIev6skiB1JeZXuI4FUhLxHYoAgQI7KbA5/K4KoJ2jHj8\nb2Z5/Qb1l0ast5gAgfUVeHq6/slk1NdT7pp19fr/3qSPrakCadQk93FijZkAAQIECIwTOCQr\nv5xcOWKjP8nyeoP0cyPWW0yAwPoKHJ2uvzGpT5GHtY9m4WnJDwxbadl6CSiQ1mu+9JYAAQIE\nVidQ/2Zets3hq0C6/jbbWE2AwPoJ1Ov64m26Xeuvt802Vq+BgAJpDSZJFwkQIECgEwJfTy/q\nU6RR7V5ZsWfy/lEbWE6AwNoKnJyej/t06CZZf8fk42s7Qh0n0DEB30Hq2IToDgECBIYIPDXL\n6vSaunLdsFYFVH1HyW+Qh+lYRmC9Be6e7tfrv65cN6y9LAvrO0p7DVvZg2VNfQepB/O1FkNU\nIK3FNOkkAQIEvvkdg3qTVJf2/tGkiqG6OEOdWlPLn55oBAi0KfCMDOvSpC7tXX/3rIqhujjD\n65ILk3skfW0KpL7O/ALHrUBaIK5dEyBAYM4C783+qhiq7xtt5IrcflKiESDQtsDPZ3j1d482\nXvv1s/6fcJekz02B1OfZX9DYFUgLgrVbAgQILEigLvX9q8lzkmMXdAy7JUCgmwL1Hf7vT+6T\n3KKbXVx6r5oqkEb9LYelqzogAQIECBBYI4G61PcL1qi/ukqAwPwE6hPkumiD1qiAq9g1OrGG\nRYAAAQIECBAgQIDA9AIKpOnNPIIAAQIECBAgQIAAgUYFFEiNTqxhESBAgAABAgQIECAwvYAC\naXozjyBAgAABAgQIECBAoFEBBVKjE2tYBAgQIECAAAECBAhML6BAmt7MIwgQIECAAAECBAgQ\naFRAgdToxBoWAQIECBAgQIAAAQLTCyiQpjfzCAIECBAgQIAAAQIEGhVQIDU6sYZFgAABAgQI\nECBAgMD0Agqk6c08ggABAgQIECBAgACBRgUUSI1OrGERIECAAAECBAgQIDC9gAJpejOPIECA\nAAECBAgQIECgUQEFUqMTa1gECBAgQIAAAQIECEwvoECa3swjCBAgQIAAAQIECBBoVECB1OjE\nGhYBAgQIECBAgAABAtML7Jj+IR5BgAABAgR6LVC/XHxI8l+S/ZPPJX+bfCzRdl/gznnoo5JD\nk/OSf0remFyddKmZ/y7Nhr4QWICAT5AWgGqXBAgQINCswM0zsvcnr0zq9teTH0o+kvxJsmei\nTSdQZn+alOEPJWVatmVc1nW7K838d2Um9IMAgeYFjssIr0l2NT9SAyRAgMD6CtRZFx9Khr1p\nPybLz0+OT7TpBMqs7Mpwc9soRsq8C2e8mP/Ns+M2gWsL7J279V72qGsvdo/A7gsokHbfziMJ\nECCwLIGfz4G+ltxkxAHr9LBLxqwf8bBeLy7LMiu7Ya3Wl3nZr7qZ/1XPgON3WaCpAskpdl1+\nqukbAQIECHRJ4MHpzP9NvjKiU3+X5RclWz8JGbG5xQOrMiu7Ya2sy7zsV93M/6pnwPEJLElA\ngbQkaIchQIAAgbUXODgjOH3MKOpiAmcmB43ZxqprC5RVmY27EEOZl/2qm/lf9Qw4PoElCSiQ\nlgTtMAQIECCw9gJnZASHjRnFzqy7TVLbaZMJlNWtk7Ib1cq8C6bmf9QMWU6AAIEFCByXfbpI\nwwJg7ZIAAQJzFHhk9lWng9Ub+mHtl7OwrsB2o2ErLRsqUFZlVnbDWlmXedmvupn/Vc+A43dZ\noKnvIHUZuk99UyD1abaNlQCBdRXYMx1/Z/LJpP5mz0ar5Y9NLk0en2jTCZRZ2T02KcuNVsZl\nXeabl2+sX/ZP879sccdbJwEF0jrN1pr0VYG0JhOlmwQI9F6gPvF4fXJVckLy5uQLycXJryXa\n7gmUXRl+PinTsq3vJZV1mXelmf+uzIR+dE2gqQKpC7+R6doEr6I/VSD9ZXKD5KJVdMAxCRAg\nQGAqgSOz9f2T/ZPPJW9Ivpxouy9wszz0J5JDk/OSdyT/mXSxmf8uzoo+rVKgCqTLkqOTD6yy\nI47djoBPkNqZSyMhQIAAAQIECPRNoKlPkFzFrm9PX+MlQIAAAQIECBAgQGCkgAJpJI0VBAgQ\nIECAAAECBAj0TUCB1LcZN14CBAgQIECAAAECBEYKKJBG0lhBgAABAgQIECBAgEDfBBRIfZtx\n4yVAgAABAgQIECBAYKSAAmkkjRUECBAgQIAAAQIECPRNQIHUtxk3XgIECBAgQIAAAQIERgoo\nkEbSWEGAAAECBAgQIECAQN8EFEh9m3HjJUCAAAECBAgQIEBgpIACaSSNFQQIECBAgAABAgQI\n9E1AgdS3GTdeAgQIECBAgAABAgRGCiiQRtJYQYAAAQIECBAgQIBA3wQUSH2bceMlQIAAAQIE\nCBAgQGCkgAJpJI0VBAgQIECAAAECBAj0TUCB1LcZN14CBAgQIECAAAECBEYK7Bi5xgoCBFoS\nuG0Gc8RgQCfm52ktDc5YthVYl/mvX9rdM6n+np/8W/KNRCNAgAABAgR6JnBcxntNsqtn4zbc\nxQscnEP8Y1LPr68OUrdrWa3T2hZYp/n/0UzFZ5KrkrOSi5OLkqclznYIgkaAAIEOC+ydvtX7\ni6M63EddWzMBBdKaTdiadPeA9LPecH4w2fj0qLpet2vZp5PaRmtTYJ3m/wGZgiuS5yc3HUxH\n/WP7mOS85EWDZX4QIECAQDcFFEjdnJe17pUCaa2nr7Odf2F69vFk3yE9rGW1rrbR2hRYl/mv\nf1RPT/54xDTcO8vrU6X7jlhvMQECBAisXkCBtPo5aK4HCqTmpnTlA6pTkuo37/91TE8ePdjG\n6UtjkNZ01TrNf316dElywzHWb8i6vx6z3ioCBAgQWK1AUwWSN0arfTI5OoFFCRyUHd84qQsy\njGq1rrbZOKVp1HaWr5/AOs3/HcJbp3t+YwxzPVdrO40AAQIECCxcQIG0cGIHILASgQsHRx33\nHaP9B9tctJIeOugiBdZp/qsw2ngujjKp9eMKqFGPs5wAAQIECEwtoECamswDCKyFQL1BPiH5\nmTG9rXW1zcab6TGbWrVmAus0//8S20OSHxxhfL0sf3jy7hHrLSZAgAABAgQaFPAdpAYntQND\nOjZ9uDJ55JC+1LJaV9tobQqs0/y/NFPw2eQ2W6ZiZ+6/IjkrudGWde4SIECAQHcEmvoOUndY\n+90TBVK/53+Ro39Sdl5XAHtz8sRB6nYtq3Va2wLrMv91VcV3JHUa3QuTxyXHJ6cmX07unmgE\nCBAg0F0BBVJ352Zte6ZAWtupW4uOH5Fe1m/oTxqkbtcyrR8C6zL/dcr3Y5K3JJ9MPpA8Mzkw\n0QgQIECg2wIKpG7Pz1r2ToG0ltOm0wQIECBAgAABAhFoqkBykQbPaQIECBAgQIAAAQIECAwE\nFEieCgQIECBAgAABAgQIEBgIKJA8FQgQIECAAAECBAgQIDAQUCB5KhAgQIAAAQIECBAgQGAg\noEDyVCBAgAABAgQIECBAgMBAQIHkqUCAAAECBAgQIECAAIGBgALJU4EAAQIECBAgQIAAAQID\nAQWSpwIBAgQIECBAgAABAgQGAjt6LnHrjP+OyTnJqckliUaAAAECBAgQIECAQE8FWv8E6Zcy\nr69K9tkyv3fO/ROSzydvTz6cfCn57WSvRCNAgAABAgQIECBAgEBzAv87I7om2W/TyG6Z2+cP\nlleR9KKkiqgzBsuek5/LbsflgNXPXcs+sOMRIECAAAECBAgQmFFg7zy+3sseNeN+PHwJAsMK\npFfmuDWB/33L8ffN/Y11x2xZt+i7CqRFC9s/AQIECBAgQIDAogSaKpBaP8Vu2JPg6Cz8j+SF\nW1ZenPu/mHw1+ZEt69wlQIAAAQIECBAgQKAHAn0skG6Uef3YiLmtizScknz/iPUWEyBAgAAB\nAgQIECDQsEAfC6QTM591kYZh7cAsvEdSF2zQCBAgQIAAAQIECBDomUBfCqQ6pa6+X/Sk5P3J\nkclDks3tVrlTp93VOZT/snmF2wQIECCwVIGDc7R1uKJo9bH6ug7teulkReungPnv57wbNYGh\nAj+Zpa9PPpfUhRk25/Tc32gPyo0rklr/vmTPZJnNRRqWqe1YBAh0UeD26VT9yYWrkvp/8dVJ\n/Y26n0u61qpP1bfqY/W1+lx9rzF0qdW/ZfXvy8nJxr9/dbuWLfvfuRxSW7KA+V8yeM8P19RF\nGvo0l3Wp7/slT0xemrws2Wj1adIFyYuTfTcWLvGnAmmJ2A5FgEDnBO6ZHl2eXJr8VfLo5GnJ\nF5IqQp6TdKVVX6pP1bfqY/W1+lx9rzHUWLrQ6s3xK5P6t+0ZSV2gqFK3a1mtq220NgXMf5vz\n2uVRKZC6PDu72bf6Q7I7d/Ox83iYAmkeivZBgMC6CpyXjlf2HzKAf8yyKkjuPWTdshdVH6ov\n1aetrfq+MY6t61Zx/1dy0K8nw75zW8tq3S8nWpsC5r/Nee3yqBRIXZ6dNe2bAmlNJ063CRCY\nWeBR2UOd/nXMmD1dlHXvG7N+WavenwNVX0a1GkONpca06vaZdOApYzpR62obrU0B89/mvHZ5\nVE0VSDu6LL2Cvj0+x3xc8hfJi2Y4/n557NOTST+V+r4ZjuWhBAgQWGeBB6fzdWraP48ZxIez\n7nvHrF/WqjvmQNWXUa3GUGOpMf3tqI2WsLw+zbpd8pYxx3pr1j072fjka8ymVq2ZgPlfswnT\n3e4JKJCuPSd1NaK7JLNelaiq6Jsl9XOSVgWVRoAAgT4K1NVU61OXce3KrOzC92WqD9WXca3G\nsuorxG5cAbAuHjGqbYxjY9tR21m+fgIbc2r+12/u9JhAJwXmVSBNOzin2E0rZnsCBFoRqP//\n1fd6jhwzoPq+zH+OWb+sVdWH6suoVmOosdSYVt2+mA48cUwnal1to7UpYP7bnNcuj6qpU+y6\nDN2nvimQ+jTbxkqAwGaB+lTmwuSsZOfmFYPbf5mfVXQ8cMi6ZS/6sUFfqk9bW/W9xlBj6cKn\nXfUdo7oU+a2Tra2W1brf2brC/WYEzH8zU7k2A1Egrc1UTdbR+uNpd0g2PpKe7FHz3UqBNF9P\neyNAYL0EqvCo04HOT56a3C2pCx18KKni6NVJV1r1pfpUfas+Vl+rz9X3GkONpQutTqF/e/Ll\npL5be9vk0MHtWlbrnGYfhEab+W90Yjs8LAVShydnVNfqH4b6B+JhyQ0GG908P1+bfCOpc8br\nykTPSob9BjOLF9oUSAvltXMCBNZA4Oj0sf6AdxUf9f/kjf8vPy23u9aqT/VvxkY/q8/V9xpD\nl1r9e3Z8cnay0de6XctW8W9dDqstUcD8LxHbob75vfv6/8xRLNZD4NfTzY1/GOrnaclNk9cM\nlp+Xn3Wlnzo1otbX8mU3BdKyxR2PAIGuChyYjh2T1Cf7XW/Vx+pr9bnLrS4acetB6rbWLwHz\n36/5XtVofYK0KvndOO4D85j6zd7Jya8mT0q+mpyaVDH0W8k+SbXrJ3+T1PIHJMtsCqRlajsW\nAQIECBAgQIDAPAUUSPPUXPC+Xpz91yl0uzYd5ydyu4qgusLL1u8dVbF0bvK8ZJlNgbRMbcci\nQIAAAQIECBCYp0BTBVLrH7XfKzP/tmTzXz7/p9y/NHlTUl+o3dwuyZ1TksM2L3SbAAECBAgQ\nIECAAIF+CLReINX3i6pI2jzOi3P/95JPJlvbjbPgHslZW1e4T4AAAQIECBAgQIAAgXUX+J0M\noE6nq1PmbrbNYHZm/Z8ntf3PbLPtvFc7xW7eovZHgAABAgQIECCwLIGmTrFbFtqqjlMXXjgx\nqaKnTqvbPxnWHpGFZye13buSZf+RPwVS0DUCBAgQIECAAIG1FGiqQNp86tlazsY2na6i6AeT\nZyUnJXXK3bBWF3GoiX1BcmxShZJGgAABAgQIECBAgACBXgrU1eu2XtFumRA+QVqmtmMRIECA\nAAECBAjMU6CpT5B2zFNmjfdVV6/TCBAgQIAAAQIECBDouUDrp9j1fHoNnwABAgQIECBAgACB\naQQUSNNo2ZYAAQIECBAgQIAAgaYFFEhNT6/BESBAgAABAgQIECAwjYACaRot2xIgQIAAAQIE\nCBAg0LSAAqnp6TU4AgQIECBAgAABAgSmEVAgTaNlWwIECBAgQIAAAQIEmhZQIDU9vQZHgAAB\nAgQIECBAgMA0AgqkabRsS2A9BW6Tbj87efsgdfs2ibb7Avvloa9Mzky+lpyaPDnRZhMow7Is\n07It47LuWrt+OvS45PXJu5OXJMckXWy3Sae8/uc7M17/8/W0NwIECAwVOC5Lr0l2DV1rIYHd\nF/jZPPTS5MTkfw5St2vZYxJteoF6I3xZclVyclJvkM9Irk5OS/ZJtOkEyqzsyrAsy7Rsy7is\nu1R8HJb+fCo5O/mL5BnJ65IrkirodiZdaV7/85+Jei56/c/f1R7XX2DvDOGa5Kj1H4oRdEVA\ngdSVmWirH/fJcOpN2xOGDKuW1braRptcYP9sWm+O6s3xzbc87Kdy/8qkClBtOoEyK7sy3NzK\nuKzLvOxX3aqQ+3Ty5uSGWzpzeO5/KXnuluWruuv1P395r//5m9pjOwIKpHbmsjMjUSB1Ziqa\n6sh7MpqXjhlRratttMkFXpNN6438wSMecnyW16cgdxux3uLrCpRVmT3tuqu+uaSsy7zsV91+\nJR34cnKDER05NsvrFw/fPWL9Mhe/Jwfz+p+vuNf/fD3trS0BBVJb89mJ0SiQOjENTXWiftN9\nVXLfMaOqdbVNbatNJlCfEHx0m03rzfyfb7ON1d8RKKsyG9dOysqyX3V7Yzrwv7bpRBVQj9lm\nm0Wv9vpfjLDX/2Jc7bUNgaYKJBdpaONJaRQEtgrcOAvq9X321hWb7te62qaLX4Lf1M1O3aw3\nnuds06PLs/6gbbax+jsCZVVm41o9V8t+1a1Osaq+jGu1/oBxGyxhndf/YpDrOej1vxhbeyXQ\nKQEFUqemQ2cIzE3g3OzpouROY/ZY6y5MvjJmG6uuLfDV3D3s2ouuda+KzbrC2SeutdSdcQJl\nVWbjCvU7ZH3Zr7qdlg6Me03VOG6X1HarbF7/i9H3+l+Mq70SIEBgqIBT7IayWDijQH3/4D+S\nnUP2U8tq3bjvKAx5WO8XHR+B+r7MQ0ZIvD3L67TFA0est/i6AmVVZmU3rJV1mZf9qtux6UBd\nMGJUkfTUrKtPGPZNVt28/uc/A17/8ze1x3YEmjrFrp1pWe+RKJDWe/662vv6onidM19X3Lrl\npk7W7VpW62obbTqBL2bz+s7Mb256WF3R7G1JvZF/3qblbk4m8PxsVnZlWJYbrYzLusy70l6b\njtSlyH90U4eul9tPSaqvP71p+Spvev0vRt/rfzGu9rr+Agqk9Z/Dzo1AgdS5KWmmQ4dlJPVJ\nUf2Gvv6uTKVu17LbJ9r0AvUGvi4aUG/o6w1xncpYt8u13uhruydQdmVYlmVatnW7rDcXTbm7\n0lbF0J8l1dcqlE5MLkjqtLZHJV1qXv/znw2v//mb2mMbAk0VSHu2MSdrP4oqkP4yqUvH1hsD\njcA8Bep1fu/kiMFO6w3dB5NrBvf92D2BMq3X7k2Sjyf192/qTbK2+wI3zUN/PalT2Oq7cX+V\n1HO1i+1W6VR9irR/8rnkHUkX///t9Z+JWUDz+l8Aql2utUAVSHUK8tHJB9Z6JDrfGYF6k1Vv\nVnd1pkc6QoAAAQIECBAgQGAygaY+QXIVu8km3VYECBAgQIAAAQIECPRAQIHUg0k2RAIECBAg\nQIAAAQIEJhOYtkCqvyD+0GTnZLu3FQECBAgQIECAAAECBNZHYNoC6dgM7Q3JmUldyvbwRCNA\ngAABAgQIECBAgEATAtMWSEdl1L+W1N8BeGLy4eQjSS07KNEIECBAgAABAgQIECDQS4G6DOsf\nJvV3IOoKbFck/5A8LHEKXhCmaK5iNwWWTQkQIECAAAECBDol0NRV7OYhW59C3S95TnJ2UsVS\n/S2Qun9Yom0voEDa3sgWBAgQIECAAAEC3RRoqkCa9hS7YVNyuyy8b1JFUp1mVwXSOUmddndK\ncnyiESBAgAABAgQIECBAoFmB+mvnT0j+PamCqPL55JnJoUm12yZvSGrdYxNttIBPkEbbWEOA\nAAECBAgQINBtgaY+QZqW+hF5wJuT+r5RFT4XJ/8n+dFkz2RrOzgLartXbF3h/rUEFEjX4nCH\nAAECBAgQIEBgjQSaKpB2TAn/x9m+Phn6YPLS5DXJ15NR7cqs+ELyoVEbWE6AAAECBAgQIECA\nAIGuCExbIL0wHX9LUt8tmqR9NRvdZpINbUOAAAECBAgQIECAAIFVC0xbINWV6TQCBAgQIECA\nAAECBAg0KTCPq9g1CWNQBAgQIECAAAECBAj0T0CB1L85N2ICBAgQIECAAAECBEYITHuK3Yjd\nWEyAAAECBGYW2JU93D+pPxdxXvLO5PSki+1W6VRdwXX/5HPJO5KLEo0AAQIECBCYg4DLfM8B\n0S4IEFhrgZ9J789NLkhOTM5Irkr+LLle0pVWfak+Vd+qj9XX6nP1/VGJRoAAgT4KNHWZ7z5O\nYBfHrEDq4qzoEwECyxKowqL+LMRTks3FUH1CU0XIa5OutOpL9an6ttGqz9X3GsNPbyz0kwAB\nAj0SUCD1aLKXNVQF0rKkHYcAga4J7JsOnZM8dUTH7pTllyXHjli/zMXVh+pL9WlYqzHUWPYd\nttIyAgQINCygQGp4clc1NAXSquQdlwCBVQv8eDpwYXL9MR3526z7mzHrl7Wq+vDqMQerMdRY\nakwaAQIE+iTQVIH0XX2aOWMlQIAAgc4J3DY9+mxy6ZienZx1td2qW/Xh42M6UWOosXShr2O6\naRUBAgQIjBNQII3TsY4AAQIEFi3wtRzg4G0OcrOsr6varbpVH7bra62vMWkECBAgsKYCCqQ1\nnTjdJkCAQCMC78o4Dkx+bMR4bpDlP5m8fcT6ZS6uPjwyqT4Na/UdpRpLjUkjQIAAAQIEZhDw\nHaQZ8DyUAIG1F3huRvCl5PAtI7lh7r85+XSyz5Z1q7hbfai+VJ+qb5tb9f3LyXM2L3SbAAEC\nPRFo6jtIO3oyaYZJgAABAt0V+K107aDkhOSNyceSOlXt4cnXk/pk5pJk1a36UH2pAukzyeuT\ns5M7Jw9J/i757UQjQIAAgTUWcIrdGk+erhMgQKARgSsyjkcndZrd+cn9kiqQnp7cJalPbbrS\nqi/Vp2ck1cfqa/W5+l5juCLRCBAgQIAAgRkFnGI3I6CHEyBAgAABAgQIrEygqVPsfIK0sueR\nAxMgQIAAAQIECBAg0DUBBVLXZkR/CBAgQIAAAQIECBBYmYACaWX0DkyAAAECBAgQIECAQNcE\nFEhdmxH9IUCAAAECBAgQIEBgZQIKpJXROzABAgQIECBAgAABAl0TUCB1bUb0hwABAgQIECBA\ngACBlQkokFZG78AECBAgQIAAAQIECHRNQIHUtRnRHwIECBAgQIAAAQIEViagQFoZvQMTIECA\nAAECBAgQINA1AQVS12ZEfwgQIECAAAECBAgQWJmAAmll9A5MgAABAgQIECBAgEDXBBRIXZsR\n/SFAgAABAgQIECBAYGUCCqSV0TswAQIECBAgQIAAAQJdE1AgdW1G9IcAAQIECBAgQIAAgZUJ\nKJBWRu/ABAgQIECAAAECBAh0TUCB1LUZ0Z8S2Dc5LLlJ3dHmIlCv9VsP0vXX/YHp5zHJHRKt\nfwJe//2bcyMmQIAAAQLXETguS65Jdl1nTb8W1Bv4v0suS8qj8qHkxxJt9wR25mHHJ2cnG6Z1\nu5bVui61o9OZ05Ork42+XpTbT0u09gVunSF6/bc/z0ZIgECbAntnWPVv91FtDs+oViGgQNpj\nj+8J/LnJe5MHJIckd0uel1yZ/HKiTSewI5u/Pfly8rjktsmhg9u1rNbVNl1oVQRflZyfPDU5\nInlUUgVyFUyvTrR2Bbz+251bIyNAoB8CCqR+zPNSR9n3AmnPaJ+YvCHZa4j8f8uyK5I7Dlln\n0WiBp2TVOUn9Zn5rq2W17ne2rljB/Zr/+qTorGTYp1p/meVVJD0w0doT8Ppvb06NiACB/gko\nkPo35wsfcd8LpPo4tj49uMUY6X/LuueMWW/VdQW+mEVPvO7iby+pdbXNqls9/6sAOnJMR76e\ndf85Zr1V6yvg9b++c6fnBAgQ2BBoqkDq+pe1N9D9bFvg8AzvU8kZY4b5zqyr7bTJBOoCF1Vw\nltuoVutqm1VfDOOH04fLk3EF0Iezvk4P1NoT8Ppvb06NiAABAmstoEBa6+lrpvP16cGwU+s2\nD7C+K1PbaZMJ1Cdy1cZ9x2hj3ca233rE8v9b81qnWY1r1df68qfWnoDXf3tzakQECBBYawEF\n0lpPXzOd/4+M5LBBRg2qvsRf22mTCZyXzT6blNuoVutqm9p2le1NOXh9NH/MmE7UBTtOGbPe\nqvUV8Ppf37nTcwIECBAgsDCBvn8HqWDfM8g+dWdL+83cvzi51Zbl7o4X+JWsru/u3HnIZrWs\n1v3ykHWrWFRFWmX/IQf/xyyrTxnuPWSdRW0IvCfDqHj9B0EjQIDAGgo09R2kNfRvsssKpD32\nuGVm9rTk48ljk7rMc33C8Zqkvp/yU4k2nUCdtvbK5ILkGcnRg9TtWlbrtju1LZsspd0zR6l5\nvjT5q+TRydOSLyRVHLlARxAabl7/DU+uoREg0AsBBVIvpnm5g1Qgfcv7wPx4fnJOUt83uSx5\nS3KPRNs9gSqA6vl1clKmlbpdy7pSHKUr32y3z38/nFyVVD+rMKrnws8lWvsCXv/tz7EREiDQ\nroACqd25XdnIFEjXpb9BFvmO3HVdZllyvTy4sg7t4HRyuwt3rMM49HH3BLz+d8/NowgQILAq\ngaYKpLoylEagiwIXdrFTa96n+kRuXdrZ69JR/VyIgNf/QljtlAABAgQmEfAb+kmUbEOAAAEC\nBAgQIECAQC8EFEi9mGaDJECAAAECBAgQIEBgEgEF0iRKtiFAgAABAgQIECBAoBcCCqReTLNB\nEiBAgAABAgQIECAwiYACaRIl2xAgQIAAAQIECBAg0AsBBVIvptkgCRAgQIAAAQIECBCYRECB\nNImSbQgQIECAAAECBAgQ6IWAAqkX02yQBAgQIECAAAECBAhMIqBAmkTJNgQIECBAgAABAgQI\n9EJAgdSLaTZIAgQIECBAgAABAgQmEVAgTaJkGwIECBAgQIAAAQIEeiGgQOrFNBskAQIECBAg\nQIAAAQKTCCiQJlGyDQECBAgQIECAAAECvRBQIPVimg2SAAECBAgQIECAAIFJBBRIkyjZhgAB\nAgQIECBAgACBXggokHoxzQbZc4EjMv6XJicNUrdrmbb7Agfmoc9MPpB8MnlL8piki/9PfXT6\n9ankkkHqdi3TCBAgQIAAgSECXfzHfEg3LSJAYDcFnpTH/UdyUPKSQep2Lat12vQCd89DPp78\ndPLW5PnJaclfJG9P9k260v4hHXlFsl9SRVylbteyWqcRIECAAAECBDopcFx6dU2yq5O906l1\nFTg2Hb8yeeSQAdSyWlfbaJML3CibnpX8TbJzy8Nuk/ufTeoTui6049OJq5M/HdKZWlbrahuN\nAAECBAjMKrB3dlDvZY+adUceT2BDQIG0IeHnPAXqU6IXjNlhratttMkFfjObfj6pfwiGtftk\nYRUetx22csnLvpHjfWTMMWtdbaMRIECAAIFZBRRIswp6/HUEFEjXIbFgRoEb5PHb/SanfstT\n29S22mQCdYrac7bZ9Iysf+w22yx69cE5QM1t/b9lVNv4/05tqxEgQIAAgVkEmiqQfAdplqeC\nxxLorsBG0fO1MV08b7DOqZ1jkLasKtcNty2rvn23zG/47XuruVHfM6v2xW/9GPrfKuSq3eRb\nP/yXAAECBAgQKAEFkucBgTYFzsmwzk/GXa2u1tU25ybaZAJ1BbhxplUYHZbUdqtsn8jB61S/\nB4/pRK2rbU4Zs41VBAgQIECAAIGVCGyc6uI3+Svhb/agL8zI6mpr+w4ZYS2rdbWNNrnA/bLp\nVcm9Rzzkj7P89GTUd5RGPGwhi0/KXi9NDhyy91pW62objQABAgQIzCrQ1Cl2s2J4/HwEFEjz\ncbSXawsckLufST6YbP7Uo27Xsk8ntY02ncCLs3mdZld/S2ijELppbtflvq9IHpB0oR2aTlye\nfCPZ/HeP6nYtuyypbTQCBAgQIDCrgAJpVkGPv46AAuk6JBbMSeBm2c8/JvWF/a8OUrdrmS/n\nB2E3Wp2a/LTkouTi5KykPlWqYvRHky61O6czX05qzquPlbpdy+6UaAQIECBAYB4CTRVIe85D\nxD5mFqgC6S+T+gJ4venSCMxboC47fcRgpyfm52nzPkAP91ffN/rB5MZJedYl0+s7PV1s90mn\nHjroWP2B2H/tYif1iQABAgTWVqAKpDoz4ejkA2s7Ch3vlIBPkDo1HTpDgAABAgQIECAwhUBT\nnyDVqSIaAQIECBAgQIAAAQIECERAgeRpQIAAAQIECBAQSKwjAAAoF0lEQVQgQIAAgYGAAslT\ngQABAgQIECBAgAABAgMBBZKnAgECBAgQIECAAAECBAYCCiRPBQIECBAgQIAAAQIECAwEFEie\nCgQIECBAgAABAgQIEBgIKJA8FQgQIECAAAECBAgQIDAQ2NFDif0z5v2S6yUXJucn/jhrEDQC\nBAgQIECAAAECfRfoyydId8tE/3VyTvK1pP7q/SnJGUkVSZ9NXpzcNNEIECBAgAABAgQIEOip\nQB8+QTo+c/vMwfyenp8fSKpIqsKoPkk6ILlV8v8nj0h+NXlVohEgQIAAAQIECBAgQKApgUdm\nNNckb03uPmZke2bdfZMTktr+6GSZ7bgcrI67a5kHdSwCBAgQIECAAAECcxDYO/uo97JHzWFf\ndrFggVdm/3X6XH3faJJW30+6IHnRJBvPcRsF0hwx7YoAAQIECBAgQGCpAk0VSK1/B+kueWrU\nKXWXTfgUOS/bnZQcMuH2NiNAgAABAgQIECBAoCGB1gukL2Wujkh2Tjhn9QlSFVV1AQeNAAEC\nBAgQIECAAIGeCbReIL088/k9yeuSe42Z2/oO0n2StyX7Jm9INAIECBAgQIAAAQIEeibQ+lXs\n6mp0ByW/n/x4cmZSl/b+alLfNbpRckBy6+TmyZXJbyTvS1pqdV7og5O7DwZ1Yn6+Obl8cL9L\nP26WzvxEcmhSpzy+I/nPRCPQNYGfTYcendQnz59J/iD5WNK15vXftRnRHwIECBAg0AGBerP9\n6qQKpLrCxubUH4n9dPInyS2TVbTjctDq0yKuYndk9lsXqvhG8s+D1O1aVuu61H4tnbk4+XxS\nBVxdVfDq5PVJFbMagS4I1HcU6/8l9dysPxdwdnLF4H49V7vUvP67NBv6QoAAgXYFmrpIQ7vT\nNHpk9Ua7CqHDkvo7SF1oiyqQbp/BnZ+8LNlcYNS4a1mtq2260B6fTlyaPDapUx432p1z45PJ\nO5PNyzfW+0lgmQL1HKxPoOu5+vBNB67lf5VU0VSfXHehef13YRb0gQABAv0QUCD1Y56XOspF\nFUh/l1GMKizqDV2tq21W3ap4+3ryyyM6UqdA1id9jxyx3mICyxL40xyoiqBRfyutPqmu9fUp\n06qb1/+qZ8DxCRAg0B8BBVJ/5nqmkd4wj67vJkySJ2a7eZ9itzP7vCR5UDKq1braprZdZavf\nxNenWeP68bKs/9tEI7BKgS/k4J8e04F9sq4KpD8cs80yVnn9L0PZMQgQIEBgQ6CpAqn1q9ht\nTNqkP+s0r48mj5v0ASO2q1Nb6hORr02Y543YzyyLb5IHXz8Z92au1tU2te0q2y1y8HrjecWY\nTlRfazuNwCoFbpyDnzamA/ULhzr97nZjtlnGKq//ZSg7BgECBAg0KbCjyVHt/qAOzkPvktTP\nWVpd0er7kqqmJ2n1CcrTJ9lwim2qOLsyuVXyqRGPq3W1TW27ynZODn5IUgV7/fZ9WKu+nj1s\nhWUElihQFzgZV6jvlfXXS85cYp+GHcrrf5iKZQQIECBAgMDUAvMqkKY98HF5wLxPsas+vDV5\nXd0Y0WrdW0asW+bi+m33JcmjRhy01tcbvp8fsd5iAssSeEkOdFVyhxEHfH6WV5E/av2Ihy1k\nsdf/QljtlAABAgSGCDR1it2Q8Vm0AoFFFUh3y1iq8HhWsvnTwrr97MG6w/OzC+34dKK+h3TM\nls7U36d6f/KhZPMYtmzmLoGlCNSnQ3XBkAuSu2454pNzv4qjuvhJF5rXfxdmQR8IECDQDwEF\nUmPzXG947pDUqTGraosqkGo8P5bUpy/1HZ+XJi8b3K5lta4rbc90pK4QVr+df1/youTvk3oz\n+sGkCiWNQBcEqjCqU+2qGDoz+XhS3zms+/W3u+q53JXm9d+VmdAPAgQItC3QVIHUl4s03DbP\nybrwwsOSGwyen/WG+7XJV5JTk/qN8LOSnUlLrU6zqS+MV/FR871RiNSyWteVVqcY/kZSn2i9\nJ9kv+VLy6KQuqVy3NQJdEPhoOlEXa/iDpH7RsCv5WPKTyT2Sei53pXn9d2Um9IMAAQIECHRI\n4NfTl3rDspHTcvumyWsGy87Lz/oezlmD+7V82e24HLD6V2+0NAIECBAgQIAAAQLrJNDUJ0jr\nBL87fX1gHlSnvZyc/GrypOSrSX1iVAXJbyX7JNWun/xNUssfkCyzKZCWqe1YBAgQIECAAAEC\n8xRQIM1Tc8H7enH2X98V2PzJzE/kfhVBX0y2fu+oiqVzk+cly2wKpGVqOxYBAgQIECBAgMA8\nBZoqkFr/DtK9MvNvS+qL/hvtn3Kj/pDjm5K6IMDmdknunJIctnmh2wQIECBAgAABAgQI9EOg\n9QKpvl9URdLmcV6c+7+XfDLZ2uqL1/Ul6/o+kkaAAAECBAgQIECAAIGmBH4no6nT6eqUuZtt\nM7KdWf/nSW3/M9tsO+/VTrGbt6j9ESBAgAABAgQILEugqVPsloW2quPUhRdOTKroqdPq9k+G\ntUdk4dlJbfeuZNl/x0SBFHSNAAECBAgQIEBgLQWaKpA2n3q2lrOxTaerKPrB5FnJSUmdcjes\n1UUcamJfkBybVKGkESBAgAABAgQIECBAoJcCdfW6rVe0WyaET5CWqe1YBAgQIECAAAEC8xRo\n6hOkHfOUWeN91dXrNAIECBAgQIAAAQIEei7Q+il2PZ9ewydAgAABAgQIECBAYBoBBdI0WrYl\nQIAAAQIECBAgQKBpAQVS09NrcAQIECBAgAABAgQITCOgQJpGy7YECBAgQIAAAQIECDQtoEBq\nenoNjgABAgQIECBAgACBaQQUSNNo2ZYAAQIECBAgQIAAgaYFXOa76eld28HdIj2/bVJ/2PcT\nydWJRoAAAQIECBAgQGDhAj5BWjixA0whcJds+97ki4OfH8vP05OfTzQCBAgQIECAAAECCxdQ\nIC2c2AEmFLhntnt/cm5yeFKfbn538sLkL5JnJBoBAgQIECBAgAABAj0QOC5jvCbZ1YOxDhvi\nXll4SvLSYSuz7EHJVcndR6y3mAABAgQIECBAYHUCe+fQ9V72qNV1wZFbE+h7gfRDmdArkpuM\nmdh3ZN2fjVlvFQECBAgQIECAwGoEmiqQnGK3mieRo15b4E65e2rylWsvvta9f8u92k4jQIAA\nAQIECBAgsDABBdLCaO14CoHLsu2+22xf62s7jQABAgQIECBAgMDCBBRIC6O14ykE3pdt67Le\ndx3xmHqePiSp7TQCBAgQIECAAAECBBoX6Pt3kGp6/yH5UHJA3dnS/ij3z08O2rLcXQIECBAg\nQIAAgdULNPUdJH8odvVPKD34lsAv5Mc7k5OSurR3/Q2kg5OfS45IHp6ck2gECBAgQIAAAQIE\nCDQu4BOkb01wfc/oKUkVSRcm9QdjX5LcPtEIECBAgAABAgS6KdDUJ0jdJO5frxRI/ZtzIyZA\ngAABAgQItCLQVIHkIg2tPC2NgwABAgQIECBAgACBmQUUSDMT2gEBAgQIECBAgAABAq0IKJBa\nmUnjIECAAAECBAgQIEBgZgEF0syEdkCAAAECBAgQIECAQCsCCqRWZtI4CBAgQIAAAQIECBCY\nWUCBNDOhHRAgQIAAAQIECBAg0IqAAqmVmTQOAgQIECBAgAABAgRmFlAgzUxoBwQIECBAgAAB\nAgQItCKgQGplJo2DAAECBAgQIECAAIGZBRRIMxPaAQECBAgQIECAAAECrQgokFqZSeMgQIAA\nAQIECBAgQGBmAQXSzIR2QIAAAQIECBAgQIBAKwIKpFZm0jgIECBAgAABAgQIEJhZQIE0M6Ed\nECBAgAABAgQIECDQioACqZWZNA4CBAgQIECAAAECBGYWUCDNTGgHBAgQIECAAAECBAi0IqBA\namUmjYMAAQIECBAgQIAAgZkFFEgzE9oBAQIECBAgQIAAAQKtCCiQWplJ4yBAgAABAgQIECBA\nYGYBBdLMhHZAgAABAgQIECBAgEArAgqkVmbSOAgQIECAAAECBAgQmFlAgTQzoR0QIECAAAEC\nBAgQINCKgAKplZk0DgIECBAgQIAAAQIEZhZQIM1MaAcECBAgQIAAAQIECLQioEBqZSaNgwAB\nAgQIECBAgACBmQUUSDMT2gEBAgQIECBAgAABAq0IKJBamUnjIECAAAECBAgQIEBgZgEF0syE\ndkCAAAECBAgQIECAQCsCCqRWZtI4CBAgQIAAAQIECBCYWUCBNDOhHRAgQIAAAQIECBAg0IqA\nAqmVmTQOAgQIECBAgAABAgRmFlAgzUxoBwQIECBAgAABAgQItCKgQGplJo2DAAECBAgQIECA\nAIGZBRRIMxPaAQECBAgQIECAAAECrQgokFqZSeMgQIAAAQIECBAgQGBmAQXSzIR2QIAAAQIE\nCBAgQIBAKwIKpFZm0jgIECBAgAABAgQIEJhZQIE0M6EdECBAgAABAgQIECDQioACqZWZNA4C\nBAgQIECAAAECBGYWUCDNTGgHBAgQIECAAAECBAi0IqBAamUmjYMAAQIECBAgQIAAgZkFFEgz\nE9oBAQIECBAgQIAAAQKtCCiQWplJ4yBAgAABAgQIECBAYGYBBdLMhHZAgAABAgQIECBAgEAr\nAgqkVmbSOAgQIECAAAECBAgQmFlAgTQzoR0QIECAAAECBAgQINCKgAKplZk0DgIECBAgQIAA\nAQIEZhZQIM1MaAcECBAgQIAAAQIECLQioEBqZSaNgwABAgQIECBAgACBmQUUSDMT2gEBAgQI\nECBAgAABAq0IKJBamUnjIECAAAECBAgQIEBgZgEF0syEdkCAAAECBAgQIECAQCsCCqRWZtI4\nCBAgQIAAAQIECBCYWUCBNDOhHRAgQIAAAQIECBAg0IqAAqmVmTQOAgQIECBAgAABAgRmFlAg\nzUxoBwQIECBAgAABAgQItCKgQGplJo2DAAECBAgQIECAAIGZBRRIMxPaAQECBAgQIECAAAEC\nrQgokFqZSeMgQIAAAQIECBAgQGBmAQXSzIR2QIAAAQIECBAgQIBAKwIKpFZm0jgIECBAgAAB\nAgQIEJhZQIE0M6EdECBAgAABAgQIECDQioACqZWZNA4CBAgQIECAAAECBGYWUCDNTGgHBAgQ\nIECAAAECBAi0IqBAamUmjYMAAQIECBAgQIAAgZkFFEgzE9oBAQIECBAgQIAAAQKtCCiQWplJ\n4yBAgAABAgQIECBAYGYBBdLMhHZAgAABAgQIECBAgEArAgqkVmbSOAgQIECAAAECBAgQmFlA\ngTQzoR0QIECAAAECBAgQINCKgAKplZk0DgIECBAgQIAAAQIEZhZQIM1MaAcECBAgQIAAAQIE\nCLQioEBqZSaNgwABAgQIECBAgACBmQUUSDMT2gEBAgQIECBAgAABAq0IKJBamUnjIECAAAEC\nBAgQIEBgZgEF0syEdkCAAAECBAgQIECAQCsCCqRWZtI4CBAgQIAAAQIECBCYWUCBNDOhHRAg\nQIAAAQIECBAg0IqAAqmVmTQOAgQIECBAgAABAgRmFlAgzUxoBwQIECBAgAABAgQItCKgQGpl\nJo2DAAECBAgQIECAAIGZBRRIMxPaAQECBAgQIECAAAECrQgokFqZSeMgQIAAAQIECBAgQGBm\nAQXSzIR2QIAAAQIECBAgQIBAKwIKpFZm0jgIECBAgAABAgQIEJhZQIE0M6EdECBAgAABAgQI\nECDQioACqZWZNA4CBAgQIECAAAECBGYWUCDNTGgHBAgQIECAAAECBAi0IqBAamUmjYMAAQIE\nCBAgQIAAgZkFFEgzE9oBAQIECBAgQIAAAQKtCOxoZSC7OY5b53F3TM5JTk0uSTQCBAgQIECA\nAAECBHoq0PonSL+UeX1Vss+W+b1z7p+QfD55e/Lh5EvJbyd7JRoBAgQIECBAgAABAgSaE/jf\nGdE1yX6bRnbL3D5/sLyKpBclVUSdMVj2nPxcdjsuB6x+7lr2gR2PAAECBAgQIECAwIwCe+fx\n9V72qBn34+FLEBhWIL0yx60J/O9bjr9v7m+sO2bLukXfVSAtWtj+CRAgQIAAAQIEFiXQVIHU\n+il2w54ER2fhfyQv3LLy4tz/xeSryY9sWecuAQIECBAgQIAAAQI9EOhjgXSjzOvHRsxtXaTh\nlOT7R6y3mAABAgQIECBAgACBhgX6WCCdmPmsizQMawdm4T2SumCDRoAAAQIECBAgQIBAzwT6\nUiDVKXX1/aInJe9Pjkwekmxut8qdOu2uzqH8l80r3CZAgAABAgQIECBAgEALAj+ZQbw++VxS\nF2bYnNNzf6M9KDeuSGr9+5I9k2U2F2lYprZjESBAgAABAgQIzFOgqYs0tP6HYl+bma9Uq0t9\nH74pm4ug+ttH9f2jVye/nlShpBEgQIAAAQIECBAgQKCXAvWHZHeucOQ+QVohvkMTIECAAAEC\nBAjMJOATpJn4uvng+vRII0CAAAECBAgQIECg5wKtn2I37fQ+Pg94XPIXyYumffCm7etS4r+X\nTPqplMuKb8JzkwABAgQIECBAgMCqBBRI15Y/OHfvktTPWdr18uDbJPVx4yRt12CjulCERoAA\nAQIECBAgQIAAgU4IzKtAmnYwR+UBdWGISQuqafdvewIECBAgQIAAAQKLEvAdpEXJdmC/Z6cP\nFY0AAQIECBAgQIAAgR4K9OUPxW5M7Xbjrct9759cf+MBfhIgQIAAAQIECBAg0B+B7QqGFiTq\ntLnXJF9LLkjenfxAMqzdOQtru98ettIyAgQIECBAgAABAgTaFmi9QLpBpu+E5KeS+nTojOR+\nyXuTZyUaAQIECBAgQIAAAQIEvi3QeoH05Iz0lskzk1sk35PcIzk5eWrynEQjQIAAAQIECBAg\nQIBALwTekVHWRRe2Xs58vyyrT5HqynFVRG20w3Ojlj19Y8GSfrqK3ZKgHYYAAQIECBAgQGDu\nAk1dxa71T5AOyfT/a3LllqfB13P/wclJyR8mdQqeRoAAAQIECBAgQIBAzwVaL5C+kPk9Jhl2\nVbq6YMOxSX0v6eXJqAs3ZJVGgAABAgQIECBAgEAfBFovkN6ZSazT6Z6dfPeQCT0zy+6ffCN5\nS/KgRCNAgAABAgQIECBAgECTAvXJ0ceT+l7RVcmjkmGtvnt0XlLbVZ6RLLP5DtIytR2LAAEC\nBAgQIEBgngK+gzRPzQXv69Ls/17JC5LTk8uTYe0jWXhk8rZhKy0jQIAAAQIECBAgQIBAiwKT\nnFJYlwGvPxi7zOYTpGVqOxYBAgQIECBAgMA8BZr6BGnr5a/nCdXFfV09QafqD8tqBAgQIECA\nAAECBAj0UGCST1R6yGLIBAgQIECAAAECBAj0UUCB1MdZN2YCBAgQIECAAAECBIYKKJCGslhI\ngAABAgQIECBAgEAfBRRIfZx1YyZAgAABAgQIECBAYKiAAmkoi4UECBAgQIAAAQIECPRRQIHU\nx1k3ZgIECBAgQIAAAQIEhgookIayWEiAAAECBAgQIECAQB8FFEh9nHVjJkCAAAECBAgQIEBg\nqIACaSiLhQQIECBAgAABAgQI9FFAgdTHWTdmAgQIECBAgAABAgSGCiiQhrJYSIAAAQIECBAg\nQIBAHwUUSH2cdWMmQIAAAQIECBAgQGCogAJpKIuFBAgQIECAAAECBAj0UUCB1MdZN2YCBAgQ\nIECAAAECBIYKKJCGslhIgAABAgQIECBAgEAfBRRIfZx1YyZAgAABAgQIECBAYKiAAmkoi4UE\nCBAgQIAAAQIECPRRQIHUx1k3ZgIECBAgQIAAAQIEhgookIayWEiAAAECBAgQIECAQB8FFEh9\nnHVjJkCAAAECBAgQIEBgqIACaSiLhQQIECBAgAABAgQI9FFAgdTHWTdmAgQIECBAgAABAgSG\nCiiQhrJYSIAAAQIECBAgQIBAHwUUSH2cdWMmQIAAAQIECBAgQGCogAJpKIuFBAgQIECAAAEC\nBAj0UUCB1MdZN2YCBAgQIECAAAECBIYKKJCGslhIgAABAgQIECBAgEAfBRRIfZx1YyZAgAAB\nAgQIECBAYKiAAmkoi4UECBAgQIAAAQIECPRRQIHUx1k3ZgIECBAgQIAAAQIEhgookIayWEiA\nAAECBAgQIECAQB8FFEh9nHVjJkCAAAECBAgQIEBgqIACaSiLhQQIECBAgAABAgQI9FFAgdTH\nWTdmAgQIECBAgAABAgSGCuwYutRCAgQmETgkG/1Isn/yueSdySWJRoAAAQIECBAgQIDADAJH\n5bHXJHvPsA8PXZ5AzdPzkyuTLyUfTS5Kzk4emWgECBAgQIAAgT4J1Hujei9b72k1AnMRUCDN\nhXFpO3lNjnRW8oBNR9wnt5+WVNGkSNoE4yYBAgQIECDQvIACqfkpXv4AFUjLN9/dIz4wD7w8\nufOIHVSRVJ8kVcGkESBAgAABAgT6IKBA6sMsL3mMCqQlg89wuJfnsfUJ0qhWhVGdbvfgURtY\nToAAAQIECBBoTKCpAslV7Bp7dhrOwgUOzRE+NuYodZGGzyS1nUaAAAECBAgQILBmAgqkNZsw\n3V25wHnpwcHb9OKgrK/tNAIECBAgQIAAgTUTUCCt2YTp7soF3pEePCLZNaIndeGGmybvGrHe\nYgIECBAgQIAAAQIEthHwHaRtgDq0et/05bPJG5OtRVJduKGubleXANcIECBAgAABAn0RaOo7\nSP5QbF+etsY5L4GLs6Njk7ckn05el9RV66o4eljy98mTE40AAQIECBAgQGANBRRIazhpurxy\ngVPTg+9PfjG5f3J48rnkIcnbEo0AAQIECBAgQIAAgRkEnGI3A56HEiBAgAABAgQIrFSgqVPs\nXKRhpc8lBydAgAABAgQIECBAoEsCCqQuzYa+ECBAgAABAgQIECCwUgEF0kr5HZwAAQIECBAg\nQIAAgS4JKJC6NBv6QoAAAQIECBAgQIDASgUUSCvld3ACBAgQIECAAAECBLokoEDq0mzoCwEC\nBAgQIECAAAECKxVQIK2U38EJECBAgAABAgQIEOiSgAKpS7OhLwQIECBAgAABAgQIrFRAgbRS\nfgcnQIAAAQIECBAgQKBLAgqkLs2GvhAgQIAAAQIECBAgsFIBBdJK+R2cAAECBAgQIECAAIEu\nCSiQujQb+kKAAAECBAgQIECAwEoFFEgr5XdwAgQIECBAgAABAgS6JKBA6tJs6AsBAgQIECBA\ngAABAisVUCCtlN/BCRAgQIAAAQIECBDoksCOLnVGX/bYm8FaCuyVXvtlw1pOnU4TIECgNwJX\n9GakBroKgabewyqQVvEUuu4xN/6n9Y3rrrKEAAECBAgQIECAwFoIXL4Wvdymk3tus97q5Qkc\nmUPtXN7hHGlOAkdnP89KnjCn/dkNAQJ77PG/gvDi5GQYBAjMReCx2cuFyTMSjcCiBKo4OnFR\nO7dfAgTWR+DYdPWi9emunhJYC4F6TdVrSyNAYD4CL8tuKhoBAhMI+N7EBEg2IUCAAAECBAgQ\nIECgHwIKpH7Ms1ESIECAAAECBAgQIDCBgAJpAiSbECBAgAABAgQIECDQDwEFUj/m2SgJECBA\ngAABAgQIEJhAQIE0AZJNCBAgQIAAAQIECBDoh4ACqR/zbJQECBAgQIAAAQIECEwgoECaAMkm\nBAgQIECAAAECBAj0Q0CB1I95NkoCBAgQIECAAAECBCYQUCBNgGQTAgQIECBAgAABAgT6IbCj\nH8M0SgILE7gie758YXu3YwL9FKjXVL22NAIE5iPg36n5ONoLAQIECEwgUJ/CHjrBdjYhQGBy\ngXpNOcNhci9bEthO4IBsUNEIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgECXBPbsUmf0hUBHBb47/bpX8i/J1ybs442y3f4jtr0o\ny78yYp3FBFoVuFUGNurfnDOz7soJBr5XtqnX4s2Tk5JPJxqBvgrM49+Zebwu++pv3AQIEOit\nQL0he39yTXLUFAp/PnhMPW5rXjXFfmxKoAWBgzKIra+DzffvMMEgD8s2n9yyn4/n/i0neKxN\nCLQoMOu/M/N4XbboakwE9tjBgACBsQK/m7XTFEYbOzs8Ny5M/npjwaafJ2667SaBPgjU66Ha\nPycnf/PWtf9z3rXvXudeffL0kuSQ5GeTDyY/nDw/+bfk+5L6ZFYj0CeBWf+dmfV12SdrYyVA\ngACBgcA98/OK5Jykfts9aaH0Xdm2iqN3JxoBAnvs8dtBqNfQ/XYT4/GDx//SlscfN2L5ls3c\nJdCcwDz+nZn1ddkcqgERIECAwHiBXVld32/41+SPk3pzd+9kknbHbFTb1+M0AgT22OPVQbg6\nueFuYvx7HndpcuMtj6/vYFySnLBlubsEWheYx78zs74uWzc2vh4LOMWux5Nv6GMFnpu1Byf/\nJfmlsVted+XGaQt1Kt3RyRHJBUmdFnRqohHom0C9Jj6V7J38THKz5BPJe5MqcMa1nVlZj6/X\nzvlbNqzX1SnJXZParj7x1Qj0QWAe/87M8rrsg7ExEiBAgMAmgYfmdn0C9AuDZX8wuD/pJ0j/\nc7B9vSGs/Wzkqtx+TuIXE0HQeiOwb0Zaz/0vJ1XQbLwe6me9RupU1nFt44vk7x6x0TuzvPb1\n3SPWW0ygRYFZ/52Z9XXZoqkxESBAgMAIgfrN9rnJGzatn7ZAelseW2/Y6rfjP5bcYvCzvpxe\ny38v0Qj0RaB+sVDP+8uSJyffm9RFFZ6dXJmcnRyQjGq3z4p6/P8dsUEtr/V1lTuNQF8EZv13\nZtbXZV+cjZMAAQIEIvCWpN6w3XSTxrQF0n3y2Pr06fqb9lE3b5bUKUKXJrsSjUAfBOoToEcl\nPzBksH+YZVXc/P6QdRuL6hcMtc3rNhZs+fn6wfpDtyx3l0DLArP+OzPr67JlW2MjQIAAgU0C\nv5Lb9Ubsp5M6/WAjfzpY/kODZaP+2GVWb9s2ftt9j223tAGB9gXulCHWa+7NY4Zap6TWBR7e\nPWKb92R57ePAEestJtA3gVn/nZnkddk3U+PtmYDvQvRswg13rMAj/l979w4qRxWHATwkolaa\ngEXsFCwUjIViIfjABxZaKWJnZ2FroWghBLSwEFuLYGMlWGjnC1Sw0DYGtBLEpBATsVAUUdTv\nI7MwLPdedu+9Fs75/eHLzs6cXe75hcPs2XnstPXtXVqtPqDdnO37vdnCxem9e/ctRWB0gU3G\nQ0/D+zHZ7TS8rv8t6dFZRYDA5dPE67Df/cwm45IzgUULmCAt+r9X57YUeDftd/oRy54adHvy\nTvJD8nOyW/U2xp8lvd7i7qTffM+rk6vWfidYl1/tXwL/H4Fn86c+k5xOelvheW06Hr7Jizqe\nrksuzd6gp8L2mqYvkt4IQhEYQeAw9jOHMS5HsNZHAgQIENhF4NWs7yk8vah1kzqXRm3/5Frj\nTrQ6YepdtxSBUQR6ZLbjoV8+zE9P7fIH07Z787hXPZ6NfY/n1xq9MK1/Ym29pwSWLnDQ/cxh\njMulG+sfAQIECOwhsNcEaXWB+GOz1z+Y5X6b3W+6e/3SQ0k/2P2S/JTcligCowgcS0c/STrB\n+TR5Kul4+SjpujPJvHYaU0fT4Ouk4+rlpGPqlel52ysCowlss5/pPqdj7ewMadtxOXupRQIE\nCBAgcOTIthOkmj2SzH8HqddRfJ7cmCgCowmcSIffSDoO+kGt6RcIzyXrtdMEqW16et37SY/C\nrt7jwyyfTBSBEQU23c/sNEGq1zbjckRffSZAgACB/0jg+rxvr1/qHfEUgdEFrg7AqeSGA0D0\n+os7EhOjAyB66aIEDrqfOYxxuShQnSFAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAiMLHBu58/pOgAABAosVuCU9ezQ5mXy71st78vz+5M/k4to2TwkQIECAAAEC\nBAgQILA4gRPp0fnkr+TOWe9uzfLvyXfJ8UQRIECAAAECBAgQIEBgCIEH0su/k3PJlclVyVdJ\njxzdlSgCBAgQIECAAAECBAgMJfBaevtP8lLy+rT8Yh4VAQIECBAgQIAAAQIEhhPoUaOzyR9J\njyZ9nBxNFAECBAgQIECAAAECBIYUuC+97lGk5tSQAjpNgAABAgQIECBAgACBSeC9PK4mSF1W\nBAgQIECAAAECBAgQGFLg6fS6k6MzyZvTctcpAgQIECBAgAABAgQIDCVwU3r7a/J9ck1ybXIh\n6bpuUwQIECBAgAABAgQIEBhC4Ir08sukR48envW4Px7bdd3WNooAAQIECBAgQIAAAQKLFzid\nHq5OrVvv7FvTtrZRBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECYwj8C3Jy8GD/6oTuAAAA\nAElFTkSuQmCC", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "setosa <- iris[iris$Species==\"setosa\", ]\n", "\n", "plot(setosa$Sepal.Length, setosa$Sepal.Width, xlab=\"x\", ylab=\"y\")" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "When we look at this plot, we immediately grasp that the relationship between $y$ and $x$ appears to be fairly linear aside from some small deviations. We'll assume that the relationship really is linear, and that these deviations happened because of random error. In fact, it's almost as if we can draw an imaginary line around which the data tightly fits. Indeed we can draw this line. Don't worry if you haven't seen the code below before - we're going to analyze it in detail later in the lecture." ] }, { "cell_type": "code", "execution_count": 8, "metadata": { "collapsed": false }, "outputs": [ { "ename": "ERROR", "evalue": "Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...): plot.new has not been called yet\n", "output_type": "error", "traceback": [ "Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...): plot.new has not been called yet\nTraceback:\n", "1. abline(lm(Sepal.Length ~ Sepal.Width, data = setosa))", "2. int_abline(a = a, b = b, h = h, v = v, untf = untf, ...)" ] } ], "source": [ "abline(lm(Sepal.Length ~ Sepal.Width, data=setosa))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Thanks to the line, we can now see that when $x$ is $6$, we can expect $y$ to be approximately $4.5$, even though we have no data point there. Similarly, when $x$ is $4.5$, $y$ is around $2.9$.\n", "\n", "In your grade school science classes, you were most likely taught that this is called a \"line of best fit.\" We'll now cover an intuitive and powerful predictive model that formalizes and generalizes this idea to any number of variables. Much of this will already be familiar to you from high school math and science classes, but it's important to thoroughly review this topic since it introduces important concepts that come up in other predictive models." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Variables, Extrapolation, and Interpolation\n", "\n", "We now need to precisely state a few definitions. They will be the scaffolding upon which we build all of our ideas throughout the next few lectures.\n", "\n", "* __Dependent variable__ - the quantity that we are trying to predict.\n", "* __Independent variables__ - data that influence the dependent variable in some way.\n", "* __Hypothesis__ - a mathematical relationship between the independent variables and dependent variables.\n", "* __Extrapolation__ - a form of prediction where we estimate values outside the range of observation.\n", "* __Interpolation__ - a form of prediction where we estimate values within \"gaps\" inside the range of observation.\n", "\n", "Both extrapolation and interpolation are forms of _inductive reasoning_, in which a general rule is applied to a specific observation." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Statistics: A Brief Interlude\n", "\n", "Before we continue, we recognize that some students in the class might not have a backround in statistics. Because of this, we want to get you up to speed on a few statistics terms. If you've already taken a statistics course, feel free to skip this section.\n", "\n", "### Distributions and Single-Variable Data Sets\n", "\n", "We do assume that you know some probability (for example, what probability is and what the axioms of probability are) since it's taught at the grade school level. One thing that we should clarify is the idea of a __probability distribution__, since in this course we'll be speaking occasionally of distributions. A distribution is an assignment of probabilities to possible data points. For example, we could say that we expect a certain Boolean variable in a data set to take on the value `true` 50% of the time and the value `false` 50% of the time. This is a __uniform distribution__, since all outcomes are equally likely. \n", "\n", "You'll often see the distribution as a function $p(x)$ relating outcomes to probabilities.\n", "\n", "Another important distribution is the __normal distribution__ or __Gaussian__, named after the esteemed Carl Friedrich Gauss. We won't be going into mathematical detail (the exact formula is bizarre looking although you can find the two dimensional formula here: http://patentimages.storage.googleapis.com/WO2010053874A1/imgf000014_0001.png). However, you should know that it's a bell-shaped curve, with much of the data concentrated at the mean and very little of the data at the periphery. An image can be found below:\n", "\n", "(insert image)\n", "\n", "Can you think of a few real-life scenarios that model this behavior? Some examples we could think of include test scores, height, and weight.\n", "\n", "Two important properties of a single-variable dataset are __mean__ and __variance__. \n", "\n", "The __mean__, often called __expected value__, is defined as\n", "\n", "$$ E[X] = \\int_{-\\infty}^{\\infty} xp(x)dx $$\n", "\n", "where $x$ represents all the possible values of the variable $X$.\n", "\n", "One way of thinking of this is the average value of the data - a weighted sum of all possible values, weighted by their respective probabilities of occurring. Another way to think of this is the value you'd expect to see if you began picking data points out of a hat. \n", "\n", "A more visual and intuitive way to think of the mean is that it's the center of the data. If each data point contributed a unit of mass to the overall distribution, the mean would be at the center of mass.\n", "\n", "The __variance__ of the data quantifies how spread out the data is. A small variance implies that the data is mostly concentrated in a single place. A large variance means that the data is evenly spread out over a large range.\n", "\n", "The variance is defined as\n", "\n", "$$ Var(X) = E[(X - E[X])^2] $$\n", "\n", "To put it in words, the variance is the mean of the square of the distance from each data point to the mean of the dataset. (If you're confused, try carefully thinking about the preceding statement and what it means visually.) If this average squared distance is large, the data is spread out since many points are far from the mean of the dataset. If the average squared distance small, this means that many data points are close to the mean.\n", "\n", "The square root of the variance is often called the __standard deviation__, and is sometimes used in place of variance as a measure of spread. Standard deviation is denoted as $\\sigma_X$.\n", "\n", "### Multi-Variable Data Sets\n", "\n", "How can two variables relate to each other? One natural relationship is that when we see an increase in values in one variables, we see an increase or decrease in values in the other variable. This idea is called __correlation__. To introduce it, we first talk about __covariance__, a generalization of variance to two variables.\n", "\n", "We define covariance between two variables as\n", "\n", "$$ Cov(X, Y) = E[(X-E[X])(Y-E[Y])] $$\n", "\n", "Notice how $ Cov(X, X) = Var(X) $. Covariance can either be positive or negative. A covariance with a large magnitude indicates that one variable is sensitive to changes in another. A covariance with a small magnitude indicates the opposite.\n", "\n", "Covariance is a flawed metric, since the magnitudes of the data points can artifically skew the result one way or the other. Imagine two variables, both measured in kilometers. The covariance of the two variables is recorded and is a small value. Imagine that the datasets are then scaled such that the measurements are in centimeters. Even though the relationship between the datasets is the same, the covariance is likely to be much larger! Changes in scale can inflate or deflate covariance.\n", "\n", "Because of this, we use __correlation__ instead. Correlation is the same as covariance, but it is scaled down by the standard deviations of the two variables. It is defined as\n", "\n", "$$ Cor(X, Y) = \\frac{Cov(X, Y)}{\\sigma_X \\sigma_Y} $$\n", "\n", "An intuitive way to think about correlation is \"the degree of linear relationship between two variables.\" Since it's scaled down, correlation can take on values between -1 and 1. A correlation of -1 indicates a perfectly negative linear relationship while a correlation of 1 indicates a perfectly positive linear relationship. A correlation of 0 indicates no linear relationship.\n", "\n", "(insert images of negative, zero and positive correlation here)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Simple Linear Regression\n", "\n", "Let's refer back to the example of sepal width and length. We can formally state this as a __simple linear regression__ problem. We would like to obtain a linear hypothesis function $\\hat{y} = B_0 + B_1x_1$. You might recognize $B_0$ as a \"y-intercept\" and $B_1$ as the \"slope\" of a linear equation. We'll call both of these values __coefficients__.\n", "\n", "Our goal is to choose a set of coefficients B_0 and B_1 such that we minimize __error__ (the distance of all of our data points from our hypothesis line in the plane).\n", "\n", "### Least-Squares Error\n", "\n", "To compute the total error associated with a simple linear regression model given some existing data points, we use the following process:\n", "\n", "* Start with total error = 0.\n", "* For each $x$ value, we compute what the predicted value of $y$ (which we've been referring to as $\\hat{y}$) should be given our model. \n", "* We then compute the distance from this value to the actual value of $y$ at this value of $x$. We use the square of the Euclidean distance formula to calculate this distance ($(\\sqrt{(y - \\hat{y})^2})^2 = (y - \\hat{y})^2$).\n", "* Add this distance to the total error.\n", "\n", "For example, suppose we had the single data point (5, 6). If our model is represented by the linear equation $y = 3 + 2x$, then our total error would be $(6 - (3 + 2(5)))^2 = 49$. This method of using Euclidean distance to compute total error is called __least-squares error__ (or __sum of squared error__). The formula version of this, given that we have $n$ data points, is:\n", "\n", "$$ \\sum_{j = 1}^{n} (y_j - \\hat{y})^2 $$\n", "\n", "For those of you who are proficient in calculus, here is a link to an explanation on how to do simple linear regression using differentiation: https://www.amherst.edu/system/files/media/1287/SLR_Leastsquares.pdf" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Multiple Linear Regression\n", "\n", "Things get slightly more complicated when we add several variables, but for our purposes we won't dive too deeply into it. Here's what you need to know.\n", "\n", "### Redefinitions\n", "\n", "Suppose we now have $k$ variables. Instead of an easily plottable line in 2-dimensional space, our goal is to obtain a linear hypothesis function (a hyperplane) in $k+1$-dimensional space: we have $k$ $x_i$'s to take into account plus one y-intercept.\n", "\n", "Now the goal of linear regression can be restated:\n", "\n", "$$ \\hat{y} = B_0 + B_1x_1 + ... + B_kx_k = B_0 + \\sum_{i=1}^{k} B_ix_i $$\n", "\n", "Our least squares calculation remains the same, except instead of using our single-variable linear function to compute the theoretical value of the dependent variable, we now use the many-variable equation. The final version of the least-squares error formula looks like this:\n", "\n", "$$ SSE = \\sum_{j=1}^{n} (y_j - \\hat{y})^2 = \\sum{j=1}^{n} (y_j - (B_0 + \\sum_{i=1}^{k} B_ix_i))^2 $$\n", "\n", "It's important to remember what coefficients mean in the multi-variable case now that we no longer have the familiar analogues of \"slope\" and \"y-intercept\" to guide us. Precisely put, a coefficient $B_i$ for $x_i$ is the increase in $y$ associated with a 1-unit increase in $x_i$. In other words, keeping everything else the same, $B_i$ is the amount that $y$ changes if we increase $x_i$ by 1.\n", "\n", "## Using R\n", "\n", "Now it's time to create a full linear regression model using R. We're going to go over how to create the \"line of best fit\" seen earlier in detail.\n", "\n", "We start by creating a variable representing our model. We'll call this variable `reg`. To create this model we can use R's `lm` function, which takes a special syntax:\n", "\n", "* Notice the `Sepal.Width ~ Sepal.Length` in the code below. This can be read as \"the column `Sepal.Width` _depends on_ the column `Sepal.Length`.\" The independent variables (the right hand side of this expression) can be generalized to any number of columns in a vector. An example of this could be `Income ~ c(Education, Age)`.\n", "\n", "* We pass our data frame into the `data` argument so that we know what data frame these columns are in.\n", "\n", "Execute the statement below and observe the output." ] }, { "cell_type": "code", "execution_count": 9, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/plain": [ "\n", "Call:\n", "lm(formula = Sepal.Width ~ Sepal.Length, data = setosa)\n", "\n", "Residuals:\n", " Min 1Q Median 3Q Max \n", "-0.72394 -0.18273 -0.00306 0.15738 0.51709 \n", "\n", "Coefficients:\n", " Estimate Std. Error t value Pr(>|t|) \n", "(Intercept) -0.5694 0.5217 -1.091 0.281 \n", "Sepal.Length 0.7985 0.1040 7.681 6.71e-10 ***\n", "---\n", "Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\n", "\n", "Residual standard error: 0.2565 on 48 degrees of freedom\n", "Multiple R-squared: 0.5514,\tAdjusted R-squared: 0.542 \n", "F-statistic: 58.99 on 1 and 48 DF, p-value: 6.71e-10\n" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "reg <- lm(Sepal.Width ~ Sepal.Length, data=setosa)\n", "summary(reg)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "We've obtained a summary table for our model that lists the key statistics of the model. Here are the most important parts:\n", "\n", "* `Estimate` in the `Coefficients` table: these are the values of $B_0$ and $B_1$ we were looking for. These are our coefficients.\n", "* The stars next to the `Sepal.Length` coefficient: these represent how significant a coefficient is to the model. More stars indicates greater significance. Since the `Sepal.Length` variable has three stars attached to its coefficient, we know it's a very significant part of our model. (We can typically remove variables that have 0 or 1 star significance codes with little effect on model performance).\n", "* `Residual standard error` is a way of measuring the total error of the data set relative to the regression model. More specifically, it's the square root of the mean squared error, which is what you get when you divide the total SSE by the number of observations [1].\n", "* `Multiple R-squared` is an important way of measuring how good the model is at fitting the data. We will discuss this below.\n", "\n", "## Assumptions of Linear Regression\n", "\n", "You may not have realized it at first, but linear regression is an example of machine learning. The task at hand is function approximation, where we attempt to find structure within a data set. \n", "\n", "More specifically, linear regression is a __parametric learning method__: we know what the general structure of the data is, but our task is to find the specific parameters that best fit the data. In our case, the structure is that of a linear function, and the parameters are the coefficients.\n", "\n", "This assumption about structure comes with a few other assumptions. These assumptions, when combined, form the precondition of the __Gauss-Markov theorem__, which states that the estimates for the coefficients obtained by our least-squares linear regression model is the best estimator of the actual coefficients. Without these assumptions, the theorem is false.\n", "\n", "Here are the necessary assumptions, along with a brief description of how to fix them.\n", "\n", "* _Assumption_: The dependent variable and independent variables truly have a linear relationship.\n", "\n", " _What to do if violated_: If your scatterplot doesn't look quite linear, you can transform the data to make it linear. For example, you could model the relationship between $y$ and $log(x)$ instead of $y$ and $x$, or between $\\sqrt{y}$ and $x$. [2]\n", " \n", "* _Assumption_ (Gauss-Markov condition 1): The errors have mean 0.\n", "\n", " _What to do if violated_: You can use a Box-Cox power transformation to give your errors a normal distribution with mean 0 [3]. For further reading, check out this link: https://www.r-bloggers.com/on-box-cox-transform-in-regression-models/\n", " \n", "* _Assumption_ (Gauss-Markov condition 2): The errors are independent.\n", "\n", " _What to do if violated_: This can sometimes be violated when you have time-series data - error at time $t+1$ could depend on error at time $t$ (this is called _serial correlation_). Unfortunately, how to fix these errors is outside the scope of this course, but one possibility is that the independent variables interact in such a way that the errors are \"grouped together\" in certain regions. You can add _interaction terms_ (new independent variables that are products of independent variables) to fix this. [4]\n", " \n", "* _Assumption_ (Gauss-Markov condition 3): The errors have constant variance.\n", "\n", " _What to do if violated_: This assumption is often violated when the variance of errors increases as data values increase (for example, on a plot of income vs. age, the variance of error in income could increase with age). This violation is called __heteroskedasticity__. [5] Luckily, this scary-sounding condition is easily rectified. Check out this helpful link: https://www.r-bloggers.com/how-to-detect-heteroscedasticity-and-rectify-it\n", " \n", " \n", "For a more detailed explanation of the above assumptions and violations, including how to diagnose violations of these assumptions, here's a comprehensive guide: http://people.duke.edu/~rnau/testing.htm\n", "\n", "## P-values: A Brief Digression\n", "\n", "Once we have a linear regression model, we can check with high confidence whether there is any linear relationship at all. Most statisticians and data scientists use an agreed-upon definition of __statistical significance__ to see if a relationship exists.\n", "\n", "This agreed-upon definition comes in the form of __p-values__. Simply put, a p-value is the probability that the data just so happens to appear linearly related when there in fact isn't a true linear relationship between the independent and dependent variables. This is called the \"null hypothesis.\" You can see the p-value in the summary() function for any linear regression model in R (see the \"Interpreting R Output\" section).\n", "\n", "If our p-value is less than 0.05 (a semi-arbitrary number that statisticians came up with), we say the relationship is statistically significant - we most likely have a real relationship! Otherwise, we can't say for sure whether there is a significant relationship. In statistics terminology, we say that we \"fail to reject the null hypothesis.\" For more on p-values, take an introductory statistics course (ENGRD 2700 for Cornell Engineering students)." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Oh Goodness!\n", "\n", "A question that naturally comes up when we do any sort of predictive modeling is: \"How well does our model predict data?\" This is typically called the __goodness__ of the model.\n", "\n", "An industry-standard metric for model goodness is called $R^2$. One textbook defines $R^2$ as the \"proportion of the variability in [the dependent variable] that can be explained using [the independent variable]\" [6]. If most of this variability can be explained ($R^2$ is close to 1), we have succeeded in building a model that captures the relationships between the variables. If not ($R^2$ is close to 0), we can probably do better.\n", "\n", "We compute this metric in several steps:\n", "\n", "1. Create a __benchmark model__, a naive model that always predicts the mean of the dependent variable.\n", "2. Compute the sum of squared terms (SST), which is the sum of squared errors applied to the benchmark model. The formula for this is\n", "\n", "$$ SST = \\sum_{j = 1}^{n} (y_j - \\overline{y})^2 $$\n", "\n", "3. Compute the sum of squared errors (SSE) of the model that we're evaluating. The formula here is\n", "\n", "$$ SSE = \\sum_{j = 1}^{n} (y_j - \\hat{y})^2 = \\sum_{j=1}^{n} (y_j - (B_0 + B_1x_1 + ... + B_kx_k))^2 = \\sum_{j=1}^{n} (y_j - (B_0 + \\sum_{i=1}^{k} B_ix_i))^2 $$\n", "\n", "4. We then subtract the ratio between SSE and SST from 1:\n", "\n", "$$ R^2 = 1 - \\frac{SSE}{SST} $$\n", "\n", "## Predicting Values\n", "\n", "So far, everything we've looked at is __in-sample__, meaning that all of our calculations evaluate how well the model fits the observed data. In machine learning scenarios, we typically call this sample data the __training set__. This is data for which we already \"know the answer\" - data for which we've already observed the mapping between the independent variables and dependent variable.\n", "\n", "Fitting our model to data is great, but ultimately our goal is to predict things __out-of-sample__. The set of independent variable values for which we want to predict the dependent variable is called the __testing set__. We want to be able to interpolate and extrapolate for the points in our testing set using our model. For this, we can evaluate our linear regression function manually or use R.\n", "\n", "* Manual evaluation: Using our coefficients from the model above, we can evaluate our linear regression model at any point along the line. For example, when $x = 3$:\n", "\n", "$$ \\hat{y} = B_0 + B_1x = -0.5694 + 0.7985(3) = 1.826 $$\n", "\n", "* Using R: We can use the `predict` function to compute the value automatically." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Let's predict the sepal width of setosa using one sample from setosa. We picked the first input in the setosa to be predicted." ] }, { "cell_type": "code", "execution_count": 32, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\n", "
Sepal.LengthSepal.WidthPetal.LengthPetal.WidthSpecies
34.7 3.2 1.3 0.2 setosa
\n" ], "text/latex": [ "\\begin{tabular}{r|lllll}\n", " & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species\\\\\n", "\\hline\n", "\t3 & 4.7 & 3.2 & 1.3 & 0.2 & setosa\\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "| | Sepal.Length | Sepal.Width | Petal.Length | Petal.Width | Species | \n", "|---|\n", "| 3 | 4.7 | 3.2 | 1.3 | 0.2 | setosa | \n", "\n", "\n" ], "text/plain": [ " Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n", "3 4.7 3.2 1.3 0.2 setosa " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "setosa[1,]" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "The model wants to predict 3.5 using Sepal.Length. But before creating the model, we need to remove this particular setosa from the data, because we want to hide the \"answer\" from the model." ] }, { "cell_type": "code", "execution_count": 33, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/html": [ "1: 3.50959743498397" ], "text/latex": [ "\\textbf{1:} 3.50959743498397" ], "text/markdown": [ "**1:** 3.50959743498397" ], "text/plain": [ " 1 \n", "3.509597 " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "# remove first index\n", "setosa <- setosa[-1,]\n", "\n", "# Now use predict function\n", "model <- lm(Sepal.Width ~ Sepal.Length, data=setosa)\n", "predict(model, data.frame(Sepal.Length=5.1))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As you see, the model gives us very accurate estimate.\n", "But what if we do not know that the species is setosa? Can we still guess it correctly? To simulate this situation, we are going to use whole iris data to create a model." ] }, { "cell_type": "code", "execution_count": 34, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/html": [ "1: 3.10333436648668" ], "text/latex": [ "\\textbf{1:} 3.10333436648668" ], "text/markdown": [ "**1:** 3.10333436648668" ], "text/plain": [ " 1 \n", "3.103334 " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "# use iris dataset to predict\n", "model <- lm(Sepal.Width ~ Sepal.Length, data=iris)\n", "predict(model, data.frame(Sepal.Length=5.1))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Now the prediction is a bit off. This is because other species's data will affect the model. \n", "Let's use more than 1 variable and see if the model performs better." ] }, { "cell_type": "code", "execution_count": 35, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/html": [ "1: 3.43074407146006" ], "text/latex": [ "\\textbf{1:} 3.43074407146006" ], "text/markdown": [ "**1:** 3.43074407146006" ], "text/plain": [ " 1 \n", "3.430744 " ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "text/html": [ "1: 3.43028665330862" ], "text/latex": [ "\\textbf{1:} 3.43028665330862" ], "text/markdown": [ "**1:** 3.43028665330862" ], "text/plain": [ " 1 \n", "3.430287 " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "# use iris dataset but more variables\n", "model2 <- lm(Sepal.Width ~ Sepal.Length + Petal.Length, data=iris)\n", "predict(model2, data.frame(Sepal.Length=5.1, Petal.Length = 1.4))\n", "\n", "model3 <- lm(Sepal.Width ~ Sepal.Length + Petal.Length + Petal.Width, data=iris)\n", "predict(model3, data.frame(Sepal.Length=5.1, Petal.Length = 1.4, Petal.Width = 0.2))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Even though, both models do not know the species we are predicting is setosa, they perform better than the original model. But you see the third model performed a little bit worse than the second one. Does this mean third model is a worse model than the second one? We are going to test the accuracy of models in more general point of view by predicting not one but many data points from the iris." ] }, { "cell_type": "code", "execution_count": 42, "metadata": { "collapsed": false }, "outputs": [], "source": [ "# use 30 random points to test models\n", "\n", "set.seed(111) # set the seed for consistancy\n", "\n", "index <- sample(150,30)\n", "test.iris <- iris[index,]\n", "train.iris <- iris[-index,]\n", "\n", "# make model with train.iris, then predict all points from test.iris\n", "model <- lm(Sepal.Width ~ Sepal.Length, data=train.iris)\n", "pred <- predict(model, test.iris)\n", "\n", "model2 <- lm(Sepal.Width ~ Sepal.Length + Petal.Length, data=train.iris)\n", "pred2 <- predict(model2, test.iris)\n", "\n", "model3 <- lm(Sepal.Width ~ Sepal.Length + Petal.Length + Petal.Width, data=train.iris)\n", "pred3 <- predict(model3, test.iris)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "There are multiple ways to measure the correctness of models. Even though we could simply take squared errors, we are going to use RMSLE, Root Mean Squared Logarithmic Error, shown by the following formula." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "$$Error = \\sqrt{ \\frac{1}{n}\\sum^n_{i=1}log(prediction)^2 - log(actual)^2 }$$" ] }, { "cell_type": "code", "execution_count": 47, "metadata": { "collapsed": false }, "outputs": [ { "data": { "text/html": [ "0.15165845818491" ], "text/latex": [ "0.15165845818491" ], "text/markdown": [ "0.15165845818491" ], "text/plain": [ "[1] 0.1516585" ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "text/html": [ "0.12318036690845" ], "text/latex": [ "0.12318036690845" ], "text/markdown": [ "0.12318036690845" ], "text/plain": [ "[1] 0.1231804" ] }, "metadata": {}, "output_type": "display_data" }, { "data": { "text/html": [ "0.111450833178701" ], "text/latex": [ "0.111450833178701" ], "text/markdown": [ "0.111450833178701" ], "text/plain": [ "[1] 0.1114508" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "# value models by RMSLE\n", "sqrt(mean((log(pred)-log(test.iris$Sepal.Width))^2,na.rm=TRUE))\n", "sqrt(mean((log(pred2)-log(test.iris$Sepal.Width))^2,na.rm=TRUE))\n", "sqrt(mean((log(pred3)-log(test.iris$Sepal.Width))^2,na.rm=TRUE))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "As you can see, the third model predicts more acurate value overall since the error is smaller!" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Terms to Review\n", "\n", "* Regression\n", "* Classification\n", "* Dependent variable\n", "* Independent variable\n", "* Extrapolation\n", "* Interpolation\n", "* Probability distribution\n", "* Gaussian\n", "* Mean\n", "* Variance\n", "* Standard deviation\n", "* Covariance\n", "* Correlation\n", "* Simple linear regression\n", "* Coefficients\n", "* Error\n", "* Least squares error / sum of squared error\n", "* Multiple linear regression\n", "* Statistical significance\n", "* P-value\n", "* Gauss-Markov theorem\n", "* Heteroskedasticity\n", "* Model goodness\n", "* $R^2$\n", "* Benchmark model\n", "* In-sample / training set\n", "* Out-of-sample / testing set\n", "\n", "\n", "## Sources\n", "\n", "[1] http://stats.stackexchange.com/questions/57746/what-is-residual-standard-error\n", "\n", "[2] http://stats.stackexchange.com/questions/29731/regression-when-the-ols-residuals-are-not-normally-distributed\n", "\n", "[3] http://blog.minitab.com/blog/the-statistics-game/checking-the-assumption-of-constant-variance-in-regression-analyses\n", "\n", "[4] http://people.duke.edu/~rnau/testing.htm\n", "\n", "[5] https://www.r-bloggers.com/how-to-detect-heteroscedasticity-and-rectify-it/\n", "\n", "\n", "[6] Hastie, Trevor, et al. \"An Introduction to Statistical Learning.\"\n" ] } ], "metadata": { "anaconda-cloud": {}, "kernelspec": { "display_name": "R", "language": "R", "name": "ir" }, "language_info": { "codemirror_mode": "r", "file_extension": ".r", "mimetype": "text/x-r-source", "name": "R", "pygments_lexer": "r", "version": "3.3.2" } }, "nbformat": 4, "nbformat_minor": 0 }