JupyterIntro/demo_3_nb_slides.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {
    "nbpresent": {
     "id": "3c3fcfe2-c42d-4f34-bcaa-e4919c547e6b"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "source": [
    "<center> <h1>Analyzing Data in R...</h1> </center>\n",
    "<center> <h4> </h4> </center>\n",
    "\n",
    "<div style=\"text-align:left\"><img src=\"r_button.jpg\" alt=\"alt text\" title=\"Title\" height=\"200\" width=\"200\" vertical-align: middle horizontal-align: middle  opacity : 0.2;>\n",
    "</div>\n",
    "\n",
    "<center> <h1>by Bryan Cafferky</h1> </center>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {
    "nbpresent": {
     "id": "41c265f2-e418-4509-a9cb-afdadcf74927"
    },
    "slideshow": {
     "slide_type": "skip"
    }
   },
   "source": [
    "## Analyzing the data...\n",
    "---------"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "nbpresent": {
     "id": "8e19647f-12cc-4925-9ad4-eaa42b23b59c"
    },
    "slideshow": {
     "slide_type": "subslide"
    }
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "'data.frame':\t150 obs. of  5 variables:\n",
      " $ Sepal.Length: num  5.1 4.9 ...\n",
      " $ Sepal.Width : num  3.5 3 ...\n",
      " $ Petal.Length: num  1.4 1.4 ...\n",
      " $ Petal.Width : num  0.2 0.2 ...\n",
      " $ Species     : Factor w/ 3 levels \"setosa\",\"versicolor\",..: 1 1 ...\n"
     ]
    }
   ],
   "source": [
    "# Get the data frame structure...\n",
    "str(iris, vec.len=1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "nbpresent": {
     "id": "89560c19-f9cb-4446-849b-d1dee933ab1f"
    },
    "slideshow": {
     "slide_type": "subslide"
    }
   },
   "outputs": [
    {
     "data": {
      "text/plain": [
       "  Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   \n",
       " Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  \n",
       " 1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  \n",
       " Median :5.800   Median :3.000   Median :4.350   Median :1.300  \n",
       " Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  \n",
       " 3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  \n",
       " Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  \n",
       "       Species  \n",
       " setosa    :50  \n",
       " versicolor:50  \n",
       " virginica :50  \n",
       "                \n",
       "                \n",
       "                "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Summary statistics...\n",
    "summary(iris)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "nbpresent": {
     "id": "6506ca81-3876-4907-9593-00dc799b9de1"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>Sepal.Length</th><th scope=col>Sepal.Width</th><th scope=col>Petal.Length</th><th scope=col>Petal.Width</th><th scope=col>Species</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>1</th><td>5.1   </td><td>3.5   </td><td>1.4   </td><td>0.2   </td><td>setosa</td></tr>\n",
       "\t<tr><th scope=row>2</th><td>4.9   </td><td>3     </td><td>1.4   </td><td>0.2   </td><td>setosa</td></tr>\n",
       "\t<tr><th scope=row>3</th><td>4.7   </td><td>3.2   </td><td>1.3   </td><td>0.2   </td><td>setosa</td></tr>\n",
       "\t<tr><th scope=row>4</th><td>4.6   </td><td>3.1   </td><td>1.5   </td><td>0.2   </td><td>setosa</td></tr>\n",
       "\t<tr><th scope=row>5</th><td>5     </td><td>3.6   </td><td>1.4   </td><td>0.2   </td><td>setosa</td></tr>\n",
       "\t<tr><th scope=row>6</th><td>5.4   </td><td>3.9   </td><td>1.7   </td><td>0.4   </td><td>setosa</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       "  & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species\\\\\n",
       "\\hline\n",
       "\t1 & 5.1    & 3.5    & 1.4    & 0.2    & setosa\\\\\n",
       "\t2 & 4.9    & 3      & 1.4    & 0.2    & setosa\\\\\n",
       "\t3 & 4.7    & 3.2    & 1.3    & 0.2    & setosa\\\\\n",
       "\t4 & 4.6    & 3.1    & 1.5    & 0.2    & setosa\\\\\n",
       "\t5 & 5      & 3.6    & 1.4    & 0.2    & setosa\\\\\n",
       "\t6 & 5.4    & 3.9    & 1.7    & 0.4    & setosa\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/plain": [
       "  Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n",
       "1          5.1         3.5          1.4         0.2  setosa\n",
       "2          4.9         3.0          1.4         0.2  setosa\n",
       "3          4.7         3.2          1.3         0.2  setosa\n",
       "4          4.6         3.1          1.5         0.2  setosa\n",
       "5          5.0         3.6          1.4         0.2  setosa\n",
       "6          5.4         3.9          1.7         0.4  setosa"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Get top few rows...\n",
    "head(iris)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "nbpresent": {
     "id": "7b289a18-082c-4549-9dd4-d0ad68fa0401"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEX9/v0AAABMTUxnaGd7\ne3uLjIuZmpmmpqaxsrG7vLvFxsXOz87X2Nff4N/n6Ofu7+79/v1tTElJAAAAEXRSTlP/////\n////////////////ACWtmWIAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAABnMSURBVHic7d3rQrJY\nAIbRATUzK73/q520w6flAeQV2LjWjxknkUP4jAps+28LdPbf0CsAUyAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIENBDSBUUpv2z\nvI+Q7r8ISBISBAgJAoQEAUKCACFBgJAgQEgQICQI6D+k1ayqFuvL0wiJwvQY0udVFPPPCyqW\nlye9cREwkL5DWlbLzXb7vqxW4bWCIfUdUl1tdrc31ezipDcuAgbSd0jfV8levlpWSBSm75Ce\nvkOqL0564yJgIL2GtHherauXj5ub5eWjDUKiML2G9DMCqqrqTXitYEh9nkd6e1utFov9IYfl\nxY6ERGlc2cC9NBx/fdMw7btru1ZC4j4afpXBzd94cFft10pI3IeQromE5DzSxDX8dp0OX8Jz\nRzes1XhC6vjdRoyLkK7y1o7rhHSVkGjAZ6RrhEQDQrrm5pA2T1U1/xrS52DD9DV8Jo4vo522\na9VjSJt6X/nic7lCYkp6DGk/mG+zquf75QqJKekxpPpzWe/17F1ITEzv39nw8aI0nwuJiekx\npFn1fcn3bC4kpqXHkFbV09et92ouJCalz8Pfy5961lcOLgqJwvR6QvZt8X3r/UlITIkrGyBA\nSBAgJAgQEgQICQKEBAFCggAhMUZ3HqT0Z/adlyckxufOw2b/zD6wPCExPkIKEdJDu/NXC/2Z\nfWJ5QmJ0hJQipIcmpBQhPTafkUKE9NiEFCKkR+c8UoSQKIyQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQmKsfo+9O/HTrnM9fc/3jdMrcObB7ddESPTgaNTqz390\nHct6/vF/FnF6Bc7OuP26CIkeCClASA/v6Jt9qj8Scz19z8lFXV+ukBglISUI6eEJKUFIHD1z\nf/6jW0c+I/FwhBQgJJxHChAShRESBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIA\nIUGAkOjNrSMg7jdyIkdI9OTWMXn3G8uXJCR6IqRfhMQNrn9/SPZxqcc3XUz7hwiJGwjpNyFx\nAyH9JiRu4TPSL0LiFkL6RUjcxnmkI0KC34QEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEnd3NB7o8uCgG4YO/XlI23lEhisJiTs7GqF6ebjqDYNZ/zyk7TxCA2iF\nxJ0J6Qwh0cLRt/hc/kqfG77w589D2s7jhmWenk/7hwiJFoR0jpBoQUjnCIk2jp6ol5+1Nzyn\n/zyk7TwyHQmJexPSGUKind9P9KaT3jD3W+YRyEhIECEkCBASBAgJAoQEAUKCgF5Den1e7I/Z\nL5avlycUEoXpMaTNrPpnnl4rGFKPIS2r+uVtf+t9XVfLS5MKicL0GFJdvf3cfqvqS5MKicL0\nGNLRhRiXr8oQEoXxigQB/X5GWr/vb/mMxNT0efh7fnDUbrYJrxUMqd/zSMv9eaR68ew8EtPi\nygZGoMWIpZ8pmg0jygw2uj4TITG4FmNoD6ZoMrA1Mvy10UyExOCEdDvnkfh2VMX1RKojzecc\nWb3zU7Wf8Z1Cav7rYVqEdDdCeiRCuhshPZSjJ+r1Z22Lty6RNziNZiIkBiekdjZPVTVffy3X\nwQb+OXqeNurjgc8jbep92IvP5QqJKen1otXVR02rej84VkhMSq/DKPb/eq9n70JiYgYY2LeZ\nz4XExPQY0qz6HjoxmwuJaekxpFX19HXrvZoLiUnp8/D38qee9ZXjiUKiML2ekH1bfN96fxIS\nU+LKBggQEgQICQKEBAFCggAhQYCQIEBI3FOL4UCRkUNd5/j3IQ1nIiTup8UA1chY1q5z/PuQ\nxjMREvcjpEuERDNNv1mh3aT5hZ9/SPOZCIm7EdJFQqIZIV0kJBpq8VROd+Qz0o6QpkFIlwiJ\nxlo8k7MZ3TjHvw9p+j+CtksSEvwlJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQE\nAUKCACFBgJAmKz++p4s/a7P7QYNVvDzJ9737fzecY8sVaLgyQpqo/IjTLv6sTfVPq8edvLf6\npcUatfkdXZxcSBMlpEZrJCQuav0suas/a9PweX95kt/9tEmjdXhXV6bZTA4JqQBCarhGQuIS\nITVcIyFx0Zg68hnpJCGVQEiN1khIXDOejHb+rE3lPFL7h7Q1pmcANCAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkB7UoKOVxjVUKkJID2nQ8bPjGrwbIqSHJKQ0\nIT2i1l9XMJmF342QHpGQ4oT0iIQUJ6SH5DNSmpAekpDShPSgnEfKEhIECAkChAQBQoIAIUGA\nkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECCkURti4M7PMoseNdT3ygtpxIYYSvqzzKLH\nsfa/8kIaMSHdSkifCt19YUN83U71R48Ljxlg5YU0XkK6lZC+FLn34oR0KyF9KXLv5fmMdCuf\nkT4VuvvShHSr8kJaze7xKlro7ssb4plcOY90y/LaP+QwpOf7vJcueAfymDqGVFer2KocEBKF\n6RjSnV4/hURhOoa0rDaxVTkgJArT9WDDYv6aWpUDQqIwHUK644k7IVGY/kPaHTBfrONrBUPq\n8YTsZ2vzz+yWlye9cREwkL5DWlbLzXb7vrx82FxIFCZ1+Luury9qN239eZhvU83CawVDCoX0\n3uAz0n6Sf5efhNcKhtQhpPXRsYaLrzCfi9ot6+k7pIuvYEKiMF1ekWaHHV0/nVRVi+fVunr5\nuLlZXj7aICQK0+MlQgfHyauqvnhFhJAoTJ/jkd7eVqvFYn/IYXn5yiIhURhXNozF7lf4/Wu8\n8us8eff5YUTn53b2npGOSeqyNnfeEiGNw+Ev8sov9OTdPz/8c+/5uZ295/zMBtVlbe6+JZ0v\nWq13V/u81k+h9fk0ll3XHyFdN+WQltXb/t9vV675+btc55EOVadcmfTy4y9OfvmepmvSsy5r\nc/8tSR21a7uKV3Zf+7Uqm5Cum3RI9c8r0vVLhFoYx57rkZCum3RIy6renYld19Vzao12xrHn\n+nT4rL2yz0/e/fPDP/een9vZe87PbFBd1ubuW9L1YMPXqIhqkVqhvbHsuv4I6bpJh7R9WVTX\nB+q1NZZd16fKeaSruqzNnbekzysbmhvTzoMGhAQBna5sOH5rf3VRx8JrBUPqMaSVkJisXq/+\nrucNpxQShekQUr1Yvbb7ntXGFxIJicJ0vfq7Xjyv3xs/dPV1IcQd1gqG1CGkzevq6Wu0+WL5\n0qyQ+60VDKnzZ6S31dM8ftJYSBQmc7BhPRcSDy0Q0uvzzCsSD65jSO+r3aV21ew5+8ddhERh\nuhxsWC/r3XG7p3X8j40JicJ0PPy9WDU/9t2CkChMp5CufDvd7YREYbwijUDDQzXnBxq1ONZz\nOOzpVuMapNTCHVe802ekJ5+RAhpe9Ht+6GuL0Z9tLjLuuL7jc9cVd9RucELqyZhD2nEeqZOG\nz+w/k1V/tFhWhx3WvcSB3HfFXdkwNCH1ZOQhudauIyH1ZLQhufo7o+Hu/TPZzw9aPD+6d+Qz\n0pmZt39Ih/FITRW4l24npJ6MNaT2I2QbK3AvddG8gjM/aPH0qJxHus+s2z/E13HBb0KCgFRI\njtrx0IQEAd7aQYCQIEBIEND1hGzgBF9mrWBIQoIAb+0gQEgQkArpNfrXmIVEYbqGtPQZCTqH\n9K+j6N81FxKF6RhSXb1s59X7+7yKfvvJI4d0emzE2Zf8y+8Fms2jwRp9D3y6sIijARrFjrS4\nVceQdr+u549Xo7eq6V+1bOTBdsKB06P1zr57vvy2utk8mq3Rmbfwv9f3xMo/hkBI62rlotUU\nIRWqY0iLj7d279Vs+yqkiN/P2s9f65kn8bXv82g2j5vW6Py9F6KbtI4hrXe/rP23CD3FVmkr\nJCEVp+vh7+fdDJ6qpn+uvKFH2gNHhFQqVzaMy88z8OipePZ5efkJ22wezdboTBy/1/fEyj8G\nIY2LkAoVOGq3V9eJtfmZbXJmhTl85p/46dnJr99761O7ch7pulBI747a8dA6hLQ+esWfDbxW\nMKQur0izw45cIsQjS31GyhIShXHUDgI6h7Re7F6VFtm/SCEkCtM1pPnXiYM6WpKQKEzHkFbV\nfLMLaeVaOx5ax5DqavN5wMF5JB5a4KidkKBjSLOvV6Q3J2R5aJnPSOt6N0o2R0gUputRu8XX\nlQ3Rr2wQEqWJnEeqFi+h1fkiJArjygYIENJjaDg+6PpkLYdLPYwuIb0v66pebpKr8+XR90pa\nwxGr1ydrOYD3gXQI6b3e//qyFwd9eux9kieku+sQ0lM132w38+zFQZ8ee5/Enfm+hfaTVX+0\nmP20dQhpd3nQbpB59NsaPj30LskT0v11COnrF3eP399D75I8Id2fkB5Bwyf69cl+pjiaVEdC\negxCujshPYaGz/Prkx3W03r2E9YppD/vlgdcKxiSkCDAJUIQICQIEBIEdAppub+oYTWr6uzf\nGRMSpekQ0qbeH2H4HCNbRy8CFxKF6RDScnfR6va1mu0vXY2+JgmJwnS+aPWpWn/8c5O9dFVI\nFOb2kE5fwDjYWsGQur4irT/f03lF4rF1Gti33G5m1dvHzc3CZyQeWpeh5vv3c/vxsekB50Ki\nMF3OI73Nv08g1U/Zr0AREoVxZQMECGmSWh5DzR5yfcixSV1DWs0+PizNwn/UXEjdtDwdET17\n8aijZTuGtN79yvbfbxct6fH2Q5SQ+tcxpHn1sv/bSC/ZP0fxePshqeUZ8ugJ9buM8yxBx5A+\n/8jYMv3NDQ+3G6KENIBASIvd1XZCGg8hDaDzW7u39e7qIG/txsRnpP51P9hQVc+7X986tkpb\nIXUkpP51Pvxd76+ym2X/ZN/j7Yewlk/l6DP/ETNyQhYihAQBHb+yuPpn4LWCIQkJAry1g4CO\nIS3CX2j3RUgUJnBlQ3Ovz59fgrdYXrnEVUgUpmNIs6r50NjN7OAT1eULIYREYTqGtFnMG4+f\nWFb1y9v+1vu6vvxlKUKiMJ3f2jU/aldXbz+33y5/fZeQKEyPIR1Ncnl6IVGYHg9/e0ViunoM\n6eMz0vrz2+98RmJq+ryyYX4w9ezi0T4hUZheLxF6Xe7PI9WLZ+eRmBaXCI3e0f+kfv7j5P+6\nbrnk8fsxXR6LkMbu6PX+5z9Ovgu45erh78d0eSxbIY2ekMowVEjOIzVz9BG0+uPspG1n3+Wx\nLR4zXeMJ6db9OW1CKoS3duMmpEIIaeSOnqw//3HyKXzL8/r7MV0ey1ZIoyekMghp9I6eq4dN\nXZm05ey7PBYhQYKQIKDHkFocHxIShekxpJWQmKw+39q91U3/9ouQKEyvn5HeLg/n+0dIFKbf\ngw2rg9HmlwiJwjhqBwFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoTUi6qa3CZxREg9qD4NvRrckZB6IKTpE9L9VZWS\nJk9I9yekByCk+xPSAxBSD3Q0fULqgZCmT0i9kNHUCQkChAQBQoIAIUGAkCBASBDQf0irWVUt\n1penERKF6TGkz1Mp88+Tk8vLk964CBhI3yEtq+Vmu31fVqvwWsGQ+g6prja725tqdnHSGxcB\nA+k7pO9LZS5fMiMkCtN3SE/fIdUXJ71xETCQXkNaPK/W1cvHzc3y8tEGIVGYXkP6GU1QVfUm\nvFYwpD7PI729rVaLxf6Qw/JiR0KiNK5s+L1oI4e4gZCOF2wsKzcR0vGChcRNhgppnOeRfN8P\nNxpPSNWhxCJuMPTyKZa3dkfLFRK3EdLxgnXETYR0vGAhcZNeQ3p9Xuyfp4vl6+UJnUeiMD2G\ntJkdHE2Yp9cKhtRjSMuqfnnb33pf1y5aZVJ6DKmu3n5uvxlGwaT0/p0Np/7j76Q3LgIG4hUJ\nAvr9jLR+39/yGYmp6fPw9/zgqN3MwD6mpN/zSMv9eaR68Tze80hwC1c2QICQIEBIECAkCBAS\nBAgJAqYQUouRD7tJT09+8qctJm22bKaq/JBajMU7/6UQJ3/aYtLoalIgIZ2fiZBorPiQWnxf\nSXXo+kxaTBpdTUokpLMzERLNCensTIREc8WH5DMSYyCk8zMREo2VH5LzSIzAFEKCwQkJAoQE\nAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAwlZDaDvb5Hph0v0FC+zmfGix4\np+UxqGmE1Hb4aXWs5dLaLuH29aQYQhISAZMIqW0R1W+tV7DdEm5dT8ohJCERICQhETCJkHxG\nYmhCEhIB0wjJeSQGNpWQYFBCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQI\nEBIElBXSzxifn6FEv8fN/fzg9L3n5/rnxp8Z/Rm+dPqe05P9Xt7RYylfSSFV5/y5+8QA1bOD\nU3/u+H3jz4zOLu7gnuvLPT9HCiak3w0IiRsUFNKpZ+DBE7HhvS3meuPiLi/3/KSUTEg3aPi4\nk8s9PyklE9INGj7u5HLPT0rJCgrJZyTGS0i/GxASNygpJOeRGK2yQoKREhIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIGCSIZ0dpJRzboxgeDGUYoIhnRvHmlixU4u4\n+EMehJA6L+LiD3kQ0wvpKJz7fDPCyTn6AoaHJqSui7j4Qx6FkLou4uIPeRTTC8lnJAYgpM6L\nuPhDHsQEQ3Ieif5NMiTom5AgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKE\nBAFCggAhQYCQIGCkIUFh2j/LewjppIm+TNmsgkS3SkhRNqsgQhovm1UQIY2XzSqIkMbLZhVE\nSONlswoipPGyWQUR0njZrIIIabxsVkGENF42qyBCGi+bVRAhjZfNKsgkQoJJERIECAkChAQB\nQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIEDBISMu6qpebIZZ8J4dfvT6VjVt9\nj3s72KDyt+17q+J7bIiQ5vttmA2w5Dt5O9gtU9m4t+8/yXCwQeVv2/dW5ffYACG9VvXb9q2u\nXvtf9J28VYvvm1PZuI9N+HzKHWxQ+dv2s1X5PTZASMtq/fHPl+q5/0Xfyerftkxk41bV/Pt9\nz78NKn7b/m1Vfo8NENKiet8e/T+heKtq9X1zIhtXLbdfT7mDDSp+2/5tVX6PDRDS17bc8mfR\nRmpRrZ8+Pq/ubk5k495+b8nuX8Vv27+tyu8xIQUsPj+5zrdT2rgJhrQ9CCm9x4QUUFUv2+1m\nuXu7MJ2Nm3RI+T0mpJjN7hDqdDZu0iF9Su6xAUKqJ7A/Ttpt0XQ27msTDjZoCtt2vPLBrRrs\nqN17uQd/ztnti+ls3NFRu/d/R+3K3ra/IYW2aoCQnvcH7tfVsv9F30ld7S4w2e+L6Wzc11Pu\nYIOmsG0/r7PpPebKhoDlbi9s9mf2prNxU7yy4Wer8ntsiGvtZj+HHidiU++3aP//tMls3Peb\noIMNmsC2fW1Vfo8NEdJmf7ntAAu+m90WzVY/Nyexcd8hHWzQBLbtcKuie8x4JAgQEgQICQKE\nBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGA\nkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBBSCU7/7fquf9GeICGVQEijJ6QSCGn0\nhFQCIY2ekEqwT6aq3hdV/bz/wbKull8hrWZVvfvz3PPq9eOfr9XTcKv5yIRUgq+Q6urDrqT5\n7sZi/9PF7mY1327fq/rjP+t6M+yqPiohleArpPlmu6pm2+1LVb9t3+rdT9e7H27m1frjpemj\nsefqZeh1fVBCKsFXSK9fNxf7W+vPm7tXoE212O5ep1b7fzMAIZXgK6Tvm19HGT5vftnu3tx9\nfIwacC0fmpBK0Cyk7bJaDreOD05IJbgU0r+pvCINSEgl+BXSYndsYfv67+anxcdnpPlAa/jw\nhFSCXyGt/x212x/A2+4PMrx8vLF7rlYDr+qjElIJfoX0efLoaX9zf0qpqt+3m3p/Hsmbu2EI\nqQS/Q9o+H13ZUD191PP0dWWDN3eDEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBDwPzDrSl4EHCsnAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/svg+xml": {
       "isolated": true
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Let's get a scatter plot...\n",
    "plot(iris$Petal.Width,pch=16)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "nbpresent": {
     "id": "0834c101-4888-4cd8-a91d-12eef33e8051"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "In plot.window(xlim, ylim, \"\", ...): \"x.lab\" is not a graphical parameterWarning message:\n",
      "In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...): \"x.lab\" is not a graphical parameterWarning message:\n",
      "In axis(1, ...): \"x.lab\" is not a graphical parameterWarning message:\n",
      "In axis(2, ...): \"x.lab\" is not a graphical parameter"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEX9/v0AAAAA/wBMTUxn\naGd7e3uLjIuZmpmmpqaxsrG7vLvFxsXOz87X2Nff4N/n6Ofu7+79/v12hW1/AAAAEnRSTlP/\n/////////////////////wDiv78SAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2d\ni9qiOhIAT5aLeEN8/5ddCKKAyPyBBrtj1bd7BpUmnUzXAAHlvzsArOa/bycAEAOIBCAAIgEI\ngEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACI\nBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgA\nAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiBSpDj37Qx+C0Sawj3L8LHkJuvysEsy\nx8S5V0vjTKYza2LSU7eCJ8kvU1uf6EN/k6lzpV+o6ncrv1TWm35r9/nyMJNVzCDSFH8S6Zrs\nUizHxoJAkbLWneKxQkfxtuJkH/qbrFs/+oVz/e6l99a0SN32EAka/iTSTsXy3CdMtzqVxakz\np7wPRHLX8ZqTfei/eXUu8wuHp86Z3860SN27iAQNbyLNr7RTLn+mdu/s/3foxV8GR4hzGx+8\nmTyO6LyIzUJ9jJd8jEEk6PNpj1Qdm4Om/Hx//kPvV7r4f667U5Bb/So79SJvqT+oOuf1clrc\nuu2dUpfW/7SfEpeN9hSD7X38p7/d7Htm7Xv+f0k/vuxWLRKX+DR6fRgn96ROpdlovWdK2z3a\nZejn7ZA0Z2P+5Wt7zX+vdUaHW+DImwWRpvgg0i15lEo2KMLHGYnLfcT1scorMvUB3Vq+Gh8r\n1DYU78dc/e31fR0llHZ5jDLze5H7uAdvnbj2Nz5O7tXew5s6zUt7knVoz5UeKw16OxCp7Vjy\nKyYh0hQfRGr/da7qqjn1iibvirA1KXm+7CJdE1aft2SVL8ieH3Wh9R1sGWxvRiS/2YnM/KvD\nu0hlu4fq8kt6G39L7tVe1b6qdzv1EWN6fx7rPVYa9HYg0oN9Zja/DyJN4fo83mj/2/wDW/n5\n366U6n+o3amqj62c/6e6PjNJmj+SV2RTo815y22wpfrdZlIgLf0fr7ZH2/t8aJdVg+31Mru1\nGl76Ad05UutM9Thie3z4llyvQT+3cGv2RkWzVvnY67UrPXp7SQbj5P9Mrt7MifOpKEGkKT6I\n1JTL81SoK5pDuxfwVXPw+xO/xvkVeRltuv3vdfDHa4XR9j6L1PdkmFkzC93QVfyT0uf3EPBt\n5zMtkp/tPjbNXZvMjo/0XLc39q1e3kVq3q9G248YRJrig0jHx9HK4J96112ovPk3kq50xh/X\nK5yLzA1qdVR+94ntfRap6r0eZnZvPW7PaXo9uQxeDmYiJpLrPnD+qK5prlEzm955vYs0+DN+\nEGmK19//sECKrgZvbx91S59K635Oe2bOizRY+ijS4PUgs/b98nkE2u6eitc09jiPyeQ6Er+p\nZu+W+aVkKjlE+nYCKvkk0r06t/Nb2eCj5x4kmdwj+ZfNLiI9nMqgPVIy/vCjSP3M/HSAn7ib\n1uJ9a5PJdRR+grC5v6E+v8q7+yMQaQgiTfFRpAZ/lef1Xv7PcyT/afp4/58i5X89Rxqn+szs\n0JT9J5HywTmbe042vCf33KoXtDmXK59L43OkcW8RCRo+iJQ+T9S7XUX1cdbOTZfWv/dIf561\n678eZNZsof7/bbDj7Di382nn14fVh+T6TT7eSdyo3dP7HOW9NzmOSD/OB5Hq6sxu/sy+Obxp\niqf583kxs71m8n4dyW8o8yt388QzIo239yeRhpk9r0Sd3+Nf+V1ffZhK7hXn75nwS4fnUvfx\nqLfdmCASNHwQ6XlK7+eVD91CV/nttcfLY5VRxT9uAWiuwF7nRRpt708iDTPrtpBNxHf5tac6\njz5MJfeKOz+UbGPPg3YfkfnjZTcmiAQNn0Rqz0Ky9hym+Yf/4c4h6U09l829dpe3im/eTg7l\nrbthYWLrHYPt/U2kYWbNfXy97yMNO1cV6fNqbdeHieRecc08fDsZ+PpS0vPj4Z2F3fYQCYSY\nvkl6P36mgpWASMI8Dn7KbHgD3Rfy+GbrvwciCfOaKnCTX+2GOEEkYZ5faJj4YjfECyJJUx2b\nKazkwP7op0AkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAk\nAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQ\nAJEABEAkAAEQCUCAlSKdeo8jBfhdlorUPlkx45FaAA2rRCpcUd3vt8Kd/rk+QNSsEilpnxVf\nuVQuIQCLrBKpe3I2T9CGX2eVSIdOpEQqHQCbLBcpP54u7lwvVgWzDfDrLBepxS8mlWRKAPZY\nfB2pLE+nPPdTDgUewa/DnQ0AAmwkkuuzTRMAilgr0ilx6T8uxyISxM/yc6TcJaf70e9ystk1\nEQniZ6lIZXuTnTtU91s+f4sQIkH8LBXp0Fw7Ktorsf+4RQiRIH7W3f3t8t6Lj6subALADutE\nOrfHdPO3CCESxM/yQ7tDdxm2OszfIoRIED9LRaqS5/Gc+8c9q4gE8bP8OlLR6ZP845ZVRIL4\n2eEWIUSC+EEkAAEQCUAARAIQAJEABEAkAAEQCUCAb4rkwtk+W4AlfFWk/4WCSKAURAIQAJEA\nBEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAA\nRAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAk\nAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQ\nAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAGWi3Q95q4hL67zKyISxM9S\nkarUvchmV0UkiJ+lIhUuOZd+6XZJXDG3KiJB/CwVKXHlc7l0ydyqiATxs1Qk5z69eF/14weI\nBLHAHglAgBXnSJebX+IcCWD59HfWm7VLq7k1EQniZ8V1pMJfR0ryI9eR4OfhzgYAATYSyfX5\nuBIiQSysFemUuPQ0vwoiQfwsFqnMXXK6H7lFCOC+XKTSG1S4Q3W/5W52n4RIED9LRTo0146K\n9kps5dK5VREJ4mfdLUIu7734uOrHDxAJYmGdSOf2mI5bhODXWX5od+huZ6gO3CIEv87iL/Yl\nz+M5N79DQiT4AZZfRyo6fZLZ/REiwS/ALUIAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEI\ngEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACI\nBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgA\nAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAA\nIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAqwU\n6ZQ6l1/m10EkiJ+lIjlf05nzFPOrfvwAkSAWVolUuKK632+FO82u+vEDRIJYWCVS4qpmuXLp\n7KofP0AkiIVVIjnXe/F51Y8fIBLEwiqRDp1IyeyqHz9AJIiF5SLlx9PFnevFqpifbUAkiJ/l\nIrX4xaSaXfXjB4gEsbD4OlJZnk557qccilmPEAl+AO5sABBgI5Fcn48rIRLEwmKRqoNz2ePm\nIKa/4ddZKlKV+J1N7l8gEvw6S0XytwVVpyRrXiAS/DpLRUramr4l6Q2RANbd/V3vlLIMkQCW\nipS67uJRmiES/DxLRTq5w2Pp5jJEgl9n8fR38bTnMnOpqAGRIH6WX5At827pdkAk+HG4RQhA\nAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARA\nJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQC\nEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAAB\nEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAETSjwvm\n2xn/IIikn+Bx+s1h+i6IpB9EMgAi6QeRDIBI+kEkAyCSfhDJAIikH0QywHKRrsfcT7XmxXV+\nRURaCSIZYKlIVdq7bJHNropIK0EkAywVqXDJufRLt0viirlVEWkliGSApSIlrnwuly6ZWxWR\nVoJIBlgq0uA2lPl7UhBpJYhkAPZI+kEkA6w4R7rc/BLnSFuDSAZYPP2d9Wbt0mpuTURaCSIZ\nYMV1pMJfR0ryI9eRtgWRDMCdDfpBJANsJNKfvmaGSH8DkQywWKTq4Fx2aZeZ/t4URDLA4luE\nkvZGO/8CkTYFkQzQFyk93v4cV7hTbdMp8bfZIdKmIJIB+iI1E9l/dSlp/7JuSXpDpI1BJAP0\nRarOhz+71LlTZRkibQwiGWB8jnQ9pn9yKXXdRdg0Q6RtQSQDTEw2lM08wukfcSd3eCzdXIZI\nm4JIBngX6ZL94ct6zWxD99d1+ccvEiLSShDJACORqmO9O0ovVW1T/o/I8rnC7YBIW4JIBhiI\ndG0mG4r2+xFyv3uLSCtBJAMMriPVO6NTN4cw/x2jEBBpJYhkgMF1pPyyRROItBJEMsDgOtI2\nTSDSShDJAINzpKpojueSQtYoRFoJIhmgL9It8TMMziV/v+fuDyDSShDJAH2RMndo9kVV8c+p\n7yAQaSWIZIDhTavjBREQaSWIZIC+SMnj/rkKkVSBSAboi1S4rPkdk2s2//NaoSDSShDJAINZ\nu+4ntv51n10YiLQSRDLA8F67c/MLW9m/7vwOBJFWgkgG4Oe49INIBkAk/SCSARBJP4hkgIFI\nx/Rfv+m4BERaCSIZoC/S8d8/jroERFoJIhlgeEFWeL6uBZFWgkgGmLxFSBZEWgkiGaAvUu42\n+UYSIq0EkQww/BpF9o9HHS0CkVaCSAYY/WQxkw0KQSQDIJJ+EMkAXJDVDyIZAJH0g0gGGIp0\nyZujulz0JxsQaS2IZID37yM1vw3Jj59oApEM0Bfp5DL/LfPXkyZEQKSVIJIBxr/Z8PhBLskm\nEGkliGSA8S1CiKQPRDLA8Ef02z1S6VLJJhBpJYhkgIlzpIvwXeCItBJEMsBg1i7nV4Q0gkgG\neL+O5PKzbBOItBJEMgB3NugHkQyASPpBJAMgkn4QyQB8jUI/iGQARNIPIhlg4tDumok+ZwyR\n1oJIBpg6R6q4aVUViGSAyckGDu1UgUgGmBLp5BLJJhBpJYhkgOnJhqNkE4i0EkQywJRIqewv\nFyPSShDJAFyQ1Q8iGQCR9INIBvhwQVbyoiwirQSRDIBI+kEkAwyf2Jdc6v9eE77YpwpEMsDw\niX2l/7N0ovcIIdJKEMkAkw8a484GVSCSAYa/a9ftkfgVIU0gkgH6IhXOnyPxK0LKQCQDvP/2\nd00h2gQirQSRDDC8IHv2vyJ0kW0CkVaCSAbgzgb9IJIBEEk/4SIF8+0u2ocHjeknXCTGdXd4\n0Jh+EMkAPGhMP4hkAB40ph9EMgAPGtMPIhmAB43pB5EMsPJBY6f03xdwEWkliGSApQ8aa4/+\nsr/cUoRIK0EkAyx90JgXqXBFdb/fivk9GCKtBJEMsPTOBi9SM813b37iePacCpFWgkgG6IuU\nB9z1PZjdm5/lQ6SVIJIBJr8h+wf8uodOpNmfOEaklSCSAcbT33+lPpU6ni6uOZ2qivnZBkRa\nCSIZoC9SlWfXv8b1bht2LpkVEJFWgkgGWPzEvrI8nfLcTzkU8zsyRFoJIhmAR1/qB5EMsNEX\n+/70rTFE+huIZAC+IasfRDJAJ9KG3zZGpJUgkgGGIm2iEyKtBJEMsFSkgB/PQKSVIJIBlop0\nQqTdQCQDLD60K//88BdEWgkiGWD5OVL51182RqSVIJIBVkw2nB4Pr/gXiLQSRDLAS6TNfnkT\nkVaCSAZAJP0gkgG4s0E/iGQARNIPIhkAkfSDSAZAJP0gkgEQST+IZABE0g8iGcCYSMFs373t\n2UGk3xxYSYyJFBywffe2ZweRQgPiGFhJEEk/iGQARNIPIhkAkfSDSAZAJP0gkgEQST+IZABE\n0g8iGQCR9INIBkAk/SCSARBJP4hkAETSDyIZAJH0g0gGQCT9IJIBEEk/iGQARNIPIhkAkfSD\nSAZAJP0gkgEQST+IZABE0g8iGQCR9INIBkAk/SCSARBJP4hkAETSDyIZAJH0g0gGQCT9IJIB\nEEk/iGQARNIPIhkAkfSDSAZAJP0gkgEQST+IZABE0g8iGQCR9INIBkAk/SCSARBJP4hkAETS\nDyIZAJH0g0gGQCT9IJIBEEk/iGQARNIPIhkAkfSDSAZAJP0gkgEQST+IZABE0g8iGQCR9INI\nBkAk/SCSARBJP4hkAETSDyIZAJH0g0gGQCT9IJIBEEk/iGQARNKPSpGCCe715i2Igkj6USlS\ncMD2vd5i7P8MIukHkbZpQRRE0g8ibdOCKIikH0TapgVREEk/iLRNC6Igkn4QaZsWRFku0vWY\n+0nHvLjOr4hIK0GkbVoQZalIVdqbwM9mV0WklSDSNi2IslSkwiXn0i/dLokr5lZFpJUg0jYt\niLJUpMSVz+XSJXOrItJKEGmbFkRZKtLghoz5uzMQaSWItE0LorBH0g8ibdOCKCvOkS43v8Q5\n0tYg0jYtiLJ4+jvrzdql1dyaiLQSRNqmBVFWXEcq/HWkJD9yHWlbEGmbFkThzgb9INI2LYiy\nkUh/+sKVxr8+jSDSNi2Iwh5JP4i0TQuiIJJ+EGmbFkRBJP0g0jYtiLL8zoY//+4EIq0EkbZp\nQZSlIp0QaTcQaZsWRFl8aFcm81+eeIFIK0GkbVoQZfk5Ujl/Y9ALRFoJIm3TgigrJhtOvftW\n50CklSDSNi2IwqydfhBpmxZEQST9INI2LYiCSPpBpG1aEAWR9INI27QgCiLpB5G2aUEURNIP\nIm3TgiiIpB9E2qYFURBJP3GIFExwC1/9S0Ik/cQh0vYBX/1LQiT9KCxaRBqDSPpRWLSINAaR\n9KOwaBFpDCLpR2HRItIYRNKPwqJFpDGIpB+FRYtIYxBJPwqLFpHGIJJ+FBYtIo1BJP0oLFpE\nGoNI+lFYtIg0BpH0o7BoEWkMIulHYdEi0hhE0o/CokWkMYikH4VFi0hjEEk/CosWkcYg0u7s\n8BW3zQMQaQwi7Y7GGgwN0JgTIkU7uNNorMHQAI05IVK0gzuNxhoMDdCYEyJFO7jTaKzB0ACN\nOSFStIM7jcYaDA3QmBMiRTu402iswdAAjTkhUrSDO43GGgwN0JgTIkU7uNNorMHQAI05IVK0\ngzuNxhoMDdCYEyJFO7jTaKzB0ACNOSFStIM7jcYaDA3QmBMiRTu402iswdAAjTkhUrSDO43G\nGgwN0JgTIkU7uNNorMHQAI05IVK0gzuNxhoMDdCYEyJFO7jTaKzB0ACNOSGS6cEN/5qexhoM\nDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4\najA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6\ncOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkh\nkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM0\n5oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoM\nDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4\najA0QGNOpkU6pc7ll/l1EGltJ/QFaMzJpkjOp521zykp5lf9+EHoUGkc3DhqMDRAY06GRSpc\nUd3vt8KdZlf9+EHoUGkc3DhqMDRAY06GRUpc1SxXLp1d9eMHoUOlcXDjqMHQAI05GRbJud6L\n0cc9Pm4jdKg0Dm4cNRgaoDEnwyIdOpGS2VU/fhA6VBoHN44aDA3QmJNVkfLj6eLO9WJVzM82\nINLaTugL0JiTVZGeh23OJdXsqh8/CB0qjYMbRw2GBmjMyaZI97I8nfLcTzkUsx4h0upO6AvQ\nmJNRkf4OIq3thL4AjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOo\nwdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunB\njaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRI\npgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCY\nEyKZHtw4ajA0QGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0\nQGNOiGR6cOOowdAAjTkhkunBjaMGQwM05oRIpgc3jhoMDdCYEyKZHtw4ajA0QGNOiGR6cOOo\nwdAAjTkhkunBjaMGQwM05uSCkawDRFrbux06oS9AY07fLQ5EWtu7HTqhL0BjTohkZay+1gl9\nARpzQiQrY/W1TugL0JgTIlkZq691Ql+AxpwQycpYfa0T+gI05oRIVsbqa53QF6AxJ0SyMlZf\n64S+AI05IZKVsfpaJ/QFaMwJkayM1dc6oS9AY06IZGWsvtYJfQEac0IkK2P1tU7oC9CYEyJZ\nGauvdUJfgMacEMnKWH2tE/oCNOaESFbG6mud0BegMSdE2nKsNv+Oym/WoMacEGnLsQoOCO5d\naAsqSyo0QGNOiLTlWAUHBPcutAWVJRUaoDEnRNpyrIIDgnsX2oLKkgoN0JgTIm05VsEBwb0L\nbUFlSYUGaMwJkbYcq+CA4N6FtqCypEIDNOaESFuOVXBAcO9CW1BZUqEBGnNCpC3HKjgguHeh\nLagsqdAAjTkh0pZjFRwQ3LvQFlSWVGiAxpwQacuxCg4I7l1oCypLKjRAY06ItOVYBQcE9y60\nBZUlFRqgMSdE2nKsggOCexfagsqSCg3QmBMibTlWwQHBvQttQWVJhQZozAmRthyr4IDg3oW2\noLKkQgM05oRIW45VcEBw70JbUFlSoQEac0KkLccqOCC4d6EtqCyp0ACNOSHSlmMVHBDcu9AW\nVJZUaIDGnBBpy7EKDgjuXWgLKksqNEBjToi05VgFBwT3LrQFlSUVGqAxJ0TacqyCA4J7F9qC\nypIKDdCYEyJtOVbBAcG9C21BZUmFBmjMCZG2HKvggODehbagsqRCAzTmhEhbjlVwQHDvQltQ\nWVKhARpzQqQtxyo4ILh3oS2oLKnQAI05IdKWYxUcENy70BZUllRogMacEGnLsQoOCO5daAsq\nSyo0QGNOiLTlWAUHBPcutAWVJRUaoDEnRNpyrIIDgnsX2oLKkgoN0JgTIm05VsEBwb0LbUFl\nSYUGaMwJkbYcq+CA4N6FtqCypEIDNOZkVaTrMfePb8iL6/yKiLQ2J30BGnOyKVKV9h6Fks2u\nikhrc9IXoDEnmyIVLjmXful2SVwxtyoirc1JX4DGnGyKlLjyuVy6ZG5VRFqbk74AjTnZFGnw\naLv359z96SF44Y/TAxBkYe1PssMeCSB+VpwjXW5+6Z/nSADxs3j6O+vtItNKMiUAe6y4jlT4\n60hJfvzHdSSA+NnhzgaA+EEkAAEQCUAARAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAEQCUAA\nRAIQAJEABEAkAAEQCUAARAIQAJEABEAkAAG+KdKXfoQJfo09ivmrIv1m2zQdY9OIRNM0LQAi\n0TRNC4BINE3TAiASTdO0AIhE0zQtACLRNE0LgEg0TdMCIBJN07QAiETTNC0AItE0TQuASDRN\n0wJw9zeAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgE\nIAAiAQiASAAC7C5SkbikqObe2K/tHX9j/X4/DdvZsdujpnfs9Sn92l/2uOmte723SJnvTjrz\nxn5tl3uKVA7b2bHbo6Z37HXhG0pe5bxfr8dNb97rnUW6uqS8l4m7fnxjx7ZLl2/fatdWMvhL\n3LHb46b363XpDlWzOzx0b+zX67emN+/1ziIV7lL/9+yOH9/Yse3THq12TWWDat6x2+Om9+t1\n3jb7an2/Xr81vXmvdxYpd7f74J+Htzd2bPvkTtu32uKK+6Cad+z2uOkde/1I4Nn6jr0eN715\nr3cWyY3/pXh7Y8e2c3c51Gek27dcF8+oizt2e9z0jr32VC7rFnfs9bjpzXv92yJ5so8RWzT/\nIZf9mt63182+4DLKYzeRek1v3utfFsm5c/2vVrHToY4Wkfbt9f2WvA7kdhZp2PTGvf5lkVqq\nnSahtYjUslevq6S3E9i314OmH29t1+udRUrGQ/n2xo5tP/hGNe/Y7Q/N7NR01q/cfXudTUiz\nXdNfmbW7jWftbvvN2r039Z0Tld26PW565j1xbml2673cs9ejph9EI9LRn/5dXPHxjR3bTlxz\n4fsr1bxjt8dN79jry+jkfsdej5vevNe/fGdD0fyNVsVramdTvnZnw6jp/Xp9G0+S7dfrt6Y3\n7/Xe99qlr1nI9q833W8ydtx2lfg3drqk0lXz7t0eNb1frw/udYPbzr1+a3rzXu8tUuXv//WL\n7dj23vhK2+le1/mHIu3Y7ammd+m1exNpt15PN71lr/k+EntCr1EAAAPcSURBVIAAiAQgACIB\nCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAA\niAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBI\nAAIgkkL2eTo0SIJI36H3WNfRk7Zvh+apdlX7SUNyGD+ee/wg1OcW2kcO36s66rGQvLV0mWgT\nVoNI3+GjSOXDnvaTx4uhSenYgucW8vY5x5c6xvtydfm4pTYYkaRBJGVkrqhclfnHBj+efpqN\nniH8ZsHzjZPzT0k9uKINebzur+cQaRMQSRm+2P0x2bPc2xfDVabfuLpD80d9hNeGHNo91GDb\niLQJiPQd2pqu0u7Y65I5lzWHY81pjuut9PrzlLrkdH8c8DUhuXs8IvypReXS+r+3eqO5aw4H\n02Zj/sMiqfdR9eIjuP5/4ZLjXr39ARDpO7TVXKvgy7s+BvPUnhQuvYxEancvuV8je4p0bENe\nh4ANSbPUHNC1B3VNoP8wa1bN+yLlj/ZABkT6Dm01Z9VjMXHl/X72+5NDXeCH63Olegfjz5Eu\nzcr16dLldXR2bkLcvS9S3myn2Rs1e6V72fyn+fDskvJeJv1Du3prJ98eiIBI36Gt6etr8TWl\nXRbN3qP95DFrVzV2NNJVnRr97fTeODY7Gb8DS/x+7th+2M7mXfoiXe/DDcE6EOk7vGra/1G7\nk5fl88NL6p5nQ4/rSJ1Ur7j77XLMRiJd3OEx49DMMxy6/Vevpf5kAyLJgUjfYVTe92PSu17k\nHrMGw13PWKSse91b71afRB393u1S742yZsYBkXYBkb7DWKS68ou0O2fpPns7husvHlx6utzG\n69WL6eMgMH1tBJE2B5G+w7tI927aoRpfR/Lkr7OongVvItWrPXRM66X83p0jNcFXRNoORPoO\nI5HSdgoubXY0+ejOhhY/8XY/tZMN7UnT9V6Oz5Hqk63MtZeHju61kUt/1u52RyR5EOk7jEQ6\nt+c71/qQLOnfa9eLyJ633aX+48I9Y3o2nd1jLrDZ/zR2tu/7q0aHVtnnxSVEEgSRvsP40M7f\n2eANuBW9u7/7IafaAT+Bd029Z4cm4vKcD29XLt0zqF4qn+8fH3c2PIIRSRpEUgj1bQ9EUggi\n2QORAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAAB\nEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACR\nAAT4P00ahrCU/SQAAAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title \"Histogram of iris$Petal.Width\""
      ]
     },
     "metadata": {
      "image/svg+xml": {
       "isolated": true
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "hist(iris$Petal.Width,x.lab=\"petal width\", col=\"green\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "nbpresent": {
     "id": "a5bfc791-ea30-4953-b275-c41b956b0de3"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAP1BMVEX9/v0AAAAAAP9MTUxn\naGd7e3uLjIuZmpmgUi2mpqaxsrG7vLvFxsXOz87X2Nff4N/n6Ofu7+79/v3/AAD/gqtpAUWg\nAAAAFXRSTlP///////////////////////8A//+4Q6aKAAAACXBIWXMAABJ0AAASdAHeZh94\nAAAadUlEQVR4nO3dbUOi0KKG4c32pVONU3rO//+tx7ccaqZAeMAFXNeHximVhcs7QdH+cwB6\n+8+jBwBzICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAk\nCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKE\nBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGA\nkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQI\nEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQE\nAUKCACFBgJAgQEgQMEJIFUzM/ffyMUIafhGQJCQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgY\nM6T3p2r1cji8rqvV88/nFBITM2JI+9XpkKTXl/ORSZv0qOCRRgzpuTo+Dj2vqqf9YX8+HR0V\nPNKIIa3Oy6qq/fmf1U9nFRITM2JIVfXn6+Hvw857HpMOj/SAR6TT171HJGblAftIz/vr6eio\n4JE8awcBXkeCAEc2QICQIEBIEDDPkMb5OCW4mWdI418xCyckCBASBAgJAhYWEgxDSBAgJAhY\nWEgKZRhCggAhQYCQIEBIELCwkGAYQoIAIUHAwkJSKMMQEgQICQKEBAFCgoCFhQTDEBIECAkC\nFhaSQhmGkCBASBAgJAgQEgQsLCQYhpAgQEgQsLCQFMowhAQBQoIAIUGAkCBgYSHBMIQEAUKC\ngIWFpFCGISQIEBIECAkChAQBCwsJhiEkCBASBCwsJIUyDCFBgJAgQEgQICQIWFhIMAwhQYCQ\nIGBhISmUYQgJAoQEAUKCACFBwMJCgmEICQKEBAELC0mhDENIECAkCBASBAgJAhYWEgxDSBAg\nJAhYWEgKZRhCmqOqg0ePeeKEtChLX//hCGlRlr7+wxHSoix9/YezsJCWzg07FCFBgJAgYGEh\nKZRhCGlRlr7+wxHSoix9/YcjpEVZ+voPR0iLsvT1H87CQlo6N+xQhAQBQoKAhYWkUIYhpEVZ\n+voPR0iLsvT1H46QFmXp6z8cIS3K0td/OAsLaencsEMREgQICQIWFpJCGYaQFmXp6z8cIS3K\n0td/OEJalKWv/3CEtChLX//hLCykpXPDDkVIECAkCFhYSAplGEJalKWv/3CEtChLX//hCGlR\nlr7+wxHSoix9/YezsJCWzg07lCmH1OVPDvszxQxi0iH9dxRCopmQhESAkBYV0pzWpSxCEhIB\nQhISAUISEgFCEhIBQlpUSAxFSEIiQEhCIkBIiwppTutSFiEJiQAhCYkAIQmJACEJiQAhLSok\nhiIkIREgJCERIKRFhTSndSmLkIREgJCERICQhESAkIREgJAWFRJDGTOk/fPq+PVlXVWbXz+f\nU0hMzIghva+q6rBfXT69dBMYlZAoxoghPVXb/fHL0/uxqafquf+ohHS3Oa1LWUYMqar21y/H\nrbxq9eNZ212hkO41p3Upy6ghHb+sqtp/vvz43s+tF9Ld5rQuZRl10+7tcHg5fTk9Iv24kySk\ngcxpXcoyYkhv1er57bBdHUvaratd/1EJ6W5zWpeyjPn09271Z9vt5cdzComJGfcF2V9P61NF\n25f3n88nJCbGkQ1CIkBIiwppTutSFiEJiQAhCYkAIQmJACEJiQAhLSokhiIkIREgJCERMOmQ\nRjLwyo5pTutSFiEJiQAhCYmASYdkH+lec1qXsghJSAQIaVEhMRQhCYkAIQmJACEtKqQ5rUtZ\nhCQkAoQkJAKEJCQChCQkAoS0qJAYipCERICQhESAkBYV0pzWpSxCEhIBQhISAUISEgFCEhIB\nQlpUSAxFSEIiQEhCIkBIiwppTutSFiEJiQAhCYkAIQmJACEJiQAhLSokhiIkIREgJCERIKRF\nhTSndSmLkIREgJCERICQhESAkIREgJAWFRJDEZKQCBCSkAgQ0qJCmtO6lEVIQiJASEIiQEhC\nIkBIQiJASIsKiaEISUgECElIBAhpUSHNaV3KIiQhESAkIREgJCERICQhETDpkEYy8Mp2tvT1\nL8qUQyrpih+h+p9RzOo2G4yQpktIBVlYSLMipIIIabqEVBAhTZeQCrKwkGZ1pxBSQYQ0XUIq\niJCmS0gFEdJ0CakgQpouIRVkYSHNipAKIqTpElJBhDRdQirIwkKa1Z1CSAUR0nQJqSBCmi4h\nFURI0yWkgghpuoRUkIWFNCtCKoiQpktIBRHSdAmpIAsLaVZ3CiEVREjTJaSCCGm6hFQQIU2X\nkAoipOkSUkH6hvS6Phze19X6d2pAZ+auDSEVpGdIu9MnQ69OHxAdLcnctSGkgvQMaVP9OrxV\n68OvahMb0kFI7QipID1DOj0gvVXPlxM59pHaEFJBAiFtq52QHkFIBem9afe2q1aHyWzazepO\nIaSC9H+yoapeTg9Iu9iQDkJqR0gF6f309+q0h3RY/wqN50JIbQipIAt7QXZWhFSQniFtn2Mj\nqTN3bQipIIFn7QZg7toQUkF6hrSu9rGh1NhHakNIBekZ0n67yR5ldyGkNoRUkN6bdjexIR2E\n1I6QCiKk6RJSQRb29Pes7hRCKsjCQpoVIRWkd0i77fnA1ffQeC7MXRtCKkjfkDaX3aNqFS3J\n3LUhpIL0DOm12uxPIb1WT7EhHewjtSOkgvQMaVXtL0c3eNau1eKjN5OQChI4REhIbRcevqGE\nVJDAIUKXt5uvY0M6zDak8BCEVJDMPtJuVb3GhnSYaUjVl3/7X6GQytH3Wbvt9biG6DvNH70r\nMwwhzVnkdaRqm32DrJDaXaGQyuHIhvHYR5qxhYU0r2ftRhIb8Jyl3iG7WiVGc7va5JWNcsUt\nF599HUlI5QiF9O51pPEJqSA9Qtp9urW9jjQ6+0gF6fOItK53VNRfo1jG710hFcSnCE2XkAqy\nsGftZkVIBfHGvukSUkG8sW9M2V0xIRVkYW/seyhvo5ixhb2x76EcIjRjC3tj3yM5aHXOFvbG\nvkcS0pwt7I19jySkOfPGvvHYR5oxb+wbT/pYJCEVxJEN4xHSjAlpPDbtZkxIo/Fkw5z1Del5\nNcTbEGY5d0Kas54hPQ/zfp5Zzp2Q5qz3kQ3R149uVzvElT6cfaQZe8gb+xovNc+5c9DqjPXe\ntNt3WegyQ/I2ihnr/X6kTes3It3xGQnmrg0hFaRvSLv2Tzb8XgkpSkgF6RnSyz3P2u231eXx\n659nnvhH+nxy3+cXdV1lIRWk9xv77nrW7ldVnY7KW+w+UnbFhFSQkZ+1e99U272QQlcmpHL0\n3rS791m7l2q1E1LmyoRUjr5PNrxs7v2I1bd18w7BbOdOSHPVe9Ouw87y03JDihJSQR4RUjNz\n14aQCuJtFNMlpIIIaVT2keaqR0iXz7SzaXcPIc2VkEYlpLmyaTcqIc2VkEYlpLlKHSI0kb9q\nPitCKkgopKn8VfNZEVJBeoQ0xb9qPitCKkifR6Ry/6p5sewjzdVDPvyk0WznTkhz5Vm7UQlp\nroQ0KiHNVe/3I60d2XAHIc3VmB9+0p65a0NIBRn3w0/aMndtCKkgnrWbLiEVpGdI204fWdxo\ntnNnH2mueob0vrr7w0/amO3cCWmufGbDqIQ0V0IalZDmyguyoxLSXAlpuoRUkN4h7banrbpt\n67+S1Iq5a0NIBekb0uaye1StoiWZuzaEVJCeIb1Wm/0ppNfqKTakw4xDso80V70PEdrH/8bw\nQUgtr0xI5QgcIiSk9oQ0Vz1DWl8fkd58ZkMrQpqrzD7SLnwU+GznTkhz1fdZu+31uIZNakBn\n5q4NIRUk8jpStf0VGs6VuWtDSAVxZMN0CakgQhqVfaS56hXS+9P5KYb9Ov1+89nOnZDmqk9I\n76tqe/p3V4WPEBJSuysTUjn6fWTx0+WN5r832ZeRhNTuyoRUjl4fov9y+962ij5vN9u5E9Jc\n9QjpqfbBJ+/ZF5LMXRtCKkiPkD4dXudYu/EJqSA9QloJ6bGEVJBem3a72/d2l+fvUmY7d/aR\n5qpHSG9/nvR+X3myoRUhzVWfp7+fq9XL2/Hft5eVg1bbEdJc9Tqy4c/fooi+0VxILa9MSOXo\nd6zd+/Ppw0+2L9njGqYSUjWSb5cvpHI4aLW76n9HIaQpEFJ3QuJGSN0JiRshdSckboTUnZC4\nEVJ3QuJGSN0JiRshdSckboTUnZC4EVJ3QuJGSN0JiRshdSckboTUnZC4EVJ3QuJGSN0JiRsh\ndSckboTUnZC4EVJ3QuJGSN0JiRshdSckboTUnQ8/4UZI3QnpsR59+38ezP3jF9LVoydy8SH9\ndxRCGpp9pMcSUqNi5+4TIT2WkBoVO3efCOmxhNSo2Ln7REiPJaRGxc7dJ0J6LCE1KnbuPhHS\nYwmpUbFz94mQHktIjYqdu0+E9FhCalTs3H0ipMcSUqNi5+4TIT2WkBoVO3efCOmxhNSo2Ln7\nREiPJaRGxc7dJ0J6LCE1KnbuPnH092MJqVGxc9dXdMWEJKQGxc5dX0IKElKjYueuLyEFCalR\nsXPXl5CChNSo2LkripCE1KDYuSuKkITUoNi5K4qQhNSg2Lnryz5SkJAaFTt3fQkpSEiNip27\nvoQUJKRGxc5dX0IKElKjYueuLyEFCalRsXNXFCEJqUGxc1cUIQmpQbFzVxQhCalBsXPXl32k\nICE1Knbu+hJSkJAaFTt3fQkpSEiNip27voQUJKRGxc5dX0IKElKjYueuKEISUoNi564o5YaU\n/KykH5YipCZCaqPckL4fcvC6hNRstiEtfR9JSDVC6k5IySsTUhMhtboyIQnpZ0JqdWXTCylK\nSI2Knbu+hBQkpEbFzl1RhCSkBsXOXVEmGJJ9pBohFUJIQmow25CWvo8kpBohdSek5JUJqYmQ\nWl2ZkIT0MyG1urLphRQlpEbFzl1fQgoSUqNi564oQhJSg2LnrigTDMk+Uo2QCiEkITWYbUhL\n30cSUo2QuhNS8sqE1ERIra5MSEL6mZBaXdn0QooSUqNi566lkT5FR0hC+lmxc1cUIQmpQbFz\nV5QJhmQfqUZIhRCSkBoIqQ0hCamBkNoQkpAaCKkNIQmpgZDamGBIUUJqVOzcFUVIQmpQ7NwV\nRUhCalDs3BVlgiHZR6rpHNL+qao2u+tyf1zwXEPqdCTQ99cmpEWGtF+djynbXpa7wJDO6xxM\nSUjLDOm5ej3W9LranJe7xJBqXyPXJ6RFhrS6LOt9tX5fZEjVl3/7X+HSQxrJUGvWNaSPEe03\nm3+F1PM9BeUTUthSQ1pX+49TG49IiSsU0iJDeq2erqfeq80CQ7KPFLbUfaTD862eXUPnxc5d\nL56182RDXfcXZN+2H6fenxYYkteRhFTnyIZCCElIDYTUhpCE1EBIbQhJSA2E1MYEQ4oSUqNi\n564oQhJSg2LnrihCElKDYueuKBMMyT5SjZAKISQhNRBSG0ISUgMhtfHokB590KiQGgmpjYeH\n9H+jEFJ3QmpDSEJqIKQ2hCSkBkJqQ0hCaiCkNoQkpAZCakNIQmogpDaEJKQGQmpDSEJqIKQ2\nhCSkBkJqQ0hCaiCkNoQkpAZCakNIQmogpDaEJKQGQmpDSEJqIKQ2Hv42BiHVBnP//AlpurJv\nrBNSbTD3335Cmi4hCYkAIQmJACEJidIIqT6Y+28/IXEmpPpg7r/9hMSZkOqDuf/2E9J02UcS\nEgFCEhIBQhISAUISEgFCEhKlEVJ9MPfffkLiTEj1wdx/+wmJMyHVB3P/7Sek6bKPJCQChCQk\nAoQkJAKEJCQChCQkSvPwD18RUhMhTYGQ6oO5//YTEmdCqg/m/ttPSNNlH0lIBAhJSAQISUgE\nCElIBAhJSJRGSPXB3H/7CYkzIdUHc//tJyTOhFQfzP23n5Cmyz6SkAgQkpAIEJKQCBCSkAgQ\nkpAojZDqg7n/9hMSZ0KqD+b+209InAmpPpj7bz8hTZd9JCERICQhESAkIREgJCHRXvIjRn5Y\nyqNDGkm7G+P+209InD06pKIIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1\nQqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMk\nuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIr\nIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJS\njZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUIia6EVCMkuhJSjZDoSkg1QqIrIdUI\nia6EVCMkuqpG8uj1bEVIECAkCBASI5rvxAqJEc13YoXEiOY7sUJiRPOdWCExovlOrJAgQEgQ\nICQIEBIjmu/ECokRzXdihcSI5juxQmJE851YIZE32zdLfE9IECAkCBASBIwa0u+X7XlzePv8\n++czComJGTGk/bq2a7lJjwoeacSQnqvVr7fzqffdqnr+6axCYmJGDGlVvd1Ov1Wrn84qJCZm\nxJA+vVTw9+sGc3pRgcXxiAQB4+4j7d7Pp+wjMTdjPv29qW27rffhUcEjjfs60vP5daTV9sXr\nSMyLIxsgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBBQaEgwMfffy0cIaTCPfqiz/GUv/xMh\nWb7lBwjJ8i0/QEiWb/kBQrJ8yw8QkuVbfoCQLN/yA4Rk+ZYfICTLt/wAIVm+5QcIyfItP0BI\nlm/5AVMOCYohJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgoIiQ\n9s/rqtq8tjpv7QPO7/is813z+TsNYlXtz5etqo8Tq79G2GLZ1z80sHp6/9e4/7Xg9Np3GUNq\n5b9zx4x0XEJQCSHtV9c53Lc4c6e70rpqPH+3QWyr36d/dscLnu8yv6vt1xG2WPafv9ix+nwv\nXn+91FBr32kMqZX/xj0zIqSTp2pznLv3TfXc4syd7kpV83x2G8Rr9Xq58PPlctf/18/XYtkf\nP95/Xfpflxpq7TuNIbXy37hrRh6uhJBuWwZtbu+h7krdBvG7ejr9c9zIOW7WHE6T//vr+e4I\n6XC9lr+X849vDBTSHWNIrfy347ljRh6ujJDq/3tdV6vX67efq9Xl19FuW11PfnNXql3qfVut\nXs7ffF4df5sdz3X921GXK3xJDmJfrY9f34/bNNvqtEW0Pk7+5Yf3LPvPFV7+/Vj6x9+8Gn7t\nO40htfIN47mevk3Dn7U9L+j0sPVlzMfRbo57V1937gZVQkjPVW0Hd3u+8TeH043z8nHy5bK1\n/Hz47q5Uv9R50/o0a5vTiaf6fJ7P9u+9146DWJ1OnbZpLts1p1/N5x+el71tuewvjwa3pV8v\nO8LadxtDaOW/UZ+R2jTU1vayoNM+1Hmxf37wehntnQvspYSQTrfH+vmyWbCrNvvTdvrufKd4\nO7ytql+nk8cvv8631j/vSp8udTz5evpdubtevraF8fGj3CC21dvh/Av59Iv58Hb6cvrhr/uW\nfT3TZX/g09IvPxx+7TuNIbTy36nNSG0aakP7dTr5dBrvaTm1H6xOA/t19wL7KCKkw+7p9Jvl\n9FC8PW8Y7y9zcvrG7nTy4vu70qdL/b7+aHu9fG0+f3++gsAgXk6/9s6/w0+/nl9PjwWXZf++\na9m3Z8z2X5ZeP8uga99lDKGV/9afGalNQ21o5wXtPx4I/5q1UZUR0tHvl9XpZvmYzdskfPyi\n3L1svr8r/XWpL5ev7/P+NJ/3D2J33OG+7HSfdrWfPn6F37vs61346f1fKzPS2t8/htDK/+Q2\nI7Wr/Gtof/3g+bgx+fbWYXHdFRPSadNg/e19ePPxzWFDun8Q78dt8pfrr8uX4zneu4ZUP/11\n6eOs/f1jCK38z64zUrvK5pAOL6ddxdXXl5aHVEBIt5vj821Tv/GeqvXr7v2nu9KXb949n30G\nsb5uU6wPtx/2C+nLyeHXvscYAivfMJx/XuWXUX75wdHueb20faTt9dmV88bu9s/WbXXd1H66\n3kY/3JU+Xerj6z/2Ej5fKjKI43mvE7auLrtSf5b9u1NI/1yZYde+6xgyK/9vn2akNg21oW2+\n7CN92THq+BDYTQEhHW/x1+Nvtd+b0y13fsbnuN963mO8PFOzu9yObz/sJXy61MePPj1v9efF\nhn/fvJ0H8VxtqssrJC/V5vb08F3L/vKDT0u/XHbote86hszK/9unGalNQ21or6fn6Z4/nrWr\n/WB9eY5xYY9Ip13Dsz8vDZw3b4/fOJ3c1s7xsdv5MTO3beL6pQ4fZ9jcfr6ubq9xfDefXQfx\n6/Kdw3nmT/N3+f75NY2nlsv+8oM/S79cdoS17ziGzMp/oz4jtWmoDe3L60h/fvDrNtjRlBDS\n4e3p+Otr8+vyn9fjjX995ug4I+vL4/txVja/d7ffuX/dlT5d6vb19Lr3eQvj97p5PjsO4q2q\nbcyfXr64fv/l+uJ+q2V/+cFt6ZfLjrH23caQWfnv1GakPg1/hnZ5eu7TkQ3XH5yPbBizozJC\n+rfQJu7lMebBg3iYfmtfjPKnYcYhnbc19tt+Bw+XP4PfiKx9McqfhhmHdD08bNV8zgEH8TCR\ntS9G+dMw45AOr+eDtR48iIdJrH0xyp+GgkOC6RASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIECAkCBASBAgJAv4fVAebnHtuq9MAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/svg+xml": {
       "isolated": true
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "boxplot(iris,col=c(\"blue\",\"red\",\"sienna\",\"palevioletred1\",\"blue\"),ylab=\"Centimeters\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "nbpresent": {
     "id": "446484bc-0616-4a23-bd27-04da7846d812"
    },
    "slideshow": {
     "slide_type": "slide"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>iris.Sepal.Length</th><th scope=col>iris.Sepal.Width</th><th scope=col>iris.Petal.Length</th><th scope=col>iris.Petal.Width</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>iris.Sepal.Length</th><td> 1.0000000</td><td>-0.1175698</td><td> 0.8717538</td><td> 0.8179411</td></tr>\n",
       "\t<tr><th scope=row>iris.Sepal.Width</th><td>-0.1175698</td><td> 1.0000000</td><td>-0.4284401</td><td>-0.3661259</td></tr>\n",
       "\t<tr><th scope=row>iris.Petal.Length</th><td> 0.8717538</td><td>-0.4284401</td><td> 1.0000000</td><td> 0.9628654</td></tr>\n",
       "\t<tr><th scope=row>iris.Petal.Width</th><td> 0.8179411</td><td>-0.3661259</td><td> 0.9628654</td><td> 1.0000000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llll}\n",
       "  & iris.Sepal.Length & iris.Sepal.Width & iris.Petal.Length & iris.Petal.Width\\\\\n",
       "\\hline\n",
       "\tiris.Sepal.Length &  1.0000000 & -0.1175698 &  0.8717538 &  0.8179411\\\\\n",
       "\tiris.Sepal.Width & -0.1175698 &  1.0000000 & -0.4284401 & -0.3661259\\\\\n",
       "\tiris.Petal.Length &  0.8717538 & -0.4284401 &  1.0000000 &  0.9628654\\\\\n",
       "\tiris.Petal.Width &  0.8179411 & -0.3661259 &  0.9628654 &  1.0000000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. -0.117569784133002\n",
       "3. 0.871753775886583\n",
       "4. 0.817941126271576\n",
       "5. -0.117569784133002\n",
       "6. 1\n",
       "7. -0.42844010433054\n",
       "8. -0.366125932536439\n",
       "9. 0.871753775886583\n",
       "10. -0.42844010433054\n",
       "11. 1\n",
       "12. 0.962865431402796\n",
       "13. 0.817941126271576\n",
       "14. -0.366125932536439\n",
       "15. 0.962865431402796\n",
       "16. 1\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "                  iris.Sepal.Length iris.Sepal.Width iris.Petal.Length\n",
       "iris.Sepal.Length         1.0000000       -0.1175698         0.8717538\n",
       "iris.Sepal.Width         -0.1175698        1.0000000        -0.4284401\n",
       "iris.Petal.Length         0.8717538       -0.4284401         1.0000000\n",
       "iris.Petal.Width          0.8179411       -0.3661259         0.9628654\n",
       "                  iris.Petal.Width\n",
       "iris.Sepal.Length        0.8179411\n",
       "iris.Sepal.Width        -0.3661259\n",
       "iris.Petal.Length        0.9628654\n",
       "iris.Petal.Width         1.0000000"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "myiris <- \n",
    "  data.frame(iris$Sepal.Length,iris$Sepal.Width,\n",
    "             iris$Petal.Length,iris$Petal.Width)\n",
    "\n",
    "d <- data.frame(myiris)\n",
    "dcor <- as.matrix(cor(d))\n",
    "dcor"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "collapsed": true,
    "nbpresent": {
     "id": "2b0001ec-8f2e-42a4-8f14-59be448558b6"
    }
   },
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "celltoolbar": "Slideshow",
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.3.1"
  },
  "nbpresent": {
   "slides": {
    "5eeb6e75-00e2-4071-8636-48e879c6c2ac": {
     "id": "5eeb6e75-00e2-4071-8636-48e879c6c2ac",
     "prev": "9558b3dd-a21a-4e09-9144-7b67327ba168",
     "regions": {
      "5f7d2579-5fb0-4c66-b5ed-9361e23fe4bc": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "8e19647f-12cc-4925-9ad4-eaa42b23b59c",
        "part": "whole"
       },
       "id": "5f7d2579-5fb0-4c66-b5ed-9361e23fe4bc"
      }
     }
    },
    "743b94a6-9a2b-4210-b3b9-b237bdc8fe77": {
     "id": "743b94a6-9a2b-4210-b3b9-b237bdc8fe77",
     "prev": null,
     "regions": {
      "f25758e3-6baa-49b1-9083-f4b857fdd590": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "3c3fcfe2-c42d-4f34-bcaa-e4919c547e6b",
        "part": "whole"
       },
       "id": "f25758e3-6baa-49b1-9083-f4b857fdd590"
      }
     }
    },
    "81c92c6f-8b67-4410-86b0-01d05cd3f293": {
     "id": "81c92c6f-8b67-4410-86b0-01d05cd3f293",
     "prev": "e51c8efa-5258-4636-a2cd-362d5848efc7",
     "regions": {
      "2edbf91f-1794-4d73-ab7a-e7a9529e2313": {
       "attrs": {
        "height": 0.4,
        "width": 0.8,
        "x": 0.1,
        "y": 0.5
       },
       "content": {
        "cell": "2b0001ec-8f2e-42a4-8f14-59be448558b6",
        "part": "whole"
       },
       "id": "2edbf91f-1794-4d73-ab7a-e7a9529e2313"
      },
      "6e221996-f41d-42e5-b094-d25cfec86933": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "446484bc-0616-4a23-bd27-04da7846d812",
        "part": "whole"
       },
       "id": "6e221996-f41d-42e5-b094-d25cfec86933"
      }
     }
    },
    "9558b3dd-a21a-4e09-9144-7b67327ba168": {
     "id": "9558b3dd-a21a-4e09-9144-7b67327ba168",
     "prev": "743b94a6-9a2b-4210-b3b9-b237bdc8fe77",
     "regions": {
      "796b7aa7-789b-414f-8e3d-e6c4ba39cf88": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "41c265f2-e418-4509-a9cb-afdadcf74927",
        "part": "whole"
       },
       "id": "796b7aa7-789b-414f-8e3d-e6c4ba39cf88"
      }
     }
    },
    "cc12543c-b6eb-44d5-a56c-5a1607864cb5": {
     "id": "cc12543c-b6eb-44d5-a56c-5a1607864cb5",
     "prev": "f7cae50d-78c8-431e-8eab-3c4166dbb54d",
     "regions": {
      "534eccd3-8a44-4c41-95eb-fb85292280fb": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "0834c101-4888-4cd8-a91d-12eef33e8051",
        "part": "whole"
       },
       "id": "534eccd3-8a44-4c41-95eb-fb85292280fb"
      }
     }
    },
    "ce657802-2683-4b3e-a1bc-0f40607d4793": {
     "id": "ce657802-2683-4b3e-a1bc-0f40607d4793",
     "prev": "e1c625dc-9162-4e38-b5f8-5aff12a1780b",
     "regions": {
      "dd237868-d724-4f1b-a74e-c6f1b2d071eb": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "6506ca81-3876-4907-9593-00dc799b9de1",
        "part": "whole"
       },
       "id": "dd237868-d724-4f1b-a74e-c6f1b2d071eb"
      }
     }
    },
    "e1c625dc-9162-4e38-b5f8-5aff12a1780b": {
     "id": "e1c625dc-9162-4e38-b5f8-5aff12a1780b",
     "prev": "5eeb6e75-00e2-4071-8636-48e879c6c2ac",
     "regions": {
      "6dc4e09a-ddda-4419-8ec7-9945049c3ae8": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "89560c19-f9cb-4446-849b-d1dee933ab1f",
        "part": "whole"
       },
       "id": "6dc4e09a-ddda-4419-8ec7-9945049c3ae8"
      }
     }
    },
    "e51c8efa-5258-4636-a2cd-362d5848efc7": {
     "id": "e51c8efa-5258-4636-a2cd-362d5848efc7",
     "prev": "cc12543c-b6eb-44d5-a56c-5a1607864cb5",
     "regions": {
      "ca06cec5-d1c8-44ed-8fbd-311b36b42001": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "a5bfc791-ea30-4953-b275-c41b956b0de3",
        "part": "whole"
       },
       "id": "ca06cec5-d1c8-44ed-8fbd-311b36b42001"
      }
     }
    },
    "f7cae50d-78c8-431e-8eab-3c4166dbb54d": {
     "id": "f7cae50d-78c8-431e-8eab-3c4166dbb54d",
     "prev": "ce657802-2683-4b3e-a1bc-0f40607d4793",
     "regions": {
      "730b15a0-4ac5-4b0d-a0ce-d2413e576f89": {
       "attrs": {
        "height": 0.8,
        "width": 0.8,
        "x": 0.1,
        "y": 0.1
       },
       "content": {
        "cell": "7b289a18-082c-4549-9dd4-d0ad68fa0401",
        "part": "whole"
       },
       "id": "730b15a0-4ac5-4b0d-a0ce-d2413e576f89"
      }
     }
    }
   },
   "themes": {}
  }
 },
 "nbformat": 4,
 "nbformat_minor": 1
}