testing_R.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "f0291cba-b7ae-42b3-b99e-de8c61bc2fb8",
   "metadata": {},
   "outputs": [],
   "source": [
    "dat <- c(1,1,2,3,3,3,4,5)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "id": "85e6e9a9-6711-4392-9aa6-7d73c73e4cae",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "2.75"
      ],
      "text/latex": [
       "2.75"
      ],
      "text/markdown": [
       "2.75"
      ],
      "text/plain": [
       "[1] 2.75"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "mean(dat)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "id": "a70a2c70-6338-43b3-8818-0c91aee5b2f2",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "1.38873014965883"
      ],
      "text/latex": [
       "1.38873014965883"
      ],
      "text/markdown": [
       "1.38873014965883"
      ],
      "text/plain": [
       "[1] 1.38873"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sd(dat)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "id": "1268b0a7-add6-4089-b099-2dd04da76db2",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "1.92857142857143"
      ],
      "text/latex": [
       "1.92857142857143"
      ],
      "text/markdown": [
       "1.92857142857143"
      ],
      "text/plain": [
       "[1] 1.928571"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "var(dat)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "id": "686c333f-2736-4572-b893-2f0a1bd7ccd8",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<style>\n",
       ".dl-inline {width: auto; margin:0; padding: 0}\n",
       ".dl-inline>dt, .dl-inline>dd {float: none; width: auto; display: inline-block}\n",
       ".dl-inline>dt::after {content: \":\\0020\"; padding-right: .5ex}\n",
       ".dl-inline>dt:not(:first-of-type) {padding-left: .5ex}\n",
       "</style><dl class=dl-inline><dt>0%</dt><dd>1</dd><dt>25%</dt><dd>1.5</dd><dt>50%</dt><dd>3</dd><dt>75%</dt><dd>3.5</dd><dt>100%</dt><dd>5</dd></dl>\n"
      ],
      "text/latex": [
       "\\begin{description*}\n",
       "\\item[0\\textbackslash{}\\%] 1\n",
       "\\item[25\\textbackslash{}\\%] 1.5\n",
       "\\item[50\\textbackslash{}\\%] 3\n",
       "\\item[75\\textbackslash{}\\%] 3.5\n",
       "\\item[100\\textbackslash{}\\%] 5\n",
       "\\end{description*}\n"
      ],
      "text/markdown": [
       "0%\n",
       ":   125%\n",
       ":   1.550%\n",
       ":   375%\n",
       ":   3.5100%\n",
       ":   5\n",
       "\n"
      ],
      "text/plain": [
       "  0%  25%  50%  75% 100% \n",
       " 1.0  1.5  3.0  3.5  5.0 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "quantile(dat, type=2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "id": "04eddf1c-d2ea-4871-9869-be222296e5a7",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC5VBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7\nOzs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExN\nTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1fX19g\nYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFy\ncnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OE\nhISFhYWGhoaHh4eIiIiKioqLi4uMjIyOjo6Pj4+QkJCSkpKTk5OUlJSVlZWWlpaXl5eYmJiZ\nmZmampqbm5udnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamrq6usrKyt\nra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/A\nwMDBwcHCwsLDw8PFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT\n09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl\n5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb3\n9/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9ynhz0AAAACXBIWXMAABJ0AAASdAHeZh94AAAY\nMklEQVR4nO3de3zddZ3n8W+a9AItlNqWUi624ogggsByW5giKBRxBEQuA0J1GC4KA7iAZQQX\nZlC6iMy6eGFWcVEGL+CCOApYRgRXKBdBRFkKOg5lgTJAKQy0yfl7zzlJi5Q0tMn7d07SPJ+P\nB+f3S3+/fM6XR8+rOfnlJCk1YMhKuxcAGwIhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAg\nQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBAS\nBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAEtCOm+u2FEuW/9H+XVh3RXgRHmrvV+mFcf\n0s/LK5XfBwS9Un6+3u8jJFiDkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACHBurp//iGHzL+/30NtCOlnH5g6aefLVgx0ipAYhhZ0zjn33DmdC/o71tKQZpxR\nv7mms/kd7of1DHCikBh+vjvuusbmunHf6+dgS0Mq82q1ZyaNuWDxs9fNLN8a4EQhMfzsck7v\n9pxd+znY8pC+Ws5q7P6iHLjGwe6FN6/2D0JiuFlW7uzduaPjxTcebXlInyy/bu6/Z/oaBxdP\nn7LaxqWfpUI7PVF+27vzcHnijUdbHtLHy0vN/SPGDnDiV8uywd4HVOPVCTf17vxwwqtvPNry\nkD5fnmzu7z9tgBOFxPDzkYOaF8i6D/xIPwdbG9KY8ePHllua+7N3GeBEITH8PDz5uCW12pLj\nJv+2n4MtDemdTZc0dheVUwc4UUgMQ4t2LLNnlx0X9XesXa9s+OUX7hngqJAYjroXXXXV3d39\nHhqeLxESEiOMkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFB\ngJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAk\nCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKE\nBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGA\nkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQI\nEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQE\nAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQ\nIEBIECAkCGhPSCdeNfBxITFoS398xY1PtPxe2xNSOXHg40JikHou3njCDpt0nfZyi++3pSGd\nv0p5T/1mgBOFxCB9ZtNvrazV/nmrY1p8vy0NqbzOACcKicF5vOuG5vb+rttae8etDWnSZy9v\nKnvVbwY4UUgMzv94e9/OQZ9q7R23NKQbNp/5w94J/XyOtHj6lNU2Li8M9j4Y1c6b27dz2pGt\nvePWXmx46vDy8edr/YfUvfDm1c70EYlBuWSPvp1j3+R6Vlqrr9p9fZNtfuKqHVW5veux5vaF\nad9o7R23/PL3Y3PKqcuERDV65uz5VH2z/PC3t/j6d+u/jtR96fhthURFntx1s+MvOnHm2x5q\n8f224wuyv9pJSFTl1W/+9X4nXNHyx09bXtnQs6J74BOExAjjRasQICQIEBIECAkChAQBQoIA\nIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQ\nICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJ\nAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAh\nQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAg\nJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkC\nhAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFB\ngJAgQEgQMNSQrl7ct/PA1ZH19BISI8xQQyqr+rk4+XFKSIwwsZAu6oisp5eQGGFiIR09NbKe\nXkJihBlSSMccc0zZ65iGI/cohwZXJSRGmCGFVP7EXo8GVyUkRpghhfTII4+Uyx5pWPx8dFVC\nYoQZ6udICx7MreU1QmKE8QVZCBh6SEv/95cvb0otqSYkRpwhh3TJhFWXG2JrEtL6WPFMdbOf\nWVHZ6P94trLRbTHUkP6p7P75cvbnDihHrc9LhJ59YeDjQlpX1+4+rkw7/vdVjP798dPKuN2/\nU8Xo7i/t0FW2On1DammoIe0746Ul5Ue12rc6b12H93zspPee9XTtrneXjjkPD3SekNbReePn\n3/LAtftMreCSzwNT9732gVs+Pf5v86O7j558ye33fn2Hty/Jz26XoYa0yYm1J8tN9Z2/OODN\n3/HpLerPAHd5ckaZ2Vm2/PcBThTSurl9zM2NzcoP79aTHt2z2xErG9ufjLk9Pbr2jUnN8Jfv\nfnR8dNsMNaT6P1jPlmvqOxdMfvN3/Gw5/rbTy8GzH6y9cHj5+wFOFNK6+djhvdvHO+5Jj17U\n0fd88fCPpUfX9j2nd3tr19L47HYZakizTqr1TGp89D9+HULaefMVtZ5tS+Np9zMb7bnGwWc/\nefJqfy6kdbL7pX07Wye/iaXpf23Tt3Pp7unRtSnX9W5f7rgjPrtdhhrSofvUn9W95ZZl3x/3\n52/+jpsdUr85ujzZ2N93szUOCmn97f6Fvp0RFtL1vVshveZrHf9au6txBbxz4Zu/44Sj6jen\n9L77kV0DnOip3bqp8KndPS15arfhXLeLvLLh7o/uc8Iv1+Ed39q4IHHmxOb+ATMGOFFI66bK\niw27utiwPlr6EqG5W7+2v+2eA5wopHV03vj5t7r8PRy0NKSLyh9W7d5bPj3AiUJaV9/xBdnh\noaUhrXx59TOQOxc8NMCJQlp3XiI0LAwlpFmvF1yVkBhhhhLS1IbNSikT6/9t5mc2MIoN9and\nsn13vWlZbdlNu+ybfOgLiRFmqCGdte3y5nb5tmeFVtQgJEaYoYa0Vd/X1mrnbN3fqYMkJEaY\noYY07uy+nbPHR9bTS0iMMEMNabvZLza3L87aPrSiBiExwgw1pC+Wna9fWlt6/c7Fz2xgFBtq\nSN0nlVK66v+d3J1blJAYaYb+yoafzttp1k7z1uG13+tBSIwwfq4dBAgJAoQEAUKCACFBgJAg\nQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBAS\nBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoTUAred9f4PX/hYu1dBlVobUvc1p5xxc+/uZXMHOG+DCqn75M5DPnPGLht9\nu90LoUItDWnlB0vdEc839ucNNGWDCmnBlF80Nl8cu6jdK6E6LQ3pK2XGf/vyHmW3f6+NopBe\nnfK13p3Djm7vQqhSS0Pau+vh+jOd/1r2eL6fkLoX3rzamRtQSPeWZ3p3vrllexdClVoa0ib7\nNTdfKvu8+MaQFk+fstrG5YXB3sew8y8dK3t3bpzU3oVQpZaGNP6o3u0Xyv4vjZqndo+W3/bu\nXL59exdClVoa0p/t3bdzYTn42NESUm2nTzQ3L21/XnvXQZVaGtKR457r2/tU6Rw1If107Ln1\n/+3f7T97abtXQnVaGtK3y1dW7Z5URk1ItR9t0/mOmWW/x9q9DirU0pBeuPz7q3a7L50/wIkb\nVki1V+648p9+3e5FUCkvEYIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBAS\nBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFC\nggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBA\nSBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKC\nACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQI\nCQKEBAFCggAhQYCQIEBIEDCyQuq++6qr7u6u5j6fuPGKHy+tZjQbvraFdPasAQ6uJaRFO5bZ\ns8uOixL3v4aXT+vaZIcJG1/cU8FsRoG2hTRvoCn9h/Tw5OOW1GpLjpv828QCXu/orf+5Vlv5\nrU3Pz49mNBhJIR1xUPPjRfdBH0ks4HVu6/pVc3vD2MfjsxkNWhrSMX9i9nqH9OqEH/bu3Djh\n1cGuYG3Omtu3s+0V6dGMCi0NqbzOGgcXT5+y2sblxTe+9xOl7yndw+WJwa5gbY48rW9n7nnp\n0YwKLQ1p4nY3rva+Nad0L7x5tX8or7zxvZeVO3t37ujoJ7Oh+avj+nZ2X5AezajQ0pD23vS1\ni2IDfo708/5Cqu16bu/2nF0Hu4C1+sa0F5rbxZ23x2czGrQ0pNPK/129P4iQvjvuusbmunHf\nG+wC1urlbT+8vL55as/9XP9mMFoa0vd3u+21/YEuNPcfUm1B55xzz53TWcWzr4feNvPEi46f\nvNuTFcxmFBier2xYS0i1++cfcsj8+yu5y2VXnLDfX38zfjmQUWJkhQTDlJAgQEgQICQIEBIE\nCAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQcDwDOmuAiPMXev9MK8+pNp9d6/F\nwXOursrF5crKZm93VGWjT9u0stFXb3paZaOP2q6y0VeWiyubPefgtT0y71v/R3kLQlqrj32s\nstGLyvOVzd7nc5WNvnZGZaNrM66tbPTn9qls9POlil+z0Cv6+BPSehPSmoQkpEEQ0pqEJKRB\nENKahCSkQRDSmoQkpEEQ0pqEJKRBENKahCSkQRDSmoQkpEEQ0pqEJKRBENKahNTekE4+ubLR\nD4xZXtns/S+tbPR121Q2urbNdZWNvnT/ykYvH/NAZbOjj792hvTss9XNfrS60Uuqa3RFhb+H\n/fEVlY1evqSy0VX+RUYff+0MCTYYQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBI\nECAkCBASBAgJAtoW0vdP/88TyzFVTF527V9uv9Gm+/xjd370yr87+K0bTXnPRUvzo3vdUMr5\nFYx9Z+/vWKjoG9lvOWzzcVsfujA+9+rVvxxiZXx2ree6A7aa8LYj70jNa1tIu5VNt6smpMvL\nuL2OmtNVDs2X9HLZYs6RB08vW1b0naxPzZhUTUhj5jWcUcHoWu28Mn6/o/efml/3Hc1Fz9uj\nVPGd7J8sk48/8wNjOq4KzWtbSAsf6bmxmpC+9+Xn6re/3rxcEx/d0wzolY+Wk+Kjmw6f+dlq\nQhpfwdA+Xy97/7G+6X6mqjv4QKngx7Y8Wqb9W33zg5L6KRnt/BypopD6LCinVDX6tvLeSuZ+\nvfzw8pEW0itbTHyysuENj4+ZXsGvfLylHNLYdHdtFBq44Yb05VLNM5m6vylnVjH2sU0+Xqso\npLGf/6vTvlbJZ3Y/Kh99+doLPn9LTxXDGz5TPl3B1D92Tm/8xJYby+GhgRtsSD17lZurmHvm\nKX/5Z2WnpyqY3D1nm+eqCqn5Kfuk/HPdWu3vyxnvaAzfu6KPSyu26HikirmfK5udcNYHuz74\ndGjeBhvSheWISuZOrD9oDq7kQXNp+UmtopAuuXnJSw+ePqbzZ/nRp5fOdy5c9qsDK3q2W/te\neX81g6/ZtP43+c7Yvy0bakhfKrtW9LNWe5ZcO2uLCn7856/Gn1qrKqRe55cP5Id+onT9pr55\ncctB/ALjdXFg+W4lcy/q+PRjyxcdVP42NG8DDemysluFP33ywbJTfGbPzm9bVqs2pMVlan7o\nZ8qOze288pX88Frt0Y4Zr1Yx98fl2MbmpW06Q1/J2DBDurDs/VxFo5tmlnimK1773fQnpmf3\nebZMyg/9Ztm3uT2zXJ4fXqvNj33IeL0zypXN7VHlB5mBG2RInyrvXVbN5F4vdJYX0jO7T2za\nq7znxNTXCNd0fdk5P/SPHdOaHzIOSD0iX+fVzTsWVzC2Vju19P4qhDnlR5mBG2BI3SeVuS9V\nMbhWu/O+xu0zh5c51cyv6KndL+9v3N61ZbksP7t2RLmw1vi7nPZiBcO/U+ZWMLXu22WLf61v\nbujYOPTUpX2vtZs3731l9rx5Z8cnX1rGHNt8bUn+YbOgbPu+I/fdqMz8TXx0n0pC+kJ5+/uP\n2KWjHFrFpxv/NrvsfdpfjBlbxQek+se5in6Hxsr9y8RjzjiwxD6za1tI5/d9QjArPnn+qs81\n8v+YPXT2btM6J+9xUXUXMioJ6Z6T3v2WrmkHXl3NF02f/ptZY6d+uJJrdr/rmFnV79B45Yt7\nTOqc/qFbU/N8GwUECAkChAQBQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAk\nCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQBQoIAIUGAkCBASBAgJAgQEgQIaQSb\nmv91hwySkIa7l8vktR0S0vAhpOFOSCOCkIY7IY0IQhruekO6t8z7w7FTJ/ynm5p/1n359uO3\nPmtZX0h3HDFj7MyP/qa+d1j5740/uKCc2K7VjlpCGu5WhXTAjF0/8ZHOMT9r/NnJZdbZ52y7\n72bNkK4cM/3j848eN/EXtdrSt46/p1a7ZcwOy9u65NFISMPdqpDKBT212tXlQ/U3FpadX6zV\nlu9SGiE9NHbuS/XN/ZN2qt/+vOsdy/7fFhs92NYVj0pCGu5WhfTWFfVNz+QZ9dt55frGkZua\nIZ1e/uXphsPK4/W3FpTjDiz/2L7VjlpCGu5WhXRY8613javf7FSWNvaXNUParaxyZ/2tnrml\nHNu2tY5iQhruVl9saL61c2f9ZlZX76GJjZBmlxtu7vVc48++Wsr/ac9CRzchDXf9hPS6j0g7\nl1/+ydm/mzRlzLtfbvkiEdJw109Ir/sc6ZTyX147+T926fjx+eWU1q9y1BPScNdPSD/tvWq3\nazOkB7rG3to4suzaWuPKw/zayn3Kd9q22lFLSMNdPyHVTiqzX/s60v/s6ph73rkfmviuWu36\nsueKWu0Pb9n00fatd5QS0nDXX0jdX9xu3FarX9lw7wnbjJvyrlMX1n4/ZfLixh/8oOz+SptW\nO2oJCQKEBAFCggAhQYCQIEBIECAkCBASBAgJAoQEAUKCACFBgJAgQEgQICQIEBIECAkChAQB\nQoIAIUGAkCBASBAgJAgQEgQICQKEBAFCggAhQYCQIEBIECAkCPj/gY59Nl/BDHUAAAAASUVO\nRK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "plot(dat)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "id": "52e8297f-b6c9-4331-a8b8-51b446f4a639",
   "metadata": {},
   "outputs": [],
   "source": [
    "data_frame <- data.frame(dat, c(1,2,3,4,5,6,7,8))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "id": "30fa1df1-77c1-40c7-94ce-eee7f17d9195",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A matrix: 2 × 2 of type dbl</caption>\n",
       "<thead>\n",
       "\t<tr><th></th><th scope=col>dat</th><th scope=col>c.1..2..3..4..5..6..7..8.</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>dat</th><td>1.928571</td><td>3.285714</td></tr>\n",
       "\t<tr><th scope=row>c.1..2..3..4..5..6..7..8.</th><td>3.285714</td><td>6.000000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A matrix: 2 × 2 of type dbl\n",
       "\\begin{tabular}{r|ll}\n",
       "  & dat & c.1..2..3..4..5..6..7..8.\\\\\n",
       "\\hline\n",
       "\tdat & 1.928571 & 3.285714\\\\\n",
       "\tc.1..2..3..4..5..6..7..8. & 3.285714 & 6.000000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A matrix: 2 × 2 of type dbl\n",
       "\n",
       "| <!--/--> | dat | c.1..2..3..4..5..6..7..8. |\n",
       "|---|---|---|\n",
       "| dat | 1.928571 | 3.285714 |\n",
       "| c.1..2..3..4..5..6..7..8. | 3.285714 | 6.000000 |\n",
       "\n"
      ],
      "text/plain": [
       "                          dat      c.1..2..3..4..5..6..7..8.\n",
       "dat                       1.928571 3.285714                 \n",
       "c.1..2..3..4..5..6..7..8. 3.285714 6.000000                 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "cov(data_frame)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "id": "46430216-e7cd-4317-b3cb-e9eeeef9b12e",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A matrix: 2 × 2 of type dbl</caption>\n",
       "<thead>\n",
       "\t<tr><th></th><th scope=col>dat</th><th scope=col>c.1..2..3..4..5..6..7..8.</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>dat</th><td>1.0000000</td><td>0.9659092</td></tr>\n",
       "\t<tr><th scope=row>c.1..2..3..4..5..6..7..8.</th><td>0.9659092</td><td>1.0000000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A matrix: 2 × 2 of type dbl\n",
       "\\begin{tabular}{r|ll}\n",
       "  & dat & c.1..2..3..4..5..6..7..8.\\\\\n",
       "\\hline\n",
       "\tdat & 1.0000000 & 0.9659092\\\\\n",
       "\tc.1..2..3..4..5..6..7..8. & 0.9659092 & 1.0000000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A matrix: 2 × 2 of type dbl\n",
       "\n",
       "| <!--/--> | dat | c.1..2..3..4..5..6..7..8. |\n",
       "|---|---|---|\n",
       "| dat | 1.0000000 | 0.9659092 |\n",
       "| c.1..2..3..4..5..6..7..8. | 0.9659092 | 1.0000000 |\n",
       "\n"
      ],
      "text/plain": [
       "                          dat       c.1..2..3..4..5..6..7..8.\n",
       "dat                       1.0000000 0.9659092                \n",
       "c.1..2..3..4..5..6..7..8. 0.9659092 1.0000000                "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "cor(data_frame)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "id": "5aff1c13-5504-4a52-a1cd-7455ffb4399f",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC61BMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgpKSkqKiorKyssLCwuLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7\nOzs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExN\nTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tdXV1eXl5fX19g\nYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2dpaWlqampra2tsbGxtbW1ubm5vb29wcHBycnJzc3N0\ndHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9ACV9fX1+fn5/f3+AgICBgYGDg4OEhISFhYWG\nhoaHh4eJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiZ\nmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6epqamqqqqrq6us\nrKytra2urq6vr6+xsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/\nv7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR\n0dHT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk\n5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX2\n9vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7//8j///8ybaThAAAACXBIWXMAABJ0AAASdAHe\nZh94AAAgAElEQVR4nO3de5xkdX3m8ZqLM1zkDkq4RO4gawJi3LhyXVwMmATjQpxodlEg7iIk\nUTRcBtEsiLiOhCgSE1AUcBYFbwi4bpRgyC4SdQWzJAjBJVwSFJSBAWa2/9w6p3qmq6q7f/Or\nnurv88x3Pu/XK6HrnBo8M/N56O7q6urOBICN1lFfAJABQwLGgCEBY8CQgDFgSHNyx7lXOvnw\n2eorGHDZReq/n3gMaU5+a6t9nPzCtuorGPDSpeq/n3gMaU7OPU59Bc5u2El9BfEY0pwwpBKG\nhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaES\nQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBK\nGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaE\nSgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJD\nKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoY\nEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRK\nDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMq\nYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgS\nKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoM\nqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyph\nSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIq\nMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyp\nhCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFI\nqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmEIaESQyphSKjEkEoYEiox\npBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUioxJBKGBIqMaQShoRKDKmE\nIaESQyphSKjEkEoYEioxpBKGhEoMqYQhoRJDKmFIqMSQShgSKjGkEoaESgyphCGhEkMqYUio\nxJBKGBIqMaQShoRK571efQXOvrCL+griMaQ5eeB/qa/A2VO3qq8gHkMCxoAhAWPAkIAxYEjA\nGDAkYAw2mSH9PxQsR0FEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn\n6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+\nGVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmo\nU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtE\nnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU\n1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+ot\nok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlS\nCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1\nFtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8M\nKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSp\neovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJP\nhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrq\nVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbR\nJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkF\ndareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL\n6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aU\ngjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9\nRfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdD\nSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq\n3iL6ZEgpqFP1Nq4G19xzzVn/ZstO4+rhcwwpBXWq3sbR333Xv+uobTrrMaSc1Kl6G0N+v98Z\nxJByUqfqbQz5ncGQNgvqVL2NIT+GtHlQp+ptDPlNDmn7f/ueMxlSYupUvY0hvzM62xz5h9f9\nn7UTE/+NISWmTtXbGPL73r1rJt9iSJmpU/U21hAZUmbqVL2NNUSGlJk6VW+zJPXDFcsO3WWL\nxdvvdeyZ1z5WHSJDykydqreZelrzmVf2P5y94DV/8fO6EBlSZupUvc2Q092HdoadXxciQ8pM\nnaq36TVdvXTajjrn1YXIkDJTp+ptWkwfWzA5nr1/+53v+8NTfmUpQ0JLnaq34Za+tLAdw+L/\n/IPJA6tve/t2DAkMqWwopUd2brew/z39B5+86KN1ITKkzNSpehtK6W3tFH7p0bmFyJAyU6fq\nbbCkv1/ULGGr++YYIkPKTJ2qt8GS3tMuYcVcQywO6Y43vtfWOQ8wpA1Sp+ptMPm9miFs9/S8\nDOncrV9n67i7GNIGqVP1NlD8ve0Q3jnXHZWH9IkD5/zvjaJO1Zs6VW8DIX26HcJNcw6RIWWm\nTtXbQEhnt0N4ZM4hMqTM1Kl6GwhpWbODneYeIkPKTJ2qt4GQXtfsYN+5h8iQMlOn6m0gpNc2\nOzhs7iEypMzUqXobCKkd0qvmHiJDykydqreBkNoP7fabe4gMKTN1qt4GQuLBBsxOnaq3gZB6\nzxCa4zNWJxhSbupUvQ2EdE07hC/OOUSGlJk6VW8DIf1dO4Sz5hwiQ8pMnaq3wZL2boaw/fw8\naZUhbeLUqXobLOmcdgmXzTVEhpSZOlVvgyXdv7hZwtZ/P3trt9/YmOXxCIaUmTpVb0Mpnd5O\n4ZDHZ23tqPYON898kiFlpk7V21BKj+3SbuHAH/YffPLiqRc/YUibLXWq3oZb+vLky3G9897J\nA6u/fmr/y3HNNKSTdp+0Y3tyh3U3T5g8z5BSUKfqbVpMl3cm7bPsrAvf9bZXD71A5ExDOqoz\ns3VPf2VIKahT9Ta9pj970fRJMCQwpKIZcrrz4GmTuGD9SYa02VKn6m2mnp678sD+PSw8+rrV\n688xpM2WOlVvsyR113/5jYO2Xbxkp31f/wef+5eN7ZMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1\nFtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8M\nKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSp\neovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJP\nhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrq\nVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbR\nJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkF\ndareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL\n6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aU\ngjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9\nRfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdD\nSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq\n3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iT\nIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6\nVW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0\nyZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pB\nnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i\n+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGl\noE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVv\nEX32hnTpnhH/WxtFnao3dareIvrsDens7SP+tzaK+i/Dm3rI3iL63GQ+tFOn6k2dqreIPhlS\nCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1\nFtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8M\nKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSp\neovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJP\nhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrq\nVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbR\nJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkF\ndareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL\n6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aU\ngjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9\nRfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdD\nSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq\n3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iT\nIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6\nVW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0\nyZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pB\nnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i\n+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGl\noE7VW0SfDCkFdareIvpkSCmoU/VW09elna7D5t4nQ0pBnaq3mr4YEpYzpLKavhgSljOkspq+\n5jKkr1zYdW3vbYaUgjpVbzV9zWVIZzS/5g29txlSCupUvdX0xZCwnCGV1fTFkLCcIZXV9MWQ\nsJwhldX0xZCwnCGV1fTFkLCcIZXV9MWQsJwhlc2S1ANf+rM//dTXH+ndYEhYzpDKZurpqUsO\n7PQc+idPT8w8pDXf+ejpR7xsh8Xb7vXKt175w8FzP3vooYdOaX7NsQ+1GFIK6lS9zZDT51/a\nmbLnLTMM6dkv/PYOnX5H39b/L1jRGdIeZUibOHWq3qbXdMHgCBZ+fNqQfrzd8FI6nZOfnjrP\nkFJSp+ptWkzvG17BgpXDQ7pv+o66HwU+tv48Q0pJnaq34Za+2Et/61NvffDZh+9410u6b29z\n1oxDWrD/Se947wVnvmmPybUcv3bdeYaUkjpVb0MpPdWbxRH3T95+Yln31uLpQ9rhbV99at3N\n7/xuby6X9f+LeNQuHXWq3oZSat/5dI5+durI6ZPvVfqHtNcVzw78qptf3Nxj1+f6DjGkdNSp\nehss6SdbNv3v/tO+Qy8cPm1Iq58fLvDrC5u7XNt3hCGlo07V22BJl7ebuWbg2N0Lh4c0g7e3\nnyX1HWBI6ahT9TZY0qFN/nuvHTx4YsWQ7m7usmPfgelD+uhuK23d8BRD2iB1qt4G5vDTBU3+\n5w6NZGXFkNbu3NznvtKQLlqyg62dbmVIG6RO1dvAHG5rJ3Pn0EhWLdrwkCYOae5zY2lImwB1\nqt7UqXobCOnipv6Fq4b7OnjWIb3wkwfv63lNc5+rps4wpHTUqXobCOkdTf37T+tr2UxD+udP\nnv6r2w594XXF1GmGlI46VW8DIb25qf/waX0NP7Oh665ff9Hw0xe63j91B4aUjjpVbwMhvb6p\n/4RpfZ0/PKRn3rFwhhl1OudN3YUhpaNO1dtASK9t6j9pWl8fHBrS06+bcUYMKTd1qt4GQqp8\nj/Q7vdn8wls/fss9jz3Ve2LQsQwpO3Wq3gZCqvsc6RvtjHb+7MAThY5gSNmpU/U2EFL7qN0B\n0/oaetSufb+14/2D93kFQ8pOnaq3gZCqvo701JLm5pVD99mVIWWnTtXbQEhVz2y4pbm15MnB\n+/wTDzakp07V20BIVc+1+1Rza/irtp8fHtKZfY9bMKQU1Kl6Gyypffb3PuVnf7ev4PDqoQTf\nNDykc5rbx/TeZkgpqFP1NljSn7R7+MzAseHvR7qsubXf4K97YNHwkNpPtw7pvc2QUlCn6m2w\npCe2aPrfo/gdstc1txY8OvDrjp/2Bdmrm9svXtO+zZBSUKfqbSil3ms2HLN66sjvdYaG9P32\n5vv6f9WHpz+zof1Ov84327cZUgrqVL0NpTT5KkJHrn8Vobd0pr2K0G7NzaV/OfWLLulMH9Lq\n9vVQDn24eZshpaBO1dtwSzf1JrH16bc9tPqRb5/dvHrxNmcODunC9h5bfOSZ3s3/eWT31lb7\nDg1p4tT2XktPeO8lKxhSCupUvU2LaforrX5u6JVWn9yld2Knk9+/4sLT9m7f/sTwc+0mvr90\n6l8RsIGxUKfqTZ2qt+k1bfi1v7+1ZHhsZ0970urExBULGFIq6lS9zZDTF3btm8ieX5vhp1F8\nafBV9Bd9aPqzv7tu2Y8hZaJO1dtMPf3swy+f/Kjule3PR7r+tV2n9t/jH06cenfTOe67EzMO\naWLim+ecsO/OSxlSDupUvc2S1ENf+YsrrvnG47M3d88fv+5l2yza9oDf+FDvp4z96Ptdj858\nX4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK\n6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW\n0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwp\nBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6\ni+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+G\nlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupU\nvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEn\nQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1\nqt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovo\nkyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSC\nOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F\n9MmQUlCn6i2iT4aUgjpVbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NK\nQZ2qt4g+GVIK6lS9RfTJkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdare\nIvpkSCmoU/UW0SdDSkGdqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMh\npaBO1VtEnwwpBXWq3iL6ZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iT4aUgjpV\nbxF9MqQU1Kl6i+iTIaWgTtVbRJ8MKQV1qt4i+mRIKahT9RbRJ0NKQZ2qt4g+GVIK6lS9RfTJ\nkFJQp+otok+GlII6VW8RfTKkFNSpeovokyGloE7VW0SfDCkFdareIvpkSCmoU/UW0SdDSkGd\nqreIPhlSCupUvUX0yZBSUKfqLaJPhpSCOlVvEX0ypBTUqXqL6JMhpaBO1VtEnwwpBXWq3iL6\nZEgpqFP1FtEnQ0pBnaq3iD4ZUgrqVL1F9MmQUlCn6i2iz01mSIAzhgSMAUMCxoAhAWPAkIAx\nYEjAGDAkYAwYEjAGDAkYA4YEjAFDAsaAIY3gyfd2zXLurwrnkB9DGsFDna5Zzq0onEN+/N2P\ngCFhNvzdj4AhYTb83Y+AIWE2/N2PgCHNyaM396ivY17xdz+C0pA+2D21RejVbDJu7PSor2Ne\n5f7djVlpSO/pntol9Go2GQwJg0pDOr57ar/Qq9lkMCQMKgzp/y7tnnpD7OVsKhgSBs06pDXf\nPKQ5dW70BW0aGBJa175h0rFNDm8YdsIxh7y4V8q31Ffq6fajetTXMa8Y0oZd2Kmzv/pCocOQ\nNqxySAtuUV8odBjShtUNaekV6uuEEEPasJohvfjU/62+TCgxpA37yhmTTmkmc8awM8+5+Oq7\nV6svEloMaQSlL8hi80YXI2BImA1djIAhYTZ0MYKfrehSXwQsMSTMm7WP/OCex9eoryIGQ8JY\nrP7H7z0w8NDl8yt/fYfmQ+GFv3z2N1UXFYghYeP94wfaJ+0uPeLPn1l36Fv79X2V7ai/Vl5d\nCIaEjfX8xVutn8y+t/eOXb5w4OvVCy/TXuL8Y0jYSM+9qX8yL/pCc+yT0576cb74KucbQ8JG\nevPgYpZ8Z2LiB1tOfxLVV9XXOb8Y0pzcd+NVK95/3jSPqq9L4Prhxbz8hfb77rte9sbTT3vj\n7pOHd/2J+krnFUMa2eprj99x+n9wW99XX1u8Vbv0fuu7veXd737Lbu2bn727/ceyyT+N75zY\nu8el2gudZwxpRGsv23WWFW2eQ/p0b0Yre7c+10zpmHd3/98W10/d58rFzX32Sf0VJYY0mseO\nn31Gm+WQjmx+33s9uO7mg3t1Oov26B76VP+dLmv/dL4df3VxGNJInj60tKPNcEjPNO9sFtwx\ndeCvFrR/EkMvqHRUc+wjsZcWiyGN5KTJxex8yGuafxx7xCvWfaC377FdP1JfX7hvN7/3X+s/\nclz7x/GXg3e7uTn25sgLi8aQRnFrG8nCt//txMR9zVvNsYdv+K1F3Te3ulJ9cRKf6Ax/GHd1\nc2S7oc+Hnt+6e/CXIy8sGkMaRfsRyjZfb95cP6SuH72+uXG28MJkLmp+5/f2H7mnOdQQEsoA\nAAWYSURBVPLvhu/XfCr1srjLiseQRnBv+w7pa+3b/UOamLikufVh1XUJnd38xp/sP/KT5shb\nh+93cvNuKu6y4jGkEVzRNPIfem8PDqn9L/Pi72kuS+mM5o/hhf4jzzdH3jF8v7c3fz5xlxWP\nIY3gd5pG7u69PTSkicO7N4+TXJXUHzV/DE/0H/mX5siy4fv9++7BHeIuKx5DGkHz2Peek2+3\nQ3p+6tydzcPAfye5LKXmx0J1vtt/5G+bI0cM3+9Xuwf3jruseAxpBL/YreGkybfbIf287+Re\nnezPgpnJVc0fw8f7j3ysObLl0MuTrVrSPXhY5IVFY0gjaF4r//cn336g6eWf+06e2r39m4qr\nkvpu88fwr/uPvLp9RObzg3e7rjl2SuSFRWNII2i+iv++ybfbTwV+2Hfygu7tAxVXJfXCVkOz\nuaH39elXDXwh6flfao6lfk1nhjSC7bs1nDP59nNNGrf1nfxI9gd4Z9Z+V98Od667+dfN6zT8\nSvf/zuu/07vacaV+UJMhjaD5HOk/rbuxzdB/Yy/M/gDvzNon/3S2PO/h5sbD523RvXHQyubQ\nH61/n/TCH7T3OVR3kQEY0giah7hPXnej+Vzgd/tONg/wbiu4KLE1r+h9LLfgwGOOObD35p8+\nvXPzj4M//Xhzh0evOqB3+M/VlzqvGNIITuvm8PJ1N5oHF3abevx71Y7ZH+Cdxd8s6gza59mJ\niyfH9YuvPHTPBZOHD3pmw/+uTRhDGsGKbg8Ln568cWVTx7Xrz32os3l+RXbyS0lTlnQ/X3rm\nFZ1hL7pLfZ3ziyGN4K6miFsnbzzePIa38/2Tt77R/FTzzkWqK5O6qH8wS7/cHPrBTkM7WnSV\n+irnGUMawZrmIanT1t1qv1d2xyubZ2w+ckG7owX3CC9O6NYD1w/msMmH5r6328COtvqi9grn\nH0MaRfMc5p3WfdH+b3of/S/Z/9X7TX4e8EbpxQk9d9PbDtqus+UBp3xt7bpDT/zHqc+dFp32\nY+XVhWBIo/h8k8X67+A7dejDl+3/QXltci8M3X7gA0fvsmjhzged/Mn8M2JIo3lm2+5e9l73\nUN2qYwY/y/6S9NosrU39ykH9GNJIfnxf1/onZP68/0VGX3K78sIgxpA2yn8/bklvRrtd+OSG\n7428GNJGevKWT1162XWb3+twYRBDAsaAIQFjwJCAMWBIwBgwJGAMGBIwBgwJ8+3Rm3vU1zGv\nGBLm242Tz/1QX8e8yv27G4PDRnCq+mI9MSR0/4BG8Fr1xXpiSGBIY8CQwJDGgCGBIY3B7Uf1\nqK9jXjGkDbh0yJntj7rvLDp42Vnnf/D8s5Yd3PuO6sVndc9dr75YyDCk0XyueYHVhSeuXLX+\nyKqVJy7sHttmpfCqIMeQRvKx5mVODr976OjdzUuwLvj4jL8CmweGNIqvNu97fm/4VT4mJl44\nvXk/dYvgimCCIY3gZ7t39/KWGU8t657Z8+kZT2FzwJBG0Pzklpc+MeOpJ17SPXd58PXAB0Ma\nQfPjss6e5VzzI4BeFXo1cMKQ6v1T8zj3t2c5eUfzeMPjodcDIwyp3q3NkB6Z5eTDzcn/EXk5\ncMKQ6rU/wXv1LCefbU5+NvR6YIQh1bu82cpDs5x8sDn5idDrgRGGVK/90WK3zXKy/bgv+w8B\nwqwYUr2bmq2cPsvJ9kdT5P5u6rniW80x4EfNVra+f8Zz92/dnNwcfn7J6Pg2Cgxqfzz3kTM9\n3PDsEc2pfxV+RZsEhoRBl7Q9HPPTaSd+enR75r8KrmkTwJAw6KmXtkHs8Zm1A4fXXrN7e3y3\nn4uuyxxDwpAbJpPY59w7131D0qo7z9178uhN0mvzxZAw7Lz131a+8IDDTzjphMP3X7j+yAfU\nF+eKbzXHNBfM9FoN7AgMaUQ37THjjPb8svrCIPX/Adz/84bO9oigAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "heatmap(cor(data_frame))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "e10384f7-cc76-4836-a4a0-f9cb366e5667",
   "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": "4.2.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}