Cyclistic_Cleaning_and_Analyzing_Data.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "id": "710098ac",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T14:32:08.733698Z",
     "iopub.status.busy": "2024-01-12T14:32:08.730509Z",
     "iopub.status.idle": "2024-01-12T14:32:10.184228Z"
    },
    "jupyter": {
     "outputs_hidden": true
    },
    "papermill": {
     "duration": 0.011699,
     "end_time": "2024-01-12T15:53:49.482770",
     "exception": false,
     "start_time": "2024-01-12T15:53:49.471071",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# Cyclistic\n",
    "\n",
    "### Business task:\n",
    "\n",
    "The company wants to improve their earnings reaching out to their “casual” riders, and for that they have to analyze in what aspects the “casual” and the annual customers differ, to be able to create a focused and successful marketing message to the “casual” customers that makes them change to the annual subscription.\n"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "3ece5693",
   "metadata": {
    "papermill": {
     "duration": 0.011201,
     "end_time": "2024-01-12T15:53:49.504951",
     "exception": false,
     "start_time": "2024-01-12T15:53:49.493750",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 1. Download packages"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "e548bfee",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:53:49.531785Z",
     "iopub.status.busy": "2024-01-12T15:53:49.529201Z",
     "iopub.status.idle": "2024-01-12T15:53:50.838636Z",
     "shell.execute_reply": "2024-01-12T15:53:50.836692Z"
    },
    "papermill": {
     "duration": 1.32544,
     "end_time": "2024-01-12T15:53:50.841341",
     "exception": false,
     "start_time": "2024-01-12T15:53:49.515901",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "── \u001b[1mAttaching core tidyverse packages\u001b[22m ──────────────────────── tidyverse 2.0.0 ──\n",
      "\u001b[32m✔\u001b[39m \u001b[34mdplyr    \u001b[39m 1.1.4     \u001b[32m✔\u001b[39m \u001b[34mreadr    \u001b[39m 2.1.4\n",
      "\u001b[32m✔\u001b[39m \u001b[34mforcats  \u001b[39m 1.0.0     \u001b[32m✔\u001b[39m \u001b[34mstringr  \u001b[39m 1.5.1\n",
      "\u001b[32m✔\u001b[39m \u001b[34mggplot2  \u001b[39m 3.4.4     \u001b[32m✔\u001b[39m \u001b[34mtibble   \u001b[39m 3.2.1\n",
      "\u001b[32m✔\u001b[39m \u001b[34mlubridate\u001b[39m 1.9.3     \u001b[32m✔\u001b[39m \u001b[34mtidyr    \u001b[39m 1.3.0\n",
      "\u001b[32m✔\u001b[39m \u001b[34mpurrr    \u001b[39m 1.0.2     \n",
      "── \u001b[1mConflicts\u001b[22m ────────────────────────────────────────── tidyverse_conflicts() ──\n",
      "\u001b[31m✖\u001b[39m \u001b[34mdplyr\u001b[39m::\u001b[32mfilter()\u001b[39m masks \u001b[34mstats\u001b[39m::filter()\n",
      "\u001b[31m✖\u001b[39m \u001b[34mdplyr\u001b[39m::\u001b[32mlag()\u001b[39m    masks \u001b[34mstats\u001b[39m::lag()\n",
      "\u001b[36mℹ\u001b[39m Use the conflicted package (\u001b[3m\u001b[34m<http://conflicted.r-lib.org/>\u001b[39m\u001b[23m) to force all conflicts to become errors\n"
     ]
    }
   ],
   "source": [
    "library(tidyverse)\n",
    "library(lubridate)\n",
    "library(ggplot2)"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "c0b76ada",
   "metadata": {
    "papermill": {
     "duration": 0.010313,
     "end_time": "2024-01-12T15:53:50.862156",
     "exception": false,
     "start_time": "2024-01-12T15:53:50.851843",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 2. Import datasets"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "id": "91e34d61",
   "metadata": {
    "collapsed": true,
    "execution": {
     "iopub.execute_input": "2024-01-12T15:53:50.919759Z",
     "iopub.status.busy": "2024-01-12T15:53:50.885575Z",
     "iopub.status.idle": "2024-01-12T15:54:14.030722Z",
     "shell.execute_reply": "2024-01-12T15:54:14.028481Z"
    },
    "jupyter": {
     "outputs_hidden": true
    },
    "papermill": {
     "duration": 23.16172,
     "end_time": "2024-01-12T15:54:14.034451",
     "exception": false,
     "start_time": "2024-01-12T15:53:50.872731",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "\u001b[1mRows: \u001b[22m\u001b[34m1108163\u001b[39m \u001b[1mColumns: \u001b[22m\u001b[34m12\u001b[39m\n",
      "\u001b[36m──\u001b[39m \u001b[1mColumn specification\u001b[22m \u001b[36m────────────────────────────────────────────────────────\u001b[39m\n",
      "\u001b[1mDelimiter:\u001b[22m \",\"\n",
      "\u001b[31mchr\u001b[39m  (4): 03 - Rental Start Station Name, 02 - Rental End Station Name, User...\n",
      "\u001b[32mdbl\u001b[39m  (5): 01 - Rental Details Rental ID, 01 - Rental Details Bike ID, 03 - R...\n",
      "\u001b[32mnum\u001b[39m  (1): 01 - Rental Details Duration In Seconds Uncapped\n",
      "\u001b[34mdttm\u001b[39m (2): 01 - Rental Details Local Start Time, 01 - Rental Details Local En...\n",
      "\n",
      "\u001b[36mℹ\u001b[39m Use `spec()` to retrieve the full column specification for this data.\n",
      "\u001b[36mℹ\u001b[39m Specify the column types or set `show_col_types = FALSE` to quiet this message.\n",
      "\u001b[1mRows: \u001b[22m\u001b[34m1640718\u001b[39m \u001b[1mColumns: \u001b[22m\u001b[34m12\u001b[39m\n",
      "\u001b[36m──\u001b[39m \u001b[1mColumn specification\u001b[22m \u001b[36m────────────────────────────────────────────────────────\u001b[39m\n",
      "\u001b[1mDelimiter:\u001b[22m \",\"\n",
      "\u001b[31mchr\u001b[39m  (4): from_station_name, to_station_name, usertype, gender\n",
      "\u001b[32mdbl\u001b[39m  (5): trip_id, bikeid, from_station_id, to_station_id, birthyear\n",
      "\u001b[32mnum\u001b[39m  (1): tripduration\n",
      "\u001b[34mdttm\u001b[39m (2): start_time, end_time\n",
      "\n",
      "\u001b[36mℹ\u001b[39m Use `spec()` to retrieve the full column specification for this data.\n",
      "\u001b[36mℹ\u001b[39m Specify the column types or set `show_col_types = FALSE` to quiet this message.\n",
      "\u001b[1mRows: \u001b[22m\u001b[34m704054\u001b[39m \u001b[1mColumns: \u001b[22m\u001b[34m12\u001b[39m\n",
      "\u001b[36m──\u001b[39m \u001b[1mColumn specification\u001b[22m \u001b[36m────────────────────────────────────────────────────────\u001b[39m\n",
      "\u001b[1mDelimiter:\u001b[22m \",\"\n",
      "\u001b[31mchr\u001b[39m  (4): from_station_name, to_station_name, usertype, gender\n",
      "\u001b[32mdbl\u001b[39m  (5): trip_id, bikeid, from_station_id, to_station_id, birthyear\n",
      "\u001b[32mnum\u001b[39m  (1): tripduration\n",
      "\u001b[34mdttm\u001b[39m (2): start_time, end_time\n",
      "\n",
      "\u001b[36mℹ\u001b[39m Use `spec()` to retrieve the full column specification for this data.\n",
      "\u001b[36mℹ\u001b[39m Specify the column types or set `show_col_types = FALSE` to quiet this message.\n",
      "\u001b[1mRows: \u001b[22m\u001b[34m426887\u001b[39m \u001b[1mColumns: \u001b[22m\u001b[34m13\u001b[39m\n",
      "\u001b[36m──\u001b[39m \u001b[1mColumn specification\u001b[22m \u001b[36m────────────────────────────────────────────────────────\u001b[39m\n",
      "\u001b[1mDelimiter:\u001b[22m \",\"\n",
      "\u001b[31mchr\u001b[39m  (5): ride_id, rideable_type, start_station_name, end_station_name, memb...\n",
      "\u001b[32mdbl\u001b[39m  (6): start_station_id, end_station_id, start_lat, start_lng, end_lat, e...\n",
      "\u001b[34mdttm\u001b[39m (2): started_at, ended_at\n",
      "\n",
      "\u001b[36mℹ\u001b[39m Use `spec()` to retrieve the full column specification for this data.\n",
      "\u001b[36mℹ\u001b[39m Specify the column types or set `show_col_types = FALSE` to quiet this message.\n"
     ]
    }
   ],
   "source": [
    "q2_2019 <- read_csv(\"/kaggle/input/cyclistic/Divvy_Trips_2019_Q2.csv\")\n",
    "q3_2019 <- read_csv(\"/kaggle/input/cyclistic/Divvy_Trips_2019_Q3.csv\")\n",
    "q4_2019 <- read_csv(\"/kaggle/input/cyclistic/Divvy_Trips_2019_Q4.csv\")\n",
    "q1_2020 <- read_csv(\"/kaggle/input/cyclistic/Divvy_Trips_2020_Q1.csv\")"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "fe98d01e",
   "metadata": {
    "papermill": {
     "duration": 0.01157,
     "end_time": "2024-01-12T15:54:14.058466",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.046896",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 3. Wrangle data and combine"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "id": "daa6a4fa",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:14.085974Z",
     "iopub.status.busy": "2024-01-12T15:54:14.084169Z",
     "iopub.status.idle": "2024-01-12T15:54:14.130746Z",
     "shell.execute_reply": "2024-01-12T15:54:14.128264Z"
    },
    "papermill": {
     "duration": 0.063658,
     "end_time": "2024-01-12T15:54:14.133904",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.070246",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'01 - Rental Details Rental ID'</li><li>'01 - Rental Details Local Start Time'</li><li>'01 - Rental Details Local End Time'</li><li>'01 - Rental Details Bike ID'</li><li>'01 - Rental Details Duration In Seconds Uncapped'</li><li>'03 - Rental Start Station ID'</li><li>'03 - Rental Start Station Name'</li><li>'02 - Rental End Station ID'</li><li>'02 - Rental End Station Name'</li><li>'User Type'</li><li>'Member Gender'</li><li>'05 - Member Details Member Birthday Year'</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '01 - Rental Details Rental ID'\n",
       "\\item '01 - Rental Details Local Start Time'\n",
       "\\item '01 - Rental Details Local End Time'\n",
       "\\item '01 - Rental Details Bike ID'\n",
       "\\item '01 - Rental Details Duration In Seconds Uncapped'\n",
       "\\item '03 - Rental Start Station ID'\n",
       "\\item '03 - Rental Start Station Name'\n",
       "\\item '02 - Rental End Station ID'\n",
       "\\item '02 - Rental End Station Name'\n",
       "\\item 'User Type'\n",
       "\\item 'Member Gender'\n",
       "\\item '05 - Member Details Member Birthday Year'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. '01 - Rental Details Rental ID'\n",
       "2. '01 - Rental Details Local Start Time'\n",
       "3. '01 - Rental Details Local End Time'\n",
       "4. '01 - Rental Details Bike ID'\n",
       "5. '01 - Rental Details Duration In Seconds Uncapped'\n",
       "6. '03 - Rental Start Station ID'\n",
       "7. '03 - Rental Start Station Name'\n",
       "8. '02 - Rental End Station ID'\n",
       "9. '02 - Rental End Station Name'\n",
       "10. 'User Type'\n",
       "11. 'Member Gender'\n",
       "12. '05 - Member Details Member Birthday Year'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"01 - Rental Details Rental ID\"                   \n",
       " [2] \"01 - Rental Details Local Start Time\"            \n",
       " [3] \"01 - Rental Details Local End Time\"              \n",
       " [4] \"01 - Rental Details Bike ID\"                     \n",
       " [5] \"01 - Rental Details Duration In Seconds Uncapped\"\n",
       " [6] \"03 - Rental Start Station ID\"                    \n",
       " [7] \"03 - Rental Start Station Name\"                  \n",
       " [8] \"02 - Rental End Station ID\"                      \n",
       " [9] \"02 - Rental End Station Name\"                    \n",
       "[10] \"User Type\"                                       \n",
       "[11] \"Member Gender\"                                   \n",
       "[12] \"05 - Member Details Member Birthday Year\"        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'trip_id'</li><li>'start_time'</li><li>'end_time'</li><li>'bikeid'</li><li>'tripduration'</li><li>'from_station_id'</li><li>'from_station_name'</li><li>'to_station_id'</li><li>'to_station_name'</li><li>'usertype'</li><li>'gender'</li><li>'birthyear'</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'trip\\_id'\n",
       "\\item 'start\\_time'\n",
       "\\item 'end\\_time'\n",
       "\\item 'bikeid'\n",
       "\\item 'tripduration'\n",
       "\\item 'from\\_station\\_id'\n",
       "\\item 'from\\_station\\_name'\n",
       "\\item 'to\\_station\\_id'\n",
       "\\item 'to\\_station\\_name'\n",
       "\\item 'usertype'\n",
       "\\item 'gender'\n",
       "\\item 'birthyear'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'trip_id'\n",
       "2. 'start_time'\n",
       "3. 'end_time'\n",
       "4. 'bikeid'\n",
       "5. 'tripduration'\n",
       "6. 'from_station_id'\n",
       "7. 'from_station_name'\n",
       "8. 'to_station_id'\n",
       "9. 'to_station_name'\n",
       "10. 'usertype'\n",
       "11. 'gender'\n",
       "12. 'birthyear'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"trip_id\"           \"start_time\"        \"end_time\"         \n",
       " [4] \"bikeid\"            \"tripduration\"      \"from_station_id\"  \n",
       " [7] \"from_station_name\" \"to_station_id\"     \"to_station_name\"  \n",
       "[10] \"usertype\"          \"gender\"            \"birthyear\"        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'trip_id'</li><li>'start_time'</li><li>'end_time'</li><li>'bikeid'</li><li>'tripduration'</li><li>'from_station_id'</li><li>'from_station_name'</li><li>'to_station_id'</li><li>'to_station_name'</li><li>'usertype'</li><li>'gender'</li><li>'birthyear'</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'trip\\_id'\n",
       "\\item 'start\\_time'\n",
       "\\item 'end\\_time'\n",
       "\\item 'bikeid'\n",
       "\\item 'tripduration'\n",
       "\\item 'from\\_station\\_id'\n",
       "\\item 'from\\_station\\_name'\n",
       "\\item 'to\\_station\\_id'\n",
       "\\item 'to\\_station\\_name'\n",
       "\\item 'usertype'\n",
       "\\item 'gender'\n",
       "\\item 'birthyear'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'trip_id'\n",
       "2. 'start_time'\n",
       "3. 'end_time'\n",
       "4. 'bikeid'\n",
       "5. 'tripduration'\n",
       "6. 'from_station_id'\n",
       "7. 'from_station_name'\n",
       "8. 'to_station_id'\n",
       "9. 'to_station_name'\n",
       "10. 'usertype'\n",
       "11. 'gender'\n",
       "12. 'birthyear'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"trip_id\"           \"start_time\"        \"end_time\"         \n",
       " [4] \"bikeid\"            \"tripduration\"      \"from_station_id\"  \n",
       " [7] \"from_station_name\" \"to_station_id\"     \"to_station_name\"  \n",
       "[10] \"usertype\"          \"gender\"            \"birthyear\"        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'ride_id'</li><li>'rideable_type'</li><li>'started_at'</li><li>'ended_at'</li><li>'start_station_name'</li><li>'start_station_id'</li><li>'end_station_name'</li><li>'end_station_id'</li><li>'start_lat'</li><li>'start_lng'</li><li>'end_lat'</li><li>'end_lng'</li><li>'member_casual'</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'ride\\_id'\n",
       "\\item 'rideable\\_type'\n",
       "\\item 'started\\_at'\n",
       "\\item 'ended\\_at'\n",
       "\\item 'start\\_station\\_name'\n",
       "\\item 'start\\_station\\_id'\n",
       "\\item 'end\\_station\\_name'\n",
       "\\item 'end\\_station\\_id'\n",
       "\\item 'start\\_lat'\n",
       "\\item 'start\\_lng'\n",
       "\\item 'end\\_lat'\n",
       "\\item 'end\\_lng'\n",
       "\\item 'member\\_casual'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'ride_id'\n",
       "2. 'rideable_type'\n",
       "3. 'started_at'\n",
       "4. 'ended_at'\n",
       "5. 'start_station_name'\n",
       "6. 'start_station_id'\n",
       "7. 'end_station_name'\n",
       "8. 'end_station_id'\n",
       "9. 'start_lat'\n",
       "10. 'start_lng'\n",
       "11. 'end_lat'\n",
       "12. 'end_lng'\n",
       "13. 'member_casual'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"ride_id\"            \"rideable_type\"      \"started_at\"        \n",
       " [4] \"ended_at\"           \"start_station_name\" \"start_station_id\"  \n",
       " [7] \"end_station_name\"   \"end_station_id\"     \"start_lat\"         \n",
       "[10] \"start_lng\"          \"end_lat\"            \"end_lng\"           \n",
       "[13] \"member_casual\"     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Compare column names each of the file:\n",
    "\n",
    "colnames(q2_2019)\n",
    "colnames(q3_2019)\n",
    "colnames(q4_2019)\n",
    "colnames(q1_2020)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "id": "9a1904ea",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:14.163570Z",
     "iopub.status.busy": "2024-01-12T15:54:14.161836Z",
     "iopub.status.idle": "2024-01-12T15:54:14.396385Z",
     "shell.execute_reply": "2024-01-12T15:54:14.393268Z"
    },
    "papermill": {
     "duration": 0.254338,
     "end_time": "2024-01-12T15:54:14.400965",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.146627",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Rename columns to make them consistent with q1_2020:\n",
    "\n",
    "q4_2019 <- rename(q4_2019,\n",
    "                  ride_id = trip_id,\n",
    "                  rideable_type = bikeid,\n",
    "                  started_at = start_time,\n",
    "                  ended_at = end_time,\n",
    "                  start_station_name = from_station_name,\n",
    "                  start_station_id = from_station_id,\n",
    "                  end_station_name = to_station_name,\n",
    "                  end_station_id = to_station_id,\n",
    "                  member_casual = usertype)\n",
    "\n",
    "q3_2019 <- rename(q3_2019,\n",
    "                  ride_id = trip_id,\n",
    "                  rideable_type = bikeid,\n",
    "                  started_at = start_time,\n",
    "                  ended_at = end_time,\n",
    "                  start_station_name = from_station_name,\n",
    "                  start_station_id = from_station_id,\n",
    "                  end_station_name = to_station_name,\n",
    "                  end_station_id = to_station_id,\n",
    "                  member_casual = usertype)\n",
    "\n",
    "q2_2019 <- rename(q2_2019,\n",
    "                  ride_id = \"01 - Rental Details Rental ID\",\n",
    "                  rideable_type = \"01 - Rental Details Bike ID\",\n",
    "                  started_at = \"01 - Rental Details Local Start Time\",\n",
    "                  ended_at = \"01 - Rental Details Local End Time\",\n",
    "                  start_station_name = \"03 - Rental Start Station Name\",\n",
    "                  start_station_id = \"03 - Rental Start Station ID\",\n",
    "                  end_station_name = \"02 - Rental End Station Name\",\n",
    "                  end_station_id = \"02 - Rental End Station ID\",\n",
    "                  member_casual = \"User Type\")\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "id": "9bb3b4c4",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:14.431662Z",
     "iopub.status.busy": "2024-01-12T15:54:14.429911Z",
     "iopub.status.idle": "2024-01-12T15:54:14.831598Z",
     "shell.execute_reply": "2024-01-12T15:54:14.829314Z"
    },
    "papermill": {
     "duration": 0.418969,
     "end_time": "2024-01-12T15:54:14.834103",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.415134",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "spc_tbl_ [426,887 × 13] (S3: spec_tbl_df/tbl_df/tbl/data.frame)\n",
      " $ ride_id           : chr [1:426887] \"EACB19130B0CDA4A\" \"8FED874C809DC021\" \"789F3C21E472CA96\" \"C9A388DAC6ABF313\" ...\n",
      " $ rideable_type     : chr [1:426887] \"docked_bike\" \"docked_bike\" \"docked_bike\" \"docked_bike\" ...\n",
      " $ started_at        : POSIXct[1:426887], format: \"2020-01-21 20:06:59\" \"2020-01-30 14:22:39\" ...\n",
      " $ ended_at          : POSIXct[1:426887], format: \"2020-01-21 20:14:30\" \"2020-01-30 14:26:22\" ...\n",
      " $ start_station_name: chr [1:426887] \"Western Ave & Leland Ave\" \"Clark St & Montrose Ave\" \"Broadway & Belmont Ave\" \"Clark St & Randolph St\" ...\n",
      " $ start_station_id  : num [1:426887] 239 234 296 51 66 212 96 96 212 38 ...\n",
      " $ end_station_name  : chr [1:426887] \"Clark St & Leland Ave\" \"Southport Ave & Irving Park Rd\" \"Wilton Ave & Belmont Ave\" \"Fairbanks Ct & Grand Ave\" ...\n",
      " $ end_station_id    : num [1:426887] 326 318 117 24 212 96 212 212 96 100 ...\n",
      " $ start_lat         : num [1:426887] 42 42 41.9 41.9 41.9 ...\n",
      " $ start_lng         : num [1:426887] -87.7 -87.7 -87.6 -87.6 -87.6 ...\n",
      " $ end_lat           : num [1:426887] 42 42 41.9 41.9 41.9 ...\n",
      " $ end_lng           : num [1:426887] -87.7 -87.7 -87.7 -87.6 -87.6 ...\n",
      " $ member_casual     : chr [1:426887] \"member\" \"member\" \"member\" \"member\" ...\n",
      " - attr(*, \"spec\")=\n",
      "  .. cols(\n",
      "  ..   ride_id = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   rideable_type = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   started_at = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   ended_at = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   start_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   start_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   end_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   end_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   start_lat = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   start_lng = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   end_lat = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   end_lng = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   member_casual = \u001b[31mcol_character()\u001b[39m\n",
      "  .. )\n",
      " - attr(*, \"problems\")=<externalptr> \n",
      "spc_tbl_ [704,054 × 12] (S3: spec_tbl_df/tbl_df/tbl/data.frame)\n",
      " $ ride_id           : num [1:704054] 25223640 25223641 25223642 25223643 25223644 ...\n",
      " $ started_at        : POSIXct[1:704054], format: \"2019-10-01 00:01:39\" \"2019-10-01 00:02:16\" ...\n",
      " $ ended_at          : POSIXct[1:704054], format: \"2019-10-01 00:17:20\" \"2019-10-01 00:06:34\" ...\n",
      " $ rideable_type     : num [1:704054] 2215 6328 3003 3275 5294 ...\n",
      " $ tripduration      : num [1:704054] 940 258 850 2350 1867 ...\n",
      " $ start_station_id  : num [1:704054] 20 19 84 313 210 156 84 156 156 336 ...\n",
      " $ start_station_name: chr [1:704054] \"Sheffield Ave & Kingsbury St\" \"Throop (Loomis) St & Taylor St\" \"Milwaukee Ave & Grand Ave\" \"Lakeview Ave & Fullerton Pkwy\" ...\n",
      " $ end_station_id    : num [1:704054] 309 241 199 290 382 226 142 463 463 336 ...\n",
      " $ end_station_name  : chr [1:704054] \"Leavitt St & Armitage Ave\" \"Morgan St & Polk St\" \"Wabash Ave & Grand Ave\" \"Kedzie Ave & Palmer Ct\" ...\n",
      " $ member_casual     : chr [1:704054] \"Subscriber\" \"Subscriber\" \"Subscriber\" \"Subscriber\" ...\n",
      " $ gender            : chr [1:704054] \"Male\" \"Male\" \"Female\" \"Male\" ...\n",
      " $ birthyear         : num [1:704054] 1987 1998 1991 1990 1987 ...\n",
      " - attr(*, \"spec\")=\n",
      "  .. cols(\n",
      "  ..   trip_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   start_time = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   end_time = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   bikeid = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   tripduration = \u001b[32mcol_number()\u001b[39m,\n",
      "  ..   from_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   from_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   to_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   to_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   usertype = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   gender = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   birthyear = \u001b[32mcol_double()\u001b[39m\n",
      "  .. )\n",
      " - attr(*, \"problems\")=<externalptr> \n",
      "spc_tbl_ [1,640,718 × 12] (S3: spec_tbl_df/tbl_df/tbl/data.frame)\n",
      " $ ride_id           : num [1:1640718] 23479388 23479389 23479390 23479391 23479392 ...\n",
      " $ started_at        : POSIXct[1:1640718], format: \"2019-07-01 00:00:27\" \"2019-07-01 00:01:16\" ...\n",
      " $ ended_at          : POSIXct[1:1640718], format: \"2019-07-01 00:20:41\" \"2019-07-01 00:18:44\" ...\n",
      " $ rideable_type     : num [1:1640718] 3591 5353 6180 5540 6014 ...\n",
      " $ tripduration      : num [1:1640718] 1214 1048 1554 1503 1213 ...\n",
      " $ start_station_id  : num [1:1640718] 117 381 313 313 168 300 168 313 43 43 ...\n",
      " $ start_station_name: chr [1:1640718] \"Wilton Ave & Belmont Ave\" \"Western Ave & Monroe St\" \"Lakeview Ave & Fullerton Pkwy\" \"Lakeview Ave & Fullerton Pkwy\" ...\n",
      " $ end_station_id    : num [1:1640718] 497 203 144 144 62 232 62 144 195 195 ...\n",
      " $ end_station_name  : chr [1:1640718] \"Kimball Ave & Belmont Ave\" \"Western Ave & 21st St\" \"Larrabee St & Webster Ave\" \"Larrabee St & Webster Ave\" ...\n",
      " $ member_casual     : chr [1:1640718] \"Subscriber\" \"Customer\" \"Customer\" \"Customer\" ...\n",
      " $ gender            : chr [1:1640718] \"Male\" NA NA NA ...\n",
      " $ birthyear         : num [1:1640718] 1992 NA NA NA NA ...\n",
      " - attr(*, \"spec\")=\n",
      "  .. cols(\n",
      "  ..   trip_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   start_time = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   end_time = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   bikeid = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   tripduration = \u001b[32mcol_number()\u001b[39m,\n",
      "  ..   from_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   from_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   to_station_id = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   to_station_name = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   usertype = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   gender = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   birthyear = \u001b[32mcol_double()\u001b[39m\n",
      "  .. )\n",
      " - attr(*, \"problems\")=<externalptr> \n",
      "spc_tbl_ [1,108,163 × 12] (S3: spec_tbl_df/tbl_df/tbl/data.frame)\n",
      " $ ride_id                                         : num [1:1108163] 22178529 22178530 22178531 22178532 22178533 ...\n",
      " $ started_at                                      : POSIXct[1:1108163], format: \"2019-04-01 00:02:22\" \"2019-04-01 00:03:02\" ...\n",
      " $ ended_at                                        : POSIXct[1:1108163], format: \"2019-04-01 00:09:48\" \"2019-04-01 00:20:30\" ...\n",
      " $ rideable_type                                   : num [1:1108163] 6251 6226 5649 4151 3270 ...\n",
      " $ 01 - Rental Details Duration In Seconds Uncapped: num [1:1108163] 446 1048 252 357 1007 ...\n",
      " $ start_station_id                                : num [1:1108163] 81 317 283 26 202 420 503 260 211 211 ...\n",
      " $ start_station_name                              : chr [1:1108163] \"Daley Center Plaza\" \"Wood St & Taylor St\" \"LaSalle St & Jackson Blvd\" \"McClurg Ct & Illinois St\" ...\n",
      " $ end_station_id                                  : num [1:1108163] 56 59 174 133 129 426 500 499 211 211 ...\n",
      " $ end_station_name                                : chr [1:1108163] \"Desplaines St & Kinzie St\" \"Wabash Ave & Roosevelt Rd\" \"Canal St & Madison St\" \"Kingsbury St & Kinzie St\" ...\n",
      " $ member_casual                                   : chr [1:1108163] \"Subscriber\" \"Subscriber\" \"Subscriber\" \"Subscriber\" ...\n",
      " $ Member Gender                                   : chr [1:1108163] \"Male\" \"Female\" \"Male\" \"Male\" ...\n",
      " $ 05 - Member Details Member Birthday Year        : num [1:1108163] 1975 1984 1990 1993 1992 ...\n",
      " - attr(*, \"spec\")=\n",
      "  .. cols(\n",
      "  ..   `01 - Rental Details Rental ID` = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   `01 - Rental Details Local Start Time` = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   `01 - Rental Details Local End Time` = \u001b[34mcol_datetime(format = \"\")\u001b[39m,\n",
      "  ..   `01 - Rental Details Bike ID` = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   `01 - Rental Details Duration In Seconds Uncapped` = \u001b[32mcol_number()\u001b[39m,\n",
      "  ..   `03 - Rental Start Station ID` = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   `03 - Rental Start Station Name` = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   `02 - Rental End Station ID` = \u001b[32mcol_double()\u001b[39m,\n",
      "  ..   `02 - Rental End Station Name` = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   `User Type` = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   `Member Gender` = \u001b[31mcol_character()\u001b[39m,\n",
      "  ..   `05 - Member Details Member Birthday Year` = \u001b[32mcol_double()\u001b[39m\n",
      "  .. )\n",
      " - attr(*, \"problems\")=<externalptr> \n"
     ]
    }
   ],
   "source": [
    "# Inspect the data frames and look for inconsistencies:\n",
    "\n",
    "str(q1_2020)\n",
    "\n",
    "str(q4_2019)\n",
    "\n",
    "str(q3_2019)\n",
    "\n",
    "str(q2_2019)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "id": "7aaf009c",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:14.864567Z",
     "iopub.status.busy": "2024-01-12T15:54:14.862790Z",
     "iopub.status.idle": "2024-01-12T15:54:14.898689Z",
     "shell.execute_reply": "2024-01-12T15:54:14.896701Z"
    },
    "papermill": {
     "duration": 0.053969,
     "end_time": "2024-01-12T15:54:14.901369",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.847400",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Convert ride_id and rideable_type to character so that they can stack correctly:\n",
    "\n",
    "q4_2019 <- mutate(q4_2019,\n",
    "                  ride_id = as.character(ride_id),\n",
    "                  rideable_type = as.character(rideable_type))\n",
    "\n",
    "q3_2019 <- mutate(q3_2019,\n",
    "                  ride_id = as.character(ride_id),\n",
    "                  rideable_type = as.character(rideable_type))\n",
    "\n",
    "q2_2019 <- mutate(q2_2019,\n",
    "                  ride_id = as.character(ride_id),\n",
    "                  rideable_type = as.character(rideable_type))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "id": "f74fa6e4",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:14.932422Z",
     "iopub.status.busy": "2024-01-12T15:54:14.930655Z",
     "iopub.status.idle": "2024-01-12T15:54:30.073846Z",
     "shell.execute_reply": "2024-01-12T15:54:30.071849Z"
    },
    "papermill": {
     "duration": 15.162376,
     "end_time": "2024-01-12T15:54:30.077143",
     "exception": false,
     "start_time": "2024-01-12T15:54:14.914767",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Stack individual quarter's data frames into one big data frame:\n",
    "\n",
    "all_trips <- bind_rows(q2_2019, q3_2019, q4_2019, q1_2020)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "id": "d339e206",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:30.109013Z",
     "iopub.status.busy": "2024-01-12T15:54:30.107248Z",
     "iopub.status.idle": "2024-01-12T15:54:30.133553Z",
     "shell.execute_reply": "2024-01-12T15:54:30.131222Z"
    },
    "papermill": {
     "duration": 0.045016,
     "end_time": "2024-01-12T15:54:30.136411",
     "exception": false,
     "start_time": "2024-01-12T15:54:30.091395",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Remove unnecessary columns:\n",
    "\n",
    "all_trips <- all_trips %>%\n",
    "  select(-c(start_lat, start_lng, end_lat, end_lng, birthyear, gender, \n",
    "            \"01 - Rental Details Duration In Seconds Uncapped\", \n",
    "            \"05 - Member Details Member Birthday Year\", \"Member Gender\", \"tripduration\"))"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "1ed5c126",
   "metadata": {
    "papermill": {
     "duration": 0.013527,
     "end_time": "2024-01-12T15:54:30.163541",
     "exception": false,
     "start_time": "2024-01-12T15:54:30.150014",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 4. Clean data before analysis"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "id": "d041e1ea",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:30.194470Z",
     "iopub.status.busy": "2024-01-12T15:54:30.192546Z",
     "iopub.status.idle": "2024-01-12T15:54:30.283723Z",
     "shell.execute_reply": "2024-01-12T15:54:30.281787Z"
    },
    "papermill": {
     "duration": 0.109537,
     "end_time": "2024-01-12T15:54:30.286526",
     "exception": false,
     "start_time": "2024-01-12T15:54:30.176989",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>'ride_id'</li><li>'started_at'</li><li>'ended_at'</li><li>'rideable_type'</li><li>'start_station_id'</li><li>'start_station_name'</li><li>'end_station_id'</li><li>'end_station_name'</li><li>'member_casual'</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'ride\\_id'\n",
       "\\item 'started\\_at'\n",
       "\\item 'ended\\_at'\n",
       "\\item 'rideable\\_type'\n",
       "\\item 'start\\_station\\_id'\n",
       "\\item 'start\\_station\\_name'\n",
       "\\item 'end\\_station\\_id'\n",
       "\\item 'end\\_station\\_name'\n",
       "\\item 'member\\_casual'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'ride_id'\n",
       "2. 'started_at'\n",
       "3. 'ended_at'\n",
       "4. 'rideable_type'\n",
       "5. 'start_station_id'\n",
       "6. 'start_station_name'\n",
       "7. 'end_station_id'\n",
       "8. 'end_station_name'\n",
       "9. 'member_casual'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"ride_id\"            \"started_at\"         \"ended_at\"          \n",
       "[4] \"rideable_type\"      \"start_station_id\"   \"start_station_name\"\n",
       "[7] \"end_station_id\"     \"end_station_name\"   \"member_casual\"     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "3879822"
      ],
      "text/latex": [
       "3879822"
      ],
      "text/markdown": [
       "3879822"
      ],
      "text/plain": [
       "[1] 3879822"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".list-inline {list-style: none; margin:0; padding: 0}\n",
       ".list-inline>li {display: inline-block}\n",
       ".list-inline>li:not(:last-child)::after {content: \"\\00b7\"; padding: 0 .5ex}\n",
       "</style>\n",
       "<ol class=list-inline><li>3879822</li><li>9</li></ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 3879822\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 3879822\n",
       "2. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 3879822       9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A tibble: 6 × 9</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>ride_id</th><th scope=col>started_at</th><th scope=col>ended_at</th><th scope=col>rideable_type</th><th scope=col>start_station_id</th><th scope=col>start_station_name</th><th scope=col>end_station_id</th><th scope=col>end_station_name</th><th scope=col>member_casual</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>22178529</td><td>2019-04-01 00:02:22</td><td>2019-04-01 00:09:48</td><td>6251</td><td> 81</td><td><span style=white-space:pre-wrap>Daley Center Plaza       </span></td><td> 56</td><td>Desplaines St &amp; Kinzie St</td><td>Subscriber</td></tr>\n",
       "\t<tr><td>22178530</td><td>2019-04-01 00:03:02</td><td>2019-04-01 00:20:30</td><td>6226</td><td>317</td><td><span style=white-space:pre-wrap>Wood St &amp; Taylor St      </span></td><td> 59</td><td>Wabash Ave &amp; Roosevelt Rd</td><td>Subscriber</td></tr>\n",
       "\t<tr><td>22178531</td><td>2019-04-01 00:11:07</td><td>2019-04-01 00:15:19</td><td>5649</td><td>283</td><td>LaSalle St &amp; Jackson Blvd</td><td>174</td><td><span style=white-space:pre-wrap>Canal St &amp; Madison St    </span></td><td>Subscriber</td></tr>\n",
       "\t<tr><td>22178532</td><td>2019-04-01 00:13:01</td><td>2019-04-01 00:18:58</td><td>4151</td><td> 26</td><td>McClurg Ct &amp; Illinois St </td><td>133</td><td>Kingsbury St &amp; Kinzie St </td><td>Subscriber</td></tr>\n",
       "\t<tr><td>22178533</td><td>2019-04-01 00:19:26</td><td>2019-04-01 00:36:13</td><td>3270</td><td>202</td><td><span style=white-space:pre-wrap>Halsted St &amp; 18th St     </span></td><td>129</td><td>Blue Island Ave &amp; 18th St</td><td>Subscriber</td></tr>\n",
       "\t<tr><td>22178534</td><td>2019-04-01 00:19:39</td><td>2019-04-01 00:23:56</td><td>3123</td><td>420</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 55th St      </span></td><td>426</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 60th St      </span></td><td>Subscriber</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A tibble: 6 × 9\n",
       "\\begin{tabular}{lllllllll}\n",
       " ride\\_id & started\\_at & ended\\_at & rideable\\_type & start\\_station\\_id & start\\_station\\_name & end\\_station\\_id & end\\_station\\_name & member\\_casual\\\\\n",
       " <chr> & <dttm> & <dttm> & <chr> & <dbl> & <chr> & <dbl> & <chr> & <chr>\\\\\n",
       "\\hline\n",
       "\t 22178529 & 2019-04-01 00:02:22 & 2019-04-01 00:09:48 & 6251 &  81 & Daley Center Plaza        &  56 & Desplaines St \\& Kinzie St & Subscriber\\\\\n",
       "\t 22178530 & 2019-04-01 00:03:02 & 2019-04-01 00:20:30 & 6226 & 317 & Wood St \\& Taylor St       &  59 & Wabash Ave \\& Roosevelt Rd & Subscriber\\\\\n",
       "\t 22178531 & 2019-04-01 00:11:07 & 2019-04-01 00:15:19 & 5649 & 283 & LaSalle St \\& Jackson Blvd & 174 & Canal St \\& Madison St     & Subscriber\\\\\n",
       "\t 22178532 & 2019-04-01 00:13:01 & 2019-04-01 00:18:58 & 4151 &  26 & McClurg Ct \\& Illinois St  & 133 & Kingsbury St \\& Kinzie St  & Subscriber\\\\\n",
       "\t 22178533 & 2019-04-01 00:19:26 & 2019-04-01 00:36:13 & 3270 & 202 & Halsted St \\& 18th St      & 129 & Blue Island Ave \\& 18th St & Subscriber\\\\\n",
       "\t 22178534 & 2019-04-01 00:19:39 & 2019-04-01 00:23:56 & 3123 & 420 & Ellis Ave \\& 55th St       & 426 & Ellis Ave \\& 60th St       & Subscriber\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A tibble: 6 × 9\n",
       "\n",
       "| ride_id &lt;chr&gt; | started_at &lt;dttm&gt; | ended_at &lt;dttm&gt; | rideable_type &lt;chr&gt; | start_station_id &lt;dbl&gt; | start_station_name &lt;chr&gt; | end_station_id &lt;dbl&gt; | end_station_name &lt;chr&gt; | member_casual &lt;chr&gt; |\n",
       "|---|---|---|---|---|---|---|---|---|\n",
       "| 22178529 | 2019-04-01 00:02:22 | 2019-04-01 00:09:48 | 6251 |  81 | Daley Center Plaza        |  56 | Desplaines St &amp; Kinzie St | Subscriber |\n",
       "| 22178530 | 2019-04-01 00:03:02 | 2019-04-01 00:20:30 | 6226 | 317 | Wood St &amp; Taylor St       |  59 | Wabash Ave &amp; Roosevelt Rd | Subscriber |\n",
       "| 22178531 | 2019-04-01 00:11:07 | 2019-04-01 00:15:19 | 5649 | 283 | LaSalle St &amp; Jackson Blvd | 174 | Canal St &amp; Madison St     | Subscriber |\n",
       "| 22178532 | 2019-04-01 00:13:01 | 2019-04-01 00:18:58 | 4151 |  26 | McClurg Ct &amp; Illinois St  | 133 | Kingsbury St &amp; Kinzie St  | Subscriber |\n",
       "| 22178533 | 2019-04-01 00:19:26 | 2019-04-01 00:36:13 | 3270 | 202 | Halsted St &amp; 18th St      | 129 | Blue Island Ave &amp; 18th St | Subscriber |\n",
       "| 22178534 | 2019-04-01 00:19:39 | 2019-04-01 00:23:56 | 3123 | 420 | Ellis Ave &amp; 55th St       | 426 | Ellis Ave &amp; 60th St       | Subscriber |\n",
       "\n"
      ],
      "text/plain": [
       "  ride_id  started_at          ended_at            rideable_type\n",
       "1 22178529 2019-04-01 00:02:22 2019-04-01 00:09:48 6251         \n",
       "2 22178530 2019-04-01 00:03:02 2019-04-01 00:20:30 6226         \n",
       "3 22178531 2019-04-01 00:11:07 2019-04-01 00:15:19 5649         \n",
       "4 22178532 2019-04-01 00:13:01 2019-04-01 00:18:58 4151         \n",
       "5 22178533 2019-04-01 00:19:26 2019-04-01 00:36:13 3270         \n",
       "6 22178534 2019-04-01 00:19:39 2019-04-01 00:23:56 3123         \n",
       "  start_station_id start_station_name        end_station_id\n",
       "1  81              Daley Center Plaza         56           \n",
       "2 317              Wood St & Taylor St        59           \n",
       "3 283              LaSalle St & Jackson Blvd 174           \n",
       "4  26              McClurg Ct & Illinois St  133           \n",
       "5 202              Halsted St & 18th St      129           \n",
       "6 420              Ellis Ave & 55th St       426           \n",
       "  end_station_name          member_casual\n",
       "1 Desplaines St & Kinzie St Subscriber   \n",
       "2 Wabash Ave & Roosevelt Rd Subscriber   \n",
       "3 Canal St & Madison St     Subscriber   \n",
       "4 Kingsbury St & Kinzie St  Subscriber   \n",
       "5 Blue Island Ave & 18th St Subscriber   \n",
       "6 Ellis Ave & 60th St       Subscriber   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "tibble [3,879,822 × 9] (S3: tbl_df/tbl/data.frame)\n",
      " $ ride_id           : chr [1:3879822] \"22178529\" \"22178530\" \"22178531\" \"22178532\" ...\n",
      " $ started_at        : POSIXct[1:3879822], format: \"2019-04-01 00:02:22\" \"2019-04-01 00:03:02\" ...\n",
      " $ ended_at          : POSIXct[1:3879822], format: \"2019-04-01 00:09:48\" \"2019-04-01 00:20:30\" ...\n",
      " $ rideable_type     : chr [1:3879822] \"6251\" \"6226\" \"5649\" \"4151\" ...\n",
      " $ start_station_id  : num [1:3879822] 81 317 283 26 202 420 503 260 211 211 ...\n",
      " $ start_station_name: chr [1:3879822] \"Daley Center Plaza\" \"Wood St & Taylor St\" \"LaSalle St & Jackson Blvd\" \"McClurg Ct & Illinois St\" ...\n",
      " $ end_station_id    : num [1:3879822] 56 59 174 133 129 426 500 499 211 211 ...\n",
      " $ end_station_name  : chr [1:3879822] \"Desplaines St & Kinzie St\" \"Wabash Ave & Roosevelt Rd\" \"Canal St & Madison St\" \"Kingsbury St & Kinzie St\" ...\n",
      " $ member_casual     : chr [1:3879822] \"Subscriber\" \"Subscriber\" \"Subscriber\" \"Subscriber\" ...\n"
     ]
    }
   ],
   "source": [
    "# Inspect the new table that has been created:\n",
    "\n",
    "colnames(all_trips)\n",
    "nrow(all_trips)\n",
    "dim(all_trips)\n",
    "head(all_trips)\n",
    "str(all_trips)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "id": "6e030529",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:30.320170Z",
     "iopub.status.busy": "2024-01-12T15:54:30.318213Z",
     "iopub.status.idle": "2024-01-12T15:54:30.676616Z",
     "shell.execute_reply": "2024-01-12T15:54:30.674264Z"
    },
    "papermill": {
     "duration": 0.378539,
     "end_time": "2024-01-12T15:54:30.679899",
     "exception": false,
     "start_time": "2024-01-12T15:54:30.301360",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       "    casual   Customer     member Subscriber \n",
       "     48480     857474     378407    2595461 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Begin by seeing how many observations fall under each usertype:\n",
    "\n",
    "table(all_trips$member_casual)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "id": "511ca71b",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:30.713928Z",
     "iopub.status.busy": "2024-01-12T15:54:30.711868Z",
     "iopub.status.idle": "2024-01-12T15:54:31.502858Z",
     "shell.execute_reply": "2024-01-12T15:54:31.500694Z"
    },
    "papermill": {
     "duration": 0.811078,
     "end_time": "2024-01-12T15:54:31.505763",
     "exception": false,
     "start_time": "2024-01-12T15:54:30.694685",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Reassign to the desired values:\n",
    "\n",
    "all_trips <- all_trips %>%\n",
    "  mutate(member_casual=recode(member_casual, \"Subscriber\"=\"member\", \"Customer\"=\"casual\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "f9550c5b",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:31.540317Z",
     "iopub.status.busy": "2024-01-12T15:54:31.538536Z",
     "iopub.status.idle": "2024-01-12T15:54:32.577454Z",
     "shell.execute_reply": "2024-01-12T15:54:32.575506Z"
    },
    "papermill": {
     "duration": 1.059051,
     "end_time": "2024-01-12T15:54:32.580058",
     "exception": false,
     "start_time": "2024-01-12T15:54:31.521007",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       " casual  member \n",
       " 905954 2973868 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Check to make sure the proper number of observations were reassigned:\n",
    "\n",
    "table(all_trips$member_casual)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "id": "d08f73eb",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:32.613803Z",
     "iopub.status.busy": "2024-01-12T15:54:32.612001Z",
     "iopub.status.idle": "2024-01-12T15:54:38.306109Z",
     "shell.execute_reply": "2024-01-12T15:54:38.302837Z"
    },
    "papermill": {
     "duration": 5.715431,
     "end_time": "2024-01-12T15:54:38.310344",
     "exception": false,
     "start_time": "2024-01-12T15:54:32.594913",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Add columns that list the date, month, day, year of each ride:\n",
    "\n",
    "all_trips$date <- as.Date(all_trips$started_at)\n",
    "all_trips$month <- format(as.Date(all_trips$date), \"%m\")\n",
    "all_trips$day <- format(as.Date(all_trips$date), \"%d\")\n",
    "all_trips$year <- format(as.Date(all_trips$date), \"%Y\")\n",
    "all_trips$day_of_week <- format(as.Date(all_trips$date), \"%A\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "id": "02e23bae",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:38.353868Z",
     "iopub.status.busy": "2024-01-12T15:54:38.350956Z",
     "iopub.status.idle": "2024-01-12T15:54:38.417921Z",
     "shell.execute_reply": "2024-01-12T15:54:38.415735Z"
    },
    "papermill": {
     "duration": 0.090079,
     "end_time": "2024-01-12T15:54:38.422619",
     "exception": false,
     "start_time": "2024-01-12T15:54:38.332540",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A tibble: 6 × 14</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>ride_id</th><th scope=col>started_at</th><th scope=col>ended_at</th><th scope=col>rideable_type</th><th scope=col>start_station_id</th><th scope=col>start_station_name</th><th scope=col>end_station_id</th><th scope=col>end_station_name</th><th scope=col>member_casual</th><th scope=col>date</th><th scope=col>month</th><th scope=col>day</th><th scope=col>year</th><th scope=col>day_of_week</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;date&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>22178529</td><td>2019-04-01 00:02:22</td><td>2019-04-01 00:09:48</td><td>6251</td><td> 81</td><td><span style=white-space:pre-wrap>Daley Center Plaza       </span></td><td> 56</td><td>Desplaines St &amp; Kinzie St</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "\t<tr><td>22178530</td><td>2019-04-01 00:03:02</td><td>2019-04-01 00:20:30</td><td>6226</td><td>317</td><td><span style=white-space:pre-wrap>Wood St &amp; Taylor St      </span></td><td> 59</td><td>Wabash Ave &amp; Roosevelt Rd</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "\t<tr><td>22178531</td><td>2019-04-01 00:11:07</td><td>2019-04-01 00:15:19</td><td>5649</td><td>283</td><td>LaSalle St &amp; Jackson Blvd</td><td>174</td><td><span style=white-space:pre-wrap>Canal St &amp; Madison St    </span></td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "\t<tr><td>22178532</td><td>2019-04-01 00:13:01</td><td>2019-04-01 00:18:58</td><td>4151</td><td> 26</td><td>McClurg Ct &amp; Illinois St </td><td>133</td><td>Kingsbury St &amp; Kinzie St </td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "\t<tr><td>22178533</td><td>2019-04-01 00:19:26</td><td>2019-04-01 00:36:13</td><td>3270</td><td>202</td><td><span style=white-space:pre-wrap>Halsted St &amp; 18th St     </span></td><td>129</td><td>Blue Island Ave &amp; 18th St</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "\t<tr><td>22178534</td><td>2019-04-01 00:19:39</td><td>2019-04-01 00:23:56</td><td>3123</td><td>420</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 55th St      </span></td><td>426</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 60th St      </span></td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A tibble: 6 × 14\n",
       "\\begin{tabular}{llllllllllllll}\n",
       " ride\\_id & started\\_at & ended\\_at & rideable\\_type & start\\_station\\_id & start\\_station\\_name & end\\_station\\_id & end\\_station\\_name & member\\_casual & date & month & day & year & day\\_of\\_week\\\\\n",
       " <chr> & <dttm> & <dttm> & <chr> & <dbl> & <chr> & <dbl> & <chr> & <chr> & <date> & <chr> & <chr> & <chr> & <chr>\\\\\n",
       "\\hline\n",
       "\t 22178529 & 2019-04-01 00:02:22 & 2019-04-01 00:09:48 & 6251 &  81 & Daley Center Plaza        &  56 & Desplaines St \\& Kinzie St & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\t 22178530 & 2019-04-01 00:03:02 & 2019-04-01 00:20:30 & 6226 & 317 & Wood St \\& Taylor St       &  59 & Wabash Ave \\& Roosevelt Rd & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\t 22178531 & 2019-04-01 00:11:07 & 2019-04-01 00:15:19 & 5649 & 283 & LaSalle St \\& Jackson Blvd & 174 & Canal St \\& Madison St     & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\t 22178532 & 2019-04-01 00:13:01 & 2019-04-01 00:18:58 & 4151 &  26 & McClurg Ct \\& Illinois St  & 133 & Kingsbury St \\& Kinzie St  & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\t 22178533 & 2019-04-01 00:19:26 & 2019-04-01 00:36:13 & 3270 & 202 & Halsted St \\& 18th St      & 129 & Blue Island Ave \\& 18th St & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\t 22178534 & 2019-04-01 00:19:39 & 2019-04-01 00:23:56 & 3123 & 420 & Ellis Ave \\& 55th St       & 426 & Ellis Ave \\& 60th St       & member & 2019-04-01 & 04 & 01 & 2019 & Monday\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A tibble: 6 × 14\n",
       "\n",
       "| ride_id &lt;chr&gt; | started_at &lt;dttm&gt; | ended_at &lt;dttm&gt; | rideable_type &lt;chr&gt; | start_station_id &lt;dbl&gt; | start_station_name &lt;chr&gt; | end_station_id &lt;dbl&gt; | end_station_name &lt;chr&gt; | member_casual &lt;chr&gt; | date &lt;date&gt; | month &lt;chr&gt; | day &lt;chr&gt; | year &lt;chr&gt; | day_of_week &lt;chr&gt; |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 22178529 | 2019-04-01 00:02:22 | 2019-04-01 00:09:48 | 6251 |  81 | Daley Center Plaza        |  56 | Desplaines St &amp; Kinzie St | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "| 22178530 | 2019-04-01 00:03:02 | 2019-04-01 00:20:30 | 6226 | 317 | Wood St &amp; Taylor St       |  59 | Wabash Ave &amp; Roosevelt Rd | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "| 22178531 | 2019-04-01 00:11:07 | 2019-04-01 00:15:19 | 5649 | 283 | LaSalle St &amp; Jackson Blvd | 174 | Canal St &amp; Madison St     | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "| 22178532 | 2019-04-01 00:13:01 | 2019-04-01 00:18:58 | 4151 |  26 | McClurg Ct &amp; Illinois St  | 133 | Kingsbury St &amp; Kinzie St  | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "| 22178533 | 2019-04-01 00:19:26 | 2019-04-01 00:36:13 | 3270 | 202 | Halsted St &amp; 18th St      | 129 | Blue Island Ave &amp; 18th St | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "| 22178534 | 2019-04-01 00:19:39 | 2019-04-01 00:23:56 | 3123 | 420 | Ellis Ave &amp; 55th St       | 426 | Ellis Ave &amp; 60th St       | member | 2019-04-01 | 04 | 01 | 2019 | Monday |\n",
       "\n"
      ],
      "text/plain": [
       "  ride_id  started_at          ended_at            rideable_type\n",
       "1 22178529 2019-04-01 00:02:22 2019-04-01 00:09:48 6251         \n",
       "2 22178530 2019-04-01 00:03:02 2019-04-01 00:20:30 6226         \n",
       "3 22178531 2019-04-01 00:11:07 2019-04-01 00:15:19 5649         \n",
       "4 22178532 2019-04-01 00:13:01 2019-04-01 00:18:58 4151         \n",
       "5 22178533 2019-04-01 00:19:26 2019-04-01 00:36:13 3270         \n",
       "6 22178534 2019-04-01 00:19:39 2019-04-01 00:23:56 3123         \n",
       "  start_station_id start_station_name        end_station_id\n",
       "1  81              Daley Center Plaza         56           \n",
       "2 317              Wood St & Taylor St        59           \n",
       "3 283              LaSalle St & Jackson Blvd 174           \n",
       "4  26              McClurg Ct & Illinois St  133           \n",
       "5 202              Halsted St & 18th St      129           \n",
       "6 420              Ellis Ave & 55th St       426           \n",
       "  end_station_name          member_casual date       month day year day_of_week\n",
       "1 Desplaines St & Kinzie St member        2019-04-01 04    01  2019 Monday     \n",
       "2 Wabash Ave & Roosevelt Rd member        2019-04-01 04    01  2019 Monday     \n",
       "3 Canal St & Madison St     member        2019-04-01 04    01  2019 Monday     \n",
       "4 Kingsbury St & Kinzie St  member        2019-04-01 04    01  2019 Monday     \n",
       "5 Blue Island Ave & 18th St member        2019-04-01 04    01  2019 Monday     \n",
       "6 Ellis Ave & 60th St       member        2019-04-01 04    01  2019 Monday     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(all_trips)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "id": "09433171",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:38.463101Z",
     "iopub.status.busy": "2024-01-12T15:54:38.461364Z",
     "iopub.status.idle": "2024-01-12T15:54:38.509169Z",
     "shell.execute_reply": "2024-01-12T15:54:38.507161Z"
    },
    "papermill": {
     "duration": 0.070673,
     "end_time": "2024-01-12T15:54:38.512575",
     "exception": false,
     "start_time": "2024-01-12T15:54:38.441902",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Add a \"ride_length\" calculation to all trips (in seconds):\n",
    "\n",
    "all_trips$ride_length <- difftime(all_trips$ended_at, all_trips$started_at)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "id": "3bfcb805",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:38.546768Z",
     "iopub.status.busy": "2024-01-12T15:54:38.544939Z",
     "iopub.status.idle": "2024-01-12T15:54:38.598093Z",
     "shell.execute_reply": "2024-01-12T15:54:38.595379Z"
    },
    "papermill": {
     "duration": 0.073721,
     "end_time": "2024-01-12T15:54:38.601355",
     "exception": false,
     "start_time": "2024-01-12T15:54:38.527634",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A tibble: 6 × 15</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>ride_id</th><th scope=col>started_at</th><th scope=col>ended_at</th><th scope=col>rideable_type</th><th scope=col>start_station_id</th><th scope=col>start_station_name</th><th scope=col>end_station_id</th><th scope=col>end_station_name</th><th scope=col>member_casual</th><th scope=col>date</th><th scope=col>month</th><th scope=col>day</th><th scope=col>year</th><th scope=col>day_of_week</th><th scope=col>ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;date&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;drtn&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>22178529</td><td>2019-04-01 00:02:22</td><td>2019-04-01 00:09:48</td><td>6251</td><td> 81</td><td><span style=white-space:pre-wrap>Daley Center Plaza       </span></td><td> 56</td><td>Desplaines St &amp; Kinzie St</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td> 446 secs</td></tr>\n",
       "\t<tr><td>22178530</td><td>2019-04-01 00:03:02</td><td>2019-04-01 00:20:30</td><td>6226</td><td>317</td><td><span style=white-space:pre-wrap>Wood St &amp; Taylor St      </span></td><td> 59</td><td>Wabash Ave &amp; Roosevelt Rd</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td>1048 secs</td></tr>\n",
       "\t<tr><td>22178531</td><td>2019-04-01 00:11:07</td><td>2019-04-01 00:15:19</td><td>5649</td><td>283</td><td>LaSalle St &amp; Jackson Blvd</td><td>174</td><td><span style=white-space:pre-wrap>Canal St &amp; Madison St    </span></td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td> 252 secs</td></tr>\n",
       "\t<tr><td>22178532</td><td>2019-04-01 00:13:01</td><td>2019-04-01 00:18:58</td><td>4151</td><td> 26</td><td>McClurg Ct &amp; Illinois St </td><td>133</td><td>Kingsbury St &amp; Kinzie St </td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td> 357 secs</td></tr>\n",
       "\t<tr><td>22178533</td><td>2019-04-01 00:19:26</td><td>2019-04-01 00:36:13</td><td>3270</td><td>202</td><td><span style=white-space:pre-wrap>Halsted St &amp; 18th St     </span></td><td>129</td><td>Blue Island Ave &amp; 18th St</td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td>1007 secs</td></tr>\n",
       "\t<tr><td>22178534</td><td>2019-04-01 00:19:39</td><td>2019-04-01 00:23:56</td><td>3123</td><td>420</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 55th St      </span></td><td>426</td><td><span style=white-space:pre-wrap>Ellis Ave &amp; 60th St      </span></td><td>member</td><td>2019-04-01</td><td>04</td><td>01</td><td>2019</td><td>Monday</td><td> 257 secs</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A tibble: 6 × 15\n",
       "\\begin{tabular}{lllllllllllllll}\n",
       " ride\\_id & started\\_at & ended\\_at & rideable\\_type & start\\_station\\_id & start\\_station\\_name & end\\_station\\_id & end\\_station\\_name & member\\_casual & date & month & day & year & day\\_of\\_week & ride\\_length\\\\\n",
       " <chr> & <dttm> & <dttm> & <chr> & <dbl> & <chr> & <dbl> & <chr> & <chr> & <date> & <chr> & <chr> & <chr> & <chr> & <drtn>\\\\\n",
       "\\hline\n",
       "\t 22178529 & 2019-04-01 00:02:22 & 2019-04-01 00:09:48 & 6251 &  81 & Daley Center Plaza        &  56 & Desplaines St \\& Kinzie St & member & 2019-04-01 & 04 & 01 & 2019 & Monday &  446 secs\\\\\n",
       "\t 22178530 & 2019-04-01 00:03:02 & 2019-04-01 00:20:30 & 6226 & 317 & Wood St \\& Taylor St       &  59 & Wabash Ave \\& Roosevelt Rd & member & 2019-04-01 & 04 & 01 & 2019 & Monday & 1048 secs\\\\\n",
       "\t 22178531 & 2019-04-01 00:11:07 & 2019-04-01 00:15:19 & 5649 & 283 & LaSalle St \\& Jackson Blvd & 174 & Canal St \\& Madison St     & member & 2019-04-01 & 04 & 01 & 2019 & Monday &  252 secs\\\\\n",
       "\t 22178532 & 2019-04-01 00:13:01 & 2019-04-01 00:18:58 & 4151 &  26 & McClurg Ct \\& Illinois St  & 133 & Kingsbury St \\& Kinzie St  & member & 2019-04-01 & 04 & 01 & 2019 & Monday &  357 secs\\\\\n",
       "\t 22178533 & 2019-04-01 00:19:26 & 2019-04-01 00:36:13 & 3270 & 202 & Halsted St \\& 18th St      & 129 & Blue Island Ave \\& 18th St & member & 2019-04-01 & 04 & 01 & 2019 & Monday & 1007 secs\\\\\n",
       "\t 22178534 & 2019-04-01 00:19:39 & 2019-04-01 00:23:56 & 3123 & 420 & Ellis Ave \\& 55th St       & 426 & Ellis Ave \\& 60th St       & member & 2019-04-01 & 04 & 01 & 2019 & Monday &  257 secs\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A tibble: 6 × 15\n",
       "\n",
       "| ride_id &lt;chr&gt; | started_at &lt;dttm&gt; | ended_at &lt;dttm&gt; | rideable_type &lt;chr&gt; | start_station_id &lt;dbl&gt; | start_station_name &lt;chr&gt; | end_station_id &lt;dbl&gt; | end_station_name &lt;chr&gt; | member_casual &lt;chr&gt; | date &lt;date&gt; | month &lt;chr&gt; | day &lt;chr&gt; | year &lt;chr&gt; | day_of_week &lt;chr&gt; | ride_length &lt;drtn&gt; |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 22178529 | 2019-04-01 00:02:22 | 2019-04-01 00:09:48 | 6251 |  81 | Daley Center Plaza        |  56 | Desplaines St &amp; Kinzie St | member | 2019-04-01 | 04 | 01 | 2019 | Monday |  446 secs |\n",
       "| 22178530 | 2019-04-01 00:03:02 | 2019-04-01 00:20:30 | 6226 | 317 | Wood St &amp; Taylor St       |  59 | Wabash Ave &amp; Roosevelt Rd | member | 2019-04-01 | 04 | 01 | 2019 | Monday | 1048 secs |\n",
       "| 22178531 | 2019-04-01 00:11:07 | 2019-04-01 00:15:19 | 5649 | 283 | LaSalle St &amp; Jackson Blvd | 174 | Canal St &amp; Madison St     | member | 2019-04-01 | 04 | 01 | 2019 | Monday |  252 secs |\n",
       "| 22178532 | 2019-04-01 00:13:01 | 2019-04-01 00:18:58 | 4151 |  26 | McClurg Ct &amp; Illinois St  | 133 | Kingsbury St &amp; Kinzie St  | member | 2019-04-01 | 04 | 01 | 2019 | Monday |  357 secs |\n",
       "| 22178533 | 2019-04-01 00:19:26 | 2019-04-01 00:36:13 | 3270 | 202 | Halsted St &amp; 18th St      | 129 | Blue Island Ave &amp; 18th St | member | 2019-04-01 | 04 | 01 | 2019 | Monday | 1007 secs |\n",
       "| 22178534 | 2019-04-01 00:19:39 | 2019-04-01 00:23:56 | 3123 | 420 | Ellis Ave &amp; 55th St       | 426 | Ellis Ave &amp; 60th St       | member | 2019-04-01 | 04 | 01 | 2019 | Monday |  257 secs |\n",
       "\n"
      ],
      "text/plain": [
       "  ride_id  started_at          ended_at            rideable_type\n",
       "1 22178529 2019-04-01 00:02:22 2019-04-01 00:09:48 6251         \n",
       "2 22178530 2019-04-01 00:03:02 2019-04-01 00:20:30 6226         \n",
       "3 22178531 2019-04-01 00:11:07 2019-04-01 00:15:19 5649         \n",
       "4 22178532 2019-04-01 00:13:01 2019-04-01 00:18:58 4151         \n",
       "5 22178533 2019-04-01 00:19:26 2019-04-01 00:36:13 3270         \n",
       "6 22178534 2019-04-01 00:19:39 2019-04-01 00:23:56 3123         \n",
       "  start_station_id start_station_name        end_station_id\n",
       "1  81              Daley Center Plaza         56           \n",
       "2 317              Wood St & Taylor St        59           \n",
       "3 283              LaSalle St & Jackson Blvd 174           \n",
       "4  26              McClurg Ct & Illinois St  133           \n",
       "5 202              Halsted St & 18th St      129           \n",
       "6 420              Ellis Ave & 55th St       426           \n",
       "  end_station_name          member_casual date       month day year day_of_week\n",
       "1 Desplaines St & Kinzie St member        2019-04-01 04    01  2019 Monday     \n",
       "2 Wabash Ave & Roosevelt Rd member        2019-04-01 04    01  2019 Monday     \n",
       "3 Canal St & Madison St     member        2019-04-01 04    01  2019 Monday     \n",
       "4 Kingsbury St & Kinzie St  member        2019-04-01 04    01  2019 Monday     \n",
       "5 Blue Island Ave & 18th St member        2019-04-01 04    01  2019 Monday     \n",
       "6 Ellis Ave & 60th St       member        2019-04-01 04    01  2019 Monday     \n",
       "  ride_length\n",
       "1  446 secs  \n",
       "2 1048 secs  \n",
       "3  252 secs  \n",
       "4  357 secs  \n",
       "5 1007 secs  \n",
       "6  257 secs  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(all_trips)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "id": "af5e2ff7",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:38.636381Z",
     "iopub.status.busy": "2024-01-12T15:54:38.634536Z",
     "iopub.status.idle": "2024-01-12T15:54:38.685488Z",
     "shell.execute_reply": "2024-01-12T15:54:38.682766Z"
    },
    "papermill": {
     "duration": 0.071956,
     "end_time": "2024-01-12T15:54:38.688722",
     "exception": false,
     "start_time": "2024-01-12T15:54:38.616766",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "tibble [3,879,822 × 15] (S3: tbl_df/tbl/data.frame)\n",
      " $ ride_id           : chr [1:3879822] \"22178529\" \"22178530\" \"22178531\" \"22178532\" ...\n",
      " $ started_at        : POSIXct[1:3879822], format: \"2019-04-01 00:02:22\" \"2019-04-01 00:03:02\" ...\n",
      " $ ended_at          : POSIXct[1:3879822], format: \"2019-04-01 00:09:48\" \"2019-04-01 00:20:30\" ...\n",
      " $ rideable_type     : chr [1:3879822] \"6251\" \"6226\" \"5649\" \"4151\" ...\n",
      " $ start_station_id  : num [1:3879822] 81 317 283 26 202 420 503 260 211 211 ...\n",
      " $ start_station_name: chr [1:3879822] \"Daley Center Plaza\" \"Wood St & Taylor St\" \"LaSalle St & Jackson Blvd\" \"McClurg Ct & Illinois St\" ...\n",
      " $ end_station_id    : num [1:3879822] 56 59 174 133 129 426 500 499 211 211 ...\n",
      " $ end_station_name  : chr [1:3879822] \"Desplaines St & Kinzie St\" \"Wabash Ave & Roosevelt Rd\" \"Canal St & Madison St\" \"Kingsbury St & Kinzie St\" ...\n",
      " $ member_casual     : chr [1:3879822] \"member\" \"member\" \"member\" \"member\" ...\n",
      " $ date              : Date[1:3879822], format: \"2019-04-01\" \"2019-04-01\" ...\n",
      " $ month             : chr [1:3879822] \"04\" \"04\" \"04\" \"04\" ...\n",
      " $ day               : chr [1:3879822] \"01\" \"01\" \"01\" \"01\" ...\n",
      " $ year              : chr [1:3879822] \"2019\" \"2019\" \"2019\" \"2019\" ...\n",
      " $ day_of_week       : chr [1:3879822] \"Monday\" \"Monday\" \"Monday\" \"Monday\" ...\n",
      " $ ride_length       : 'difftime' num [1:3879822] 446 1048 252 357 ...\n",
      "  ..- attr(*, \"units\")= chr \"secs\"\n"
     ]
    }
   ],
   "source": [
    "# Inspect the structure of the columns:\n",
    "\n",
    "str(all_trips)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "id": "9b6c046b",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:38.724160Z",
     "iopub.status.busy": "2024-01-12T15:54:38.722468Z",
     "iopub.status.idle": "2024-01-12T15:54:44.286619Z",
     "shell.execute_reply": "2024-01-12T15:54:44.284628Z"
    },
    "papermill": {
     "duration": 5.584756,
     "end_time": "2024-01-12T15:54:44.289515",
     "exception": false,
     "start_time": "2024-01-12T15:54:38.704759",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "FALSE"
      ],
      "text/latex": [
       "FALSE"
      ],
      "text/markdown": [
       "FALSE"
      ],
      "text/plain": [
       "[1] FALSE"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "TRUE"
      ],
      "text/latex": [
       "TRUE"
      ],
      "text/markdown": [
       "TRUE"
      ],
      "text/plain": [
       "[1] TRUE"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Convert \"ride_length\" from the Factor to numeric so we can run calculations on the data:\n",
    "\n",
    "is.factor(all_trips$ride_length)\n",
    "\n",
    "all_trips$ride_length <- as.numeric(as.character(all_trips$ride_length))\n",
    "\n",
    "is.numeric(all_trips$ride_length)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "id": "f89e366e",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:44.331510Z",
     "iopub.status.busy": "2024-01-12T15:54:44.328814Z",
     "iopub.status.idle": "2024-01-12T15:54:44.354744Z",
     "shell.execute_reply": "2024-01-12T15:54:44.351556Z"
    },
    "papermill": {
     "duration": 0.053328,
     "end_time": "2024-01-12T15:54:44.359133",
     "exception": false,
     "start_time": "2024-01-12T15:54:44.305805",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Remove \"bad\" data and create new data frame (v2):\n",
    "\n",
    "all_trips_2 <- all_trips[\"start_station_name\" != \"HQ QR\"]\n",
    "\n",
    "all_trips_2 <- all_trips[\"ride_length\" > 0]"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "cabcc410",
   "metadata": {
    "papermill": {
     "duration": 0.022237,
     "end_time": "2024-01-12T15:54:44.403265",
     "exception": false,
     "start_time": "2024-01-12T15:54:44.381028",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 5. Descriptive analysis"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "id": "650cc678",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:44.444963Z",
     "iopub.status.busy": "2024-01-12T15:54:44.443129Z",
     "iopub.status.idle": "2024-01-12T15:54:44.698930Z",
     "shell.execute_reply": "2024-01-12T15:54:44.696872Z"
    },
    "papermill": {
     "duration": 0.278504,
     "end_time": "2024-01-12T15:54:44.701540",
     "exception": false,
     "start_time": "2024-01-12T15:54:44.423036",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. \n",
       "  -3382     411     711    1478    1288 9387024 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Descriptive analysis on ride_length (all figures in seconds):\n",
    "\n",
    "summary(all_trips_2$ride_length)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "id": "655171a5",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:44.741091Z",
     "iopub.status.busy": "2024-01-12T15:54:44.739327Z",
     "iopub.status.idle": "2024-01-12T15:54:51.018996Z",
     "shell.execute_reply": "2024-01-12T15:54:51.017061Z"
    },
    "papermill": {
     "duration": 6.304117,
     "end_time": "2024-01-12T15:54:51.022046",
     "exception": false,
     "start_time": "2024-01-12T15:54:44.717929",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A data.frame: 2 × 2</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>all_trips_2$member_casual</th><th scope=col>all_trips_2$ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>3537.9516</td></tr>\n",
       "\t<tr><td>member</td><td> 850.0572</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A data.frame: 2 × 2\n",
       "\\begin{tabular}{ll}\n",
       " all\\_trips\\_2\\$member\\_casual & all\\_trips\\_2\\$ride\\_length\\\\\n",
       " <chr> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & 3537.9516\\\\\n",
       "\t member &  850.0572\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A data.frame: 2 × 2\n",
       "\n",
       "| all_trips_2$member_casual &lt;chr&gt; | all_trips_2$ride_length &lt;dbl&gt; |\n",
       "|---|---|\n",
       "| casual | 3537.9516 |\n",
       "| member |  850.0572 |\n",
       "\n"
      ],
      "text/plain": [
       "  all_trips_2$member_casual all_trips_2$ride_length\n",
       "1 casual                    3537.9516              \n",
       "2 member                     850.0572              "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A data.frame: 2 × 2</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>all_trips_2$member_casual</th><th scope=col>all_trips_2$ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>1540</td></tr>\n",
       "\t<tr><td>member</td><td> 589</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A data.frame: 2 × 2\n",
       "\\begin{tabular}{ll}\n",
       " all\\_trips\\_2\\$member\\_casual & all\\_trips\\_2\\$ride\\_length\\\\\n",
       " <chr> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & 1540\\\\\n",
       "\t member &  589\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A data.frame: 2 × 2\n",
       "\n",
       "| all_trips_2$member_casual &lt;chr&gt; | all_trips_2$ride_length &lt;dbl&gt; |\n",
       "|---|---|\n",
       "| casual | 1540 |\n",
       "| member |  589 |\n",
       "\n"
      ],
      "text/plain": [
       "  all_trips_2$member_casual all_trips_2$ride_length\n",
       "1 casual                    1540                   \n",
       "2 member                     589                   "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A data.frame: 2 × 2</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>all_trips_2$member_casual</th><th scope=col>all_trips_2$ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>9387024</td></tr>\n",
       "\t<tr><td>member</td><td>9056634</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A data.frame: 2 × 2\n",
       "\\begin{tabular}{ll}\n",
       " all\\_trips\\_2\\$member\\_casual & all\\_trips\\_2\\$ride\\_length\\\\\n",
       " <chr> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & 9387024\\\\\n",
       "\t member & 9056634\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A data.frame: 2 × 2\n",
       "\n",
       "| all_trips_2$member_casual &lt;chr&gt; | all_trips_2$ride_length &lt;dbl&gt; |\n",
       "|---|---|\n",
       "| casual | 9387024 |\n",
       "| member | 9056634 |\n",
       "\n"
      ],
      "text/plain": [
       "  all_trips_2$member_casual all_trips_2$ride_length\n",
       "1 casual                    9387024                \n",
       "2 member                    9056634                "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Compare members and casual users:\n",
    "\n",
    "aggregate(all_trips_2$ride_length ~ all_trips_2$member_casual, FUN = mean)\n",
    "\n",
    "aggregate(all_trips_2$ride_length ~ all_trips_2$member_casual, FUN = median)\n",
    "\n",
    "aggregate(all_trips_2$ride_length ~ all_trips_2$member_casual, FUN = max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "id": "0059a2d7",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:51.060351Z",
     "iopub.status.busy": "2024-01-12T15:54:51.058550Z",
     "iopub.status.idle": "2024-01-12T15:54:54.395164Z",
     "shell.execute_reply": "2024-01-12T15:54:54.392914Z"
    },
    "papermill": {
     "duration": 3.360153,
     "end_time": "2024-01-12T15:54:54.399259",
     "exception": false,
     "start_time": "2024-01-12T15:54:51.039106",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A data.frame: 14 × 3</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>all_trips_2$member_casual</th><th scope=col>all_trips_2$day_of_week</th><th scope=col>all_trips_2$ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>Friday   </td><td>3757.6020</td></tr>\n",
       "\t<tr><td>member</td><td>Friday   </td><td> 824.5305</td></tr>\n",
       "\t<tr><td>casual</td><td>Monday   </td><td>3335.0036</td></tr>\n",
       "\t<tr><td>member</td><td>Monday   </td><td> 842.5726</td></tr>\n",
       "\t<tr><td>casual</td><td>Saturday </td><td>3331.9138</td></tr>\n",
       "\t<tr><td>member</td><td>Saturday </td><td> 968.9337</td></tr>\n",
       "\t<tr><td>casual</td><td>Sunday   </td><td>3581.2009</td></tr>\n",
       "\t<tr><td>member</td><td>Sunday   </td><td> 919.8764</td></tr>\n",
       "\t<tr><td>casual</td><td>Thursday </td><td>3659.1917</td></tr>\n",
       "\t<tr><td>member</td><td>Thursday </td><td> 823.9278</td></tr>\n",
       "\t<tr><td>casual</td><td>Tuesday  </td><td>3569.5238</td></tr>\n",
       "\t<tr><td>member</td><td>Tuesday  </td><td> 826.1427</td></tr>\n",
       "\t<tr><td>casual</td><td>Wednesday</td><td>3689.4704</td></tr>\n",
       "\t<tr><td>member</td><td>Wednesday</td><td> 823.9980</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A data.frame: 14 × 3\n",
       "\\begin{tabular}{lll}\n",
       " all\\_trips\\_2\\$member\\_casual & all\\_trips\\_2\\$day\\_of\\_week & all\\_trips\\_2\\$ride\\_length\\\\\n",
       " <chr> & <chr> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & Friday    & 3757.6020\\\\\n",
       "\t member & Friday    &  824.5305\\\\\n",
       "\t casual & Monday    & 3335.0036\\\\\n",
       "\t member & Monday    &  842.5726\\\\\n",
       "\t casual & Saturday  & 3331.9138\\\\\n",
       "\t member & Saturday  &  968.9337\\\\\n",
       "\t casual & Sunday    & 3581.2009\\\\\n",
       "\t member & Sunday    &  919.8764\\\\\n",
       "\t casual & Thursday  & 3659.1917\\\\\n",
       "\t member & Thursday  &  823.9278\\\\\n",
       "\t casual & Tuesday   & 3569.5238\\\\\n",
       "\t member & Tuesday   &  826.1427\\\\\n",
       "\t casual & Wednesday & 3689.4704\\\\\n",
       "\t member & Wednesday &  823.9980\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A data.frame: 14 × 3\n",
       "\n",
       "| all_trips_2$member_casual &lt;chr&gt; | all_trips_2$day_of_week &lt;chr&gt; | all_trips_2$ride_length &lt;dbl&gt; |\n",
       "|---|---|---|\n",
       "| casual | Friday    | 3757.6020 |\n",
       "| member | Friday    |  824.5305 |\n",
       "| casual | Monday    | 3335.0036 |\n",
       "| member | Monday    |  842.5726 |\n",
       "| casual | Saturday  | 3331.9138 |\n",
       "| member | Saturday  |  968.9337 |\n",
       "| casual | Sunday    | 3581.2009 |\n",
       "| member | Sunday    |  919.8764 |\n",
       "| casual | Thursday  | 3659.1917 |\n",
       "| member | Thursday  |  823.9278 |\n",
       "| casual | Tuesday   | 3569.5238 |\n",
       "| member | Tuesday   |  826.1427 |\n",
       "| casual | Wednesday | 3689.4704 |\n",
       "| member | Wednesday |  823.9980 |\n",
       "\n"
      ],
      "text/plain": [
       "   all_trips_2$member_casual all_trips_2$day_of_week all_trips_2$ride_length\n",
       "1  casual                    Friday                  3757.6020              \n",
       "2  member                    Friday                   824.5305              \n",
       "3  casual                    Monday                  3335.0036              \n",
       "4  member                    Monday                   842.5726              \n",
       "5  casual                    Saturday                3331.9138              \n",
       "6  member                    Saturday                 968.9337              \n",
       "7  casual                    Sunday                  3581.2009              \n",
       "8  member                    Sunday                   919.8764              \n",
       "9  casual                    Thursday                3659.1917              \n",
       "10 member                    Thursday                 823.9278              \n",
       "11 casual                    Tuesday                 3569.5238              \n",
       "12 member                    Tuesday                  826.1427              \n",
       "13 casual                    Wednesday               3689.4704              \n",
       "14 member                    Wednesday                823.9980              "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# See the average time by each day for members vs casual users:\n",
    "\n",
    "aggregate(all_trips_2$ride_length ~ all_trips_2$member_casual + all_trips_2$day_of_week, FUN = mean)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "id": "18a09cea",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:54.439379Z",
     "iopub.status.busy": "2024-01-12T15:54:54.437522Z",
     "iopub.status.idle": "2024-01-12T15:54:54.563389Z",
     "shell.execute_reply": "2024-01-12T15:54:54.561098Z"
    },
    "papermill": {
     "duration": 0.148166,
     "end_time": "2024-01-12T15:54:54.566134",
     "exception": false,
     "start_time": "2024-01-12T15:54:54.417968",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": [
    "# Notice that the days of the week are out of order. Let's fix that.\n",
    "\n",
    "all_trips_2$day_of_week <- ordered(all_trips_2$day_of_week, levels=c(\"Sunday\", \"Monday\", \"Tuesday\", \"Wednesday\", \"Thursday\", \"Friday\", \"Saturday\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "id": "2368b011",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:54.604778Z",
     "iopub.status.busy": "2024-01-12T15:54:54.602989Z",
     "iopub.status.idle": "2024-01-12T15:54:57.189666Z",
     "shell.execute_reply": "2024-01-12T15:54:57.187681Z"
    },
    "papermill": {
     "duration": 2.609412,
     "end_time": "2024-01-12T15:54:57.192786",
     "exception": false,
     "start_time": "2024-01-12T15:54:54.583374",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A data.frame: 14 × 3</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>all_trips_2$member_casual</th><th scope=col>all_trips_2$day_of_week</th><th scope=col>all_trips_2$ride_length</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;ord&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>Sunday   </td><td>3581.2009</td></tr>\n",
       "\t<tr><td>member</td><td>Sunday   </td><td> 919.8764</td></tr>\n",
       "\t<tr><td>casual</td><td>Monday   </td><td>3335.0036</td></tr>\n",
       "\t<tr><td>member</td><td>Monday   </td><td> 842.5726</td></tr>\n",
       "\t<tr><td>casual</td><td>Tuesday  </td><td>3569.5238</td></tr>\n",
       "\t<tr><td>member</td><td>Tuesday  </td><td> 826.1427</td></tr>\n",
       "\t<tr><td>casual</td><td>Wednesday</td><td>3689.4704</td></tr>\n",
       "\t<tr><td>member</td><td>Wednesday</td><td> 823.9980</td></tr>\n",
       "\t<tr><td>casual</td><td>Thursday </td><td>3659.1917</td></tr>\n",
       "\t<tr><td>member</td><td>Thursday </td><td> 823.9278</td></tr>\n",
       "\t<tr><td>casual</td><td>Friday   </td><td>3757.6020</td></tr>\n",
       "\t<tr><td>member</td><td>Friday   </td><td> 824.5305</td></tr>\n",
       "\t<tr><td>casual</td><td>Saturday </td><td>3331.9138</td></tr>\n",
       "\t<tr><td>member</td><td>Saturday </td><td> 968.9337</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A data.frame: 14 × 3\n",
       "\\begin{tabular}{lll}\n",
       " all\\_trips\\_2\\$member\\_casual & all\\_trips\\_2\\$day\\_of\\_week & all\\_trips\\_2\\$ride\\_length\\\\\n",
       " <chr> & <ord> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & Sunday    & 3581.2009\\\\\n",
       "\t member & Sunday    &  919.8764\\\\\n",
       "\t casual & Monday    & 3335.0036\\\\\n",
       "\t member & Monday    &  842.5726\\\\\n",
       "\t casual & Tuesday   & 3569.5238\\\\\n",
       "\t member & Tuesday   &  826.1427\\\\\n",
       "\t casual & Wednesday & 3689.4704\\\\\n",
       "\t member & Wednesday &  823.9980\\\\\n",
       "\t casual & Thursday  & 3659.1917\\\\\n",
       "\t member & Thursday  &  823.9278\\\\\n",
       "\t casual & Friday    & 3757.6020\\\\\n",
       "\t member & Friday    &  824.5305\\\\\n",
       "\t casual & Saturday  & 3331.9138\\\\\n",
       "\t member & Saturday  &  968.9337\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A data.frame: 14 × 3\n",
       "\n",
       "| all_trips_2$member_casual &lt;chr&gt; | all_trips_2$day_of_week &lt;ord&gt; | all_trips_2$ride_length &lt;dbl&gt; |\n",
       "|---|---|---|\n",
       "| casual | Sunday    | 3581.2009 |\n",
       "| member | Sunday    |  919.8764 |\n",
       "| casual | Monday    | 3335.0036 |\n",
       "| member | Monday    |  842.5726 |\n",
       "| casual | Tuesday   | 3569.5238 |\n",
       "| member | Tuesday   |  826.1427 |\n",
       "| casual | Wednesday | 3689.4704 |\n",
       "| member | Wednesday |  823.9980 |\n",
       "| casual | Thursday  | 3659.1917 |\n",
       "| member | Thursday  |  823.9278 |\n",
       "| casual | Friday    | 3757.6020 |\n",
       "| member | Friday    |  824.5305 |\n",
       "| casual | Saturday  | 3331.9138 |\n",
       "| member | Saturday  |  968.9337 |\n",
       "\n"
      ],
      "text/plain": [
       "   all_trips_2$member_casual all_trips_2$day_of_week all_trips_2$ride_length\n",
       "1  casual                    Sunday                  3581.2009              \n",
       "2  member                    Sunday                   919.8764              \n",
       "3  casual                    Monday                  3335.0036              \n",
       "4  member                    Monday                   842.5726              \n",
       "5  casual                    Tuesday                 3569.5238              \n",
       "6  member                    Tuesday                  826.1427              \n",
       "7  casual                    Wednesday               3689.4704              \n",
       "8  member                    Wednesday                823.9980              \n",
       "9  casual                    Thursday                3659.1917              \n",
       "10 member                    Thursday                 823.9278              \n",
       "11 casual                    Friday                  3757.6020              \n",
       "12 member                    Friday                   824.5305              \n",
       "13 casual                    Saturday                3331.9138              \n",
       "14 member                    Saturday                 968.9337              "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Let's check:\n",
    "\n",
    "aggregate(all_trips_2$ride_length ~ all_trips_2$member_casual + all_trips_2$day_of_week, FUN = mean)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "id": "5e825573",
   "metadata": {
    "collapsed": true,
    "execution": {
     "iopub.execute_input": "2024-01-12T15:54:57.233296Z",
     "iopub.status.busy": "2024-01-12T15:54:57.231412Z",
     "iopub.status.idle": "2024-01-12T15:55:02.171034Z",
     "shell.execute_reply": "2024-01-12T15:55:02.169023Z"
    },
    "jupyter": {
     "outputs_hidden": true
    },
    "papermill": {
     "duration": 4.963972,
     "end_time": "2024-01-12T15:55:02.174780",
     "exception": false,
     "start_time": "2024-01-12T15:54:57.210808",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "\u001b[1m\u001b[22m`summarise()` has grouped output by 'member_casual'. You can override using the\n",
      "`.groups` argument.\n"
     ]
    }
   ],
   "source": [
    "# Analyze ridership data by type and weekday:\n",
    "\n",
    "all_trips_3 <- all_trips_2 %>%\n",
    "  mutate(weekday=wday(date, label=TRUE)) %>%\n",
    "  group_by(member_casual, weekday) %>%\n",
    "  summarise(number_of_rides = n(), average_duration=mean(ride_length)) %>%\n",
    "  arrange(member_casual,weekday)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "id": "6ef01137",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:55:02.216981Z",
     "iopub.status.busy": "2024-01-12T15:55:02.214861Z",
     "iopub.status.idle": "2024-01-12T15:55:02.253939Z",
     "shell.execute_reply": "2024-01-12T15:55:02.252022Z"
    },
    "papermill": {
     "duration": 0.063357,
     "end_time": "2024-01-12T15:55:02.256558",
     "exception": false,
     "start_time": "2024-01-12T15:55:02.193201",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A grouped_df: 14 × 4</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>member_casual</th><th scope=col>weekday</th><th scope=col>number_of_rides</th><th scope=col>average_duration</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;ord&gt;</th><th scope=col>&lt;int&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>casual</td><td>Sun</td><td>181299</td><td>3581.2009</td></tr>\n",
       "\t<tr><td>casual</td><td>Mon</td><td>104452</td><td>3335.0036</td></tr>\n",
       "\t<tr><td>casual</td><td>Tue</td><td> 91191</td><td>3569.5238</td></tr>\n",
       "\t<tr><td>casual</td><td>Wed</td><td> 93189</td><td>3689.4704</td></tr>\n",
       "\t<tr><td>casual</td><td>Thu</td><td>103347</td><td>3659.1917</td></tr>\n",
       "\t<tr><td>casual</td><td>Fri</td><td>122933</td><td>3757.6020</td></tr>\n",
       "\t<tr><td>casual</td><td>Sat</td><td>209543</td><td>3331.9138</td></tr>\n",
       "\t<tr><td>member</td><td>Sun</td><td>267972</td><td> 919.8764</td></tr>\n",
       "\t<tr><td>member</td><td>Mon</td><td>472196</td><td> 842.5726</td></tr>\n",
       "\t<tr><td>member</td><td>Tue</td><td>508445</td><td> 826.1427</td></tr>\n",
       "\t<tr><td>member</td><td>Wed</td><td>500330</td><td> 823.9980</td></tr>\n",
       "\t<tr><td>member</td><td>Thu</td><td>484177</td><td> 823.9278</td></tr>\n",
       "\t<tr><td>member</td><td>Fri</td><td>452790</td><td> 824.5305</td></tr>\n",
       "\t<tr><td>member</td><td>Sat</td><td>287958</td><td> 968.9337</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A grouped\\_df: 14 × 4\n",
       "\\begin{tabular}{llll}\n",
       " member\\_casual & weekday & number\\_of\\_rides & average\\_duration\\\\\n",
       " <chr> & <ord> & <int> & <dbl>\\\\\n",
       "\\hline\n",
       "\t casual & Sun & 181299 & 3581.2009\\\\\n",
       "\t casual & Mon & 104452 & 3335.0036\\\\\n",
       "\t casual & Tue &  91191 & 3569.5238\\\\\n",
       "\t casual & Wed &  93189 & 3689.4704\\\\\n",
       "\t casual & Thu & 103347 & 3659.1917\\\\\n",
       "\t casual & Fri & 122933 & 3757.6020\\\\\n",
       "\t casual & Sat & 209543 & 3331.9138\\\\\n",
       "\t member & Sun & 267972 &  919.8764\\\\\n",
       "\t member & Mon & 472196 &  842.5726\\\\\n",
       "\t member & Tue & 508445 &  826.1427\\\\\n",
       "\t member & Wed & 500330 &  823.9980\\\\\n",
       "\t member & Thu & 484177 &  823.9278\\\\\n",
       "\t member & Fri & 452790 &  824.5305\\\\\n",
       "\t member & Sat & 287958 &  968.9337\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A grouped_df: 14 × 4\n",
       "\n",
       "| member_casual &lt;chr&gt; | weekday &lt;ord&gt; | number_of_rides &lt;int&gt; | average_duration &lt;dbl&gt; |\n",
       "|---|---|---|---|\n",
       "| casual | Sun | 181299 | 3581.2009 |\n",
       "| casual | Mon | 104452 | 3335.0036 |\n",
       "| casual | Tue |  91191 | 3569.5238 |\n",
       "| casual | Wed |  93189 | 3689.4704 |\n",
       "| casual | Thu | 103347 | 3659.1917 |\n",
       "| casual | Fri | 122933 | 3757.6020 |\n",
       "| casual | Sat | 209543 | 3331.9138 |\n",
       "| member | Sun | 267972 |  919.8764 |\n",
       "| member | Mon | 472196 |  842.5726 |\n",
       "| member | Tue | 508445 |  826.1427 |\n",
       "| member | Wed | 500330 |  823.9980 |\n",
       "| member | Thu | 484177 |  823.9278 |\n",
       "| member | Fri | 452790 |  824.5305 |\n",
       "| member | Sat | 287958 |  968.9337 |\n",
       "\n"
      ],
      "text/plain": [
       "   member_casual weekday number_of_rides average_duration\n",
       "1  casual        Sun     181299          3581.2009       \n",
       "2  casual        Mon     104452          3335.0036       \n",
       "3  casual        Tue      91191          3569.5238       \n",
       "4  casual        Wed      93189          3689.4704       \n",
       "5  casual        Thu     103347          3659.1917       \n",
       "6  casual        Fri     122933          3757.6020       \n",
       "7  casual        Sat     209543          3331.9138       \n",
       "8  member        Sun     267972           919.8764       \n",
       "9  member        Mon     472196           842.5726       \n",
       "10 member        Tue     508445           826.1427       \n",
       "11 member        Wed     500330           823.9980       \n",
       "12 member        Thu     484177           823.9278       \n",
       "13 member        Fri     452790           824.5305       \n",
       "14 member        Sat     287958           968.9337       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "View(all_trips_3)"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "c006830b",
   "metadata": {
    "papermill": {
     "duration": 0.018662,
     "end_time": "2024-01-12T15:55:02.293641",
     "exception": false,
     "start_time": "2024-01-12T15:55:02.274979",
     "status": "completed"
    },
    "tags": []
   },
   "source": [
    "# 6. Visualization"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "id": "8a6ad86c",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:55:02.334573Z",
     "iopub.status.busy": "2024-01-12T15:55:02.332635Z",
     "iopub.status.idle": "2024-01-12T15:55:02.981149Z",
     "shell.execute_reply": "2024-01-12T15:55:02.978860Z"
    },
    "papermill": {
     "duration": 0.671566,
     "end_time": "2024-01-12T15:55:02.983971",
     "exception": false,
     "start_time": "2024-01-12T15:55:02.312405",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAIAAAByhViMAAAABmJLR0QA/wD/AP+gvaeTAAAg\nAElEQVR4nOzdeZyN5f/H8evsM3NmNWPfGbss0Q8hJfG1pM0ykUKWQsgSQgmRyp4typbsS0i+\nRChL1pItCtkZw2xmzpmz/f44HPMtjTNjzn0f13k9/+hx7vvc57o+nzPTmbd7OxqXyyUAAADw\n8NOqXQAAAAByB8EOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACSh\nV7sA1dy8eVPtEu4KCgoymUwOhyM1NVXtWhQSHBxsNBrtdvutW7fUrkUhAdhySEiIwWCw2Wxp\naWlq16KQAGzZbDbr9fqMjIz09HS1a1GI37YcFRWldglQX+AGO6fT6VffuqHVap1Op8PhULsQ\n5Wi1Wo1GEzgtazSaQGtZBOpPWQgRaC3zUwb8BIdiAQAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ\n7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAA\nJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbAD\nAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAE\nwQ4AAEASBDsAAABJEOwAAAAkoVe7ACCAaLbtVHK6+MrllJwOAKA69tgBAABIgmAHAAAgCYId\nAACAJAh2AAAAkiDYAQAASIJgBwAAIAmFbndydffQrmN/y7ym+/xlzaOCcjSYc9uS6et2HDyf\noqtQuVbH3p1KBut8MAsAAMBDRqFgl/hLYnD0s326VvKsKWU25myo0yuHTVz6V4eevTpH2dfP\nmja0n33RjDc0uT0LAADAQ0ehYHftWHJkxccff7zS/TfNmitjwtLjsR0mtGpUUggRO060fu2T\nxZc7tCtozs1ZAAAAHkIKBbtfk61R1SMd6cnxKc78+SI1d9Y77QkrZ8/6767DN6zawqWrPv9a\nt6fLR2V+octl/euvayVKFHUvWpN2nLM4ejcs5F40RdWvGjp53/ar7eJKZTHL7ddarVar1bOo\n0fzteTV5ivGrqpQRgC0rRvX3NmB/sTUaTaC1LALvpyz8rGWXy6V2CfALCgW7Q6k2509T2kw9\nYXO59Oa8Tdr16f5sFSHEwsF9N1krd+0ztGi45sSu9VMGd3dMn9e4UIjnhQ7Lmb79xq5ZNd+9\nmHHrsBCiYsjdsiuF6DcdScp6FrdZs2YtWLDAs7hz506TyeTLprNNr9dHR0erXYWiDAZDoLWs\nJH94bxX+FjXXk3WVnO7fGI1Gf3jzlWQymfztE9XXgoKCgoL86Bzu69evq10C/IISwc6RcTFJ\noyuRp864r0dFOJL3fDtn/OxhpjIL4vJuW3Uqeczi/pVC9EKI0mUr2/e2XzLjWONRNf9tKKf1\nlhAixqDzrIkx6GzJtixm6Vg+0vctAgAAqE+JYKczFl6xYsWdpZgGLw8+uant1jlHWnQ45HK5\nhsS9mHljs/2CEDWFy2Gx2oQQdotVCGGxWNzPak0hQogbNmcB4+0btVy3OfRR+ixm6fhpPfeq\n559/vnbt2p6J0tPTPcOqLjg42Gg0OhyO1NRUtWtRiLtlu91+69YttWtRSEhIyP03ylVJSUkK\nz/g3gdmywWCw2WxpaWnqVqIYs9ms1+sDsOWMjIz09HS1awH+TqFDsX9TI1/w1pvxerNRozMv\nX7Yg80kKGo1OCJEWvziuyzLPyjZt2rgfTJj9phDbT6TbChhv7/M/mW6PqBSRxSyexWLFihUr\nVsyzmJCQ4D9nJBiNRiGEy+Wy2Wxq16IQ91GbgGrZ6XQqPKPq720Atuz+VHE6napXohhaBvyK\nEjcoTjw57fUuPa9m3PmIdzm2X06LrFg2JH8T4UzbEG8z3KZfOHLY1G1XhBAh+V5Zu3bt2rVr\nVy39WKuPWntHbL5GhY26DbtuxzVb6sH9KRmPPlUgi1kUaBAAAMAfKBHswku1jU67OuiDWfuP\nnDx19JfFk97ZcSusW5eyxrCaXapFfzVo1MYfD5w9/fuaWYPXHU9oWCdvVmNpDP1blT/1xYit\nB09eOv3bnOETzIWf6VDInMUsCjQIAADgD5Q4FKvVx4ya9sHcmYsmj37Xog8vFVt50KSR1UMN\nQogW7020fv7Z8pnjbtoMhUtW6Td2aFWzIevRYtuO7mGd9PWE4QkWTemqDUb176q53ywAAACB\nQOM/55kpzK/OsTObzcHBwXa7PTExUe1aFBIaGhoUFGSz2VQ/210xYWFhQbv3KzljfOVySk73\nTwHYcnh4uNFotFqtKSkp6laimIiICIPBEIAtWywWf7vcLSYmRu0SoD4lDsUCAABAAQQ7AAAA\nSRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwA\nAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJKFXuwAAkIpm204lp4uvXE7J6QD4OfbYAQAA\nSIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAH\nAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCT0aheAwKXZtlPhGeMrl1N4RgAA\nlMQeOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7\nAAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJ\nEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAA\nACShV7sAAMDDTbNtp5LTxVcup+R0wMOFPXYAAACSINgBAABIInAPxWq1fhRqPcXodDp1K1GM\nRqNRflJ1317lW1b914mWFaB6y8pTvWX3T1mj0aheSWYOh0PtEuAXAjfYRUZGqpItsqDX66Oi\notSuQmaB9vYGWr+ClgODn7RsMplMJpPaVdx1/fp1tUuAXwjcYHfjxg2Xy6V2FbeZzebg4GC7\n3Z6YmKh2LQoJDQ1VflJ1P/jCwsIUnlH1D/oAbDk8PFzhGVVvOSIiQuEZ/aFlg8FgsVhSU1PV\nrQT4Jz86HAkAAIAHQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAA\nAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDs\nAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAk\nQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMA\nAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATB\nDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABA\nEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsA\nAABJEOwAAAAkoUKwsyYnpTtdys8LAAAgN73C81lu/ty189h6MxZ1L2DO6RjObUumr9tx8HyK\nrkLlWh17dyoZrHM/cXX30K5jf8u8aff5y5pHBT1YyQAAAA8HRYOdy2mZOWhiksP5IIOcXjls\n4tK/OvTs1TnKvn7WtKH97ItmvKERQgiR+EticPSzfbpW8mxcymx8sJIBAAAeGooGu1/nDz0Q\n/qS4siHnQ7gyJiw9HtthQqtGJYUQseNE69c+WXy5Q7uCZiHEtWPJkRUff/zxSvcbBQAAQELK\nnWOX/Mfq0d+lD3//pcwrnfaE5TPGdOkQ92Kbdm8NGbflxM2/vcrlsp49e96zaE3acc7iaNqw\nkHvRFFW/aqhx3/ar7sVfk61R1SMd6clXriVyEh8AAAg0Cu2xc2ZcGTP8q/8MmlUmRJd5/cLB\nfTdZK3ftM7RouObErvVTBnd3TJ/XuFCIZwOH5UzffmPXrJrvXsy4dVgIUTHkbtmVQvSbjiS5\nHx9KtTl/mtJm6gmby6U3523Srk/3Z6t4tjxy5MjJkyc9i40aNdJq/eWiYL1eL4TQarVBQYFy\nRqBOp7v/RrlN3bdX+ZZV/3UKwJaV/1ShZeW5W9bpdKpXkpnFYlG7BPgFhYLdxk+G3Xi0Z5ca\nMS7H3X1yloQ1q04lj1ncv1KIXghRumxl+972S2Ycazyq5r+N47TeEkLEGO7+tYgx6GzJNiGE\nI+NikkZXIk+dcV+PinAk7/l2zvjZw0xlFnQsH+necuvWrQsWLPC8sHnz5iaTKbcbfSBarTY0\nNFTtKmQWaG9voPUraDkw+EnLBoPBYDCoXcVdBDu4KRHsru2Z9uWxAjPnPfm39akXDrlcriFx\nL2ZeabZfEKKmcDksVpsQwm6xiky/r1pTiBDihs1ZwHj734jXbQ59lF4IoTMWXrFixZ1hYhq8\nPPjkprZb5xzp+Gk996qgoKDw8HDPRC6Xy+XylwO2Go378g/hPyX5mqdlJan79irfsuq/TrSs\nAFpWXgB+YuMhokSwi//xcEbK5c4vPe9Z8223lzebq84ZFaTRmZcvW5D5U0Gj0Qkh0uIXx3VZ\n5lnZpk0b94MJs98UYvuJdFsB4+2dbSfT7RGVIu45b418wVtvxnsWu3Xr1q1bN89iQkJCamrq\nAzeXO8xmc3BwsN1uT0xMVLsWhajyb+6EhATlJ/UICwtTeEZ1+xUB2XLmfz0qQ/WWIyLu/Qns\nO/7QssFgsFgs/vNHBPBQItiVfvXdCS/Y3I9dzuT+A0bUHfph63zRITGXhHPvhnjb87dPqnN9\nOXxwUoM+bzcqFJLvlbVrXxFC2NNPtGp/9xw74bIVNn6+YVf8k02LCCFsqQf3p2S0eqqAECLx\n5LT+Hx8bM31qfvfOPJdj++W0yEfLKtAgAACAP1Ai2AXlLx6b//Zj9zl2kcVLlSpgFqJQl2rR\n8weNCurWqnzh0F82f7nueMKIwXmzGktj6N+q/MAvRmzN/075SOs3UyeYCz/ToZBZCBFeqm10\n2huDPpjV6+WnIzRp+zct3HEr7L0uBDsAABAolP7mib9p8d5E6+efLZ857qbNULhklX5jh1Y1\n3+dc1Ni2o3tYJ309YXiCRVO6aoNR/bu6j+Rq9TGjpn0wd+aiyaPftejDS8VWHjRpZPVQPzqz\nFQAAwKc0AXvuZ0JCgv/0Hpjn2AXvOaDwpPGVyyk8Y2ZhYWFBu/crOaO6/YqAbDk8PNy0a5+S\nM6reckREhHHnXiVn9IeW/fMcu5iYGLVLgPr85UZuAAAAeEAEOwAAAEkQ7AAAACRBsAMAAJAE\nwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAA\nQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7\nAAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJ\nEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAA\nACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGw\nAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQ\nBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEno1S5ANcHBwS6XS+0qbtPr\n9UIIrVYbHBysdi0KcbesMHXfXp1Op/CMqv860bICVG9Zq1V6B4GftKzX61WvJLP09HS1S4Bf\nCNxgZzAY1C7hLvcfA41GYzQa1a5FIcr/MRBCqPv2Kt+y6r9OAdiyRqNReEbVWw7An7K7Za1W\nq3olmRHs4Ba4wS45Odl/9tiZzebg4GCHw5GUlKR2LQoJDQ1VflJ1396wsDCFZ1T91ykAWw4P\nD1d4RtVbjoiIUHhGf2jZYDBkZGSkpqaqWwnwT5xjBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiC\nYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAA\nIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYId\nAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAk\nCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAA\nAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDY\nAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABI\ngmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIIlsBTvn5dOn3I8s1/a9P7Bn76EfbT6d\n4ouyAAAAkF16L7fLSNrdrn6LtX8WyLh11GW/+VzFBpsS0oUQMybMmvf7b+2Lhd7n5cknZ0+Z\ns/u307ec+uJlH23bvUed+73k3zm3LZm+bsfB8ym6CpVrdezdqWSwzv3E1d1Du479LfOm3ecv\nax4VlNOJAAAAHibeBrslz7defSyj85C3hBDXDvTdlJDec8PJ0RWuNqny9IC2y9rv7pzlq13T\n+723P7RWz2Gvx2hv/bB06scDBs/+ekqMPicHgk+vHDZx6V8devbqHGVfP2va0H72RTPe0Agh\nhEj8JTE4+tk+XSt5Ni5lNuZgCgAAgIeRt8FuzN5rxVuumT2qmRDi8Ogdpoj6k5uW0Ykyk1+J\nfWLBBCGyCnbWpB+2XkvrP75HnQiTEKLk4IHr4wYvvZbWs1D2d9q5MiYsPR7bYUKrRiWFELHj\nROvXPll8uUO7gmYhxLVjyZEVH3/88Ur3GwUAAEBC3u4zO2e1x9Qp6n48f298dJV+7sOf5lJm\ne/qf95lDH9O5c+da4Xd2nmn0QogQnVYI4bQnLJ8xpkuHuBfbtHtryLgtJ27+7bUul/Xs2fOe\nRWvSjnMWR9OGhdyLpqj6VUON+7ZfdS/+mmyNqh7pSE++ci3R5WVjAAAAsvB2j13dcNOxb38R\nAx+xJm5eHJ/WbN6j7vX7v7lgCCmf9WsN5irPP19FCHHzl58PXb22/79L81Z6tkO+ECHEwsF9\nN1krd+0ztGi45sSu9VMGd3dMn9e4UIjntQ7Lmb79xq5ZNd+9mHHrsBCiYsjdsiuF6DcdSXI/\nPpRqc/40pc3UEzaXS2/O26Rdn+7PVvFsuXr16s2bN3sWx48fr9d7276v6XQ6938jIiLUrkUh\n7pYVpu7bq3zLqv860bICVG9Z+Q9SP2nZaDSqXklmSUlJapcAv+Dt/5AfdCxbb1KnZ7sc0P+8\nUKPPM+aJgnbLH7PHj++z80r+huO9HOTqjs3rT108dyG93kulNEJYEtasOpU8ZnH/SiF6IUTp\nspXte9svmXGs8aia/zaC03pLCBFjuPvRGWPQ2ZJtQghHxsUkja5Enjrjvh4V4Uje8+2c8bOH\nmcos6Fg+0r3l+fPn9+7d63mhVqs1GAxeVq4MjUbjbyVJJtDe3kDrV9ByYPCTlrVarVbLLcPg\nd7wNdrU/3jri4n/GzJ1i0wR3mvDTI2ZD6sVvegybGVqk/lfLX/RykPK9h00QIvX8njd7fzSq\ncMVeeQ65XK4hcf/zcrP9ghA1hcthsdqEEHaLVQhhsVjcz2pNIUKIGzZnAePt/52u2xz6KL0Q\nQmcsvGLFijvDxDR4efDJTW23zjnS8dN67lWxsbGNGjXyTGS3270sWwF6vV6n07lcroyMDLVr\nUYgqu0utVqvyk3oo37K6/Qo1/gDTsvICs2WtVutwOPzq7wjg5u1fGq0++r2l+95Nu35LlyfC\npBVCBEU1XfNdnSefqROh02T92uQ/fvzxT1PzJv/nXgwtWrtFdNDG7y/rOxk1OvPyZQsyv16j\n0Qkh0uIXx3VZ5lnZpk0b94MJs98UYvuJdFsBo8m95mS6PaLSvXeG18gXvPVmvGexWbNmzZo1\n8ywmJCS4XP5yJp7ZbA4ODnY4HCkpgXJfwNDQHN/vJufUfXvDwsIUnlH1X6cAbDk8PFzhGVVv\nWfnDkf7Qslartdlsqamp6lYC/FP2diP/uXvLxOH9Ond8dd7VNLvlUmSR2PumOiGELX375zMn\nXrc5by+77EfT7CHFzCH5mwhn2oZ4m+E2/cKRw6ZuuyKECMn3ytq1a9euXbtq6cdafdTaO2Lz\nNSps1G3YdTuu2VIP7k/JePSpAkKIxJPTXu/S82qGZxbH9stpkRXLZqtBAACAh5f3wc41vVPd\n8o3iPvhk8tz5C/enZqScn/JUlQJPdptmv99ur6jy3UoarIPHfnHwyMk/jv26ZMo7h9ODX4kr\nYQyr2aVa9FeDRm388cDZ07+vmTV43fGEhnXyZjWWxtC/VflTX4zYevDkpdO/zRk+wVz4mQ6F\nzEKI8FJto9OuDvpg1v4jJ08d/WXxpHd23Arr1oVgBwAAAoW3h2L/XPRiz3m7nu45aULf1lXL\nFBZCRJX5eEy3hCGzerWs/vSGN7O6MFZryPfh+MHTPv/605Eb012G4mWq9x33vvuedi3em2j9\n/LPlM8fdtBkKl6zSb+zQqub7nK4R23Z0D+ukrycMT7BoSldtMKp/V/c+Q60+ZtS0D+bOXDR5\n9LsWfXip2MqDJo2sHuoX59gCAAAoQOPleWadCoSuzfNWwrGxQgiNRtPzj5uflY4UQoysEjPu\napNbVxf5tkwf8MNz7Ox2e2Jiotq1KCQ0NDR4zwGFJ42vXE7hGTMLCwsL2r1fyRnV7VcEZMvh\n4eGmXfuUnFH1liMiIow7995/u9zjDy0bDAaLxeJv59jFxMSoXQLU5+2h2BXX00t3bPfP9S+8\nWsqSsC5XSwIAAEBOeBvsipl0KaeS/7n+5tEknalQrpYEAACAnPA22L1bK98fX72657ol88q0\nS1s7LT0dU32QDwoDAABA9ngb7F5c+nkxzbkGJat1HzBSCHF0yZejBnasWKbJOWfBqcvb+LJC\nAAAAeMXbYBect9mhX9e+9Jh2zoQRQohtw/q/P/6rsNqtVx86/FJBsw8LBAAAgHey8R1H4WWa\nfr216RfxZ47+ecmuCy5SplKRSJPvKgMAAEC2ZBXsvvnmmyyevXrpvOdmFc8991zulQQAAICc\nyCrYPf/8816O4j83hAMAAAhYWQW7bdu2eR47bdeGt++4L71Q57e6NaxdOVJnOXV098yPp14u\n2mrbhgk+LxMAAAD3k1Wwa9CggefxD29U3pdWZsdfP9fKc/u8umeavdCtZ6cnC1ZvNbTD8S8a\n+7ZMAAAA3I+3F0+88/Wp0q9s86S62y8OqTCxS9m6swaILw77oDYAAPyRZttOJadT/VvU8BDx\n9nYnf6TbtcZ7bawVDuuF3KwIAAAAOeJtsGuTN+SPBYPOWh2ZVzqs59794lRIvjgfFAYAAIDs\n8TbYDZ3Zzpq4vWrlppMWrt5z6PjxX37+ZtGUZo9U+f6m5eUZg31aIgAAALzh7Tl2xVrO2jpJ\n3+adWW+/utmzUmfM22PSlmkti/mmNgAAAGRDNr554qk+0y51Hvjf9ZuP/HnJpg0qHPtIo2aN\ni4VmYwQAAAD4TvZimSGsRIuXu7bwUS0AAAB4AN6eYwcAAKCYEJ22zMs71K5CfRNLR4VEZ2OX\nWlZ77KpXr67Rmg4e2ON+nMWWhw4d8n5KAAAA+EJWwS40NFSjvX1H4sjISEXqAQAAQA5lFex+\n/PHHOw+dGzdu1BpNBo0CJQEAAH/iyrA6DCZ97oWAXB8wS057oksfqVNmMrV5dY6dy5ESGRL8\nzLI/fV0NAADwE0sqxEQUf2/f5/2KRIQGG3WR+Uq98u4CpxD75w2qXiJ/sCm0ZMVaIxYfy/yS\n1L929I1rUixvpMmcp3z1hh/M2uB8sAEPrxjb4JHiZqMppnD5l/uMv5jh8HK6ueWio0pPtCbu\nfeXJiqGmPKkOlzctX965qM0zNaPDgkIi8tZu2n75vnjPU8fXTnv+yUdjIsx6Y3DB0lVee2fK\nDfvdMZ2269MGd65SukCQwRAeXfTptr33XLe4n3qnaHh40Xcyz/LLBzU0Gk3mL33IevBs8eqq\nWI0uon+FPAu+3Cfals7ZNAAA4KGTdm1RvV432/cdXquoae30sYvGvvb76S+Obknr12/Yq44z\nkz+cOrJDzUbNE+uFG4UQty6tqVahzTlN4fadusbG6H7dtnzEG83X7Jp7aH7HnA0Yf/C9R5ft\natT6tf7Phf26fcWSKQO+33Hq3IGZwVrhzXRO+43Xqv0noX6HMVN6B2vvv3fwyk+jyzz5vivm\nsVe7D8qnu7HqizlxdTcm/37m9ZLh57/tWfn5GeHlGnR5a1Aeo/3YzlULPumz+1Lpk181d792\nUrNqA7Zceaptt9Zdiiaf2z9z9rRGP567eXGNN4c67zt4tnh7u5PhP274pW7znlOCR3ZvEW0K\nkN2ZAAAENLvl9IAtFz9pWEgI8Vr7SsHRLQ6t+WP7ldN1I01CiJalf41tt3XqhZR6FaOFEJ82\n7nJOE7v93ME60UFCCCE+WtO/+gsTOn34/gtDS0XkYMCkk9v7r/r90xfKCgNkYbMAACAASURB\nVCGE6+O5Pap3njnrlfVDVrYs7s10Kec/TJyyf3OvR71q1ZXRoeWHzsjGB/9cW95sEEIMGdSq\ncIGGw9pteH133A+DlmlNRX/95ftityPQyLxFwmdunCVEcyGEPf3kwC2Xiv5nxZbFL7oHezGs\nbsu5O1ddT2+bN/i+M2c9eHZ5e7uTFm2GpucvNqPvC3lDwgoWKV7yf+VgYgAA4OcMIeXdIUwI\nEZSneZhOG1N5kjuECSHyPl5fCJFucwoh7GlHRx27Uf7N+XdilhBCNHtvshBi6YyTORhQCBFa\nsNvtVCeE0Og7TFwdotP++N42b6fTmBZ0r+ZlpykXJ35/01Lj48nuVCeECMrTYM2Mz4a/HiOE\naPXT71cvHbsTvITLecvqcrkcabfn0QYbNSLx+Kr951Pca+p8vDM+Pt6bVHffwbPL2z12QUFB\nQhRq3rxQzqYBAAAPHa0+OvOiXiNMeaM8ixqtwfPYcuM7h8v12/j/04z/+yBJvyXlYEAhRNQj\nrf5n46DY5nmCNlz9UYjXvJnOGFotn8HbHVjJp34QQtRtmD/zyvqvv1lfCCFESGSeG/s2zt+4\n4+jJP/86d/b44V8vJlqD7twvRGcq+t+xHVq8+9X/FV9cvHKtx2vXfqJhk9atGufx7uqQrAfP\nLm+D3bp16+67TYPyZbafOJXDQgAAwMNLaxRCPPLOl54dch6mCG93m/3NP2ORXiNu34jNi+k0\nWrP3czmtTiGEUXPvKLay/9OtJ/5QuHrDZ5+q3aLuf/qPrHqx2zO9rt3d4Il35l/rOGTNmvXb\ndvy0c/O8r2dP7Pd27TVHfngm0w5FD5fzfy6MuO/g2ZKb3/R64a+zuTgaAAB4WATlaabT9LUn\nlmvS5HHPSnv6iZVrfy1QNSRnY944skaIZzyLDuvZdQmW8DpP+2K68LKPCrF5597roni4Z+XW\nQW8uTIiaNbFl24k/FG0286/13TxPzc30Wlvq7wePJkZXrRHXbUBctwFCiOPfjarY7L0+ww4d\nm1HHXXvmua7uv+F5nJGyJ+vBs4uvFAMAAA9KHxQ7omKeUwtf23Ll7slhi3s+9/LLL5/LadZI\nvTT93W9P31lyfD3guVSH87mP6/piuvDiQ6qGGn/uPeCM5XYIy0ja/erk2ev35rOnnXC4XHmq\n1fBsnHZ51/iLKULc3vF26+qM2rVrt/no7rdwlaj5mBDCfssuhAjRaS03vr1+58RBS8KeHlsv\nera87+DZlZt77AAAQMDqu2H67LLtm5au/EJcyxpl8hzZunTh5pOPdFzYIV8O99iZ8gZ91LLi\nkfadHysdduiHZau3ny3aZNS0Ovl9MZ1GF/HNVz3KvDD5kdgGnV5pUsCQuHr2zMsO87QVHUPy\nBjWK7vHDJy16GQbUKBJy+uieOTPXli4QlHH+4JRFy19/uVVEiQ8a5f18y6gnmp3uVLtSKWfi\n2TVzvtQZokeMqS6EaNmh7Aej91Vt+Oo7rzS0XTkxb8LkqzFGccHunjckb1zWg2e3EfbYAQCA\nXBBarM3hw+s7Ny62Y9UXw0dN3hef5/3Z3x388pUcD1hr0q7Zw189/9PqMaMn/XQmrPOw2Ue+\nHeo5CS7Xpyv+3MTjG2Y8XSppwdRRoybOdVV6dv6O398oGym0QWsOrXulYfE1U9/vO+zTn046\nZ+8/vWb58GJhGQPf6Jlod2p0EWt/+75X63pHv1s06t3BE2Z/E1mv3Yq9v7crEiqEqP7Bts/6\nvRx2fsvAN7sMHPFJ4iNxm5Y1uDvr/QbPbhcalyuH+/r+qXSw4c90W26N5msJCQm52PsDMpvN\nwcHBdrs9MTFR7VoUEhoaGrzngMKTxlcup/CMmYWFhQXt3q/kjOr2KwKy5fDwcNOufUrOqHrL\nERERxp17lZyRlv9NTEyMryvBg3Baky/E24sVyePTWTgUCwAA4HNaU3ixIj6fhWAHAABkdnZ1\ni+qdd2axgSmiwZWzaxSrx6cIdgAAQGYlXlh/8wW1i1AKF08AAABIgmAHAAAgidw8FDti0pRc\nHC3QaLZldfjfF1S/sgwAAOSurPbYNaxa+fUfL7sfV6hQYeS5lKzH6tD9zVyrCwAAANmU1R67\nS3+cPDVm9k/vNTFoxYkTJw7v+/nny2H33LJWrVq+KQ8AAADeyirYzehVr+HH79ff+L57cWWr\nZ1b+y5b+c6dfAACAgJVVsHtq3NbTrXccOH3F4XLFxcU1nvxl5/w5/Lo3AADwEElJuc/5VzkW\nFnbvo3/IFfe5eKJkzSdK1hRCiBUrVjRp06ZtAbMSRQEAACD7vL0qdvny5UKItIu/rPhm87HT\nl9Ic+oKlKjV+vlWNoqG+LA8AAKjDOHporo+ZMezDXB8TmWXjdicr34tr/+Eyq/Pu6XRD+77R\neuiipSNf8kFhAAAAyB5vb1B8Znn7VqOW5mvQeenmny9eS7gZf2nf1hWvP5l/2ahWHVad9WWF\nAAAA8Iq3e+w+7bs2tHDHE9/PDtFq3GtqPvVSjQZNncULLHtrvHhxqs8qBAAAgFe83WO3JD6t\nbLc+nlTnptGG9OlVLj1+sQ8KAwAAQPZ4G+xCtVrLVcs/11uuWjQ6rp8AAABQn7fBrm+ZiD8W\n9Nh/05p5ZUbSwV5zTkbE9vFBYQAAAMgeb8+x67Ri5PuV3qpbomrnXp3qVokNEul//rZr3mdf\nnkwzTlneyaclAgAAwBveBrvIcj2Obda/0uPdmWMGz7yzMk+5J6ZNW/hG+UgfFQcAAKCAPAbd\nC8euf1EmSu1CHlQ27mNX5Klu2453vXDiwNE/L1mFqVCpio9WKOrtoVwAAAD4WDaCnRBCCE2R\n8jWLlL/3cw3Kl9l+4tQDlwQAAICcyM09bhf+OpuLowEAgIBiSz36TrumZQtHhkTmfzpuwG+p\nNvf69Ks/vfnCEwUiQ/WmkJKV63+08qR7/dmNM5s/VjGP2RRTuNRzb3yU7HAJIYTLqtFoPjyf\n4hk2j0H3+qmbWYwjEw6lAgAAP+DK6Fq97pfHo8bN/XbLqpn5fv3iyVpD3M8MfLzFyksVv1i7\nZf9Pm/s0cgyNq3Uhw5GR/GOVFj3Ff97esGPPss8GHJg3rNnUY1nPcM9xfN+YorJ7KBYAACD3\n3Tg+cMHpjG035j0RYRRCVNlyvUX7ry9nOAsataXeePeLjm81zxsshChf+t23Jz97+JatXtLG\nFIeze4/2tQuGiBrVv19Z8FRIdNZT3HOcIkadAt0phmAHAADUd2HtrqCoxu5UJ4QwF+r6ww9d\n3Y/f7td96zcrPj76+9mzZw79uN69MrTI2688NvfFEiUbNG1cr27dZ5o+/2zlAllPcc9xJMOh\nWAAAoD6n1anRBv1zvcN6vnls0bhRS5J0MfVbvDJ1xdfu9Vp9zMK9F37bOrflY0WOb13wTLUi\nTQdvvufAGa6sxpEMe+wAAID6CreoYhm1cn+qrWaoQQiRdnVh6WrvzD12tua5/hvPWS+fXJff\noBVCpF1b5N7+6s4JY1dnTPp0cIW6zfoIcWzm49UHviM+OuR+9obN6X5w6/LXtxxOIcTNE/ce\nRzLssQMAAOqLqTb12fzO5o26rf9h78Gd3/Vo/LYltOV/okym6MdczozxS7f/deHMro3z4xoO\nEkIc+fOqPl/K5PFDXh09b8+h337etmbstN8jyrUWQgiNqXa4aWn3jw6e/Ou33d91atRbq9EI\nIf5tHMmunmCPHQAAUJ9GF7r0t60Dur7bp90z8Y6IGo26bJsxUggRVmTgxo/P9h7SZmqyvur/\nNfpg1dF87SsPrftI85s3vht/fdBng54YcSMif9EaDbtsmzHQPdQ3/50S12VsvYofpzuc9V6f\n/ty1/lmPUylEnjikcblcuTVW6WDDn+m23BrN1+x2u9ol3KXVanU7dis8qa1eLYVnzCwAW9bp\ndNrtu5ScUd1+BS0rgpaV558tJyYmxsTE5OKkKSkpxtFDc3FAt4xhH4aFheX6sPfkcqZfvSkK\nRAcrM52f8DKiOq1Wm9ZoMmh8W42SLBaL2iXcZTKZlJ9U3XcgAFsOCrrHScE+pfovOS0rQPWW\ng4OV/qtJy/CSRhtc4D73P5GQV8HO5UiJDImq9fWpbW1LZ7HZiElTcqkqJVit1lzcW/mAdDoV\nbqKj7ieFXq/Cfm91WzYYDArPqPofgwBs2Wg0Kjyj6i0r/480Wgay4NXFExpdRP8KeU5/uS/r\nzTp0fzM3SgIAAEBOeHtV7PAfN1Q5/1bPKd8kWCW7fAQAAEAS3h4Oa9FmqDN/sRl9X5jxdlD+\ngnmDDP+TCM+cOeOD2gAAAJAN3ga7oKAgIQo1b17Ip9UAAAAgx7wNduvWrfNpHQAAAHhA2bsy\n8fctSxf/d/e5azeeGDczzrDr50tVGlTO56PKAACAijKGfah2Ccg274Oda3qnej3n3b4lY8jw\nKc1TpzxVff0TXaZ+P6unXqL72wEAACFE+IHDuT5mco0quT4mMvP2qtg/F73Yc96up3tO+vXU\nRfeaqDIfj+lWZ/vsXi1nnvBZeQAAAPCWt8FudP/NeSoM/v6zPlVib18/oQ8pP3jmzg8eid4+\nYpTPygMAAIC3vA12K66nl+7Y7p/rX3i1lCWB6yoAAADU522wK2bSpZxK/uf6m0eTdCbugQIA\nAKA+b4Pdu7Xy/fHVq3uu/8/X1aVd2tpp6emY6oN8UBgAAACyx9tg9+LSz4tpzjUoWa37gJFC\niKNLvhw1sGPFMk3OOQtOXd7GlxUCAADAK94Gu+C8zQ79uvalx7RzJowQQmwb1v/98V+F1W69\n+tDhlwqafVggAAAAvJONGxSHl2n69damX8SfOfrnJbsuuEiZSkUiTb6rDAAAANmSvW+eEEIE\n5y1ZM29JX5QCAADgU2lXvzAX6HLGYi9h0qldi09kJ9g50zfMn7J43ZYTZ67Y9ebi5ao2b9Op\nS8tafOsEAACAP/D2HDtHxoXOtUs07zx40TfbLyZm2G6e37j4827P1a7QYmiKw+XTEgEAQCBx\n2JwqvjwrLnuqr4bOJd4Gu+1vNZ6779qTvaeeSUy9dObEkT8upCaf/azPk79/O6bRiAM+LREA\nAASCQib9sM1fVi8QZtIbCsTW+nxv/P75A8sXjDKFxtR6oe/1O3nNkXFxTI8XSuaLNIXmeaRB\n63m7rmTr5UKIa3vmNqpWItgYVKhcrRELDmQ9rBAij0E39dy5fq2fKlD4Hl/W4Fe8DXZDl5yO\nKjfsh8m9iocZ3Gv05mI9J/3wXoU8h6e967PyAABAAJnwwvg3vvz+5JGdrcJO96j/yItLXHP/\nu3f70hHH102NW3nGvc3Q+o+O/1E/et7q3VtWd6/tev2J2Dmnkrx/uRCiZYsxDfpM2Lrlm95P\nGEd2fGzo7qtZDyuEWNGleWSzAdt3f67gm5ET3p5jdyzNFtvupX+uf+m1UqOH/ZyrJQEAgAD1\n6KRV3ZuVE0IMm/5/0+tu/HblR4+E6EWVMu8UHbb4x3gRVzr14oSP913fnriofrhRCPForQa2\ntdEje+zssrmZNy93z1Jr9ubhcaWFEHXqN0neFT2ry5IhmxxZDCuEuFZy8nudGqrxlmSPt8Hu\nuejg7T//JUS1v60/v/u6Kbx+blcFAAACUf66Me4HhsggnanYIyG3g0q0XutyuoQQiSf+63I5\nn4j4nxuuRWacEKKZNy936/WfIp7H7buVmfDessQToVkMK4SI7Vgx97r0IW+D3ejZr5d+of1H\n6/cNblHBs/Lkd5/ErT9XZfhK39QGAAAC2T1OGDNEBGv1kbdSr2S+KYdGc88886/nm2V+wpjH\nqNEa7jtseB6jt1WrKqtg99Zbb2VefLKIdsizFWc9Wv+xCmXCNSmnThzYsf+0zpi/ZdQuIR71\ncZ0AAAAiolRXl2Pt9HOWfmUihBBCuAY0qn+t/dwFncp4P8i07y893er2TXkXjz8eUfaTiFJ5\nH3xYf5BVsJs5c+bft9brLxzefeHwbs+icCa83//td3v38lWBAAAAdwTlaT7xmcJD6j1rnjKk\nTtmozV8MmLzz4sYVxbI1yLpXnxlnmfh0rHnHwg9H/JY86chzQXmiHnxYf5BVsLPZbIrVAQAA\n4I231h9I691tTI82V6ymctWeWrhjzdPZ+Y5TnbHgfye0HvRB1/fPW2Kr1fhk1ZHeFaIefFg/\noXG5vL29cPrlEzsPHEu4dY+017Zt21ytSgkJCQne9+5rZrM55OeDCk8aX7mcwjNmFhoaGrxH\n6TsgqttyWFhY0O79Ss6obr8iIFsODw837dqn5IyqtxwREWHcuVfJGWn538TExOTipCkpKeEH\nDufigG7JNaqEhYXl+rDw8PbiibMrB9Z4ecKNf7mX88MY7AAAACTjbbB7q/u0ZF3R9z8b+1TF\nYnq+HRYAAMD/eBvstiZaq37wzYhuVX1aDQAAAHLM268UqxtuDMoX5NNSAAAA8CC8DXYTRzba\nP7Dz/mvpPq0GAAAAOebtodhKvdZ0/SxvnWKxTzd9smhMyN+enT17dm4XBgAAgOzxNtj9NLj+\nZ7/fFOLmlu9W/fPiCYIdAACA6rwNdj0+2x9atNXmH2fVLp7HpwUBAAB/kFyjitolINu8CnYu\n560jafb6s8aS6gAACATcRvgh5dXFExqNvrhJd/OXeF9XAwAAgBzz7qpYjWn91A4nJjeftO6I\nv3wJFwAAAP6Xt+fYvTH/VGF9ytstHxkcmT9vqOFvz54/fz63CwMAAED2eBvsYmJiYpq0qObT\nWgAAAPAAvA12q1ev9mkdAAAAeEDefvMEAAAA/Jy3e+ySkpKyeDYiIiI3igEAAEDOeRvsIiMj\ns3jW5eJiWQAAAJV5G+xGjBjxP8su+6XTx9Ys/eaGpvCIGWNyvSwAAABkl7fB7v333//nykmf\n/Px02QaTJh8Y2ql9rlYFAACAbHugiyeC89eaPbLa9V8nbk+y5lZBAAAAyJkHvSo2pEiIRqMr\nF/L3WxYDAABAYQ8U7Jy2+InDfzGEVi9g4LYpAAAAKvP2HLs6der8Y53z8qnDfyVYag77LHdr\nAgAAQA54G+zuRVv0kYbPP/3Kx0Nr5Vo5AAAAyClvg93u3bt9WgcAAAAeUPb22N24cDr+lu2f\n68uVK5dL9QAAACCHvA12luvfv1Sv7Ybfb9zzWb55AgCgorBPRio2l1MI0bStYtMB2eJtsPv8\nuQ7fnUpp8ebg/1Qpodf4tCQAAADkhLfBbvS++FJtV62b3tKn1QAAACDHvLr/nMuREm9zFG9b\nxdfVAAAAIMe8CnYaXeiTkUGn5+33dTUAAADIMS+/MUKzZP2ojO9e6Thq/tVbdt9WBAAAgBzx\n9hy7VoO/yV/QMP+9jgvefz1PgQLBuv+5gOL8+fM+qA0AAADZ4G2wi4mJiYlpVLyaT4sBAABA\nznkb7FavXu3TOgAAAPCAHuS7YrPBZb+5evas73b9mmDRFixapmWHN5pUL5DTwZzblkxft+Pg\n+RRdhcq1OvbuVDJY537i6u6hXcf+lnnT7vOXNY8KerDaAQAAHg4KBbtNYwZ8dTTstW69KxY2\nH96yePqInpbP5j9XNDQHQ51eOWzi0r869OzVOcq+fta0of3si2a84T7jL/GXxODoZ/t0reTZ\nuJTZmEsdAAAA+Dslgp3Den7mgesNxnz6XKUoIUSZ8o9c3tv2m5knnvuwZrbHcmVMWHo8tsOE\nVo1KCiFix4nWr32y+HKHdgXNQohrx5IjKz7++OOV7jcKAACAhBQJdpazxUuWbFYq7M4KTfUI\n056kVCGE056wcvas/+46fMOqLVy66vOvdXu6fFTm17pc1r/+ulaiRFH3ojVpxzmLo3fDQu5F\nU1T9qqGT922/2i6ulBDi12RrVPVIR3pyfIozf77Iv33zmdVqtVqtnkWNxo++GU2VYvzqHVBG\noLWser/KF6B6y8qj5UDgTct8aTvclAh2xoj6kybV9yzaUk98eSm1RNdYIcTCwX03WSt37TO0\naLjmxK71UwZ3d0yf17hQiGdjh+VM335j16ya717MuHVYCFEx5G7ZlUL0m44kuR8fSrU5f5rS\nZuoJm8ulN+dt0q5P92fvflvGrFmzFixY4FncuXOnyWTyScMPiejoaLVLUFqgtRxo/QpaDgz3\nbNn6z1US8eanfP36dQUqgf9T6Bw7j7P7vp06Za69VLN3nylsSViz6lTymMX9K4XohRCly1a2\n722/ZMaxxqP+9RCt03pLCBFj0HnWxBh0tmSbEMKRcTFJoyuRp864r0dFOJL3fDtn/OxhpjIL\nOpaP9H1bAAAA6lMu2Flvnvhy8tSNv95o0OrND9s1DNJorl845HK5hsS9mHkzs/2CEDWFy2Gx\n2oQQdotVCGGxWNzPak0hQogbNmcB4+3vzLhuc+ij9EIInbHwihUr7gwT0+DlwSc3td0650jH\nT+u5VzVt2rRixYqeiSwWS0ZGhg8bzg5V9h2mpKQoP6lHUJAKVysHWsvq9iuECA4OVnhGWlae\nn7Qs94Vyqv+U8RBRKNilnPm+/8BpuipNP579armY23/e9GajRmdevmxB5nMHNBqdECItfnFc\nl2WelW3atHE/mDD7TSG2n0i3FTDeTkIn0+0RlSLuOWmNfMFbb8Z7FsuUKVOmTBnPYkJCgv+c\nkaDXK73rVAiR+YxD5RkMBuUnVbdlo1HpPz3q9isCsmXl/5GmesvK/4vlni3LHexU/ynjIeLl\nd8U+EJcz7cMhM0xPvzX9vW6eVCeECMnfRDjTNsTbDLfpF44cNnXbFSFESL5X1q5du3bt2lVL\nP9bqo9beEZuvUWGjbsOu23HNlnpwf0rGo08VEEIknpz2epeeVzOcd2Z1bL+cFlmxrAINAgAA\n+AMldhSlXVl4LM32ehXzgf37PSsNwWWqVqrZpVr0/EGjgrq1Kl849JfNX647njBicN6sxtIY\n+rcqP/CLEVvzv1M+0vrN1Anmws90KGQWQoSXahud9sagD2b1evnpCE3a/k0Ld9wKe68LwQ4A\nAAQKJYJd0u9nhRBfjPsw88qIUsMXTnqsxXsTrZ9/tnzmuJs2Q+GSVfqNHVrVfJ8jdLFtR/ew\nTvp6wvAEi6Z01Qaj+nd1H8nV6mNGTftg7sxFk0e/a9GHl4qtPGjSyOqhKhzvAwAAUIUSwa7Q\nU2PXPnXvpzS6iFZvDm315r++Vh9c3nOvE89rnnmt/zOv3WNjU1SlN4aMeeMBSgUAAHh4KXGO\nHQAAABRAsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAA\nJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbAD\nAACQBMEOAABAEnq1C/BrYZ+MVG6ypm2VmwsAAMiIPXYAAACSINgBAABIgmAHAAAgCYIdAACA\nJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYA\nAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg\n2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAA\nSIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAH\nAAAgCYIdAACAJAh2AAAAktCrXYBqtNpAD7U6nU7F2TUajfKTBlrL6vYraFkRqresPFq+J4fD\noUAl8H+BG+wiIyPv+xFsVaYUlURFRaldgtICreVA61fQcmC4Z8t8XF+/fl2BSuD/AjfY3bx5\n0+VyZb1NqDKlqCQhIUHF2c1ms/KTqttyaKjSv1Dq9iuECAsLU3hGWlZeeHi4wjPes2U+rgG3\nwA12LpfrvsFObgHYfqC1rHq/yhegesvKo+VAEIAtI8cC/TwzAAAAaRDsAAAAJEGwAwAAkATB\nDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABA\nEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsA\nAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ\n7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQhF7tAgAAuS/sk5HKTOQUQjRt\nq8xcAO6LPXYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAA\ngCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2\nAAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAk9GoXAP8S\n9slI5SZr2la5uQAACABKB7t5b74WNHJmXN7gBxjDuW3J9HU7Dp5P0VWoXKtj704lg3XuJ67u\nHtp17G+ZN+0+f1nzqKAHmAsAAOChoWSwc/3x09zVlxJbu1wPMsrplcMmLv2rQ89enaPs62dN\nG9rPvmjGGxohhBCJvyQGRz/bp2slz8alzMYHqxmADBTbFe0S7IoGoCaFgt2VHycN+3zntSTr\ngw7kypiw9HhshwmtGpUUQsSOE61f+2Tx5Q7tCpqFENeOJUdWfPzxxyvdbxQAAAAJKXTxRJ4q\nrQa/P/bTcYP+tt5pT1g+Y0yXDnEvtmn31pBxW07c/NsGLpf17NnznkVr0o5zFkfThoXci6ao\n+lVDjfu2X3Uv/ppsjaoe6UhPvnIt8YH2CgIAADyEFNpjZ4woEhshHBl/P91t4eC+m6yVu/YZ\nWjRcc2LX+imDuzumz2tcKMSzgcNypm+/sWtWzXcvZtw6LISoGHK3+T2xzgAAHgRJREFU7Eoh\n+k1HktyPD6XanD9NaTP1hM3l0pvzNmnXp/uzVTxbHjly5OTJk57FRo0aabUBfVFwUFDAnX2o\nbss6nU7hGVX/EQdgy8qj5UDgTcsWi0WBSuD/1Lwq1pKwZtWp5DGL+1cK0QshSpetbN/bfsmM\nY41H1fy3lzitt4QQMYa7fy1iDDpbsk0I4ci4mKTRlchTZ9zXoyIcyXu+nTN+9jBTmQUdy0e6\nt9y6deuCBQs8L2zevLnJZMq6wgc+cuzXQkND/7kyAFuWWKD1K/69ZYl/sWnZTeJ+hXf/LxPs\n4KZmsEu9cMjlcg2JezHzSrP9ghA1hcthsdqEEHaLVWT6fdWaQoQQN2zOAsbbO9uu2xz6KL0Q\nQmcsvGLFijvDxDR4efDJTW23zjnS8dN6yrQDAACgLjWDnd5s1OjMy5ct0GRaqdHohBBp8Yvj\nuizzrGzTpo37wYTZbwqx/US6rYDx9s62k+n2iEoR9xy/Rr7grTfjPYu9e/fu3bu3ZzEhISEl\nJSXrCsOy085D5/r16/9cGYAtKyYsTOl3V91+hT+1LPEvNi27Sdyv8IP/l/EQUfMks5D8TYQz\nbcP/t3efgVGUax/Gn9mW7KYTEgKhNwMBQhPFAoqAiojAiRC6NI8UlXZooYZmRBEJRUBQE5Wm\nCIE3x4INROXIQREhIBZagCSk9+xm5/2wIQaEgJ5kN/vs9fu0M/PM7H3vJJN/dmdmU836Urq4\nqDkxX1wWQpgCh8bHx8fHx+/c9qJG5xd/VdPA7sEGbcLXpXHNnHvkcE5x+weDhBCZP68ZPWZC\ncrG1dOtqyZeX8n1bNndQcwAAAPbmyGBn8Oo4pq3/2zMWfXjgv2d+O7Vr/cw9iWndOgdUtI6i\nnxoecnrTgs+O/Hzxt2Ovz13hEdxjWB0PIYR344H++ckzFq4//NPPp4//sGXl9P15Xk+PIdgB\nAABX4eCvFOs975WiDat3vBadYdYHN2ozZVlkmIe+4lWaDlw8vmjluyvmphUqTcK6Lpo61vZJ\nrkZXc9GahW+89s6ri2cX6rwbN201Y2VUO89bbA0AAEAadg12WkPd+Pj48nMUrU/4uMjwcTdd\nRWcMKbvXSdk6PUZM7THiBoPd/EKfmbX0mUqpFQAAwNm49I3cAAAAZEKwAwAAkATBDgAAQBIO\nvngCgP15LY+y35M9OtB+zwUALo937AAAACRBsAMAAJAEH8XC1fG5JABAGrxjBwAAIAmCHQAA\ngCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2\nAAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACS\nINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEA\nAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAgCYIdAACAJAh2AAAAkiDYAQAASIJg\nBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0AAIAkCHYAAACSINgBAABIgmAHAAAg\nCYIdAACAJAh2AAAAkiDYAQAASIJgBwAAIAmCHQAAgCQIdgAAAJIg2AEAAEiCYAcAACAJgh0A\nAIAkCHYAAACS0Dm6AIcxGo2qqjq6CkcyGo2OLsHeXK1lV+tX0LJroOUbKigosEMlqP5cN9jp\n9fpbjrHaoQ7HMRgMf55JyzK5Yb+CluVCyzYS9ytuvpfLI9jBxnWDXXZ29i3fsfOyTykOkpWV\n9eeZtCyTG/YraFkutGwjcb/i5nsZ+DPOsQMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQ\nBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4A\nAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIE\nOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAA\nSRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwA\nAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRB\nsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAA\nkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASOns9kfWLrWv37D9yPkfbotVdTz03\nspFRWwWbqsRnAQAAcDJ2esfut/fnvLLtm879x86fNNz0677IKRvVKthUJT4LAACA07FLsFOL\nV2xLbDpscXj3zqEd7p8UPSE3KWHLpbxK3lQlPgsAAIATskewK8raf66w5NFudWyTbn73h3ka\nvvsyWQhhtaTtWLd0zLCI/gMGPzsr+tOTGdetq6pFZ86cv51NVbAIAADAFdjjHLvivB+FEC1N\nfzxXqEn38U9ZQoi4mZM+Lmo19vnIet7Kya/3rpr5z5K1b/asYyobWVL4+6Qpy3btfOuWm6pg\nkU1CQsL+/fvLJufOnavT2e0Uw+rIy8vL0SXYm6u17Gr9Clp2DbR8Qzk5OXaoBNWfPZKNtShP\nCFFT/8d1DDX1WnO2uTBt187T2Uu3TA016YQQTZq3svxnyNZ1J3ou6vhXN1XxIptffvll3759\nZZMLFy50c3OruPKi223RKd2wfVqWyc1+wmlZJrRsI3G/4uZ7uTyCHWzsEew0biYhRLrZGmQo\n/eT3irlE56fLvfC9qqqzIvqXH+xhuSBER6GWFBaZhRCWwiIhRGFhYcWbqniRTdOmTbt37142\nabFYbl161PK/0/Bfp9PpVK1WVdXi4mL7PKMQoqjoRkdC+7ZstVrNZvOtR1cSV2v5xv0K+7Ws\n1+tVjYaWq1Q1abmkpOS2DqqVwbG/yKL6tAzciD2Cnd7UWogvTxaYgwyl/3P8XGDxCfXReRgU\nrceO7bFKucGKohVC5KduiRizvWzmgAEDbA9WbBx3w01V8CxlG+nVq1evXr3KJtPS0lS1ulw1\n6+HhYTQaS0pKXOdfLk9PT61W61Ite3l5uWDLbm5uFovFdVr29vY2GAxms9l1Wvbx8dFoNC61\nl20tm83m3NxcR9cCXM8eF0+4+z4YbNAmfJ1qmzTnHjmcU9z+wSBTrYeFNT8h1awvpYuLmhPz\nxWUhhClwaHx8fHx8/M5tL2p0fvFXNQ3sfsNNVfAsdmgQAACgOrDL7U4U/dTwkNObFnx25OeL\nvx17fe4Kj+Aew+p4GLw6jmnr//aMRR8e+O+Z307tWj9zT2Jat84Bf2NTt1gEAADgAux0WWjT\ngYvHF618d8XctEKlSVjXRVPH2j5+7T3vlaINq3e8Fp1h1gc3ajNlWWSYh/7vbariRQAAANJT\nqs95ZnZWDc+xs1gsmZmZjq7FTjw9Pd3d3c1mc1ZW1q1HS8F2wpkLtlxcXJydne3oWuzEdo5d\nUVGRS51wptfrXbDlwsLC6naOXc2aNR1dAhzPTl8pBgAAgKpGsAMAAJAEwQ4AAEASBDsAAABJ\nEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGwAwAAkATBDgAAQBIEOwAAAEkQ7AAA\nACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAASRDsAAAAJEGw\nAwAAkATBDgAAQBIEOwAAAEkQ7AAAACRBsAMAAJAEwQ4AAEASBDsAAABJKKqqOroGx0hLS6s+\nvaempmZkZBiNxnr16jm6FjtJSUnJzMx0qZaTk5OzsrI8PDyCg4MdXYudXL58OTs729PTs06d\nOo6uxU4uXryYm5vr7e0dFBTk6FrsJCkpKS8vz8fHp1atWo6uxU7Onz9fUFDg6+sbGBjo6Fqu\nUbNmTUeXAMdz3WBXrSxfvnzbtm0tW7aMjY11dC12smTJkg8++KBdu3YbN250dC12Mm/evISE\nhLvuumvNmjWOrsVOZs6cuW/fvi5duqxYscLRtdjJlClT9u/f37179xdeeMHRtdjJhAkTDh06\n1KtXr6ioKEfXYidjx479/vvv+/XrFxkZ6ehagOvxUSwAAIAkCHYAAACSINgBAABIgnPsqoVT\np06dP3/e29u7U6dOjq7FThITE5OSknx9fTt27OjoWuzk+PHjly5dqlGjRvv27R1di538+OOP\nKSkpAQEBYWFhjq7FTo4ePZqamhoYGNimTRtH12InR44cSU9Pr127dmhoqKNrsZPDhw9nZmYG\nBwe3aNHC0bUA1yPYAQAASIKPYgEAACRBsAMAAJCEztEFuIpj+7ZuT/jy53OXS3SmwLrNuvaK\nGNgtxNFFVZW5g8KP5hUP2rB1UJCp/Pwjy8Yu+Ca5UfiKV4c3dVRtVefA+CHLL+T8eb6iGHbv\nfs/+9VSdU69NmP5hSuz72320im3OR88NXXs29+Vt7zd119rmHFk4etFPhvd3rLv9/x3fGR1x\nuPvSVwY1roKSK03Fe3lE/75tYuKmBnvZvzC7+e+/Riw8lXHdTFPAwK2bhlw3s0+fPn03bh1V\nyySc1t87budeupDrHhjkZ7BDhcCfEezs4ezuqDmbjz40YFT46GZu1txfj34VFzPjdP7KOb0b\nObq0qqJolc/jfh70r7Z/zFKLNx25olUUxxVVtdpMnru0yCKEUEtyIucuu2PcrBH1vIQQiiLb\n++J1HmujJvzf7isFw2uZhBCqWrglKVdVrVsTM+a0K73x/Se/ZHvWGydb5660lyvg7ttt3vTu\n5edoDTf4AoZHH300xOjEf2L+9nH7wILpCXcuiBnT3D51Atdx4t86J/LG9h/rdJv33JDSCwND\nWrcPMZyZ9tZLovftfgNBiVXVapwpEtV6sE3qV5uK1RjD1apzk969KILu875y7rY34lxd+zQL\n8RFCCKGWZAghvJq0aNXc17ElVRHP2gPcNAk/HEgZHt5QCFGQ8n5GiWF4Q8OebYmi3f1CiJLi\npG+yi1uOlvCCQdfZyxXQ6ANatWpVwQC1pFDRuo8bN85uJVWF//24DTiEC/2X6UD5JWpRRnL5\nOQ37jI+cMVIIIVRznz59tl8pKFs0uN8Tqy7m2h6P6N93x/mfosYP69+v75Cnno7Z9o0dq/6f\neDcYHmS98G65D61OxR70bzvarVxQKylKil0xf8TgAf2ejJgUGX3wTOlg5+36xircxVZL2o51\nS8cMi+g/YPCzs6I/PXn9h1zVkKLze7yGMfnTn2yTSQnfGgP6dxnSNPvXd0tUIYTIT95tVdWH\n29UQFTZYeOXoqqhZowaHDxo+bs173zqilcpnNWe8uXR6xJP9Bo8Yu2rLN0Lc4gdAJoP7PbE3\nNXVTdOTwp14SQvTp02dzcr6ji/r7KjpuC1GceWLd0lnDIwb07R8+ZuLM975Oss1f/9SAdZdy\nz8ZPe3JotL0rBoQQBDv7GP1E6ytHVo+auiD2vf87+vP5YlVo3Zve5v3b9s6ObtD32dXr107s\nG/LJO8u2pjjJgVLjNrqd/1dvnSydVIs3f3/lvhHlT09RX5v8r/87oY6cNCd63rQw999fmjbp\nZIHFtsxZu/7r4mZO2nVCO/T5yOWLZz9yh7pq5j8/vugEzd7zQK381F22GPfZl8nBvTrXaP1k\nSVHSnvRCIcTlfYk694ZdfNzEzRtULWnzn110KM1v5JT5sydGpH+8Mj6toMLndA7/XTxXuTP8\npZjVE/qF7NuybMcVGZq6jtWcmngt69VFB2OiPDr0W7Z8giPrqyQVH7ffmB71dXq95+YuXhG9\nqE+YNW75tCsWqxBizOvvjg3yrP/YC1venObQ8uG6+CjWHu4YtCCm5YHPvjr0/b7t78Wu17r7\ntu50f/iIYW0C3G+5rsfd00b0DBNC1Os7JfidAydTC0Wgc5yMHDL8vrTJGwutHd01Ss6Fdy4q\nwUOCPddfXZqfsvWjC7mT3pj9gL+7EKJZaMvjg4etjz/3ysDGwpm7/ksK03btPJ29dMvUUJNO\nCNGkeSvLf4ZsXXei56LqftPmOj07lLz33udZRQ8aUz7MKBrdtZbO1KCLj9sXH1/sO6jx91+n\nejWYoFTYYOqRNacK3VdET23srhVC3NHCOHDoEke3VQn8wqaM6BEmhKjbd2rg218lphcJf9kO\ns4WZn82Y8Vn5OVt37TZpFCFEVq2xEd0luTNzxcftWo8MePah3h19DEKIukFPvr5n0ZlCS01P\ng1an0ylC0ep0Oq2jO4CLku2IU201CLt/ZNj9QoiC9KQfDh/au2Pb/PFHXn17df1bXTgV1KNB\n2WNvrUY4z/2kPesOqavZ/eaZnGcae5+KPRjQYYK+3PlyWSd+1LoFd/MvjbaKxtS/tmntV5fE\nwMbCmbv+S3IvfK+q6qyI/uVnelguCFHdg50xoL+n9v3Pf8ro4L9FGOo+6ucuhOh9d+D8T74Q\nEXX3pBU2HNlcVNhg6v4kd7+eja9eRWvw6tTBU59m/04qW/Ajf/zoejnPGaJ/yQ2vgbWp/VA9\nOxdTpW563HbTPtH3kR8PHdx5Lik5Ofm3E985ulLgDwS7KlecffCl1V+OmjYzyKARQhhrBHfu\n2b/jfXf8I2LW22dzZjfzuHa4ark2xOiNTvtvn6If1SEg5o1jz0Td+cYPaV1WXnONmKqK684E\n0GgU1Vpie+zEXd/aH7tY52FQtB47tseW//uvKE7Qu6L17B9g2rv391/dT3k3esp225N6/e4s\n/Dj+l2T/LIu1V2s/UXGDfwo93jqNBMHOaLrl7rv+d1wmJi9J/qZUfNye2ciyaNyE056hD9/b\nNvTOFj36dJ3yXJSjSwZKcY5dldMaan936FDcoZTyM0sKMoQQQZ5622Tu1SN9YcaXhVZ5jvrN\nh3dNP/H6pbNvX1IaRNS5JsL6tmhZUnR+f0aRbVK1FuxKygu4J9gRZdrDDXexqdbDwpqfkGrW\nl9LFRc2J+eKy48r8Czr2rJ1zJn77ycwmA0pPnTQFDfDRWtfs/LfO2Lyzl0FU2GBgl+DCjE9+\nLyyN8iWFv3yTXeSoXuxA1t9xWVV83M69sOlIqnn1y3OHPdmnS+cO9fwkvBQGzkuS/66qM617\n41m971iyYrLxXESnFo1MOktG8rmEuHe8G/caXttDKOIOk/7Amve6PvOILuf81pgNikR3evMI\nimisez/q5U8COs3UXduWqdbg7nUS1s6IVv75j2CT+asPNpyy+C7p1+AmW3Jmiv5mu9jg1XFM\nW/+3Zixyfzo8JNjzh08270lMWzAzwLH13qZaD9xjjo09KcQLLf1scxSNaVCw57oPL9YInWWb\nU0GDNduOb+729NzZKycM6+WnZCbErvFyc4K3Kv+Om/8AoNqq+LhtTmumqgd3HfipV6vA9HPH\n39scJ4Q4dzmzfdNAjRAaRRRcSsrICPLz83Z0H3BFBDt76DQ2en6DLR989OEru1MKLIpfYN22\n3YZPG/qYLevMWfj0izE7Zkx4v9iqtuwx7u6sTY6ut/Io2pF3BUZ+cXFQZLM/L5qwMtpr9caN\ny+fnWLT1mref9tL4liY5fyAr2MW9571StGH1jteiM8z64EZtpiyLDPPQO7DU2+fu/7if7u18\nj3vK77V24Q3Ey8ca9m9SNudmDSo6/6iYyLWrYlcumS3ca3YZMOOZQyviHNCHPcj8Oy6vCo7b\nupr9FzyVsjE2em++tmGzsMGz1vi8PDFu+rMdt7xb300b+sRdsZtXjZvWZeumyY5uAq5IUVU+\nFKgWVLU4M1f4efEtNNJiF7s4fgAA2AHBDgAAQBJcPAEAACAJgh0AAIAkCHYAAACSINgBAABI\ngmAHAAAgCYIdAACAJAh2AKpKqIehTud/3/747LNzFEUZciq96koCALkR7AAAACRBsAMAAJAE\nwQ4AAEASBDvA5Sxp6qdzq5NvLf06wfMf9lIUxbve9LIBXw5upijKm8n5Qojcs/snRTxcP8DX\nzaNGSLtuC9cnWK/d2i0HlFKLX45oodG6Td2SWDbvu60vdO/Y1Mvd4F+7WcTzK1OKr1k1MX5N\n3wfa1/Tx0BmMtZu0GTF9VbpFFUIkrr1XUZSYpNxyY60P+Rk9a4/6X14WAJCBCsDFHI+5Wwix\n5Gy2bXJvj3pCCI3WdKm4xDZnSKCHm/e9qqrmJn3QxKjXmxo+NWHa4vkznuzaWAjRdvgbZZuq\neEBLk7723QmqqqpW88ohoYpG/3zcT2XrHl09UAjh7t9u5MSZ/3pmaHMPvV9YUyHE4JNpqqqe\n2zteoyi+IQ9Mi1y4dOHcoT1DhRDNhuxVVbUw41ONooQ+923ZprJ+XyqEuG9dYtW9aADgFAh2\ngMvJS44VQnRY+oNtsqefe60H7hZCTDqVrqqqOe+YVlEa9f1IVdUFof56U4uvrxSUrfvBlLZC\niMW/ZtomKx5QGuys5tUjWiuK/tm3jpUNsxScDjRoTbUe/ym72DYn98Knd5j0ZcHurdCaOvf6\nZwstZatMDvYy+j9uezyprpexRq+yRR8NbKJo3A7nFFfiqwQAzoiPYgGXYwocdq+P26+v7xVC\nFOd8+3FG4cMvbvLSaj7d8IsQIv34CyWq+tC8dpb844tOpIeMe6uzv3vZur3mvSqE2LbuZyHE\nLQcIIVRR8tqYOye+daxBnx2rhrcqG5Z6ZFZKcUnPt9aEeultczyCu8WNDykbEP7VqeSLJ+q7\naUu3Y80rUlW1JN82+XRkm4L0hE2X82yLJu05599qWQdPfWW/VADgZAh2gCua+0Dt7HMvpVus\n6T++rCjaWa2aT67rdXb7TiHEiRWHNDrvRaH+hen/LlHVYy93Uspx8+0qhMg6liWEuOUAIUTq\nkaETYn/v5Ot2/sPxX2cXlxWQcuCMECKifc3yVTUZ2a7sscm3Rv4vB15ZNHvMsIE9ut5Vz99/\n7cU/TqprPGiRRlFiXj0phLhydHpivrnnyoFV9WIBgPPQOboAAA7Qbu6D1t1vRJ/JfmTlEVPA\noBCj7olhjRYvi0kxL9n42UXfJlFBBk2uxiCEaD198/Juda5b3c2nrRBC3HKAEKpVWZpwbJTv\n5sBO8weGbzj/8UTbfI1OI4TQKNespXH3K3v8/tSHnnzl8+B23R5/8O7e9z4yNSos6ekeE1PK\ntv/gpLqer216QSzbsW/ybp1b/VX3B1XGCwMATs7RnwUDcABL0XlPrab1tP8MCfRoMuBzVVUz\nf4sUQjz7w36Noty/+ZSqquaC01pFafH0wfIrmvMTt27d+sWlvNsZ0NKkD7prr23+ht71hRCz\nD162TV4+NFAI0f+T8+XXTdxwjxBi8Mm0ouxvtIpS/7H15Zdubl7D3fehPwavv08IEXfhdIBe\n27BPfOW8LgDg5Ah2gIta3MTXWLOfVlEGfnNJVVWrJbOGXlO7xx1CiN1ppRdDLAr11xmb7ruU\nV7ZW7MjmiqLEJufdzoA/ropV1eKcww3cdUb/nmnmElVVLQW/BRq0nnX6n8w12wYUZf7Q1dfd\nFuzyLr8hhGgbebhss3kXD4Z66N19u5XNKcr8UqsowY+FCCEWns6oglcIAJwPwQ5wUcdX3217\n2/67qxeTLmviK4Qw+vcuG5Nzdlt9N53e1GjAqOejly0c1qOlEKL1U3G3OaB8sFNVNXH940KI\nOyMP2CaPrnpSCGEM6Pj05DlzJo9t6+fe6JFRtmCnlhR09zdqDUETFry0+fW1cyYPDzL63tvI\nS6PzffXt7bklVtsWptX3FkK4+3YrqdJXCgCcB8EOcFF5yXFCiLIbiKiqenRZRyFE8xH7yw/L\nPPXhP/t2DfL1NJhqhLS9b/7Gf5ut6m0OuC7YqdbiMU18NDrv3cn5thnfvrPkwXaNPd10XjXr\n/WPC6pzcE+Lq7U5yz+0b8chdwf4e3kGNH3hs6J7j6amHX2zoZzJ4BlwoKr0HyskN9wkhwmZ9\nV9mvDQA4K0VVVfud0AcAlefw7LadXvjxg9T8J8rdbwUAXBnBDoBTspqvdPYPPuk3Mevsy46u\nBQCqC253AsD5jH92av7pnf/JKR69c4qjawGAaoR37AA4n9BAr98tPuETV8ZGhTu6FgCoRgh2\nAAAAkuArxQAAACRBsAMAAJAEwQ4AAEASBDsAAABJEOwAAAAkQbADAACQBMEOAABAEgQ7AAAA\nSRDsAAAAJPH/1lXbsv5L1ysAAAAASUVORK5CYII="
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Let's visualize the number of rides by rider type:\n",
    "\n",
    "all_trips_3 %>%\n",
    "  ggplot(aes(x = weekday, y = number_of_rides, fill = member_casual)) +\n",
    "  geom_col(position = \"dodge\")\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "id": "1d870609",
   "metadata": {
    "execution": {
     "iopub.execute_input": "2024-01-12T15:55:03.067631Z",
     "iopub.status.busy": "2024-01-12T15:55:03.065786Z",
     "iopub.status.idle": "2024-01-12T15:55:03.425670Z",
     "shell.execute_reply": "2024-01-12T15:55:03.423370Z"
    },
    "papermill": {
     "duration": 0.383568,
     "end_time": "2024-01-12T15:55:03.428332",
     "exception": false,
     "start_time": "2024-01-12T15:55:03.044764",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAIAAAByhViMAAAABmJLR0QA/wD/AP+gvaeTAAAg\nAElEQVR4nOzdZ4BU1cGA4TPbWZaOShURVEQUaxAb0UgMarAEBaMo9hobtohGRWMXUayxxm4+\nsUdNrGgsiQRjV+yoWEA6y9aZ78fqCgrLLDIz69nn+ePMvXPvOUdlePdO2UQqlQoAAPz85eV6\nAgAArBzCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEgW5nkBmzZs3r7a2Ntez\n+F5paWlhYWF1dXV5eXmu55I9xcXFJSUlyWRy/vz5uZ5L9hQUFLRs2TKEMG/evObzNeCJRKJ1\n69YhhIULF9bU1OR6OtnTqlWrvLy8ioqKysrKXM8lezyh5XouP9SuXbtcT4Hcizzskslkkwq7\nRCKRl5eXSCSa1KyyIC8vL4TQrFadn59ft+pkMplMJnM9nSzJy8urW3UqlWpW/7nrF96sVl33\nhBaa2apDCHl5ec3t/3B+RrwUCwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEH\nABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlh\nBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJYQcAEAlhBwAQCWEHABAJ\nYQcAEAlhBwAQCWEHABAJYQcAEImCXE8AgJWm1UVjszZWKoTKEMLYi7I2IrBcrtgBAERC2AEA\nRELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBEoiDX\nEwAyLpu/GL6y7h9jzsnaiADUc8UOACASwg4AIBLCDgAgEsIOACASPjwBxCmbHxmprvvHGedn\nbUSApXLFDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAg\nEsIOACASwg4AIBLCDgAgEsIOACASBbmeQO61umhs1sZKhVAZQuLsi7M2IgDQfLhiBwAQCVfs\naEayeXU2hFAZQvEFl2dzRACaOVfsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAi\nIewAACIh7AAAIiHsAAAiIewAACIh7AAAIlGQ6wlkVsuWLfPylhOvNdmZymIKCwvbtWuX9WFz\nJpFIhBDy8vJyvurs/7cOIbRp0yYXwy4h+wsvKytLpVJZH3YJ2V91SUlJcXFx1oddQvZXXVRU\nlPM/2tlU94SWn5/f1FY9e/bsXE+BJiHysKusrFzu3y5F2ZnKYmpraxctWpT1YXOmqKiouLg4\nmUyWl5fneCa5GHTRokU5T5zsL7yysrKmJich/b3sr7q6urqqqirrwy7BE1qmNZ0nNFiqyMOu\npqZmuX+7ZP95MJlMVlZWZn3YnMnPz6+7kfNV5yTsqqqqkslkLkb+nsTJjtra2mb4P3lTWHU2\n1T2hpVKpZrVqfka8xw4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIO\nACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLC\nDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBLCDgAgEsIOACASwg4AIBIFuZ4AudHqorHZ\nHK4yhMLzxmdzRABohoQdAD9v2f9JteDcS7M5IqTPS7EAAJEQdgAAkRB2AACREHYAAJEQdgAA\nkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYA\nAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2\nAACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQ\ndgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACR\nEHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkSjIzjBV86Zed/n1L77+\n4cJkQY+1Nx5+6BEDVy8LIYSQfOauqx56dsqn8/PX7Tdg1NH792yR/91By9rVwCEAAM1Xdq7Y\npa46/k8vzux85Gl/vvDMk/rmv33hCafMrEmGED6ceNqld784cPeDzzh239IPnhhz/HWp745Z\n1q4GDgEAaM6yEXaVc59+6uvyg886YuD666y13sYHnHJibcW0u78uD6mqcXe/3XvkOcO2H7je\nJlsfe8GRCz5/5M4vFoYQlrmrgUMAAJq3bIRdXkHHAw44YEDrom/vJwpCCKX5eZVzn51WUTtk\nuy51m4vbbd2/rOjlSV+FEJa1q4FDAACauWy8x66w5Qa77rpBCGH2//79yldfT/7H3aus99uR\nq5Yumv5aCKFv6fdzWK+04J9vzA0hVC1c+q6qrZd5SJ1XX33173//e/3dkSNHrrLKKplb2orJ\nz88vKyvL9SyyLZFINMNVhxBatmyZSjW79wuUlJQUFRUt/3FxKSoqystrdp9IKygoaIZ/tPPy\n8praqhcsWJDrKdAkZOnDE3W+evbxh9/7fNpni7b63ZqJEJKVC0MIHQu//+hDx8L86nnVYdm7\nGjikzieffHLvvffW39199927d+/e8Kwqf+KqGi8/Pz8/P8cf+Mj+qhOJRElJSdaHXUL2Vx1C\nKC4uzsWwS8j+wptC1WV/1QUFBQUFWX1S/TFPaNnRFJ7QfkDYUSerz0F9jj5tXAgLPn3p8KPP\nP7tr39Frl4YQZlUnOxV9+zPuzOragnYFIYS84qXvWtb2+iE6duz4i1/8ov5uSUlJdfX32ddE\nJJPJ2traXM8i21KpVE1NTa5nkQNN8P/ALKipqWmG1ylra2uTyWSuZ5FtntCgSclG2M17/7nn\nPijeaYdve6us++Y7dyh57IkvCjdcP4RJ7yyq7lT07SWNqYtq2qzXJoRQWLr0XcvaXj/WFlts\nscUWW9TfnTNnzty5379Qu1StVtIy01dTUzNv3rysD7uE7K86lUot979FpmV/1SGE+fPn5/wv\n++wvvLy8vKqqKuvDLiH7q66srCwvL8/6sEvI/qqrq6vnz5+f9WGXkP1VJ5PJnD+hwVJl4+0g\n1Ysm/eWaS2dWf/d3W6rmzfKa0tVblrTdtmtR/iMvzPj2YQumTJ5ftfG2nUIIy9rVwCEAAM1c\nNsKuXZ9DehZWnnLeDVPemPr+W6/edflJry1qsc+INUKicPSwPu/dcOZTU6ZO//D1608f17Lr\n4JFdWoYQlrmrgUMAAJq3bLwUm1e46p8vOeXKv9xx8djHFqUKe6y10bEXnDGwTXEIoffwc46o\nHH/HuNO/qUj06j/o7NEHJ747alm7GjgEAKA5y9KHJ1p2/8VJZ/9iKTsS+YP3Gz14v6Uds6xd\nDRwCANCMNbuvXAIAiJWwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiE\nsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCI\nhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMA\niISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLAD\nAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISw\nAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiE\nsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCI\nhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMAiISwAwCIhLADAIiEsAMA\niISwAwCIREGuJ5BZ+fn5uZ7CUiQSiYKCyP/NL1XzXHV+fn5eXrP7CSovL68Z/ue26uajCT6N\n19TU5HoKNAlN6//Lla60tHS5bVeZnaksprCwsG3btlkfdgnZX3VeXl4zXHUIoU2bNrkYdgnZ\nX3hZWVnWx/yh7K+6pKSkpKQk68MuwRNadjSFJ7QfmDlzZq6nQJMQedjNnz9/uT/EtMrOVBZT\nVVU1b968rA+7hOyvOplMzpo1K+vDLiH7qw4hzJo1K5lM5mLk72V/4fPmzauqqsr6sEvI/qrL\ny8vLy8uzPuwSsr/qysrK+fPnZ33YJWR/1bW1tbNnz876sLB8ze4VIgCAWAk7AIBICDsAgEgI\nOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBI\nCDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCA\nSAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsA\ngEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASBQ06tGzPvtwxsLqH29fZ511\nVtJ8AABYQemGXcXMJ3631fBH3p211L2pVGrlTQkAgBWRbtj9ZZeRj743f+fDT/nNBmsUJDI6\nJQAAVkS6YXfOyzPWHH7vQ1cNzehsAABYYWl9eCJVO39GdW2P4RtkejYAAKywtMIukV/2y7Yl\nH948OdOzAQBghaX5dSeJux4+u+rRfUad/devFtZkdkYAAKyQdN9jN+yUB1brXPjXP4265YwD\n23fq1CJ/iQ9QfPrppxmYGwAAjZBu2HXs2LFjx+17bJjRyQAAsOLSDbv77rsvo/MAAOAnatxv\nnij//H/3PPD4Wx9OL68t6Lzmer/eddgm3csyNDMAABqlEWE38U8j9v7z3yqT3/+SiTHHHrbH\nmNvvHvu7DEwMAIDGSfNTseGj/9t72Nl3rzrogLsf//fnX38ze8b0l5+658Bfrva3s4eNvPfj\nTM4QAIC0pHvF7uJjHyzrOuqdJ64rzfv287Cbbvu7TQYNSfbo9Lc/XBJ2n5CxGQIAkJZ0r9jd\nNaN87UOOqa+6Oom80mOOWmfRjDszMDEAABon3bAry8ur+Krix9srvqpI5Pv8BABA7qUbdseu\n1eb9W46YPLty8Y1Vc6ccdf3UNr2PycDEAABonHTfY7f/PWPPWO8PW67R/4Cj9t9yg94lYdEH\nr79w8xU3Ti0vuvz/9s/oFAEASEe6Ydd2nSPeerxgnyNOvebcU675bmP7dba58spbD+vTNkOT\nAwAgfY34Hrtu2x7yzNsHf/bOf9/8YHplKO6yZt+N1+2e7ku5AABkWON+80QIiW59Nu3WJyNT\nAQDgp2go7DbaaKNEXvGU/75Ud7uBR77yyisreV4AADRSQ2FXVlaWyCuuu922rTfSAQA0aQ2F\n3XPPPVd/++mnn878ZAAAWHHpfvhh4MCBF3+24Mfbv3zh6K23G7lSpwQAwIpYzocn5n30/hdV\ntSGEl156ac233353Yesl96fe+PuzLzz3caZmBwBA2pYTdhN/M+CAqbPqbt/x61/csbTHtF7j\nyJU9KwAAGm05YbfF2HHXzKkIIRx22GGDzr50r1Va/OABeYWtBv5uWKZmBwBA2pYTdusM32+d\nEEIId911164HHHRol7IszAkAgBWQ7hcUL+tTsalk+fyFoXWr0pU3JQAAVsRP/ZVgnz2xW4dV\n1l0pUwEA4KdI94pdqnbBFcce/NcnJ3+zqGbx7V9O+yTRom8GJgYAQOOke8XulbG/PPqKu+a1\n7bl255qPP/64zwYb9t+gT8E30xPtt73qgccyOkUAoLkpzc9ba69ncz2L3Lu0V7vSDjun//h0\nr9idOuHNDv3OmfrCmFTtgjXL2m11xS1jurda9PWkfj13XNCl5QpNFQCAlSndK3bPzataY8TO\nIYREftnIVUufmvJNCKHFqoNuGbXGOcOuy+AEAQBIT7ph164gUT2/uu72gG4tP3/g87rbPXbv\nNuf9SzMyNQCgKUhVVdakmvQJG5SsmVObtcFyLd2wO6hrq/dvOv/TytoQQvehXT975C912798\n8qtMTQ0AyJ271u3YpsefXv7L8d3alLUoym+76pr7nHpLMoTJN5+80RqrtSgu69l3wJl3vrX4\nIQs+efbYETusvkrb4pbt+2y03VnXPpL8aSd87Z7zBq3fo2VRcceuffY65pLPq2rTHO6mdTq0\n63Vp5Zz/7PPLvmXF7RfUptWRXzx/+56DN+3QqqS0zSqbD9n7/16eUb/r7Qev3PWXG3ds07Kg\nqEXnXhvsd9LlsxZr02T1zCtPOWCDXp1KCgtbd+j+q+FHvzSzom7XSd1bt+5+0uKj/O+sTRKJ\nxMeVtWmevFHSfY/doTcePHbbi3t1XP3dGdN67XtQ+R8PH7j/arv3rL7kkjfar3fxio0NADRl\n5V/fvtVRs/c+9vQB3YsfvOq828/b790Pb3jzyfLjjz9t39qPLvvzhLEjN91+pzlbtS4KISyc\nfv+G6+45LdF17/0P7t0x/9Vn/u/Mw3a6/4WbXvnrqBU74Ywpf9r4by9sv8d+o3dp9eqke+66\n/IQnnn1v2n+vaZEX0hkuWTNrvw1/883WI8+9/OgWeYnlLvbLf52z1i/PSHXcbN9DT141f9a9\nN1w/YsvH5r370YE9W3/69yP77Xp163UGHfSHk9sX1bz1/L23XHTMi9N7Tb1tp7pjx++44QlP\nfrnt8EP2OKj7vGmTr7nuyu2fmzb78/sLlz9sWO7JGyXdsOs86MJXJnY+69qH8hKhZedD7zz2\nnr3HX/xSKtW61w73PHboCgwMADRxNRUfnvDk5xdt1yWEsN/e67XosPMr978/6csPt2xbHEIY\n2uvV3r9/asJn87fq2yGEcPGvD5qW6D1p2pSBHUpCCCGcf//ojXYbt/+fz9htzJptVuCEc6dO\nGn3vuxfvtnYIIaQuvOmIjQ645tp9Hv7jxKE90hlu/qd/nnP55MeP2jitpaaqRg79c7Ltr6d8\n8GCfloUhhD+ePKxrp+1O+/0jB7444umT/5ZX3P3V/z2xenF+CCGEsat0a33NY9eGsFMIoWbR\n1BOfnN79N/c8eefudSfbvdWWQ296/t6Zi4b/6Hex/ljDJ2+sNF+KTVZWVvbd9bh7H3uqR3F+\nCGH4uMdnffLO/97+ZOZ7jw1edfmTBgB+dgpL+9RFWAihpP1OrfLzOvYbXxdhIYRVttg6hLCo\nOhlCqCl/8+y3ZvU5/K/fZVYIIez4p8tCCHdfPXUFThhCKOt8yLdVF0JIFIy89L7S/Lzn/vRM\nusMlim85dMM0Vzr/80ufmF2xyYWX1VVdCKGk/aD7r77i9AM7hhCG/evdr6a/9V14hVRyYWUq\nlaot/3acvBZFiTDn7Xsnfzq/bsvAC5+fMWNGOlW33JM3VlpX7FK189uWthtwx3vPDO9Vv7F1\n97X7r9iYAMDPQV5Bh8XvFiRC8Srt6u8m8grrb1fMerQ2lXr9kl8kLvnhSea+PncFThhCaLf+\nsCUeXNJ7p/Ylj3z1XAj7pTNcUdmGqxam+1mCee89HULYcrvVFt+49YGHbx1CCKG0bftZLz/2\n18eefXPqB59M+/jt1179fE5lSdtvH5Zf3P0f543c+dTbftHjzh79Bmyx+ebbbLfDHsN+3b4g\njRdil3fyxkor7BL5bUav2/6WG18Oi4UdAMC38opCCOufdGP9Bbl6xW3SvWz2Az/OooJESOQV\npzlcIq8R37ObrEyGEIoSS0+xiaN/tcelT3fdaLvfbrv5zlv+ZvTY/p8fMvior79/wDYn/fXr\nUX+8//6Hn3n2X88/fvMd1116/HGb3//G04MXu6BYL5Vc4oMRyz15o6T7HrvTn3vkf1vudOTl\nLcYeunOH764WAgCEEEra75ifOLZmzjo77LBF/caaRe9MfPDVTv1LV+ycs964P4TB9XdrKz9+\n6JuK1gN/lYnhWq+9cQiPP/+fmaFH6/qNT518+K3ftLv20qHDL326+47XfPLwIfW7blrs2OoF\n7055c06H/puMOOSEEYecEEJ4+9Gz++74p2NOe+WtqwfWzX3xsb6aPKv+dtX8lxo+eWOle4ly\n5z3HLFpt9auP3W2V0ladu/XouaSfMAEA4GevoKT3mX3bv3frfk9++f2bw+48cpe99tprWrqt\n8UMLpl916t8//O5e7R0n7LKgNrnLhVtmYrjWPf7Yv6zo30ef8FHFtxFWNffFfS+77uH/rFpT\n/k5tKtV+w03qH1z+xQuXfD4/hG8vvC386urNN998z/NfqX/AGptuFkKoWVgTQijNz6uY9feZ\n371xsOKbl4546vP6Ry735I2V7hW7kpKSELrstNMPL3imKVUz+77rrn30hVe/qcjr3H2toSMP\n22GjTiGEEJLP3HXVQ89O+XR+/rr9Bow6ev+eLeovBy5rVwOHAAC5cewjV1239t5DevXbbcTQ\nTdZq/8ZTd9/6+NT1R906ctUVvGJXvErJ+UP7vrH3AZv1avXK03+7b9LH3Xc4+8qBq2ViuER+\nmwduO2Kt3S5bv/eg/ffZoVPhnPuuu+aL2pZX3jOqdJWS7Tsc8fRFOx9VeMIm3Uo/fPOl6695\nsFenkqpPp1x++/8duNewNmuctf0qf3ny7G12/HD/zddbMznn4/uvvzG/sMOZ524UQhg6cu2z\nznm5/3b7nrTPdtVfvnPzuMu+6lgUPqupG7d0lRENn7yxC0k37B566KHGnnpx/zz3hNvebLXf\nIUf37drytSfvvOrMIyuu+Osu3cs+nHjapXd/MvLIow5oV/PwtVeOOb7m9qsPq3t9e1m7GjgE\nAMiVstX3fO21NieffN4D995wf1XRmmv3PeO6R0878DcrfMIB41/Yd+rVV9xy3+N3zmrVZZ0D\nTrvu0jMPrP8bf6UP12OXS99+pM/x515xy4SzKxNl6w347V/PGb/P2m1DCPe/8tCRh4y5f8IZ\ntxautvEmW1w3+cPNF12/2eAzTzzsyN/tsXvLojYPvv7Eycec8cCjtz9++8IW7TpvvPXv7znj\ngl27lYUQNjrrmSvKD5ow8ckTD7+jOpXquuW+/7xoxlZbPPrtqHklDZ+8satIpFJpXeubO3du\nA3vbtGnTwN7ayk+H7XnUoHNvPna9uk++pK7Yb/iUbifdeM4GRw0fXjxi3CW79wwhVM5+bo/9\nLhpx7Z2/79wypKqWvqtT4TIPWZo5c+bU1NQ0vLRWF41t+AErXeLsi+fNm5flQX8g+6suPG/8\nrFmzlv+4TMr+qosvuHzWrFnJZHL5D82k7C+8csw5VVVVWR70B7K/6tozzi8vX8FvKFhZsr/q\nMPai+fPnZ3vQJWV/1QXnXjp79uwsD7pcHTt2zPUUaEiyct5nM2pW79Y+o6Ok+0J02wY1fGxt\nxcc9evbccc1W321IbNSmuGrugsq5z06rqB3y3edZittt3b+s6OVJX4UQlrWrgUMAAJqsvOLW\nma66kP5LsWeeeeYS91M10z986/67H5iV6Hrm1ec2fGxRm63Hj9+6/m71gndunL5gjYN7Vy38\nWwihb+n3c1ivtOCfb8wNIVQtfG2pu6q2Xvr2+rsPPvjg2LHf/+h222239enTp+HpVTa8OwOK\niopy/nNV9ledl5fXDFcdQmjfPuN/jJcr+wtv3br18h+UYdlfdWlpaWnpCr6XaGXJ/qqLi4uL\ni4uzPuwSsr/q/Pz8nD+h/cDMmTNzPYWm6+P7dt7ogOcbeEBxm0Fffnx/1uaTUemG3RlnnPHj\njeMv+vev1h40/rL/jtl/7zTP8/HLf59w+U01a+546uCu1R8vDCF0LPz+ow8dC/Or51WHEJKV\nS9+1rO1pjg4ANDdr7Pbw7N1yPYlsSTfslqrFagOuG7thv2MvnTT3vEFtlvMTW+Xsd268bMJj\nr84aNOzwP/9+u5JEYn5xaQhhVnWyU9G3rwjPrK4taFcQQshbxq5lba8fpX///qeeemr93TZt\n2ixYsKDhiRU2vDsDampqKioqsj7sErK/6lQqtXDhwqwPu4TsrzqEsHDhwjTfyZo52V/4okWL\namtrl/+4TMr+qquqqnL+zkJPaNmRTCZz/n5KWKqfFHYhhNJupYlE/jqly/ljNf+jJ0afeGX+\nBkMuvG7fdTp++y3MhaXrhzDpnUXVnYq+jcKpi2rarNemgV0NHFKnR48ePXr0qL87Z86c5T7j\n5OQZoRk+D6ZSqWa46hBCZWVlzj88kf2FV1dXS5ycyP6qa2trm+Gqm8ITGizVin5pYAghhGT1\njEtP/19h2UadGvxdbKlk+Z//eHXxr/5w1Z8Oqa+6EEJJ2227FuU/8sKMurvVC6ZMnl+18bad\nGtjVwCEAAM1culfsBg4c+KNtyS/ee+2Tbyo2Pe2Kho8t//LWt8qrD9yg5X8nT67fWNhirf7r\ntRk9rM+JN5z51Gon9Wlb+cCEcS27Dh7ZpWUIISQKl7VrmYcAADRvP+Wl2Lzu62+366/2uXDM\ngIYfN/fdj0MIN1zw58U3tlnz9FvHb9Z7+DlHVI6/Y9zp31QkevUfdPbog+u/eHBZuxo4BACg\nOUs37F588cUVHqPLtuc9uO0y9iXyB+83evB+jdnVwCEAAM3YT/3wBAAQn8z9QpFWrVot/0Gs\nqIbC7oEHHkjzLLvsssvKmAwAACuuobDbdddd0zxLzr+mCwBYuYrOGbPSz1l12p+X/yB+gobC\n7plnnqm/naz++vS9R728qMsBfzhku837tc2veO/NF6+5cMIX3Yc988i4jE8TAIDlaSjsBg0a\nVH/76cP6vVy+1rOf/HtA+2+/GXjwjrsdcuT+v+y80bAxI9++4deZnSYAAGKHN2cAACAASURB\nVMuT7hcUn3THe732ubq+6uoUlK576UFrf3D3CRmYGAAAjZNu2L2/qCavaGkPzgu1lZ+tzBkB\nALBC0g27PVcpff+Wkz+uXOK3etdWTjv1hvdKVx2RgYkBANA46YbdmGt+XzlnUv9+Q8bfet9L\nr7z99v/+/cDtl++4/gZPzK7Y6+pTMjpFAADSke4XFK8+9NqnxhfsedK1x+37eP3G/KJVjhj/\n5JVDV8/M3AAAaIRG/OaJbY+5cvoBJ/7j4cff+GB6dV5J197rb7/jr1cv+/4Mg/qsNemd9zIw\nSQCADGpfmL/bWzNvWKtdrifyUzXuV4oVtlpj570O3nkZez/75OOfPB8AAFZQuu+xAwCgiRN2\nAECTUL3gzZN+P2Ttrm1L2672qxEnvL6gum77oq/+dfhu23RqW1ZQXNqz39bnT5xat/3jx67Z\nabO+7VsWd+y65i6HnT+vNhVCCKnKRCLx50/n15+2fWH+ge/NbuA8MRF2AEATkKo6eKMtb3y7\n3QU3/f3Je69Z9dUbfjngj3V7Ttxi54nT+97w4JOT//X4MdvXjhkx4LOq2qp5z22w85HhN8c9\n8uxLf7vihP/efNqOE95qeISlnifzC8uqxr3HDgAgE2a9feItH1Y9M+vmbdoUhRA2eHLmznvf\n8UVVsnNR3pqHnXrDqD/stEqLEEKfXqced9lvX1tYvdXcx+bXJg89Yu/NO5eGTTZ6YmLn90o7\nNDzEUs/TrSg/C6vLGmEHAOTeZw++UNLu13VVF0Jo2eXgp58+uO72cccf+tQD91z45rsff/zR\nK889XLexrNtx+2x20+5r9Bw05Ndbbbnl4CG7/rZfp4aHWOp5IuOlWAAg95KVyUReyY+311Z+\nulPv7iPOvmtufsetd95nwj131G3PK+h4638+e/2pm4Zu1u3tp24ZvGG3Iac8/uPDQ0hWpRo6\nT2RcsQMAcq/rzhtUnD1x8oLqTcsKQwjlX93aa8OTbnrr402njX5sWuUXUx9arTAvhFD+9e11\nj//q+XHn3Vc1/uJT1t1yx2NCeOuaLTY68aRw/it1e2dVJ+tuLPzijoW1yRDC7HeWfp7IuGIH\nAORexw0n/Ha15E7bH/Lw0/+Z8vyjR/z6uIqyob9pV1zcYbNUsuqSuyd98tlHLzz21xHbnRxC\neOODrwpWnX/ZJX/c95ybX3rl9X8/c/95V77bZp09QgghUbx56+K7Dz1/ytRPXn/x0f23Pzov\nkQghLOs8kX16whU7ACD3Evlld7/+1AkHn3rM7wfPqG2zyfYHPXP12BBCq24nPnbhx0f/cc8J\n8wr6/2L7s+59c9W9+43Zcv2dZs969JKZJ19x8jZnzmqzWvdNtjvomatPrDvVA/+4fMRB523V\n98JFtcmtDrxql69HN3ye9UrjyaGVuZIzx1++Es8GADQrxe1/MWHiExN+tH2HE69898Qrv7/7\n8qfXhxBCWO/4Cb85/scPD6tufshTbxySSi76anbo1KFFuP7whs8TQphVHcmVu8aF3btP3n3n\nP16c9vWsbS64ZkThC/+evsGgfqvW7x156OEre3oAACsikdei03K+/yRC6Ydd6qr9tzry5hfq\n7pSefvlOCy7fdqOHtzlowhPXHlmQyND0AABIV7ofnvjg9t2PvPmFXx05/tX3Pq/b0m6tC889\nZOCk644aes07GZseAADpSjfszhn9ePt1T3niimM26N2lbktBaZ9Trnn+rPU7TDrz7IxNDwCA\ndKUbdvfMXNRr1O9/vH23fdes+OahlTolAABWRLpht3px/vz35v14++w35+YXd1mpUwIAYEWk\nG3anDlj1/dv2fWlmxeIby6c/tf/dH3bc6OQMTAwAgMZJ91Oxu9/9lz/12GVQzw1HHfr7EMKb\nd9149pzXbrjq9s+Tne/6vz0zOUMAIAeqTvtzrqdAo6Ubdi1W2fGVVx887NDR1487M4TwzGmj\nJyXy19t2z/uuuGrnzi0zOEEAIBda//e1lX7OeZtssNLPyeIa8QXFrdcacsdTQ26Y8dGbH0yv\nyW/Rba31urUtztzMAABolHTDbuHChd/eKl113fXrfttEzcKFNQWFxcVF8fyGNQCAn690m6ys\nrGxZu/IKSrv27DVg0A6Hjh6zfZ+2K2liAAA0Trqfir3m6ss3blOcyCvaaLvfHnLk0cccdfhu\ngzctzkt03HiPow7bd/N1V/nXbeN3WL/nde/Pzeh0AQBYlnSv2G32zf8dVdnpzimTh/fvWL9x\n1uv3bLb5fmXnTv3bDl2r5r27T99Nx+x5+8FTjsjMVAEAaEi6V+yOveg/vfa+bfGqCyG0X3/Y\nbfv1GD/y+BBCUet1LrzyF3PeuWzlzxEAgDSkG3ZvlleXdl/K15q0XL1lxex/1t1u0bVlbdX0\nlTY1AAAaI92wO7Br2btXnvVpZe3iG5NV08eOf7usy6i6u4+e83pJ+x1X7vwAAEhTuu+xO/m+\nM67e9MS+a219+GEjNu3TozhUfvLulL9de+WL3+Rf8vJplXOf3n2ngx55/uPfXvNoRqcLALDC\nyr+6oWWngz6qqFmjOD/Xc8mIdMOuw4bHv/t0+/2POvWiMcfUb2y71tbXPnXXQRt2WPjFW899\nUHTY+fdefWifzMwTAIDlaMR3C3fZetQ/Xh31xXuv/O+dT8prCzr1XHfABr3yU+Xz5pe37nzE\nvC+OzNwsAYBmo7Y6mV+Y7pvFVvrhDUnVLEgULPObfZuCRq+781obDfntrr/bdect+/cqSITP\nntitwyrrhpDIxOQAgOajS3HBaY/fuFGnVsUFhZ16D/jLf2ZM/uuJfTq3Ky7rOGC3Y2dWJ+se\nVlv1+blH7NZz1bbFZe3XH7THzS982ajDQwhfv3TT9huu0aKopMs6A8685b8NnzaE0L4wf8K0\nacfvsW2nrr/P1r+MFZRu2KVqF0z4w16b9l2r55LWHvJ4oqBVRqcIADQT43a75LAbn5j6xvPD\nWn14xNbr735X6qZ//GfS3We+/dCEERM/qnvMmK03vuS5gnNuvu/FJ+87dPPUgdv0vv69uekf\nHkIYuvO5g44Z99STDxy9TdHYUZuNefGrhk8bQrjnoJ3a7njCpBf/ksV/GSsi3ZdiXxn7y6Ov\n+O9aAwev3fbtf7742W+G7locKt58+qlE+22vuuuvGZ0iANBMbDz+3kN3XCeEcNpVv7hqy8f+\nPvH89UsLwgZrndT9tDufmxFG9Frw+bgLX545ac7tW7cuCiFsPGBQ9YMdxh7x/EGP75jO4XWj\nDLju8dNH9AohDNx6h3kvdLj2oLv++M/aBk4bQvi652V/2n+7XPwraZx0w+7UCW926HfO1BfG\npGoXrFnWbqsrbhnTvdWiryf167njgi5L+X47AIDGWm3Lb38VQmHbkvzi1dcv/TZUOhTkpZKp\nEMKcd/6RSiW3aVO8+FFtq94JYcd0Dq9z1G+61d/e+5C1xv3pb3PeKWvgtCGE3qP6rrxVZlC6\nYffcvKp1R+8cQkjkl41ctfSpKd+M6d6qxaqDbhm1xi7Drjv2zZMyOUkAoBlayhvGCtu0yCto\nu3DBl4u/uz+RWGrPLPP9ZovvKGpflMgrXO5pW7cvSnfWOZXue+zaFSSq51fX3R7QreXnD3xe\nd7vH7t3mvH9pRqYGALCkNmsenKqde9W0iuJvFY3Z6VcH3f5ho05y5RPf/6KsOy95u83aI1fK\naZuCdMPuoK6t3r/p/LrfPNF9aNfPHvn2zYNfPvlVpqYGALCkkvY7XTq462lb/fbaux997ZWX\nLjlq68ue/3y/3VZv1Eke2nfwBbc9NPmlp8Yd+aszX5936s27rJTTNgXpvhR76I0Hj9324l4d\nV393xrRe+x5U/sfDB+6/2u49qy+55I32612c0SkCANT7w8P/LT/6kHOP2PPLyuJ1Ntz21mfv\n/1Xb4uUf9p38os7/GLfHyWcdfManFb033OSie984et12P/20TUS6Ydd50IWvTOx81rUP5SVC\ny86H3nnsPXuPv/ilVKp1rx3ueezQjE4RAGgOplfW1N/usO7E6kXf7zr8vVmHf3c7r3DVP159\n/x+vXpHDS1c7sKbywBDCy4ed94PDl3XaEMKs6trGrSR3GvGbJ/rvdty9ux1Xd3v4uMeHHDf1\no4UlfddZvdCXEwMANAFphl2ysrI6r6h48YZr3X3t/pmZEwAAKyCtD0+kaue3LW0x+G8fZHo2\nAACssLTCLpHfZvS67T+88eVMzwYAgBWW7tednP7cIxt8+ocjL3/gm8qfzfsHAQCalXQ/PLHz\nnmOSq61+9bG7XX1cyWqdVykpXKIIP/roo2UdCABAdqQbdiUlJSF02WmnLhmdDQAAKyzdsHvo\noYcyOg8AoEmZt8kGuZ4CjdaI77ELIbz75N13/uPFaV/P2uaCa0YUvvDv6RsM6rdqhmYGAORK\nq1atcj0FVkT6YZe6av+tjrz5hbo7padfvtOCy7fd6OFtDprwxLVHFviOYgCAXEv3U7Ef3L77\nkTe/8Ksjx7/63ud1W9qtdeG5hwycdN1RQ695J2PTAwAgXemG3TmjH2+/7ilPXHHMBr2//fxE\nQWmfU655/qz1O0w68+yMTQ8AgHSlG3b3zFzUa9Tvf7x9t33XrPjG5yoAAHIv3bBbvTh//nvz\nfrx99ptz84t9BwoAQO6lG3anDlj1/dv2fWlmxeIby6c/tf/dH3bc6OQMTAwAgMZJN+x2v/sv\nqyemDeq54aEnjA0hvHnXjWefOKrvWjtMS3ae8H97ZnKGAACkJd2wa7HKjq+8+uDvNsu7ftyZ\nIYRnTht9xiW3tdp8j/teee13nVtmcIIAAKQn3e+xm1+bar3WkDueGnLDjI/e/GB6TX6Lbmut\n161tcUYnBwBA+tINu1U69v7dvqP233//7TfsuekqPTM6JwAAVkC6L8UO6h3unHDG4I26d9tw\n+z9ddvsHs6syOi0AABor3bD7x8sffPPev686Z3Tv5DtnH7vP2qt0GPS7Q29++KVFyYxODwCA\ndKUbdiGEdr02O3zMxc+89tkXb/7rklNHVb1x3/6/Hdih87oHnHhB5uYHAECaGhF29Tr13fLY\nsRMmvfTvcUf+pmrGuzddfMpKnxYAAI2V7ocn6i366t0H7504ceLEh55+pSKZarPGRsOHj8jE\nzAAAaJS0v+7ks9fvmzhx4sSJj/7rzepUqsVq6w476oy99tpryOZrJzI6QQAA0pNu2LVdvX8y\nlSpqs8bQg07aa8SIodtuWCjoAACaknTD7jd7/2HEiBG7D9m8Zd4SQZdKls9fGFq3Ks3A3AAA\naIR0w+7vt1621O2fPbHbmkPfqa74ZOVNCQCAFZFu2KVqF1xx7MF/fXLyN4tqFt/+5bRPEi36\nZmBiAAA0Trpfd/LK2F8efcVd89r2XLtzzccff9xngw37b9Cn4JvpifbbXvXAYxmdIgAA6Uj3\nit2pE97s0O+cqS+MSdUuWLOs3VZX3DKme6tFX0/q13PHBV1aZnSKAACkI90rds/Nq1pjxM4h\nhER+2chVS5+a8k0IocWqg24ZtcY5w67L4AQBAEhPumHXriBRPb+67vaAbi0/f+Dzuts9du82\n5/1LMzI1AAAaI92wO6hrq/dvOv/TytoQQvehXT975C9127988qtMTQ0AgMZIN+wOvfHgRTPu\n7dVx9Y8qanvte1D517cO3P+ki8Yet/Mlb7Rf7+SMThEAgHSk++GJzoMufGVi57OufSgvEVp2\nPvTOY+/Ze/zFL6VSrXvtcM9jh2Z0ij9FSUlJrqewFPn5+WVlZbmeRbYlEolmuOoQQsuWLVOp\nVK5nkW0lJSVFRUW5nkW2FRUV5eWl+9NyNAoKCprhH+28vLymtuoFCxbkego0CemGXQih/27H\n3bvbcXW3h497fMhxUz9aWNJ3ndX9bjEAgKagEWH3A627r91/JU4kMyoqKmpqahp+TKvsTGUx\ntbW1Of/RKvurTqVSzXDVIYSFCxcmk8lcjPy97C+8oqKiqqoq68MuIfurrqqqKi8vz/qwS8j+\nqmtqaprhH+1kMpnzVcNSNbtXDQAAYiXsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHs\nAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh\n7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAi\nIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAA\nIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewA\nACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHs\nAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh\n7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAi\nIewAACIh7AAAIiHsAAAiUZDl8W4+fL+SsdeMWKXFdxuSz9x11UPPTvl0fv66/QaMOnr/ni3y\nl7ergUMAAJqvbF6xS73/rxvvmz6nJpWq3/ThxNMuvfvFgbsffMax+5Z+8MSY469LLW9XA4cA\nADRnWbpi9+Vz40/7y/Nfz61cYmuqatzdb/ceOW7Y9j1DCL0vCHvsd9GdX4z8feeWy9zVqXCZ\nhwAANG9ZumLXfoNhp5xx3sUXnLz4xsq5z06rqB2yXZe6u8Xttu5fVvTypK8a2NXAIQAAzVyW\nrtgVtenWu02orSpZfGPVwtdCCH1Lv5/DeqUF/3xjbgO7qrZe5iF1pk+f/tZbb9Xf7devX8uW\nTe5iXl5eXnFxca5nkQPNc9VFRUWpVLN7v0BhYWEikcj1LLItPz+/Gf5P3jxXnUgkmtqqKysr\nl/8gmoFsf3hiccnKhSGEjoXff/ShY2F+9bzqBnY1cEidyZMnjx07tv7ubbfd1qlTp4ankf0/\nCgUFBa1atcr6sEvI/qrz8vKa4apDCGVlZbkYdgnZX3iLFi2W/6AMy/6qi4uLc/6XvSe07GgK\nT2g/IOyok8uvO8krLg0hzKpO1m+ZWV1bUFbQwK4GDgEAaOZymUSFpeuHMOmdRdWdir79GXfq\nopo267VpYFcDh9QZOnTo0KFD6+/OmTNn5syZDU8j+z9zVVVVzZs3L+vDLiH7q04mk7Nmzcr6\nsEvIyc/Xs2bNSiaTy39cJmV/4fPmzauqqsr6sEvI/qrLy8vLy8uzPuwSsr/qysrK+fPnZ33Y\nJWR/1bW1tbNnz876sLB8ubxiV9J2265F+Y+8MKPubvWCKZPnV228bacGdjVwCABAM5fT3zyR\nKBw9rM97N5z51JSp0z98/frTx7XsOnhkl5YN7WrgEACA5i3H707rPfycIyrH3zHu9G8qEr36\nDzp79MGJ5e1q4BAAgOYsq2GXX9TtwQcfXGJTIn/wfqMH77e0Ry9rVwOHAECGlQwZHp57KZsj\nzui3TjaH42ctpy/FAgCw8gg7AIBICDsAgEgIOwCASAg7AIBICDsAgEgIOwCASAg7AIBI5Pg3\nTzRDJUOGhxdezuaIvtkSAJoJV+wAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh\n7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIlGQ6wnQLJQMGR6efTGbI87ot042\nhwOApsAVOwCASAg7AIBIeCkWMqVkyPDwzPPZHLGJvABdMmR4mPJ6NkdsCgsvGTI8/OeVbI7Y\nVFb94uRsjtgUVg1NmSt2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQ\ndgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACR\nEHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAA\nkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYA\nAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2\nAACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkRB2AACREHYAAJEQdgAAkSjI9QQyq6ysLD8/\nv+HHVGVnKrnToUOHH2+06igtddWhuS7cqqNk1cvyzTffZGEmNH2Rh11FRUVtbW3DjynJzlRy\nZ968eT/eaNVRWuqqQ3NduFVHyaqhYZGHXU1NTU1NTcOPif4Zobq6+scbrTpKS111aK4Lt+oo\nWTU0zHvsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAi\nIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAA\nIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewA\nACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHs\nAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh\n7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAi\nIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAA\nIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewAACIh7AAAIiHsAAAiIewA\nACJRkOsJrIDkM3dd9dCzUz6dn79uvwGjjt6/Z4v8XE8JACD3fn5X7D6ceNqld784cPeDzzh2\n39IPnhhz/HWpXE8JAKAp+LmFXapq3N1v9x55zrDtB663ydbHXnDkgs8fufOLhbmeFgBA7v3M\nwq5y7rPTKmqHbNel7m5xu637lxW9POmr3M4KAKAp+Jm9x65q4WshhL6l3097vdKCf74xt/7u\n5MmT77nnnvq7hx9+eKdOnbI5wyaoVatWuZ5CDlh1s9I8F27VzUc6q54/f34WZkLT9zMLu2Tl\nwhBCx8LvPy3RsTC/el51/d3p06c/8cQT9XdHjRpVXFzc8DkrV/Ykm5ql/huw6igt6//25rlw\nq46SVS+LsKPOzyzs8opLQwizqpOdir59EXlmdW1Bu+9X0aVLl+23377+bosWLSorl/dHfuxF\nK3+iy1BYWJjKy0smk9XV1ct/9Eqy9H8DWVx1fn5+qqAglUpVVVVlbdCcrzovLy9VWBhCqKqq\nSqWy9AmfZf7fnq2FJxKJoqKiVAjV1dXJZDI7g4Ym8J+7qKgolUjU1NTU1tZmbdCcr9oTWtYG\nXf5fZPCdn1nYFZauH8KkdxZVdyr69seXqYtq2qzXpv4Bm2666aabblp/d86cOU3qh5jWrVsX\nFRXV1NQ0qVllWmlpaUFBQSqValarLioqKiwsDCEsWLAgm4mTW3l5ee3btw8hLFq0KJt/7eVc\n+/btE4lEVVVVeXl5rueSPXVPaNXV1c3qj3bdE1oymWxWq+Zn5Gf24YmSttt2Lcp/5IUZdXer\nF0yZPL9q422b+7voAADCzy7sQqJw9LA+791w5lNTpk7/8PXrTx/XsuvgkV1a5npaAAC59zN7\nKTaE0Hv4OUdUjr9j3OnfVCR69R909uiDE7meEgBAU/DzC7uQyB+83+jB++V6GgAATczP7aVY\nAACWQdgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBEQtgBAERC2AEARELYAQBE4v/bu/OA\nqKo9DuC/OxszwzqOIAgqiyKKCuSSprkmmSkioaIoKJovQc0FVzQVt3gumbgkhiZUkkulElla\nlrjky+euSCZugLIjIOvMnPfHII0WaC+YcS7fz1/cM+defude5swX7gKCHQAAAABPINgBAAAA\n8ASCHQAAAABPINgBAAAA8ASCHQAAAABPINgBAAAA8ASCHQAAAABPINgBAAAA8ASCHQAAAABP\nINgBAAAA8ASCHQAAAABPINgBAAAA8ASCHQAAAABPINgBAAAA8ASCHQAAAABPINgBAAAA8ASC\nHQAAAABPINgBAAAA8ATHGDN0DQ2osLBQpVIZuoo/3L9/v7i42Nzc3M7OztC16E9BQUFOTo5Y\nLHZycjJ0LfpTWlqanp5ORM7OziKRyNDl6IlKpUpLSyMiBwcHuVxu6HL0Jy0tTaVSWVtbKxQK\nQ9eiP5mZmSUlJY1tQsvPz8/NzZVIJI6Ojoau5WlNmzY1dAlgeDwPdi+aOXPmHDt2rF+/fmvW\nrDF0LfoTGxu7detWW1vbxMREQ9eiP6dOnZo+fToRHTlypPF82Ofn53t7exNRdHR0jx49DF2O\n/gwePDg7Ozs0NDQkJMTQtejPrFmzjh8/PmDAgKioKEPXoj8xMTExMTHNmzc/ePCgoWsB+As4\nFQsAAADAEwh2AAAAADyBYAcAAADAE7jGTq8uXbqUnZ1tY2PTqVMnQ9eiP7du3bp586ZUKu3V\nq5eha9GfvLy88+fPE1Hv3r0lEomhy9GTysrK48ePE5GXl5dSqTR0OfqTnJxcUVHh4uLSqO4Q\nunjxYk5OTmOb0NLS0tLS0mQyWc+ePQ1dC8BfQLADAAAA4AmcigUAAADgCQQ7AAAAAJ5oLM9N\n1ZvLRxP2JP38290HapHcxqFNn8EBo/q7GbqoBrR4tP/FR5WjYxJGjcKoxgAAEHpJREFU2z7x\nNNpzq99eejrLyX/9h0GtDVVbQ0sODVyTXvzndo6THDiwT//1NKjUj8LmHs6O27/HUshpW76b\nPnbLnZJ1X+xvLRVqW84tm7j8imT/3q3P+fviZxMDzr626oPRzg1Tcr155oEO9vPtFB0/295c\n76Xp1X/nBC9LLXiqUW49KiE28KlGHx8f3+0JIc2M/gnV/8d8XnI/vURqY6toLJfVwgsIwa4+\n3TkQuWjHxQEjQ/wntjHRlNy8eCI+et6N0g2LhvD5empOyB2L/230HM8/mlhl7LlcIccZrih9\n6DRz8aoKFRExdXHE4tVtpywIbmFORBzHwz+EN3+zE0v65kBuWVAzORExVr47o4QxTUJKwSKv\n6ofdH/m9yKzFFP4NvlEd6LpJrfq/N/c13RahxObP3d544w03mdF/uPx/83ny0rlJXZdGT3LV\nW50ATzH6994LZeeeS837vzc90EO76NbxJTfJ7fBda2nI5ufcglrDhAIjy0PN+nXKORFbyaIl\njwsvyfg8k2x7WeTefe6NGOPALdu4WRIREVMXEJG5S7sOrlaGLanhmNmNNBEkXUjODvJ3JKKy\n7P0FakmQo+TQFynk9SoRqSszThdVtp/YzsCFNoBGdaDrJhBbd+jQoY4OTF3OCaVTpkzRW0kN\n55/P5wAG0eh+42xQpWpWUZCl2+LoExoxbwIREavy8fHZk1tW89KY4cM2ZpZovw72891770pk\n6Di/4b6B4ydHf3Faj1X/Uxatgmw16Z/rnKtKjTup9JxoohPU1BUZceuXBI8ZOXxEwIyIqJO3\nqzsb9cBrVfux1qjy9m5dNWlcgN/IMdMWRP1w/ekTWy8sTqQY2kSW9cMV7WJG0i8ya7/ega2L\nbn6uZkREpVkHNIy97tWEah9mee7FjZELQsb4jw6asnnfLwYaSoPQVBV8smpuwIjhY4Lf3rj7\nNNEz3vI8M2b4sMScnNioiKDxa4nIx8dnR1apoYv6p+qaz4kqC69tXbUgKGCkr5//pKnz953K\nIKJt40duvV9y52D4iLGN6H+swYsGwa4+TRzWMffcppDZS+P2fXPxt3uVjITS1l26dHmedRMX\nRrXynbZp25apvm5HPludkG0806LAZKKX8sSu69WLrHLH+dxewbpXorCPZs755hqbMGNR1Hvh\nHtJba8NnXC9TaV8z4oH/ffHzZ3x9TTj23Yg1KxYOass2zv/X95lGM95X+jYrzflaG+N+/DnL\nfnCPJh1HqCsyDuWXE9GDoykiqWNvSxOqZZhMlbdk2vIzeYoJs5YsnBqQ//2Gg3lldX9HI/Lf\nFYu5rv5rozeFDXc7unv13lz+DE2Xpion5Umaxy+djI407Tx89ZowQ9ZXr+qez3fOjTyV32L6\n4hXro5b7eGji14TnqjSTPv78bVuzlm++v/uTcMMWD40ZTsXWp7ajl0a3T/7xxJnzR/fsi9sm\nlFp17Paqf/C4TtbSZ65r2j082NuDiFr4zrL/LPl6TjnZGM2lx25BvfJmbi/XdJEKuOL0zzI5\n+0B7s22PXy3NTvguvWTGzoV9lVIiauPe/uqYcdsO3v1glDMZ+cD/lvK8r7+8UbRq92x3uYiI\nXFw7qP4TmLD1mvfy54r+Btfcu7N6375jDyv6ybIPF1RM7NNMJG/V29Lkp+8zfUc7nz+VY94q\njKt9mJ5Dk1LLpeujZjtLhUTUtp1s1NiVhh5TvVF4zAoe6EFEDr6zbT49kZJfQUoezq7lhT/O\nm/ejbkvC1wfkAo6IHjZ7O+A1Xj2muO75vNmgkdMGDOliKSEiB9sRHx9afrtc1dRMIuKIE4pE\nIqGhy4fGi4dTj2G18nh1gserRFSWn3Hh7JnEvV8sCT334aebWj7rHinbga1qvrYQCsionhtt\n5hDoIDjwye3id5wtUuNOWncOE+tcL/fw2iWhiX1/ZXW65QRyPzv5lhP3aZQzGfnA/5aS9POM\nsQUBfrqNpqp0IuMIdjJrPzPh/mNXCjord5PE4Q2FlIiGdLdZcuQnCnA4lFfuOMGVah9mzvEM\nqcLb+fEttBLzbp3NxHn6H0bDsB/0x4+xubFdLfr8/vIeWC27AS30XIwe1DqfmwiH+Q66dObk\nl3czsrKy0q79auhKAf6AYFdvKotOrt30c0j4fFuJgIhkTex7ePt16dX2rYAFn94pXtjG9Mnu\nTPVkghHLjPk3PE4c0tk6eufldyK77ryQ13vDE3eEMUZPnfQXCDimUWu/Nu6BP5fqYy0ylXBC\n07174nQ/9jnOaIbPCc38rOWJibduSlMtnMZrH3vSYnjX8u8P/p6lfKjSDO6ooNqHmbrx8FMb\ntBAJeBPsZPJnHsen3/I8Izfn1adJ3fP5fCfV8ilhN8zcX+/p6d613UCfPrOmRxq6ZIBquMau\n3ggldr+eORN/Jlu3UV1WQES2ZmLtYsnjqb284OdyDa+medegPvnXPr5/59P7XKuA5k+kWKt2\n7dUV944XVGgXmabs64xH1q/YG6JM/fnzsZY3e500pUk5VeJqovjIRdE/PTBomX9PF2+74tsH\n91wvdBlZfQ2l3HakpVCz+ctvRTLXHuYSqn2YNr3tywuO3CqvDvTq8t9PF1UYbCT6wuO3PL/V\nPZ+XpMeey6natG7xuBE+vXt0bqHg5z0xYKR49TuWYQmlzguGtF25fqbsbkC3dk5ykaog625S\n/GcWzoOD7EyJo7ZycfLmfX3eGSQqvpcQHcPx6zFvprYBzqL9keuOWHebL3pyZPJmY15rnrRl\nXhT3r7fs5VUnvopJVVmtHN6qli0ZP078l8daYt5lkqdy17zl0sn+bvZmF47sOJSSt3S+taHL\n/Rua9X2lKi7uOtH77RXaFk4gH21vtvVwZhP3BdqW2obZ1CTU1WTy4oUbwsYNVnCFSXGbzU2M\n5q+V/49afgzAKNQ9n1fltWHs5NfJVwZ3sMm/e3Xfjngiuvug8KXWNgKOyu5nFBTYKhQWhh4E\nNFIIdvWp29tRS1rt/uq7wx8cyC5TcQobB8/+QeFj39QGnUXLJv87eu+8sP2VGtZ+4JTuD2MN\nXW+94oQTXraJ+ClzdESbP78UtiHKfNP27WuWFKuELVxfCl8b2l7O55+92o71kPc+qIjZtPej\nqIIqsb1Tp1mrIzxMxYYt9W+RKocqRJ+Wmr6ie/i8/FvRusuOfi41LbUMUxkZHbFlY9yGlQtJ\n2rT3yHnvnFkfb4hR6A3P3/J8V8d8Lmrqt3R89va4qMRSoWMbjzELNluumxo/d1qX3Z+7D3s5\nbsfGKeG9E2JnGnoE0EhxjOHsgF4xVllYQgpz/MMZ/sOxBsKPAQDoF4IdAAAAAE/g5gkAAAAA\nnkCwAwAAAOAJBDsAAAAAnkCwAwAAAOAJBDsAAAAAnkCwAwAAAOAJBDsAqE/uppLmPb59zs5F\ndxZxHBeYmt+gJQEANB4IdgAAAAA8gWAHAAAAwBMIdgAAAAA8gWAH0CisbK0QmTQv1VT/C8F7\nhwdzHGfRYm5Nh5/HtOE47pOsUiIquXN8RsDrLa2tTEybuHn1X7YtSfPk1p7ZoRqrXBfQTiA0\nmb07Rdvwa8L7r3VpbS6VKO3aBLy7Ibvy6fVSDm727ftSU0tTkURm59IpeO7GfBVL2dKT47jo\njBKdjpoBCpmZXcg/2ikAAPzDAKARuBrdnYhW3inSLiYObEFEAqH8fqVa2xJoY2pi0ZMxVpLx\nlYtMLJY7jg8LX7Fk3og+zkTkGbSzZlN1d2gvF9t1T2KMMU3VhkB3TiB+N/6K9qWLm0YRkVTp\nNWHq/DnvjHU1FSs8WhPRmOt52g53E0MFHGfl1jc8YtmqZYvHersTUZvAxPKCHwQc5z79l5oa\nHt5aRUS9tqY04C4DADBCCHYAjcKjrDgi6rzqgnbRWyFt1rc7Ec1IzWeMVT26LOQ4J9/vGGNL\n3ZViebtTuWU16341y5OIVtws1C7W3aE62GmqNgV35DjxtF2XtX1UZTdsJEJ5s6FXiiq1LSXp\nP7SVi3WD3S73piJpyzvlqpotz7Q3lymHMsZmOJjLmgyuaf9ulAsnMDlbXFm/ewkAwNjhVCxA\noyC3GdfT0uTmx4lEVFn8y/cF5a//O9ZcKPgh5nciyr/6vpqxAe95qUqvLr+W7zZlVw+ltGbd\nwe99SERfbP2NiJ7ZgYgYqT+a1HXqrsutfPZuDOqgbcw5tyC7Uu29a7O7uVjbYmrfPz7UTbdI\n/xOpWZnXWpoIq7ejeVTBGFOXEtHkiE5l+UmxDx5p22ccuqvssLqzmbgBdhUAgBFDsANoLBb3\ntSu6uzZfpcm/tI7jhAs6uM50ML+z50siurb+jEBksdxdWZ7/rZqxy+u6cTpMrPoQ0cPLD4no\nmR2IKOfc2LC4W92sTO4dDj1VVKltzE6+TUQBLzXVLcllgpfuotyqSenvyR8sXzhp3KiBfV5u\noVRuyay+rs559HIBx0V/eJ2Ici/OTSmt8t4wqgF3FgCAcRIZugAA0BOvxf00B3ZG3S4atOGc\n3Hq0m0w0bJzTitXR2VUrt/+YaeUSaSsRlAgkRNRx7o41/Zs/tbqJpScR0TM7EDENtyrpcojV\nDptuS0b5x9z7fioRCUQCIhJwT6wikCp0F/fPHjDig2P2Xv2H9us+pOeg2ZEeGZMHTs3Wbrzf\nDAezj2Lfp9V7j848IDJpufFV23raMQAAPGLoc8EAoCeqintmQkHH8P8E2pi6jDzGGCtMiyCi\naReOCzju1R2pjLGqshtCjms3+aTuilWlKQkJCT/df/Q8HdrLxbYvJ2rbY4a0JKKFJx8wxh6c\nGUVEfkfu6a6YEvMKPb7GrqLotJDjWr65TbfDDtcmUqsB1Z239SKi+PQb1mKho8/BetwzAAC8\ngWAH0IiscLGSNR0u5LhRp+8zxjSqwiZigd3AtkR0IK/6Zojl7kqRrPXR+49q1oqb4MpxXFzW\no+fp8MddsYxVFp9tJRXJlN55VWpVWZqNRGjW3O96SZX21YrCC32spDXB7tGDnUTkGXG2ZrOP\nMk+6m4qlVv0f9/9ZyHH2b7oR0bIbBQ2zhwAAjBuCHUAjcnVTd+2f6n99fD/pahcrIpIph9T0\nKb7zRUsTkVjuNDLk3ajVy8YNbE9EHcfHP2cH3WDHGEvZNpSIukYkM8YubhxBRDLrLpNnLlo0\n821PhdRpUEhNsGPqsteUMqHENmzp2h0fb1k0M8hWZtXTyVwgsvrw0z0lag1jLLylBRFJrfqr\nG3xXAQAYJQQ7gEbkUVY8EWkfIKJ1cXUXInINPq7brTD18L98+9hamUnkTdw8ey3Z/m2Vhj1n\nh6eCHdNUTnKxFIgsDmSVMsZ++WxlPy9nMxORedMWb4VtKi65RjqPOym5ezR40Mv2SlMLW+e+\nb449dDU/5+y/HRVyiZl1eoWKMXY9phcReSz4tQH2DQAAH3CMMf1d0AcA8A+cXejZ7f1LX+WU\nDtN52AoAANRAsAMA46Cpyu2htL+umPrwzjpD1wIA8ILC404AwAiETptdeuPL/xRXTvxylqFr\nAQB4ceEvdgBgBNxtzG+pLP2nboiL9Dd0LQAALy4EOwAAAACewL8UAwAAAOAJBDsAAAAAnkCw\nAwAAAOAJBDsAAAAAnkCwAwAAAOAJBDsAAAAAnkCwAwAAAOAJBDsAAAAAnkCwAwAAAOCJ/wEC\njm1ukweruAAAAABJRU5ErkJggg=="
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Let's visualize for average duration:\n",
    "\n",
    "all_trips_3 %>%\n",
    "  ggplot(aes(x = weekday, y = average_duration, fill = member_casual)) +\n",
    "  geom_col(position = \"dodge\")\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "eebd1234",
   "metadata": {
    "papermill": {
     "duration": 0.019382,
     "end_time": "2024-01-12T15:55:03.467555",
     "exception": false,
     "start_time": "2024-01-12T15:55:03.448173",
     "status": "completed"
    },
    "tags": []
   },
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kaggle": {
   "accelerator": "none",
   "dataSources": [
    {
     "datasetId": 4295988,
     "sourceId": 7390185,
     "sourceType": "datasetVersion"
    }
   ],
   "dockerImageVersionId": 30618,
   "isGpuEnabled": false,
   "isInternetEnabled": true,
   "language": "r",
   "sourceType": "notebook"
  },
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "4.0.5"
  },
  "papermill": {
   "default_parameters": {},
   "duration": 78.016164,
   "end_time": "2024-01-12T15:55:03.710128",
   "environment_variables": {},
   "exception": null,
   "input_path": "__notebook__.ipynb",
   "output_path": "__notebook__.ipynb",
   "parameters": {},
   "start_time": "2024-01-12T15:53:45.693964",
   "version": "2.5.0"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}