UniSal.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Exploring and Predicting University Faculty Salaries"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "<img src='Penn_State.jpg' width = 800, height = 600>\n",
    "[Source](http://de.wikipedia.org/wiki/Pennsylvania_State_University)\n",
    "\n",
    "Although data about faculty salaries at private universities can be difficult to find, getting data regarding faculty salaries at public universities is much easier. I've always been curious (even though I don't want to go into academia myself!) which fields pay the best and why and if there is a way to predict your salary if you are going to be a professor at a certain university. \n",
    "\n",
    "So, I decided to make this a project I would explore and use two of the very best data science tools to do it: Python and R! Thanks to the rpy2 library and IPython's R magic, I can now include R code inside the notebook instead of having to switch between knitr and here. The first half will be about cleaning and EDA (exploratory data analysis): a key first step of any data science project dealing with structured data especially. The second half will be about machine learning and applying a model for regression. \n",
    "\n",
    "While Python is making improvements in [visualization](http://stanford.edu/~mwaskom/software/seaborn/), I still prefer R for this part. Combining the great tools of the [plyr library](http://plyr.had.co.nz/) for splitting the data into pieces with the beautiful visualization of the [ggplot2 library](http://docs.ggplot2.org/current/) makes this look much better than Python's current offerings. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Getting the Data"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "For this project, I decided to choose my current university: [Texas A&M](http://www.tamu.edu/). It's a large university, which means it also has a lot of faculty members to look at! The Texas Tribune publishes salary data each year from the university [here](http://salaries.texastribune.org/agencies/). \n",
    "\n",
    "We only need the data from Texas A&M, no other extension agencies. \n",
    "\n",
    "Here is part of the problem though: all of the files we can download are .xlsx Excel files. R doesn't read these very well (although there are some workarounds). The best way is to save them as a .csv file first, then read them in using read.csv. \n",
    "\n",
    "Pandas can read Excel files, however. Let's get the files using Pandas, then save them as .csv files locally. Once that is done, we can load them into R."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "import pandas as pd\n",
    "texasAM_file = pd.read_excel('http://raw.texastribune.org.s3.amazonaws.com' + \n",
    "                        '/texas_a%26m_university_system/salaries/2014-01/Hill%20-%20SO-14-003.xlsx') # Download the file."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "texasAM_file.to_csv('TexasAM_Salaries.csv') # Save the data as a .csv"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Cleaning It Up"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "It is time to play around with some of IPython Notebook's lovely interaction with R using the [rpy2 library](http://rpy.sourceforge.net/) and the R magic. Note to Windows users: this probably won't work very well for you as rpy2 doesn't play nicely with Windows! You could use a virtual machine with Linux to get around this if you wish.\n",
    "\n",
    "Let's load all of the libraries we will need in R first."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 48,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%load_ext rpy2.ipython"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 49,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R # You need this to use a block of R code.\n",
    "library(plyr)\n",
    "library(ggplot2)\n",
    "library(scales)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now that we have all of our libraries loaded, let's load our data into R and take a look at it."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 50,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "  X                     MbrName      LastName FirstName     ShortTitleDesc\n",
       "1 0 Prairie View A&M University        ABBASI    HASSAN  INFO RESOURCE SUP\n",
       "2 1 Prairie View A&M University        ABBASI   HUSSAIN  INFO RESOURCE SUP\n",
       "3 2 Prairie View A&M University         ABIBO    IBUOMI   SPEC WEB CONTENT\n",
       "4 3 Prairie View A&M University ABROM-JOHNSON TENEINGER ADJUNCT INSTRUCTOR\n",
       "5 4 Prairie View A&M University         ADAMS     BETTY        PROF & DEAN\n",
       "6 5 Prairie View A&M University         ADAMS    GLORIA     ADMIN ASST III\n",
       "        ShortAdlocDesc EEOMinorityCode Sex        CurrEmplDate\n",
       "1 INFORMATION RESOURCE               4   M 2009-05-15 00:00:00\n",
       "2      ADMIN & RECORDS               4   M 2010-07-15 00:00:00\n",
       "3 ADLOC COOP EXTENSION               2   M 2013-02-15 00:00:00\n",
       "4 AG. NUTR & HUMAN ECO               2   F 1990-12-17 00:00:00\n",
       "5  OFF.OF ACADEMIC AFF               2   F 2000-06-01 00:00:00\n",
       "6    UNIVERSITY POLICE               2   F 1988-11-01 00:00:00\n",
       "         OrigEmplDate BudgetedSalary\n",
       "1 2009-05-15 00:00:00          63664\n",
       "2 2010-07-15 00:00:00          61800\n",
       "3 2009-02-15 00:00:00          50364\n",
       "4 1990-12-17 00:00:00          44378\n",
       "5 2000-06-01 00:00:00         153372\n",
       "6 1974-06-01 00:00:00          45968\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "salaryDB <- read.csv('TexasAM_Salaries.csv', header = TRUE, stringsAsFactors = FALSE)\n",
    "print(head(salaryDB))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Clearly there are some issues we will need to address. First of all, we can see other universities were included in the database that are NOT a part of Texas A&M. For this study we are only looking at Texas A&M faculty, so let's only include rows under the 'MbrName' column that are either part of Texas A&M or the Health Science Center. Let's also trim this down a bit and get rid of the 'X' and 'CurrEmplDate' columns as we won't need them for our analysis."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 51,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "salaryDB <- subset(salaryDB, MbrName == 'Texas A&M University' | MbrName == 'Texas A&M Health Science Center', \n",
    "                   select = -c(CurrEmplDate, X))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's see a summary of our datatypes."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 52,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "'data.frame':\t9234 obs. of  9 variables:\n",
       " $ MbrName        : chr  \"Texas A&M Health Science Center\" \"Texas A&M Health Science Center\" \"Texas A&M Health Science Center\" \"Texas A&M Health Science Center\" ...\n",
       " $ LastName       : chr  \"ABBEY\" \"ABRAHAM\" \"ACOSTA\" \"ADAMS\" ...\n",
       " $ FirstName      : chr  \"COLETTE\" \"CELESTE\" \"IDALIA\" \"JOYCE\" ...\n",
       " $ ShortTitleDesc : chr  \"RESEARCH ASSOCIATE\" \"ASSOCIATE PROFESSOR\" \"ADMIN COORDINATOR\" \"BUS ADMIN I\" ...\n",
       " $ ShortAdlocDesc : chr  \"MOLECULAR & CELL MED\" \"PERIODONTICS\" \"HEALTH POL & MGMT\" \"REGENERATIVE MED\" ...\n",
       " $ EEOMinorityCode: num  1 4 3 1 3 1 1 1 4 3 ...\n",
       " $ Sex            : chr  \"F\" \"F\" \"F\" \"F\" ...\n",
       " $ OrigEmplDate   : chr  \"1992-09-10 00:00:00\" \"1993-06-21 00:00:00\" \"1995-08-14 00:00:00\" \"2008-09-15 00:00:00\" ...\n",
       " $ BudgetedSalary : int  41600 107362 55782 52500 54000 185001 5111 35144 40315 15900 ...\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "str(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "For this project, we are looking at tenure-track faculty only. We want to get rid of other employees such as \"BUS ADMIN I\". As a start, let's remove all employees that don't have \"Professor\" in their title (from the ShortTitleDesc field)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 53,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "salaryDB <- salaryDB[grep('PROF', salaryDB$ShortTitleDesc),]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "[1] 2818    9\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "dim(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We have reduced the number of employees a lot, from 9234 to 2818. \n",
    "\n",
    "The next thing we want to do is change the OrigEmplDate column to something more meaningful. Instead, let's make it the number of years they have worked at the university. We can use this as one of our features later. \n",
    "\n",
    "The metadata at the website where we obtained the original salary data says that it was uploaded on Jan 15, 2014. Let's find the difference between that date and the original employment date for all of our employees."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 55,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "origDate <- as.Date('2014-01-15') # This is the format R likes: YYYY-MM-DD.\n",
    "salaryDB$OrigEmplDate <- as.Date(salaryDB$OrigEmplDate) # Get this into the Date form R likes for finding differences \n",
    "                                                                    # between dates.\n",
    "salaryDB$OrigEmplDate <- as.numeric((origDate-salaryDB$OrigEmplDate)/365.) # Calculate the difference and divide by 365 for number of \n",
    "                                                                           # years.\n",
    "colnames(salaryDB)[8] <- 'YearsWorked' # Use a more informative column title."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's just check to make sure it worked."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "                             MbrName  LastName FirstName      ShortTitleDesc\n",
       "5892 Texas A&M Health Science Center   ABRAHAM   CELESTE ASSOCIATE PROFESSOR\n",
       "5896 Texas A&M Health Science Center     ADAMS       RAE ASSISTANT PROFESSOR\n",
       "5897 Texas A&M Health Science Center     ADAMS     TERRY  CLINICAL ASST PROF\n",
       "5905 Texas A&M Health Science Center AL ROUSAN     RABAA ASSISTANT PROFESSOR\n",
       "5906 Texas A&M Health Science Center ALAJLOUNI  KHALDOUN     CLIN ASSOC PROF\n",
       "5908 Texas A&M Health Science Center    ALANIZ    ROBERT ASSISTANT PROFESSOR\n",
       "           ShortAdlocDesc EEOMinorityCode Sex YearsWorked BudgetedSalary\n",
       "5892         PERIODONTICS               4   F  20.5835616         107362\n",
       "5896 TX A&M FAMILY MED RE               1   F  10.5890411         185001\n",
       "5897         ORTHODONTICS               1   M  17.3205479           5111\n",
       "5905   PHARMACY-ACAD SUPP              NA   F   0.2712329          92500\n",
       "5906 RESTORATIVE SCIENCES               1   M   8.0438356          16840\n",
       "5908 MICRO PATH & IMMUNOL               3   M   5.9589041          88642\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "head(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "That seems correct. The next thing we are going to do is create another feature: college. All of the departments at universities are organized into colleges. At Texas A&M, that means [12 major colleges](http://www.tamu.edu/about/departments.html). This is somewhat tedious work, but we want to organize all of the faculty members by college as a feature.\n",
    "\n",
    "Let's get a list of all of the different departments included first."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "         MATHEMATICS HEALTH & KINESIOLOGY         QATAR CAMPUS \n",
       "                 102                   96                   66 \n",
       " PHYSICS & ASTRONOMY   TAMU SCHOOL OF LAW DEPT HEAD-ELECT ENGR \n",
       "                  64                   62                   58 \n",
       "   CIVIL ENGINEERING RESTORATIVE SCIENCES     LIBRARY DIRECTOR \n",
       "                  57                   54                   51 \n",
       "             ENGLISH            CHEMISTRY  DEPT HEAD-MECH ENGR \n",
       "                  48                   47                   47 \n",
       "EDUCATIONAL PSYCHOLO              HISTORY              BIOLOGY \n",
       "                  47                   47                   46 \n",
       "VET INTEGRATIVE BIOS VET MED PATHOBIOLOGY           PSYCHOLOGY \n",
       "                  44                   43                   41 \n",
       "  PHARMACY-ACAD SUPP   TEACHING, LEARNING         ARCHITECTURE \n",
       "                  38                   35                   34 \n",
       "  BUSH SCHOOL OF GOV    POLITICAL SCIENCE VET MED SMALL ANIMAL \n",
       "                  34                   34                   34 \n",
       "  DEPT OF STATISTICS     HD, COMPUTER SCI           MANAGEMENT \n",
       "                  33                   33                   33 \n",
       "      ANIMAL SCIENCE LARGE ANIMAL CLINICA            SOCIOLOGY \n",
       "                  31                   31                   29 \n",
       "  COLLEGE OF NURSING  PEDIATRIC DENTISTRY        AEROSPACE ENG \n",
       "                  28                   28                   27 \n",
       "BIOCHEM & BIOPHYSICS DEPT HEAD-PETRL ENGR   DEPT HEAD-IND ENGR \n",
       "                  27                   27                   26 \n",
       "           ECONOMICS              GEOLOGY   HEAD OF ACCOUNTING \n",
       "                  26                   26                   26 \n",
       "        AG ECONOMICS         ANTHROPOLOGY  DEPT HEAD-ENGR TECH \n",
       "                  25                   25                   25 \n",
       "DEPT INFO & OP MGMNT  LANDS ARCH URB PLAN   ED ADM & HR (EAHR) \n",
       "                  25                   25                   23 \n",
       "          ENTOMOLOGY  SOIL & CROP SCIENCE  VET MED PHYS & PHAR \n",
       "                  23                   23                   23 \n",
       "ECOSYSTEM SCI & MGMT PHILOSO & HUMANITIES WILDLIFE & FISHERIES \n",
       "                  22                   22                   22 \n",
       "BIOLOG & AG ENGINEER DEAN OF LIBERAL ARTS              FINANCE \n",
       "                  21                   21                   21 \n",
       " BIOMEDICAL SCIENCES        COMMUNICATION    GENERAL DENTISTRY \n",
       "                  20                   20                   20 \n",
       "           GEOGRAPHY            MARKETING          METEOROLOGY \n",
       "                  20                   20                   20 \n",
       "        OCEANOGRAPHY         AG EDUCATION CONSTRUCTION SCIENCE \n",
       "                  20                   19                   19 \n",
       " DEPT HEAD-CHEM ENGR INTERNATIONAL STUDIE NEUROSCIENCE & EXPER \n",
       "                  19                   19                   19 \n",
       "        ORTHODONTICS     HISPANIC STUDIES   OFFICE OF THE DEAN \n",
       "                  19                   18                   18 \n",
       "DEPT HEAD-NUCLR ENGR    HEALTH POL & MGMT HORTICULTURAL SCIENC \n",
       "                  17                   17                   17 \n",
       "        ORAL SURGERY  PERFORMANCE STUDIES         PERIODONTICS \n",
       "                  17                   17                   17 \n",
       "  MEDICAL PHYSIOLOGY MICRO PATH & IMMUNOL       BIOMEDICAL ENG \n",
       "                  16                   16                   15 \n",
       "ENGR ACADEMIC COORD. MOLECULAR & CELL MED REC, PARK & TOUR SCI \n",
       "                  15                   15                   15 \n",
       " DIAGNOSTIC SCIENCES  INSTRUCTIONAL ADMIN NUTRITION & FOOD SCI \n",
       "                  14                   14                   14 \n",
       "  PLANT PATH & MICRO        DEAN'S OFFICE        VISUALIZATION \n",
       "                  14                   13                   13 \n",
       "      DENTAL HYGIENE MEDICAL SCIENCE LIBR      DEAN OF VET MED \n",
       "                  12                   12                   11 \n",
       "   DEAN OF BUS ADMIN  PUB HEALTH SCIENCES   STU COUNSELING SVC \n",
       "                  10                   10                   10 \n",
       "   DEAN OF EDUCATION  DEAN OF GEOSCIENCES ENVIR & OCCUP HEALTH \n",
       "                   9                    9                    9 \n",
       "    EPIDEM & BIOSTAT  HLTH PROM&COMM HLTH      POULTRY SCIENCE \n",
       "                   9                    9                    9 \n",
       "             (Other) \n",
       "                 127 \n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "colnames(salaryDB)[5] <- 'Dept' # Much better title for this column!\n",
    "deptLevels <- as.factor(salaryDB$Dept)\n",
    "print(summary(deptLevels))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Quite a large variety of departments listed here. To be consistent with the college labelings on the university's website, I will only label a department as part of a college if it is specifically mentioned. We will create a variety of department lists of statements we can grep for each college, then assign a college number. Data science is sometimes a little messy!"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "# Include a large list of department terms we can use grep on so that each faculty member is grouped by college.\n",
    "\n",
    "agList <- c('AG EC', 'AG ED', 'ANIMAL SC', 'BIOCHEM', 'ECOS', 'ENTO', 'HORTI', 'NUTRI', 'PLANT P',\n",
    "             'POULTRY', 'REC,', 'SOIL', 'WILDLIFE') # College of Agriculture\n",
    "\n",
    "archList <- c('ARCHI', 'CONSTR', 'LANDS', 'VISUALIZ') # College of Architecture\n",
    "\n",
    "bushList <- 'BUSH SCH' # Bush School\n",
    "\n",
    "maysList <- c('ACCOUNTING', 'FINANC', 'INFO & OP', 'MANAGEM', 'MARKET', 'MBA') # Business school\n",
    "\n",
    "eduList <- c('DEAN OF ED', 'TEACHING,', 'EDUCATIONAL PSYC', 'HEALTH &', 'EAHR') # Education/Human Development\n",
    "\n",
    "engrList <- c('ENGR', 'COMPUTER', 'CIVIL', 'MATERIALS', 'BIOMEDICAL ENG', 'AEROSPACE', 'AG ENGINEER') # Engineering\n",
    "\n",
    "earthList <- c('GEO', 'OCEAN', 'METEO') # Geoscience (my college)\n",
    "\n",
    "libList <- c('ANTHRO', 'COMMUN', '^ECON', 'ENGL', 'HISTORY', 'INTERN', 'HISP', 'PERFORM', 'PHILO',\n",
    "             'POLITICAL', 'PSYCHOLOGY', 'SOCIO', 'LIBERAL') # Liberal Arts\n",
    "\n",
    "sciList <- c('^BIOLOGY', 'CHEMISTRY', 'MATH', 'ASTR', 'STATISTICS') # Science\n",
    "\n",
    "vetList <- c('VET', 'BIOMEDICAL SCI', 'LARGE AN') # Vet School"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now that we have our grep lists, make our new feature and assign a number for each college."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "salaryDB$College <- 0 # Initialize our new feature\n",
    "\n",
    "salaryDB$College[grep(paste(agList, collapse = '|'), salaryDB$Dept)]  <- 1 # Ag and Life Sciences\n",
    "\n",
    "salaryDB$College[grep(paste(archList, collapse = '|'), salaryDB$Dept)] <- 2 # Architecture\n",
    "\n",
    "salaryDB$College[grep(paste(bushList, collapse = '|'), salaryDB$Dept)] <- 3 # Bush school\n",
    "\n",
    "salaryDB$College[grep(paste(maysList, collapse = '|'), salaryDB$Dept)] <- 4 # Mays Business school\n",
    "\n",
    "salaryDB$College[grep(paste(eduList, collapse = '|'), salaryDB$Dept)] <- 5 # Education/Human Development \n",
    "\n",
    "salaryDB$College[grep(paste(engrList, collapse = '|'), salaryDB$Dept)] <- 6 # Engineering\n",
    "\n",
    "salaryDB$College[grep(paste(earthList, collapse = '|'), salaryDB$Dept)] <- 7 # Geosciences\n",
    "\n",
    "salaryDB$College[salaryDB$MbrName == 'Texas A&M Health Science Center'] <- 8 # Health Science Center\n",
    "\n",
    "salaryDB$College[salaryDB$Dept == 'TAMU SCHOOL OF LAW'] <- 9 # Law school\n",
    "\n",
    "salaryDB$College[grep(paste(libList, collapse = '|'), salaryDB$Dept)] <- 10 # Liberal Arts\n",
    "\n",
    "salaryDB$College[grep(paste(sciList, collapse = '|'), salaryDB$Dept)] <- 11 # Science\n",
    "\n",
    "salaryDB$College[grep(paste(vetList, collapse = '|'), salaryDB$Dept)] <- 12 # Veterinary Medicine/Biomedical"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "If we couldn't include someone in a college, we are going to drop them from the dataframe. This includes people at the Qatar campus, as well as library staff, deans, etc."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 60,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "salaryDB <- subset(salaryDB, College > 0) # Only include people that have been assigned a college."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's see how our dataframe looks now."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "                             MbrName  LastName FirstName      ShortTitleDesc\n",
       "5892 Texas A&M Health Science Center   ABRAHAM   CELESTE ASSOCIATE PROFESSOR\n",
       "5896 Texas A&M Health Science Center     ADAMS       RAE ASSISTANT PROFESSOR\n",
       "5897 Texas A&M Health Science Center     ADAMS     TERRY  CLINICAL ASST PROF\n",
       "5905 Texas A&M Health Science Center AL ROUSAN     RABAA ASSISTANT PROFESSOR\n",
       "5906 Texas A&M Health Science Center ALAJLOUNI  KHALDOUN     CLIN ASSOC PROF\n",
       "5908 Texas A&M Health Science Center    ALANIZ    ROBERT ASSISTANT PROFESSOR\n",
       "                     Dept EEOMinorityCode Sex YearsWorked BudgetedSalary\n",
       "5892         PERIODONTICS               4   F  20.5835616         107362\n",
       "5896 TX A&M FAMILY MED RE               1   F  10.5890411         185001\n",
       "5897         ORTHODONTICS               1   M  17.3205479           5111\n",
       "5905   PHARMACY-ACAD SUPP              NA   F   0.2712329          92500\n",
       "5906 RESTORATIVE SCIENCES               1   M   8.0438356          16840\n",
       "5908 MICRO PATH & IMMUNOL               3   M   5.9589041          88642\n",
       "     College\n",
       "5892       8\n",
       "5896       8\n",
       "5897       8\n",
       "5905       8\n",
       "5906       8\n",
       "5908       8\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "head(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's include another feature for our dataset, tenure ranking. There are three basic levels: assistant, associate, and full. Assistant means you haven't reached tenure yet, which takes about 5 years or so after you start (and is not guaranteed!) Once you get tenure, you are promoted to associate rank. Do more good work, and you can reach the rank of full professor. Salary is clearly going to be somewhat dependent on this, so let's see if we can include this as an additional feature. \n",
    "\n",
    "As you can see in the head of our dataframe, the professors have their rank included in the \"ShortTitleDesc\" column. Let's use grep again to assign each professor a rank category."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 62,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "salaryDB$Rank <- 0 # Initialize the feature.\n",
    "salaryDB$Rank[grep('ASSISTANT|ASST', salaryDB$ShortTitleDesc)] <- 1 # Assistant prof\n",
    "salaryDB$Rank[grep('ASSOCIATE|ASSOC PROF', salaryDB$ShortTitleDesc)] <- 2 # Associate prof\n",
    "salaryDB$Rank[grep('^PROFESSOR|^PROF|DISTINGUISHED|SENIOR', salaryDB$ShortTitleDesc)] <- 3 # Full prof"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "However, there were some other professors that remained we don't want to be including in our dataset (such as adjuncts or visiting professors). Let's give them a label of 0 to reset them. Then, get rid of any other faculty members that aren't in one of these three categories."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 63,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "salaryDB$Rank[grep('ADJ|VISITING|CLIN|INSTRUCT|RES|PRACT', salaryDB$ShortTitleDesc)] <- 0 # Non tenure-track.\n",
    "salaryDB <- subset(salaryDB, Rank > 0) # Get rid of any faculty members not falling in one of the three rank categories."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's see how our dataframe is looking (and how many faculty members are left!)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 64,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "                             MbrName   LastName FirstName      ShortTitleDesc\n",
       "5892 Texas A&M Health Science Center    ABRAHAM   CELESTE ASSOCIATE PROFESSOR\n",
       "5896 Texas A&M Health Science Center      ADAMS       RAE ASSISTANT PROFESSOR\n",
       "5905 Texas A&M Health Science Center  AL ROUSAN     RABAA ASSISTANT PROFESSOR\n",
       "5908 Texas A&M Health Science Center     ALANIZ    ROBERT ASSISTANT PROFESSOR\n",
       "5910 Texas A&M Health Science Center  ALEXANDER     JAMES ASSOCIATE PROFESSOR\n",
       "5914 Texas A&M Health Science Center AL-HASHIMI   IBTISAM           PROFESSOR\n",
       "                     Dept EEOMinorityCode Sex YearsWorked BudgetedSalary\n",
       "5892         PERIODONTICS               4   F  20.5835616         107362\n",
       "5896 TX A&M FAMILY MED RE               1   F  10.5890411         185001\n",
       "5905   PHARMACY-ACAD SUPP              NA   F   0.2712329          92500\n",
       "5908 MICRO PATH & IMMUNOL               3   M   5.9589041          88642\n",
       "5910    HEALTH POL & MGMT               1   M  12.8849315         113130\n",
       "5914         PERIODONTICS               1   F  23.0000000         142655\n",
       "     College Rank\n",
       "5892       8    2\n",
       "5896       8    1\n",
       "5905       8    1\n",
       "5908       8    1\n",
       "5910       8    2\n",
       "5914       8    3\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "\n",
    "head(salaryDB)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 65,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "[1] 2085   11\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "dim(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Looking at the third entrant, we can see a problem that will need to be fixed. Some of the \"EEOMinorityCode\" entrants are NA. That could be an issue later on. Let's see how many. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 66,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's \n",
       "  1.000   1.000   1.000   1.719   2.000   7.000      16 \n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "summary(salaryDB$EEOMinorityCode)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's examine these NA faculty members and see what we can do to fix this."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 67,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "                              MbrName         LastName FirstName\n",
       "5905  Texas A&M Health Science Center        AL ROUSAN     RABAA\n",
       "6250  Texas A&M Health Science Center          DRANETZ     DAVID\n",
       "6634  Texas A&M Health Science Center              KOO CATHY LAU\n",
       "7348  Texas A&M Health Science Center            WELLS     GREGG\n",
       "7401  Texas A&M Health Science Center       WOODMANSEY      KARL\n",
       "10418            Texas A&M University         CUMMINGS     KEVIN\n",
       "10911            Texas A&M University           EUSEBI   RICARDO\n",
       "11247            Texas A&M University           GEORGE  THEODORE\n",
       "12887            Texas A&M University        LIGHTFOOT      JOHN\n",
       "13169            Texas A&M University         MARKOVIC     MILAN\n",
       "13354            Texas A&M University          MCINNES     KEVIN\n",
       "14628            Texas A&M University             RICE     SARAH\n",
       "14773            Texas A&M University           ROGERS   WILLIAM\n",
       "15900            Texas A&M University            SMITH      JOHN\n",
       "15991            Texas A&M University VIEIRA-DE-CASTRO      LUIS\n",
       "16567            Texas A&M University            YARAK     LARRY\n",
       "           ShortTitleDesc                 Dept EEOMinorityCode Sex YearsWorked\n",
       "5905  ASSISTANT PROFESSOR   PHARMACY-ACAD SUPP              NA   F   0.2712329\n",
       "6250  ASSISTANT PROFESSOR   PSYCH/BEHAV SCI-CS              NA   M   3.8794521\n",
       "6634  ASSISTANT PROFESSOR   PHARMACY-ACAD SUPP              NA   F   4.2630137\n",
       "7348  ASSOCIATE PROFESSOR MOLECULAR & CELL MED              NA   M  14.1342466\n",
       "7401      ASST PROF & DIR  DEPT OF ENDODONTICS              NA   M   2.2931507\n",
       "10418 ASSISTANT PROFESSOR VET INTEGRATIVE BIOS              NA   M   3.0931507\n",
       "10911 ASSISTANT PROFESSOR  PHYSICS & ASTRONOMY              NA   M   4.3753425\n",
       "11247 ASSOCIATE PROFESSOR PHILOSO & HUMANITIES              NA   M  12.4246575\n",
       "12887           PROFESSOR HEALTH & KINESIOLOGY              NA   M   3.5452055\n",
       "13169 ASSOCIATE PROFESSOR   TAMU SCHOOL OF LAW              NA   M   0.3726027\n",
       "13354           PROFESSOR  SOIL & CROP SCIENCE              NA   M  25.5589041\n",
       "14628 ASSISTANT PROFESSOR   HEAD OF ACCOUNTING              NA   F   0.4575342\n",
       "14773 ASSOCIATE PROFESSOR ECOSYSTEM SCI & MGMT              NA   M   8.6301370\n",
       "15900 ASSOCIATE PROFESSOR   DEPT HEAD-IND ENGR              NA   M  13.4657534\n",
       "15991           PROFESSOR         ANTHROPOLOGY              NA   M  15.3835616\n",
       "16567 ASSOCIATE PROFESSOR              HISTORY              NA   M  28.4767123\n",
       "      BudgetedSalary College Rank\n",
       "5905           92500       8    1\n",
       "6250          204601       8    1\n",
       "6634          108630       8    1\n",
       "7348          163608       8    2\n",
       "7401          127350       8    1\n",
       "10418          96222      12    1\n",
       "10911          82207      11    1\n",
       "11247          71811      10    2\n",
       "12887         138511       5    3\n",
       "13169          97500       9    2\n",
       "13354         115921       1    3\n",
       "14628         232265       4    1\n",
       "14773          86505       1    2\n",
       "15900         132990       6    2\n",
       "15991          79695      10    3\n",
       "16567          61839      10    2\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "subset(salaryDB, is.na(EEOMinorityCode))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 68,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAMAAABKCk6nAAAC9FBMVEUAAAABAQECAgIDAwMEBAQF\n",
       "BQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYXFxcY\n",
       "GBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgpKSkqKior\n",
       "KyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7Ozs8PDw9PT0+\n",
       "Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5PT09QUFBR\n",
       "UVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2Nk\n",
       "ZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N1dXV2dnZ3d3d5\n",
       "eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiKioqMjIyNjY2O\n",
       "jo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKCh\n",
       "oaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0\n",
       "tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbH\n",
       "x8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna\n",
       "2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt\n",
       "7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9B\n",
       "xruuAAAWRklEQVR4nO2de1xUZf7HH1BAhqsJoSKiaZCSoqlIpaRiZVD90lTcrJ/V4G01qWgpt7Kb\n",
       "l90saZfUzVbpsqmtmbv267oFrRtp6uZaLWbeyksoyiWH+/PP75wzZ4aZAc/MOTMMPN/X5/3HnDPP\n",
       "83yf5znnzbl85wbjgDSssycAOhYIJg4EEweCiQPBxIFg4kAwcSCYOBBMHAgmDgQTB4KJA8HEgWDi\n",
       "QDBxIJg4EEwcCCYOBBMHgokDwcSBYOJAMHH8IngUy+yYjp/p342t9/mo+fMNBLkbTedsVjN2wsAs\n",
       "2tJhgu9kzCItQuTtct64PBbmozHeZ+z62f+4VK2bXSpNMNCUcMumZus6C4wet00uP7o6bcgTW85Z\n",
       "CyXmOK7xqmWpYSGD5h+2BkXVSMuZUpWHgttsev1L46JDrrhrV5vmYgmutzQ41LgTXNfs6Ri/Y+zC\n",
       "pWvb2+UOfavWWOZFZX3oVUGsWxnnHwUrpUXtC/5pkPynwFj4p9bSFzg/0k0R7LyNbcdV6l03vXK0\n",
       "FCvF57QJEEuwsqs/GNczuM/kMp6q7Kw83lyY2iM0rVhq80tuZPSC5fIWSQ1X9w84vyr1su7Rkz7h\n",
       "SuSLfSPmW56Ku+y+WrVne+DNSk+7lUJb79wp1uWp1Pc0lig5fpBd3iBN8MLJndcwtlid7HbGVnA+\n",
       "keU9OPdo8WdK4QWLRfbSupbN2COVlo0hrM9FqTSIXdEs9RVkP4JHsUmrEk0TDjlM0rZNcr266ffb\n",
       "55DD2O3fNZ97r9Ax4BezbXe0rL0m1DT+fa88dKRgeafYBZ/twa6ZOja4mN/TmwWOHbuaL2Ssfx/G\n",
       "nuV8DmP9eoVbBfdgCVHn/ydpyh39WPB3cmRYYBRjKQHRjD2h9mwPfDCBsTFjv5XL7L1zx9hM56dy\n",
       "3/9g7D3e0o/lq3+BZ2OZqU5Zb3qJsQ2cD2P/O3e+4xY0O6ydCWAj5aoljG2TSuMnsK0XIoJmOQgO\n",
       "7HlDIBvnMEnbNsn16qbvs83hbCAbXOe6VfLu6BOt7I48Fjj5WhawzRsPHSlYPQVaN34PY99Ll7Az\n",
       "tvPUDwFsZkvDRNaj6ngAm95cO8wqmG3lDc0V/Nzhvd2seydwb11fxj5qSmXp1o5bA/kKxmqsha29\n",
       "O8ZmOj9V+h7PpvHPGTtoO8VMZewb22RnSMfow9Iy8pYNzfYtKHZY+4yxRfJwmxlbLgvewa5bxe7O\n",
       "dxAcdEg6NNlFh0mq4zpeg21zKGHMdj/nsDsC2dTmmhRpdxwJlC8B01myNx78JviXeMZibniuxraV\n",
       "0j7azvlaxkp3MvYO509ZBV8lx25MUCJ/LUdKR0wGG8B5jvzAnQIdBLf27hib6fxU6XsLCzq9RP5j\n",
       "cRE8dEg4M+3k/OJj8XLAgx4JbklmkWyfo+AxnEtngqMOk1THdRRsm4ODYKfdIR2yT0i7Y7NtF9Zy\n",
       "4/jvGnxs6U39GbvPQbCk9WXrFknbtswqeJJU9V0gu+m1LUHyxiuRmWyULDjR2nFroINge+8usU5P\n",
       "5b55YwJ7ri9bZ5vg2RjbKZpXJ7KhSl8Lb5jCIu1bwB3WHE7Rf5UFy0YmcUfB0kMRY0ccJqmO6yjY\n",
       "NoeK1lO00+74O+fPWgXn5Mv84oUHvwmukU6hfJ781/woC6p3OSf9qsV2ipZvfLfKd04H2CUEt3uK\n",
       "tvfuEuvalcRyJh2q1dYL6ynHmyxJcE/Od9ZJeXAJC2myXXnrucOa9SZrk3qTFc8tsZKNdgQ7naKV\n",
       "cZWFddNb52C9yap87yWHrToWIN0gSNvMTkhl0omEn+6y12AnwYfYkKzsUHY3568xNmDshw53Ffcy\n",
       "1rdneKvgQ93Z9U8OCLiEYIfAVsH23l1iXbviyv2YktG6pklDpRlIsxvU68aU5CtZlr3BWMc15zQp\n",
       "XrrsV/D2BDvdZLUKVjfdPofKUfY0qTXgHhaQfV2gvDsWMTbi9uHdsr3x4DfBZ2clhYcMWCL92Tbe\n",
       "H8PYm7x5TWpI6JhNXEmTouY+ythZ287YnBQ8ZEvYpQS3BrYKbu3dJdblqcz9jH1mnWBAj343bbS9\n",
       "0MF6XPWo5HpNRlxgYN97z7QvmF94crgpeOC877kqWKY9wa2TdBSsbrp9Dry+8PqooP45uxy3qub+\n",
       "iIiZjylpUtHo0NCBM3Z446ErvBb9k3SNqR/D+vtpuN+zJO0Ghl6q9PEcfEZXELw++sap/VjAm34Z\n",
       "rPjOMPaqdpPH8jp/Dj6jKwj+/Pqe3WKyPvbPYHks5rf+GalrzKErCAYdCAQTB4KJA8HEgWDiQDBx\n",
       "IJg4EEwcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4EE8cDwSXm9JR0c0nHzwV0AO4FF0WYCzcV\n",
       "5kYU+WE2wOe4F9ynVFnsiu/gmYAOwb3g0AplUWnq6KmAjsC94JmZJVUtVaWZbb+FDgTAveBqs4kx\n",
       "FpZb7YfZAJ/jSZrUUL63XOsHKEAXBnkwcZAHEwd5MHGQBxMHeTBxkAcTB3kwcYzkwZ/MU5i1uaMm\n",
       "BXyHkTz47B6FlaudSjet1GJ1i2/mC3TimeCvlz1e1qbwrT84PU3/UIsxF30yXaAX94Kj6vgnIVl3\n",
       "BG93rXARPEGzl1sguHNwL5hZ+KSVnK8f5VoBwSLgkeB+33Fe0eZXvCFYBDwQvO7VhP2cH49yrYBg\n",
       "EXAvOFtip3STnOFaAcEi4HGaVFvjWgLBIuDF+8EQLAIeC24scC2BYBHwWLClTUsIFgH3gudbyYVg\n",
       "IXEvuPvsRTILIFhI3AtOtf7gOE7RYuJe8AtblUXjUtcKCBYBpEnEgWDiQDBxIJg4EEwcCCYOBBMH\n",
       "gokDwcSBYOJAMHEgmDgQTBwIJg4EEweCiQPBxIFg4kAwcSCYOBBMHAgmDgQTB4KJA8HEgWDiQDBx\n",
       "IJg4EEwcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4EEweCiQPBxIFg4kAwcSCYOBBMHAgmDgQT\n",
       "B4KJA8HEgWDiQDBxIJg4EEwcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4EEweCiQPBxIFg4kAw\n",
       "cSCYOBBMHAgmDgQTB4KJA8HEgWDiQDBxIJg4EEwcDwSXmNNT0s0lbcohWATcCy6KMBduKsyNKHKt\n",
       "gGARcC+4T6my2BXvWgHBIuBecGiFsqg0uVZAsAi4Fzwzs6Sqpao0M8e1AoJFwL3garOJMRaWW+1a\n",
       "AcEi4Ema1FC+t7yhbTEEiwDyYOIgDyYO8mDiIA8mDvJg4iAPJg7yYOIgDyaOkTx482SFYQ85lUJw\n",
       "lwR5MHGQBxMHeTBxkAcTB3kwcZAHEwd5MHHwfjBxPBbcWOBaAsEi4LFgS5uWECwC7gXPt5ILwULi\n",
       "XnD32YtkFkCwkLgXnLpDWeAULSbuBb+wVVk0LnWtgGARQJpEHAgmDgQTB4KJA8HEgWDiQDBxIJg4\n",
       "quAle/SHQrAIqIIfiB2y/JjOUAgWAdspunFHTtjEDVV6QiFYBByuwQeGsdD7jnseCsEiYBNcuS4j\n",
       "2lxyPG+o56EQLAKq4KmmKW/ICprDPA+FYBFQBa86qT6v9TwUgkUAeTBxVMH3yV8eLDHrCoVgEVAF\n",
       "96yTHuou0xUKwSKgCo6Vv5hS3UtXKASLgCp4xsI6Xr9wuq5QCBYBVfBPo6NSotJOard1AYJFwHYX\n",
       "3bx3+94WfaEQLAJIk4ijCm58LV/+foquUAgWAVXwPWmPPSOhKxSCRUAVPKidL3i7A4JFQBWc1qg/\n",
       "FIJFQBW8cvqnByR0hUKwCKiC46zoCoVgEUCaRByb4L/NmcrL3tcVCsEioAp+PmnNQP6fsbpCIVgE\n",
       "VMH9j/Fk3hStKxSCRUAVHGORBFf30RUKwSKgCr7zN03JLQ/foysUgkVAFXwyPTIk7rqfdYVCsAjY\n",
       "7qJb9m/fh7cLCYI8mDiq4KVWdIVCsAiogvMk7o66S1coBIuA4yn6+6m6QiFYBJyuwam6QiFYBFTB\n",
       "pySOrh2pKxSCRUAV3E0i8ob9ukIhWASQJhEHgomjCi6w43koBIuAKtjc4/bFt4WY8/PzPQ+FYBFQ\n",
       "BWd9LD18kK0rFIJFQBUc0SQ9NEXqCoVgEVAFj/ldM29elaYrFIJFQBV8YPDlI2KTDuoKhWARsKVJ\n",
       "TWXbypr0hUKwCOBjs8TBx2aJg4/NEgcfmyUOPjZLHHxsljj42CxxrIIbhuqUKwPBIqAewSPq9YdC\n",
       "sAiogpff+sHX+AkHiuAnHIijCN5t4AoMwWKgCGYWzsed1hsKwSJgF9zrhN5QCBYBCCaOVfCG4uLw\n",
       "NcXFxbpCIVgEFMEpNnSFQrAI4IPvxIFg4kAwcSCYOBBMHAgmDgQTB4KJA8HEgWDiQDBxIJg4Hggu\n",
       "MaenpJtL2pRDsAi4F1wUYS7cVJgbUeRaAcEi4F5wn1JlsSvetQKCRcC94NAKZVFpcq2AYBFwL3hm\n",
       "ZklVS1VpZo5rBQSLgHvB1WYTYywst9q1AoJFwJM0qaF8b3k7/34WgkUAeTBxkAcTB3kwcYzkwYc2\n",
       "Kzy03KkdBHdJjOTBe9cqzH3SqR0Ed0mQBxMHeTBxkAcTB3kwcTwT/PWyx8vaFEKwCLgXHFXHPwnJ\n",
       "uiN4u2sFBIuAe8HMwiet5Hz9KNcKCBYBjwT3+47zijDXCggWAQ8Er3s1YT/nx6NcKyBYBNwLzpbY\n",
       "yfmmDNcKCBYBj9Ok2hrXEggWAeTBxIFg4kAwcSCYOBBMHAgmDgQTB4KJA8HEgWDiQDBxIJg4EEwc\n",
       "CCYOBBMHgokDwcSBYOJQF9z49mYt/tU5s/Ij1AUfuXatFuM7Z1Z+hLzgezWrtSdNAQgmDgQTB4KJ\n",
       "A8HEgWDiQDBxIJg4EEwcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4EEweCiQPBxIFg4kAwcSCY\n",
       "OBBMHAgmDgQTB4KJA8HEgWDiQDBxIJg4EEwcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4EEweC\n",
       "iQPBxIFg4ogg+INRmrytFQvBxkP9JvilzVq1HzyrVQvBxkMhWAQgmDgQTBwIJg4EEweCiQPBxIFg\n",
       "4kAwcSCYOBBMHAgmjr8ETz54WIMfNGMh2Av8JTh2zjwNrj6gFQvBXuA3wee0avP2a9VCsBdAMHEg\n",
       "mDgQTBwIJg4EEweCiQPBxIFg4kAwcSCYOB4ILjGnp6SbS9qU0xd8eI8W/9aM9YZjMzR5WU9f7gUX\n",
       "RZgLNxXmRhS5VtAXnFagRVKlZrAXlOZXalA+U09f7gX3KVUWu+LtJVsnK6QWOLUbMVmLkAlatb2u\n",
       "1aodcqVW7dWateOjtWonx2nWxmrWRmhuUmqGVm1amlbtGM1pZcz2reDQCmVRadLTLegquBc8M7Ok\n",
       "qqWqNDPHD7MBPse94GqziTEWllvth9kAn+NJmtRQvre8ocNnAjoEL/JgIAIQTBwIJg4EEweCiQPB\n",
       "xIFg4kAwcXwneKT279Fp0n+Y8dihA70YuLcXsX292OIrk4zHjry9cwR789659tuF2mi/XegGbyY9\n",
       "TfMdUG1e2Wg89oyP3y70FAjWAQR7DgRrAsGGgWDPgWAdQLAOINhzbvQi9iHNb/hr8/EKLwb2ZtLT\n",
       "zxuP/fNrxmMrZulp7TvBdZ0U2+zNZxE6a9KNTf4aGK9kEQeCiQPBxIFg4kAwcSCYOBBMHAgmjq8E\n",
       "vzCi+3yDofWLrggdvt1g8KKE4ISlzQaD+RHTzUZDsxljUUaDNyYFJ31pKLKRyeR5HuArwVvfnW1U\n",
       "cPXi3WdeDjlkLPiz7yv/FWf4db9bxxkXvM5iMfpa1o64d8/sPmIs1mKxnAtr+238S+K7U/Qio4IV\n",
       "rnzLcOjPg3cYjNx22wrjgl81Gsn5SC9iJTYN0tG4iwg+FfSNwchHY7svNxham/yDF4ITEjI/MRZa\n",
       "F7Cib+8HLEZH5pOe0tG4awium7DIaGj18dd7fmEs9DfLuHHBf//q2xUhXxsKPczGnT4+/AmjIx/r\n",
       "dlRH6y4huOH2Gd68u7JgrqGwg8kWLwTLZC0zFHaSvcP5n0YbHfXpiXpadwXBjdNu8+rrx/ONHf5F\n",
       "pri48OBELwa+43FjcTHbvRE86M96WvtKcKNlQa6l0VBoU87ECxaLsUO4+sUfzm0xfWgo9uKpU6eW\n",
       "TjxtKJbXvv7T2fXBZcaCHxlf8dMIY0c/5yXhtXqa+0rwUjk9K3Dfrh2OKKndakOxtVMuM6W+bihU\n",
       "wfApumZ8lOmavxoMrsuNjMszmmOZtX8YyhW8kkUcCCYOBBMHgokDwcSBYOJAMHEgmDgQTBwIJg4E\n",
       "EweCiQPBxIFg4kAwcSCYOBBMHAgmDgQTR2TBibs9bFjg6e/hXKJH9wPlG/s4mh+gJziFBUSOfbFJ\n",
       "XmGm8V9z/t9bYq/MPK88Zyy7dcnfSA25fO45qSBA/iT5OLaPb/y53YGk4njHsbaODY3J+qdjCwju\n",
       "CJwE2z+ym7Kx8fhbiTOUlcqFqZyn/7Hg3MdV0vMNFouloXX5cvSbF76ZMrKOpyQ9y/nhAcH72h9G\n",
       "6dlR8NqItT+e3+L0MXAI9hFP9I5KKuOP9w8f8akiWF2LW5561appUv0DS3hKsbT8KvBLZaUsiPPQ\n",
       "I9ZTtFLRurT0fEV6/KX3Wp7ydDLnT/42ZJ/cY9zKMYPnSE4PTY6+6i1rz1Lxwm59EjeqI1yMXivH\n",
       "t9iaHEyLzDZLgk/PiE18vhP2iTZiCd6T+DP/4QR/43TTussvyjrUtbisupaTpvO8MXaP6m/w7+WV\n",
       "miUZnF+fPfWMXOQiuJQp/6xv3nSesmVUGR9Urgqe1tCQ9jpvGvJ4fUn4PqVnuVg+gtURSlmV0oHa\n",
       "pClpRdP/hRTwlmvzLUeT/ub/naKNWIL3x35Yr64m7redoqW1uPel5c3r+I4hNn8Zv1WutZdJV8rj\n",
       "d0WYfi2FpYT36tXraftyW5gS/eQESfCLi0vTuSpYOiE8ls+/7CkdxeZ8a8+qYHWEd6yBtiZlvaTr\n",
       "fVYB3x8pLdfM8e8OcY9YgvkroyNn/8w3ju6XGPSRvN/VtTj5a35vZPCc5TbBg5+XV+q2Rv0oPSnY\n",
       "PmCNVLHmxIkTVfal4xF8pve9f7QJPsD5M/P5O1dLdc/MsvZsE2wdwXYEq022jZQWiwv49pDk5OSB\n",
       "Uztjr2ghmGDOK25dUh4t7fWBH0r73bYmW+EXow+EHVMF7wvcbV3p/SaX06Rn57U5RV+Mtl6DiyTB\n",
       "PLtHpbNg+xEs9ywVJ+y2j3Axep0c32I7guOlJzMK+N64Fn/vC08QS/B//tlYP+vhPX0t/F0mC7at\n",
       "KRq4eZj8xUrp5vnHLQOtd9G1fwncz5+rLTiR8ZJ691zfuvxD9F8ufDtluEUWfOQL7iy4KXlZw+cR\n",
       "X9kFj3qzdYSXI9efPL91gdqkafDbvNxUwJvTH6lpOmjw62gdh1iCvxgRETO9kucnj1+cIgu2rVkF\n",
       "l7ANXElzI8a80KisBA95lfM5CZG9769X89/U1iV/bXhwjPkslwXLOAnm/50UlfwGtwt+u5983FpH\n",
       "4FvSQmOyd9maHEgfk/Ur+S56dlz02Pc7ac9cErEEa3M8tKr9Co9fyTI8QteFkODmvPsuUfNvH/17\n",
       "60uP0HWhI7g2bOhx0UfoAOgIBu0CwcSBYOJAMHEgmDgQTBwIJg4EEweCiQPBxIFg4kAwcSCYOBBM\n",
       "HAgmDgQT5/8Brc1RBGpRAIIAAAAASUVORK5CYII=\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "hist(salaryDB$EEOMinorityCode)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Examining the histogram, we can see that the faculty members predominantly fall in category 1 (white). Category 2 represents Black/African-American, category 3 is Latino, and category 4 is Asian. Category 5 represents more than one race (mixed) while category 7 represents Native American. \n",
    "\n",
    "While it is not ideal, we can guess the race based on the names of the NA members. White is by far the most common category, so we will assign all remaining faculty members to this category for now."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 69,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "salaryDB$EEOMinorityCode[is.na(salaryDB$EEOMinorityCode == TRUE)] <- 1 # Assign all NA to 1 for White.\n",
    "salaryDB$EEOMinorityCode[salaryDB$LastName == 'KOO'] <- 4\n",
    "salaryDB$EEOMinorityCode[salaryDB$LastName == 'VIEIRA-DE-CASTRO'] <- 3 # Correct two of them.\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 70,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. \n",
       "  1.000   1.000   1.000   1.716   2.000   7.000 \n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "summary(salaryDB$EEOMinorityCode)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "No more NA values. \n",
    "\n",
    "Now, we need to relabel the Sex category in terms of numbers to give it One-Hot encoding. This is easy for Sex since there are only two possibilities anyway. Let's add this as a new feature.\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 71,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "library(plyr)\n",
    "salaryDB$SexCode <- as.numeric(revalue(salaryDB$Sex, c('M' = 0, 'F' = 1)))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We also need to give each department a number as well. Thankfully, R makes this very easy to do."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 72,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "salaryDB$DeptCode <- as.numeric(as.factor(salaryDB$Dept))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Taking a look at our frame now:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 73,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "                             MbrName   LastName FirstName      ShortTitleDesc\n",
       "5892 Texas A&M Health Science Center    ABRAHAM   CELESTE ASSOCIATE PROFESSOR\n",
       "5896 Texas A&M Health Science Center      ADAMS       RAE ASSISTANT PROFESSOR\n",
       "5905 Texas A&M Health Science Center  AL ROUSAN     RABAA ASSISTANT PROFESSOR\n",
       "5908 Texas A&M Health Science Center     ALANIZ    ROBERT ASSISTANT PROFESSOR\n",
       "5910 Texas A&M Health Science Center  ALEXANDER     JAMES ASSOCIATE PROFESSOR\n",
       "5914 Texas A&M Health Science Center AL-HASHIMI   IBTISAM           PROFESSOR\n",
       "                     Dept EEOMinorityCode Sex YearsWorked BudgetedSalary\n",
       "5892         PERIODONTICS               4   F  20.5835616         107362\n",
       "5896 TX A&M FAMILY MED RE               1   F  10.5890411         185001\n",
       "5905   PHARMACY-ACAD SUPP               1   F   0.2712329          92500\n",
       "5908 MICRO PATH & IMMUNOL               3   M   5.9589041          88642\n",
       "5910    HEALTH POL & MGMT               1   M  12.8849315         113130\n",
       "5914         PERIODONTICS               1   F  23.0000000         142655\n",
       "     College Rank SexCode DeptCode\n",
       "5892       8    2       1       93\n",
       "5896       8    1       1      113\n",
       "5905       8    1       1       94\n",
       "5908       8    1       0       83\n",
       "5910       8    2       0       58\n",
       "5914       8    3       1       93\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "head(salaryDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "To help prepare us for the second part of this notebook (the machine learning section), we will need to create a second dataframe that only has numbers as inputs. \n",
    "\n",
    "Let's create that now, along with some renaming of the Minority Code feature."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 74,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "numericDB <- subset(salaryDB, select = -c(MbrName, LastName, FirstName, ShortTitleDesc, Dept, Sex)) \n",
    "# This removes the non-numeric features.\n",
    "\n",
    "colnames(numericDB)[1] <- 'Race' # Change the column name.\n",
    "numericDB$BudgetedSalary <- as.numeric(numericDB$BudgetedSalary) # Get all features to be numeric."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 75,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "'data.frame':\t2085 obs. of  7 variables:\n",
       " $ Race          : num  4 1 1 3 1 1 1 1 1 1 ...\n",
       " $ YearsWorked   : num  20.584 10.589 0.271 5.959 12.885 ...\n",
       " $ BudgetedSalary: num  107362 185001 92500 88642 113130 ...\n",
       " $ College       : num  8 8 8 8 8 8 8 8 8 8 ...\n",
       " $ Rank          : num  2 1 1 1 2 3 1 3 3 2 ...\n",
       " $ SexCode       : num  1 1 1 0 0 1 0 0 0 1 ...\n",
       " $ DeptCode      : num  93 113 94 83 58 93 85 73 84 83 ...\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "str(numericDB)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Our dataframe now has some new features, along with converting all of the categorical features to numeric ones. We have also gotten rid of all NA values. Our data is now (finally) clean! We can now start the next phase."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Exploratory Data Analysis"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In this section, we will try some visualization of the salary data to find any interesting patterns or other existing problems with the data we may have missed. \n",
    "\n",
    "There are several interesting ways we could look at this data (feel free to play around with it!). I am going to choose a few of the more interesting patterns. To do that, we will use the libraries plyr to shape the data and ggplot2 for visualization. These two are a powerful combination for exploring data.\n",
    "\n",
    "First thing we are going to do is make a very nice plotting function that we can call to help visualize the data quickly and efficiently.\n",
    "Let's make that now."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 76,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "PrettyDensPlot <- function(variable, name){\n",
    "  # This function will take in a dataset in dataframe format and plot\n",
    "  # a pretty density function along with the median value.\n",
    "  \n",
    "  df <- as.data.frame(variable) # Get it into a dataframe.\n",
    "  # Calculate the median value:\n",
    "  mid <- median(variable, na.rm = TRUE)\n",
    "  # Make this a separate dataframe.\n",
    "  middle <- data.frame(mid)\n",
    "  \n",
    "  # Now plot with our label intact.\n",
    "  \n",
    "  finalPlot <- ggplot(df) + \n",
    "    geom_density(aes(x = variable), adjust = 2.0, color = 'black', size = 1.5, fill = 'skyblue') +\n",
    "    scale_x_log10(breaks=c(1000,10000,100000,1000000), labels=dollar) +\n",
    "    annotation_logticks(sides=\"bt\")\n",
    "  \n",
    "  afterPlot <- finalPlot + geom_vline(data = middle, aes(xintercept = mid,\n",
    "                                                         linetype = 'Median', size = 'Median', \n",
    "                                                         color = 'Median'), show_guide = T) + \n",
    "    scale_color_manual(name = '', values = 'red') + \n",
    "    scale_linetype_manual(name = '', values = 'longdash') + \n",
    "    scale_size_manual(name = '', values = 1.0) + \n",
    "    xlab(name)\n",
    "  \n",
    "  \n",
    "  \n",
    "  \n",
    "  # Display it.\n",
    "  \n",
    "  print(afterPlot)\n",
    "  \n",
    "  \n",
    "}"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "This function will make a nice looking density plot of our salaries to see the distribution, along with the median value for comparison. Let's call it now."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 77,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3deWBU1d0+8DN3tmwz\n",
       "mayTyb6SsIZ9FZFFGxBEAVEUxboC9RXrS21LLfa1VG1rrbhU/LkUqyKiVEQwKFb2HVkSIGQhq1nI\n",
       "QpZJJtvM3N8fJ9xMAySTzJ05d2aez1+HuZN7v4TJw8m555wr43meAACA9HCsCwAAgOtDQAMASBQC\n",
       "GgBAohDQAAAShYAGAJAoBDQAgEQhoAEAJAoBDQAgUQhoAACJQkADAEgUAhoAQKIQ0AAAEoWABgCQ\n",
       "KAXrArq0tra2tbXZvvLxxx8HBgbOmzfv2jefPXt2586da9asufbQ8uXLX3nllYCAAGcV6rDTp09/\n",
       "9913v/71r510/pMnT+7du3f16tX0jzKZbAAbFr7zzjspKSkzZsyw/0va29uXL1/+3nvvyeXyPt/8\n",
       "9ttvDxkyZNq0ab28Z9u2bW1tbffee++N3vDYY4/97W9/02q11x564403Ro0addNNN/V4/ciRI2fO\n",
       "nFmxYsW1X+K/YgVpa2tdt84aFdVn/U712muvTZw4ceLEiU46/yuvvDJt2rRx48bRPw7gE0L/rd99\n",
       "912Foh8Bsnv37tLS0kceeUR4JSgoqF/X9UJSCWiz2dza2mr7yqlTp/R6/axZs659c1lZ2b59+375\n",
       "y19ee+jLL79cu3atPRnBSnFx8f79+5966iknnb+oqOjgwYO/+MUv6B/VanV7e3t/T3LixAmr1Tpp\n",
       "0iT7v8RkMn311Vevv/66PT+0R48eVSgU48eP7+U92dnZLS0t8+fPv9Ebtm/fvnbtWqVSee2hI0eO\n",
       "aLXaMWPG9Hi9uLj46NGjDz300LVfotuxQ9bS0vDUU+bg4D7rd6pDhw6FhYWlp6c77/yxsbHDhg0j\n",
       "hCgUCp7nLRZLv87Q2tr61VdfrV+//rrf/BvJycm5cOHCfffdJ7yCgO6TVAIagK0rGzcSi8USE8O6\n",
       "EIBu0g3o9PT0G/0HGxMTM3nyZBfXI5b4+HinFh8fH9+vnu91jRkzZtCgQaLUc11jx45NSUnp/T1D\n",
       "hgzpve8/b968G41ljR8/PikpqV8ltUvmEzVhwoTExETnnX/ixIkJCQmOnEGlUs2fP1/Kv6d6jIEM\n",
       "UDqD0Wg0Go2Onyc+Pv706dP41UkwsCGOATCZTCkpKSUlJf0al3Sxbdu27dq1a8OGDawLkYqBDXEM\n",
       "zLvvvnvhwoW///3vwiuRkZEuuK5bk9DPklqtFuU8KpVKrFN5ALlc7prvBv0hV6lU/RqXdDG5XC6T\n",
       "yfDxEHAcx/O8a/5PVSgUtp9G1/yv4O4kFNBidfQ6Ojpc02d0Cy7rQctkstWrV1ssFqvV6oLLDYzF\n",
       "YuF5Hh8PgSt70GPHjo2KisI3v18kFNDg1jiOu+68GgBq+PDhw4cPZ12Fm0FAgxeRyWQ3OuSTmSmz\n",
       "WNqnTbNqNK4sCaAXnhbQmzdvDg4OlsidT5CaGTNmDBky5LqHglatkrW0VP/nP9a0NBdXBXAjnrbU\n",
       "+6677uqllwReTq/XT5gwgXUVAPbytIAGAPAYCGgAAIlCQAMASBQCGgBAohDQAAAShYAGAJAoBDQA\n",
       "gER52kIVAPvxPP/dd99t3769qKjoaHu7D+t6AHpAQIOXMhqNK1as2LNnD/2jmRBCyP/93/89/d57\n",
       "/v7+DAsDEGCIA7yRyWRasmSJkM6C/fv3P/zww2azmUlVAD0goMEbPfvss6dPn6btuJHjb3/mBRnX\n",
       "9bNw8ODBdevWsSsNoBsCGrzON9988+WXX9L2iFvnP/7e9puWrlCqfYU3vP/++8eOHWNUHUA3BDR4\n",
       "l5aWlueff562DYOGLnrhTY6TE0JOLF1+8L7HOyIiCSFWq3XNmjV45Acwh4AG7/L2229XVFQQQji5\n",
       "4u4X3lKqu+ZuHFjxm4Or/3TT2vX0jxcvXvzqq6+YVQlACEFAg1dpaWkRHlo67q6lhkFDe7whZeIt\n",
       "aVNvpe3169ejEw1sIaDBi3z00UdXrlwhhMiVqumPXP8BXTMf/xVtFBQU7N6923XFAVwDAQ3ewmq1\n",
       "btiwgbZHzVkUqI+87tuih45KnjCNtt977z0XFQdwPQho8BZ79+4tKSkhhMhksqkP/qKXd0657wna\n",
       "OHLkSEFBgSuKA7geBDR4i08//ZQ2EsZMDk8Y1OOoj7HRp6lBZrUQQlKnzAyKjKGvb9q0yZVFAthC\n",
       "QINXuHLlijCgPGHRQ9e+YeXs9KdvSQktzCOEyDhuzB330de3bduGhYXACgIavMLXX3/d2dlJCPHV\n",
       "6obcMrvP94+6/W769OHLly8fPnzY6fUBXA8CGrzCtm3baGPo9DkKlbrP9wdHxcWmj6Pt7du3O7Ey\n",
       "gBtDQIPnq6ysPHHiBG2PnL3Qzq9K/9ldtPHtt99ilAOYQECD58vMzOR5nhASEBKWMHaKnV81dMZc\n",
       "uoPSlStXMMoBTCCgwfNlZmbSxtBb5tCdN+yhDYuIHT6Gtnft2uWUygB6hYAGD9fQ0HD8+HHaHjrj\n",
       "9n59rXA78fvvvxe5LAA7IKDBw+3Zs4eOIKv9NYl2j29QQ26ZQxvl5eW5ubniFwfQKwQ0eDih85sy\n",
       "6Ra5UtWvrw2NSwqNTaTtH374QeTKAPqCgAZPZrFY9u3bR9tpN906gDMMmjKTNhDQ4HoIaPBkWVlZ\n",
       "9fX1hBCZTJYyafoAzjBo0gzaOHHiRHNzs5jFAfQFAQ2e7MCBA7ShTx6sDYsYwBkSx05RqFSEkM7O\n",
       "TjwHC1wMAQ2ebP/+/bSRMvGWgZ1B6eMblz6BtoW4B3ANBDR4LJPJdPLkSdpOHmhAE0KSJ3ZtD42A\n",
       "BhdDQIPHOnr0KN0gSaFSJ46Z3PubL6cOrxqc3unje+0hYf/+3Nzc6upq0esEuBEF6wIAnEVYnx0z\n",
       "fEyfGyR98v7XNzoUmTbcJ0Db1tzE8/yxY8fmzZsnZpUANyZOQNfX12/fvr22tlatVmdkZCQnJ9se\n",
       "zcvLo5shTJ8+PT09XZQrAvTpyJEjtJE0bqoj5+E4edK4qef37CSEHDx4EAENLiPaEMfMmTP/93//\n",
       "d/Hixdu2baMb01BWqzUzM3PZsmWPP/74Dz/80N7eLtYVAXrR0tJy7tw52k4YPcnBs8WNHE8bmMgB\n",
       "riROQAcFBUVHRxNCwsPDCSEdHR3CofLy8pCQEJ1O5+fnFx8fX1hYKMoVAXp36tQpusJboVLFXN3z\n",
       "aMDiR02kjYKCgrq6OkeLA7CPyGPQly5dCg4OVqu7x/uMRqNWq6VtrVZrNBqFQ7W1tUKUcxynVCod\n",
       "L0AmkymVSqvV6vipPINCofDO74awAXT0kFFKtY+DZ4sakq7217S3GHmeP3ny5Ny5cx0uUBLkcjkh\n",
       "hOMYTBbwzo9lf4kZ0I2Njbt27brnnnvsfP+ePXsqKipoe9y4cRMmTBClDJ1OJ8p5wK39+OOPtBE3\n",
       "UoTPFcfJY0eMzT+yhxCSlZX14IMPOn5OL2cymViX4AZEC+i2trZPP/109uzZoaGhtq9rNBqh12w0\n",
       "GiMjI4VDd999t9A2Go2XL192vAyDwVBTU4P/nAVqtdoLx/07OzuPHj1K23buYHf/I/OUba3b/vxe\n",
       "Q3T8dd+QMHoSDegffvhBlM+qFCgUCp7nLRYLk6trNBom13Uj4vxqY7FYPvvss4kTJyYmJgov5uTk\n",
       "8DwfFRVVW1vb2NhoMpmKiops3wDgJOfPn29rayOEyDguZthoe75En5sdkXNW2dZ6ozfEjeh6ROGF\n",
       "CxfQ+wPXEKcHXVhYWFJSUldXR3f8evjhh3U63datW9esWcNxXEZGxsaNG61W6/Tp022HpwGc5NSp\n",
       "U7QRnjDIVyvOkFfM8DFyhdJi7jSbzWfOnJk8uY+VLwCOEyegU1JS1q5d2+PF5557jjZSU1NTU1NF\n",
       "uRCAPYQ7hPFiDEBTSh/fyLQRZed+JIQcP34cAQ0ugKXe4IGEO4SOT7CzFTN8dI/zAzgVAho8TWVl\n",
       "ZXl5OW3Hjhgr4pkTRnUteDl58iRuRIMLIKDB0wgD0L5aXWhccu9v7hehP97U1IQlV+ACCGjwNNnZ\n",
       "2bQRNThdJpOJeOZAfaSw6/+ZM2dEPDPAdSGgwdMIPei49HGin1wYM8EwNLgAAho8Cs/ztj1o0c8f\n",
       "PXQUbZw9e1b0kwP0gIAGj1JUVNTU1ETbQpiKKGZY1zD0hQsXbDcFA3AGBDR4lNOnT9NGoD5KE6oX\n",
       "/fwxw0ZzcgUhpLOzU9jOFMBJENDgUWzGN0Y44/xKH9/whBTaxigHOBsCGjxKVlYWbThjfKPHmTGR\n",
       "A5wNAQ2ew2KxCD3o6CEjnXSV6Ku7LwnTRQCcBA+NBc9RWFgo7DNnSB3er6/9R+ZZwvPtAX1vgBmV\n",
       "1jV4UlxcbDQasWcmOA960OA5hPGNQH1UQHBo72/uoU0T2KbV8Zy8z3dGpAyVK1WEEKvVKnTYAZwB\n",
       "AQ2ew9l3CCmFSmUYNJS2cZ8QnAoBDZ7j/PnztCEEqJMIoxzoQYNTIaDBc1y4cIE2Ivs5AN1fUVfv\n",
       "QAqDKgDOgIAGD1FWVtbQ0EDbkc4c4iA2M+2Ki4uFiwKIDgENHiInJ4c2fDSBgfqo/n751LdfvuX1\n",
       "P/rX1djz5vDEQQqVmhDC87zQbQcQHQIaPITtAPQAdhkd98mGiRtf96uvtefNcoUyInkwbWOUA5wH\n",
       "AQ0eQghoZw9AUxiGBhdAQIOHEIY4IlKGuOByhtRhtIEtk8B5ENDgCZqbm0tLS2nb2XPsKGGmXVFR\n",
       "UUtLiwuuCF4IAQ2e4OLFi/QprpxcoU8a7IIr6pMH031HrVar0HkHEBcCGjyBEJGhcUkKlcoFV1Sq\n",
       "fcKu7juKUQ5wEgQ0eILuAehkV3SfKeFuJAIanAQBDZ7g4sWLtOGaO4RUZBoCGpwLAQ2eoDugWfSg\n",
       "c3NzOzs7XXZd8B4IaHB7lZWVjY2NtB2R7MIedOowuiKmo6MjPz/fZdcF74GABrcndJ/VfgG6yBiX\n",
       "XddHE6gzRNO2sEwGQEQIaHB7QkDrkwcPYJG3IyLT0mkDw9DgDAhocHvC8EJ44iAXXzoipWvIG1sm\n",
       "gTMgoMHt5ebm0oY+Kc3Fl44c1LXgG2tVwBnw0Fhwb1arNS8vj7b1iakDPs+OP77FmS1NEf3bp1R4\n",
       "NG19fX1FRUVkZOSACwC4FgIa3FtZWZnwJG9HetB5028fwFfpDNG+Wl1rUwMh5MKFCwhoEBeGOMC9\n",
       "CXcI/QKDteEGF19dJpMJezPhPiGIDgEN7k0Y3wi/ujOGiwlLYzAMDaJDQIN7KygooI1wBwagHWHA\n",
       "fUJwGgQ0uLfuHjSjgBZ2/yguLm5tbWVSA3gqBDS4MavVKkyC1ic5FNCD9uxM271d3dzU3y+MSBlC\n",
       "N4a2WCzCgDiAKCQ0i4PjRPjfQiaTiXIej+HZ35CKigqh0xoW79AY9Nzf/0Jlanl/y/6aZG2/vlCh\n",
       "UofExNcUFxBCLl68OGbMGEfKcDG68JLJJ4Tneddf1O1IKKDlcrlY53Hxel8pk8lkYn1jJUgYgFb7\n",
       "a1w/hUMQkTKEBnRubq57fbflcjnP80x+XiwWi+sv6nYkFNCibNjI83xnZyd9+hEQQjiO8+CdMIX7\n",
       "cuEJgxj+r2wYNCx793ZCyLlz59zru83zPM/zyErJ8thffsEbCD3oMEZz7CjMtAMnQUCDG+ueY8c4\n",
       "oLsmcjQ0NFRWVjKsBDwMAhrcWPc+dgmu3sfOli4yxkcTSNvY1g5EhIAGd3XlypX6+nraDmMa0DKZ\n",
       "TJjkh537QUQIaHBXhYWFtCFXqoKjYtkWE5HUNQwtLJwBcBwCGtyVMAAdEh1Pl4owpE/BfUIQHwIa\n",
       "3JXNFA6W4xuUsCNHQUGBe820AylDQIO7spnCkcy2EkJIxNXHIZrN5kuXLrEuBzwEAhrclZCDobFJ\n",
       "bCshhPgEaIWljMIjuAAchIAGt9TR0VFSUkLbbFepCIRt7TAMDWJBQINbKikpERYoh8WxH+IgNstV\n",
       "ENAgFgntxQFgP2GOnX9QiLBIxBHZdyyRd3S0BgYN+AzCVGjMtAOxIKDBLQkD0GJ1n3c/+5KDZxB6\n",
       "0GVlZc3NzQEBAQ4XBd4OQxzglroDWhoD0ISQ8MRBcoWSEMLzPO4TgigQ0OCWioqKaCM0NpFtJQK5\n",
       "UhUcHU/bCGgQBQIa3JKk5tgJ9MlptIFhaBAFAhrcT1NTU21tLW2HxkkooIUdOfBwQhAFbhKC+xGm\n",
       "cHCcPCQmQZRz+hgbCc+3B2h4buDPrNInI6BBTOhBg/sRBqADDVFypUqUc66cnf70LSmhhQ4NTYQn\n",
       "du0KUlNTI2yFCjBgCGhwP913CGOkcoeQCo1NVKi6/sPAMDQ4DgEN7qe4uJg2QiQzhYPi5IrQq/Oy\n",
       "MZEDHIeABvcjjEFLZ46dQJ/UNZEDAQ2OQ0CD+7EJaAlN4aAQ0CAiBDS4mbq6usbGRtqW1Bw7KiIZ\n",
       "j1YB0SCgwc0IA9ByhVJniGZay3WEJ3ZtmdTQ0FBTU8O2GHB3CGhwM8IUjqDIGLr3haQER8UpfXxp\n",
       "G6Mc4CAENLgZIaDFWqIiLhnHhcV37d+EgAYHIaDBzXTfIZTeADQlDENjKjQ4CAENbkZ40lVwtBR7\n",
       "0MRmPWF+fj7bSsDdIaDBzQgBLc0hDoKZdiAeBDS4k/r6+oaGBtqW4CoVSn91T7uGhobLly+zLQbc\n",
       "GgIa3InQfZYrlEGRMWyLuRGdIVrt1/W8KwxDgyMQ0OBOhEnQuogoTi7mZrmNkbENUXEWMfbGk8lk\n",
       "YfFdO3IgoMER2A8a3En3HUKxB6Df37JfxLOFJ6b+dOEMQUCDY9CDBncizLGT7B1CSp/UtZ4Q9wnB\n",
       "EQhocCfdUziuPp5VmoQF3whocAQCGtxJ9xBHVBzbSnonLCZsamqqrq5mWwy4LwQ0uI2WlhZh+yHR\n",
       "x6DFFRQVq1CpaRvLVWDAENDgNkpLS3meJ4TIZDKJ96A5Th6W0NWJxn1CGDDRZnFs3ry5uLg4MTFx\n",
       "8eLFPQ796U9/8vX1JYRER0dfexTATsIcu4CQcJWvn7gnv/+Recq21m1/fq9BpNFtfVJaZe45gmFo\n",
       "cIBoAT1x4sT09PTs7OxrD/n7+z/99NNiXQi8VmlpKW0ER4vffdbnZqtMLcq2VrFOKAxDFxQUiHVO\n",
       "8DaiDXHEx8er1WqxzgZwre5nxUp1myRbemyZBA5zxUIVk8m0fv16X1/fGTNmJCcnC69v3769qqqK\n",
       "ttPT00ePHu34tWQyWUhIiOPn8RgymYyO23qAyspK2pD4ADQlzLSrra2VyWShoaFs67kuhh+P1lbR\n",
       "flnxYK4I6JUrV+p0usrKyk2bNq1cuZKORxNCxo4d29bWRttqtbqpqcnxa4WEhDQ3N1utVsdP5RmU\n",
       "SmVnZyfrKsQhjBU4Y4hDdCExCXKlytLZQQj58ccfJ02axLqi65DL5TzPM/l5sVgsWq3W9dd1L64I\n",
       "aJ1ORwgxGAxhYWF1dXXR0V3PkYuMjBTeYzQajUaj49fieb69vR0Bbau9vZ11CSIwm81lZWW0Ldmd\n",
       "oG1xckVobOLlSxcJIefPnxflF0TRKRQKnuctFgvrQuD6nDjNLicnh+d5k8lEf5epra2trq4OCgpy\n",
       "3hXBg5WXl5vNZtqW+DpvgbAxNIahYWBE60F/9NFHlZWVnZ2dr7766pIlSwwGw9atW9esWdPU1LRl\n",
       "y5bOzk61Wj1nzhx/f3+xrgheReg+q/z8A4KlOJ57LWEqNCZywMCIFtAPPPBAj1eee+45QkhERMRT\n",
       "Tz0l1lXAa7nLIm9b4QmYyAEOwUpCcA/CJGi3mGNH6a9O5KisrBTlFgt4GwQ0uAehBx0UFcu2EvuF\n",
       "xiXRpwrwPH/p0iXW5YD7QUCDe+iewuE+AS1XqoRqMQwNA4CABvfQ3YOOdJsxaEJIGIahwQEIaHAD\n",
       "TU1N9fX1tB0SE8+0lv4RhqGxpx0MAAIa3IDQfZZxXFCk2wxxEJuZduhBwwDgobHgBoQB6IDgMGEj\n",
       "fHH9I/Ms4fn2AI24pxUe711WVtbZ2alUKsU9P3g29KDBDdgs8nbWAHSbJrBNq+M5ubinFaZCm81m\n",
       "4Ym3AHZCQIMb6N4JOiqeaSH9pvbXBOq79pzBRA7oLwQ0uAGbgHanAWhK2Lkfw9DQXwhocAM//fQT\n",
       "bbjXHUIqLK5rGBprVaC/ENAgdTzPC2PQbhnQCV0BjSEO6C/M4gCpq6mpEZ6+4bwhjqlvvyzv7Dxx\n",
       "//KWkDBxzywMcVy6dInneZlMJu75wYOhBw1SJwxAK1SqQH2Uk64y7pMNEze+7ldfK/qZhWdftbS0\n",
       "VFRUiH5+8GAIaJA6YXwjMDxSxrnfJ1YTqlf7BdA2hqGhX9zv4w7epnsKR3Q800IGSCaThV99wjcW\n",
       "fEO/IKBB6oQetC4yhm0lAxaKiRwwIAhokLruHrQbTuGgwvHsKxgQBDRInVtPgqbwcEIYGAQ0SJrZ\n",
       "bC4vL6dt523E4WzCjhzV1dWNjY1siwE3goAGSausrDSbzbTtXlv12wqOjpcruvaxQyca7IeABkkT\n",
       "xjeUPr7+QSFsixkwuUIZdPUOJ+4Tgv0Q0CBptou83XoNnrCeED1osB8CGiTNrfexs4WHE8IAIKBB\n",
       "0rp70AY3D+h4bJkE/YaABkkTpnDoDM7ahcM1hE1HS0tLhdueAL1DQIOk2SwjdPMe9NVNR81ms/AM\n",
       "XIDeYbtRkC6z2VxZWUnbzl5GuOOPb3FmS1OEs/rpfoHB/kEhLfV1hJCCgoKkpCQnXQg8CQIapKu8\n",
       "vNxisdC2s5cR5k2/3annJ4SExafQgMZMO7AThjhAuoTdk5U+vn66YLbFOC40rqvXXFRUxLYScBcI\n",
       "aJAumykcMW49CZoS7hNiIgfYCQEN0mWzSsVdNxq1JWyZhCEOsBMCGqTLZpVKPNNCxCFsmVRXV3fl\n",
       "yhW2xYBbQECDdLlyEnTciYPxx/apTC3Ou0RQZIxcqaJtdKLBHghokC5XToJe+Mul965YFFhR6rxL\n",
       "cHJFSEwCbSOgwR4IaJAos9lcVVVF20EGTxiDJjYTOQoLC9lWAm4BAQ0S9d87Qbv3MkJBGB5OCP2B\n",
       "gAaJ8oydoHsQtkxCQIM9ENAgUUJA6yKiPWASNCU83ru4uBhbJkGfJLTUW61WO34SmUymVqutVqvj\n",
       "p/IMcrlclG+s6wnLCN19J2hbQg+6s7OzsrIyOTmZbT0cx/E8r1AwyAFhET/0QkIB3d7e7vhJeJ5v\n",
       "b29HQAvUarUo31jXE7Z800VEs61ERH6BQf664JaGK4SQnJycmBjGNz8VCgXP88hKycIQB0hU9xCH\n",
       "wXMCmhASip37wW4IaJAoIaA9ZgoHFRrbNdMO9wmhTwhokCKLxSIsIwzyoDFoQkh4Ap4eC/ZCQIMU\n",
       "VVVVdU+C9pRVKlQopkKD3RDQIEVC91mhUgUEh7EtRlyhsYm0UV9fX19fz7YYkDgENEjRf02C5jzq\n",
       "UxocncBxctrGgm/onb0f/VWrVv34449OLQVA4Kl3CAkhCpUqODqOtvPz89kWAxJn7zxonudnz54d\n",
       "Ghr6wAMP3H///bGxnvZjA5Li+jl22XcskXd0tAYGueBaoXHJtaWFBMPQ0Bd7e9Cvv/56RUXFX/7y\n",
       "l7Nnzw4ZMmTGjBn//Oc/m5qanFoceC1hDDpQ7/SdoKndz76067m/NYdFuOBaeDgh2Kkfo3sKhWLu\n",
       "3LmbN28+evRobW3tww8/HBER8fDDDwub9gKIpXuIw7NWqVDYMgns1I+Arq+vf/fdd6dNmzZ16tTx\n",
       "48fv378/NzdXq9VmZGQ4rz7wQjzPdwd0VBzbYpwhLL5rKnRRURG2TIJe2DsGvWDBgm+//fbmm29e\n",
       "vnz5nXfe6evrS19/9dVXtVqt08oDb1RXV9fW1kbbntmDjuveMqm8vDwuzgP/EwJR2BvQkyZNeuut\n",
       "twwGQ4/XOY67fPmy2FWBVxO6z5xcoQ3v+ZHzAAEhYWp/TXuLkRBSWFiIgIYbsXeIQ6/X90jnd999\n",
       "lzb8/f1FLgq8mxDQgXoDJ5fQhosiwoJvsIe9Ab127doerzz77LNiFwNAyH89zNt1i7yfuSn+N6PD\n",
       "wgpyXHM5YcskrFWBXvTdPTl58iQhpKOjgzaogoICjUbjxLrAiwnzgjxvlYogDD1osEPfAX3nnXcS\n",
       "Qqqrq2mDEMJxXHh4+Guvvebc0sBbdfegI1w0Cdr10IMGe/Qd0HRAcOXKlf/4xz+cXw8AKS0tpQ1P\n",
       "7kFfnQpdVVVlNBrx+yhcVx8BffLkybi4uLCwsIcffth2iIMaO3as0woD79W9E7QnzrGjQmITZRzH\n",
       "W62EkKKiohEjRrCuCKSoj4BetGjRCy+88OCDDy5atOjao8XFxU4pCryY0Wg0Go20HehBTyPsQan2\n",
       "0YYZGi+XE0IKCwsR0HBdfQS0EMHIYnANYY6dTCbzpMfFXissPpkGNBZ8w43YO83u+PHj9BfPmpqa\n",
       "VatWrV69uqGhwZmFgZcSpnAEhIQrVCq2xThVGB6tAn2xN6CXLl1qtVoJIU8//XRRUVF5efkTTzzh\n",
       "zMLAS9lsk+RRT7q6Vii2TIK+2LtMq7q6OiYmpqOjY8eOHZcuXdJqtTExHv7zA0zYPEvFY+fYUcJE\n",
       "jsLCQp7nZTIZ23pAguztQfv4+NTU1Ozfvz81NTU0NFQmk7W3tzu1MvBO3TtBe+4UDkqYCm0ymaqr\n",
       "q9kWA9Jkbw/60UcfHTdunMlkevnllwkhJ06cSE5OdmZh4KVsHnbl4b+i6QzRSh/fzrZWQkhBQYFe\n",
       "r2ddEUiOvQG9bt26u+66S6FQpKenE0ICAwOxbgWcoXudt6ePQctkstDYxMq884SQgoKCKVOmsK5I\n",
       "utra2jo7O+1/v1Kp9PHxcV49LtOPrcLGjBkjtIcOHeqEYsDbmUymuro62nblTkmshMUl04DGfcIB\n",
       "kF25Imtq4jUaPiSEdS3OYm9Am83mzz777PTp083NzcKLGzZscE5V4KUqKyuFtotvEjZGxipbTRal\n",
       "Syf24eGEjlD97W+qN97oeOKJ9r/+lXUtzmJvQD/88MO5ubmzZs3S6XROLQi8mTAA7aMJ9Alw6ZN6\n",
       "3t+y35WXozDTDnpnb0AfPnw4JydHqVQ6tbdUUcIAACAASURBVBrwcjYbjXr++AaxeThhWVlZe3u7\n",
       "Wq1mW4/naWhoCAoKWrNmzZ/+9CdCyOHDh6dMmfLpp5/ee++9vXzV0qVLn3zyyfj4+EWLFh08eNBV\n",
       "xV6HvdPsQkJCME8TnM1mmyTvCOi4ZPpjZbVaMcrhJDExMbt376btzz//fNiwYXZ+YUhIyP/7f//P\n",
       "aXXZxd6AXrBgwZIlS/bt23fOhlMrAy9UUVFBGx6/SoVS+wcEhITTNgLaSVQq1aBBg86dO8fz/KFD\n",
       "h6ZOnUpf//DDD8eOHTty5Mh169bRV1544YXU1NTbbruttraWEFJXV/f4448TQtrb22fOnDl69OhR\n",
       "o0bt27ePEFJcXDxhwoQnnnji1ltv/Z//+R/nFW/vEMff//53QsiBAwdsX6yqqhK/IvBiNpOgPXYn\n",
       "6B7CElKMtZcJIfn5+bNnz2ZdjmdauHDhF1980dzcPHbsWI7jCCH5+fmff/75kSNH5HL5ggULTp06\n",
       "pVAovvrqq6ysrJqamrS0NNsvVyqVW7du1el0VVVVCxcuPHToECEkNzd3586doaGh06ZNKyoqSkhI\n",
       "cEbl9gY0shhcwOZZKh6+jFAQFptUeOIgQQ/amTIyMv7yl780NzfffffdW7duJYTs3bv34sWLt956\n",
       "KyGksbGxqKiopqZmwYIFarU6Ojp62rRptl8uk8leeeWVPXv2KJXK8+fP0xfT09NDQ0MJIampqSUl\n",
       "JU4KaHuHOAghO3fufOihhxYsWEAIOX78+HfffeeMgsBrmc1mYZqdzuU3CRc9vfTeFYsCK8pcfF3h\n",
       "4YT5+fkuvrT38PX1jY2N3bFjx80330xf4Xn+7rvv3rt37969e0+fPr1w4UJCiELR1WHtMRvim2++\n",
       "uXTp0r59+/bu3SusfxHew3Gc2Wx2UuX2BvTf//73Z555ZsyYMWfOnCGE+Pv7X/ucbwBHXL58Wfig\n",
       "6/SuHoOOPXkw/tg+lam577eKCg8ndI1f//rXL774olwup3+85ZZbtmzZcvnyZUJIaWnplStXJk+e\n",
       "/MMPPxBCmpubjxw5Yvu19fX1iYmJCoXi+PHj9Etcxt4hjtdee+3AgQOxsbFvvfUWISQtLS03N9eZ\n",
       "hYHXEebYKX18/YND2RbjMkIPurGxsaamJiwsjG09nmr06NGjR48W/jho0KB169bNnDnTYrHodLov\n",
       "vvhixIgRU6ZMmTNnTnh4eI+V0vPnz//www+XLFkSHh4eG+vSuyP2BrTJZAoPD7f9o6+vr3NKAi9l\n",
       "u9Go98zpDDLEKFRqc0c7IeTSpUsIaHHpdLqCggLbV958803aWLJkyZIlS2wPXTsqQCdBazQaYaLe\n",
       "+vXrCSHx8fHff/89fcWpC6rtHeKYNm3a888/b7FYCCE8z//hD3+YNWuW7Rs2b9788ssvb9my5dqv\n",
       "zcvLW79+/WuvvXb27FnHKwZPZTPHzlvuEBJCZBwXHBVH27hPCD3Y24N+4403FixYEBwc3N7ebjAY\n",
       "kpKStm3bZvuGiRMnpqenZ2dn9/hCq9WamZm5bNkylUr1zjvvpKWlYbkUXFd3D9rTd4LuISw+pboo\n",
       "j2DBN1zD3oA2GAyHDx/OysoqKSmJjY1NT0/v8UtofHz8de9ylJeXh4SE0B086HsGDx7seN3geWzW\n",
       "eXvLJGgqPDHl/B5CCOnxyzhAP7Yblclk6enpdD9o+xmNRq22a9cbrVZrNBqFQ0VFRSaTibY1Go1G\n",
       "o+nXmW9UpI+PD8/zjp/KMygUCjozX/q6J0F7WQ86NK772VcuvrVDPxv0caMu1q+paSqV6tqNgGSD\n",
       "B/MzZyqGDpX7+fU85Cn3MPoI6N/85je9HKVPVxmw3Nxc4Uk/Q4cOFeuJEn5+fghoAcdxTH78+ovn\n",
       "ee8cgyaEhMYm0kZJSYlCoVC58FnmNMiY/Ly0tbXZ/+brdzJWrCArVnhIEt9AHwEt/C/X0NDw8ccf\n",
       "z5w5MzEx8fLlyzt37pw/f749F9BoNEKv2Wg0RkZGCocyMjKEttFoFHZqd4TBYLhy5YpbRJJrqNVq\n",
       "t3h6ZE1NTWtrK20HeWsP2mw2nzp1KiUlxWWXVigUPM/Tm/+uFxgYyOS6bqSPgH7llVdoY+7cudu3\n",
       "b7/tttvoH/Pz85955pnevzYnJyctLS0qKqq2traxsVGpVBYVFWG3Abgu4Q4hJ1do9ZG9v9nD+AUG\n",
       "BYSENdfVEEIKCgpcGdAgcfaOTu7fv3/mzJnCH1NSUnqsqPnoo4+++OKL/Pz8V199lS7Y3bp1K8/z\n",
       "HMdlZGRs3LjxnXfemT59OqZwwHUJAa0NN3CcnG0xrhdmMwzNthKQFHtvEqalpf31r3/91a9+RddK\n",
       "bt26VVi3Tj3wwAM9vuS5556jjdTU1NTUVIdLBU9msxO0d41vUKFxSUWnjhAENPw3ewP6gw8+uOuu\n",
       "u1555ZXY2Njq6mp/f/8vv/zSqZWBV7GZBO0VW/X3IDxaBTPtwJa9AT1s2LCLFy/++OOPFRUVkZGR\n",
       "Y8aMEbYdAXBc907QXtmDRkDDdfVjHrRcLh8/frzzSgFvxnyVyvtbDsh4qzHcwOTq4YmDaKOhoaG6\n",
       "utp23xvwZv0IaADnYb5KpZHpY2p1hmiFSmXu6CCEXLp0CQENlHusMQPP1tTUJEyW984xaI6Th1zd\n",
       "GBo7coAAAQ3sCQPQMo7zzjFoQkh4AoahoScENLAnBHRAcJhc6bqFzpIiTIVGDxoECGhgzwsf5n0t\n",
       "YSIHAhoEuEkI7JWWltJGELs7deM+2SDv7Dh759JWXTCTAoSJHGVlZa2trXhiERD0oEEKbJYRMgvo\n",
       "qW+/fMvrfwyodekjQW2FxiXTveWsVivWEwKFgAb2hCGOwAhXP8xbOlS+ftqrs7AxygEUAhrYs1lG\n",
       "6I1z7ARYTwg9IKCBsebm5itXrtB2UJT33iQkNsPQ+fn5bCsBiUBAA2NC95l4fQ86PAEBDf8FAQ2M\n",
       "CXcI/YNClD5ePXVBCOjCwkJWTzkBSUFAA2PdG4162aMIrxUa37VWpb293fYXC/BaCGhgzGaVileP\n",
       "bxBCNCHhvlodbWOUAwgCGpjrXqUSFce2EikQ7hPm5eWxrQSkAAENjHn5Vv09CDPtsFYFCAIamMNG\n",
       "HLaE+4ToQQNBQANbJpOptraWtr18jh2FmXZgCwENLAlPuiLoQRNCCNEnpdJGU1NTVVUV22KAOQQ0\n",
       "sCRMgvYLDFb5+bMtRgoC9VHCZHAs+AZsNwos2TwrlvH4xvfPvsSZO41hEWzLkHFcWHxyxcVsQkhe\n",
       "Xt5NN93Eth5gCwENLHUHNOtdOLLuWMK2AIE+aTAN6NzcXNa1AGMY4gCWsIzwWtjTDgQIaGBJ6EEH\n",
       "s+5BS4cea1XgKgQ0sGTzsCssI+wSnpRGG1euXKmpqWFbDLCFgAZmbHeCRg9aEBwdp1T70DY60V4O\n",
       "AQ3M2G7YpmO9SkV/MTsi56yivY1tGYQQjpOHxCbSNpareDkENDAjBLR/UIjK149tMfc/Ou+h+2cF\n",
       "lRWxLYOKSB5MG+hBezkENDBTUlJCG8FR8UwLkRz91WHoixcvsq0E2EJAAzPYCfpG9Fd70AhoL4eA\n",
       "Bma6J0GzHoCWmvDErh05Ghsbq6ur2RYDDCGggRnprPOWmuDIWGFHDgxDezMENDBjMwkac+z+i4zj\n",
       "hH1HseDbmyGggY2mpqbGxkbaxiToawnD0Ahob4aABjaEKRwymQw96GtFIKABAQ2sCOMbmrAIhUrN\n",
       "thgJEnrQOTk5PM+zLQZYkdB2o0ql0vGTyGQypVJptVodP5Vn4DhOlG+s6CoqKmgDdwivS9gyqaWl\n",
       "pbq6OjraKbv9yeVynuc5jkFHzWKxuP6ibkdCAS3WP5jFYkFAC+RyuTR/EoqLi2kjGNskXU+gPspH\n",
       "E9hmbCSEnDt3zmAwOOlCPM8z+XnBrwX2kFBAi/IpoZ82BLSA1Y9fn7oDOiaeZR0SZkgZUnTqCCHk\n",
       "/PnzM2fOdMYlOI6T7CcECMaggRVhDDoYdwhvICJ5CG1gPaHXQkADA1arVXhcbFAUhjiuL/zqE74x\n",
       "kcNrSWiIA7xHdXV1e3s7bUtkEnTe9NsVHW3tGi3rQroZUobSRkFBQWdnpzRv9oJTIaCBAWEAWqFS\n",
       "acOcdfurX3b88S3WJfQUkTJEJpPxPG82m3Nzc4cNG8a6InA1DHEAA7aLvGUs5ni5BbV/gLCEJycn\n",
       "h20xwAR+NoCB7oDGPna9wr6jXg4BDQx0T+GIjmdaiNQZUromcly4cIFtJcAEAhoYsHmWCqZw9Cbi\n",
       "6n1CBLR3QkADA909aKxS6VXE1R50bW0tdu73QghocDW6uQRth8Qksi1G8IvZ6U/fkhJSJK3d8UNj\n",
       "E9V+AbR9/vx5tsWA6yGgwdWEB6nIZDLpDHGojY0+TQ2cxPYtkXFcxCAMQ3svBDS4mhDQ/kEhKl8/\n",
       "tsVIn7DgGzPtvBACGlyte5uk6ASmhbgHQ2rX+pTs7Gy2lYDrIaDB1YSADo2VygC0lEWljaCNwsLC\n",
       "lpYWtsWAiyGgwdW6p3BIZgBayvRJaRwnJ4RYrVbsmuRtENDgatgJul+UPr6hcUm0jYkc3gYBDS5l\n",
       "NpuFHjSGOOwUObhrlAPD0N4GAQ0uVV5ebjabaTs4Kp5pLW5D2HcUPWhvg4AGlxLGN9T+Gv+gEKa1\n",
       "uI2oqz3oCxcuCP+9gTdAQINLCQEdEoM5dvaKTBshk8kIIR0dHbhP6FUQ0OBSRUVFtBGCO4R289Xq\n",
       "hBkvGIb2KghocClhHzvcIeyXqCEjaSMrK4ttJeBKCGhwKZsedBLbStxL9NWAPnv2LNtKwJXwTEJw\n",
       "HavVKsyxk9oQR7sm0KpQWuVy1oVcX2TacNq4ePGi2WxWKPCT6xXwzwyuU1lZ2f0wb4k9S+WtTEn3\n",
       "TOl9Qp7n29racnNzhw4dyroicAUMcYDrFBYW0obaL0AbFsG2GPfiq9WFXB21P336NNtiwGUQ0OA6\n",
       "NvvYYReOfosanE4bmMjhPRDQ4DqXLl2ijRBM4ei/6KGjaAM9aO+BgAbXEaZwhMVhCke/CQGdm5vb\n",
       "2trKthhwDQQ0uA7m2DkiKm0EJ1cQQsxm87lz51iXA66AgAYXMZvNUl6lsujppfeuWBRYUca6kBtS\n",
       "+vjqk1JpG6McXgLT7MBFysrKhI1+QuOT2RZzrdiTB1WmFpWpmXUhvYkdMa4y7zwh5Mcff2RdC7gC\n",
       "etDgIsL4ho8m0F8XzLYYNyUMQ2M9oZdAQIOLCFM4wuIk1312FzHDRtNGWVlZdXU122LABRDQ4CL5\n",
       "+fm0EZaQwrYS9xWemOqr1dH2yZMn2RYDLoCABhcRlhGGxmIKxwDJZDLsmuRVENDgIsIQR3gChjgG\n",
       "LnbEWNpAD9obIKDBFYxGozBmGhaPIY6Bi00fTxtnz57F4688HgIaXEHoPnNyRXA0HnY1cLHDRss4\n",
       "jhDS2tqK5SoeT7R50Hl5eZmZmTzPT58+PT093fbQn/70J19fX0JIdHT04sWLxboiuJGCggLaCIqM\n",
       "UahUbItxaz6aQH1ialVBDiHkxIkTI0eOZF0ROJE4AW21WjMzM5ctW6ZSqd555520tDS1Wi0c9ff3\n",
       "f/rpp0W5ELip7jl2GN9wWNzICTSgjx8//thjj7EuB5xInCGO8vLykJAQnU7n5+cXHx8v3K8HoIQe\n",
       "NObYOS5uZNcw9IkTJ9hWAs4mTg/aaDRqtVra1mq1RqPR9qjJZFq/fr2vr++MGTOSk7vv4H/yySc/\n",
       "/fQTbU+aNOmmm25yvBKZTBYeHu74eTwGfQwH6yq6d4IOTxjEtBBPEJ8+gTZqamqMRmNKysD/z2P4\n",
       "8TCZTEyu615csRfHypUrdTpdZWXlpk2bVq5cScejCSF33HGHcBvaYrHU1NQ4fi29Xl9XV2e1Wh0/\n",
       "lWdQq9XCU6ZYMZvN3atUMMThsKCoWG24oam6khCyY8eOpUuXDvhUCoWC53mLxSJedfbieT4gIMD1\n",
       "13Uv4gS0RqMRes1GozEyMtL2qE6nI4QYDIawsLC6urro6Gjhq4T3GI3GHv3ugaGfNgS0wGKxMPnx\n",
       "s3Xp0qXOzk7aDscQhxgSRk08++2XhJBjx44tWbJkwOehPWjmnxC4EXHGoKOiompraxsbG00mU1FR\n",
       "UWJiIiEkJyeH53mTyUQ3F6+tra2urg4KChLliuBGcnNzaUMTEi6sVJaaT977euMn39fHuMcUwPjR\n",
       "k2jj+PHjbCsBpxKnB81xXEZGxsaNG61W6/Tp0+kUjq1bt65Zs6apqWnLli2dnZ1qtXrOnDn+/v6i\n",
       "XBHciDC+EZ6YyraSXlxOG866hH5IHDOZNkpKSioqKnr8zgoeQ7Qx6NTU1NTU//rxe+655wghERER\n",
       "Tz31lFhXAXeUl5dHG7hDKJawhEH+QSEt9XWEkMOHDy9atIh1ReAUWEkITicEtD45jW0lHkMmk8WP\n",
       "6hrlOHz4MNtiwHkQ0OBcZrNZmAStTx7MthhPkjx+Km0cOHCAbSXgPAhocK6SkhJM4XCGxLFTaKOi\n",
       "oqK0tJRtMeAkCGhwrosXL9KGJlTvFyjdJ12N+2TDxI2v+zZcYV2IvcISBmlC9bR96NAhtsWAkyCg\n",
       "wbmEOXZSnsJBCJn69su3vP7HgNrLrAuxl0wmSxrXtfgWw9CeCgENziX0oCNwh1BsSeNvpo2DBw9K\n",
       "YUE/iA4BDc4l9KD1SbhDKLLkCV0BXV1dLXyfwZMgoMGJ2traioqKaDsiBQEtMl1EdGhc1wMe9+7d\n",
       "y7QWcAoENDhRbm4u3edBxnH6RAxxiC9lwi20cfDgQaaFgFMgoMGJcnJyaCM4Mlblh1X+4kueOI02\n",
       "Dh8+3NbWxrYYEB0CGpyo+w5hylC2lXiqpHFT5UoVIaS9vf3YsWOsywGRIaDBic6fP08bhtRhbCvx\n",
       "VGr/AOEBK//5z3/YFgOiQ0CDEwlDHJEIaKdJHt81yrFnzx62lYDoENDgLKWlpfX19bSNHrTzpN00\n",
       "izYKCwtLSkrYFgPiQkCDs2RnZ9OGf1CILiKabTEezJA6TGeIoe3vvvuObTEgLgQ0OMuFCxdoA3cI\n",
       "nW3QpOm0gWFoD4OABmc5d+4cbUS61cNK3FHazbfRxtGjR0V5tidIBAIanKU7oAdhANq5ksffrFT7\n",
       "EEI6Ozv379/PuhwQDQIanKKmpqaqqoq2o4aksy3GHgdW/GbvU79vvrqBp3tR+vgKGyft3r2bbTEg\n",
       "ItGeSQhgS7hDqPYLCI1NYluMPU7cv5x1CQ4ZPO1nFw98RwjZvXu32WxWKPCj7QnQgwanOHv2LG1E\n",
       "pg2XcfiYOd3gaRn0+9zQ0HD8+HHW5YA48JMDTiEEdPTQUWwr8RKakPDYEWNpOzMzk20xIBYENDjF\n",
       "qVOnaAMB7TKDb/4ZbWRmZmL/fs+AgAbxlZaW1tXV0XbM0NFsi/EeQ2fMpY3KysrTp0+zLQZEgYAG\n",
       "8QnpEBAcGhQVy7YYO+kvZkfknFW0u/GOnaGxicKS+h07drAtBkSBgAbxCQEdM2wM20rsd/+j8x66\n",
       "f1ZQWRHrQhwyfNZ82ti5cydGOTwAAhrEd+LECdqIGT6WbSXeZsRtXQH9008/nTlzhm0x4DgENIis\n",
       "ra1N2AY6doTb9KA9Q0hMQmTaCNr+6quv2BYDjkNAg8jOnDnT2dlJCOHkCtwhdL3ht95BG19//bXV\n",
       "amVbDDgIAQ0iE8Y3IlKG4DmErjfitjtlMhkhpKqqCg/BcncIaBCZENDxVx/FBK4UHBUXmz6Otrdu\n",
       "3cq2GHAQAhrEZLFYugN61CS2xXitEbfdRRvffPNNe3s722LAEQhoEFNOTk5TUxMhRCaTJYxGQLMx\n",
       "4rY75QolIaSxsRHPWHFrCGgQ05EjR2gjLGFQQEgY22K8VkBwaOrVBxVilMOtIaBBTIcOHaKNxLFT\n",
       "2Fbi5UbOXkQbe/bsqampYVsMDBgCGkRjNpuPHj1K24ljENAsDZ72M1+tjhBiNpvRiXZfCGgQzalT\n",
       "p+gD8WQclzjuJtbleDWFSi10oj/99FO2xcCAIaBBNMLT8AyDhvnrgtkWA+PuWkobBQUF2MLfTSGg\n",
       "QTR79uyhjUGTZ7CtBAghhkFDhc3tPvnkE7bFwMBI6MFlarXa8ZPIZDK1Wo0VrgK5XC7KN7ZPdXV1\n",
       "WVlZtD1o0nQXXFFcedNvV3S0tWu0rAsR0/gFD3710rOEkK+//vrFF18MDu75aw3HcTzPM3mAocVi\n",
       "cf1F3Y6EAlqUGfU8z7e3tyOgBWq12jVLFb777jv6bffRBAor2dzIjj++xboE8Y2ac/eu9S+0m5rb\n",
       "29s/+eSTxx9/vMcbFAoFz/PISsnCEAeI44cffqCNlInT6CoJYE7tHzAio2tV4ccff4wdot0OAhpE\n",
       "YDabhYBOnTKLbTFga+Kin9PGpUuXDh8+zLYY6C8ENIjg4MGDjY2NhBCOk6dNvY11OdAtMm14/MgJ\n",
       "tP3++++zLQb6CwENIsjMzKSNuFET/INC2BYDPUxc/DBt7N69u7i4mGkt0D8IaHCU2WzeuXMnbQ+7\n",
       "+mBpkI5hM+dqww2EEKvV+t5777EuB/oBAQ2OOnDgQH19PSGE4+TDZs1jXc4A/WJ2+tO3pIQU5bEu\n",
       "RHxypWri3V0j0Z999hkdjAK3gIAGR/373/+mjYQxk7VhEWyLGTC1sdGnqYHz0Aln4xcuU/n6EUJM\n",
       "JtPHH3/MuhywFwIaHNLS0rJr1y7aHnX73WyLgRvx1wWPmbeEtt977z3s4u8uENDgkO3bt5tMJkKI\n",
       "Uu0zdMbtrMuBG5r6wEpOriCEVFdXb9myhXU5YBcENDjkww8/pI1hM+f5BHjUOmkPExQVm/6zrkUr\n",
       "b731ltlsZlsP2AMBDQN35syZ7Oxs2hb2TgPJmvbzp2QcRwgpKyv77LPPWJcDfUNAw8D985//pA19\n",
       "8uCEMZPZFgN90ielDbllDm2//vrr6ERLHwIaBqiiomLbtm20PemeR9gWA3aa+dj/ymQyQshPP/2E\n",
       "jfylDwENA/Tmm2/SLph/UMjoufewLgfsYkgdJtzLXb9+fVtbG9t6oHcIaBiIysrKzZs30/bkJY8r\n",
       "1T5s6wH7zVr+a46TE0IqKyuxsFDiENAwEH/+85/pXFq/wKDJGN9wK/qktFFzF9P2G2+8QVeBgjQh\n",
       "oKHfsrOzhQdF37zsSR9NINt6oL9mLX+W/tLT0NDw0ksvsS4HbggBDf1jtVp/+9vf0oen6Awxk+99\n",
       "jHVF0G+6iOipD6yk7U2bNl24cIFtPXAjCGjon/fff//06dO0PXvVWqWPL9t6YGCmPfRUoD6KEGI2\n",
       "m9euXYuHrUgTAhr64fz58y+++CJtp029dcRtd7KtR0TtmsA2rc4ql7MuxEVUfv6zV62l7SNHjgi3\n",
       "fEFSZBL5n9NoNBqNRsfPYzAYLl++jIfGCkR8aGxDQ8Ptt99Od3z30QQ+vWV/oD5SlDMDK+8tX3jp\n",
       "+H5CiEaj2bdvn16vd+XVIyPx+ekDetBgF5PJ9Mgjj9B0lslkC9e+hnT2AHeu+Su9W2g0Gp999lnW\n",
       "5UBPCGjoW2tr689//vOjR4/SP970wMphM/HkFE8QGpt464rf0Pb333+PgQ6pQUBDH2praxcvXnzw\n",
       "4EH6x2Ez585+ai3bkkBEU5Yujx0+lrZ///vfFxQUsK0HbCGgoTeHDx/OyMg4deoU/WPqTbMWr3ub\n",
       "7ogGnoHj5He/8KbwvJXly5fTDb5BCvCTBtfX1NT0u9/97p577qmsrKSvDL/1jqWvfIhV3Z4nNC5p\n",
       "3rNdy1VycnJWr17Nth4QIKChp87Ozg8++GDq1KkbN26k82FkHHfryt8uefk9hUrFujpnmfv7X9z5\n",
       "60e0l8tZF8LG2Pn3jbq9a/33V1999eabb7KtBygF6wJAQurr67ds2bJhw4bq6mrhxaCo2IVrX0sa\n",
       "N5VhYS4waM9Olanl0GOriT6KdS1s3PXc3y5fulhxMYsQ8uc//9lgMCxcuJB1Ud4OAQ2EEJKdnf3J\n",
       "J598/vnntvtPyhXKSfc+OuuJZ9X+AQxrA9dQqn2WvfbxWw/c1lRTZbVan3nmGa1We+utt7Kuy6sh\n",
       "oL1aXV3dN998s2nTpqysLNvXZRw3MmPhjMdXh8YmsqoNXE8bbvj5m59teHhue4vRbDY//vjjb7/9\n",
       "dkZGBuu6vBcC2huZzebDhw9v2rTp22+/7ejosD2k9teMnb9k0j2PhsQksCoPGIpIGbLstY83PrWk\n",
       "o9XU0dHxxBNPvPzyy0uWLGFdl5dCQHuXS5cubdmyZcuWLbajzJQ+KW38ggfH3HGv2l/DpDaQiIQx\n",
       "k+9/ZeMnqx/qaDWZzebVq1fn5+f/7ne/k3vNRiXSgYD2CiaTadu2bZ9++qkwo1mg9gsYNmveuDuX\n",
       "xo0cz6Q2kKBBk6b//K0tH/3yAVNjPSHknXfeyc7OfvPNN128WQcgoD2ZxWL54YcfPvroo//85z89\n",
       "Vh/IZLKEMZPHzr9v6PTbVX7+rCoEyYofOWHFh7s2/s+9dWVFhJDDhw/PnDnzD3/4w6JFi1iX5kUQ\n",
       "0B7IarUeO3bs66+//uabb2pqanocDdRHjZl3z+h592KUGXoXGpu48l+7Nv/2ifyjewkh9fX1q1at\n",
       "+vTTT1944YWhQ4eyrs4rIKA9R3Nz86FDhzIzM/ft23ftELPKz3/oLXNGz7snadxUrNUGO/kFBv/8\n",
       "zc8OfPSP7zf8ubO9jRBy9OjR2bNn33XXXStWrEhLS2NdoIdDQLu3urq68+fPHzp06OjRo1lZWT2m\n",
       "ZBBCZBwXP2ri2Pn3Dblltk+AlkmR4NZkHHfzsidTb5r15bpnSs6eIIRYLJYvvvhi69atM2fOfOyx\n",
       "xyZPnszhv3znQEC7k5aWlrKystzc3JKSknPnzp07d66kpOS67+Q4edyoCcNnzRs6Y642LMLFdYLn\n",
       "0SelPfHBztM7t+z+x8sNVT8RQnie//7777///vuYmJj58+fPnz9/yJAhrMv0NHiiiuS0traWl5fX\n",
       "1NQYjcaffvqpqqqqsrKyvLy8tLS0qqqq938vla9fXPr4oTNuHzr99oCQMJfV7AGeuSleZWp5f8v+\n",
       "muTBrGuRNHNHx4kv/7Xn/deMtZd7colCbQAACj9JREFUHEpOTl63bt3UqfbuCoAnqvRJtB50Xl5e\n",
       "ZmYmz/PTp09PT0+385D3aGpqam5uNhqNLS0t1dXVtN3c3EyD+PLly/X19TU1NfT1fp1Z5ecfPWRk\n",
       "zLAxKROnxY4Yh6e4glMpVKpJ9zw6fsGD5/6z4+iWD0rOHhc6DQUFBevWrfv222/ZVuhJxAloq9Wa\n",
       "mZm5bNkylUr1zjvvpKWlqdXqPg8NDM/zP/74Y1VVFSHEbDY3NzfbHg0MDDQajQqFws/PjxCiVCpp\n",
       "Q6vVajQauVyuUqmEV2Qy2QAKoJ395uZmGqZGo1EI3/b2dqPReOXKlWvf48hfuQdNqD48MVWfOCg8\n",
       "KS12+Fh9chrHYQUBuJRcqUrPWJCesaCmuOBM5henvv6Mjnv0+HkEB4kT0OXl5SEhITqdjhASHx9f\n",
       "WFg4ePDgPg8NzKuvvvrqq686XjMhRC6XBwQE0IZGc8PlczzPNzY2WiwWhh8+lZ+/Th8VqI8MTxyk\n",
       "UHXtyFxfXlpfXsqqJA9zadYdMp4v+Xpzuxw3ZvotcvAIGtAgLnE+i0ajUavtmiGg1WptO4y9HMrK\n",
       "ympqaqJtvV5v5yIl4dlLjrNYLI2NjbR95coVsU7rDB2mluqivOqiPDojFUS3j3UBnoHjONrp6VNn\n",
       "Z6ezi/EALDsLRqOxvr6etnU6nUJhVzFYbAogWQaDwc4fZIvF4uxiPIA4Aa3RaISusdFotL0528uh\n",
       "KVOmCG2j0djQ0GDPtX73u9+p1WrbbYtt+fr6trW1SWRqihTI5XL8JAgUCgXHcdfOFvdaHMfxPC/W\n",
       "z4tarX7yySft/EEmhAQFBYlyXQ8mTkBHRUXV1tY2NjYqlcqioqLZs2cTQnJyctLS0q57yBExMTHr\n",
       "16+/0VEPmGYnLrVa3d7ezroKqfDz8/Px8ZH4cJYrKRQKnufxX7hkiRPQHMdlZGTQR9hNnz6dztPY\n",
       "unXrmjVrrnsIAAD6hIUqHg49aFu99KD9PvuMdHa2zZ1r1elcXxgrbHvQWKjSJ8woAiCEkMDf/17W\n",
       "0lI9dqxXBTRIHLY4AQCQKAQ0AIBEIaABACQKAQ0AIFGeFtD//Oc/MakTbqS0tPSHH35gXQWAvTwt\n",
       "oJcvX27/QibwNgcPHtywYQPrKgDs5WkBDQDgMRDQIA6LxfLb3/5WIuueQIKOHTv2xRdfsK7CzSCg\n",
       "QRzt7e3/+te/cAMAbiQrK+vQoUOsq3AzCGgAAImSbkB/+OGHO3bsuO6hCxcuPP/88y6uRyxZWVkv\n",
       "vPCC885/+vTpF1980cGT/OMf/9izZ48o9VzX66+/fuDAgd7f8+9//3vTpk29vOHBBx9sbW297qFX\n",
       "X331yJEjA6+Pqb/85S8nTpxw3vlfeuml06dPO3IGs9l8//33Y8cbF5BuQOfl5RUWFl73UGVl5dmz\n",
       "Z11cj1gqKiqysrKcd/7y8vLs7GwHT5KTk1NSUiJKPdd14cKFPs9fWFiYn5/fyxv279/f0tJy3UPn\n",
       "z58vKysbeH1MnTt3zqnFZ2dn//STQ4+n6uzs3Lt3L4azXEC6AQ0A4OWku5tdQEDAjR5u5u/vf6ND\n",
       "GRkZA3tWt8v08vcSRY9vjtlsdvwk9lAqlcHBwXZ+8wMCAnp5Sq/wnt7PFhQUdKPtxW/0TeY4LiIi\n",
       "4rpfYvzVr0hHhzU8vPeqXMCeb46D5xe+OQMbplAoFMHBwRzXv+6dRqNx6iffI0llP2ix/PGPf3zm\n",
       "mWf8/f1ZFwJSdObMmYsXL957772sCwGwC4Y4AAAkCgENACBRnhbQCQkJcrmcdRUgURqNRq/Xs64C\n",
       "wF6eNgYNAOAxPK0HDQDgMRDQAAASJd150ISQ0tJSQkhsbCz94+bNm4uLixMTExcvXkxfycvLy8zM\n",
       "5Hl++vTp6enptl977SF7XgG3MIAPBj4q4I6kG9BHjx49ffo0x3EGg+GOO+4ghEycODE9PV1Yx2y1\n",
       "WjMzM5ctW6ZSqd555520tDRh2cK1h5RKZZ+v3GjVA0jKAD4Yvfxb46MCUibRgG5sbMzOzv7Zz36m\n",
       "UCi0Wi19MT4+3nZ3jvLy8pCQEJ1OJxwaPHjwjQ4FBAT0+Yrw5SBZA/tg9PJvjY8KSJlEA5rjuI6O\n",
       "DpPJpNVq6Q/GtYxGo/AjqtVqjUZjL4d4nu/zFWf9ZUA8A/tg9PJvjY8KSJlEA1qj0UydOvXAgQOd\n",
       "nZ0TJkyYMGEC64pAEvDBAK8i0YAmhIwYMUKn07W0tBw4cCA2NtZgMPR4g0ajEfoyRqMxMjKyl0MB\n",
       "AQF9vuLcvw+IZAAfjF7+rfFRASmT6DQ7k8nU3NxMCPH399dqtZ2dnde+Jyoqqra2trGx0WQyFRUV\n",
       "JSYmEkL27NnT1tZ27SF7XnH1XxL6b2AfDHxUwE1JtAdtNpu3bdvW0tLS2dkZGxsbExNDCPnoo48q\n",
       "Kys7OztfffXVJUuWGAyGjIyMjRs3Wq3W6dOn0xvrZ86cmTJlCsdx1x6y5xWQuAF/MPBRAXck6aXe\n",
       "Paa79qmuru748eOzZ892ZlHAXn8/GNfCRwXcgqQDurq6mhASLoE91EFS8MEALyHpgAbPFh8f/8UX\n",
       "X4wdO5Z1IQASJdGbhOCmjh49evPNN2s0mqCgoClTpuzbt491RQBuTKI3CcEdtbW1zZ07d/Xq1Tt2\n",
       "7DCbzUePHlUoRPiAmc1mUc4D4HbQgwbRFBcX19XVPf3001qtNjg4eM6cOVOmTKGH1q5dGxcXp9Fo\n",
       "Ro0adW23+rpHIyIiXnrppZEjRw4fPvyvf/3rwoULhfc/9dRTq1atcs1fCoAhBDSIJj4+Pioq6qGH\n",
       "Hvr222/r6+ttDw0ePPj48eMNDQ0rV65cvHhxa2urPUcPHjx47NixCxcuLF26dNeuXQ0NDYQQs9m8\n",
       "efPmBx980GV/LwBWENAgGh8fn8OHD4eEhDz55JPh4eFz5swpKyujh5YsWaLX6+Vy+WOPPebr65uX\n",
       "l2f7hTc6umrVKrVaLZPJDAbD1KlTP//8c0LIrl27QkNDx4wZ4+K/HYDrIaBBTLGxsW+99VZ+fn5J\n",
       "SYnFYnn00Ufp6//617/GjRsXExMTHx9fUVFRW1tr+1U3Omq7jHvZsmUff/wxIeTjjz9+4IEHXPUX\n",
       "AmAJAQ1OERkZ+eijj2ZlZRFC8vPzV61a9cEHH5SVlRUXF0dHR9tO7uzlqEwmE9525513ZmVlnTt3\n",
       "bseOHffff7+L/zoATCCgQTRFRUXPP//8xYsX29raCgoKNmzYQHeba2pq8vPzS0lJIYR8/fXXRUVF\n",
       "tl/V+1GBr6/vwoUL77vvvvHjxzuyhhDAjWD2EohGq9WWlJRkZGRUVlYGBwffeuutr7zyCiFkzJgx\n",
       "S5YsGTlyZHh4eHp6+tChQ22/qvejtpYtW/b+++9/8MEHTv+bAEgDVhKC2ygrK0tNTa2qqhK2zwfw\n",
       "bBjiAPdgtVr/9re/3XvvvUhn8B4Y4gA30NLSotfr4+Lidu3axboWANfBEAcAgERhiAMAQKIQ0AAA\n",
       "EoWABgCQKAQ0AIBEIaABACQKAQ0AIFEIaAAAifr/ryu59ByppdkAAAAASUVORK5CYII=\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "PrettyDensPlot(numericDB$BudgetedSalary, 'Salary')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Looks like the median salary is right around the 110,000 dollar mark. The distribution looks to have a bit of a tail on the lower end. Remember that the plot marks below show a logarithmic distribution of salary data, which you often need. Salary data is very rarely normally distributed without a log transformation. Therefore, a summary statistic such as the median will usually be more informative about the distribution than the mean.\n",
    "\n",
    "Let's see if gender has any effect on salary next."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 78,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3de3xU9Z3/8e/cMkwy\n",
       "mUwyJOSCSYzBhIsGNsulCrgJtKasv3LTKIImgqxuxIBQbX10F1lYrFZXYGUfK1otBVQuVQFLk9JW\n",
       "qxZcUtxlsQkSNCFiCMQJECYME+Zyfn+c/uaRX4BkcpmZbzKv519nvnPO93zmzJz3fHNyzhmNoigC\n",
       "ACAfbbgLAABcGwENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIE\n",
       "NABIioAGAEkR0AAgKQIaACRFQAOApAhoBNeLL76Ym5urTi9YsOC+++4Lbz0hqGHWrFkPP/xwUFfR\n",
       "dx3fF0iLgEZnjz76qEaj+d73vtex8Te/+Y1Go9FoNB6Pp9c9T5069Y477uhzgUCk0Ie7AMgoLS3t\n",
       "j3/848mTJzMzM9WW1157LSMjo6GhoS/d/sM//EM/FBdyLpdryJAh4a4i/NgOoccIGteQnJx85513\n",
       "vv766+rDM2fO7Nu3b+HChR3nefXVV0eNGjVkyJDs7OxVq1ZduXJFbXe73eXl5QkJCXFxcQsXLrx0\n",
       "6ZJ/kY6HF95///0pU6aos02ZMuXgwYP+2WbNmlVaWvrUU0/dcMMNNptt/vz5Fy9evGadf/jDHyZM\n",
       "mBATE2OxWMaNG/fJJ59023lHXddQUlLyxBNPpKamZmRkbN682WKxdHwtzz77bHp6us/nu2bPPp/v\n",
       "6aefTkpKMpvN999//4ULF4QQPerkypUrS5YsiY+PVzfjv/zLv3Q8InG9jd/Fpuvifem6w47b4Zov\n",
       "FkGkAP+/Rx55JD8/f8+ePWlpaR6PR1GUZ599dtq0aVu3bhVCuN1uRVFeeOGF1NTUd9999+uvv/7g\n",
       "gw9GjBjx1FNPqYs//fTTCQkJe/bsOXny5MqVK81mc05OjvrU/Pnz7733XnX6zTff3Llz54kTJ44f\n",
       "P7506VKLxXL27Fn1qZkzZxoMho0bN7rd7jNnzuTk5Dz55JNX1+lyucxm8z//8z+fOnWqoaFhz549\n",
       "f/7zn7vtvEc1/PSnP3U6nRcvXnQ6nVar9ec//7n6rM/ny8rKWrVq1TU34MyZM81m8+LFi7/88stP\n",
       "PvnkpptuuueeexRF6VEnTz31VFJS0r59+06ePLlmzZqOm7GLjd/Fpuvifem2Q/92uGapCB4CGp2p\n",
       "Ae3xeFJTU/fu3avmyI4dO/wB7Xa7rVbr9u3b/Yu89957cXFxiqK43e6YmJgNGzb4n5o8efI1A7qT\n",
       "zMzMzZs3q9MzZ86cNGmS/6lnn3127NixVy9y+vRpIcSBAwe6fUUdOw+8hltvvbXjs+Xl5RMnTlSn\n",
       "f//73+t0ulOnTl2zn5kzZ6anp6vfZIqiVFZWajSa+vr6wDtxu93R0dGvvPKKv6WwsFDdjF1sfOX6\n",
       "m66L96XbDjttB4QShzhwbTqd7qGHHnrttdc++OADh8Mxa9Ys/1MnTpy4cOHCfffdp/l/Zs+e3dra\n",
       "arfbGxoaLl26NGXKFP/MHac7+uabbx577LFx48alpaUlJyc3NjZ2PMDd8c/5xMTEs2fPXt1DSkrK\n",
       "/PnzCwoKioqKfvazn504cSLAzgOc7ZZbbuk486OPPnro0KHPP/9cCPHaa68VFRUNHz78eltvwoQJ\n",
       "ev1f/8Fz++23K4pSU1MTeCcNDQ1Op/M73/mOv+W2225TJ7rY+F1sui7el2477LQdEEoENK5r0aJF\n",
       "lZWVa9asKSkpiYqK8rerx0w//vjjTt/2Q4cO1Wg0QgiDweCfueOCHc2YMeOrr77693//94MHDx45\n",
       "cuTmm2/2H/cUQuh0uo4zX+9Q77Zt2w4dOlRYWLh///5Ro0Zt27YtkM4DrKHTP8RGjhw5derU1157\n",
       "raWlZffu3b37h2ffO+li46szXHPTdfG+dNsh/xgMIwIa13XjjTf+3d/93UcffbR48eKO7SNGjLBY\n",
       "LO++++7Vi6Snp8fExPzv//6vv+XIkSNXz9bc3Pz555+vWbNmypQpGRkZZrO51+eHjB079qmnnvr9\n",
       "739///33v/HGG4F33osaHn300W3btr366qs2m+3v//7vu5izqqrK6/Wq0wcOHNBoNKNGjQq8k4yM\n",
       "jOjo6E8//dTf4v8HZhcbvwtdvC+96xChQUCjK7t3725pabn55ps7NkZFRa1cuXLjxo2rV6+urq4+\n",
       "duzY9u3bn3jiCSGEXq9funTp6tWrv/76ayHE3r17Kyoqru7WZrPZbDb1KZfL9dhjj7lcrp7WVlNT\n",
       "80//9E+HDh1qbGw8dOjQoUOHxowZE3jnvahh7ty5Op1u1apVCxcu7DRQ7eT8+fOPPPJIbW3tRx99\n",
       "9Nhjj919993+ExYD6USv1y9ZsmTlypW//vWv6+rq1qxZc/jwYXUU3MXG70IX70vvOkRoENDoSnR0\n",
       "dEJCwtXtK1as+PnPf7579+78/Pzbbrtt3bp1/hB/5pln7rzzzrFjx95www2/+MUvli1bdvXiOp3u\n",
       "nXfeeffdd1NTU2+55ZYxY8bk5+f3tDaz2Xz06NE5c+ZkZWXNnTt3+vTpzz33XOCd96KGqKio0tJS\n",
       "j8fT7YWCd999t81mu+2222bMmDF+/PhXX321p52sXr367rvvXrBgwbhx4+rr6//xH//Rf6ihi43f\n",
       "hS7el951iBDQKIoS7hqAAeOBBx6w2+3X/LMgqJ3MmjXLaDTu2LGjL+vFgMOVhEBAHA7H4cOHd+7c\n",
       "+f7774egk+PHjx8+fHjy5Mler3fHjh179+797W9/2+v1YoAioIGAjBs37syZM8uWLet0l5IgdaIo\n",
       "yvr16x999FEhxMiRI/fs2fPd73631+vFANVvhzi2b99+8uTJrKys4uJiIcT58+f37t1rt9uNRmNR\n",
       "UVF2drYQYu3atSaTSQgxfPhwdbba2tqKigpFUQoKCvLy8gJsAYBI0G8j6EmTJuXl5aln4KumTZs2\n",
       "fPjw5ubmLVu2rFixQqPRxMTEdPzXhM/nq6ioUM+x3bRpU25ursFg6LbFaDRevXaHw+FwOPrrtUQm\n",
       "g8GQkJBwzUtCACHE0KFDHQ5He3t7uAsZ8FJTUwOcs9/O4sjMzOwYnfHx8eolUklJSUKIa14m0NjY\n",
       "aLPZrFZrdHR0ZmZmXV1dIC39VTAASC7ox6C/+uqrhIQENbudTueGDRtMJlNhYWF2drbD4bBYLOps\n",
       "FovF4XAoitJti7/nXbt2qXdjEEKMHz9+4sSJwX4tg5tGo9FqtcOGDQt3IZCUVquNj4/nvK8+unz5\n",
       "cuAzBzegW1tbKysr7733XvVhWVmZ1Wptamp66623ysrK+th5QUGBf2Cu1WrPnTvXxw4jnF6vt1gs\n",
       "bEZcj9VqdTqd1/xrGIHz+XxmsznAmYMY0C6X6+233/7+97/vv6jfarUKIVJSUhITE1taWmJjY/0j\n",
       "YofDkZqaajabu23x9+/vVnAMuv+43e5wlwBJKYri8Xj4hIRSsK4kVE/enDRpUlZWltridDrVsb3d\n",
       "bm9ubo6Pj09LS7Pb7a2trU6ns76+PisrK5CWIBUMALLpt9Pstm7d2tTU5Ha7TSbTvHnz2tra3n77\n",
       "bf9IfuHChS6Xa+fOnW6322g0FhYWqveOOX78eGVlpc/nKygoGDt2bIAtV2ME3XecxYGucRZHfwn8\n",
       "LI5Bcqk3Ad13BDS6RkD3lzCcZgcA6F8ENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKg\n",
       "AUBS/OQVEHEOHz585syZni4VGxt7+fJlj8fTo6U0Gs3kyZPj4uJ6ujoIAhqIQIsWLbIPSxFDrvHj\n",
       "RP2vvu7ZH/6wpKQkFOsadAhoIOL4fD7x9E9E2vBQrOzZNT6fLxQrGow4Bg0AkiKgAUBSBDQASIqA\n",
       "BgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgA\n",
       "kBQBDQCSIqABQFIENABIioAGAEkR0AAgqcHzq95GY0h+Q37w0uv1gs0YGTQaTShXp9fr+Vz5eb3e\n",
       "wGcePAHd3t4e7hIGNp/PJ9iMkUFRlFCuzuPx8LnqHQ5xAICkCGgAkBQBDQCSIqABQFIENABIioAG\n",
       "AEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQ\n",
       "FAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR\n",
       "0AAgKQIaACRFQAOApPT91dH27dtPnjyZlZVVXFysttTW1lZUVCiKUlBQkJeX148tABAJ+i2gJ02a\n",
       "lJeX9/nnn6sPfT5fRUVFSUlJVFTUpk2bcnNzDQZDv7QYjcb+qhkAZNZvAZ2ZmVlXV+d/2NjYaLPZ\n",
       "rFar/ymz2dwvLSNHjuyvmgFAZv0W0J04HA6LxaJOWywWh8OhKEq/tPhXYbfbr1y5ok5rtVqDwRCk\n",
       "1xIh9Hq9EILNiH6n0+n4XPn5fL7AZw5WQIfAhx9+ePr0aXV6/PjxEydODG89A51Go9FqtQkJCeEu\n",
       "BEGn1Yb07IDo6Gg+V36XL18OfOZgBXRsbKx/tOtwOFJTU81mc7+0+Fdxzz33+KcdDsfZs2eD9Foi\n",
       "hMFgSEhIYDNGgh4N4vqO3bMTs9kc4JzB+iJNS0uz2+2tra1Op7O+vj4rK6u/WoJUMADIpt9G0Fu3\n",
       "bm1qanK73S+99NK8efNSUlKKioo2b97s8/kKCgrUUy/6qwUAIkG/BfQDDzzQqSUnJycnJycYLQAQ\n",
       "CbiSEAAkRUADgKQIaACQFAENAJIioAFAUgP4SkJcz5kzZ375y196vd4eLaXVak0m06VLl3q6OpvN\n",
       "9sgjj/R0KQDdIqAHoT//+c97f7n57twRPV3QJ4Sph4u0e72rDx9ZvHhxiK8eBiIBAT04Zcdb//WO\n",
       "20KwootXrrx8+EgIVgREIEY9ACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAg\n",
       "KQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIi\n",
       "oAFAUgQ0AEiKgAYASRHQACApfbgL6DcajSbcJUQujUbD9sf18PHotcET0Hr94HktfaTT6UK8Rr1e\n",
       "r9Xy1xiuTavVsnv6+Xy+wGcePFvN7XaHuwRZeL3eEK/R7XYT0Lger9fL7tk77FQAICkCGgAkRUAD\n",
       "gKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABI\n",
       "ioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQI\n",
       "aACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApfZD6bWpqevvtt9Xptra20tLS9PT0tWvXmkwmIcTw\n",
       "4cOLi4uFELW1tRUVFYqiFBQU5OXlBdgCAJEgWAGdkpKyfPlyIYTT6fzP//zP4cOHCyFiYmKWLVvm\n",
       "n8fn81VUVJSUlERFRW3atCk3N9dgMHTbYjQag1QzAEglWAHtV1NTk5OTo9Ve41hKY2OjzWazWq1C\n",
       "iMzMzLq6OrPZ3G3LyJEjg10zAMgg6AFdXV09depUddrpdG7YsMFkMhUWFmZnZzscDovFoj5lsVgc\n",
       "DoeiKN22+Hs+cODAuXPn1Okbb7wxKysr2K9loIiOjg7xGq1W6zW/gyEnjUYTytWZTCZ1jAUhRHt7\n",
       "e+AzBzegL126ZLfbMzIy1IdlZWVWq7Wpqemtt94qKyvrY+exsbGKoqjTRqPR4/H0scNBw+fzhXiN\n",
       "Ho+HgMb1+Hw+dk+/Hu2ewQ3ompqa3Nxc/66rfoumpKQkJia2tLTExsb6R8QOhyM1NdVsNnfb4u/8\n",
       "1ltv9U87HI6Og+sI53K5QrzGtrY2AnoA8Y9sQqO9vb2trS2Uaxw0grtTVVdXjx49Wp12Op2XL18W\n",
       "Qtjt9ubm5vj4+LS0NLvd3tra6nQ66+vrs7KyAmkJasEAII8gjqDb2tpaWlr8xzcuXry4c+dOt9tt\n",
       "NBpnzJgRExMjhCgqKtq8ebPP5ysoKFBPzwikBQAiQRAD2mw2r1ixwv8wOTm5vLy80zw5OTk5OTk9\n",
       "bQGASMBxQwCQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIE\n",
       "NABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASCqggHa73aNHj1YUJdjVAAD8\n",
       "Agpog8EQFRXldruDXQ0AwE8f4HzFxcVz584tLy9PTk7WaDRq45gxY4JWGABEukADesOGDUKIBx54\n",
       "oGPjmTNn+r8iAIAQIvCAJosBIMR6cBbHvn37SktL58yZI4Soqqrav39/0KoCAAQc0OvWrVu+fHl+\n",
       "fv6RI0eEEDExMStXrgxmYQAQ6QIN6PXr1//ud797/PHHo6KihBC5ubnHjx8PZmEAEOkCDWin05mU\n",
       "lNTxoclkCk5JAAAhAg/oO+6445lnnvF6vUIIRVFWrVo1ffr0YBYGAJEu0LM4Xn755Tlz5iQkJLS3\n",
       "t6ekpNx00027d+8OamUAEOECDeiUlJSDBw8ePXq0oaEhPT09Ly/Pf7kKACAYAg1oIYRGo8nLy8vL\n",
       "ywteNQAAv24C+sc//nEXzz733HP9WkyfGI3GcJcgC72+B9+7/cJoNGq13BlxwAjxn796vZ7d00/9\n",
       "T16AutmTPR6POnHhwoVt27ZNmzYtKyvr7Nmz+/btmzlzZu9rDIL29vZwlyAL/7sWMu3t7QT0ABLi\n",
       "O1N6PB52z97pJqBffPFFdeKuu+7au3fv9773PfXhiRMnli9fHtzSACCyBTrq+fjjj6dNm+Z/OGLE\n",
       "iLNnzwanJACAEIEHdG5u7gsvvOA/evLOO++E/kAnAESUQEP2jTfemD179osvvpient7c3BwTE/Pe\n",
       "e+8FtTIAiHCBBvSYMWO++OKLzz777PTp06mpqfn5+TqdLqiVAUCE68FhCp1ON2HChOCVAgDoKNCA\n",
       "9ng8O3bs+J//+Z+2tjZ/4yuvvBKcqgAAAQf0woULjx8/Pn36dKvVGtSCAACqQAP64MGDx44dMxgM\n",
       "Qa0GAOAX6Gl2NpuNuyMBQCgFOoKeM2fOvHnzlixZYrPZ/I1jxowJTlUAgIADet26dUKITz75pGMj\n",
       "P/UNAMETaECTxQAQYj24A9m+fftKS0vnzJkjhKiqqtq/f3/QqgIABBzQ69atW758eX5+/pEjR4QQ\n",
       "MTExK1euDGZhABDpAg3o9evX/+53v3v88cejoqKEELm5ucePHw9mYQAQ6QINaKfTmZSU1PGhyWQK\n",
       "TkkAACECD+g77rjjmWeeUW83qijKqlWrpk+fHszCACDSBXoWx8svvzxnzpyEhIT29vaUlJSbbrpp\n",
       "9+7dQa0MACJcoAGdkpJy8ODBo0ePNjQ0pKen5+XlcWEhAARV94c4vF6v+utWGo2mqanJ5/OdPHly\n",
       "7969of9lUgCIKN2PoN944439+/fv2rVLCFFaWmoymXQ6XWtr6wsvvFBaWhr0AgEgUnU/gn799def\n",
       "eOIJ/8NPP/30yy+/3L1798aNG4NZGABEuu4D+osvvsjLy1Onx44dq95x9NZbb62urg5uaQAQ2bo/\n",
       "xOF2u8+dOxcTEyOEqKysVBvPnz+v1fbgMnEAQE91H7J5eXkVFRWdGisqKsaOHRuckgAAQgQygn7y\n",
       "yScfeughvV5/zz33xMbGOhyOXbt2/ehHP/rFL34RgvoAIGJ1H9CzZ89ubm5esWLFokWLYmJiLl26\n",
       "ZLVan3/++dmzZ4egPgCIWAFdqPLII488+OCDn332md1ut9lsf/u3f8uNOAAg2AK9ktBkMk2ePDmo\n",
       "pQAAOuJMDACQFAENAJIioAFAUgQ0AEgq0H8S9sLatWvVkz2GDx9eXFwshKitra2oqFAUpaCgQL18\n",
       "vHctABAJghjQMTExy5Yt8z/0+XwVFRUlJSVRUVGbNm3Kzc01GAy9aDEajcGrGQDkEcSA7qSxsdFm\n",
       "s1mtViFEZmZmXV2d2WzuRcvIkSNDVjMAhFEQA9rpdG7YsMFkMhUWFmZnZzscDovFoj5lsVgcDoei\n",
       "KL1o8ff/5ptvfvPNN+r0d77zHU7T9lO/z0IpOTmZm2cNICF+sywWS3JycijXKLPLly8HPnMQA7qs\n",
       "rMxqtTY1Nb311ltlZWX93v8PfvAD/6+6eL3eb7/9tt9XMUBdvHgxxGv89ttvCegBxOfzhXJ1bW1t\n",
       "7J5+iqKoNwcNRBADWh3HpaSkJCYmtrS0qDdaUp9yOBypqalms7kXLf7+Y2Nj/dMOh6Pj4DrChXj3\n",
       "E0J4vV5FUUK8UgwUPp/P6/WGu4oBKVijHqfTqY7k7XZ7c3NzfHx8Wlqa3W5vbW11Op319fVZWVm9\n",
       "awlSwQAgm2CNoC9evLhz50632200GmfMmKEO6YuKijZv3uzz+QoKCtSTMXrXAgCRIFgBnZycXF5e\n",
       "3qkxJycnJyen7y0AEAn4xw4ASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiK\n",
       "gAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAho\n",
       "AJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEhKH+4C\n",
       "+o3RaAx3CbLQ60P9thqNRq2WL/sBQ6PRhHJ1er2e3dPP6/UGPvPgCej29vZwlyALj8cT4jW2t7cT\n",
       "0AOIoiihXJ3H42H37B12KgCQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQB\n",
       "DQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAA\n",
       "ICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkJQ+SP2e\n",
       "P39+7969drvdaDQWFRVlZ2cLIdauXWsymYQQw4cPLy4uFkLU1tZWVFQoilJQUJCXlxdgCwBEgmAF\n",
       "tBBi2rRpw4cPb25u3rJly4oVKzQaTUxMzLJly/wz+Hy+ioqKkpKSqKioTZs25ebmGgyGbluMRmPw\n",
       "agYAeQQroOPj4+Pj44UQSUlJQogrV65cHayNjY02m81qtQohMjMz6+rqzGZzty0jR44MUs0AIJUg\n",
       "jqBVX331VUJCgprOTqdzw4YNJpOpsLAwOzvb4XBYLBZ1NovF4nA4FEXptsXfc319vdPpVKdjY2Nj\n",
       "Y2OD/VoGiqioqBCv0WQyabX8P2PA0Gg0oVydwWBQj21CCOHxeAKfObgB3draWllZee+996oPy8rK\n",
       "rFZrU1PTW2+9VVZW1sfOjx8/3tzcrE6PHj162LBhfexw0Ah9QEdHRxPQuJ6oqKjo6OhwVyELl8sV\n",
       "+MxBDGiXy/X2229///vfHzp0qNqiHqlISUlJTExsaWmJjY31j4gdDkdqaqrZbO62xd9/UVGRf9rh\n",
       "cLS0tATvtQwsbW1tIV5jS0sLAT2AKIoSytVdunSJ3bOjuLi4AOcM1k7l9Xp37NgxadKkrKwstcXp\n",
       "dF6+fFkIYbfbm5ub4+Pj09LS7HZ7a2ur0+msr6/PysoKpCVIBQOAbII1gq6rq2toaGhpafnggw+E\n",
       "EAsXLnS5XDt37nS73UajccaMGTExMUKIoqKizZs3+3y+goIC9Th1IC0AEAmCFdAjRoxYuXJlp8by\n",
       "8vJOLTk5OTk5OT1tAYBIwHFDAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQ\n",
       "FAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR\n",
       "0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQlD7c\n",
       "BfQbvX7wvJY+0mpD/b2r1+tDv1IMFFqtlt3Tz+fzBT4zOxUASGrwfK15PJ5wlyCLHn1F9wuPx8MI\n",
       "Gtfj8/nYPXuHnQoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAho\n",
       "AJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYA\n",
       "SRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACSlD3cB3autra2o\n",
       "qFAUpaCgIC8vL9zlAECIyB7QPp+voqKipKQkKipq06ZNubm5RqMx3EUBQCjIfoijsbHRZrNZrdbo\n",
       "6OjMzMy6urpwVwQAISL7CNrhcFgsFnXaYrE4HA7/Ux9++KHdblenR4wYkZOTE4b6pGQ2m49+a5+/\n",
       "pyIE63L7fEKI+Ph4rVb2L3v4aTQa8fJ6YTKFYmXHjsXMKIqPjw/FugaC9vb2wGeWPaC7kJqa6s/u\n",
       "uLi4Hr3swW3ixIlP/+vani6l1WqNRuPly5d7uuD/MZvdbndPl0IYrV+/3j+4CdyQIUPcbrfX6+3Z\n",
       "YjN/MH36dHZPP4/HE/jMsgd0bGysf9TscDhSU1P9T3UcMjscjo6D6wgXHR1dXFzc06UMBkNCQsLZ\n",
       "s2d7sUan09mLpRAuhYWFvVhq6NChDoejd1HLJ6R3ZP+zNC0tzW63t7a2Op3O+vr6rKyscFcEACEi\n",
       "+whaq9UWFRVt3rzZ5/MVFBRwCgeAyCF7QAshcnJy+AcggAgk+yEOAIhYBDQASIqABgBJEdAAICkC\n",
       "GgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVA468uXrz44YcfhrsKyOvT\n",
       "Tz/txe+woC8GwO1GAxEbGxsbGxvuKga2pixj96gAAAeESURBVKam6urq6dOnh7sQSOo3v/lNWlpa\n",
       "x181QrAxggYASRHQACApAhp/FRUVlZ6eHu4qIK+0tDSTyRTuKiKLRlGUcNcAALgGRtAAICkCGgAk\n",
       "RUAPWi6Xa/Xq1S+99NJLL7308ssv97G3tra2N954o18Kg5xcLteqVav+8Ic/qA9PnTq1atWqv/zl\n",
       "L1fPyYchZAbJedC4JrPZvHz58nBXgQEjLi6urq5u2rRpQojq6uqkpKRwVxTpCOgIcuTIkaqqKp/P\n",
       "N2rUqKlTp164cOGdd96JiYlpamrKz8+Pjo4+dOjQkCFD5s+fr9fr33zzTZfLpShKUVFRZmZmF/2E\n",
       "6dWg/+l0OpvN1tzcnJiYeOrUqYyMDCGEx+PhwxAuBPRg1tbWtn79eiHEzTffPHHixJqamkWLFmm1\n",
       "2h07djQ1NZlMpjNnzpSVlZnN5o0bN44fP/6xxx7bv39/dXX13/zN39x7771Dhgxpa2vbsWPHokWL\n",
       "/H22tLR06iclJSV8LxH9bOTIkTU1NdnZ2ampqRqNRgih0+n4MIQLAT2Ymc3mZcuWqdOfffaZ3W7f\n",
       "unWrEMLlcp0/f95kMqWkpMTHxwsh4uPjb775ZiFEcnKyer+FgwcP1tfX63S6b7/9tmOfJ0+e7NQP\n",
       "++Rgkp2dfeDAgStXrowaNerYsWNqIx+GcCGgI8ioUaM63mrjwoULev1fPwBarVad1mq1Pp/vxIkT\n",
       "586de+ihh7Ra7Ysvvth1PxhMDAZDXFxcbW3t9OnT1YDmwxBGnMURKTIzM6urq9va2oQQra2tly9f\n",
       "7mJml8sVHx+v1WobGxvVRXrXDwaiyZMnT5s2Tav9azjwYQgjRtCRwmazFRYWbtmyxefzDRkypLi4\n",
       "uIuZc3Jyjhw58qtf/SomJiYuLq7rfrj8d5BJSUnpeKSCD0MYcak3AEiKQxwAICkCGoPcD3/4wx//\n",
       "+MfqdGZm5uHDh0O26hCvDoMPAQ3ZjRkzRqvVNjQ0+FumTJmi0WiOHDnS065Wr16tXnzRa//1X/81\n",
       "derU2NjY+Pj422+//aOPPupLb0DXCGgMACNGjNi2bZs6XVdX980330RFRfWinwcffDAxMbHXZbhc\n",
       "rrvuumvGjBmNjY1fffXVT37yE/95in3h8Xj63gkGJQIaA8CCBQvUqyGEEFu2bFmwYIF6kZsQ4uzZ\n",
       "s8XFxUlJSZmZmevWrVMba2pqJk6cGBcXd9ddd124cMHfj/+Yw8qVKzMyMmJjY8eNG+cfBScnJz//\n",
       "/PMTJkwYMWJEaWnp1bl58uTJlpaWZcuWWSyWhISEGTNm3H777epT1+zQ73qr++lPfzp27Nhbbrnl\n",
       "hRdemDt3rn/+8vLypUuX9nmzYcAjoDEAjBw50mw2V1VVCSG2bdv24IMPqu2KosyePTs9Pf3rr7/+\n",
       "6KOPXnnllX379nm93tmzZ8+ePfvcuXOPP/64f+jdqcOqqqoLFy6UlZUVFxf7T+Ctqqo6cOBATU3N\n",
       "sWPHdu7c2WmpzMzMtLS00tLS3/72t+fPnw+kw66f/dOf/nTo0KGampoFCxZUVlaq3yUej2f79u3+\n",
       "14hIRkBjYHjwwQe3bt36pz/9KTExccSIEWrj0aNHq6urn3/++SFDhmRkZCxZsmTXrl2fffZZS0vL\n",
       "k08+qdPp7rzzTvXebJ3Mmzdv2LBhOp1u8eLFJpOptrZWbS8vLzcYDAaDYfr06f/93//daakhQ4Yc\n",
       "PHjQZrMtWbIkKSlpxowZp06d6rrDrp9dunSp0WjUaDQpKSlTpkzZtWuXEKKysnLo0KH5+fn9t/Ew\n",
       "UBHQGBjuu+++X/3qV6+//nrHoWVDQ0N7e/vo0aNzc3Nzc3PXrVt38eLF06dPp6en63Q6dZ6srKyr\n",
       "e9uyZcv48eNvuOGGzMzM06dPq7cfEULYbDZ1wmQydbpqTpWenv4f//EfJ06caGho8Hq9Dz/8cNcd\n",
       "dv1sx+tBSkpK1MH+tm3bHnjggV5tJAw2XEmIgSEpKSk/P3/79u0vvfSSv/GGG26wWq3Hjh3zH5IW\n",
       "QlRVVTU3N/sfnj17tlNGnzhxYunSpR9//PEtt9wihMjKyurF5VqpqakPP/xweXl5tx128WzHsmfN\n",
       "mlVWVvaXv/zl17/+9c9+9rOe1oNBiRE0BoyNGzf+8Y9/VG+/p8rLy7vxxht/9KMftbW1eb3empqa\n",
       "qqqq/Px8k8n07rvvCiFOnDixb9++Tv1cvHgxOjpaPU7y/vvv19fXB1hAfX39M88888UXX7hcri+/\n",
       "/PKVV16ZOHFitx0GuDqTyTR37tz7779/woQJ/Lw6VIygMWBkZmZ2ulu8VqvdvXv3ihUrsrOz29vb\n",
       "c3JyVq9erdPp3nvvvcWLFz/33HOJiYkzZ87s1E9+fv68efPGjh2blJSUl5c3evToAAuwWCwNDQ1F\n",
       "RUVNTU0JCQnf/e531bu7dd1h4KsrKSl5/fXX+TUp+HEvDkAWp06dysnJOXPmjMViCXctkAKHOAAp\n",
       "+Hy+f/u3f7vvvvtIZ/hxiAMIv0uXLg0bNiwjI6OysjLctUAiHOIAAElxiAMAJEVAA4CkCGgAkBQB\n",
       "DQCSIqABQFIENABIioAGAEn9X0VcYbyvqrPfAAAAAElFTkSuQmCC\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "sexFrame <- ddply(numericDB,~SexCode,summarize,median=median(BudgetedSalary)) # Use ddply from plyr to get the median salary by sex.\n",
    "\n",
    "sexFrame[1,1]  <- 'Male'\n",
    "sexFrame[2,1] <- 'Female' # For plotting purposes\n",
    "\n",
    "\n",
    "sexBarPlot <- ggplot(sexFrame, aes(x=SexCode, y=median, fill=SexCode)) +\n",
    "  geom_bar(color=\"black\", stat=\"identity\", width = 0.2) +\n",
    "  guides(fill=FALSE)+\n",
    "  xlab('Median Salary') + \n",
    "  ylab('Gender') + \n",
    "  ggtitle('Median salary by gender') # Create our ggplot figure\n",
    "\n",
    "print(sexBarPlot) # Show it"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Clearly males have a higher median salary than females do, with males showing close to 120,000 and females close to 95,000. \n",
    "\n",
    "Let's do a more complicated plot that breaks things down by race AND gender to see which matters more."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 79,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3deXjTZb6w8Sdb07Sl\n",
       "pAttbUsJAbogWiigoAIWFIvOqChW0aNovVDf0RmZYXzxGj2M43FGGTngegGjMCz6KquIYguOIqBw\n",
       "LFtZymaldG+hdEuXtNneP3JOTm1ZktIkT9v781f6JE2+Dyk34dcsCofDIQAA8lH6ewAAwMURaACQ\n",
       "FIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEmp/T1A92hp\n",
       "aTGbzf6eQgQFBZnNZrvd7u9BvEWr1drtdovF4u9BvEWtVqvVahl+lrxEoVAEBQU1NTX5exAhhAgL\n",
       "C/P3CLLrJYG2Wq0tLS3+nkKEhoa2tbX14n5ptVqbzSbDH7WX6HQ6jUbTizeoUqn69+8vyQYJ9BVx\n",
       "iAMAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoA\n",
       "JEWgAUBSBBoAJEWgAUBSBBoAJNVLPlFFEn/4wx/y8vIcDkeH9alTp2ZlZfllJAA9F4HuTp999tnt\n",
       "zc0D1L/4U803m3dqtQQagKcIdDcbpdMNCghov2JxOI74axoAPRnHoAFAUgQaACRFoAFAUgQaACRF\n",
       "oAFAUgQaACRFoAFAUgQaACRFoAFAUt32SsJPP/307NmzRqMxMzNTCFFbW7tly5bq6mqtVpuRkTF0\n",
       "6FAhxOnTp7Ozsx0OR3p6empqapdXAKAv6LZAjxs3LjU19ejRo66VKVOmxMfHnzt3bvXq1XPnznU4\n",
       "HNnZ2bNmzQoICFi2bFlycrJGo+nCilar7a6Zgb7GarW+9tprVVVVHdYVCsX06dOTk5P9MhUupdsC\n",
       "bTAYzpw54/oyLCwsLCxMCBEVFSWEaGtrO3fuXEREhF6vd104JCSkCyspKSndNTPQ11RXV//lz3++\n",
       "t3//DuuHW1p0Oh2Blo3X3yzp559/Dg8P12q1JpMpNDTUuRgaGmoymRwORxdWXNd86tSpxsZG5+nw\n",
       "8HDnvwdyUqlUQUFB/p6iG6jVaoVC0fn9VHuNgICAXnNnXVRgYKBaiFnh4R3W/3Hhgkaj8eXGrVar\n",
       "z26r5/JuoOvr63Nych588EFvXHl5eXl1dbXztEqliomJ8catdAulUtk7jsyoVCqFQuHvKbxIpVL1\n",
       "mjvrogJ++VaL7alUql688R7Ki4E2m82ffPLJtGnTIiMjhRD9+vVzPf41mUyxsbEhISFdWHFdf3p6\n",
       "uuu0yWSqra313l6uksVikXk89+n1eovF0tTU5O9BvEWn0+l0ut5xZ11UQ0PDpc4ym80+3rjz0CUu\n",
       "w1tPs7PZbGvXrh03bpzRaHSuxMXFVVdX19fXNzc3FxYWGo3Grq14aWAAkE23PYJes2ZNRUWFxWJZ\n",
       "tGjRzJkzGxsbi4qKLly48O233wohsrKy9Hp9RkbGypUr7XZ7enq68z9TXVsBgL6g2wL96KOPdliZ\n",
       "P39+h5WkpKSkpKSrXwGAvoBXEgKApAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOA\n",
       "pAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0\n",
       "AEiKQAOApAg0AEiKQAOApAg0AEiKQAOApAg0AEhK7e8B0JOYzeaSkpLm5uYO66GhoWFhYX4ZCejF\n",
       "CDQ8MG/evDXLl2sUivaLdiECQkPz8/P9NRXQWxFoeMBsNj8aHn53//7tF2tttqerqvw1EtCLcQwa\n",
       "ACRFoAFAUgQaACRFoAFAUgQaACRFoAFAUgQaACRFoAFAUgQaACRFoAFAUrzUG/hfO3bsyMzMtNls\n",
       "HdYDAwO3bds2dOhQv0yFPotAA//r3LlzqVrtH6OiOqy/UFZWV1fnl5HQlxFo4BfUQoQoOx76U/7y\n",
       "DfwA3+AYNABIikADgKQINABIikADgKQINABIikADgKQINABIikADgKQINABIikADgKQINABIikAD\n",
       "gKQINABIqve8m51Wq/X3CJekVCplHs99iku/qVvv2KBKpbrUWRqNphfsMSAg4FJnqVQqX26w85tu\n",
       "o7PeE+jW1lZ/j3BJdrtd5vHc53A4LnVW79jgZaphsVh6wR7b2toudZbNZusFG+xlOMQBAJIi0AAg\n",
       "KQINAJLqPcegAbS3ZMmSNWvWdFi02WyWS/8iAbIh0EDvdOrUqYRJv0q9Y3r7xabaC/987kF/jQRP\n",
       "EWig1+ofFRuXktp+peF8pb+GQRdwDBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBS\n",
       "BBoAJMUrCdFH7dy5s6SkpMPikSNHmux2v8wDdEag0Uf98Y9/DB6UFBjSr/1iXUVpo8Xir5GADgg0\n",
       "+iiHw3HX7/8SPTSl/eKhreu2v/I7f40EdMAxaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQ\n",
       "FIEGAEkRaACQFK8k7IoTJ06888479k5v2lBTU9PSv79fRgLQ+xDorsjNzT10pnTMvY90WLfv+r7W\n",
       "ZvPLSN2rrq7uiSeeMJvNHdbLyspu4K0qAF8h0F0UMXDwDfc91mHx2w8WCWH1yzzd68KFC0dPnn54\n",
       "wYcd1ltWv197JNcvIwF9EIHGxak0mqE3TuqwmJe9wS/DAH0TvyQEAEkRaACQFIEGAEkRaACQFIEG\n",
       "AEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkR\n",
       "aACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEmpvXfVu3btysvLE0IkJiZmZGQIIU6f\n",
       "Pp2dne1wONLT01NTU7u8AgB9gbcC3dDQcPDgwWeffValUn3wwQfl5eUxMTHZ2dmzZs0KCAhYtmxZ\n",
       "cnKyRqPpwopWq/XSzAAgFW8FOiAgQK1W22w255c6na6srCwiIkKv1wshDAbDmTNnQkJCurCSkpLi\n",
       "pZkBQCreCnRgYOD48eMXL16sUCjGjRsXFhZWUVERGhrqPDc0NNRkMjkcji6suG6itbXVbrc7T1ut\n",
       "VqXSd8fTFQqFp5f35XhXrwvT9qwNdkGPuxMl/yl1OBw+u62ey1uBrq+v37t37/PPP69Wq1euXJmY\n",
       "mNjtN/Hxxx8XFxc7T0+cOHHy5MndfhOX4vo3w01arTYmJsZLw3hDfX29R5dXKBQ9a4NCCJVK5dHl\n",
       "IyIietYedTpdsyeXDwkJ8eUGm5qafHZbPZe3Al1RUREbGxsUFCSEGDx4cFlZWUxMjOvxr8lkio2N\n",
       "DQkJ6cKK6yaysrJcp00mU3l5uZf20pmn/TKbzb4c7+qdO3fOo8s7HI6etUEhhOv4m5uqq6t71h6b\n",
       "mz3qs6//EgkhgoODfXlzPZG3/kcTERFRVlbW1tZmtVqLiooiIiLi4uKqq6vr6+ubm5sLCwuNRmPX\n",
       "Vrw0MADIxluPoAcMGDBy5MilS5cKIZKSkpxhzcjIWLlypd1uT09Pdz4Zo2srANAXePF50BMmTJgw\n",
       "YUL7laSkpKSkpKtfAYC+oCf9VhoA+hQCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAA\n",
       "ICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkC\n",
       "DQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDaAHWLZs2aBBgwIDA41G48svv+zR99bU1Dz55JNR\n",
       "UVHBwcHjx4/Pzc294rc8/vjjCoWirq6uq/N2D7V/bx4Arujnn3/+zW9+M3LkyKysrJKSklOnTrn/\n",
       "vXa7PSMjY9++fbfddtu4ceMOHDiwb9++G264wXvTdiN3A221WteuXXvo0KHGxkbX4tKlS70zFQD8\n",
       "rzNnztjt9rvvvnv+/PkKhcK1/uGHH77xxhtVVVXjx49ftmzZ4MGDFy1aNHfu3E2bNg0fPvz6669/\n",
       "6KGHHnrooX379k2bNu2rr75yfpfZbBZCLFu27O9///u5c+duuOGGJUuWJCYmCiHmzZu3dOnS66+/\n",
       "vl+/fpe5FZ9t3N1DHFlZWe+8845Wq41vx6uTAYBTWlpaWFjYK6+8EhUV9fDDDx87dkwI8f3338+e\n",
       "PXvy5MkrVqw4efLk448/LoR4/vnnx44dO2fOnGeeeSYsLGzx4sWHDh0SQtx9992uawsMDNy9e/cz\n",
       "zzxjMBhef/31ffv2ZWZmCiG++eabv//976NGjbr33nu//fZb54Uveis+4+4j6D179pw4cUKj0Xh1\n",
       "GgDoLCIi4sCBA++//352dvYnn3yybdu24uLinJwcIcSKFStWrFhht9srKiosFotGo1m+fHlaWlpx\n",
       "cfHatWvDw8MveoXbtm0TQvz1r38dN27c/v37V61aVVlZuXv3biHEf/zHf0yYMGHnzp1ffPGFEOJS\n",
       "t+Kbjbv7CDoiIqL9/ywAwGcaGxsHDhy4cOHC/Pz8hx56qKampri42HnWRx99lJeXd+TIkQMHDqhU\n",
       "KiFETU2NzWYTQlRWVgohRo0aJYTYsmWL69qchzguJSAgQAih1WrbL3a+Fd9wN9D33XffzJkzd+7c\n",
       "eawdr04GAE779+83Go3PPvvs/Pnzv/vuu6CgoISEhDvuuEMIsWLFiqKiom3bts2fP1+pVLa0tMye\n",
       "PXv48OH33XffSy+9VFRUdMcdd4wdOzY7O3vq1Kn//u//fueddy5fvnzq1KlCiJdeeum9997btGlT\n",
       "ampqTEzMhAkThBBvv/321q1bv/76a+dNX/RWfLZxdw9xLF68WAjh/C+Ai/MfKADwKqPROHbs2E2b\n",
       "NtXW1hqNxqVLlwYHB0+YMOEf//jHm2++ef/998fGxj7xxBNCiFdeeaWgoGDXrl1GozElJeXpp5/O\n",
       "ycnJycl54YUXtmzZ8v33348YMWLMmDE33njj0qVLFyxY8OKLL954441LliwRQkyZMmXu3Lkffvhh\n",
       "UVFRWlrajh07hBAXvRWfcTfQtBiAvyQkJGzcuLHz+uzZs2fPnt1+ZcGCBQsWLHCerq+vd54IDw9f\n",
       "vnx5h+99+umnn3766Q6LCxcuXLhw4RVvxWc8eB50S0vL6dOnq6urHQ6Hc+W2227zzlQAALcDvXPn\n",
       "zszMTJ1OV15eHh8fX1hYeO2113IYGgC8x91Az5kz57XXXps9e7bBYDhz5szmzZu/+eYbr04GAEKI\n",
       "3bt3f/TRRx59S3l5+TPPPHPXXXd5aSSfcTfQBQUFWVlZQgjn81fuvffe//zP//TiXAAghBDim2++\n",
       "OR+VFJeS6ublCw/s2fb1Kr1e34cC3b9//wsXLkRFRUVHRx87dmzIkCHnzp3z6mQA4BSZMMTNQOdl\n",
       "b/zmHwvvmvtavP2Ct6fyAXef0Pf44487j2n89re/veWWW4YMGfLrX//am4MBgGfysjd+/vr/nfX2\n",
       "x7FJI/w9S/dw9xH0a6+95jwxa9asm266qaGhYfTo0V6bCgA8czhnk7POhlHjio/u9/c43eMKgd6/\n",
       "f/+gQYMGDBiwf3/HDe/fv3/MmDFeGwwA3HU4Z9Pmv73grHP79bq6usjIyJiYGCFEcHCwR+9T2lll\n",
       "ZeWMGTO+//77q5rVE1cI9IwZM1599dXHHntsxowZnc89e/asV4YCALddqs5OMTExpaWlvp+qW1wh\n",
       "0K4E02IAEjq87bPL1LmzVatWvfvuu1ardcaMGS+//PLZs2cfeeSRqKioAwcOPPXUU5GRke+8845e\n",
       "r8/Ozg4MDLzzzjtra2sdDsdbb701adKky1yPdzbHR14B6LHyd2x1HXe+1GUqKysNBoPBYPjtb3/7\n",
       "008/rV+/fu/evQcPHty/f//BgweFEHl5eYsWLTp16tQHH3xQX19//Pjxm2++ed26dRqNZuPGjQcP\n",
       "HszOzv7Tn/7U/jovej3ecIVH0C+++OJlzn3jjTe6dRgAcFf+jq0b/zLnscVrLv/YOSYmxnUA4IMP\n",
       "Pjh58uTtt98uhKivry8sLAwPD09LS3N+SIrRaPzVr34lhBg5cuSJEycUCsXChQt37Nih0Wjy8/Pb\n",
       "X+d3333X4XrS0tK8sccrBNpqtTpP1NXVffTRR1OmTDEajVVVVVu3br3nnnu8MRAAXNHxHV+5U+cO\n",
       "HA7HAw888Prrr7tWzp4963rrZ5VK5TytUqmsVutXX331888/79y5U61WO3/NeJnr8ZIrHOJY+D8q\n",
       "Kyu3bNmydevWd999d926dXl5eSaTydvDAUBnx3d8teEvz3taZyHErbfeum7duqqqKiFEcXFxTU3N\n",
       "ZS7sfGtTtVqdm5vr/JauXc/VcPd50Lt27fr8889dXw4bNqzDxADgA12usxAiMTHxtddemzJlis1m\n",
       "0+v1GzZsuMyF77nnnlWrVs2cOTMqKiohIaHL13M13A10cnLym2+++cILLzg/7mXjxo1qtQdvVQoA\n",
       "V8/TOuv1+g7PsZs5c+bMmTPbr/zrX//qcML5WeBCCNfnqrz99ttCiJiYGNeToDtfjze4G9kVK1ZM\n",
       "nz594cKFCQkJ586dCw4O/uyzz7w6GQC0d/y77I2venzcuUdzN9AjRow4efLkgQMHysvLY2NjR48e\n",
       "7ctPTgTQxx3/LnvjX55/dNHqvlNn4dEnquTk5Kxfv76hoWHTpk25ubl1dXXOD14EAK8qOpz7/UdL\n",
       "+lqdhUcfGrt06dLnnnvO+emxwcHBv/vd7wg0AG9ra2uLqC3+P3PnBTdXtvyw2Z1vCThfpdfrvT2Y\n",
       "D7gb6Lfeemv37t0JCQnvv/++ECI5Ofkq33YEANxhtVprvvwiICe72r3LN9vtXzU0TO0VL9RwN9DN\n",
       "zc1RUVHtv9TpdN4ZqYtczzb3AU+fwaJUKn053tULCAjw9Ft61gaFEAqFwqPLazSanrVHT39L5HqZ\n",
       "hm84P5vJHUFBQRODg69zLzhVVuufystv7dcvKSnpKqaThbuhmTRp0p///Oe//e1vQgiHw/HKK6/I\n",
       "9pHera2tPrst1wss3WS323053tVra2vz9Ft61gaFEK4Pp3eTxWLpWXt0v4Cuy/esDXbmrPNdoaHX\n",
       "6nS94fNU3A/0u+++e99994WHh7e2tl5zzTVDhgzZvNmtg0EA4AOuOt+n15/q4f/SuLgb6GuuuWbP\n",
       "nj1HjhwpKipKSEhITU319H+IAOAllRbLSxUVzjr7e5budOW3G837H4cPH3Y4HM6XPB4+fDgvL8/7\n",
       "4wHAFVymznV1dQqF4qWXXnJ+uWfPHoVC8emnn17kSiorb7nlFq/P6qErP4IeNWpUQEDARR8vm81m\n",
       "L4wEAO664mPngQMHfv3113/961+FEOvXrx8xoid9nuyVH0HfcsstcXFxL7zwwtGjR82/5IP5AOBS\n",
       "3DmyERAQkJiYeOzYMYfD8cMPP0yYMEEI0draOmXKlLS0tFGjRu3cubPDt6xatWrMmDEjR450fVi2\n",
       "v1w50Lt37/7Xv/6lUqmmTZs2fvz4JUuWeO+99QDATe4fd77//vs3bNjw448/jhkzRqlUCiFk+LQU\n",
       "d7j1kVdGo/GVV14pKCh48803c3Nz4+LifvzxR29PBgCX4tFvBTMyMrZt27Zhw4YHHnjAueL8tJSb\n",
       "b775oYceutSnpUyePLmoqKiwsNArG3CPBy+4yM3N/fTTT3NycqZMmRIdHe29mQDgMjx9zoZOp0tI\n",
       "SPjyyy8XLFiwceNGIYQMn5bijisH+uzZsx999NGaNWtCQ0MfffTRI0eODBgwwAeTAUBnXXtG3bx5\n",
       "886ePet6deXlPy1lwYIFc+bMiY6OLi4uDgkJCQ8P784NeOLKgTYajcOGDfu3f/u3lJQUIUT7A+oz\n",
       "Zszw4mgA8Etdfr5zWlpa+891leHTUtxx5UAPHz5cCLF27drOZxFoAD7ThTrr9fqCgoL2K++9957z\n",
       "hN8/LcUdVw70sWPHfDAHAFxGb32t4OXxuYIAZFdjs711/nxfq7Nw82l2AOAvtbW1yy9c6IN1FjyC\n",
       "BiC5wYMHDzAaSwcNeseT73o0JcVbA/kQgQYgtTlz5syZM8ffU/gHhzgAQFIEGgAkRaABQFIEGgAk\n",
       "RaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaAB\n",
       "QFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIE\n",
       "GgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFIEGgAkRaABQFJqr167\n",
       "xWJ57733UlJSMjIyhBCnT5/Ozs52OBzp6empqaldXgGAvsC7gd69e3d8fLzztN1uz87OnjVrVkBA\n",
       "wLJly5KTkzUaTRdWtFqtV2cGAEl4MdC1tbXnz59PSkqqrKwUQpSVlUVEROj1eiGEwWA4c+ZMSEhI\n",
       "F1ZSUlK8NzMAyMOLgf7666+nTJlSWlrq/NJkMoWGhjpPh4aGmkwmh8PRhRXX9W/ZssWZfiFEampq\n",
       "Wlqa9/bSQUhIiEeX12q1AwYM8NIw3lBbW+vR5RUKRc/aoBBCqfTsFzB6vb5n7TEwMLDFk8sHBQX5\n",
       "coMtLR5N10d5K9AFBQX9+/ePjIx0BbrbjRkzxmw2O09rtdqGhgYv3VBnrtt1k8Vi8eV4V6+xsdGj\n",
       "yzscjp61QSGEw+Hw6PJNTU09a48Wi8Wjy7e2tvpygzabzfXYC5firUCXlpbm5+efOHGira3NZrPp\n",
       "dDqj0eh6/GsymWJjY0NCQrqw4rqJ9qdNJlP7B9feZrVaPbq83W5vbW310jDe0NbW5um39KwNCs8D\n",
       "bbFYetYebTabp5fvWRvsC7wV6FtvvfXWW28VQuTl5VVWVk6aNMlut1dXV9fX12s0msLCwmnTpmk0\n",
       "mi6seGlgAJCNd5/F0Z5SqczIyFi5cqXdbk9PT3c+GaNrKwDQF3g90CNHjnSdTkpKSkpKan9u11YA\n",
       "oC/glYQAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCS\n",
       "ItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAA\n",
       "ICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkC\n",
       "DQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCS\n",
       "ItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSUvt7gG6j0Wh8dlsqlcqjyyuVSl+Od/XUao9/MHrW\n",
       "BoUQCoXCo8ur1eqetUel0rOHXz7+KbXZbD67rZ6r9wTal/e33W736PIOh6Nn/Th6ukHRA/++ORwO\n",
       "jy5vs9l61h493aCPf0o9Ha9v6j2B7kJTuqwLP/q+HO/qdWHanrXBLuhxd2Kv/yntCzgGDQCSItAA\n",
       "ICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkC\n",
       "DQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCS\n",
       "ItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAA\n",
       "ICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkCDQCSItAAICkC\n",
       "DQCSItAAICkCDQCSItAAICm1vwe4stOnT2dnZzscjvT09NTUVH+PAwA+Inug7XZ7dnb2rFmzAgIC\n",
       "li1blpycrNVq/T0UAPiC7Ic4ysrKIiIi9Hp9UFCQwWA4c+aMvycCAB+R/RG0yWQKDQ11ng4NDTWZ\n",
       "TK6zjhw50tDQ4DwdHR0dHR3ts6m0Wm3VmVM7V77TYb21ybRX2MstlvaLZ9ragtXqkJAQn4139YKC\n",
       "gtpamjtvsPKnEyqLZWNdXfvFFrtdoVD0rA0KIRQKxf7P/19IxID2i+Unj7Y6HB02KIRosNl0Ol3P\n",
       "2qNGozmWu8vaZm6/2NpkEkJ03mBBa2tqQIAvN2j55V8TXJTsgb4Mk8lUW1vrPK3X69Vq3+1l3Lhx\n",
       "0/LzRWNZh/XrUpIGJierNJr2i8OEGD9+vC/Hu3oDBw6c9cjDtk4btMYNCE40qCIi2i+GCPFseHjP\n",
       "2qAQYvbs2SUlJR3uxOB+qvCJE1VGY4cLz1AoEhMTe9Ye77rrrsBvvumwQbvdPnr0aFWn3+XcJMSk\n",
       "SZN8uUGbzeaz2+q5FA6Hw98zXE5JScmuXbseeeQRIcTmzZuTkpJSUlI6X8xkMrV/cO0v0dHRNTU1\n",
       "vfihgV6vt1gsTU1N/h7EW3Q6nU6nq6mp8fcg3qJSqaKioioqKvw9iBBCxMbG+nsE2cl+DDouLq66\n",
       "urq+vr65ubmwsNDY6aENAPRWsv+XTalUZmRkrFy50m63p6en8xQOAH2H7IEWQiQlJSUlJfl7CgDw\n",
       "NdkPcQBAn0WgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBSBBoAJEWgAUBS\n",
       "BBoAJEWgAUBSBLo7ffvttzJ8sIv3HD16tKioyN9TeFF5efmBAwf8PYUXmc3mnJwcf08Bd/WA94N2\n",
       "R79+/fr16+fvKcTatWuvv/56X358rY/l5ubGxMT04k8qOn/+fHFx8c033+zvQbzFZDIdPHhw2rRp\n",
       "/h4EbuERNABIikADgKQIdHdKSEgICAjw9xReNGDAgP79+/t7Ci/q169fLz5CJYRQqVSDBw/29xRw\n",
       "l8LhcPh7BgDARfAIGgAkRaABQFIE2gO5ubmvv/661Wq96LmNjY0rVqzw8UjdxWw2v/rqq2+99dbi\n",
       "xYtXrFjR0NAgPNlRXV3d6tWrvTyjB8xm8wsKtEkAAAhBSURBVKJFi1xfrlu37syZM917B8l2d3/1\n",
       "1VcHDx50nl60aJHr9OLFiysqKjrcO67hW1tb8/LyfDwq3EegPXD8+PGBAwcWFBRc9FydTvfrX//a\n",
       "xyN1o5CQkDlz5vz+9783GAw//vijv8fpft17B8l2d8fHx5eWlgohGhoagoKCXKc1Go1Op+twYdfw\n",
       "BFpyveSFKj7Q2NhoNpunTp166NCh5ORkIURzc/O6devMZrPdbr///vuDg4O/+OKLrKwsq9X68ccf\n",
       "m81mh8ORkZFhMBjq6urWr18fExNTW1sbGRl55513+ns3l2Oz2bRabfuVzjsSQuTl5e3Zs0ehUCQm\n",
       "Jo4ePdp5yeLi4u3bt8+cOTM4ONj3k19eS0uL8w7qcMdptdp169ZFRUU1NTWFh4dPmzbNnXvQdW3i\n",
       "l38UU6ZM8cvu4uPjf/jhByFEaWlpamrqiRMnnKfj4+OFEFardf369eXl5cOGDWs//K5duyorK1eu\n",
       "XHndddeNHj06Ly8vNzfXbrcPHz584sSJftkI2iPQ7jp+/HhycrLBYNiyZYvValWr1SdPnhw8ePCk\n",
       "SZNsNpvNZmtra3NeUqVSPfjgg4GBgY2NjWvXrn3yySeFEBcuXHjkkUeCgoL++c9/1tbWhoWF+XU3\n",
       "F9HY2Pjee++1traqVKqnnnqq/Vmdd1RdXb13796srKzAwMCWlpbW1lYhRElJiTx1bmxsfOutt5yn\n",
       "m5qaxowZ4zqrwx3X3Nx8/vz5hx9+OCQkZMOGDT///LPRaLziPajRaJzX1uGPwvc7dQoPD29qampr\n",
       "aystLU1JSSkoKHCedga6oqLi3nvv1ev1H3zwQfvhJ06cWF1d/fjjjwshLly4cPz48SeffFKpVK5d\n",
       "u7aiouKaa67x13bgRKDdlZ+ff+eddyqVSoPBUFBQkJycHBMT43zMkpKSEhUV5Qq0EGLPnj2FhYUq\n",
       "ler8+fPOlejo6KCgICFEZGRkfX29hIEOCQl57rnnhBC5ubnbtm2bPn16+3M77KioqCglJSUwMFAI\n",
       "odPpWltba2pqvvzyy0cffVSGOov/OWLjPL1u3br2Z3W445qbm6Ojo0NCQoQQQ4cOLSkpMRqNV7wH\n",
       "IyMjnesd/ih8tb+LiIuLKysrq6iomDx5cmxsbFlZWVlZ2fXXXy+EuOaaa8LDw50n2g/f3tmzZ6ur\n",
       "q9esWSOEMJvNtbW1BNrvCLRbGhsby8rKPvnkEyGExWKx2WzJycmxsbFPPPHE6dOnN2zYcPvtt7t+\n",
       "mn/66aeamponnnhCqVQuXLjQuahSqZwnFAqF3W73yy7clJiYuHfv3vYrF91RB84uV1VVOUsnsw53\n",
       "3IABA1z3iPNED70H4+Pji4uL7Xa7Wq2Oi4srLi6urq6OiopqaGhQq//7b7pSqbzM8MOHD7/tttt8\n",
       "NS+ujF8SuuX48ePjxo2bM2fOnDlz/vCHPxQVFVmt1vr6ep1Ol5aWlpqaWlVV5bqw2WwOCwtTKpVl\n",
       "ZWWNjY1+HLtrCgsLOzzA77yjQYMGnThxwmw2CyGam5uFEFqtdubMmdu3by8rK/PL2O7rfMdVVlZW\n",
       "V1c7HI78/PyBAwd6dA92/qPwl/j4+EOHDkVFRQkh4uLiDh06NGDAAKXycn/HAwICnIenhBAGgyE/\n",
       "P9+53/r6ej8eroELj6Ddkp+f73pkoVKpEhISfvrpJ7vdvnPnTqVSqdPp7r//fteFk5KS8vLyNmzY\n",
       "EBwc3INeGO08aOtwOEJCQu655572Z3XeUWRk5Lhx45YvX65QKJKTk9PS0oQQISEhDz744KeffpqZ\n",
       "mXnR/0RLorS0tP0dZ7VaY2Njt2/fXlNTM2TIkCFDhjif2+DmPdjhj2Ly5Mm+2UVncXFxDQ0NcXFx\n",
       "Qoh+/frZ7XbnAejLCAwMjIiIWLJkSVpa2o033jh58uTVq1fb7fbAwMDMzEz/HrGB4KXeQF1d3ZYt\n",
       "Wx577DF/DwJ0xCEOAJAUj6ABQFI8goZ/jBgxQqFQKBSKyMjIBx544Ny5c/6eCJAOgYbfrFq1ymKx\n",
       "7Nu3r6Sk5MUXX/T3OIB0CDT8RqlUqtXqwYMHT58+/dixY87F+fPnDxo0qF+/fqNGjdq5c6dzsby8\n",
       "PDMzMzo6OiIiwvnqaiFEVVVVZmZmVFSUwWBYvHixf/YAeBNPs4OflZaWbt68+YYbbnB+mZKSkpub\n",
       "GxkZuWLFiszMzLNnz2q12nvuuWfs2LEFBQUBAQG5ublCCIfDMX369Jtuuqm4uLiqqmrq1KmJiYl3\n",
       "3XWXX7cCdDN+SQj/GDFiRH5+vvP0pEmTcnJynK+Wbs9gMHz++ed2uz09Pb2qqqr9WzgdPnx44sSJ\n",
       "NTU1zhf4vfvuuwcOHFi5cqWvxgd8gUMc8Js1a9bY7fb/+q//Onr06I4dO5yLq1evHjt27MCBAw0G\n",
       "Q3l5eXV1dUlJSXx8fIc32CsqKmptbb322muTk5OTk5MXL17sfA9roDfhEAf8SaFQ3HjjjS+//PK8\n",
       "efMyMjIKCgqef/75Xbt2XXfddUIIo9HocDgGDhxYWlra1tbW/gN5Bw4cqNfrT5w4oVAo/Dc+4F08\n",
       "gob/PfXUU2VlZVu3bnW+2fywYcOEEF988UVhYaEQYuTIkcOGDZs7d25jY2Nra+vu3buFEKmpqYMH\n",
       "D543b15jY6PNZjt+/Ljz2DTQmxBo+F9wcPBvfvObN954Y/To0TNnzhw5cuTEiRO3b99+7bXXCiEU\n",
       "CsXmzZvLy8sNBkNsbOyqVauEEEql0rk4dOjQyMjIrKysuro6f+8D6Gb8khAAJMUjaACQFIEGAEkR\n",
       "aACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEkRaACQFIEGAEn9f6nkDM+kw4l2AAAAAElFTkSuQmCC\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "raceFrame <- ddply(numericDB, .(Race,SexCode),summarize, Median = median(BudgetedSalary)) # Use ddply to get medians on both sex/race.\n",
    "\n",
    "# Get rid of last four rows.\n",
    "\n",
    "raceFrame <- raceFrame[1:8,]\n",
    "\n",
    "# Replace the race/gender codes.\n",
    "\n",
    "raceFrame$Race <- mapvalues(raceFrame$Race, c(1,2,3,4),\n",
    "                            c('White', 'Black', 'Hispanic', 'Asian'))\n",
    "raceFrame$SexCode <- mapvalues(raceFrame$SexCode, c(0,1), c('Male', 'Female')) # Put in the appropriate plot labels\n",
    "\n",
    "sexRacePlot <- ggplot(raceFrame, aes(x=Race, y=Median, fill=SexCode)) + \n",
    "    geom_bar(stat=\"identity\", position=position_dodge(), color=\"black\", width = 0.2) + \n",
    "    scale_fill_manual(values = c('skyblue', 'firebrick')) # Crate our barplot\n",
    "\n",
    "print(sexRacePlot) # Show it"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "It does seem that women do make less money than men, regardless of race. The largest gap is somewhat surprising in Asians. Asian men have the greatest median salary among races, yet Asian women have the smallest! Hispanic faculty members seem to have the smallest wage gap by sex.\n",
    "\n",
    "Next, let's examine how tenure ranking affects the salary. There should be an increase in median salary for higher ranks."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 80,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3deVxTd77/8W8CJCwJ\n",
       "osiuEKkKuAxapmpbtcXrtJR2xq0P6lqsy20fVql17sz0/qZXHaf7tS7tLLZqtVVbt6mO1sE6423R\n",
       "SitdZKziggpUEaShikG2kOT3R+7N5AEWDpCQL+T1/Ovkm2++53O+kbeHw1lUNptNAADko/Z0AQCA\n",
       "2yOgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACAp\n",
       "AhoAJEVAA4CkCGgAkBQBjTZYuXJlYmKifXnmzJlTp071bD2dUMPEiRPnzZvn1lV0G8yVyxHQ3dxT\n",
       "Tz2lUqkeeOAB58a//e1vKpVKpVI1Nja2e+SxY8fed999HS7QK0ydOnXmzJmergJdj6+nC4DbxcTE\n",
       "fPrpp8XFxQaDwd6yfv36uLi4kpKSjgz77//+7y4ortPV1dX5+/t7ugr36sg2esP8dCHsQXd/kZGR\n",
       "Dz744MaNG+0vy8vLDxw4MGfOHOc+b7/99qBBg/z9/fv37798+fKGhgZ7u9lszsrK6tWrV48ePebM\n",
       "mXPr1i3HR5wPL+zfv3/MmDH2bmPGjMnNzXV0mzhx4uzZs3/961/37ds3NDR0xowZN2/evG2dhw8f\n",
       "HjFiRFBQUHBw8PDhw48ePdrq4M5ariEzM/PZZ5+Njo6Oi4vbvHlzcHCw87a89NJLsbGxVqv1tiNb\n",
       "rdb//M//DA8P1+l006dPv3HjhhBC+SDz5s3bsWPHtm3b7L+1fPTRRy3PeQszNmrUqOeff94x8iuv\n",
       "vDJkyJDbbmPLq2ii+Wc7/oXm5+dHR0c/++yzPPW0IwhorzB//vxNmzZZLBYhxKZNm8aOHRsfH+94\n",
       "d+XKlb/73e9efPHFwsLC9evXv//++//1X/9lf2vZsmXbtm3bvHnzyZMn+/btu3LlytuObzKZsrKy\n",
       "8vLyvvzyy5SUlIceeqiiosLx7vvvvx8XF1dUVFRQUPD111+/8MILzUeor6+fOHFiWlrauXPnTp06\n",
       "9bvf/S4gIEDJ4Apr+OCDDyIiIi5evHjhwoXHHnvMx8dn+/bt9rdsNtvGjRvnzp2rVt/+x2HXrl2V\n",
       "lZWff/75wYMH8/Ly7L86KB9kw4YNjz322IwZM2w2m81me+SRR1qec4Uz1pzzNra6ipY/28Ev9PDh\n",
       "w/fff//ixYtXr16tUqmUFI/bs6Fbe/LJJ1NSUhobG6Ojo/ft22e1WuPj43fs2LFlyxYhhNlsNpvN\n",
       "ISEh27dvd3xkz549PXr0sNlsZrM5KCho7dq1jrdGjx6dkJBgX54xY8Zjjz1225UaDIbNmzfblydM\n",
       "mDBq1CjHWy+99NKwYcOaf+Tq1atCiGPHjrW6Rc6DK6/hJz/5ifO7WVlZI0eOtC//4x//8PHxuXz5\n",
       "8m3HmTBhQmxsrNlstr88ePCgSqUqKipq0yDOAW2z2VqYc1uLMzZy5Mjf/va3jrdefvnlwYMH33Yb\n",
       "W15F821sMj9NKPxCJ0yYMHfu3G3btgUFBW3ZsqWFAaEQe9BewcfH54knnli/fv3//M//mEymiRMn\n",
       "Ot4qLCy8cePG1KlTVf9n0qRJVVVVRqOxpKTk1q1bY8aMcXR2XnZ25cqVp59+evjw4TExMZGRkaWl\n",
       "pc4HuB0nfgghwsLCrl271nyEqKioGTNmpKampqWlvfbaa4WFhQoHV9ht6NChzp2feuqp48ePf/vt\n",
       "t0KI9evXp6Wl9enT58dmb8SIEb6+//vXmnvvvddmsxUUFLR1EGctzLm9g5IZa855G1tdRQufFR34\n",
       "Qg8ePDhr1qzt27fzR1GXIKC9xdy5cw8ePPj73/8+MzNTo9E42u3HTI8cOdLkv+7evXvbfzn18/Nz\n",
       "dHb+oLP09PSLFy++8cYbubm5+fn5AwcOdD7c6ePj49z5xw71bt269fjx4+PGjTt06NCgQYO2bt2q\n",
       "ZHCFNTT5w1dSUtLYsWPXr19fWVm5d+/e9v3Bs92DtDDn9g4/NmNNjp/Yj1k5OG9jq6toosn8tPsL\n",
       "HTJkSL9+/davX/9jx7vRJgS0t+jXr9/999+fk5Mzf/585/YBAwYEBwd/+OGHzT8SGxsbFBT0z3/+\n",
       "09GSn5/fvFtFRcW33377+9//fsyYMXFxcTqdrt3nhwwbNuzXv/71P/7xj+nTp7/zzjvKB29HDU89\n",
       "9dTWrVvffvvt0NDQhx9+uIWeeXl5jig8duyYSqUaNGhQmwbRaDTOZzS2MOctCw8P//777x0vz549\n",
       "+2M9270K0bEvtE+fPjk5OWfPnp00aVJ9fX071g5nBLQX2bt3b2Vl5cCBA50bNRrN0qVL//CHP6xY\n",
       "seL06dNnzpzZvn37s88+K4Tw9fV95plnVqxY8d133wkh9u3bl52d3XzY0NDQ0NBQ+1t1dXVPP/10\n",
       "XV1dW2srKCh4/vnnjx8/Xlpaevz48ePHj9vPT1A4eDtqmDJlio+Pz/Lly+fMmdNkl7CJ69evP/nk\n",
       "k+fPn8/JyXn66acfffRRxwmLCgeJj4//5ptvCgsLjUaj2WxuYc5b9sADD+zdu/fixYs2m+2vf/3r\n",
       "nj17fqxnu1chOvyFxsTE5OTkFBcX/+IXv6itrVX+QTRHQHuRwMDAXr16NW//5S9/uWHDhr1796ak\n",
       "pNxzzz2rV692hPiyZcsefPDBYcOG9e3bd9OmTYsXL27+cR8fn7/85S8ffvhhdHT00KFDhwwZkpKS\n",
       "0tbadDrdyZMnJ0+eHB8fP2XKlPHjx7/yyivKB29HDRqNZvbs2Y2Nja1e/Pboo4+Ghobec8896enp\n",
       "d91119tvv93WQZ566qm4uLiUlJSwsLCPP/5YtDjnLZg3b15GRsbdd98dGRn54YcfZmVltdC5fasQ\n",
       "rvhCIyMjP/300/Ly8kceeaSmpqZNn4UzlY2zFOGtZs2aZTQab/trQScPAtwWVxLCG5lMpq+++mrn\n",
       "zp379+/37CBACwhoeKPhw4eXl5cvXry4yV1KOn8QoAUc4gAASXWTPWiTyWQymTxdhbtoNJqQkJDb\n",
       "Xt8M99Hr9Wq1uqqqytOFeJfevXtXV1e340SgLiQ6OlphT87iAABJEdAAICkCGgAkRUADgKQIaACQ\n",
       "FAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkJTL7ma3ffv24uLi+Pj4jIwMe8uL\n",
       "L74YEBAghOjTp4+98fz589nZ2TabLTU1NTk5ud0tAOANXBbQo0aNSk5O/vbbbx0tQUFBzo+ws1qt\n",
       "2dnZmZmZGo3mrbfeSkxM9PPza0eLVqt1Vc0AIDOXBbTBYLh06VILHUpLS0NDQ0NCQhyddTpdO1qS\n",
       "kpJcVTMAyMyNN+yvqalZu3ZtQEDAuHHj+vfvbzKZgoOD7W8FBwebTCabzdaOFsf4RUVFjgcG6/V6\n",
       "vV7vvm3xLF9fX5VKZT9ehE7j6+urVquZ9k6mVqs1Go1KpfJ0Ie7S2NiovLMbA3rBggUhISFlZWXv\n",
       "v//+ggULXD7+uXPnHA8ZGTx4cEREhMtXIQmVSqVWqwMDAz1diHfx8fFRqVRMeydTq9VardbPz8/T\n",
       "hbhLmx4W48aAth+XiIqKCgsLq6ys1Ov1jv1fk8kUHR2t0+na0eIYPy0tzbFsMpkqKyvdty2eZX/k\n",
       "VTfeQDnxyCuP8IZHXvXo0UNhT3edZldTU1NbWyuEMBqNFRUVPXv2jImJMRqNVVVVNTU1RUVF8fHx\n",
       "7WtxU8EAIBuX7UFv2bKlrKzMbDavWrVq2rRpKpVq586dZrNZq9Wmp6cHBQUJIdLS0jZv3my1WlNT\n",
       "U+0nY7SvBQC8gcpms3m6Bhfgqd5wOQ5xeIQ3HOLgqd4A0OUR0AAgKQIaACRFQAOApAhoAJAUAQ0A\n",
       "kiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQlBtv2A8ADmfPnn3wwQfb9MCnFjz00EMb\n",
       "NmxwyVAyI6ABdIaqqipd+MCHn/us40OVnj5k/Ob1jo8jPwIaQCdRqX00gT07Po6vVtfxQboEjkED\n",
       "gKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABI\n",
       "ioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQI\n",
       "aACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAG\n",
       "AEkR0AAgKQIaACRFQAOApHw9XYDLaLVaT5fgLr6+viqVqhtvoJx8fHzUajXT7ioajcaFo3Xdr8Zi\n",
       "sSjv3H0Cur6+3tMluIvNZrPZbN14A+Wk0WiYdhdqaGhw4WhWq9UbvhoOcQCApAhoAJAUAQ0AkiKg\n",
       "AUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoA\n",
       "JEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBS\n",
       "BDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVA\n",
       "A4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQA\n",
       "SIqABgBJEdAAICkCGgAk5euqgbZv315cXBwfH5+RkWFvOX/+fHZ2ts1mS01NTU5OdmELAHgDlwX0\n",
       "qFGjkpOTv/32W/tLq9WanZ2dmZmp0WjeeuutxMREPz8/l7RotVpX1QwAMnNZQBsMhkuXLjlelpaW\n",
       "hoaGhoSEON7S6XQuaUlKSnJVzQAgM5cFdBMmkyk4ONi+HBwcbDKZbDabS1qcV9HY2GhftlgsPj4+\n",
       "btoWj1Or1SqVqhtvoJxUKhXT7kJqtSv/4tV1vxqbzaa8s7sCuhPs27fvypUr9uW777579OjRnq3H\n",
       "rdRqdVhYmKer8C4qlUoI4e/v7+lCugn778Gu4ufn10V/Impra5V3dldA6/V6x96uyWSKjo7W6XQu\n",
       "aXGsYsaMGY5lk8lUXl7upm3xOI1GExISUlFR4elCvIter1er1VVVVZ4upJv44YcfXDhaQ0ND1/2R\n",
       "DwoKUtjTXafZxcTEGI3GqqqqmpqaoqKi+Ph4V7W4qWAAkI3L9qC3bNlSVlZmNptXrVo1bdq0qKio\n",
       "tLS0zZs3W63W1NRU+6kXrmoBAG/gsoCeNWtWk5aEhISEhAR3tAAdtGTJkqtXr7bcx9fXVwjh+EP0\n",
       "j+nRo8ef/vSnLvoHK0iuC/+REGi3ffv21S7pI/Qd/vdvtYn/d3TVqlXKjyoCyhHQ8FZD9CJU09FB\n",
       "LG04ZQpoK+7FAQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQA\n",
       "SIqABgBJKb1Z0nPPPdekRavV9unTJz09PSYmxtVVAQAU70EbjcY33njj7Nmzt27dOnv27BtvvFFS\n",
       "UrJ///6EhIQDBw64tUQA8E5K96DLy8v/9re/3X///faXn3766cqVKz/66KPs7Ozf/OY3Dz/8sLsK\n",
       "BABvpXQP+siRI2PGjHG8HDNmzNGjR4UQaWlpjkdrAwBcSGlAJyQkrFmzxmq1CiGsVuuaNWvsj6Gq\n",
       "qKgIDAx0Y4EA4K2UHuLYsGHDlClTXnvttejo6KtXrwYHB+/Zs0cIUVhYuHz5cjcWCADeSmlAJycn\n",
       "nz179uuvvy4rK4uOjk5JSbE/JXP06NGjR492Z4UA4KXa8ExCX1/fkSNHuq8U7/Tuu+9mZ2e33Eet\n",
       "Vvv6+jY0NLTczdfXd+nSpQMHDnRddQA8SWlANzY27tix48SJE9XV1Y7GdevWuacqL3L06NFB1TfG\n",
       "xvZR0LeVJ5y+dCyvsLCQgAa6DaUBPWfOnHPnzo0fPz4kJMStBXmhlMiIKQn9Oz7OhvxTHR8EgDyU\n",
       "BnRubu6ZM2f8/PzcWg0AwEHpaXahoaEqlcqtpQAAnCndg548efK0adMWLlwYGhrqaBwyZIh7qgIA\n",
       "KA7o1atXCyHsVw86lJeXu74iAIAQok334nBrHQCAJloJ6K+++iouLi4sLOyrr75q/u5Pf/pT91QF\n",
       "AGgtoB999NEVK1Y8/vjjjz76aPN3i4uL3VIUAKDVgHZEMFkMAJ1M6Wl2hw4datKydu1aVxcDAPgX\n",
       "pQE9d+7cY8eOOV6uXLnyzTffdE9JAAAhlAf07t27p06deuLECSHESy+9tH79+pycHHcWBgDeTulp\n",
       "diNHjnz33XcnTJgwYcKEw4cP5+TkREZGurUyAPByrQT0qVP/uv9OeHj4k08++cYbb3zwwQdGo9Fo\n",
       "NHIlIQC4TysBPX78+CYtKpVq+vTp9mWuXgEA92kloIlgAPAUpX8kBAB0Mp6oAgCS4okqACApnqgC\n",
       "AJLiiSoAICmeqAIAkuKJKgAgKZ6oAgCSUhrQQoja2trz588bjUabzWZvaX6dIQDAVZQGdE5OTkZG\n",
       "RkBAwNWrV/v06VNUVDR48GDnO3UAAFxL6VkcixcvfuGFF4qLi6Ojoy9durRnz57U1FS3VgYAXk5p\n",
       "QF+4cGHOnDlCCIvFIoSYOHFifn6+G+sCAK+nNKB79OhRWVkphIiIiDh16lRtbW1FRYU7CwMAb6c0\n",
       "oGfPnn348GEhxKJFi0aPHn3HHXf8/Oc/d2dhAODtlP6R8IUXXrAvZGZm3nPPPTdv3kxJSXFbVQAA\n",
       "ZQFtNpuHDRt26tQp+9XeAwYMcHNVAABlhzj8/Pw0Go3ZbHZ3NQAAB6WHODIyMqZMmZKVlRUZGem4\n",
       "axL34gAA91Ea0GvXrhVCzJo1y7lRquu/tVqtp0toD7VaLawuG83Pz6+LzkOXptVqmfZWaTQaF46m\n",
       "Vqu76Jzbz1RWqPvci6O+vt7TJbSH1eq6eBbCbDZ30Xno0urr631923DXBO/U0NDgwtGsVqs3/FPn\n",
       "mYQAICkCGgAkRUADgKQIaACQVBsC+sCBA7Nnz548ebIQIi8v79ChQ26rCgCgOKBXr169ZMmSlJQU\n",
       "+03sgoKCli5d6s7CAMDbKQ3oNWvW/P3vf1+0aJH9ZMbExMRz5865szAA8HZKA7qmpiY8PNz5ZUBA\n",
       "gHtKAgAIoTyg77vvvmXLltmvgbHZbMuXL+eBhADgVkovf3rzzTcnT57cq1ev+vr6qKioO+64Y+/e\n",
       "vW6tDAC8nNKAjoqKys3NPXnyZElJSWxsbHJysuOWSQAAd2jb/aCTk5OTk5PdXRMAQHA/aACQFveD\n",
       "BgBJdZ/7QQNAN9N97gcNAN0MN0sCAEkp3YN+/vnnmze+8MILLi0GAPAvSgO6urrasVxZWbl///6H\n",
       "H37YPSUBAIRQHtBr1qxxfnnx4sVf/epXbqgHAPC/2nkM+o477rh06ZJrSwEAOGvPWRz19fUff/yx\n",
       "Ws0fGAHAjZQGdJ8+fRzLQUFBw4cP37Rpk3tKAgAIoTygGxsb3VoHAKAJDlMAgKTasAe9Y8eOEydO\n",
       "OJ9vt27dOvdUBQBQHNBz5sw5d+7c+PHjQ0JC3FoQAMBOaUDn5uaeOXPGz8/PrdUAAByUHoMODQ3l\n",
       "ESoA0JmU7kFPnjx52rRpCxcuDA0NdTRyP2gAcB+lAb169WohxNGjR50buQcpALgP94MGAEm14Tzo\n",
       "AwcOzJ49e/LkyUKIvLy8Q4cOua0qAIDigF69evWSJUtSUlLy8/OFEEFBQUuXLnVnYQDg7ZQG9Jo1\n",
       "a/7+978vWrRIo9EIIRITE8+dO+fOwgDA2ykN6JqamvDwcOeXAQEB7ikJACCEkoDeunWr1Wq97777\n",
       "li1bZrFYhBA2m2358uXjx493f3kA4L1aD+hZs2Y1NDS8+eabR44c6dWrV3FxcVRU1BdffPH66693\n",
       "Qn0A4LWUnmYXFRWVm5t78uTJkpKS2NjY5ORkLiwEALdSFNCffPKJ4y4cgYGBRqPx8OHDQgiOcgCA\n",
       "+ygK6FmzZt223Wg0urQYAMC/KAroK1eu+Pv7u7sUAIAznqgCAJIioAFAUq0HdG1tLcc3AKDztR7Q\n",
       "pDMAeASHOABAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkp\n",
       "feRVO7z44ov2J3/36dMnIyNDCHH+/Pns7GybzZaampqcnNzuFgDwBm4M6KCgoMWLFzteWq3W7Ozs\n",
       "zMxMjUbz1ltvJSYm+vn5taNFq9W6r2YAkIcbA7qJ0tLS0NDQkJAQIYTBYLh06ZJOp2tHS1JSUqfV\n",
       "DAAe5MaArqmpWbt2bUBAwLhx4/r3728ymYKDg+1vBQcHm0wmm83WjhbH+Nu2bbty5Yp9+e677x49\n",
       "erT7tsV9tFqtqDe7arSePXtGRka6arRuzLXPpI+IiNDpdC4csFvq1auXC0fTaDRd9J96bW2t8s5u\n",
       "DOgFCxaEhISUlZW9//77CxYscPn4v/jFLxobG+3LFovl+++/d/kqOkFDQ4MLR6uqquqi89DJbDab\n",
       "C0czGo1t+qnzTjdu3HDhaGazuYv+U7fZbEFBQQo7uzGg7ccloqKiwsLCKisr9Xq9Y//XZDJFR0fr\n",
       "dLp2tDjG1+v1jmWTyeS8c92FuDYprFarxWJx4YBQwmKxMO2tslqtLhzNZrN5w5y76zS7mpoa+z6F\n",
       "0WisqKjo2bNnTEyM0WisqqqqqakpKiqKj49vX4ubCgYA2bhrD/rmzZs7d+40m81arTY9Pd2+S5+W\n",
       "lrZ582ar1Zqammo/GaN9LQDgDdwV0JGRkVlZWU0aExISEhISOt4CAN6AKwkBQFIENABIioAGAEkR\n",
       "0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAEN\n",
       "AJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAg\n",
       "KQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIi\n",
       "oAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIa\n",
       "ACRFQAOApAhoAJAUAQ0AkvL1dAEuo9VqPV1Ce6jVamF12Wh+fn5ddB66NK1Wy7S3SqPRuHA0tVrd\n",
       "RefcYrEo79x9Arq+vt7TJbSH1eq6eBbCbDZ30Xno0urr6319u8+Pkps0NDS4cDSr1eoN/9Q5xAEA\n",
       "kiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACAp\n",
       "AhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKg\n",
       "AUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoA\n",
       "JEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBS\n",
       "BDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJLy9XQBrTt//nx2drbNZktNTU1OTvZ0OQDQ\n",
       "SWQPaKvVmp2dnZmZqdFo3nrrrcTERK1W6+miAKAzyH6Io7S0NDQ0NCQkJDAw0GAwXLp0ydMVAUAn\n",
       "kX0P2mQyBQcH25eDg4NNJpPjrU8++cRoNNqXBwwYkJCQ4IH6OszPz+/tL7/5+FJxx4c69b1Rr9f3\n",
       "7Nmz40N1eyqVSqwpEtoO76DYbEKIkJAQnU7ngrK6teDg4FuV332yLqPjQ9VWlcX39u2i/9Tr6+uV\n",
       "d5Y9oFsQHR3tyO4ePXq0abPlsXDhwtOnU1vuo1artVptbW1ty91GC3HXXXd10XnoZH/84x9v3LjR\n",
       "ch8/Pz+VStXQ0NByN//p/n5+fkx7qxITE199aXmr3fz9/c1ms8ViabnbHXfc0UXnvLGxUXlnlc1m\n",
       "c18pHXf58uUjR47MmDFDCLF3796EhISkpKTm3Uwmk/POdTej0WhCQkIqKio8XYh30ev1arW6qqrK\n",
       "04V4l969e1dXV9fV1Xm6EDeKjo5W2FP2Y9AxMTFGo7GqqqqmpqaoqCg+Pt7TFQFAJ5H9EIdarU5L\n",
       "S9u8ebPVak1NTeUUDgDeQ/aAFkIkJCR00T8AAkBHyH6IAwC8FgENAJIioAFAUgQ0AEiKgAYASRHQ\n",
       "ACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0F1AVVVVTk6Op6vwOhcvXjxz5oyn\n",
       "q/A6X3zxxffff+/pKmTRBW43qoRer9fr9Z6uwl1KS0sLCgr+7d/+zdOFeJfCwsKampqf/vSnni7E\n",
       "uxw8eDAyMlL5M0e6N/agAUBSBDQASKqbHOLo3rRabd++fT1dhdfp2bNnQECAp6vwOtHR0YGBgZ6u\n",
       "QhayP9UbALwWhzgAQFIENABIioDuPHl5eS+//HJjY6OSztXV1e+8807z9vr6+vz8fOUrbWv/bqZN\n",
       "c96qH/tShNfPczvU1dWtWLFi1apVq1atevPNN5t3cMx2C9Pe7RHQnaegoKBv374XLlxQ0jkgIODn\n",
       "P/9583YCuk3aNOet+rEvRXj9PLePTqdbsmTJkiVLFi1a5OlaJMVZHJ2kurq6rq7ugQceOHHiRGJi\n",
       "ohCipqZm586ddXV1Vqt1ypQper3e+WVQUND+/fvnzJnTpNuXX35ZXl6+efPmoUOHJicnb9u2ra6u\n",
       "zmazpaWlGQyGGzdu7Nq1KzIy8vr16717905PTz9y5Iijf0pKiqenoVO1dc4jIiI+//zzEydOCCHG\n",
       "jh07ZMgQIUR+fn5ubq5KpRo4cODIkSPtX0pjY2OTmW8yz/n5+Xl5eVarddCgQWPHjvXwRHQF5eXl\n",
       "R44cycjIEELs3r37nnvuCQ4O9nRRnkdAd7i0pTIAAAfySURBVJKCgoLExESDwbBv377GxkZfX9+z\n",
       "Z8/269fvvvvus1gsFovl1KlTzi8bGhrsH2zSbezYsUajcfbs2UIIm8322GOP+fv7V1dX79ixY+7c\n",
       "uUKIysrKGTNmBAYGbtq06fr16879vU1b5/zatWv//Oc/58+fbzab169f369fv9ra2s8//3zOnDn+\n",
       "/v61tbUWi8U+so+PT5OZd57nysrKgoKCuXPnqtXqHTt2lJWVRUVFeXIiZFVdXb1mzRohxMCBA++8\n",
       "805PlyMjArqTnD59Oj09Xa1WGwyGCxcuJCYmRkZGHjt2TAiRlJQUHh7e5KUjoJu019XVOQ+bm5tb\n",
       "VFTk4+PjuH1BRESE/TTS3r17V1VV9erVqzM3UyptnfPLly8nJSX5+fn5+fkZDIaysrKqqqqkpCR/\n",
       "f38hREBAQHV1tWPw5jPvUFxcbDQat2zZIoSoq6u7fv06AX1bOp1u8eLF9uXy8nLPFiMnArozVFdX\n",
       "l5aWfvDBB0IIs9lssVgSExOjo6OfeOKJ8+fP7969+2c/+9mAAQOcXzp+pJt0i4iIcAxbWFj4ww8/\n",
       "PPHEE2q1euXKlfZGHx8f+4JKpbJarZ27oRJpx5wrH/y2M+9s0KBB48ePd9nGeAG1Wu24JsPxmwoI\n",
       "6M5QUFAwatQo+0+sxWJZu3ZtY2PjrVu3dDrdnXfeWVtbe+3atfDwcOeXjoCuqqpybu/bt299fb39\n",
       "rbq6up49e6rV6tLSUuedO2cajcbR36u0Y84HDBiwd+/ee++9t6Ghobi4ePz48SEhIbt27Ro1apS/\n",
       "v39NTY1j8OYz7zzPBoPhs88+GzVqlE6nq6qq0mg0XJHYKr1ef/36dSGE2WwuLS31dDmyIKA7w+nT\n",
       "px37Uz4+PrGxsYWFhVarNScnR61WBwQETJkypaSkxPml47NXrlxxbvf39w8NDf3zn/985513Dhs2\n",
       "LD8/f/fu3UFBQT169Ljtqp37jxw5sjO2Vg7tmHOdTveTn/xk3bp1KpVq3LhxQUFBQUFBo0aN2rhx\n",
       "o0qlSkxMHDFihH3AhISEJjPfZJ7HjRv33nvvWa1Wf3//jIwMArpVAQEBCQkJ7777rl6v79mzp6fL\n",
       "kQWXegOApDgPGgAkRUCjm/uP//iP5557zr5sMBi++uqrTlt1J68O3Q8BDdkNGTJErVaXlJQ4WsaM\n",
       "GaNSqdpx5d6KFSvi4uI6UswXX3wxduxY+3HSe++9l0eRwa0IaHQBAwYM2Lp1q3350qVLV65c0Wg0\n",
       "7Rjn8ccfDwsLa3cZdXV1jzzySHp6emlp6cWLF3/729/6+rrgz+yuulUIuh8CGl3AzJkz7dd9CCHe\n",
       "e++9mTNnqlQq+8tr165lZGSEh4cbDIbVq1fbGwsKCkaOHNmjR49HHnnkxo0bjnEcxxyWLl0aFxen\n",
       "1+uHDx/u2AuOjIx89dVXR4wYMWDAgNmzZzfPzeLi4srKysWLFwcHB/fq1Ss9Pf3ee++1v3XbAR1+\n",
       "bHUvv/zysGHDhg4d+t///d/Op+5kZWU988wzHZ42dHkENLqApKQknU6Xl5cnhNi6devjjz9ub7fZ\n",
       "bJMmTYqNjf3uu+9ycnLWrVt34MABi8UyadKkSZMm/fDDD4sWLXLsejcZMC8v78aNGwsWLMjIyKit\n",
       "rbW35+XlHTt2rKCg4MyZMzt37mzyKYPBEBMTM3v27I8//th+0m6rA7b87meffXb8+PGCgoKZM2ce\n",
       "PHjQ/n9JY2Pj9u3bHdsIb0ZAo2t4/PHHt2zZ8tlnn4WFhQ0YMMDeePLkydOnT7/66qv+/v5xcXEL\n",
       "Fy7ctWvX119/XVlZ+atf/crHx+fBBx+87dPQp02bFhER4ePjM3/+/ICAgPPnz9vbs7Ky7Jd6jx8/\n",
       "/ptvvmnyKX9//9zc3NDQ0IULF4aHh6enp1++fLnlAVt+95lnntFqtSqVKioqasyYMbt27RJCHDx4\n",
       "sHfv3t52ZyvcFgGNrmHq1Km7d+/euHGj865lSUlJfX394MGDExMTExMTV69effPmzatXr8bGxjou\n",
       "eY+Pj28+2nvvvXfXXXf17dvXYDBcvXrVaDTa20NDQ+0LTe684RAbG/vHP/6xsLCwpKTEYrHMmzev\n",
       "5QFbftf5Hh2ZmZn2nf2tW7fOmjWrXZOE7oYrCdE1hIeHp6SkbN++fdWqVY7Gvn37hoSEnDlzxnFI\n",
       "WgiRl5dXUVHheHnt2rUmGV1YWPjMM88cOXJk6NChQoj4+Ph2XK4VHR09b968rKysVgds4V3nsidO\n",
       "nLhgwYJTp0599NFHr732WlvrQbfEHjS6jD/84Q+ffvqp83XAycnJ/fr1+81vflNdXW2xWAoKCvLy\n",
       "8lJSUgICAj788EMhRGFh4YEDB5qMc/PmzcDAQPtxkv379xcVFSksoKioaNmyZWfPnq2rq7tw4cK6\n",
       "devsV8+3PKDC1dkvN58+ffqIESNiY2MVloTujT1odBkGg8FgMDi3qNXqvXv3/vKXv+zfv399fX1C\n",
       "QsKKFSt8fHz27Nkzf/78V155JSwsbMKECU3GSUlJmTZt2rBhw8LDw5OTkwcPHqywgODg4JKSkrS0\n",
       "tLKysl69ev3sZz+z38qu5QGVry4zM3Pjxo1e+3gnNMe9OABZXL58OSEhoby8nIeJwI5DHIAUrFbr\n",
       "66+/PnXqVNIZDhziADzv1q1bERERcXFxBw8e9HQtkAiHOABAUhziAABJEdAAICkCGgAkRUADgKQI\n",
       "aACQFAENAJIioAFAUv8f05/oZ7bJANgAAAAASUVORK5CYII=\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "\n",
    "rankFrame <- ddply(numericDB,~Rank,summarize,Median=median(BudgetedSalary)) # Use ddply to find medians by Rank\n",
    "\n",
    "rankFrame$Rank <- mapvalues(rankFrame$Rank, c(1,2,3),\n",
    "                            c('Assistant', 'Associate', 'Full')) # Create our labels\n",
    "\n",
    "rankPlot <- ggplot(rankFrame, aes(x=Rank, y=Median, fill=Rank)) +\n",
    "  geom_bar(color=\"black\", stat=\"identity\", width = 0.2) +\n",
    "  guides(fill=FALSE) +\n",
    "  xlab('Median Salary') + \n",
    "  ylab('Tenure ranking') + \n",
    "  ylim(c(0,150000)) +\n",
    "  ggtitle('Median salary by tenure rank') # Make our plot\n",
    "\n",
    "print(rankPlot)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "It appears that going from Assistant to Associate professor, according to the median, will increase the salary by only about 10,000 dollars a year. That doesn't seem like very much! Full rank definitely seems to provide quite the salary boost, however. This could be biased somewhat, however, because Full is the highest rank we have, meaning professors that have been around for ten years and thirty years fall into this category, so the median will be increased. \n",
    "\n",
    "Now let's see how salaries rank according to which of the 12 colleges you are in."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 81,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3deUBTV6IG8JOEJISE\n",
       "gGxCkNUl4FJUXFtBcWkpM++h1dG6W6u2tVaZTmvfvE6t1da21rrVjlq1+tS6oGPVVrHttOPSaqW4\n",
       "VlFBBZQlIkggEBKy3PfHnUlTNi/hXjjI9/srnNycc3Lu4ePm5N6LiGEYAgAA9BG3dgcAAKB+CGgA\n",
       "AEohoAEAKIWABgCgFAIaAIBSCGgAAEohoAEAKIWABgCgFAIaAIBSCGgAAEohoAEAKIWABgCgFAIa\n",
       "AIBSCGgAAEohoAEAKIWABgCgFAIahLJixYqoqCj28ZQpU5599tnW7U8L9GH06NGzZs0StIlGOL9B\n",
       "GgYcmg8BDb958cUXRSLRk08+6Vx49OhRkUgkEomsVqvLNcfHxw8dOrTZHWwvKioq3nrrrR49eigU\n",
       "CqVSOWjQoG3btlksltbuF7Q0t9buANAlODj4+PHjubm54eHhbMmmTZvCwsLy8vKaU+2cOXN46FyL\n",
       "M5lM7u7uLdzo/fv34+LiSkpK/va3v8XGxiqVynPnzq1evTowMDAxMbGFOwOtC0fQ8DuBgYFPPfXU\n",
       "li1b2B91Ot2RI0dmzpzpvM1nn33WvXt3d3f3Ll26LF68uKamhi23WCzz58/38fHx8vKaOXNmVVWV\n",
       "4yXOn7i/+uqruLg4drO4uLjTp087Nhs9evSMGTMWLlwYEhLi6+s7efLkioqKevv5/fffDxgwQKlU\n",
       "qtXqPn36nDp16qGVO2u8D9OnT//zn/+s0WjCwsK2bdumVqud38uyZctCQ0Ptdnu9Ndvt9r/+9a8B\n",
       "AQEqlWrSpEl6vZ4Q0qRKXn311YKCgvPnz6ekpMTFxfXt23f27NkZGRkDBw4khNhstrfffjskJEQm\n",
       "k0VFRW3durXebtTS0C6rqamZN29ehw4d2F32zjvvOFalGnkVtBwG4D9eeOGF2NjYQ4cOBQcHW61W\n",
       "hmGWLVs2YsSIHTt2EEIsFgvDMB999JFGozlw4MCdO3d++OGHrl27Lly4kH35X//6Vx8fn0OHDuXm\n",
       "5i5atEilUmm1WvapyZMnT5gwgX38xRdfpKamZmdn37hxY8GCBWq1+t69e+xTycnJUql03bp1FotF\n",
       "p9NptdrXX3+9bj9NJpNKpXrrrbfu3r2bl5d36NChX3755aGVN6kP77//vtForKioMBqN3t7emzdv\n",
       "Zp+12+2RkZGLFy+udwCTk5NVKtXs2bNv3rx56tSpzp07/+lPf2IYhnsl1dXV7u7uKSkpDe2jxYsX\n",
       "e3l57d2799atWx9//LFEIjl48GDdN+j8uJFdtnDhwoCAgCNHjuTm5i5dutR5lzXyKmgxCGj4DRvQ\n",
       "VqtVo9EcPnyYzZG9e/c6AtpisXh7e+/Zs8fxki+//NLLy4thGIvFolQq16xZ43hqyJAh9QZ0LeHh\n",
       "4du2bWMfJycnDxo0yPHUsmXLevfuXfclhYWFhJCffvrpoe/IuXLufXjsscecn50/f/7AgQPZx//8\n",
       "5z8lEsndu3frrSc5OTk0NJT9S8YwzLFjx0QiUU5ODvdKbty4QQjZsmVLvfVbrValUrl8+XJHyaRJ\n",
       "k/r371/3DToeN77LPDw8NmzY4Hhq+PDh7C5r5FXQkrDEAbVJJJLnnntu06ZNP/zwg8FgGD16tOOp\n",
       "7OxsvV7/7LPPiv5jzJgx5eXlJSUleXl5VVVVcXFxjo2dHzvLz89/+eWX+/TpExwcHBgYWFBQ4LzA\n",
       "7fwR29/f/969e3VrCAoKmjx5ckJCQmJi4vLly7OzszlWznGzXr16OW/84osvnj179tdffyWEbNq0\n",
       "KTExsVOnTg2N3oABA9zc/v3VzhNPPMEwTGZmJvdKGIZpqGZCSN1Bjo+PZ+tvSOO7zGg0Dh482LHx\n",
       "448//tBXNdIW8A4BDfV4/vnnjx07tnTp0unTp8tkMkc5u2Z68uTJWn/n/fz8RCIRIUQqlTo2dn6h\n",
       "s6SkpFu3bq1du/b06dMXL17s1q2b8+KmRCJx3rihpd6dO3eePXt2+PDh3377bffu3Xfu3Mmlco59\n",
       "qPXFYHR0dHx8/KZNm0pLSw8ePOjaF54cKwkLC3N3d79y5UojVbFDzWpofGptUO8u4/1VwDsENNQj\n",
       "IiJi2LBhJ06cmD17tnN5165d1Wr1gQMH6r4kNDRUqVReunTJUXLx4sW6mxUXF//6669Lly6Ni4sL\n",
       "CwtTqVQunx/Su3fvhQsX/vOf/5w0adLnn3/OvXIX+vDiiy/u3Lnzs88+8/X1/cMf/tDIlunp6Tab\n",
       "jX38008/iUSi7t27c6/E3d197NixmzZtys/Pdy632WxlZWVsbx3fiBJCTp482aNHj0b608guCwsL\n",
       "8/DwOHPmjKPE8WVpI6+CloSAhvodPHiwtLS0W7duzoUymWzRokXr1q1bsmTJ1atXr127tmfPnj//\n",
       "+c+EEDc3twULFixZsuTOnTuEkMOHD6elpdWt1tfX19fXl33KZDK9/PLLJpOpqX3LzMz829/+dvbs\n",
       "2YKCgrNnz549e7Znz57cK3ehD2PHjpVIJIsXL545c2atY/xaysrKXnjhhaysrBMnTrz88svjxo1z\n",
       "nLDIsZKVK1cGBgb27dt3zZo1P/744/nz5zdv3hwbG3v27FmJRPL666+/++67u3fvzs7O/uijj1JT\n",
       "U//3f/+3kf40vsvmzZu3aNGir7/++vbt20uXLs3IyGAPzxt5FbQkBDTUz8PDw8fHp275X/7yl82b\n",
       "Nx88eDA2Nvbxxx9ftWqVI8Tffvvtp556qnfv3iEhIVu3bk1JSan7colE8o9//OPAgQMajaZXr149\n",
       "e/aMjY1tat9UKtXly5efeeaZyMjIsWPHjhw58oMPPuBeuQt9kMlkM2bMsFqtD71QcNy4cb6+vo8/\n",
       "/nhSUlL//v0/++yzplYSEBDwyy+/zJ49e+PGjSNHjoyLi9u8efPs2bNHjBhBCHnzzTcXLFiwcOHC\n",
       "Hj16bNmyZfPmzcnJyY13qZFdtmTJknHjxk2ZMqVPnz45OTkvvfSSY3mnkVdBixE1/qUEALCmTp1a\n",
       "UlJS78eCFq5EOKNHj5bL5Xv37m3tjsC/4UpCgIcwGAwZGRmpqalfffVV61bCuxs3bmRkZAwZMsRm\n",
       "s+3du/fw4cPffPNNa3cKfoOABniIPn366HS6lJSUWncpaflKeMcwzOrVq1988UVCSHR09KFDh0aN\n",
       "GtXanYLfYIkDAIBSj8gRtMFgMBgMLrxQqVTKZLKysjLeu+Tg4+NTXV1dXV0tXBMajUan0z30lFiX\n",
       "yeVyT09PQS9SUKvVDMO4thM5CggI0Ov1wt1QQiKR+Pv763Q6geonmK7c0D9dNRoNxy1xFgcAAKUQ\n",
       "0AAAlHpEljjI769/bcnXcqmcJVwTjlYErVzoUSIC7wjnhoSruU2/BYLpyrkJ4uqOaNLXfo9OQDvf\n",
       "BYI7iUQiFotdey1HIpFIIpEI2gQhxM3NTbjveyUSiUgkEvQtiMVihmGE3hGO2xgJoQVGCdOVC8qn\n",
       "q+NOAFw8OgHt2pc/UqlUIpEIeidyu91utVqFvtm5xWIR7lsXkUhkt9sFfQvu7u4MwwjaBMMwgu4I\n",
       "iUQi9FvAdOXi0ZiuLKxBAwBQCgENAEApBDQAAKUQ0AAAlEJAAwBQCgENAEApBDQAAKUQ0AAAlEJA\n",
       "AwBQCgENAEApBDQAAKUenXtxNMnt27czMzMJIXK53M3NraqqihASGBjYr1+/1u4aAMC/tdOAXrZs\n",
       "2dVLab7ev5WYa8j9cv+LFy+2XqcAAH6nnQY0wzDjniajhvxWUnCPvPGRULfXAgBwAdagAQAohYAG\n",
       "AKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGg\n",
       "AQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFII\n",
       "aAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAU\n",
       "AhoAgFJufFW0Z8+e3NzcyMjI8ePHsyXvvfeeQqEghHTq1IktzMrKSktLYxgmISEhJibG5RIAgPaA\n",
       "t4AeNGhQTEzMr7/+6ihRKpUpKSmOH+12e1pa2vTp02Uy2caNG6OioqRSqQslcrmcrz4DANCMt4AO\n",
       "Dw+/fft2IxsUFBT4+vp6e3s7NlapVC6UREdH89VnAACa8RbQdRmNxjVr1igUiuHDh3fp0sVgMKjV\n",
       "avYptVptMBgYhnGhxFG/2Wy22+3sY6vVKhbzsJ7OSyW1iEQisVgsRM3OBK1fLBaz70K4JkQiERH4\n",
       "XZD/7AuBKmdrbuujhOnKRXN2BMMw3DcWMKDnzp3r7e1dVFS0a9euuXPn8l7/F198cefOHfZxfHz8\n",
       "8OHDub/W3d29bqFYLA4MDOSnc78nl8u9vLyEqNkhICBA0PoJIQINjjOVSiVo/b6+voLWT1pklNiv\n",
       "doSD6cqRa9PVaDRy31jAgGbXJYKCgvz9/UtLSz09PR3HvwaDQaPRqFQqF0oc9c+cOdPx2GAwFBYW\n",
       "cu+byWSqW2i325tUCUc+Pj7V1dXV1dW81+yg0Wh0Op3j8wTv5HK5p6dnSUmJQPUTQtRqNcMwzp+Q\n",
       "eBcQEKDX62tqagSqXyKR+Pv763Q6geonhCiVSplMVlZWJlwTmK5cNHO6enh4cNxSqE8BRqOR3ccl\n",
       "JSXFxcUdOnQIDg4uKSkpLy83Go05OTmRkZGulQjUYQAA2vB2BL1jx46ioiKLxbJy5cqJEyeKRKLU\n",
       "1FSLxSKXy5OSkpRKJSEkMTFx27Ztdrs9ISGBPRnDtRIAgPaAt4CeOnVqrZL58+fXKtFqtVqttvkl\n",
       "AADtAa4kBACgFAIaAIBSCGgAAEohoAEAKIWABgCgFAIaAIBSCGgAAEoJeKl3O3fnzh29Xk8I8fLy\n",
       "MplMZrOZEBIREeHp6dnaXQOAtgEBLZSRI0dWqWRE4vQZpbJ64h+SV6xY0XqdAoC2BAEtFIvFQjb8\n",
       "hXRwOl7+x4+WIkvr9QgA2hisQQMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAA\n",
       "AJRCQAMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0\n",
       "AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoB\n",
       "DQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAAAJRCQAMAUAoBDQBAKQQ0AAClENAAAJRy\n",
       "a+0O8EYul3PfWCyu/y9TkypxgUQiEagJmUzGMIwQNRNCpFKpWCwWdHDc3NwYhhG0CZFIJJVKRSKR\n",
       "QPWLxWKRSCT0KAm9I8RisVQqtdvtwjVB2vd0tdlsTWjIhQboZDabuW/c0PxrUiUusNlsAjVRU1Mj\n",
       "6C+V3W4XdHDkcjnDMII2wTCMxWKpqakRqH6JRCL0W2ADWtAmlEqlxWIR+hcB05UjLHEAAFAKAQ0A\n",
       "QCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUenRu\n",
       "ltTe3Lt3b+nSpRaLhRCiUChMJhPDMBKJ5NVXX+3SpUtr9w4AeICAbqtu3rx57rsf3+z9J0II0f+7\n",
       "8JOrX1958goCGuDRgIBuw/zc1XOinnQuOZj3c2t1BgB4hzVoAABKIaABACiFgAYAoBQCGgCAUgho\n",
       "AABKIaABACiF0+ygQVartaCggBAil8uVSuWDBw8IIR4eHv7+/q3dNYB2AQENDVq1atUnn26QSBXO\n",
       "hVaT4caNax4eHq3VK4D2AwENDTKbzT2f/EvfMe86F26dJbJara3VJYB2BWvQAACUQkADAFAKAQ0A\n",
       "QCmsQUNr+u6777Kysggh7u7uDMOYzWZCSM+ePYcOHdraXQNofQhoaE3vv/8+o76h6vBbSXkJ+fbb\n",
       "fnwFtNVqXbdundFoJIR4eHiYzWabzSYSicaMGRMVFcVLEwDCQUBDKxs8hoQ4ReXN8+TmMd4qv3fv\n",
       "3tqVa17uOYsQYiNVboS4EfKvgpMKhQIBDfRDQMMjTiaWLe3/V+eS16zVrdUZgCbBl4QAAJRCQAMA\n",
       "UAoBDQBAKQQ0AACl8CUhQLP8/PPPS5cutdvthBCpVGqxWAghMpnss88+69ixY2v3Dto2BDRAs2Rn\n",
       "Z1+0qciE135XuvJFnU6HgIZmQkADNJt3AOk97HclctyOFXiANWgAAEohoAEAKIWABgCgFAIaAIBS\n",
       "CGgAAEpxPYvDarXu3bv3woULlZWVjsINGzYI0ysAAOAc0DNnzrxx48bIkSO9vb0F7RAAALC4BvTp\n",
       "06evXbsmlUoF7Q0AADhwXYP29fUViUSCdgUAAJxxPYJ+5plnJk6cOG/ePF9fX0dhz549hekVAPxG\n",
       "r9ffuXOHEKJQKKRSaUVFBSHE19c3ODi4tbsGwuIa0KtWrSKEnDp1yrlQp9Px3yMA+L033njj5x++\n",
       "95TJHCUWm83ioTx//nwr9gpaANeARhYDtBar1fr+sCem9ox2lNws0w89cLQVuwQtowk3Szp//vyu\n",
       "XbsKCgqCg4MnT57cp08f52f37NmTm5sbGRk5fvx4tiQrKystLY1hmISEhJiYGB5LAIBfa9euLSgo\n",
       "IITI5XKr1Wqz2QghTz/99LBhw1q5Z+0b1y8Jd+/ePXToUL1e36NHD71eHx8fn5qa6rzBoEGDkpOT\n",
       "HT/a7fa0tLTp06fPmTPnhx9+MJvNfJXw+e4BgBBCyKpVq3aKJDs9PLdIZP8n99jp4bnzdu6XX37Z\n",
       "2v1q77geQb/zzjtHjx6Ni4tjf2QT03GwTAgJDw+/ffu248eCggJfX1/2pGn2KZVKxUtJdHQ0AQDe\n",
       "jRlLOvj89uOBfaSooPV6A4Q0aQ160KBBjh8HDhzY+Kq0wWBQq9XsY7VabTAYGIbhpcTRxE8//fTg\n",
       "wQP2cURERGRkJMf3Qgip94RukUjE42U49Z6VKJPJ+GpCpVLVW+7h4cFXE3K5vN5yLy8vLy8vXpoQ\n",
       "i+v5DOfm5sbXW3CeMM7c3d35asLDo/5bP3t6evLVhFQqJTZrrcK2NV1r8fLyYhhGiJoJIRKJhMcp\n",
       "VC+ZTMYwjEQiceG1TVoG4BrQsbGxy5Yte/PNN93c3KxW63vvvdevXz8XOscjT09Pxz5mF864v7ah\n",
       "ydGkSlzAMAxfTbCrhHXZ7Xa+mmhklAQdqLY1Suw/u6q36RbYEbzU30i7AjVhtVqFC2hCCBtTgtbv\n",
       "8uA0NGHqb4jjduvXr09OTl6zZk1wcHBBQUFgYODhw4cb2d7T09Nx8GIwGDQajUql4qXE0cRjjz3m\n",
       "eGwwGBo6VqpXvSPLMIzznUaaqd75Z7FY+Gqiurq63nKTycRXEzU1NfWWV1VVuXbsUFe9k9Vms/H1\n",
       "Fqqqquotr6mp4asJk8lUb7nRaOSrCavVWvfborY1XZ2p1eqqqqom5VSTyOVyNzc3IXruIBaL+R3/\n",
       "hnAN6G7dul25cuX8+fOFhYUajaZv376N/4oGBweXlJSUl5dLpdKcnJynn35aKpXyUsLHuwYAaAMe\n",
       "EtAZGRlhYWH+/v4ZGRmEEJFIxF68dOHCBUKI8yrHjh07ioqKLBbLypUrJ06cGBQUlJiYuG3bNrvd\n",
       "npCQwK5m8lUCANAePCSgx40bt2TJkmnTpo0bN67us7m5uY7HU6dOrfWsVqvVarVClAAAtAcPCWhH\n",
       "BDtnMQAAtACuF6qkp6ezFxrdv39/wYIFr732ml6vF7JjAADtHdeAnjJlCvuta0pKSk5OTkFBwQsv\n",
       "vCBkxwAA2juuZ3EUFxeHhITU1NR8/fXXt27dUqvVISEhgvYMAKCd4xrQ7u7u9+/fv3Tpklar9fPz\n",
       "s1gsuC0GAICguAb0rFmz+vfvbzQaP/jgA0LIL7/80qVLFyE7BgDQ3nEN6HfffXfMmDFubm7sDT+9\n",
       "vLz+/ve/C9kxAID2rmkXqlgsFvYBaeA2NwAAwBfeLlQBAAB+4UIVAABKcV2mmD9//s8//yxoVwAA\n",
       "wBnXgBaJRGPGjOncufNbb7117do1QfsEAACEe0CvWbMmPz9/w4YN+fn5gwcP7tOnz0cffSRozwAA\n",
       "2rkmnIkhkUhGjRq1devWX3/91c/Pb+HChcJ1CwAAmhDQFRUV27dvf/rpp7t16+bm5rZ9+3bhugUA\n",
       "AFwvVBk3btzRo0f79u07adKkHTt2+Pn5CdotAADgGtD9+/dfuXJlaGiooL0BAAAHrlcSjhgxori4\n",
       "uLi42PnZVv/H3gAAjzBcSQgAQClcSQgAQCmua9C//PLLqVOnysrKfHx84uLisLgBANxZLJbvv//e\n",
       "arUSQjp06KDX6xmGEYvFQ4cOVSqVrd07ej08oK1W64QJEw4ePBgZGanRaAoLC1977bXx48fv3LlT\n",
       "IpG0QBcBoK3LyMh4ft4cEq36XenNqvUffvLf//3frdSpNuDhAf3JJ59cuHDh3LlzvXv3ZkvOnz//\n",
       "zDPPrF+/ft68eQJ3DwAeBXa7nQS7kw+if1f65nX2P51CQx5+ocru3buXL1/uSGdCSN++fZcvX75z\n",
       "504hOwYA0N49PKCvX78+ePDgWoWDBw/GLZMAAAT18IA2GAwdO3asVRgUFGQwGITpEgAAEMLxLI5d\n",
       "u3bV+gdXdrudYRhhugQAAIRwCegePXosX7683nIB+gMAAP/28IC+cuVKC/QDAABqefgadKdOnWbN\n",
       "mvXll19i0RkAoCU9PKDT09MHDRq0Y8eOiIiIESNGfPzxx9evX2+BngEAtHMPX+LQaDSzZs2aNWuW\n",
       "xWI5efLk0aNHx4wZYzabk5KSkpKSEhISFApFC3QUAKARVqu1oKCAECKXy5VK5YMHDwghSqWyTd+8\n",
       "nuu9OAghUql0xIgR7EF0Tk7OkSNH1q1bd+XKFfzvKwBodStXrlz/6Ua52++OF401hhtZ19vuQWQT\n",
       "AvrIkSP79u2rqKg4cODA/fv3u3Xrhku9AYASZrN58qDX5gxb6ihhCPP4u2L2Dk1tFNf/Sbhq1apX\n",
       "X301Njb24sWLhBClUrlo0SIhOwYA0N5xDejVq1d/9913r7zyikwmI4RERUXduHFDyI4BALR3XAPa\n",
       "aDQGBAQ4/9h2l3UAANoErgE9dOjQt99+22azEUIYhlm8ePHIkSOF7BgAAF3Gjh0bHBwcHBzs6emp\n",
       "VqvZxzNmzBCuRa5fEn7yySfPPPOMj4+P2WwOCgrq3LnzwYMHhesWAABtysrK9s0jseG/lRy/Rv5+\n",
       "qUy4FrkGdFBQ0OnTpy9fvpyXlxcaGhoTEyMSiYTrFgAANOE0O5FIFBMTExMTI1xvAADAgWtA/8//\n",
       "/E+tErlc3qlTp6SkpODgYL57BQAAnL8kLCkpWbt27fXr16uqqq5fv7527dq8vLyvvvpKq9UeOXJE\n",
       "0C4CALRPXI+gdTrd0aNHhw0bxv54/PjxFStWfP3112lpaW+88cYf/vAHoToIANBecT2CPnnyZFxc\n",
       "nOPHuLi4U6dOEUISExPz8/MF6RoAQPvGNaC1Wu3q1avZ/5Fut9tXr16t1WoJIcXFxR4eHgJ2EACg\n",
       "veK6xLF58+axY8cuX75co9EUFhaq1eovv/ySEJKdnb148WIBOwgA0F5xDeiYmJjr16+fO3euqKhI\n",
       "o9HExsZKJBJCyJAhQ4YMGSJkDwEA2qkmnAf9zTffOG43mp6ertfrn3zySeF6BgDQznEN6FWrVm3Y\n",
       "sGHevHmrVq0ihCiVyvnz51MV0Lxc2Sj05ZEikagNNdFQPS3zLoSuB6PEpf421EQL7OuWr59rQK9e\n",
       "vfrUqVOhoaGffvopofJ2o25uTbsqsvmVuEAkEvHVBLvEVJdYLOariYZGSSKRCDpQbWuUxOL6v2nn\n",
       "cZQwXbloZJSomq7sqRYcca2X/tuNWiwW7hszDNP8Slxgt9v5aoK9s2C95Xw10dBMslqtgg4UwzB8\n",
       "1d/Qf9NogR3B4ygxDEPqCx9MV2ePwHStC7cbBQCgFG43CgBAKdxuFACAUg8J6IyMjFolGo3GarWe\n",
       "O3eOENKvXz+h+gUA0O49JKDHjRvXyLO5ubl89gUAAJw8JKARwQAAraXJSxzOsMQBACAcLHEAAFAK\n",
       "SxwAAJRqwhWK58+f37VrV0FBQXBw8OTJk/v06SNctwAAgOuVhLt37x46dKher+/Ro4der4+Pj09N\n",
       "TRW0ZwAA7RzXI+h33nnn6NGjjv96NX369Dlz5owfP16wjgEAtHdcj6B1Ot2gQYMcPw4cOFCn0wnT\n",
       "JQAAIIR7QMfGxi5btoy9N5jVan3vvfdwjh0AgKC4LnGsX78+OTl5zZo1wcHBBQUFgYGBhw8fFrRn\n",
       "AADtHNeA7tat25UrV86fP19YWKjRaPr27dvQHbgBAIAXD1/iOH369EsvvcQwjEQi6d+/f3Jycr9+\n",
       "/V5++eUzZ860QP8AANqthwf0u+++O3LkSOebi4pEopEjR7733ntCdgwAoL17eECnp6ePGDGiVuHI\n",
       "kSPT09OF6RIAABDCJaCNRmN1dXWtwqqqqsrKSmG6BAAAhHAJ6F69eh05cqRW4ZEjRx577DFhugQA\n",
       "AIRwOYvj9ddff/755xmGmTBhglqtrqio2LNnz2uvvbZt2zbhuwcA0H49PKDHjRtXWlq6cOHCOXPm\n",
       "KJXKqqoqb2/vFStWPPPMMy3QPwCAdovTedAvvPDCtGnTzp07V1pa6uvrGxsbq1AohO4ZAEA7x/VC\n",
       "FYVCMWTIEEG7AgAAzrjeiwMAAFoYAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAo\n",
       "hYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAA\n",
       "SiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAo5SZc1e+9955CoSCEdOrUafz48YSQrKystLQ0hmES\n",
       "EhJiYmJcLgEAaA8EDGilUpmSkuL40W63p+ViZNcAABeBSURBVKWlTZ8+XSaTbdy4MSoqSiqVulAi\n",
       "l8uF6zMAAD0EDOhaCgoKfH19vb29CSHh4eG3b99WqVQulERHR7dYnwEAWpGAAW00GtesWaNQKIYP\n",
       "H96lSxeDwaBWq9mn1Gq1wWBgGMaFEkf9BoPBarWyj202m0Qi4d43kUhUb3mTKnGBWCzmqwmxuP7v\n",
       "D3hsoqFR4rGJhtrlq/6G6uGxiYZ2hEQiEXpHYLq2cBP1aupcYhiG+8YCBvTcuXO9vb2Liop27do1\n",
       "d+5c3us/fPhwfn4++3jw4MFDhgzh/lqZTFa3UCwW+/v789O5Bn6p5HI5X02wnyrqUqvVfDXh4eFR\n",
       "b7mfn19DrTeVm1s9M1AqlfL1Fqqrq+stVyqVfDXh6elZb7m3tzdfTchkMmKx1CrEdK1FoVDUu7P9\n",
       "/Py8vLx4aYKX6drQnKy/Re6bNhW7S4KCgvz9/UtLSz09PR3HvwaDQaPRqFQqF0oc9U+ePNnx2GAw\n",
       "6HQ67n0zm811C+12e5MqaVy9fyerq6v5auLBgwf1luv1er6aqKqqIqSeFf/i4mKTycRLE47PQM5q\n",
       "amr4egv379+vt7yyspKvJsrLy+stLy0t5asJs9lc93wrTNdaqqqqCFHULS8uLm5SJjaCr+mqVCo5\n",
       "binUaXZGo5EdlJKSkuLi4g4dOgQHB5eUlJSXlxuNxpycnMjISNdKBOowAABthDqCrqioSE1NtVgs\n",
       "crk8KSmJ/YuRmJi4bds2u92ekJDAnozhWgkAQHsgVEAHBgbOnz+/VqFWq9Vqtc0vAQBoD3AlIQAA\n",
       "pRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0A\n",
       "QCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkAD\n",
       "AFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQ\n",
       "AACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUQkADAFAKAQ0AQCkE\n",
       "NAAApRDQAACUQkADAFAKAQ0AQCkENAAApRDQAACUcmvtDvBGLpdz31gsrv8vU5MqcYFEIuGrCalU\n",
       "2lA5X01IJJJ6y2UyGV9NiESiuoVisZiv+mUyWb3lLbAjeBwlTFcu2sp0tdls3Dd+dALabDZz39hu\n",
       "tze/EhfYbDa+mrBYLA2V89VEQzOppqaGryYYhqlbaLfb+aq/pqam3vIW2BE8jpLdbq/3sy6mq7NH\n",
       "YLrWhSUOAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiF\n",
       "gAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABK\n",
       "IaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCA\n",
       "UghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACiFgAYA\n",
       "oBQCGgCAUghoAABKIaABACiFgAYAoBQCGgCAUghoAABKIaABACjl1todeLisrKy0tDSGYRISEmJi\n",
       "Ylq7OwAALYT2gLbb7WlpadOnT5fJZBs3boyKipLL5a3dKQCAlkD7EkdBQYGvr6+3t7eHh0d4ePjt\n",
       "27dbu0cAAC2E9iNog8GgVqvZx2q12mAwOJ7617/+VVJSwj7u2rWrVqvlXq1UKv36B/LL5d9Kqs1E\n",
       "JBJ16NCBh04TQggRiUTko/1E5jTC+SXygQl8NeHp6ZljuDf++4+cCy+U5DyrUvHVhLu7e975A+X3\n",
       "smqVe3t7e3l58dKEWCw+sYso1L+VVJaRYC83vt5CZWWlyWaa+v1LzoWXSq9MVkzjqwmVSkWunSUf\n",
       "zPhdadk9Ly8vvpqQSqUbMy4cu5XrKKm0WPifris+JDLZb0X5+fKBA3icrkRnJu9m/670VpWK1+l6\n",
       "7Po/8kpv1Cr39vZ2ZEgzicXilcdIB+VvJcUVxK1j06ar2WzmvjHtAd0IjUbjGHcvL68mve1XXnnl\n",
       "6tXhhBCpVCoSiWpqagghfn5+TaqkcevXry8vLyeEyOVym81mtVoJITExMXw10aNHj0UfLGUfe3h4\n",
       "VFdXMwzzOCGDBw/mq4nx48eHhoYSQiQSiVQqNZlMhBD5zAS5XM5XE0uXLr179y4hRCaTMQxjsVgI\n",
       "IZGRkXzV7+vru3LNKnbw3d3dLRaLzWaLIyPi4uL4aiIhIWGVxUIIEYvFcrm8urqaECIaN4zHd/HK\n",
       "K69cvXqV/H66Tmlr03XV0n8fTDimKxnD53SdMGFCWFgY+f10/ZP7cNqmKzu2HIkYhmlqL1vS3bt3\n",
       "T548OXnyZELIwYMHtVptdHR03c0MBoPzwTV3SqVSJpOVlZU1t6MN8/Hxqa6uZn9vBaLRaHQ6nd1u\n",
       "F6h+uVzu6enp+LwiBLVazTCMazuRo4CAAL1ez6abECQSib+/v06nE6h+gunKDf3TVaPRcNyS9jXo\n",
       "4ODgkpKS8vJyo9GYk5MTGRnZ2j0CAGghtC9xiMXixMTEbdu22e32hIQEnMIBAO0H7QFNCNFqtU36\n",
       "AhAA4NFA+xIHAEC7hYAGAKAUAhoAgFIIaAAASiGgAQAohYAGAKAUAhoAgFIIaAAASiGgAQAohYAG\n",
       "AKAUAhoAgFIIaAAASiGgAQAoRfsN+zly+Yb9paWlVVVV7P8NEUhOTo63tzeP/52orosXL/bq1Usi\n",
       "kQhUv8Fg0Ol0Xbt2Fah+QkhRUZFIJAoMDBSuiWvXroWHhysUCoHqt1gs165de+yxxwSqn2C6ckP/\n",
       "dOV+w/42cLtRLjw9PT09PV14YX5+fmFh4aBBg3jvksPx48c9PT257xIXbN68ediwYR4eHgLVf+vW\n",
       "raysrKFDhwpUPyHk119/lcvlffv2Fa6JAwcOaLVa4XZEWVnZpUuXEhMTBaqfYLpy82hMVxaWOAAA\n",
       "KIWABgCg1COyxOGypv47cBcEBgaqVCpBm4iIiBBuRY8QolAogoODhaufEOLr6yuVSgVtIiQkRNB/\n",
       "mSaVStn/Ki0cTFcuHo3pynpEviQEAHj0YIkDAIBSCGgAAEpJFi9e3Np9aAkmk2nZsmUXLlw4c+bM\n",
       "tWvXOnfuzPtyJNvEuXPnzpw5c+bMGW9vb39/f36bIIRs3brVz8/Py8uL/XHfvn1isbhWQ2az+cqV\n",
       "Ky6cpGkymdauXTt48GB++vr7ml0Yf71en5qaGhMT41qjx48fP3To0NmzZ69evarVamUymfOzlZWV\n",
       "O3fu7NOnT+Pddh6Q1NRUhULB5RxhR+XO+8Llt5Oenr59+/bBgweLxbwdURkMhkOHDh09evTcuXM3\n",
       "b94MDAxUKpV8Vc5q/DfiwIEDnp6earW6+a047yPHyDdz8rC4jzwvzdXVjr4kVKlUKSkphJAffvjh\n",
       "7Nmzo0aNEqKJV199lfdqnfXo0SMzMzMkJIQQYrFY8vLyxowZU2sbs9l88eLF3r17C9qTpmqB8Xd2\n",
       "9+7d7OzsuXPnSqXS+/fvu7nVnuoKheK//uu/BO0D4WlfsHv85s2bUVFRfHVs7969PXv2HDdunFgs\n",
       "zsvLKy4uDggI4Ktyhxb4jaiF393a0Mjb7XYe/1g2oh0FtIPNZmMP33Q63cmTJ8ePH08I2b9//+OP\n",
       "P+7t7Z2ammoymex2+9ixYzt27NichvR6/b59+wIDA8vKyvz8/JKSkggh//rXv65evcoeAickJHTq\n",
       "1KlJdXbv3n3z5s1PPfUUISQ7OzsiIsLNze3ixYvp6el2u7179+7x8fEnT57U6XTbtm3r1atXbGys\n",
       "y/23Wq1ffPGFyWRiGCYxMTE8PPzkyZOenp59+vTZvXu3j4/PU0899d133wUHB3fv3p17tdzHXy6X\n",
       "W63Wffv2FRYWdu3alR1AjiorKz09Pdmv2h0HbhcvXjx9+rRIJOrWrdvAgQO/+uqrmTNnNmFE/qPW\n",
       "gNcdKMeWzvuic+fOLrydyspKk8n05JNPXrhwwRETzZxFeXl5hBDHBS+Ok09qvS9CyJkzZy5cuEAI\n",
       "iY+P79mzZ5NaqdeJEycuX77s7e0tEolIfXOgmdfIVFdXO3arxWLZs2dPSUlJ586dn3766aZWVXfk\n",
       "2cNkPz8/s9k8ceJE5+kUGxvr8lxtRDsK6MrKynXr1pnNZolEMmfOnHq3uX79ekRExNChQ202m81m\n",
       "c6GJ1atXs48nTJigUChKS0snT57s4eGxdevWsrIys9l869atl156qbq6et26dS68C5VK5eXllZ+f\n",
       "36lTp8zMzJ49e5aWlmZmZj7//PNisXjv3r1FRUXx8fElJSUzZsxwoX5nEolkwoQJ7u7ulZWVe/fu\n",
       "ff7550NDQy9fvtynT5/q6mqdTkcIuXv3LscL21wYf6PRWFRUNHr0aG9v702bNpWVlXG/BDkyMvL4\n",
       "8eMbN26MjIyMiYkJCAgoKSk5c+bMzJkz3d3dq6urOe5f531aVVXVr1+/ugMeGBhYa6AcL3feF3q9\n",
       "3oW3k5mZGRUVFR4efvjwYavV6ubmptPpmjmLSkpKgoKCahXWfV9isfjSpUuzZ8+2WCybNm2KiIho\n",
       "6jJIrd8IsVh8/fr1l156yWg0utbzJiksLJw7d66Pj8+uXbtu3brVuXPnJr287sgTQkpKSiZNmqRS\n",
       "qWpNJ7PZ7PJcbUQ7CmiVSjVv3jxCSHp6+jfffFN3ZYAQEhgY+NNPPxFCoqOjXfjE5/gUz9Lr9R07\n",
       "dmQvafXz8ysvL79//75Wq5VIJCqVyuVzZtlVjsDAwLy8vNGjR1+6dKmkpGTHjh2EEJPJVFZWxuNi\n",
       "4unTp3NyciQSyf379wkhwcHBaWlpJSUlAQEBDx48MJvN1dXVHC+yd2H8jUZjUFCQj48PISQoKKi8\n",
       "vJz7pJfL5S+88MLdu3dv3ry5devWKVOm6HS66Ohod3d3QohCoaisrOTYbcc+TU1NJYTk5ubWGvDA\n",
       "wMBaA9UQF97O1atXk5KSxGJxeHg4+1n77t27zZ9FDjt27Lh//37Xrl01Gk2t92U0GqOjo6VSqVQq\n",
       "DQ8PLyoq6tKlS5Mqr/UbkZGRER0d7ebmplarhT5nnBASGBjo6+tLCOnevfvdu3ebGtB1R54Q0rFj\n",
       "R/Y88by8POfpZDabXZ6rjWhHAe3QrVu3M2fOEELEYrHjNHD2eEqj0Tz33HNZWVn79+8fNWpU8++3\n",
       "4jghXyQS2e32ZtbG6t69++effx4SEhIeHs7+Ve/evfvIkSMdG1RUVPDSUHZ29oMHD5577jmxWLxi\n",
       "xQpCiFQqdXNzu3HjRkhIiLu7e0ZGhgtfRXIff39/f8fasVgsbuoAisXisLCwsLAwsVh848YNxzer\n",
       "zVdrwLOysmoNVEOa+nYqKysLCgp2795NCLFYLDabjZdlaD8/P3bhghAyderUrKysK1eukDrvKyMj\n",
       "o/lt1eJYumV/NerOAUo0NPKNXJ/SnLnakPZ4ml1OTg77x83T07OsrIwQYrFYCgoKCCHl5eUKhaJv\n",
       "374xMTH37t3jvelOnTplZWXZbLbKykp2HdAFKpVKrVYfP368R48ehJDw8PCrV6+yx4Pl5eXV1dUy\n",
       "mYyX681MJlOHDh3EYnFBQYHjeDMkJOTs2bMhISGhoaHsg6ZW2zLjX1xcXFxcTAix2Ww6nc7Lyyss\n",
       "LOzatWsmk4kQYjQaXa657oDXO1CsZu6LzMzMQYMGpaSkpKSkvPrqq3l5eVartfmzKDQ0lGGYn3/+\n",
       "mc0Rdkzqvq+QkJDr169brVaj0Zibm1t3VaSpQkJCcnJyCCE1NTV3794l9c0BHul0utLSUoZhHN+r\n",
       "c1fvyDtvwNd0alw7OoJml8MYhlGpVMnJyYQQhUKh1Wr/7//+z9PTk42M/Pz8EydOiMVihUIxduxY\n",
       "F5pYuXIl+zg+Pr7u58GgoKCIiIi///3vXl5egYGBLp/q17179++//56t39fXd/jw4du3b7fb7e7u\n",
       "7uPHj1er1b6+vuvXr+/bt+/AgQNdfgtJSUkFBQX79+9XKpWOw8+QkJArV674+PgoFAqDwcB93rsw\n",
       "/rV+JZrEbrcfOXLEYDCIRKKIiIjevXtLJJJBgwZt2bJFJBJFRUUNGDDAtZrrDrhWq7148WKtgWK5\n",
       "u7s79oVWq21qW1evXnUc0kokktDQ0Ozs7Ojo6GbOIpFINGHChLS0tJMnTyqVyg4dOgwfPrzu++rY\n",
       "seNjjz22YcMGkUg0fPhwF5bOav1G9OvXLzQ09IsvvlAqlewSYt054ALnVpw/AQQFBX377belpaWd\n",
       "O3d2YX2j7sg7/4ny8/Nznk4C3dkOl3q3NIvFIpVKq6urP//88zlz5rTMFf3wiMEsaifa0RE0JQ4d\n",
       "OlRaWmq324cNG4bfK3ANZlE7gSNoeMS99tprbm5uH3zwASEkPDx8//79/fr1a5mmW7g5ePS0xy8J\n",
       "oW3p2bMne7WboyQuLk4kEl28eLGpVS1ZsqSZZ3f9/PPP8fHx7ILpE088ceLEiebUBtA4BDS0AV27\n",
       "dt25cyf7+Pbt2/n5+bVurMHRtGnTmnODFJPJ9Mc//pH97vTWrVtvvvlm3SvIXdCc70Lh0YaAhjZg\n",
       "ypQp7AUUhJDt27dPmTKFvVCYEHLv3r3x48cHBASEh4evWrWKLczMzBw4cKCXl9cf//hHvV7vqCc8\n",
       "PJw9t3fRokVhYWHsZeuOo+DAwMAPP/xwwIABXbt2nTFjRt3czM3NLS0tTUlJUavVPj4+SUlJTzzx\n",
       "BPtUvRU6NNTc+++/37t37169en300UfOZw3Nnz9/wYIFzR42aPMQ0NAGREdHq1Sq9PR0QsjOnTun\n",
       "TZvGljMMM2bMmNDQ0Dt37pw4cWLDhg1Hjhyx2WxjxowZM2bMgwcPXnnlFcehd60K09PT9Xr93Llz\n",
       "x48fX11dzZanp6f/9NNPmZmZ165dY68bdBYeHh4cHDxjxoxvvvmGPXv3oRU2/uyPP/549uzZzMzM\n",
       "KVOmHDt2jP1bYrVa9+zZ43iP0J4hoKFtmDZt2o4dO3788Ud/f3/HFZ6XL1++evXqhx9+6O7uHhYW\n",
       "Nm/evH379p07d660tPT111+XSCRPPfXUiBEj6tY2ceLEjh07SiSS2bNnKxSKrKwstnz+/Pnslc0j\n",
       "R448f/58rVe5u7ufPn3a19d33rx5AQEBSUlJ7NUWjVTY+LMLFiyQy+UikSgoKCguLm7fvn2EkGPH\n",
       "jvn5+TXnLlfwyEBAQ9vw7LPP7t+/f8uWLc6Hlnl5eWazuUePHlFRUVFRUatWraqoqCgsLAwNDXVc\n",
       "ZB8ZGVm3tu3bt/fv35+9XL6wsLCkpIQtZ2/dQBq+WUdoaOinn36anZ2dl5dns9lmzZrVeIWNP+t8\n",
       "4cP06dPZg/2dO3dOnTrVpUGCRw3Og4a2ISAgIDY2ds+ePY5rxgghISEh3t7e165dcyxJE0LS09PZ\n",
       "i7xZ9+7dq5XR2dnZCxYsOHnyZK9evQghkZGRLpxsqtFoZs2aNX/+/IdW2Mizzt0ePXr03Llzr1y5\n",
       "8vXXXy9fvryp/YFHEo6goc1Yt27d8ePHnS8IjomJiYiIeOONNyorK202W2ZmZnp6emxsrEKhOHDg\n",
       "ACEkOzv7yJEjteqpqKjw8PBg10m++uor9u4QXOTk5Lz99tvXr183mUw3b97csGEDeyV94xVybI69\n",
       "un3SpEkDBgwIDQ3l2CV4tOEIGtqM8PBw53vhE0LEYvHBgwf/8pe/dOnSxWw2a7XaJUuWSCSSL7/8\n",
       "cvbs2R988IG/vz973w9nsbGxEydO7N27d0BAQExMDHvPKS7UanVeXl5iYmJRUZGPj8+oUaPYe9c1\n",
       "XiH35qZPn75ly5bPP/+cY3/gkYcrCQFowd7oWafTNf8/9cGjAUscAFSw2+0ff/zxs88+i3QGByxx\n",
       "ALS+qqqqjh07hoWFHTt2rLX7AhTBEgcAAKWwxAEAQCkENAAApRDQAACUQkADAFAKAQ0AQCkENAAA\n",
       "pRDQAACU+n8gmTh606ffjQAAAABJRU5ErkJggg==\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "\n",
    "collegeFrame <- ddply(numericDB,~College,summarize,Median=median(BudgetedSalary))\n",
    "\n",
    "collegeFrame$College <- mapvalues(collegeFrame$College, c(1,2,3,4,5,6,7,8,9,10,11,12),\n",
    "                                  c('Ag', 'Arch', 'Bush', 'Bus', 'Edu',\n",
    "                                    'Eng', 'Geo', 'Health', 'Law', 'Lib', 'Sci',\n",
    "                                    'Vet')) # Map all of the college names\n",
    "\n",
    "collegePlot <- ggplot(collegeFrame, aes(x=reorder(College, -Median), y=Median, fill=College)) + # Use the argument reorder \n",
    "  geom_bar(color=\"black\", stat=\"identity\", width = 0.2) +\n",
    "  guides(fill=FALSE) +\n",
    "  xlab('Median Salary') + \n",
    "  ylab('College/Division') + \n",
    "  ggtitle('Median salary by College')\n",
    "\n",
    " print(collegePlot)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "I had to shorten the names so they would all fit, but hopefully you can understand what they are. Being a professor in the Business school definitely makes a good living! It is far ahead of the other colleges. Engineering isn't far behind, which is understandable, especially since Texas A&M is known for having a large Engineering college. Liberal Arts and Architecture are the lowest paying, which makes sense considering the conventional wisdom regarding salaries in those fields. \n",
    "\n",
    "Last, let's examine salaries for a few departments. To do that, we will need the information from the larger, original dataframe we made that has the department titles."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 82,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "image/png": [
       "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAIAAADytinCAAAgAElEQVR4nO3dfXwU5b3//2t2s7sJ\n",
       "2WxulgSyQBICMQngCTQKiKANUowce0Ck3BQwFG+L3FUr5/RxzgEfHIsUrUC1HilieQAqoEfxhga1\n",
       "WgGlglopN0EJEiIEYghCsjF3ezO/P6bfbX5JCLthZ/fK5vX8a/baa2Y+10z2nclkZlZRVVUAAORj\n",
       "CHcBAID2EdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4Ck\n",
       "CGgAkBQBDQCSIqABQFIENABIioCGv5588smcnBxtetasWdOnTw9vPSGoYdKkSffcc09wl9lyMwId\n",
       "I6Aj2QMPPKAoyvjx41s2/ulPf1IURVEUt9vd6SXfdNNNN99881UXCN1Nnz591qxZkb3GCBYV7gKg\n",
       "rz59+nz44YenTp3KyMjQWtavX5+enl5eXn41i73vvvuCUFzINTY2RkdHh7uKEOlWg41UHEFHuN69\n",
       "e996660bNmzQXlZWVu7cuXPu3Lkt+/zhD38YNGhQdHT0wIEDH3300ebmZq3d5XItXLgwKSkpPj5+\n",
       "7ty533//vW+WlqcX3nrrrTFjxmjdxowZs2/fPl+3SZMmzZkzZ8mSJf369bPb7TNnzqytrW23zvff\n",
       "f3/48OGxsbE2m23YsGF79+694sJb6riGoqKiX/ziFw6HIz09fePGjTabreVYVqxYkZaW5vV6212y\n",
       "1+v91a9+lZKSYrVaf/rTn166dEkIEdBCOtiM4vIbf9KkSbNnz/75z3/ev3//hIQE36oDGuw999yz\n",
       "bdu2F198Ufub6e2339b63H333cuWLevVq5fNZlu0aJHH41mzZk2/fv0SEhLuvvvuxsZGf8prd8+2\n",
       "u0Z0norIdf/99+fn57/xxht9+vRxu92qqq5YseKWW27ZvHmzEMLlcqmq+sQTTzgcjtdee+2bb775\n",
       "4IMPsrKylixZos3+q1/9Kikp6Y033jh16tTSpUutVmt2drb21syZM6dNm6ZNv/jii9u3by8tLf3q\n",
       "q68WLVpks9m+/fZb7a2JEyeaTKZnnnnG5XJVVlZmZ2c/8sgjbetsbGy0Wq3//d//ffr06fLy8jfe\n",
       "eOPTTz+94sIDquHxxx+vr6+vra2tr69PSEh4/vnntXe9Xm9mZuajjz7a7gacOHGi1Wq99957T5w4\n",
       "sXfv3gEDBvzkJz9RVTWghXSwGTvY+BMnTjQajatXr/Z6vd99992NN96orTqgwaqqOm3atJkzZ7Ya\n",
       "VHx8/IIFC44cOfLqq6+azebbbrtt5syZBw8efOeddxITE5988kl/yrvcnm27RnQaAR3JtIB2u90O\n",
       "h+PNN9/UcmTbtm2+gHa5XAkJCVu3bvXN8vrrr8fHx6uq6nK5YmNj165d63tr9OjR7QZ0KxkZGRs3\n",
       "btSmJ06cOHLkSN9bK1asGDp0aNtZzp49K4T4+OOPrziilgv3v4Z/+Zd/afnuwoULR4wYoU3/+c9/\n",
       "NhqNp0+fbnc5EydOTEtL036Tqaq6a9cuRVHKysr8X0gHm7GDja+tOjc31/fWvn37fKsOaLDtBvS1\n",
       "117re3n77bc7HI7m5mbt5QMPPFBYWOhPeZfbswR0EHGKI/IZjcaf/exn69ev/+CDD5xO56RJk3xv\n",
       "lZaWXrp0afr06cr/c8cdd9TU1FRXV5eXl3///fdjxozxdW453dKZM2cefPDBYcOG9enTp3fv3hUV\n",
       "FS1PcLe8YiE5Ofnbb79tu4TU1NSZM2cWFBQUFhauWrWqtLTUz4X72e3aa69t2fmBBx7Yv3//4cOH\n",
       "hRDr168vLCzs27fv5bbe8OHDo6L+8a+aG2+8UVXVkpIS/xfSwWbsYONrHfLy8nxzafGnrTqgwbZr\n",
       "2LBhvmmHwzFkyBCTyeR7qe2jK5bnz57FVSKgu4W77757165d//M//1NUVGQ2m33t2jnTPXv2tPq9\n",
       "3bNnT0VRhBC+z60QouWMLU2YMOHrr7/+3e9+t2/fvoMHD15zzTW+M5VCCKPR2LLz5U71btmyZf/+\n",
       "/WPHjn333XcHDRq0ZcsWfxbuZw2t/leWm5t70003rV+//sKFCzt27OjcPzz9XEgHm7GDja91aDmE\n",
       "ltMBDbZdLetRFKXVS62wK5bn557F1eAqjm6hf//+P/zhD997770//OEPLduzsrJsNttrr73W9ug4\n",
       "LS0tNjb273//+5AhQ7SWgwcPtl1yVVXV4cOHN2zYcP311wsh6urqOn19yNChQ4cOHbpkyZKioqIX\n",
       "Xnhh1qxZfi68EzU88MADDz74YGpqqt1u/9d//dcOeh44cMDj8Whh9PHHHyuKMmjQIP8X0sFm7GDj\n",
       "+1btdru14/ePPvpIW3WggzWbze3+SruiK5YX9DWiLY6gu4sdO3ZcuHDhmmuuadloNpuXLl36zDPP\n",
       "LF++/OjRo8eOHdu6desvfvELIURUVNSiRYuWL1/+zTffCCHefPPN4uLitou12+12u117q7Gx8cEH\n",
       "H2x5DYCfSkpK/uu//mv//v0VFRX79+/fv3+/Fmd+LrwTNdx5551Go/HRRx+dO3duqyPBVi5evHj/\n",
       "/fcfP3589+7dDz744JQpU3wXLPqzkA42YwcbX1NTU3Pfffdpq164cKG26kAHm5mZ+be//a20tLS6\n",
       "utrlcnW8WVq6YnlBXyPaIqC7ix49eiQlJbVtf/jhh59//vkdO3bk5+ePGjVq9erVvhBftmzZrbfe\n",
       "OnTo0H79+v3xj39cvHhx29mNRuP//d//vfbaaw6H49prrx0yZEh+fn6gtVmt1kOHDk2ePDkzM/PO\n",
       "O+8cN27cypUr/V94J2owm81z5sxxu91XvFFwypQpdrt91KhREyZMuP7661v+CeLnQjrYjB1sfG3V\n",
       "ycnJ2qqHDx+urTrQwT7wwAPp6en5+fnJycnvvPNOx4NtpePy9FgjWlFUVQ13DUAYzJ49u7q6ut0/\n",
       "C0K8kHZNmjSpZ8+ezz//fNCXjC6Ec9DodpxO52effbZ9+/a33norvAsBOkZAo9sZNmxYZWXl4sWL\n",
       "Wz2lJPQLATrGKQ4AkFSEHEE7nU6n0xnuKoQQwuFwVFZWRvY1oWazOT4+/vz58+EuRF9xcXEGg6Gm\n",
       "pibchejLbrfX19c3NDSEuxB9SfXBdDgcfvbkKg4AkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIa\n",
       "ACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQi5IH9oXfq1KkjR460\n",
       "bU9MTLx06VLb76nJysrKzs4OSWkAIgQB3UkrV65869BfRc84v3pfrB/tyNq2bZvORQGIKAR0J6mq\n",
       "KqaMELf/wK/ee7/07qrQuSIAkYZz0AAgKQIaACRFQAOApAhoAJAUAQ0AkoqcqzgMhpD+slEURYjW\n",
       "Fzt33D/EFerHYDBE0nAuR1EUhhlJJBlj25skOhA5AW00GkO5OkVRAu0f4gr1o/2gR8xwLkdLrogf\n",
       "phDCYDB0h2EajcZAP7Z68Hg8/neOnIB2uVyhXJ3X6w20f4gr1I+iKKqqRsxwLkfbxRE/TFVVPR5P\n",
       "xA9TCOFyuQL92IadFMf8AIC2CGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAho\n",
       "AJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYA\n",
       "SRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAU\n",
       "AQ0AkooKylIuXrz45ptvVldXWyyWwsLCgQMHCiGOHz9eXFysqmpBQUFeXl4QWwCgOwhOQAshbrnl\n",
       "lr59+1ZVVW3atOnhhx9WVbW4uLioqMhsNq9bty4nJ8dkMgWlxWKxBKtmAJBZcAI6MTExMTFRCJGS\n",
       "kiKEaG5urqqqstvtCQkJQoiMjIyTJ09ardagtOTm5galZgCQXNCOoDVff/11UlKSxWJxOp02m01r\n",
       "tNlsTqdTVdWgtPjW9eKLL545c0abvuGGG0aPHh3csXQsOjpaiAb/+5vN5t69e+tXT4gZDIZIGk67\n",
       "FEURQsTExIS7EH0pimI2m+Pj48NdiO60w8ewa2gIIDeCGdA1NTW7du2aNm1aEJfZgX/7t39zu93a\n",
       "tMfjOX/+fGjWq2lqagqov8vlCnGF+jGbzXFxcRcuXAh3IfqKjY01GAwtjwkiUmJiYkNDQ2NjY7gL\n",
       "0VevXr0uXLjg9XrDXYhQVTU2NtbPzkEL6MbGxpdffvm2227r2bOnECIuLs73k+10Oh0Oh9VqDUqL\n",
       "b41xcXG+aafTGeIPkqqqgfb3eDw6FRNiHo8nkoZzOaqqdpNher3eiB+mEMLj8cgQ0AEJzmV2Ho9n\n",
       "27ZtI0eOzMzM1Fr69OlTXV1dU1NTX19fVlaWmZkZrJagFAwA8gvOEfTJkyfLy8svXLjwwQcfCCHm\n",
       "zp2bkJBQWFi4ceNGr9dbUFCgXXoRrBYA6A6CE9BZWVlLly5t1ZidnZ2dna1HCwB0B9xJCACSIqAB\n",
       "QFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAk\n",
       "RUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIE\n",
       "NABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSUeEuIGgURQn56tSA+oe4Qv1oA4mY\n",
       "4XSMYUaMrvgZjJyAjooK6VgC3dOKooS4Qv0YjcZIGs7lGAwGg8EQ8cNUFMVoNEb8MIUQUVFRXq83\n",
       "3FWIgGqInL3icrlCubpA97TX6w1xhfpRFEVV1YgZzuVouzjih6mqqsfjifhhCiFcLpcMAR0QzkED\n",
       "gKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABI\n",
       "ioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQI\n",
       "aACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJBUV7gIgtQULFpw4caJVo6IoRqPR7Xa3bV+4\n",
       "cGFhYWGoqgMiHAGNjuzZs+fx4UP7xFn96fyHLw4fPXqUgAaChYDGFYx0pGYlJfjTs/jrUzrXAnQv\n",
       "QQvorVu3njp1KjMzc+rUqVrLr3/965iYGCFE3759tcbjx48XFxerqlpQUJCXl9fpFgDoDoIW0CNH\n",
       "jszLyzt8+LCvJTY2dvHixb6XXq+3uLi4qKjIbDavW7cuJyfHZDJ1osVisQSrZgCQWdACOiMj4+TJ\n",
       "kx10qKiosNvtCQkJvs5Wq7UTLbm5ucGqGQBkpuM56Pr6+rVr18bExIwdO3bgwIFOp9Nms2lv2Ww2\n",
       "p9OpqmonWnzLf+WVV86ePatNX3/99SNGjNBvLG1FR0cL0eB/f7PZ3KtXL/3q0YnBENiFmFartSsO\n",
       "s12KoiiKEh0dHe5C9GUwGEwmk+9TFsGSk5PDXYIQQjQ0BJAbOgb0vHnzEhISzp0799JLL82bNy/o\n",
       "yy8oKGhubtamDQbDd999F/RVdMC3aj+53e4QVxgUXq83oP4NDQ1dcZjt6tGjh8FgqKurC3ch+oqP\n",
       "j29sbGxqagp3IfpKTk6+dOlSoD/PevB6vVarX5dFCV0DWjsvkZqampycfOHChbi4ON/xr9PpdDgc\n",
       "Vqu1Ey2+5ffs2dM37XQ6Wx5ch0Cge9rr9bpcLp2KkYfH44mYYWq7OGKGczmqqkbSXuuAy+WSIaAD\n",
       "otedhPX19dqRfHV1dVVVVWJiYp8+faqrq2tqaurr68vKyjIzMzvXolPBACCboB1Bb968+dy5cy6X\n",
       "66mnnpoxY4aiKNu3b3e5XBaLZcKECbGxsUKIwsLCjRs3er3egoIC7WKMzrUAQHcQtICePXt2q5aF\n",
       "Cxe2asnOzs7Ozr76FgDoDnhYEgBIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQA\n",
       "SIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJLyN6A3bdrUqmX9+vXBLgYA8E/+BvTSpUtbtSxZ\n",
       "siTYxQAA/unK36jy2WefCSGam5u1Cc2JEyfi4uJ0rAsAur0rB/SkSZOEEFVVVdqEEMJgMKSkpKxZ\n",
       "s0bf0gCge7tyQJ85c0YIMW/evGeffVb/egAA/+DvOWjSGQBCzN9v9Xa73du2bfviiy/q6up8jc89\n",
       "95w+VQEA/A7ouXPnfvXVV+PGjUtISNC1IACAxt+A3rdv37Fjx0wmk67VAAB8/D0HbbfbFUXRtRQA\n",
       "QEv+HkFPnjx5xowZ8+fPt9vtvsYhQ4boUxUAwO+AXr16tRBi7969LRsrKyuDXxEAQAjhf0CTxQAQ\n",
       "YgE8zW7nzp1z5syZPHmyEOLAgQPvvvuublUBAPwO6NWrVz/00EP5+fkHDx4UQsTGxrZ9fBIAIIj8\n",
       "Deg1a9a89957CxYsMJvNQoicnJyvvvpKz8IAoLvzN6Dr6+tTUlJavoyJidGnJACAEP4H9M0337xs\n",
       "2TKPxyOEUFX10UcfHTdunJ6FAUB35+9VHE8//fTkyZOTkpKamppSU1MHDBiwY8cOXSsDgG7O34BO\n",
       "TU3dt2/foUOHysvL09LS8vLyZLuxMMT1KIoihBpQf9m2mB4ib5gRNpzL6Q7DlOSHU1UDyA1/A1oI\n",
       "oShKXl5eXl5e4CWFQoifExLonlYUpTs8ycRgMETMMI1GY3fYawaDISoqKuKHKYQwmUxerzfcVQjt\n",
       "RLGf/A3o77///vnnn2/1uNFXX301sNL01NzcHMrVBbqnvV5viCsMC4/HEzHDtFgsBoMhYoZzOV6v\n",
       "1+12R/wwhRDNzc0yBHRA/A3o6dOnX7x4cfLkyT169NC1IACAxt+A/stf/vLtt9/GxsbqWg0AwMff\n",
       "y+zy8/PLysp0LQUA0JK/R9BbtmyZNm3a2LFje/fu7WucP3++PlUBAPwO6DVr1hw7dqxnz54nTpzw\n",
       "NRLQAKAffwN63bp1hw8f7t+/v67VAKH33Xff3X333Y2Nja3aDQaDoihtL4qKiop65pln0tPTQ1Ug\n",
       "ui9/A9rhcNhsNl1LAcKiurr6wJcnxbI3/J3ht3POnj1LQCME/A3oxYsXz5gxY8mSJS3PQfOVV4gQ\n",
       "USYxYJi/nS08Jgwh4m9AL1++XAgxa9aslo18zQoA6IevvAIASfl7HfSmTZtataxfvz7YxQAA/snf\n",
       "gG77BVdLliwJdjEAgH+68imOzz77TAjR3NysTWhOnDgRFxenY10A0O1dOaAnTZokhKiqqtImhBAG\n",
       "gyElJWXNmjX6lgYA3duVA/rMmTNCiHnz5j377LP61wMA+Ae/zkG7XK7du3cH9EUAAICr5NdldiaT\n",
       "yWw2u1wus9msd0EA9PDuu+8+9NBDbZ9YbzAYVFVte/jVs2fPPXv2hKo6tM/f66CnTp165513Lly4\n",
       "sHfv3r5ve+JOQqCrqKysvD5+5PIxq/zpXNfsHLdtlKqqMnyJX3fmb0CvXbtWCDF79uyWjdy9AnQh\n",
       "sSZrui3Dn561zbU61wK/cCchAEgqgG/1bmhoOH78eHV1te901bhx4/SpCgDgd0Dv3r176tSpMTEx\n",
       "Z8+e7du3b1lZ2eDBg48cOaJrcQDQnfl7q/fixYsfe+yxU6dOORyOkydPvv766wUFBbpWBgDdnL8B\n",
       "feLEiblz5wohtC+YmDRp0sGDB3WsCwC6PX8DOj4+/sKFC0KIXr16HTlypKGhoaqqSs/CAKC78zeg\n",
       "58yZ8/777wshFixYMHr06AEDBvz4xz/WszAA6O78/SfhY489pk0UFRWNGjWqtrY2Pz9ft6oAAIFc\n",
       "ZueTlZUV9DoAAK34e4qjqalp+fLlgwcPTkxMHDx48GOPPdbc3KxrZQDQzfl7BL1gwYKKioqnnnqq\n",
       "d+/eJ0+eXLFixZkzZ5577jldiwOA7szfgP74448PHTpkNBqFEHl5eWPGjMnOziagAUA//p7isFqt\n",
       "LR9IqKpqUlKSPiUBAITw/wh6woQJEydOnD9/fq9evcrKyp544okFCxb4bvXmuaMAEHT+BvT//u//\n",
       "CiF+9rOf+VpWrFixYsUKbZpn3QFA0PG4UQCQVADXQe/cufOVV16pra197bXXDhw4cOnSpfHjx/ve\n",
       "3bp166lTpzIzM6dOnaq1HD9+vLi4WFXVgoKCvLy8ILYAQHfg7z8JV69e/dBDD+Xn52vPSIqNjV26\n",
       "dGnLDiNHjpw4caLvpdfrLS4uLioquu+++z744IOmpqZgtQRx8AAgM3+PoNesWbN37960tLTf//73\n",
       "QoicnJyvvvqqZYeMjIyTJ0/6XlZUVNjt9oSEBN9bVqs1KC25ubnBGToAyM3fgK6vr09JSWn5MiYm\n",
       "poP+TqfTZrNp0zabzel0qqoalBbfKt58803fmfG8vLwf/OAHfo4lKCwWixCN/vc3m83Jycn61aMT\n",
       "g8Hfv7E0sbGxXW6Y1dXVgc4SHx/f5YZptVoDnSU5OTmSvjTWbreHuwQhhGhsDCA3/A3om2++edmy\n",
       "ZdplG6qqPvroo2H/vqvrrrvON1SLxVJbG9KvuXS73YH2D3GFQeH1egPq39TU1OWGWVdXF+gs9fX1\n",
       "XW6YAeWCpra2NmIC2m63awd84S5EeDyeuLg4Pzv7G9BPP/305MmTk5KSmpqaUlNTBwwYsGPHjg76\n",
       "x8XF+Y52nU6nw+GwWq1BafGtouW00+lseXAdAtoXF/jP6/V2hxPobre7yw2zE0+VcblcXW6YgR5S\n",
       "CCGampoiJqCFEM3NzYEecISdvwGdmpq6b9++Q4cOlZeXp6Wl5eXldbzn+vTpU11dXVNTYzKZysrK\n",
       "brvtNpPJFJSWYIwaALoAfwP6008/3bt378WLF5OSkhwOR9t03rx587lz51wu11NPPTVjxozU1NTC\n",
       "wsKNGzd6vd6CggKLxSKECFYLAHQHVw5ot9s9bdq0HTt2ZGZmOhyOs2fP/vKXv5w6deqWLVu0Zydp\n",
       "Zs+e3WrG7Ozs7OxsPVoAoDu48v/on3766S+++OLzzz8vLS3dvXt3aWnpp59++te//lW7+RsAoJMr\n",
       "B/TLL7+8atWqoUOH+lp+8IMfrFq1asuWLXoWBgDd3ZUD+ssvv7zhhhtaNd5www3Hjh3TpyQAgBD+\n",
       "BLTT6ezVq1erxtTU1BBf1gYA3Y1fV3G89NJLre4o83q9MlzyDQAR7MoBPXjw4FWrVrXbrkM9AIB/\n",
       "uHJA+742BQAQSoE9CgcAEDIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQA\n",
       "SIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUn59JyEAdAkrV67ctGlT23aDweD1etu2\n",
       "FxYWPvXUU/rX1UkENIDI8c033/xofM0No/zqfPSoKDlSrnNFV4WABhBR4uJESopfPc+c0bmUq8Y5\n",
       "aACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkIudGFYvFEsrVGY1GIdz+9zcYDCGu\n",
       "MCyioqK63DDNZnOgs5hMpi43zKiogD/sFotFURQ9itGPwRDYQaeiKCHelR6Px//OkRPQTU1NoVxd\n",
       "QFtZCOH1ekNcYVi43e4uN8zm5uZAZ3G5XF1umG53AMcTmqampi4X0O0+cKMDqqrKvCs5xQEAkiKg\n",
       "AUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoA\n",
       "JEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBS\n",
       "BDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEgqSr9F//rXv46JiRFC9O3b\n",
       "d+rUqUKI48ePFxcXq6paUFCQl5fX6RYA6A50DOjY2NjFixf7Xnq93uLi4qKiIrPZvG7dupycHJPJ\n",
       "1IkWi8WiX80AIA8dA7qViooKu92ekJAghMjIyDh58qTVau1ES25ubshqBoAw0jGg6+vr165dGxMT\n",
       "M3bs2IEDBzqdTpvNpr1ls9mcTqeqqp1o8S1/165dVVVV2vTgwYOHDBmi31jaslgsQjT6399kMtnt\n",
       "dv3q0YmiKAH179GjR5cbpvbrPyA2m63LDTM2NjbQWex2e6A/AGEX6F/YUVFRId6VjY0B5IaOAT1v\n",
       "3ryEhIRz58699NJL8+bNC/rys7Oz+/Xrp03HxcXV19cHfRUdcLvdAfX3er0hrjAsXC5XlxtmQB8Y\n",
       "3yxdbpjNzc2BzlJfX9/lAlr+D2ZAFeoY0NqBSWpqanJy8oULF+Li4nzHv06n0+FwWK3WTrT4lt+/\n",
       "f3/ftNPpbHlwHQIejyfQ/g0NDToVox9VVQPq73K5utwwOxHQzc3NXW6YLpcr0FkaGhq6XEAH+sH0\n",
       "er0y70q9LrOrr6/Xhl1dXV1VVZWYmNinT5/q6uqampr6+vqysrLMzMzOtehUMADIRq8j6Nra2u3b\n",
       "t7tcLovFMmHCBO38V2Fh4caNG71eb0FBgXaqqHMtANAd6BXQvXv3XrhwYavG7Ozs7Ozsq28BgO6A\n",
       "OwkBQFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkC\n",
       "GgAkRUADgKQIaACQFAENAJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqAB\n",
       "QFIENABIioAGAEkR0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJRYW7gKCxWCyh\n",
       "XJ3RaBTC7X9/g8EQ4grDIioqqssN02w2BzqLyWTqcsOMigr4w26xWBRF0aMY/RgMgR10KooS4l3p\n",
       "8Xj87xw5Ad3U1BTK1QW0lYUQXq83xBWGhQOoKLoAAA4uSURBVNvt7nLDbG5uDnQWl8vV5Ybpdgdw\n",
       "PKFpamrqcgHt9XoD6q+qqsy7klMcACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR\n",
       "0AAgKQIaACRFQAOApAhoAJAUAQ0AkiKgAUBSBDQASIqABgBJEdAAICkCGgAkRUADgKQIaACQFAEN\n",
       "AJIioAFAUgQ0AEiKgAYASRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0AAg\n",
       "KQIaACRFQAOApKLCXcCVHT9+vLi4WFXVgoKCvLy8cJcDACEie0B7vd7i4uKioiKz2bxu3bqcnByL\n",
       "xRLuogAgFGQ/xVFRUWG32xMSEnr06JGRkXHy5MlwVwQAISL7EbTT6bTZbNq0zWZzOp2+t/7yl79U\n",
       "V1dr01lZWdnZ2aEszGw2i7f+Kj4v86v3+VpTzwGJiYk6FxV8iqI8/P6eOLPJn85/r6qedmtMlxum\n",
       "zWYTdZfEE7P8naGqPC4urssNMzY29kDlJ/e9c5c/nV1elxAiMTFRURSd6woys9n8lw/E0aN+db50\n",
       "UaSkRIV4VzY1NfnfWfaA7oDD4fBld3x8fEDDvno///nPxxwZ07a9R48eDQ0Nqqq2as/KygpxhUGx\n",
       "evXq8+fPt2o0Go0mk6mxsbFV+2ghRo8e3eWG2bdv37VPrPR6va3aTSaToijNzc2tZ5gyZtCgQV1u\n",
       "mGPHjvUs97Rtj46OdrlcHk/rt6bETWpn7NK7//77R40a1bb9ch/MgQMHhnhXut1u/zsrbSuWyunT\n",
       "p/fs2TNz5kwhxI4dO7Kzs3Nzc9t2czqdLQ+uw8jhcFRWVrb9tEcSs9kcHx/fNrgjTFxcnMFgqKmp\n",
       "CXch+rLb7fX19Q0NDeEuRF9SfTAdDoefPWU/B92nT5/q6uqampr6+vqysrLMzMxwVwQAISL7KQ6D\n",
       "wVBYWLhx40av11tQUMAlHAC6D9kDWgiRnZ0d4n8AAoAMZD/FAQDdFgENAJIioAFAUgQ0AEiKgAYA\n",
       "SRHQACApAhoAJEVAA4CkCGgAkBQBDQCSIqABQFIENABIioAGAEkR0EG2c+dOl8sV7ir0dfHixY8+\n",
       "+ijcVeju66+/PnbsWLir0N2nn35aWVkZ7ip096c//akrfkFMF3jcqD/i4uLi4uLCXYUQQqxfv37s\n",
       "2LExMTHhLkRH5eXlX375ZUFBQbgL0VdpaWl9ff11110X7kL09ec//zkpKcn/7/joop5//vkf/vCH\n",
       "PXr0CHchgeEIGgAkRUADgKQi5BSHPDIzMw2GCP+1Fx0d3bdv33BXobvExMTIPlWlSU1NjY2NDXcV\n",
       "uuuiH0zZv9UbALqtrvcrBQC6CQIaACTFOejOa2xsXLVqldVqFUKYTKYFCxY0NjY+++yzDz30UGNj\n",
       "48qVK8ePHz9q1CghxNatW0eNGpWWlhbukq+stra2uLj4m2++iY6OTk9PLywsNJvNNTU1b7/9dmVl\n",
       "pdFoHD58uDYobYxjxoy55ZZbhBCnT5/esGHDlClTBg4cuGrVKpvNpqpqdnb2hAkTwj2mf+i4YG0/\n",
       "CiHGjx//7rvvav0NBoPZbLZarXfddVfLPrfddltubm67m0VCH3744d///nchhNVqnTJlyoYNG8T/\n",
       "f3T33XffgQMH3n///UceeUQI8bvf/a5th/AOwU8tP5JCiNtuu61///7tfhKdTmdxcXF5ebnFYrHb\n",
       "7T/60Y9SUlLCWnv7COirYrVaH3rooXbf6tGjx+effz5ixAij0Rjiqq7Gtm3bBg8e/JOf/ERRlJKS\n",
       "ku+//95sNm/fvn3YsGEzZ85saGjYsmVLfHz84MGDhRDx8fEnT57U8u7o0aO+H3Gr1bp48WKXy/XC\n",
       "Cy+cOHFi4MCB4RxSCx0U3HI/DhkyRAjx7rvvJiUladdBNzY2tt3Xl9ssUjl9+nRpaem8efNMJtP5\n",
       "8+ejo6O1UbQcnRCipKSkX79+J06cyMnJabdDV9FqNzU2Nrb7Sdy2bduQIUOmTJliMBjKy8urqqrk\n",
       "DGhOceglOjq6f//+hw8fDnchASgvLxdCjBo1ymAwKIoyePDgxMRErVH7oMbExIwfP37fvn1af6PR\n",
       "aLfbq6qqVFU9ffp0enp6y6WZTKZ+/fpdvHgx5OO4rI4LDkgHm0UqdXV1cXFxJpNJCJGcnGyxWNrt\n",
       "09jYOGrUqKNHj4a8QN21/SRq+27kyJHadR3p6enar2QJcQR9Verq6tasWSOEuOaaa9r+LT9q1Kht\n",
       "27bl5eWFo7TOOH/+fGpqatvGlreZpaamVldX+17m5uaWlJQMHDjQ4XAoitJyxubm5vLy8tzcXF1r\n",
       "DlS7Bfv2oxBi2rRpbTdC2z4dbxZ5ZGZmfvjhh+vWrcvMzMzLy2v3OLGkpCQnJycjI+PNN990u91R\n",
       "UV04FlrtpsTERNHmk1hdXd3uLpZQF94TMtD+lr/cu0lJSXa7vbS0NJQlhdjAgQM//vjj5ubmQYMG\n",
       "+Z5cUVdX98wzzyiKMmjQoP79+4e3wlbaLbjj/dhun4qKCh2rDB6LxXL//fefPn36xIkTf/zjH2fN\n",
       "mtWnT59WfY4ePTphwgSDwZCRkaGd5QhLqUHRajc1NjaKDj+JmzdvPn/+fFZW1o9//OPQVek3Alpf\n",
       "o0ePfuedd7rK/Q7JyclffPFFx43nzp3r2bOn76XJZIqPjz9+/Pi4ceNa5t38+fNDUHAntFtwJ3S8\n",
       "WaRiMBjS09PT09MNBsNXX33VKqDr6uoqKipefvllIYTL5fJ4PF06oC+n5SexZ8+evn03e/bs48eP\n",
       "HzlyJKzVXRYBrS+Hw2EwGM6ePRvuQvyiXWfyySefjBgxQlXVw4cPp6Wlpaenq6r62WefXXfddQ0N\n",
       "De+9994NN9zQcq7Ro0dfunSpC92mFZSCr7hZJFFVVSWESElJ8Xg8lZWV11xzTasOJSUlI0eOHDdu\n",
       "nBDC4/GsXbu2q5/laFfLT2JaWpqqqp988snw4cMNBoN2lC2nSNsNErrxxhu3bNkS7ir8oijK1KlT\n",
       "i4uL9+7dazKZBgwYoJ1BnjZt2ltvvbV7926DwTB8+PBW/1FJTU3tKmf0NG0Lrqure+qpp7Tpm266\n",
       "qd1LF9r26XizSMLr9e7cudPpdCqK0r9//6FDh7bqcPToUS2dhRBGozEtLa20tFS2/xz4r9VuarlT\n",
       "fJ9ERVGmTZtWXFy8Z8+e2NjYxMTEsWPHhqfcK+FWbwCQVJf5sxQAuhsCGhHul7/85X/8x39o0xkZ\n",
       "GZ999lnIVh3i1SHyENCQ3ZAhQ7TbvXwtY8aMURTl4MGDgS5q+fLlV3NzihDik08+uemmm+Li4hIT\n",
       "E2+88cbdu3dfzdKAjhHQ6AKysrJ8/2g9efLkmTNnzGZzJ5Zz1113JScnd7qMxsbG22+/fcKECRUV\n",
       "FV9//fV//ud/BuVqB7fbffULQUQioNEFzJo1a/Pmzdr0pk2bZs2a5bsJ8Ntvv506dWpKSkpGRsbq\n",
       "1au1xpKSkhEjRsTHx99+++2XLl3yLcd3zmHp0qXp6elxcXHDhg3zHQX37t37N7/5zfDhw7OysubM\n",
       "mdM2N0+dOnXhwoXFixfbbLakpKQJEybceOON2lvtLtDncqt7/PHHhw4deu211z7xxBN33nmnr//C\n",
       "hQsXLVp01ZsNXR4BjS4gNzfXarUeOHBACLFly5a77rpLa1dV9Y477khLS/vmm29279793HPP7dy5\n",
       "0+Px3HHHHXfcccd33323YMGCdq9xzM3NPXDgwKVLl+bNmzd16tSGhgat/cCBAx9//HFJScmxY8e2\n",
       "b9/eaq6MjIw+ffrMmTPnnXfeafWMkcstsON3P/roo/3795eUlMyaNWvXrl3a7xK3271161bfGNGd\n",
       "EdDoGu66667Nmzd/9NFHycnJWVlZWuOhQ4eOHj36m9/8Rns46vz581955ZXPP//8woULjzzyiNFo\n",
       "vPXWW7Vn17UyY8aMXr16GY3Ge++9NyYm5vjx41r7woULTSaTyWQaN27c3/72t1ZzRUdH79u3z263\n",
       "z58/PyUlZcKECadPn+54gR2/u2jRIovFoihKamrqmDFjXnnlFSHErl27evbsmZ+fH7yNh66KgEbX\n",
       "MH369FdffXXDhg0tDy3Ly8ubmpoGDx6ck5OTk5OzevXq2tras2fPpqWl+Z4tmZmZ2XZpmzZtuv76\n",
       "6/v165eRkXH27Fnfc47sdrs2ERMTU1dX13bGtLS03//+96WlpeXl5R6P55577ul4gR2/2/J+maKi\n",
       "Iu1gf8uWLbNnz+7URkKk4U5CdA0pKSn5+flbt2713ScmhOjXr19CQsKxY8daPkjvwIED2v3Nmm+/\n",
       "/bZVRpeWli5atGjPnj3XXnutECIzM7MTt2s5HI577rln4cKFV1xgB++2LHvSpEnz5s07cuTI22+/\n",
       "vWrVqkDrQUTiCBpdxjPPPPPhhx9qD5DU5OXl9e/f/9///d/r6uo8Hk9JScmBAwfy8/NjYmJee+01\n",
       "IURpaenOnTtbLae2trZHjx7aeZK33nqrrKzMzwLKysqWLVv25ZdfNjY2njhx4rnnnhsxYsQVF+jn\n",
       "6mJiYu68886f/vSnw4cP7xJfvoMQ4AgaXUZGRkZGRkbLFoPBsGPHjocffnjgwIFNTU3Z2dnLly83\n",
       "Go2vv/76vffeu3LlyuTk5IkTJ7ZaTn5+/owZM4YOHZqSkpKXl+f/16DYbLby8vLCwsJz584lJSX9\n",
       "6Ec/evLJJ6+4QP9XV1RUtGHDhhdeeMHPehDxeBYHIIvTp09nZ2dXVlbabLZw1wIpcIoDkILX6/3t\n",
       "b387ffp00hk+nOIAwu/777/v1atXenr6rl27wl0LJMIpDgCQFKc4AEBSBDQASIqABgBJEdAAICkC\n",
       "GgAkRUADgKQIaACQ1P8HbUdyZ/K4+0oAAAAASUVORK5CYII=\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "%%R\n",
    "\n",
    "sortedDept <- ddply(salaryDB,~Dept,summarize,median=median(BudgetedSalary)) # Get the median salaries by department\n",
    "\n",
    "\n",
    "# Pick a few major departments that aren't admin or academic coordinators. We will use grep to find them. \n",
    "\n",
    "deptList <- c('FINANCE', 'COMPUTER', \n",
    "              'ENGLISH', 'STATISTICS', 'METEOR')\n",
    "\n",
    "deptFrame <- sortedDept[grep(paste(deptList, collapse = '|'), sortedDept$Dept),]\n",
    "\n",
    "deptFrame$Dept <- mapvalues(deptFrame$Dept, c('DEPT OF STATISTICS', 'ENGLISH', 'FINANCE',\n",
    "                                             'HD, COMPUTER SCI', 'METEOROLOGY'),\n",
    "                            c('STAT', 'ENG', 'FIN', 'COMP', 'METEO')) # To make the titles visible\n",
    "\n",
    "deptPlot <- ggplot(deptFrame, aes(x=reorder(Dept, -median), y=median, fill=Dept)) +\n",
    "  geom_bar(color=\"black\", stat=\"identity\", width = 0.2) +\n",
    "  guides(fill=FALSE) +\n",
    "  xlab('Median Salary') + \n",
    "  ylab('Department') + \n",
    "  ggtitle('Median salary by department')\n",
    "\n",
    "print(deptPlot)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "As you can see in the code, FIN = Finance, COMP = Computer Science, METEO = Meteorology, STAT = Statistics, and ENG = English. My current field, Meteorology, falls somewhere in between Computer Science and Statistics (the two main branches of Data Science). Finance sure pays a lot, while English not quite as much. \n",
    "\n",
    "Our last step for finishing with R is to output our final numeric dataframe and save it as a .csv, where Python will take over for the machine learning portion of this notebook. We are going to save two different dataframes. The first will be our numeric frame, while the second will be a lookup table we can create easily for Python. This will come in handy later when we implement our machine learning algorithm. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 83,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "%%R\n",
    "\n",
    "# First, create a new data frame that only extracts the dept name, dept id, and college number. \n",
    "\n",
    "lookupFrame <- subset(salaryDB, select = c(Dept, College, DeptCode))\n",
    "lookupFrame <- unique(lookupFrame) # Get the unique values only\n",
    "write.csv(lookupFrame, 'DeptLookup.csv') # save it\n",
    "write.csv(numericDB, 'FinalSalaryFrame.csv') # save our numeric frame"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## EDA Summary and Conclusions"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We have obtained an external data source, cleaned it up, transformed the data, added new features, and did some exploration of the data. Believe it or not, this work actually ends up taking most of a Data Scientist's time! It is very important, as good features make machine learning algorithms work far better than which model you end up choosing, so it is a step that is worth the time investment. \n",
    "\n",
    "We will now start Part 2 of this notebook: how to take this new dataset and make a predictive model out of it that we can actually use. While this work could be done in R, I personally think Python has better Machine Learning capabilities and can be more easily integrated into existing code than R can."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Part 2: Regression Model to Predict Salaries at Texas A&M"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now, it is time to switch gears a bit and move back to Python. Our goal is to make a regression model that can be used to predict what your salary would be if you were to become a faculty member at Texas A&M. \n",
    "\n",
    "We have done most of the necessary preparation already, but a little more remains. First, let's load our two .csv files into Python via the pandas library. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 84,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<div style=\"max-height:1000px;max-width:1500px;overflow:auto;\">\n",
       "<table border=\"1\" class=\"dataframe\">\n",
       "  <thead>\n",
       "    <tr style=\"text-align: right;\">\n",
       "      <th></th>\n",
       "      <th>Unnamed: 0</th>\n",
       "      <th>Race</th>\n",
       "      <th>YearsWorked</th>\n",
       "      <th>BudgetedSalary</th>\n",
       "      <th>College</th>\n",
       "      <th>Rank</th>\n",
       "      <th>SexCode</th>\n",
       "      <th>DeptCode</th>\n",
       "    </tr>\n",
       "  </thead>\n",
       "  <tbody>\n",
       "    <tr>\n",
       "      <th>0</th>\n",
       "      <td> 5892</td>\n",
       "      <td> 4</td>\n",
       "      <td> 20.583562</td>\n",
       "      <td> 107362</td>\n",
       "      <td> 8</td>\n",
       "      <td> 2</td>\n",
       "      <td> 1</td>\n",
       "      <td>  93</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>1</th>\n",
       "      <td> 5896</td>\n",
       "      <td> 1</td>\n",
       "      <td> 10.589041</td>\n",
       "      <td> 185001</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 1</td>\n",
       "      <td> 113</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>2</th>\n",
       "      <td> 5905</td>\n",
       "      <td> 1</td>\n",
       "      <td>  0.271233</td>\n",
       "      <td>  92500</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 1</td>\n",
       "      <td>  94</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>3</th>\n",
       "      <td> 5908</td>\n",
       "      <td> 3</td>\n",
       "      <td>  5.958904</td>\n",
       "      <td>  88642</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 0</td>\n",
       "      <td>  83</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>4</th>\n",
       "      <td> 5910</td>\n",
       "      <td> 1</td>\n",
       "      <td> 12.884932</td>\n",
       "      <td> 113130</td>\n",
       "      <td> 8</td>\n",
       "      <td> 2</td>\n",
       "      <td> 0</td>\n",
       "      <td>  58</td>\n",
       "    </tr>\n",
       "  </tbody>\n",
       "</table>\n",
       "</div>"
      ],
      "text/plain": [
       "   Unnamed: 0  Race  YearsWorked  BudgetedSalary  College  Rank  SexCode  \\\n",
       "0        5892     4    20.583562          107362        8     2        1   \n",
       "1        5896     1    10.589041          185001        8     1        1   \n",
       "2        5905     1     0.271233           92500        8     1        1   \n",
       "3        5908     3     5.958904           88642        8     1        0   \n",
       "4        5910     1    12.884932          113130        8     2        0   \n",
       "\n",
       "   DeptCode  \n",
       "0        93  \n",
       "1       113  \n",
       "2        94  \n",
       "3        83  \n",
       "4        58  "
      ]
     },
     "execution_count": 84,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "# Load our data into a pandas dataframe first. \n",
    "\n",
    "salaryDF = pd.read_csv('FinalSalaryFrame.csv', header = 0)\n",
    "salaryDF.head()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Looks like there is an extra column pandas read in. We don't want that, so let's get rid of it."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 85,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<div style=\"max-height:1000px;max-width:1500px;overflow:auto;\">\n",
       "<table border=\"1\" class=\"dataframe\">\n",
       "  <thead>\n",
       "    <tr style=\"text-align: right;\">\n",
       "      <th></th>\n",
       "      <th>Race</th>\n",
       "      <th>YearsWorked</th>\n",
       "      <th>BudgetedSalary</th>\n",
       "      <th>College</th>\n",
       "      <th>Rank</th>\n",
       "      <th>SexCode</th>\n",
       "      <th>DeptCode</th>\n",
       "    </tr>\n",
       "  </thead>\n",
       "  <tbody>\n",
       "    <tr>\n",
       "      <th>0</th>\n",
       "      <td> 4</td>\n",
       "      <td> 20.583562</td>\n",
       "      <td> 107362</td>\n",
       "      <td> 8</td>\n",
       "      <td> 2</td>\n",
       "      <td> 1</td>\n",
       "      <td>  93</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>1</th>\n",
       "      <td> 1</td>\n",
       "      <td> 10.589041</td>\n",
       "      <td> 185001</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 1</td>\n",
       "      <td> 113</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>2</th>\n",
       "      <td> 1</td>\n",
       "      <td>  0.271233</td>\n",
       "      <td>  92500</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 1</td>\n",
       "      <td>  94</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>3</th>\n",
       "      <td> 3</td>\n",
       "      <td>  5.958904</td>\n",
       "      <td>  88642</td>\n",
       "      <td> 8</td>\n",
       "      <td> 1</td>\n",
       "      <td> 0</td>\n",
       "      <td>  83</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>4</th>\n",
       "      <td> 1</td>\n",
       "      <td> 12.884932</td>\n",
       "      <td> 113130</td>\n",
       "      <td> 8</td>\n",
       "      <td> 2</td>\n",
       "      <td> 0</td>\n",
       "      <td>  58</td>\n",
       "    </tr>\n",
       "  </tbody>\n",
       "</table>\n",
       "</div>"
      ],
      "text/plain": [
       "   Race  YearsWorked  BudgetedSalary  College  Rank  SexCode  DeptCode\n",
       "0     4    20.583562          107362        8     2        1        93\n",
       "1     1    10.589041          185001        8     1        1       113\n",
       "2     1     0.271233           92500        8     1        1        94\n",
       "3     3     5.958904           88642        8     1        0        83\n",
       "4     1    12.884932          113130        8     2        0        58"
      ]
     },
     "execution_count": 85,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "salaryDF.drop(salaryDF.columns[0], axis = 1, inplace = True)\n",
    "salaryDF.head()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's repeat this procedure with our lookup table we will use later."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 86,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "lookup_table = pd.read_csv('DeptLookup.csv', header = 0)\n",
    "lookup_table.drop(lookup_table.columns[0], axis = 1, inplace = True)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We want to try a couple of different machine learning algorithms for this project. If we were only using a tree method (such as Random Forests or Gradient Boosted Regression Trees), we wouldn't need to alter our data: just run it as is. This is what is convenient about tree methods. However, it may be helpful to also have another algorithm to compare to, such as linear regression. If you are going to use regularization with linear regression (you should!), it requires us to apply two things:\n",
    "\n",
    "- Feature Scaling\n",
    "- One-Hot Encoding\n",
    "\n",
    "Trees don't care about this, but to set the proper weights for the features in linear regression (and apply regularization appropriately), [we need to scale our numerical features](http://scikit-learn.org/stable/modules/preprocessing.html). We need One-Hot Encoding for the categorical features because otherwise linear regression will think College 8 is greater than College 1. That isn't really a comparison; they should be treated equally by the regressor. \n",
    "\n",
    "\n",
    "Let's take care of this now while we can.\n",
    "\n",
    "First, let's take care of the One-Hot Encoding. We only need to apply this to the categorical variables."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 87,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "from sklearn.preprocessing import OneHotEncoder\n",
    "\n",
    "# Get the categorical features only\n",
    "\n",
    "categDF = salaryDF[['Race', 'College', 'Rank', 'SexCode', 'DeptCode']]\n",
    "encoder = OneHotEncoder() # Create the encoder object\n",
    "categDF_encoded = encoder.fit_transform(categDF).toarray() # want it as numpy array since it is not too large \n",
    "                                                            # tree algorithms in scikit-learn can't use sparse arrays yet    "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now that all of our categorical variables are in zeros and ones, let's add our last feature to the numpy array to create our final feature matrix."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 88,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "yrs_worked = salaryDF['YearsWorked'].values\n",
    "\n",
    "# Now combine this with the rest of our features.\n",
    "\n",
    "import numpy as np\n",
    "\n",
    "x_final = np.c_[yrs_worked, categDF_encoded]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Let's get our salaries as the target. Then, we can create our train/test split."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 89,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "y_final = salaryDF['BudgetedSalary'].values\n",
    "\n",
    "from sklearn.cross_validation import train_test_split\n",
    "x_train, x_test, y_train, y_test = train_test_split(x_final, y_final, test_size = 0.2, random_state = 0) \n",
    "# We now have our train/test splits"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "What about the feature scaling I talked about earlier?\n",
    "\n",
    "What a lot of people do is scale the features first, then split into test and training sets. It's easier to do, but this is a bad habit.\n",
    "\n",
    "DO NOT APPLY THE SAME SCALING TO YOUR TRAINING AND TEST SETS! This is a very common mistake and terribly easy to make. The reason you don't do this is because otherwise the mean and standard deviation being calculated for the scaling includes data from the test set (which in theory you aren't supposed to have access to when building the model!)\n",
    "\n",
    "Instead, what is more \"fair\" is to first scale your training set only. Then, apply the exact same scaling to the test set, using the training set average and standard deviation instead. This way, the model won't be unfairly biased by information in the test set. Let's do that here."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 90,
   "metadata": {
    "collapsed": false
   },
   "outputs": [],
   "source": [
    "from sklearn.preprocessing import StandardScaler # Get the scaler class\n",
    "\n",
    "scaler = StandardScaler() # Create our scaling object\n",
    "x_train[:,0] = scaler.fit_transform(x_train[:,0]) # Replace our YearsWorked column with the scaled values.\n",
    "x_test[:,0] = scaler.transform(x_test[:,0]) # Apply same transformation to our test values."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "You don't need to apply feature scaling to the target, however, so our work is done. Now we have our arrays ready to go in the proper format."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Creating Our Models"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Similar to the first project I showed regarding classification of movie reviews, we are going to use GridSearch from scikit-learn to help tune our models.\n",
    "\n",
    "The first model we are going to try to start with is linear regression with L2 regularization (also known as [ridge regression](http://scikit-learn.org/stable/modules/generated/sklearn.linear_model.Ridge.html#sklearn.linear_model.Ridge)). There is a built-in normalization (feature scaling) option, but since we also have categorical variables that are one-hot encoded, this wouldn't work very well. \n",
    "\n",
    "Let's set up a ridge regressor with 10 different values for the regularization parameter (alpha). You will need to wait about 30 seconds or so for all of the grid search runs to be completed."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 91,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Mean absolute error of ridge regression was:\n",
      "20088.8770539\n"
     ]
    }
   ],
   "source": [
    "from sklearn.grid_search import GridSearchCV\n",
    "from sklearn.linear_model import Ridge\n",
    "from sklearn.metrics import mean_absolute_error\n",
    "\n",
    "ridge_params = {'alpha':np.linspace(1,10,10)} # Try alpha values ranging from 1 to 10.\n",
    "\n",
    "ridge_model = GridSearchCV(Ridge(), ridge_params, scoring = 'mean_absolute_error', cv = 20) # Run a grid search on all 10, with 20-fold\n",
    "                                                                                            # cross-validation\n",
    "\n",
    "\n",
    "# Fit the model. \n",
    "\n",
    "ridge_model.fit(x_train, y_train)\n",
    "\n",
    "# See how well it did.\n",
    "\n",
    "y_true, y_pred = y_test, ridge_model.predict(x_test)\n",
    "\n",
    "print 'Mean absolute error of ridge regression was:'\n",
    "print(mean_absolute_error(y_true, y_pred))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Okay, now we have a model as a baseline to compare against. Typically, [Gradient Boosted Regression Trees](http://scikit-learn.org/stable/modules/generated/sklearn.ensemble.GradientBoostingRegressor.html#sklearn.ensemble.GradientBoostingRegressor) are the go-to solution for any regression problem that doesn't involve a large number of training examples/features (greater than 100,000 or so). They allow non-linear interactions between features that linear regression can't do, so it tends to be more accurate. \n",
    "\n",
    "However, it requires a LOT of tuning for maximum optimization. I spent a fair amount of time trying several different settings to see what worked the best, so it will save us some time here. Let's now use the GBRT model and see if it improves our mean absolute error. This is a more complicated model than ridge regression, so we will have to wait longer for it to be finished."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 92,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Mean absolute error of GBRT was:\n",
      "20249.1455361\n"
     ]
    }
   ],
   "source": [
    "from sklearn.ensemble import GradientBoostingRegressor as GBRT\n",
    "\n",
    "gbrt_params = {'learning_rate':[0.01], \n",
    "                'max_depth':[6],\n",
    "                'min_samples_leaf':[3],\n",
    "                'n_estimators':[1000]} \n",
    "                # Found these after a lot of experimentation with gridsearch. You can try tuning these to see what results you get.\n",
    "    \n",
    "model_gbrt = GridSearchCV(GBRT(random_state = 0), gbrt_params, scoring = 'mean_absolute_error') \n",
    "                                                  # Turned off CV since I already tested this\n",
    "                                                             \n",
    "model_gbrt.fit(x_train, y_train) \n",
    "\n",
    "y_true, y_pred = y_test, model_gbrt.predict(x_test)\n",
    "print 'Mean absolute error of GBRT was:'\n",
    "print(mean_absolute_error(y_true, y_pred))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Well that is a little surprising! This is an unexpected result. I tried a lot of different parameters and nothing seems to improve over the ridge regression model. Let's try another model: [random forests](http://scikit-learn.org/stable/modules/generated/sklearn.ensemble.RandomForestRegressor.html). These tend to not work as well for regression problems, but since our GBRT model didn't improve upon the benchmark, let's give them a try. \n",
    "\n",
    "Fortunately, these don't require as much tuning and tend to run faster as they can be run in parallel if you have multiple cores. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 98,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Mean absolute error of RFR was:\n",
      "20329.1548981\n"
     ]
    }
   ],
   "source": [
    "from sklearn.ensemble import RandomForestRegressor as RFR\n",
    "\n",
    "rfr_params = {'min_samples_leaf':[1,3,5],\n",
    "              'n_estimators':[100,300,500]}\n",
    "\n",
    "model_rfr = GridSearchCV(RFR(random_state = 0), rfr_params, scoring = 'mean_absolute_error', cv = 5, n_jobs = -1) \n",
    "# n_jobs = -1 allows you to parallelize grid search to the number of cores on your machine\n",
    "                                                                                                          \n",
    "\n",
    "model_rfr.fit(x_train, y_train)\n",
    "\n",
    "y_true, y_pred = y_test, model_rfr.predict(x_test)\n",
    "\n",
    "print 'Mean absolute error of RFR was:'\n",
    "print(mean_absolute_error(y_true, y_pred))              "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "No, Random Forests didn't improve our mean absolute error. We need to stick to the ridge regressor. \n",
    "\n",
    "Now that we know which model works the best, it would be nice to create a function that allows us to try different input combinations for the model. We will work on this in the next segment."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "##Function Implementation"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We are now going to create a function to output the results of our model for any combination of parameters we choose. The function will request inputs of race, years of experience, rank (assistant, associate, full), sex, and the department. \n",
    "\n",
    "The function will automatically find the associated college from the lookup table we loaded earlier, recombine our inputs and change them to the proper format. Then, the final predicted salary will be displayed. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 99,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "def salary_prediction(race = 'W', yrs_experience = 5.0, rank = 'AST', sex = 'M',\n",
    "                      dept = 'English'):\n",
    "    '''\n",
    "    This function will allow you to predict a faculty member's salary based upon the parameters entered.\n",
    "    \n",
    "    Inputs:\n",
    "        Race (B for black, W for white, A for Asian, and H for hispanic)\n",
    "        Years of Experience (input as a decimal, such as 5.2)\n",
    "        Tenure rank (AST for assistant, ASC for associate, and FUL for full)\n",
    "        Sex (M for male, F for female)\n",
    "        Department (Enter as a string. Function will convert to all capital letters and find\n",
    "                the college and department code automatically from the lookup table.\n",
    "                If there is more than one matching department from the title you entered,\n",
    "                you will given the names and asked to enter again, being more specific.)\n",
    "                For parts of words that are in multiple departments exactly (such as BIOLOGY),\n",
    "                use the regex format ^BIOLOGY instead.\n",
    "    \n",
    "    Output: Predicted annual salary based on our best model (ridge regression).\n",
    "    '''\n",
    "\n",
    "    # Create empty array for storage.\n",
    "\n",
    "    info_store = np.zeros(5)\n",
    "\n",
    "    # Load our dicts.\n",
    "\n",
    "    race_dict = {'W':1, 'B':2, 'H':3, 'A':4}\n",
    "    rank_dict = {'AST':1, 'ASC':2, 'FUL':3}\n",
    "    sex_dict = {'M':0, 'F':1}\n",
    "\n",
    "    # Force our race, rank, sex, and department inputs to all capital letters. This makes it easier in case someone enters\n",
    "    # lower case instead of upper.\n",
    "\n",
    "    race = race.upper()\n",
    "    rank = rank.upper()\n",
    "    sex  = sex.upper()\n",
    "    dept = dept.upper()\n",
    "    yrs_experience = np.array([float(yrs_experience)]) # Force to array type.\n",
    "\n",
    "    # Now find the appropriate college and department codes from the lookup table defined outside of the function.\n",
    "\n",
    "    dept_info = lookup_table[lookup_table['Dept'].str.contains(dept)]\n",
    "\n",
    "    # Loop back and request additional input if more than one department is found as an additional feature.\n",
    "\n",
    "    while dept_info.shape[0] > 1:\n",
    "        print 'More than one department found. Matching departments include:'\n",
    "        for i in dept_info['Dept']:\n",
    "            print i\n",
    "        dept = raw_input('Please enter a more specific department:')\n",
    "        dept = dept.upper() # Fix possible bug when person types it in again.\n",
    "        dept_info = lookup_table[lookup_table['Dept'].str.contains(dept)] # Try again.\n",
    "    \n",
    "    if dept_info.shape[0] < 1:\n",
    "        print 'No department match found. Try broadening the search (use fewer letters)'\n",
    "        return # Exit early.\n",
    "    \n",
    "     # Now store the appropriate values in our previously empty array.\n",
    "\n",
    "    info_store[0] = int(race_dict[race])\n",
    "    info_store[1] = int(dept_info['College'])\n",
    "    info_store[2] = int(rank_dict[rank])\n",
    "    info_store[3] = int(sex_dict[sex])\n",
    "    info_store[4] = int(dept_info['DeptCode']) # Get the numerical equivalent of our department from the lookup table.\n",
    "    \n",
    "    # Anyway, now that we have the inputs, combine them together as a test example for the model to predict.\n",
    "    # Use our scaler from the training set defined earlier in the progam.\n",
    "    yrs_experience_scaled = scaler.transform(yrs_experience)\n",
    "\n",
    "\n",
    "    # Now one-hot encode the categorical features the same way.\n",
    "\n",
    "    combined_onehot = encoder.transform([info_store]).toarray()\n",
    "\n",
    "    # Merge them together.\n",
    "    \n",
    "    # Merge them together.\n",
    "\n",
    "    final_test_example = np.c_[yrs_experience_scaled, combined_onehot]\n",
    "\n",
    "# Now predict with this.\n",
    "\n",
    "    pred_salary = ridge_model.predict(final_test_example)\n",
    "    print 'The department you chose was:', dept_info['Dept'].values[0]\n",
    "    print 'Your predicted annual salary is:', '%.2f' % pred_salary[0]\n",
    "\n",
    "# End of function"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Now let's give it a few tries (feel free to experiment with this yourself). \n",
    "\n",
    "Our first potential faculty member is a white male with a little over a year of experience. He is at the assistant professor rank in the Meteorology department. What is his expected salary?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 100,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "The department you chose was: METEOROLOGY\n",
      "Your predicted annual salary is: 78352.70\n"
     ]
    }
   ],
   "source": [
    "salary_prediction(race = 'W', yrs_experience = 1.2, rank = 'AST', sex = 'M', dept = 'METEO')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "How would this change if I were the exact same candidate, but a woman instead?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 101,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "The department you chose was: METEOROLOGY\n",
      "Your predicted annual salary is: 73079.99\n"
     ]
    }
   ],
   "source": [
    "salary_prediction(race = 'W', yrs_experience = 1.2, rank = 'AST', sex = 'F', dept = 'METEO')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "It seems there is a slight gender gap for female professors in this case. \n",
    "\n",
    "What if we wanted to be a Finance professor as a white male with the same amount of experience?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 102,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "More than one department found. Matching departments include:\n",
      "FIN AND ADMIN\n",
      "FINANCE\n",
      "Please enter a more specific department:FINANCE\n",
      "The department you chose was: FINANCE\n",
      "Your predicted annual salary is: 169270.63\n"
     ]
    }
   ],
   "source": [
    "salary_prediction(race = 'W', yrs_experience = 1.2, rank = 'AST', sex = 'M', dept = 'FIN')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "That is more than twice as much! Let's try one of the lower paying departments, such as International Studies."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 103,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "More than one department found. Matching departments include:\n",
      "INT MED - S&W\n",
      "VET INTEGRATIVE BIOS\n",
      "INTERNATIONAL STUDIE\n",
      "Please enter a more specific department:INTERNATIONAL\n",
      "The department you chose was: INTERNATIONAL STUDIE\n",
      "Your predicted annual salary is: 60344.33\n"
     ]
    }
   ],
   "source": [
    "salary_prediction(race = 'W', yrs_experience = 1.2, rank = 'AST', sex = 'M', dept = 'INT')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Our predicted salary is less than in the Meteorology department, which we would expect. Feel free to try others in the notebook if you are following along.\n",
    "\n",
    "I found through trial and error that the predictions tend to be less accurate for younger professors (at least comparing to the examples in the database) than for older, more established ones. This is because there are fewer young professors the model can train on, so you have to treat these salary predictions more skeptically. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "##Ideas for Improvement and Summary"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In this notebook, we took an interesting external dataset and explored it in detail. A fair amount of work was necessary to engineer our features, but we were able to use them afterwards for exploratory data analysis purposes in R. We shaped the data using plyr and visualized it using ggplot2. \n",
    "\n",
    "Once our EDA was complete, we built a regression model for predicting salaries and tried a few options. Then, we wrote a function to implement the model in an easy way. \n",
    "\n",
    "Of course there were some steps missing since this is just an example, but this is the basic Data Science workflow from start to finish! \n",
    "\n",
    "Possible ideas for improvement:\n",
    "\n",
    "- Include more data from other nearby public universities (or at least ones of similar ranking). This can be tricky, however, because different universities have different college structures, so we would have to design new features again. \n",
    "- Try to implement the final prediction function inside of a website by using something such as [Flask](http://flask.pocoo.org/) from Python. The prediction model could be exported via pickling and using [sklearn's joblib class](http://scikit-learn.org/stable/modules/model_persistence.html). "
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Python 2",
   "language": "python",
   "name": "python2"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 2
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython2",
   "version": "2.7.6"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 0
}