{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC6FBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgpKSkqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6\nOjo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tM\nTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1e\nXl5fX19gYGBhYWFiYmJjY2NkZGRmZmZnZ2doaGhpaWlqampsbGxtbW1ubm5vb29wcHBxcXFy\ncnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OE\nhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyOjo6Pj4+QkJCSkpKTk5OUlJSVlZWWlpaYmJiZ\nmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWoqKipqamqqqqrq6usrKyt\nra2urq6wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/A\nwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS\n0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk\n5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX2\n9vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///+l2HEbAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAWA0lEQVR4nO3df7zddUHH8c/dlbvLJk5EFGPqAkPAq8RERYOlNQbMHxEz0lH+CBGQLNtc\nppaZNk3LflgJNo1+sJYJlhFmKhvKZixT76SYkm4YBQyGyODu+2/n3DumzXsPuzvve773e+/z\n+Xhwvl/uOZzzfvDYi3vuOWejVEDXSt0DYCYQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAh\nQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAg\nJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkC\nhAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFB\ngJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBDQg5Bu3gyNcvPkf5VPfUg3FWiYmyb9y3zq\nQ7qhPDDljwFBD5QbJv3PCAkOICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIcLC2rlm+fM3Wca8SEhyktf1LVq9e0r92vOuEBAfn6oEN7cOGgfXjXCkkODin\nrho7rlo8zpVCgoNyb9k0drKxb/cPXiskOCg7yraxk+Gy4wevFRIclD2D146dXDO45wevFRIc\nnBXL9rYPI2etGOdKIcHBGV6wcmdV7Vy5YNs4VwoJDtKWobJoURnaMt51QoKDNbJl3brNI+Ne\nJSQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAh\nQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAg\nJAgQEgQICQKEBAFCgoBaQnpw6/bONxASDdPbkHavPe+Vm6qvnlDK8Z/vdDsh0TA9DemuE0sp\nj9l8/BEXXjB4+Dc63FBINExPQ3pT+Y3bvvCjA4NfqapNcy7qcEMh0TA9DenEH2tdfL5c2D4/\n+6QDrrzzsov3O1dINEtPQ5p3cevivvLW9vll8w648vtDOrPce6iPAXXo7XekM1oXXyg/1z5/\n8YHfkb7fHwuJZunxz0i/dfu/Ln7U4duqanP/L3S4oZBomN6+andCKeWITYse+5oL5w1u73BD\nIdEwvX0f6d53vuTlG6sv/XApizZ2up2QaJhaPtmw56ZbOt9ASDTM9PysnZBoGCFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAh\nQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAg\nJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkC\nhAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFB\ngJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAk\nCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBBQS0jf3vwInQhp\namxds3z5mq11r5iRehvS11/zgaraOFRK3zlf73Q7IU2Jtf1LVq9e0r+27h0zUU9DuuWo8r7q\nK3PnnH3pC8sT/qfDDYU0Fa4e2NA+bBhYX/eSGainIb28/2+r6rz+T7VO15fLOtxQSFPh1FVj\nx1WL690xI/U0pCf+VOvi2BePni89+YArR/75uv3eKKS8e8umsZONfbvrXTIT9TSk+Re2Lp7w\nutHzi4844Mpbjz5yv3nlnkN9DCayo2wbOxkuO+pdMhP1NKTTn3R3Vb30R9unI0Mv6HBDT+2m\nwJ7Ba8dOrhncU++SmainIf11ee7G6uYjfn2kuv8N5W0dbiikqbBi2d72YeSsFXUvmYF6+/L3\nux9Vnnzm8eXo0x5TfqzT83QhTYXhBSt3VtXOlQu21b1kBurxG7LffPtJR5RSHnfWhoc63UxI\nU2LLUFm0qAxtqXvHTFTDJxvuue27j3QTIU2NkS3r1m0eqXvFjOSzdhAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUFAJqS9t92fGLOfkGiYrkP6zEVfq+44tQysHoltEhKN021I/zCnbK4uLT/+\n/LIuN0pINE23IZ254Ia9Dx11cvXgk1+QGyUkmqbbkB736qraXN5ZVSuPzo0SEk3TbUgLXllV\n7y3/UlWXz8+NEhJN021Iz33i/Q+deOSD1UOnnJgbJSSaptuQPlJ+5PjyS9VnTy9vzY0SEk3T\n9cvfv310/7l3V+8p59wd2yQkGifwhuye1l+33pKZs4+QaJguQ/rWH0/+Hz8IQqJhugzp02VF\ncMx+QqJhugzpgWc8/o7gmocJiYbp9meku1/67I99/Z7dbblRQqJpug3pmCeUh+VGCYmm6Tak\n131PbpSQaBq/sQ8CYiH9yTu63vI9QqJhug5px59/oO29x/ptFMxi3YZ08+P2vdRw2Edzo4RE\n03Qb0or+P/jkSctuXH/aWblNQqJxug3p2OdW1ftOqqpdR12ZGyUkmqbbkAYuqaob+u6uqktf\nlBslJJqm6+9IK6pq95y/qaq3LciNEhJN021I58/9+Ej19JVV9ZMLc6OERNN0G9K/LihXVJeX\nly0vPtnALNb1+0hfe/v11V0vOay86L9jm4RE44Q+2XDP/wS2fI+QaJjuQ/rWp1oXH/n30J4x\nQqJhug3poVV9p7UOi8rl/uxvZrFuQ/pgOf3vWofPvKx8KLZJSDROtyE962kPjB73nnpaaFGb\nkGiYbkOa//p9J284IrJnjJBomG5DevryfScvOSGyZ4yQaJhuQ7qo/+9Gj5/sf1VoUZuQaJhu\nQ7rjyWXZu65473l9j/9WbpSQaJqu30fa/sq+9u/rOzv6RpKQaJjAJxu+/dm/+KdvhObsIyQa\nxp8iBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgTUE9IVn+t8vZBmp5HN69ZtHql7xSGpJ6Ry\nSefrhTQrbRkqixaVoS117zgUPQ3pmoeVc1sXHW4opNloeMHKnVW1c+WCbXUvOQQ9Dan8Px1u\nKKTZ6Pxle9uHkWUr6l5yCHoa0kfml1e/p608r3XR4YZCmoX2DO57kvLxwT31LjkUvf0ZafhZ\n864cvYdxfka69egj95tX7jnkx6ChdpR9T+mGy456lxyKHr/YcP+l5RW7xg9p5J+v2++NviPN\nPveWTWMnG/t217vkUPT8Vbv1C477vFftGMfi1WPHVYvr3XFIev/y9/bnHfY+IfGDrh7Y0D5s\nGFhf95JDUMP7SHtW9wmJcaztX7J69ZL+tXXvOBS1vCF7/fuv63wDIc1OW9csX75ma90rDonP\n2kGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAh\nQYCQIEBIECAkCBASBAgpaeua5cvXbK17BTUQUtDa/iWrVy/pX1v3DnpPSDlXD2xoHzYMrK97\nCT0npJxTV40dVy2udwc1EFLMvWXT2MnGvt31LqH3hBSzo2wbOxkuO+pdQu8JKWbP4LVjJ9cM\n7ql3Cb0npJwVy/a2DyNnrah7CT0npJzhBSt3VtXOlQu21b2EnhNS0JahsmhRGdpS9w56T0hJ\nI1vWrds8UvcKaiAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoKAXod0+/CDYyd3fLPDrYREw/Q2pJuGSnnilaOnSzvd\ni5BomJ6GdOvhc5Yun1s+0D4XEjNJT0O6sO/a1pO74wa+XAmJmaWnIR1/dvtyePDF1Tgh3XnZ\nxfudKSSapachzbt09PCr5dOPENK55YFDfQyoQ09DOvn00cOuJx23q/NTuxuERLP0NKQ3ljX3\ntY9/W867S0jMJD0N6a4fLnNHf0x6SzniKCExg/T2faTdb3/+KaMnf3ZCERIzSF0fEdq7/Z86\nXCskGmZ6ftZOSDSMkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIECAkCGhWSCOb163bPDLlDw+T1aiQtgyVRYvK0JYpf3yYpCaFNLxg\n5c6q2rlywbYpHwCT06SQzl+2t30YWbZiygfA5DQopD2D14ydfHxwz5QvgElpUEg7yr6ndMNl\nx5QvgElpUEj3lk1jJxv7dk/5ApiUBoVULV49dly1eMoHwOQ0KaSrBza0DxsG1k/5AJicJoVU\nre1fsnr1kv61U/74MEmNCqnaumb58jVbp/zhYbKaFRJMU0KCACFBgJAgQEgQICQIEBIECAkC\nhAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAHTM6SbCjTMTZP+ZT71IVU3b57AOUv+fFpbsqTu\nBZ3Z150l50z0K/Pmyf8q70FIE3rNa2p88INgX3dm1T4hTcy+7syqfUKamH3dmVX7hDQx+7oz\nq/YJaWL2dWdW7RPSxOzrzqzaJ6SJ2dedWbVPSBOzrzuzap+QJmZfd2bVPiFNzL7uzKp9dYZ0\n8cU1PvhBsK87s2pfnSHdeWeND34Q7OvOrNpXZ0gwYwgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAioNaQPPrbOR38Ed7/pmfN/5Oe31z1jQre+4vh5z1h1V90z\nOlpXrql7woQWjv1/J94Wurs6Q7rv5Gkc0n3HldMvWdZ3+Oa6h0zgP+f3v/SS55ST7697SAfD\n86dvSN/p+6EXtl0Zur/6Qvrke08s0zikXy9vbl1eM+eZdQ+ZwM+Ua1uXl5U/rHvIxO4/pUzf\nkP6t/Fb0/uoLabD1fXUah/T8ufe1D0vLt+teMr4nndS+vLm8tu4hE7t03qumb0h/U66O3l99\nIX33u9+dzk/tTjl79LC8DNc8ZHwPvW1d+3BTeX3dSya0vlz5nukb0nvKF676jT/9Uuz+an2x\nYWgahzTm9rlPeLDuDRMaufMzLzjsxrpXTGT7Y19RTeOQLipHt54S9V2yJ3R/Qupk+LhyRd0b\nJnZJKfP+se4RE9nzvON2TeeQziwv33rPZ59T3hW6PyFNbNdbDh/4vbpHdPCJd6895YmT/98G\n98bqwz5fTeeQrvvE3tblHUfOH8ncn5Am9LEfKsu/XPeIR7Dr6Gn6quL1fb9TTeuQ9llRtmXu\nSEgTeWs57tN1b5jY1jd8avS4tHyn5iXje3952BV1T+no9SX030ohTWBdOW9X3Rs6GC5jf3D1\n06fpv8LrLml7Xjn3ks/VPWVctxxz+ejxBQOhF5OENL69Tz9iWn/6Zu9T5n2ldfhwuaDuJZ1M\n46d2zxzc1Lr8aOx9OCGNb3s5aumYO+qeMr5r+gZXXLakPOn2uod0Mo1DunHwUT996ZnlhNQf\npC+k8V2//zn+N+ueMoGN5yycf8qbpvW3zekcUvXF8xfOW/xrsZ8w/TYKCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEFIjlKeN++UzFvZ4BxMRUiMIaboTUiMIaboT\nUiMIaboTUiOMhvS6xz70jqccPnRF+wtfPf/YY39m+2hID77r9EcvunxnVf37wAtbf7tn6HE7\n65w6SwmpEcZCWvCqC677xHPKX1fVZx8950WvesoxT22F9MAZ5bSLzyhPva2q3lH+rKreXa6q\ne+1sJKRGGAupvKR1eVv52Wrv4jkfq6rdP1FaIf1ueUfrqx8qF7SaGjrqjv8YfGnNW2cnITXC\nvpCub58fubT6QnlF++zf2iE9+fiR9vkZc++vqhvn/NzSI3fUuHP2ElIj7AvpW+3zxy+triof\nHv3yMQure8vzr2o7q3yp9YVfLuWjNc6cxYTUCPtC2t0+b4X0/vL3o19+9sLqy+VhG1tfuKXM\n31XjzFlMSI1wQEh/1X5VoeXYhdX/lou+73Yvm1suq2EeQmqGA0LaUla2z77W1/oZ6ahnjt7i\n6g+2Lq4qH7ig74baVs5mQmqEA0KqnjPn2qq6f3n7xYZfK7/f+uKNj1pRVbcfddpDOx5z8gP1\nbp2dhNQIB4b0uUfPWXbR0x7dfkP2nmeUM3/xgrnHbK+q8/u/WFV/WH6z3q2zk5Aa4ftDWvTa\n1sVXf3rhMed/8Y9e3Tr9zptPnXf86/+rqv6y/Errb0eeO/crdU6dpYQEAUKCACFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIE/B+WosxJExN6rQAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Define the cars vector with 5 values\n",
    "cars <- c(1, 3, 6, 4, 9)\n",
    "\n",
    "# Graph the cars vector with all defaults\n",
    "plot(cars)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "ename": "ERROR",
     "evalue": "Error in parse(text = x, srcfile = src): <text>:1:1: unexpected SPECIAL\n1: %%\n    ^\n",
     "execution_count": 4,
     "output_type": "error",
     "traceback": [
      "Error in parse(text = x, srcfile = src): <text>:1:1: unexpected SPECIAL\n1: %%\n    ^\nTraceback:\n"
     ]
    }
   ],
   "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.4.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}