Guia-Practica-Introduccion-R.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Guía Práctica: Introducción a R\n",
    "\n",
    "## Utilizando los datos ``Student0405.txt`` realice las siguientes actividades"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'/home/emiliano/data/DI/Materias/2018/EstadisticaAplicada/Estadistica.Aplicada.2018/datos'"
      ],
      "text/latex": [
       "'/home/emiliano/data/DI/Materias/2018/EstadisticaAplicada/Estadistica.Aplicada.2018/datos'"
      ],
      "text/markdown": [
       "'/home/emiliano/data/DI/Materias/2018/EstadisticaAplicada/Estadistica.Aplicada.2018/datos'"
      ],
      "text/plain": [
       "[1] \"/home/emiliano/data/DI/Materias/2018/EstadisticaAplicada/Estadistica.Aplicada.2018/datos\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# directorio de trabajo\n",
    "setwd('/home/emiliano/EstadisticaAplicada/Estadistica.Aplicada.2018/datos/')\n",
    "#getwd()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 43,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Sex'</li>\n",
       "\t<li>'GPA'</li>\n",
       "\t<li>'ReligImp'</li>\n",
       "\t<li>'MissClass'</li>\n",
       "\t<li>'Seat'</li>\n",
       "\t<li>'PartyDays'</li>\n",
       "\t<li>'StudyHrs'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Sex'\n",
       "\\item 'GPA'\n",
       "\\item 'ReligImp'\n",
       "\\item 'MissClass'\n",
       "\\item 'Seat'\n",
       "\\item 'PartyDays'\n",
       "\\item 'StudyHrs'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Sex'\n",
       "2. 'GPA'\n",
       "3. 'ReligImp'\n",
       "4. 'MissClass'\n",
       "5. 'Seat'\n",
       "6. 'PartyDays'\n",
       "7. 'StudyHrs'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Sex\"       \"GPA\"       \"ReligImp\"  \"MissClass\" \"Seat\"      \"PartyDays\"\n",
       "[7] \"StudyHrs\" "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# a) Lea los datos y, simultáneamente, cambie su nombre por datos.\n",
    "datos <- read.table('Student0405.txt', header=TRUE, sep='\\t', na.string = '')\n",
    "\n",
    "# b) Visualice los nombres de las variables que forman esta base de datos. (names)\n",
    "names(datos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Sex</th><th scope=col>GPA</th><th scope=col>ReligImp</th><th scope=col>MissClass</th><th scope=col>Seat</th><th scope=col>PartyDays</th><th scope=col>StudyHrs</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Female</td><td>3.70  </td><td>Fairly</td><td>1     </td><td>Back  </td><td>5     </td><td> 3    </td></tr>\n",
       "\t<tr><td>Male  </td><td>3.20  </td><td>Fairly</td><td>3     </td><td>Front </td><td>3     </td><td>30    </td></tr>\n",
       "\t<tr><td>Female</td><td>3.01  </td><td>Fairly</td><td>0     </td><td>Middle</td><td>8     </td><td>16    </td></tr>\n",
       "\t<tr><td>Female</td><td>3.77  </td><td>Not   </td><td>0     </td><td>Middle</td><td>0     </td><td> 4    </td></tr>\n",
       "\t<tr><td>Male  </td><td>3.28  </td><td>Not   </td><td>0     </td><td>Middle</td><td>8     </td><td>12    </td></tr>\n",
       "\t<tr><td>Female</td><td>2.80  </td><td>Fairly</td><td>0     </td><td>Middle</td><td>2     </td><td>20    </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " Sex & GPA & ReligImp & MissClass & Seat & PartyDays & StudyHrs\\\\\n",
       "\\hline\n",
       "\t Female & 3.70   & Fairly & 1      & Back   & 5      &  3    \\\\\n",
       "\t Male   & 3.20   & Fairly & 3      & Front  & 3      & 30    \\\\\n",
       "\t Female & 3.01   & Fairly & 0      & Middle & 8      & 16    \\\\\n",
       "\t Female & 3.77   & Not    & 0      & Middle & 0      &  4    \\\\\n",
       "\t Male   & 3.28   & Not    & 0      & Middle & 8      & 12    \\\\\n",
       "\t Female & 2.80   & Fairly & 0      & Middle & 2      & 20    \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Sex | GPA | ReligImp | MissClass | Seat | PartyDays | StudyHrs | \n",
       "|---|---|---|---|---|---|\n",
       "| Female | 3.70   | Fairly | 1      | Back   | 5      |  3     | \n",
       "| Male   | 3.20   | Fairly | 3      | Front  | 3      | 30     | \n",
       "| Female | 3.01   | Fairly | 0      | Middle | 8      | 16     | \n",
       "| Female | 3.77   | Not    | 0      | Middle | 0      |  4     | \n",
       "| Male   | 3.28   | Not    | 0      | Middle | 8      | 12     | \n",
       "| Female | 2.80   | Fairly | 0      | Middle | 2      | 20     | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Sex    GPA  ReligImp MissClass Seat   PartyDays StudyHrs\n",
       "1 Female 3.70 Fairly   1         Back   5          3      \n",
       "2 Male   3.20 Fairly   3         Front  3         30      \n",
       "3 Female 3.01 Fairly   0         Middle 8         16      \n",
       "4 Female 3.77 Not      0         Middle 0          4      \n",
       "5 Male   3.28 Not      0         Middle 8         12      \n",
       "6 Female 2.80 Fairly   0         Middle 2         20      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# c) Visualice el encabezado de los datos. (head)\n",
    "head(datos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "'data.frame':\t690 obs. of  7 variables:\n",
      " $ Sex      : Factor w/ 2 levels \"Female\",\"Male\": 1 2 1 1 2 1 2 2 2 2 ...\n",
      " $ GPA      : num  3.7 3.2 3.01 3.77 3.28 2.8 2.5 3.11 3.15 3.44 ...\n",
      " $ ReligImp : Factor w/ 3 levels \"Fairly\",\"Not\",..: 1 1 1 2 2 1 1 2 1 1 ...\n",
      " $ MissClass: int  1 3 0 0 0 0 3 0 2 0 ...\n",
      " $ Seat     : Factor w/ 3 levels \"Back\",\"Front\",..: 1 2 3 3 3 3 1 2 1 3 ...\n",
      " $ PartyDays: int  5 3 8 0 8 2 1 2 15 1 ...\n",
      " $ StudyHrs : int  3 30 16 4 12 20 4 15 7 40 ...\n"
     ]
    }
   ],
   "source": [
    "# d ) Visualice la descripción de los datos. (str )\n",
    "str(datos)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 45,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>690</li>\n",
       "\t<li>7</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 690\n",
       "\\item 7\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 690\n",
       "2. 7\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 690   7"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# e) Extraiga la dimensión de la matriz de datos. (dim )\n",
    "dim(datos) # si lo asigno a d, luego d[1] me da las filas y d[2] las columnas"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 46,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Female'</li>\n",
       "\t<li>'Male'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Female'\n",
       "\\item 'Male'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Female'\n",
       "2. 'Male'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Female\" \"Male\"  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# f) Observe cuáles son las categorı́as para las variables Sex, ReligImp y Seat. (levels )\n",
    "levels(datos$Sex)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Fairly'</li>\n",
       "\t<li>'Not'</li>\n",
       "\t<li>'Very'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Fairly'\n",
       "\\item 'Not'\n",
       "\\item 'Very'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Fairly'\n",
       "2. 'Not'\n",
       "3. 'Very'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Fairly\" \"Not\"    \"Very\"  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "levels(datos$ReligImp)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Back'</li>\n",
       "\t<li>'Front'</li>\n",
       "\t<li>'Middle'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Back'\n",
       "\\item 'Front'\n",
       "\\item 'Middle'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Back'\n",
       "2. 'Front'\n",
       "3. 'Middle'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Back\"   \"Front\"  \"Middle\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "levels(datos$Seat)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "TRUE"
      ],
      "text/latex": [
       "TRUE"
      ],
      "text/markdown": [
       "TRUE"
      ],
      "text/plain": [
       "[1] TRUE"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# g) Observe si la variable GPA tiene valores faltantes.\n",
    "any(is.na(datos$GPA))\n",
    "sum(is.na(datos$GPA))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 34,
   "metadata": {},
   "outputs": [],
   "source": [
    "# h) Observe la variable StudyHrs de tres maneras diferentes.\n",
    "#datos[\"StudyHrs\"]\n",
    "#datos[[\"StudyHrs\"]]\n",
    "#datos$StudyHrs"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 36,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>3.6</li>\n",
       "\t<li>3.61</li>\n",
       "\t<li>2.5</li>\n",
       "\t<li>2.74</li>\n",
       "\t<li>3.46</li>\n",
       "\t<li>3.94</li>\n",
       "\t<li>3.81</li>\n",
       "\t<li>3.49</li>\n",
       "\t<li>3</li>\n",
       "\t<li>3.04</li>\n",
       "\t<li>3.14</li>\n",
       "\t<li>3.69</li>\n",
       "\t<li>3.4</li>\n",
       "\t<li>3.1</li>\n",
       "\t<li>3.32</li>\n",
       "\t<li>3.69</li>\n",
       "\t<li>3.4</li>\n",
       "\t<li>3.16</li>\n",
       "\t<li>3.28</li>\n",
       "\t<li>2.9</li>\n",
       "\t<li>3.43</li>\n",
       "\t<li>2.9</li>\n",
       "\t<li>2.4</li>\n",
       "\t<li>3.24</li>\n",
       "\t<li>3.53</li>\n",
       "\t<li>3.4</li>\n",
       "\t<li>2.32</li>\n",
       "\t<li>3.08</li>\n",
       "\t<li>3.33</li>\n",
       "\t<li>3.87</li>\n",
       "\t<li>2.37</li>\n",
       "\t<li>3</li>\n",
       "\t<li>3.26</li>\n",
       "\t<li>3.28</li>\n",
       "\t<li>3.87</li>\n",
       "\t<li>3.5</li>\n",
       "\t<li>3.45</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3.33</li>\n",
       "\t<li>2.83</li>\n",
       "\t<li>3.1</li>\n",
       "\t<li>3.54</li>\n",
       "\t<li>3.43</li>\n",
       "\t<li>3.65</li>\n",
       "\t<li>3.4</li>\n",
       "\t<li>3.85</li>\n",
       "\t<li>3.25</li>\n",
       "\t<li>3.3</li>\n",
       "\t<li>3.63</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>2.4</li>\n",
       "\t<li>3.15</li>\n",
       "\t<li>3.67</li>\n",
       "\t<li>3.96</li>\n",
       "\t<li>3.67</li>\n",
       "\t<li>2.67</li>\n",
       "\t<li>3.3</li>\n",
       "\t<li>3.05</li>\n",
       "\t<li>3.89</li>\n",
       "\t<li>3.3</li>\n",
       "\t<li>3.19</li>\n",
       "\t<li>3.56</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>3.75</li>\n",
       "\t<li>3.68</li>\n",
       "\t<li>3.5</li>\n",
       "\t<li>3.67</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>3.15</li>\n",
       "\t<li>3.2</li>\n",
       "\t<li>3.43</li>\n",
       "\t<li>2.2</li>\n",
       "\t<li>3.1</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>3.27</li>\n",
       "\t<li>3.19</li>\n",
       "\t<li>2.86</li>\n",
       "\t<li>3.82</li>\n",
       "\t<li>3.2</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>3.08</li>\n",
       "\t<li>3.58</li>\n",
       "\t<li>3.1</li>\n",
       "\t<li>3.88</li>\n",
       "\t<li>3.8</li>\n",
       "\t<li>3.64</li>\n",
       "\t<li>3.2</li>\n",
       "\t<li>3.6</li>\n",
       "\t<li>3.54</li>\n",
       "\t<li>2.91</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 3.6\n",
       "\\item 3.61\n",
       "\\item 2.5\n",
       "\\item 2.74\n",
       "\\item 3.46\n",
       "\\item 3.94\n",
       "\\item 3.81\n",
       "\\item 3.49\n",
       "\\item 3\n",
       "\\item 3.04\n",
       "\\item 3.14\n",
       "\\item 3.69\n",
       "\\item 3.4\n",
       "\\item 3.1\n",
       "\\item 3.32\n",
       "\\item 3.69\n",
       "\\item 3.4\n",
       "\\item 3.16\n",
       "\\item 3.28\n",
       "\\item 2.9\n",
       "\\item 3.43\n",
       "\\item 2.9\n",
       "\\item 2.4\n",
       "\\item 3.24\n",
       "\\item 3.53\n",
       "\\item 3.4\n",
       "\\item 2.32\n",
       "\\item 3.08\n",
       "\\item 3.33\n",
       "\\item 3.87\n",
       "\\item 2.37\n",
       "\\item 3\n",
       "\\item 3.26\n",
       "\\item 3.28\n",
       "\\item 3.87\n",
       "\\item 3.5\n",
       "\\item 3.45\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 3.33\n",
       "\\item 2.83\n",
       "\\item 3.1\n",
       "\\item 3.54\n",
       "\\item 3.43\n",
       "\\item 3.65\n",
       "\\item 3.4\n",
       "\\item 3.85\n",
       "\\item 3.25\n",
       "\\item 3.3\n",
       "\\item 3.63\n",
       "\\item 3.6\n",
       "\\item 2.4\n",
       "\\item 3.15\n",
       "\\item 3.67\n",
       "\\item 3.96\n",
       "\\item 3.67\n",
       "\\item 2.67\n",
       "\\item 3.3\n",
       "\\item 3.05\n",
       "\\item 3.89\n",
       "\\item 3.3\n",
       "\\item 3.19\n",
       "\\item 3.56\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 3.6\n",
       "\\item <NA>\n",
       "\\item 3.75\n",
       "\\item 3.68\n",
       "\\item 3.5\n",
       "\\item 3.67\n",
       "\\item 3.6\n",
       "\\item 3.15\n",
       "\\item 3.2\n",
       "\\item 3.43\n",
       "\\item 2.2\n",
       "\\item 3.1\n",
       "\\item 3.6\n",
       "\\item 3.27\n",
       "\\item 3.19\n",
       "\\item 2.86\n",
       "\\item 3.82\n",
       "\\item 3.2\n",
       "\\item 3.6\n",
       "\\item 3.08\n",
       "\\item 3.58\n",
       "\\item 3.1\n",
       "\\item 3.88\n",
       "\\item 3.8\n",
       "\\item 3.64\n",
       "\\item 3.2\n",
       "\\item 3.6\n",
       "\\item 3.54\n",
       "\\item 2.91\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 3.6\n",
       "2. 3.61\n",
       "3. 2.5\n",
       "4. 2.74\n",
       "5. 3.46\n",
       "6. 3.94\n",
       "7. 3.81\n",
       "8. 3.49\n",
       "9. 3\n",
       "10. 3.04\n",
       "11. 3.14\n",
       "12. 3.69\n",
       "13. 3.4\n",
       "14. 3.1\n",
       "15. 3.32\n",
       "16. 3.69\n",
       "17. 3.4\n",
       "18. 3.16\n",
       "19. 3.28\n",
       "20. 2.9\n",
       "21. 3.43\n",
       "22. 2.9\n",
       "23. 2.4\n",
       "24. 3.24\n",
       "25. 3.53\n",
       "26. 3.4\n",
       "27. 2.32\n",
       "28. 3.08\n",
       "29. 3.33\n",
       "30. 3.87\n",
       "31. 2.37\n",
       "32. 3\n",
       "33. 3.26\n",
       "34. 3.28\n",
       "35. 3.87\n",
       "36. 3.5\n",
       "37. 3.45\n",
       "38. 3\n",
       "39. 4\n",
       "40. 3.33\n",
       "41. 2.83\n",
       "42. 3.1\n",
       "43. 3.54\n",
       "44. 3.43\n",
       "45. 3.65\n",
       "46. 3.4\n",
       "47. 3.85\n",
       "48. 3.25\n",
       "49. 3.3\n",
       "50. 3.63\n",
       "51. 3.6\n",
       "52. 2.4\n",
       "53. 3.15\n",
       "54. 3.67\n",
       "55. 3.96\n",
       "56. 3.67\n",
       "57. 2.67\n",
       "58. 3.3\n",
       "59. 3.05\n",
       "60. 3.89\n",
       "61. 3.3\n",
       "62. 3.19\n",
       "63. 3.56\n",
       "64. 3\n",
       "65. 4\n",
       "66. 3.6\n",
       "67. &lt;NA&gt;\n",
       "68. 3.75\n",
       "69. 3.68\n",
       "70. 3.5\n",
       "71. 3.67\n",
       "72. 3.6\n",
       "73. 3.15\n",
       "74. 3.2\n",
       "75. 3.43\n",
       "76. 2.2\n",
       "77. 3.1\n",
       "78. 3.6\n",
       "79. 3.27\n",
       "80. 3.19\n",
       "81. 2.86\n",
       "82. 3.82\n",
       "83. 3.2\n",
       "84. 3.6\n",
       "85. 3.08\n",
       "86. 3.58\n",
       "87. 3.1\n",
       "88. 3.88\n",
       "89. 3.8\n",
       "90. 3.64\n",
       "91. 3.2\n",
       "92. 3.6\n",
       "93. 3.54\n",
       "94. 2.91\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] 3.60 3.61 2.50 2.74 3.46 3.94 3.81 3.49 3.00 3.04 3.14 3.69 3.40 3.10 3.32\n",
       "[16] 3.69 3.40 3.16 3.28 2.90 3.43 2.90 2.40 3.24 3.53 3.40 2.32 3.08 3.33 3.87\n",
       "[31] 2.37 3.00 3.26 3.28 3.87 3.50 3.45 3.00 4.00 3.33 2.83 3.10 3.54 3.43 3.65\n",
       "[46] 3.40 3.85 3.25 3.30 3.63 3.60 2.40 3.15 3.67 3.96 3.67 2.67 3.30 3.05 3.89\n",
       "[61] 3.30 3.19 3.56 3.00 4.00 3.60   NA 3.75 3.68 3.50 3.67 3.60 3.15 3.20 3.43\n",
       "[76] 2.20 3.10 3.60 3.27 3.19 2.86 3.82 3.20 3.60 3.08 3.58 3.10 3.88 3.80 3.64\n",
       "[91] 3.20 3.60 3.54 2.91"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# i) Visualice los valores de la variable GPA correspondientes a Sex = Female y Seat = Front.\n",
    "datos$GPA[datos$Sex == \"Female\" & datos$Seat == \"Front\"]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 38,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>7</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>6</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>7</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>3</li>\n",
       "\t<li>1</li>\n",
       "\t<li>12</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>7</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>15</li>\n",
       "\t<li>16</li>\n",
       "\t<li>8</li>\n",
       "\t<li>0</li>\n",
       "\t<li>14</li>\n",
       "\t<li>1</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>2</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>17</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>19</li>\n",
       "\t<li>31</li>\n",
       "\t<li>3</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>12</li>\n",
       "\t<li>3</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>1</li>\n",
       "\t<li>3</li>\n",
       "\t<li>1</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>2</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>8</li>\n",
       "\t<li>1</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>18</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>0</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>1</li>\n",
       "\t<li>0</li>\n",
       "\t<li>6</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>12</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>8</li>\n",
       "\t<li>0</li>\n",
       "\t<li>0</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>1</li>\n",
       "\t<li>0</li>\n",
       "\t<li>7</li>\n",
       "\t<li>3</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>14</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>14</li>\n",
       "\t<li>9</li>\n",
       "\t<li>24</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>5</li>\n",
       "\t<li>9</li>\n",
       "\t<li>12</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 7\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 6\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 7\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 3\n",
       "\\item 1\n",
       "\\item 12\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 7\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 15\n",
       "\\item 16\n",
       "\\item 8\n",
       "\\item 0\n",
       "\\item 14\n",
       "\\item 1\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 2\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 17\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 19\n",
       "\\item 31\n",
       "\\item 3\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 12\n",
       "\\item 3\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 1\n",
       "\\item 3\n",
       "\\item 1\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 2\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 8\n",
       "\\item 1\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 18\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 0\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 1\n",
       "\\item 0\n",
       "\\item 6\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 12\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 8\n",
       "\\item 0\n",
       "\\item 0\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 1\n",
       "\\item 0\n",
       "\\item 7\n",
       "\\item 3\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 14\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 14\n",
       "\\item 9\n",
       "\\item 24\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 5\n",
       "\\item 9\n",
       "\\item 12\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 3\n",
       "2. 4\n",
       "3. 4\n",
       "4. 7\n",
       "5. 0\n",
       "6. 2\n",
       "7. 5\n",
       "8. 0\n",
       "9. 8\n",
       "10. 12\n",
       "11. 6\n",
       "12. 3\n",
       "13. 4\n",
       "14. 7\n",
       "15. 3\n",
       "16. 4\n",
       "17. 15\n",
       "18. 0\n",
       "19. 3\n",
       "20. 4\n",
       "21. 8\n",
       "22. 3\n",
       "23. 3\n",
       "24. 1\n",
       "25. 12\n",
       "26. 6\n",
       "27. 6\n",
       "28. 8\n",
       "29. 6\n",
       "30. 7\n",
       "31. 8\n",
       "32. 5\n",
       "33. 15\n",
       "34. 2\n",
       "35. 10\n",
       "36. 3\n",
       "37. 15\n",
       "38. 16\n",
       "39. 8\n",
       "40. 0\n",
       "41. 14\n",
       "42. 1\n",
       "43. 5\n",
       "44. 6\n",
       "45. 6\n",
       "46. 2\n",
       "47. 2\n",
       "48. 6\n",
       "49. 2\n",
       "50. 3\n",
       "51. 17\n",
       "52. 6\n",
       "53. 5\n",
       "54. 8\n",
       "55. 8\n",
       "56. 8\n",
       "57. 8\n",
       "58. 3\n",
       "59. 8\n",
       "60. 5\n",
       "61. 10\n",
       "62. 19\n",
       "63. 31\n",
       "64. 3\n",
       "65. 10\n",
       "66. 8\n",
       "67. 3\n",
       "68. 12\n",
       "69. 3\n",
       "70. 0\n",
       "71. 4\n",
       "72. 1\n",
       "73. 3\n",
       "74. 1\n",
       "75. 4\n",
       "76. 2\n",
       "77. 2\n",
       "78. 2\n",
       "79. 3\n",
       "80. 8\n",
       "81. 8\n",
       "82. 5\n",
       "83. 2\n",
       "84. 15\n",
       "85. 0\n",
       "86. 8\n",
       "87. 1\n",
       "88. 10\n",
       "89. 8\n",
       "90. 18\n",
       "91. 10\n",
       "92. 5\n",
       "93. 0\n",
       "94. 2\n",
       "95. 0\n",
       "96. 5\n",
       "97. 0\n",
       "98. 0\n",
       "99. 4\n",
       "100. 0\n",
       "101. 4\n",
       "102. 1\n",
       "103. 0\n",
       "104. 6\n",
       "105. 4\n",
       "106. 4\n",
       "107. 12\n",
       "108. 15\n",
       "109. 0\n",
       "110. 2\n",
       "111. 8\n",
       "112. 0\n",
       "113. 0\n",
       "114. 12\n",
       "115. 2\n",
       "116. 3\n",
       "117. 4\n",
       "118. 2\n",
       "119. 5\n",
       "120. 10\n",
       "121. 1\n",
       "122. 0\n",
       "123. 7\n",
       "124. 3\n",
       "125. 0\n",
       "126. 2\n",
       "127. 8\n",
       "128. 10\n",
       "129. 14\n",
       "130. 2\n",
       "131. 5\n",
       "132. 10\n",
       "133. 14\n",
       "134. 9\n",
       "135. 24\n",
       "136. 5\n",
       "137. 4\n",
       "138. 4\n",
       "139. 15\n",
       "140. 0\n",
       "141. 5\n",
       "142. 9\n",
       "143. 12\n",
       "144. 12\n",
       "145. 4\n",
       "146. 5\n",
       "147. 0\n",
       "148. 4\n",
       "149. 8\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  [1]  3  4  4  7  0  2  5  0  8 12  6  3  4  7  3  4 15  0  3  4  8  3  3  1 12\n",
       " [26]  6  6  8  6  7  8  5 15  2 10  3 15 16  8  0 14  1  5  6  6  2  2  6  2  3\n",
       " [51] 17  6  5  8  8  8  8  3  8  5 10 19 31  3 10  8  3 12  3  0  4  1  3  1  4\n",
       " [76]  2  2  2  3  8  8  5  2 15  0  8  1 10  8 18 10  5  0  2  0  5  0  0  4  0\n",
       "[101]  4  1  0  6  4  4 12 15  0  2  8  0  0 12  2  3  4  2  5 10  1  0  7  3  0\n",
       "[126]  2  8 10 14  2  5 10 14  9 24  5  4  4 15  0  5  9 12 12  4  5  0  4  8"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# j) Visualice los valores de la variable PartyDays correspondientes a ReligImp = Very o Seat = Middle.\n",
    "datos$PartyDays[datos$ReligImp == \"Very\" | datos$Seat == \"Midlde\"]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>5</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>0</li>\n",
       "\t<li>8</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>1</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>9</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>7</li>\n",
       "\t<li>8</li>\n",
       "\t<li>7</li>\n",
       "\t<li>0</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>1</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>7</li>\n",
       "\t<li>6</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3</li>\n",
       "\t<li>12</li>\n",
       "\t<li>12</li>\n",
       "\t<li>9</li>\n",
       "\t<li>12</li>\n",
       "\t<li>13</li>\n",
       "\t<li>7</li>\n",
       "\t<li>3</li>\n",
       "\t<li>2</li>\n",
       "\t<li>11</li>\n",
       "\t<li>4</li>\n",
       "\t<li>7</li>\n",
       "\t<li>11</li>\n",
       "\t<li>12</li>\n",
       "\t<li>22</li>\n",
       "\t<li>3</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>1</li>\n",
       "\t<li>8</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3</li>\n",
       "\t<li>9</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>9</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>1</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>1</li>\n",
       "\t<li>12</li>\n",
       "\t<li>6</li>\n",
       "\t<li>12</li>\n",
       "\t<li>12</li>\n",
       "\t<li>13</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>8</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>9</li>\n",
       "\t<li>6</li>\n",
       "\t<li>12</li>\n",
       "\t<li>14</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>12</li>\n",
       "\t<li>16</li>\n",
       "\t<li>16</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>13</li>\n",
       "\t<li>14</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>7</li>\n",
       "\t<li>2</li>\n",
       "\t<li>1</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>13</li>\n",
       "\t<li>2</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>16</li>\n",
       "\t<li>12</li>\n",
       "\t<li>6</li>\n",
       "\t<li>20</li>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>1</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>17</li>\n",
       "\t<li>5</li>\n",
       "\t<li>16</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>16</li>\n",
       "\t<li>1</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>15</li>\n",
       "\t<li>3</li>\n",
       "\t<li>1</li>\n",
       "\t<li>25</li>\n",
       "\t<li>19</li>\n",
       "\t<li>5</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>16</li>\n",
       "\t<li>8</li>\n",
       "\t<li>4</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>18</li>\n",
       "\t<li>1</li>\n",
       "\t<li>20</li>\n",
       "\t<li>19</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>31</li>\n",
       "\t<li>7</li>\n",
       "\t<li>3</li>\n",
       "\t<li>6</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>11</li>\n",
       "\t<li>16</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>20</li>\n",
       "\t<li>3</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>9</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>0</li>\n",
       "\t<li>5</li>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>0</li>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>7</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>28</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>3</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>9</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>7</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>8</li>\n",
       "\t<li>9</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>13</li>\n",
       "\t<li>11</li>\n",
       "\t<li>20</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>16</li>\n",
       "\t<li>0</li>\n",
       "\t<li>0</li>\n",
       "\t<li>8</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>0</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>31</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>0</li>\n",
       "\t<li>6</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>0</li>\n",
       "\t<li>4</li>\n",
       "\t<li>31</li>\n",
       "\t<li>17</li>\n",
       "\t<li>0</li>\n",
       "\t<li>14</li>\n",
       "\t<li>1</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>12</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>0</li>\n",
       "\t<li>0</li>\n",
       "\t<li>2</li>\n",
       "\t<li>8</li>\n",
       "\t<li>4</li>\n",
       "\t<li>12</li>\n",
       "\t<li>6</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>9</li>\n",
       "\t<li>16</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>3</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>2</li>\n",
       "\t<li>0</li>\n",
       "\t<li>7</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>1</li>\n",
       "\t<li>6</li>\n",
       "\t<li>1</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>11</li>\n",
       "\t<li>25</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>7</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>12</li>\n",
       "\t<li>15</li>\n",
       "\t<li>4</li>\n",
       "\t<li>16</li>\n",
       "\t<li>7</li>\n",
       "\t<li>18</li>\n",
       "\t<li>6</li>\n",
       "\t<li>0</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>20</li>\n",
       "\t<li>20</li>\n",
       "\t<li>18</li>\n",
       "\t<li>12</li>\n",
       "\t<li>18</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>6</li>\n",
       "\t<li>2</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>15</li>\n",
       "\t<li>1</li>\n",
       "\t<li>8</li>\n",
       "\t<li>14</li>\n",
       "\t<li>1</li>\n",
       "\t<li>10</li>\n",
       "\t<li>14</li>\n",
       "\t<li>8</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>2</li>\n",
       "\t<li>12</li>\n",
       "\t<li>1</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>0</li>\n",
       "\t<li>14</li>\n",
       "\t<li>3</li>\n",
       "\t<li>10</li>\n",
       "\t<li>9</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>24</li>\n",
       "\t<li>5</li>\n",
       "\t<li>14</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>13</li>\n",
       "\t<li>4</li>\n",
       "\t<li>11</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>9</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>0</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>15</li>\n",
       "\t<li>16</li>\n",
       "\t<li>17</li>\n",
       "\t<li>9</li>\n",
       "\t<li>0</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>0</li>\n",
       "\t<li>12</li>\n",
       "\t<li>5</li>\n",
       "\t<li>0</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>1</li>\n",
       "\t<li>14</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>6</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 5\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 0\n",
       "\\item 8\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 1\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 9\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 7\n",
       "\\item 8\n",
       "\\item 7\n",
       "\\item 0\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 1\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 7\n",
       "\\item 6\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 3\n",
       "\\item 12\n",
       "\\item 12\n",
       "\\item 9\n",
       "\\item 12\n",
       "\\item 13\n",
       "\\item 7\n",
       "\\item 3\n",
       "\\item 2\n",
       "\\item 11\n",
       "\\item 4\n",
       "\\item 7\n",
       "\\item 11\n",
       "\\item 12\n",
       "\\item 22\n",
       "\\item 3\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 1\n",
       "\\item 8\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 3\n",
       "\\item 9\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 9\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 1\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 1\n",
       "\\item 12\n",
       "\\item 6\n",
       "\\item 12\n",
       "\\item 12\n",
       "\\item 13\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 8\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 9\n",
       "\\item 6\n",
       "\\item 12\n",
       "\\item 14\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 12\n",
       "\\item 16\n",
       "\\item 16\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 13\n",
       "\\item 14\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 7\n",
       "\\item 2\n",
       "\\item 1\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 13\n",
       "\\item 2\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 16\n",
       "\\item 12\n",
       "\\item 6\n",
       "\\item 20\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 1\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 17\n",
       "\\item 5\n",
       "\\item 16\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 16\n",
       "\\item 1\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 15\n",
       "\\item 3\n",
       "\\item 1\n",
       "\\item 25\n",
       "\\item 19\n",
       "\\item 5\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 16\n",
       "\\item 8\n",
       "\\item 4\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 18\n",
       "\\item 1\n",
       "\\item 20\n",
       "\\item 19\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 31\n",
       "\\item 7\n",
       "\\item 3\n",
       "\\item 6\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 11\n",
       "\\item 16\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 20\n",
       "\\item 3\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 9\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 0\n",
       "\\item 5\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 0\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 7\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 28\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 3\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 9\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 7\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 8\n",
       "\\item 9\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 13\n",
       "\\item 11\n",
       "\\item 20\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 16\n",
       "\\item 0\n",
       "\\item 0\n",
       "\\item 8\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 0\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 31\n",
       "\\item <NA>\n",
       "\\item 0\n",
       "\\item 6\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item <NA>\n",
       "\\item 0\n",
       "\\item 4\n",
       "\\item 31\n",
       "\\item 17\n",
       "\\item 0\n",
       "\\item 14\n",
       "\\item 1\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 12\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 0\n",
       "\\item 0\n",
       "\\item 2\n",
       "\\item 8\n",
       "\\item 4\n",
       "\\item 12\n",
       "\\item 6\n",
       "\\item <NA>\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 9\n",
       "\\item 16\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 3\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 2\n",
       "\\item 0\n",
       "\\item 7\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 1\n",
       "\\item 6\n",
       "\\item 1\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 11\n",
       "\\item 25\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 7\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 12\n",
       "\\item 15\n",
       "\\item 4\n",
       "\\item 16\n",
       "\\item 7\n",
       "\\item 18\n",
       "\\item 6\n",
       "\\item 0\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 20\n",
       "\\item 20\n",
       "\\item 18\n",
       "\\item 12\n",
       "\\item 18\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 6\n",
       "\\item 2\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 15\n",
       "\\item 1\n",
       "\\item 8\n",
       "\\item 14\n",
       "\\item 1\n",
       "\\item 10\n",
       "\\item 14\n",
       "\\item 8\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 2\n",
       "\\item 12\n",
       "\\item 1\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 0\n",
       "\\item 14\n",
       "\\item 3\n",
       "\\item 10\n",
       "\\item 9\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 24\n",
       "\\item 5\n",
       "\\item 14\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 13\n",
       "\\item 4\n",
       "\\item 11\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 9\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 0\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 15\n",
       "\\item 16\n",
       "\\item 17\n",
       "\\item 9\n",
       "\\item 0\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 0\n",
       "\\item 12\n",
       "\\item 5\n",
       "\\item 0\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 1\n",
       "\\item 14\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 6\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 5\n",
       "2. 3\n",
       "3. 8\n",
       "4. 0\n",
       "5. 8\n",
       "6. 2\n",
       "7. 15\n",
       "8. 1\n",
       "9. 4\n",
       "10. 10\n",
       "11. 2\n",
       "12. 9\n",
       "13. 3\n",
       "14. 5\n",
       "15. 8\n",
       "16. 7\n",
       "17. 8\n",
       "18. 7\n",
       "19. 0\n",
       "20. 0\n",
       "21. 10\n",
       "22. 10\n",
       "23. 8\n",
       "24. 1\n",
       "25. 10\n",
       "26. 12\n",
       "27. 0\n",
       "28. 10\n",
       "29. 10\n",
       "30. 2\n",
       "31. 7\n",
       "32. 6\n",
       "33. 8\n",
       "34. 10\n",
       "35. 10\n",
       "36. 4\n",
       "37. 3\n",
       "38. 12\n",
       "39. 12\n",
       "40. 9\n",
       "41. 12\n",
       "42. 13\n",
       "43. 7\n",
       "44. 3\n",
       "45. 2\n",
       "46. 11\n",
       "47. 4\n",
       "48. 7\n",
       "49. 11\n",
       "50. 12\n",
       "51. 22\n",
       "52. 3\n",
       "53. 3\n",
       "54. 8\n",
       "55. 1\n",
       "56. 8\n",
       "57. 4\n",
       "58. 5\n",
       "59. 12\n",
       "60. 4\n",
       "61. 3\n",
       "62. 9\n",
       "63. 10\n",
       "64. 10\n",
       "65. 8\n",
       "66. 8\n",
       "67. 3\n",
       "68. 9\n",
       "69. 6\n",
       "70. 6\n",
       "71. 6\n",
       "72. 1\n",
       "73. 12\n",
       "74. 10\n",
       "75. 6\n",
       "76. 10\n",
       "77. 5\n",
       "78. 2\n",
       "79. 1\n",
       "80. 12\n",
       "81. 6\n",
       "82. 12\n",
       "83. 12\n",
       "84. 13\n",
       "85. 8\n",
       "86. 8\n",
       "87. 6\n",
       "88. 8\n",
       "89. 2\n",
       "90. 5\n",
       "91. 15\n",
       "92. 5\n",
       "93. 6\n",
       "94. 9\n",
       "95. 6\n",
       "96. 12\n",
       "97. 14\n",
       "98. 0\n",
       "99. 10\n",
       "100. 15\n",
       "101. 5\n",
       "102. 6\n",
       "103. 12\n",
       "104. 16\n",
       "105. 16\n",
       "106. 6\n",
       "107. 2\n",
       "108. 0\n",
       "109. 4\n",
       "110. 2\n",
       "111. 13\n",
       "112. 14\n",
       "113. 15\n",
       "114. 15\n",
       "115. 7\n",
       "116. 2\n",
       "117. 1\n",
       "118. 5\n",
       "119. 6\n",
       "120. 6\n",
       "121. 2\n",
       "122. 13\n",
       "123. 2\n",
       "124. 6\n",
       "125. 2\n",
       "126. 16\n",
       "127. 12\n",
       "128. 6\n",
       "129. 20\n",
       "130. 1\n",
       "131. 2\n",
       "132. 1\n",
       "133. 3\n",
       "134. 5\n",
       "135. 17\n",
       "136. 5\n",
       "137. 16\n",
       "138. 10\n",
       "139. 8\n",
       "140. 5\n",
       "141. 16\n",
       "142. 1\n",
       "143. 8\n",
       "144. 8\n",
       "145. 10\n",
       "146. 8\n",
       "147. 15\n",
       "148. 3\n",
       "149. 1\n",
       "150. 25\n",
       "151. 19\n",
       "152. 5\n",
       "153. 5\n",
       "154. 15\n",
       "155. 10\n",
       "156. 6\n",
       "157. 16\n",
       "158. 8\n",
       "159. 4\n",
       "160. 12\n",
       "161. 0\n",
       "162. 10\n",
       "163. 12\n",
       "164. 5\n",
       "165. 10\n",
       "166. 12\n",
       "167. 0\n",
       "168. 2\n",
       "169. 10\n",
       "170. 3\n",
       "171. 18\n",
       "172. 1\n",
       "173. 20\n",
       "174. 19\n",
       "175. 0\n",
       "176. 4\n",
       "177. 31\n",
       "178. 7\n",
       "179. 3\n",
       "180. 6\n",
       "181. 10\n",
       "182. 2\n",
       "183. 11\n",
       "184. 16\n",
       "185. 15\n",
       "186. 15\n",
       "187. 10\n",
       "188. 10\n",
       "189. 2\n",
       "190. 15\n",
       "191. 10\n",
       "192. 8\n",
       "193. 3\n",
       "194. 20\n",
       "195. 3\n",
       "196. 3\n",
       "197. 4\n",
       "198. 5\n",
       "199. 0\n",
       "200. 9\n",
       "201. 15\n",
       "202. 5\n",
       "203. 2\n",
       "204. 3\n",
       "205. 0\n",
       "206. 5\n",
       "207. 1\n",
       "208. 2\n",
       "209. 10\n",
       "210. 8\n",
       "211. 0\n",
       "212. 1\n",
       "213. 2\n",
       "214. 5\n",
       "215. 12\n",
       "216. 2\n",
       "217. 3\n",
       "218. 5\n",
       "219. 8\n",
       "220. 7\n",
       "221. 4\n",
       "222. 2\n",
       "223. 28\n",
       "224. 3\n",
       "225. 5\n",
       "226. 15\n",
       "227. 0\n",
       "228. 3\n",
       "229. 6\n",
       "230. 5\n",
       "231. 15\n",
       "232. 9\n",
       "233. 5\n",
       "234. 10\n",
       "235. 7\n",
       "236. 5\n",
       "237. 8\n",
       "238. 12\n",
       "239. 15\n",
       "240. 15\n",
       "241. 12\n",
       "242. 8\n",
       "243. 9\n",
       "244. 5\n",
       "245. 10\n",
       "246. 13\n",
       "247. 11\n",
       "248. 20\n",
       "249. 8\n",
       "250. 10\n",
       "251. 12\n",
       "252. 16\n",
       "253. 0\n",
       "254. 0\n",
       "255. 8\n",
       "256. 2\n",
       "257. 15\n",
       "258. 8\n",
       "259. 12\n",
       "260. 2\n",
       "261. 15\n",
       "262. 12\n",
       "263. 10\n",
       "264. 6\n",
       "265. 5\n",
       "266. 6\n",
       "267. 12\n",
       "268. 2\n",
       "269. 0\n",
       "270. 15\n",
       "271. 0\n",
       "272. 2\n",
       "273. 31\n",
       "274. &lt;NA&gt;\n",
       "275. 0\n",
       "276. 6\n",
       "277. 0\n",
       "278. 10\n",
       "279. 15\n",
       "280. &lt;NA&gt;\n",
       "281. 0\n",
       "282. 4\n",
       "283. 31\n",
       "284. 17\n",
       "285. 0\n",
       "286. 14\n",
       "287. 1\n",
       "288. 8\n",
       "289. 12\n",
       "290. 12\n",
       "291. 8\n",
       "292. 6\n",
       "293. 6\n",
       "294. 10\n",
       "295. 4\n",
       "296. 4\n",
       "297. 0\n",
       "298. 0\n",
       "299. 2\n",
       "300. 8\n",
       "301. 4\n",
       "302. 12\n",
       "303. 6\n",
       "304. &lt;NA&gt;\n",
       "305. 15\n",
       "306. 0\n",
       "307. 12\n",
       "308. 4\n",
       "309. 10\n",
       "310. 12\n",
       "311. 2\n",
       "312. 9\n",
       "313. 16\n",
       "314. 8\n",
       "315. 8\n",
       "316. 12\n",
       "317. 5\n",
       "318. 6\n",
       "319. 5\n",
       "320. 4\n",
       "321. 3\n",
       "322. 12\n",
       "323. 0\n",
       "324. 15\n",
       "325. 15\n",
       "326. 2\n",
       "327. 0\n",
       "328. 7\n",
       "329. 12\n",
       "330. 2\n",
       "331. 10\n",
       "332. 8\n",
       "333. 4\n",
       "334. 8\n",
       "335. 10\n",
       "336. 5\n",
       "337. 10\n",
       "338. 3\n",
       "339. 1\n",
       "340. 6\n",
       "341. 1\n",
       "342. 10\n",
       "343. 2\n",
       "344. 10\n",
       "345. 11\n",
       "346. 25\n",
       "347. 12\n",
       "348. 0\n",
       "349. 10\n",
       "350. 5\n",
       "351. 7\n",
       "352. 5\n",
       "353. 2\n",
       "354. 12\n",
       "355. 2\n",
       "356. 12\n",
       "357. 15\n",
       "358. 4\n",
       "359. 16\n",
       "360. 7\n",
       "361. 18\n",
       "362. 6\n",
       "363. 0\n",
       "364. 10\n",
       "365. 2\n",
       "366. 20\n",
       "367. 20\n",
       "368. 18\n",
       "369. 12\n",
       "370. 18\n",
       "371. 4\n",
       "372. 5\n",
       "373. 0\n",
       "374. 5\n",
       "375. 2\n",
       "376. 6\n",
       "377. 2\n",
       "378. 8\n",
       "379. 10\n",
       "380. 2\n",
       "381. 15\n",
       "382. 1\n",
       "383. 8\n",
       "384. 14\n",
       "385. 1\n",
       "386. 10\n",
       "387. 14\n",
       "388. 8\n",
       "389. 15\n",
       "390. 15\n",
       "391. 2\n",
       "392. 12\n",
       "393. 1\n",
       "394. 10\n",
       "395. 2\n",
       "396. 10\n",
       "397. 4\n",
       "398. 8\n",
       "399. 10\n",
       "400. 0\n",
       "401. 14\n",
       "402. 3\n",
       "403. 10\n",
       "404. 9\n",
       "405. 5\n",
       "406. 12\n",
       "407. 24\n",
       "408. 5\n",
       "409. 14\n",
       "410. 5\n",
       "411. 4\n",
       "412. 4\n",
       "413. 8\n",
       "414. 8\n",
       "415. 3\n",
       "416. 13\n",
       "417. 4\n",
       "418. 11\n",
       "419. 4\n",
       "420. 8\n",
       "421. 9\n",
       "422. 8\n",
       "423. 5\n",
       "424. 12\n",
       "425. 15\n",
       "426. 12\n",
       "427. 4\n",
       "428. 0\n",
       "429. 5\n",
       "430. 10\n",
       "431. 10\n",
       "432. 3\n",
       "433. 15\n",
       "434. 16\n",
       "435. 17\n",
       "436. 9\n",
       "437. 0\n",
       "438. 15\n",
       "439. 12\n",
       "440. 0\n",
       "441. 12\n",
       "442. 5\n",
       "443. 0\n",
       "444. 15\n",
       "445. 5\n",
       "446. 4\n",
       "447. 1\n",
       "448. 14\n",
       "449. 4\n",
       "450. 4\n",
       "451. 6\n",
       "452. 4\n",
       "453. 2\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  [1]  5  3  8  0  8  2 15  1  4 10  2  9  3  5  8  7  8  7  0  0 10 10  8  1 10\n",
       " [26] 12  0 10 10  2  7  6  8 10 10  4  3 12 12  9 12 13  7  3  2 11  4  7 11 12\n",
       " [51] 22  3  3  8  1  8  4  5 12  4  3  9 10 10  8  8  3  9  6  6  6  1 12 10  6\n",
       " [76] 10  5  2  1 12  6 12 12 13  8  8  6  8  2  5 15  5  6  9  6 12 14  0 10 15\n",
       "[101]  5  6 12 16 16  6  2  0  4  2 13 14 15 15  7  2  1  5  6  6  2 13  2  6  2\n",
       "[126] 16 12  6 20  1  2  1  3  5 17  5 16 10  8  5 16  1  8  8 10  8 15  3  1 25\n",
       "[151] 19  5  5 15 10  6 16  8  4 12  0 10 12  5 10 12  0  2 10  3 18  1 20 19  0\n",
       "[176]  4 31  7  3  6 10  2 11 16 15 15 10 10  2 15 10  8  3 20  3  3  4  5  0  9\n",
       "[201] 15  5  2  3  0  5  1  2 10  8  0  1  2  5 12  2  3  5  8  7  4  2 28  3  5\n",
       "[226] 15  0  3  6  5 15  9  5 10  7  5  8 12 15 15 12  8  9  5 10 13 11 20  8 10\n",
       "[251] 12 16  0  0  8  2 15  8 12  2 15 12 10  6  5  6 12  2  0 15  0  2 31 NA  0\n",
       "[276]  6  0 10 15 NA  0  4 31 17  0 14  1  8 12 12  8  6  6 10  4  4  0  0  2  8\n",
       "[301]  4 12  6 NA 15  0 12  4 10 12  2  9 16  8  8 12  5  6  5  4  3 12  0 15 15\n",
       "[326]  2  0  7 12  2 10  8  4  8 10  5 10  3  1  6  1 10  2 10 11 25 12  0 10  5\n",
       "[351]  7  5  2 12  2 12 15  4 16  7 18  6  0 10  2 20 20 18 12 18  4  5  0  5  2\n",
       "[376]  6  2  8 10  2 15  1  8 14  1 10 14  8 15 15  2 12  1 10  2 10  4  8 10  0\n",
       "[401] 14  3 10  9  5 12 24  5 14  5  4  4  8  8  3 13  4 11  4  8  9  8  5 12 15\n",
       "[426] 12  4  0  5 10 10  3 15 16 17  9  0 15 12  0 12  5  0 15  5  4  1 14  4  4\n",
       "[451]  6  4  2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# k) Observe la variable PartyDays cuando GPA > 3.\n",
    "datos$PartyDays[datos$GPA>3]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>Middle</li>\n",
       "\t<li>Front</li>\n",
       "\t<li>Front</li>\n",
       "\t<li>Back</li>\n",
       "\t<li>Middle</li>\n",
       "</ol>\n",
       "\n",
       "<details>\n",
       "\t<summary style=display:list-item;cursor:pointer>\n",
       "\t\t<strong>Levels</strong>:\n",
       "\t</summary>\n",
       "\t<ol class=list-inline>\n",
       "\t\t<li>'Back'</li>\n",
       "\t\t<li>'Front'</li>\n",
       "\t\t<li>'Middle'</li>\n",
       "\t</ol>\n",
       "</details>"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item Middle\n",
       "\\item Front\n",
       "\\item Front\n",
       "\\item Back\n",
       "\\item Middle\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\emph{Levels}: \\begin{enumerate*}\n",
       "\\item 'Back'\n",
       "\\item 'Front'\n",
       "\\item 'Middle'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. Middle\n",
       "2. Front\n",
       "3. Front\n",
       "4. Back\n",
       "5. Middle\n",
       "\n",
       "\n",
       "\n",
       "**Levels**: 1. 'Back'\n",
       "2. 'Front'\n",
       "3. 'Middle'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] Middle Front  Front  Back   Middle\n",
       "Levels: Back Front Middle"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# l) Visualice la variable Seat para aquellos alumnos correspondientes a los índices 3, 8, 25, 99 y 389.\n",
    "indices <- c(3,8,25,9,389)\n",
    "datos$Seat[indices]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>30</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>15</li>\n",
       "\t<li>7</li>\n",
       "\t<li>40</li>\n",
       "\t<li>10</li>\n",
       "\t<li>7</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>15</li>\n",
       "\t<li>2</li>\n",
       "\t<li>40</li>\n",
       "\t<li>12</li>\n",
       "\t<li>7</li>\n",
       "\t<li>10</li>\n",
       "\t<li>30</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>35</li>\n",
       "\t<li>18</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>20</li>\n",
       "\t<li>20</li>\n",
       "\t<li>15</li>\n",
       "\t<li>30</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>9</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>7</li>\n",
       "\t<li>2</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>10</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>18</li>\n",
       "\t<li>28</li>\n",
       "\t<li>20</li>\n",
       "\t<li>2</li>\n",
       "\t<li>25</li>\n",
       "\t<li>28</li>\n",
       "\t<li>3</li>\n",
       "\t<li>6</li>\n",
       "\t<li>10</li>\n",
       "\t<li>&lt;NA&gt;</li>\n",
       "\t<li>28</li>\n",
       "\t<li>25</li>\n",
       "\t<li>7</li>\n",
       "\t<li>20</li>\n",
       "\t<li>4</li>\n",
       "\t<li>7</li>\n",
       "\t<li>25</li>\n",
       "\t<li>4</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>20</li>\n",
       "\t<li>15</li>\n",
       "\t<li>20</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>14</li>\n",
       "\t<li>21</li>\n",
       "\t<li>30</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>30</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>15</li>\n",
       "\t<li>6</li>\n",
       "\t<li>4</li>\n",
       "\t<li>2</li>\n",
       "\t<li>20</li>\n",
       "\t<li>25</li>\n",
       "\t<li>25</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>16</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>22</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>14</li>\n",
       "\t<li>10</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>27</li>\n",
       "\t<li>15</li>\n",
       "\t<li>18</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>20</li>\n",
       "\t<li>3</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>0</li>\n",
       "\t<li>40</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>10</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>16</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>12</li>\n",
       "\t<li>5</li>\n",
       "\t<li>20</li>\n",
       "\t<li>21</li>\n",
       "\t<li>12</li>\n",
       "\t<li>40</li>\n",
       "\t<li>12</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>20</li>\n",
       "\t<li>11</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>11</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>20</li>\n",
       "\t<li>9</li>\n",
       "\t<li>7</li>\n",
       "\t<li>55</li>\n",
       "\t<li>4</li>\n",
       "\t<li>4</li>\n",
       "\t<li>25</li>\n",
       "\t<li>3</li>\n",
       "\t<li>20</li>\n",
       "\t<li>40</li>\n",
       "\t<li>6</li>\n",
       "\t<li>1</li>\n",
       "\t<li>6</li>\n",
       "\t<li>30</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>35</li>\n",
       "\t<li>5</li>\n",
       "\t<li>20</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>3</li>\n",
       "\t<li>20</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>3</li>\n",
       "\t<li>8</li>\n",
       "\t<li>5</li>\n",
       "\t<li>3</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>20</li>\n",
       "\t<li>15</li>\n",
       "\t<li>12</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>30</li>\n",
       "\t<li>30</li>\n",
       "\t<li>10</li>\n",
       "\t<li>9</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>21</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>5</li>\n",
       "\t<li>14</li>\n",
       "\t<li>12</li>\n",
       "\t<li>30</li>\n",
       "\t<li>35</li>\n",
       "\t<li>7</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>40</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>5</li>\n",
       "\t<li>5</li>\n",
       "\t<li>20</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>20</li>\n",
       "\t<li>8</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>20</li>\n",
       "\t<li>5</li>\n",
       "\t<li>2</li>\n",
       "\t<li>7</li>\n",
       "\t<li>16</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>5</li>\n",
       "\t<li>5</li>\n",
       "\t<li>7</li>\n",
       "\t<li>10</li>\n",
       "\t<li>4</li>\n",
       "\t<li>30</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>4</li>\n",
       "\t<li>35</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>30</li>\n",
       "\t<li>18</li>\n",
       "\t<li>8</li>\n",
       "\t<li>6</li>\n",
       "\t<li>15</li>\n",
       "\t<li>15</li>\n",
       "\t<li>10</li>\n",
       "\t<li>12</li>\n",
       "\t<li>10</li>\n",
       "\t<li>7</li>\n",
       "\t<li>10</li>\n",
       "\t<li>10</li>\n",
       "\t<li>14</li>\n",
       "\t<li>5</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>5</li>\n",
       "\t<li>20</li>\n",
       "\t<li>7</li>\n",
       "\t<li>22</li>\n",
       "\t<li>48</li>\n",
       "\t<li>8</li>\n",
       "\t<li>20</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>12</li>\n",
       "\t<li>2</li>\n",
       "\t<li>10</li>\n",
       "\t<li>6</li>\n",
       "\t<li>18</li>\n",
       "\t<li>6</li>\n",
       "\t<li>6</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 30\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 15\n",
       "\\item 7\n",
       "\\item 40\n",
       "\\item 10\n",
       "\\item 7\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 15\n",
       "\\item 2\n",
       "\\item 40\n",
       "\\item 12\n",
       "\\item 7\n",
       "\\item 10\n",
       "\\item 30\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 35\n",
       "\\item 18\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 20\n",
       "\\item 20\n",
       "\\item 15\n",
       "\\item 30\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 9\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 7\n",
       "\\item 2\n",
       "\\item <NA>\n",
       "\\item 10\n",
       "\\item <NA>\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 18\n",
       "\\item 28\n",
       "\\item 20\n",
       "\\item 2\n",
       "\\item 25\n",
       "\\item 28\n",
       "\\item 3\n",
       "\\item 6\n",
       "\\item 10\n",
       "\\item <NA>\n",
       "\\item 28\n",
       "\\item 25\n",
       "\\item 7\n",
       "\\item 20\n",
       "\\item 4\n",
       "\\item 7\n",
       "\\item 25\n",
       "\\item 4\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 20\n",
       "\\item 15\n",
       "\\item 20\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 14\n",
       "\\item 21\n",
       "\\item 30\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 30\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 15\n",
       "\\item 6\n",
       "\\item 4\n",
       "\\item 2\n",
       "\\item 20\n",
       "\\item 25\n",
       "\\item 25\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 16\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 22\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 14\n",
       "\\item 10\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 27\n",
       "\\item 15\n",
       "\\item 18\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 20\n",
       "\\item 3\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 0\n",
       "\\item 40\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 10\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 16\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 12\n",
       "\\item 5\n",
       "\\item 20\n",
       "\\item 21\n",
       "\\item 12\n",
       "\\item 40\n",
       "\\item 12\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 20\n",
       "\\item 11\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 11\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 20\n",
       "\\item 9\n",
       "\\item 7\n",
       "\\item 55\n",
       "\\item 4\n",
       "\\item 4\n",
       "\\item 25\n",
       "\\item 3\n",
       "\\item 20\n",
       "\\item 40\n",
       "\\item 6\n",
       "\\item 1\n",
       "\\item 6\n",
       "\\item 30\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 35\n",
       "\\item 5\n",
       "\\item 20\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 3\n",
       "\\item 20\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 3\n",
       "\\item 8\n",
       "\\item 5\n",
       "\\item 3\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 20\n",
       "\\item 15\n",
       "\\item 12\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 30\n",
       "\\item 30\n",
       "\\item 10\n",
       "\\item 9\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 21\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 5\n",
       "\\item 14\n",
       "\\item 12\n",
       "\\item 30\n",
       "\\item 35\n",
       "\\item 7\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 40\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 5\n",
       "\\item 5\n",
       "\\item 20\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 20\n",
       "\\item 8\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 20\n",
       "\\item 5\n",
       "\\item 2\n",
       "\\item 7\n",
       "\\item 16\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 5\n",
       "\\item 5\n",
       "\\item 7\n",
       "\\item 10\n",
       "\\item 4\n",
       "\\item 30\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 4\n",
       "\\item 35\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 30\n",
       "\\item 18\n",
       "\\item 8\n",
       "\\item 6\n",
       "\\item 15\n",
       "\\item 15\n",
       "\\item 10\n",
       "\\item 12\n",
       "\\item 10\n",
       "\\item 7\n",
       "\\item 10\n",
       "\\item 10\n",
       "\\item 14\n",
       "\\item 5\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 5\n",
       "\\item 20\n",
       "\\item 7\n",
       "\\item 22\n",
       "\\item 48\n",
       "\\item 8\n",
       "\\item 20\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 12\n",
       "\\item 2\n",
       "\\item 10\n",
       "\\item 6\n",
       "\\item 18\n",
       "\\item 6\n",
       "\\item 6\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 30\n",
       "2. 12\n",
       "3. 4\n",
       "4. 15\n",
       "5. 7\n",
       "6. 40\n",
       "7. 10\n",
       "8. 7\n",
       "9. 4\n",
       "10. 10\n",
       "11. 12\n",
       "12. 15\n",
       "13. 2\n",
       "14. 40\n",
       "15. 12\n",
       "16. 7\n",
       "17. 10\n",
       "18. 30\n",
       "19. 10\n",
       "20. 15\n",
       "21. 15\n",
       "22. 35\n",
       "23. 18\n",
       "24. 4\n",
       "25. 10\n",
       "26. 20\n",
       "27. 20\n",
       "28. 15\n",
       "29. 30\n",
       "30. 10\n",
       "31. 10\n",
       "32. 4\n",
       "33. 2\n",
       "34. 20\n",
       "35. 10\n",
       "36. 3\n",
       "37. 9\n",
       "38. 2\n",
       "39. 3\n",
       "40. 5\n",
       "41. 5\n",
       "42. 8\n",
       "43. 7\n",
       "44. 2\n",
       "45. &lt;NA&gt;\n",
       "46. 10\n",
       "47. &lt;NA&gt;\n",
       "48. 10\n",
       "49. 10\n",
       "50. 18\n",
       "51. 28\n",
       "52. 20\n",
       "53. 2\n",
       "54. 25\n",
       "55. 28\n",
       "56. 3\n",
       "57. 6\n",
       "58. 10\n",
       "59. &lt;NA&gt;\n",
       "60. 28\n",
       "61. 25\n",
       "62. 7\n",
       "63. 20\n",
       "64. 4\n",
       "65. 7\n",
       "66. 25\n",
       "67. 4\n",
       "68. 20\n",
       "69. 10\n",
       "70. 10\n",
       "71. 5\n",
       "72. 20\n",
       "73. 15\n",
       "74. 20\n",
       "75. 5\n",
       "76. 10\n",
       "77. 5\n",
       "78. 10\n",
       "79. 14\n",
       "80. 21\n",
       "81. 30\n",
       "82. 12\n",
       "83. 4\n",
       "84. 30\n",
       "85. 15\n",
       "86. 15\n",
       "87. 5\n",
       "88. 15\n",
       "89. 6\n",
       "90. 4\n",
       "91. 2\n",
       "92. 20\n",
       "93. 25\n",
       "94. 25\n",
       "95. 10\n",
       "96. 2\n",
       "97. 10\n",
       "98. 10\n",
       "99. 10\n",
       "100. 6\n",
       "101. 8\n",
       "102. 6\n",
       "103. 16\n",
       "104. 5\n",
       "105. 4\n",
       "106. 20\n",
       "107. 10\n",
       "108. 22\n",
       "109. 5\n",
       "110. 4\n",
       "111. 15\n",
       "112. 5\n",
       "113. 14\n",
       "114. 10\n",
       "115. 8\n",
       "116. 12\n",
       "117. 10\n",
       "118. 27\n",
       "119. 15\n",
       "120. 18\n",
       "121. 15\n",
       "122. 15\n",
       "123. 12\n",
       "124. 20\n",
       "125. 3\n",
       "126. 20\n",
       "127. 10\n",
       "128. 15\n",
       "129. 5\n",
       "130. 12\n",
       "131. 10\n",
       "132. 10\n",
       "133. 15\n",
       "134. 15\n",
       "135. 0\n",
       "136. 40\n",
       "137. 5\n",
       "138. 6\n",
       "139. 10\n",
       "140. 3\n",
       "141. 4\n",
       "142. 8\n",
       "143. 6\n",
       "144. 16\n",
       "145. 10\n",
       "146. 5\n",
       "147. 4\n",
       "148. 4\n",
       "149. 12\n",
       "150. 5\n",
       "151. 20\n",
       "152. 21\n",
       "153. 12\n",
       "154. 40\n",
       "155. 12\n",
       "156. 8\n",
       "157. 10\n",
       "158. 10\n",
       "159. 4\n",
       "160. 5\n",
       "161. 12\n",
       "162. 10\n",
       "163. 10\n",
       "164. 10\n",
       "165. 10\n",
       "166. 20\n",
       "167. 11\n",
       "168. 15\n",
       "169. 15\n",
       "170. 10\n",
       "171. 10\n",
       "172. 5\n",
       "173. 11\n",
       "174. 15\n",
       "175. 5\n",
       "176. 10\n",
       "177. 20\n",
       "178. 10\n",
       "179. 20\n",
       "180. 9\n",
       "181. 7\n",
       "182. 55\n",
       "183. 4\n",
       "184. 4\n",
       "185. 25\n",
       "186. 3\n",
       "187. 20\n",
       "188. 40\n",
       "189. 6\n",
       "190. 1\n",
       "191. 6\n",
       "192. 30\n",
       "193. 10\n",
       "194. 2\n",
       "195. 35\n",
       "196. 5\n",
       "197. 20\n",
       "198. 3\n",
       "199. 8\n",
       "200. 10\n",
       "201. 12\n",
       "202. 3\n",
       "203. 20\n",
       "204. 15\n",
       "205. 5\n",
       "206. 3\n",
       "207. 8\n",
       "208. 5\n",
       "209. 3\n",
       "210. 10\n",
       "211. 10\n",
       "212. 15\n",
       "213. 20\n",
       "214. 15\n",
       "215. 12\n",
       "216. 4\n",
       "217. 10\n",
       "218. 30\n",
       "219. 30\n",
       "220. 10\n",
       "221. 9\n",
       "222. 10\n",
       "223. 6\n",
       "224. 20\n",
       "225. 10\n",
       "226. 10\n",
       "227. 21\n",
       "228. 10\n",
       "229. 15\n",
       "230. 5\n",
       "231. 14\n",
       "232. 12\n",
       "233. 30\n",
       "234. 35\n",
       "235. 7\n",
       "236. 12\n",
       "237. 10\n",
       "238. 5\n",
       "239. 40\n",
       "240. 10\n",
       "241. 10\n",
       "242. 2\n",
       "243. 5\n",
       "244. 5\n",
       "245. 5\n",
       "246. 20\n",
       "247. 10\n",
       "248. 4\n",
       "249. 10\n",
       "250. 10\n",
       "251. 20\n",
       "252. 8\n",
       "253. 3\n",
       "254. 4\n",
       "255. 20\n",
       "256. 5\n",
       "257. 2\n",
       "258. 7\n",
       "259. 16\n",
       "260. 2\n",
       "261. 10\n",
       "262. 5\n",
       "263. 5\n",
       "264. 7\n",
       "265. 10\n",
       "266. 4\n",
       "267. 30\n",
       "268. 6\n",
       "269. 6\n",
       "270. 5\n",
       "271. 10\n",
       "272. 6\n",
       "273. 4\n",
       "274. 35\n",
       "275. 5\n",
       "276. 8\n",
       "277. 30\n",
       "278. 18\n",
       "279. 8\n",
       "280. 6\n",
       "281. 15\n",
       "282. 15\n",
       "283. 10\n",
       "284. 12\n",
       "285. 10\n",
       "286. 7\n",
       "287. 10\n",
       "288. 10\n",
       "289. 14\n",
       "290. 5\n",
       "291. 10\n",
       "292. 6\n",
       "293. 5\n",
       "294. 20\n",
       "295. 7\n",
       "296. 22\n",
       "297. 48\n",
       "298. 8\n",
       "299. 20\n",
       "300. 5\n",
       "301. 8\n",
       "302. 12\n",
       "303. 2\n",
       "304. 10\n",
       "305. 6\n",
       "306. 18\n",
       "307. 6\n",
       "308. 6\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  [1] 30 12  4 15  7 40 10  7  4 10 12 15  2 40 12  7 10 30 10 15 15 35 18  4 10\n",
       " [26] 20 20 15 30 10 10  4  2 20 10  3  9  2  3  5  5  8  7  2 NA 10 NA 10 10 18\n",
       " [51] 28 20  2 25 28  3  6 10 NA 28 25  7 20  4  7 25  4 20 10 10  5 20 15 20  5\n",
       " [76] 10  5 10 14 21 30 12  4 30 15 15  5 15  6  4  2 20 25 25 10  2 10 10 10  6\n",
       "[101]  8  6 16  5  4 20 10 22  5  4 15  5 14 10  8 12 10 27 15 18 15 15 12 20  3\n",
       "[126] 20 10 15  5 12 10 10 15 15  0 40  5  6 10  3  4  8  6 16 10  5  4  4 12  5\n",
       "[151] 20 21 12 40 12  8 10 10  4  5 12 10 10 10 10 20 11 15 15 10 10  5 11 15  5\n",
       "[176] 10 20 10 20  9  7 55  4  4 25  3 20 40  6  1  6 30 10  2 35  5 20  3  8 10\n",
       "[201] 12  3 20 15  5  3  8  5  3 10 10 15 20 15 12  4 10 30 30 10  9 10  6 20 10\n",
       "[226] 10 21 10 15  5 14 12 30 35  7 12 10  5 40 10 10  2  5  5  5 20 10  4 10 10\n",
       "[251] 20  8  3  4 20  5  2  7 16  2 10  5  5  7 10  4 30  6  6  5 10  6  4 35  5\n",
       "[276]  8 30 18  8  6 15 15 10 12 10  7 10 10 14  5 10  6  5 20  7 22 48  8 20  5\n",
       "[301]  8 12  2 10  6 18  6  6"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# m) Visualice la variable StudyHrs para Sex = Male.\n",
    "datos$StudyHrs[datos$Sex==\"Male\"]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Utilizando los datos ``Student0405.txt``, el Problema 2 y las funciones básicas y estadı́sticas dadas en la Guı́a R, responda las siguientes preguntas"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "690"
      ],
      "text/latex": [
       "690"
      ],
      "text/markdown": [
       "690"
      ],
      "text/plain": [
       "[1] 690"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "7"
      ],
      "text/latex": [
       "7"
      ],
      "text/markdown": [
       "7"
      ],
      "text/plain": [
       "[1] 7"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# a) ¿Cuántos alumnos fueron encuestados y cuántas preguntas se les hizo a cada uno?\n",
    "d <- dim(datos)\n",
    "n_alumnos <- d[1]\n",
    "n_preguntas <- d[2] # length(names(datos))\n",
    "n_alumnos\n",
    "n_preguntas"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 68,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "1.5"
      ],
      "text/latex": [
       "1.5"
      ],
      "text/markdown": [
       "1.5"
      ],
      "text/plain": [
       "[1] 1.5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "4"
      ],
      "text/latex": [
       "4"
      ],
      "text/markdown": [
       "4"
      ],
      "text/plain": [
       "[1] 4"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# b) ¿Cuál es el mínimo y el máximo promedio de calificaciones?\n",
    "#     ayuda de min() -> na.rm a logical indicating whether missing values should be removed\n",
    "min(datos$GPA, na.rm = TRUE)\n",
    "max(datos$GPA, na.rm = TRUE)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "**c)** Utilice la función ``range()`` para responder el item anterior, ¿qué nos devuelve esta función?\n",
    "\n",
    "``range`` returns a vector containing the minimum and maximum of all the given arguments. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 67,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1.5</li>\n",
       "\t<li>4</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1.5\n",
       "\\item 4\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1.5\n",
       "2. 4\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1.5 4.0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "range(datos$GPA, na.rm=TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 73,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>-2</li>\n",
       "\t<li>9</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item -2\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. -2\n",
       "2. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] -2  9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# funciona con varios vectores también\n",
    "range(NA, c(1,-2,3,4), c(7,8,9, -1), na.rm=TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 79,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "4"
      ],
      "text/latex": [
       "4"
      ],
      "text/markdown": [
       "4"
      ],
      "text/plain": [
       "[1] 4"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# d) ¿Cuál es la máxima calificación (promedio) obtenida por las mujeres que se sientan al frente?\n",
    "max(datos$GPA[datos$Seat == \"Front\" & datos$Sex == \"Female\"], na.rm = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 83,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# e) ¿Qué cantidad mínima de veces van a fiestas aquellos alumnos para los cuales la religión \n",
    "#     es muy importante o se sientan al medio del aula?\n",
    "min(datos$PartyDays[datos$ReligImp == \"Very\" | datos$Seat == \"Middle\"], na.rm = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 89,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "151"
      ],
      "text/latex": [
       "151"
      ],
      "text/markdown": [
       "151"
      ],
      "text/plain": [
       "[1] 151"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "404"
      ],
      "text/latex": [
       "404"
      ],
      "text/markdown": [
       "404"
      ],
      "text/plain": [
       "[1] 404"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "134"
      ],
      "text/latex": [
       "134"
      ],
      "text/markdown": [
       "134"
      ],
      "text/plain": [
       "[1] 134"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# f ) ¿Dónde se sientan más alumnos en el aula: al frente, al medio o atrás?\n",
    "frente <- sum(datos$Seat==\"Front\", na.rm = TRUE)\n",
    "medio <- sum(datos$Seat==\"Middle\", na.rm = TRUE)\n",
    "atras <- sum(datos$Seat==\"Back\", na.rm = TRUE)\n",
    "frente\n",
    "medio\n",
    "atras"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 96,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "\n",
       "  Back  Front Middle \n",
       "   134    151    404 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# también se puede hacer con table\n",
    "#   table uses the cross-classifying factors to build a contingency table of \n",
    "#   the counts at each combination of factor levels. \n",
    "table(datos$Seat)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 90,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "450"
      ],
      "text/latex": [
       "450"
      ],
      "text/markdown": [
       "450"
      ],
      "text/plain": [
       "[1] 450"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# g) ¿Cuántos alumnos tienen calificación promedio mayor a 3?\n",
    "sum(datos$GPA>3, na.rm = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 102,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>Sex</th><th scope=col>GPA</th><th scope=col>ReligImp</th><th scope=col>MissClass</th><th scope=col>Seat</th><th scope=col>PartyDays</th><th scope=col>StudyHrs</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>1</th><td>Female</td><td>3.70  </td><td>Fairly</td><td>1     </td><td>Back  </td><td>5     </td><td> 3    </td></tr>\n",
       "\t<tr><th scope=row>2</th><td>Male  </td><td>3.20  </td><td>Fairly</td><td>3     </td><td>Front </td><td>3     </td><td>30    </td></tr>\n",
       "\t<tr><th scope=row>3</th><td>Female</td><td>3.01  </td><td>Fairly</td><td>0     </td><td>Middle</td><td>8     </td><td>16    </td></tr>\n",
       "\t<tr><th scope=row>4</th><td>Female</td><td>3.77  </td><td>Not   </td><td>0     </td><td>Middle</td><td>0     </td><td> 4    </td></tr>\n",
       "\t<tr><th scope=row>5</th><td>Male  </td><td>3.28  </td><td>Not   </td><td>0     </td><td>Middle</td><td>8     </td><td>12    </td></tr>\n",
       "\t<tr><th scope=row>8</th><td>Male  </td><td>3.11  </td><td>Not   </td><td>0     </td><td>Front </td><td>2     </td><td>15    </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       "  & Sex & GPA & ReligImp & MissClass & Seat & PartyDays & StudyHrs\\\\\n",
       "\\hline\n",
       "\t1 & Female & 3.70   & Fairly & 1      & Back   & 5      &  3    \\\\\n",
       "\t2 & Male   & 3.20   & Fairly & 3      & Front  & 3      & 30    \\\\\n",
       "\t3 & Female & 3.01   & Fairly & 0      & Middle & 8      & 16    \\\\\n",
       "\t4 & Female & 3.77   & Not    & 0      & Middle & 0      &  4    \\\\\n",
       "\t5 & Male   & 3.28   & Not    & 0      & Middle & 8      & 12    \\\\\n",
       "\t8 & Male   & 3.11   & Not    & 0      & Front  & 2      & 15    \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | Sex | GPA | ReligImp | MissClass | Seat | PartyDays | StudyHrs | \n",
       "|---|---|---|---|---|---|\n",
       "| 1 | Female | 3.70   | Fairly | 1      | Back   | 5      |  3     | \n",
       "| 2 | Male   | 3.20   | Fairly | 3      | Front  | 3      | 30     | \n",
       "| 3 | Female | 3.01   | Fairly | 0      | Middle | 8      | 16     | \n",
       "| 4 | Female | 3.77   | Not    | 0      | Middle | 0      |  4     | \n",
       "| 5 | Male   | 3.28   | Not    | 0      | Middle | 8      | 12     | \n",
       "| 8 | Male   | 3.11   | Not    | 0      | Front  | 2      | 15     | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Sex    GPA  ReligImp MissClass Seat   PartyDays StudyHrs\n",
       "1 Female 3.70 Fairly   1         Back   5          3      \n",
       "2 Male   3.20 Fairly   3         Front  3         30      \n",
       "3 Female 3.01 Fairly   0         Middle 8         16      \n",
       "4 Female 3.77 Not      0         Middle 0          4      \n",
       "5 Male   3.28 Not      0         Middle 8         12      \n",
       "8 Male   3.11 Not      0         Front  2         15      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# h) Obtenga todos los datos de los alumnos cuya calificación promedio sea mayor a 3.\n",
    "# OJO, notar la coma al final, sino da error, pero por qué?\n",
    "head(datos[datos$GPA > 3,])"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 113,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "12.2524590163934"
      ],
      "text/latex": [
       "12.2524590163934"
      ],
      "text/markdown": [
       "12.2524590163934"
      ],
      "text/plain": [
       "[1] 12.25246"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "13.8845144356955"
      ],
      "text/latex": [
       "13.8845144356955"
      ],
      "text/markdown": [
       "13.8845144356955"
      ],
      "text/plain": [
       "[1] 13.88451"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# i) ¿Cuál es el promedio de horas de estudio semanales para los varones? ¿Cuál para las mujeres?\n",
    "mean(datos$StudyHrs[datos$Sex == \"Male\"], na.rm = TRUE)\n",
    "mean(datos$StudyHrs[datos$Sex == \"Female\"], na.rm = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 121,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "12.2524590163934"
      ],
      "text/latex": [
       "12.2524590163934"
      ],
      "text/markdown": [
       "12.2524590163934"
      ],
      "text/plain": [
       "[1] 12.25246"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "13.8845144356955"
      ],
      "text/latex": [
       "13.8845144356955"
      ],
      "text/markdown": [
       "13.8845144356955"
      ],
      "text/plain": [
       "[1] 13.88451"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# j) Utilice la función mean() para obtener la respuesta del ı́tem anterior.\n",
    "# ya había usado, pero podría haberlo hecho así\n",
    "sum(datos$StudyHrs[datos$Sex == \"Male\"], na.rm = TRUE)/ (length(datos$StudyHrs[datos$Sex == \"Male\"])-sum(is.na(datos$StudyHrs[datos$Sex == \"Male\"])))\n",
    "sum(datos$StudyHrs[datos$Sex == \"Female\"], na.rm = TRUE)/ (length(datos$StudyHrs[datos$Sex == \"Female\"])-sum(is.na(datos$StudyHrs[datos$Sex == \"Female\"])))\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 118,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "1"
      ],
      "text/latex": [
       "1"
      ],
      "text/markdown": [
       "1"
      ],
      "text/plain": [
       "[1] 1"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# k) ¿Qué cantidad de datos faltantes hay en la variable GPA? ¿y en Seat?\n",
    "sum(is.na(datos$GPA))\n",
    "sum(is.na(datos$Seat))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.5.1"
  },
  "toc": {
   "nav_menu": {},
   "number_sections": true,
   "sideBar": true,
   "skip_h1_title": false,
   "title_cell": "Tabla de Contenidos",
   "title_sidebar": "Contenido",
   "toc_cell": false,
   "toc_position": {},
   "toc_section_display": true,
   "toc_window_display": false
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}