klajosw_r_pelda01.ipynb

{
  "nbformat": 4,
  "nbformat_minor": 0,
  "metadata": {
    "colab": {
      "name": "klajosw_r_pelda01.ipynb",
      "provenance": [],
      "collapsed_sections": [],
      "toc_visible": true,
      "include_colab_link": true
    },
    "kernelspec": {
      "name": "python3",
      "display_name": "Python 3"
    }
  },
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "view-in-github",
        "colab_type": "text"
      },
      "source": [
        "<a href=\"https://colab.research.google.com/github/klajosw/python/blob/master/klajosw_r_pelda01.ipynb\" target=\"_parent\"><img src=\"https://colab.research.google.com/assets/colab-badge.svg\" alt=\"Open In Colab\"/></a>"
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "k6UFbvGLMmZ9",
        "colab_type": "text"
      },
      "source": [
        "# Jupiter 'R' nyelvú használat"
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "yCmXUqpWMyiJ",
        "colab_type": "text"
      },
      "source": [
        "## Kerner tipusok"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "xqKC-VY_USnH",
        "colab_type": "code",
        "outputId": "8b31d57f-5afd-4559-fa1d-e9ee97a4bef7",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 105
        }
      },
      "source": [
        "!jupyter-kernelspec list"
      ],
      "execution_count": 2,
      "outputs": [
        {
          "output_type": "stream",
          "text": [
            "Available kernels:\n",
            "  ir         /usr/local/share/jupyter/kernels/ir\n",
            "  python2    /usr/local/share/jupyter/kernels/python2\n",
            "  python3    /usr/local/share/jupyter/kernels/python3\n",
            "  swift      /usr/local/share/jupyter/kernels/swift\n"
          ],
          "name": "stdout"
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "VJ1Fv52UYpyO",
        "colab_type": "code",
        "outputId": "87eae664-b4a7-4e47-cdaa-6e50a54d2f51",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 178
        }
      },
      "source": [
        "!/swift/toolchain/usr/bin/swift --version\n",
        "!python3 /swift/swift-jupyter/register.py"
      ],
      "execution_count": 7,
      "outputs": [
        {
          "output_type": "stream",
          "text": [
            "Swift version 5.1.1-dev (Swift 7b97b0ced0)\n",
            "Target: x86_64-unknown-linux-gnu\n",
            "usage: register.py [-h] [--kernel-name KERNEL_NAME]\n",
            "                   [--user | --sys-prefix | --prefix PREFIX]\n",
            "                   (--swift-toolchain SWIFT_TOOLCHAIN | --swift-build SWIFT_BUILD | --xcode-path XCODE_PATH)\n",
            "                   [--swift-python-version SWIFT_PYTHON_VERSION | --swift-python-library SWIFT_PYTHON_LIBRARY | --swift-python-use-conda]\n",
            "                   [--use-conda-shared-libs]\n",
            "register.py: error: one of the arguments --swift-toolchain --swift-build --xcode-path is required\n"
          ],
          "name": "stdout"
        }
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "oLF_7aMTUqmE",
        "colab_type": "text"
      },
      "source": [
        "## IR az 'R' nyelv használahatóságát jelenti\n",
        "\n",
        "\n"
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "2dxIbEdmVASZ",
        "colab_type": "text"
      },
      "source": [
        "### Betöltöttük a szükséges kiterjesztést.\n"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "0FeyJkQNU1T5",
        "colab_type": "code",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 52
        },
        "outputId": "436f5ab3-9b16-4dc1-9032-636c044d2b7c"
      },
      "source": [
        "%load_ext rpy2.ipython \n",
        "\n",
        "## Ez csak egyszerkell futtatni (osztály betöltés) FIGYI : Load sorba nem lehet semmi más még megjegyzés sem"
      ],
      "execution_count": 8,
      "outputs": [
        {
          "output_type": "stream",
          "text": [
            "The rpy2.ipython extension is already loaded. To reload it, use:\n",
            "  %reload_ext rpy2.ipython\n"
          ],
          "name": "stdout"
        }
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "xYG3WSqzNISo",
        "colab_type": "text"
      },
      "source": [
        "### Ezután már a nyelv %%R   jelzése után a r program értelmező fug futni"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "uYdiI7WjVGD6",
        "colab_type": "code",
        "outputId": "ccb679b2-88b9-4daf-c15d-72e2c66f998f",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 52
        }
      },
      "source": [
        "%%R                         ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "a <- 50                    ## változó beállitása\n",
        "b <- -1                    ## változó beállitása\n",
        "print(a+b)                 ## kiiratás\n",
        "c <- 1:2\n",
        "d <- 1:3\n",
        "c(c,d) \n",
        "getwd()                    ## munka könyvtár listázása, lapaértelemzésban \"/content\"\n",
        "\n",
        "\n"
      ],
      "execution_count": 24,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "[1] 41\n",
              "[1] \"/content\"\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "NKJV4eRwCphn",
        "colab_type": "code",
        "outputId": "6bb9ec9c-9461-4052-e773-9da8d67b0f97",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 246
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "vilagegyenlet <- 42                  ## érték adás\n",
        "vilagegyenlet <- round(3.1415) + 1   ## uj érték adás\n",
        "print( factorial(vilagegyenlet) )    ## 24 (4 faktoriális)\n",
        "rm(vilagegyenlet)                    ## objektum megszüntetése\n",
        "#  print( vilagegyenlet   )          ## mivel már nincs meg az objektum hibát üzenne ezért megjegyzésbe tettem\n",
        "\n",
        "\n",
        "##------------------------------Változó felül deffiniálás\n",
        "pi          ## pi értéke : 3.141593 \n",
        "pi <- 1     ## pi érték felüldeffiniálása pl 1-el   \n",
        "print(pi)   ## pi változó értéke 1\n",
        "rm(pi) \n",
        "print(pi)   ## pi érték visszaál az eredeti változó érték szerint 3.141593\n",
        "\n",
        "## ---------------------------- Vectorok\n",
        "vec <- c(1, 2, 3, 10, 100) \n",
        "vec                         ## 1   2   3  10 100\n",
        "\n",
        "## ----------------------------mátrixok [ két dimenzios tomb]\n",
        "# --- elemek 3x2 mátrixba töltése\n",
        "mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2) \n",
        "print(mat )\n",
        "\n",
        "#--- elemek  2x3 mátrixba töltése\n",
        "mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 3) \n",
        "print(mat )\n",
        "\n",
        "## --transzláció (sor és oszlop felcserlése)\n",
        "print(t(mat) )"
      ],
      "execution_count": 10,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "[1] 24\n",
              "[1] 1\n",
              "[1] 3.141593\n",
              "     [,1] [,2] [,3]\n",
              "[1,]    1    3    5\n",
              "[2,]    2    4    6\n",
              "     [,1] [,2]\n",
              "[1,]    1    4\n",
              "[2,]    2    5\n",
              "[3,]    3    6\n",
              "     [,1] [,2] [,3]\n",
              "[1,]    1    2    3\n",
              "[2,]    4    5    6\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "oZqTM6zSCp-H",
        "colab_type": "code",
        "outputId": "9d670de9-62bf-4725-95a9-282019a85784",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 212
        }
      },
      "source": [
        "%%R           ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "vec <- c(1, 2, 3, 10, 100)   ## a vektor mindig csak azonos tipusu objektumokból állhat\n",
        "print(vec + 4)\n",
        "## -----\n",
        "print(vec * 4)\n",
        "## -----\n",
        "print(vec * vec)\n",
        "## -----\n",
        "print(vec %*% vec)  ##  # inner \n",
        "## -----\n",
        "print(vec %o% vec)  ##  # outer \n"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "[1]   5   6   7  14 104\n",
              "[1]   4   8  12  40 400\n",
              "[1]     1     4     9   100 10000\n",
              "      [,1]\n",
              "[1,] 10114\n",
              "     [,1] [,2] [,3] [,4]  [,5]\n",
              "[1,]    1    2    3   10   100\n",
              "[2,]    2    4    6   20   200\n",
              "[3,]    3    6    9   30   300\n",
              "[4,]   10   20   30  100  1000\n",
              "[5,]  100  200  300 1000 10000\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "9UhjrdolCv2y",
        "colab_type": "code",
        "outputId": "ef508b62-f5db-4ff3-8a4b-add6bf75830b",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 336
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "##  ----- három és több dimenziós tőmbök használata\n",
        "\n",
        "array(c(1, 2, 3, 4, 5, 6), dim = c(2, 2, 3))\n",
        "\n",
        "\n"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              ", , 1\n",
              "\n",
              "     [,1] [,2]\n",
              "[1,]    1    3\n",
              "[2,]    2    4\n",
              "\n",
              ", , 2\n",
              "\n",
              "     [,1] [,2]\n",
              "[1,]    5    1\n",
              "[2,]    6    2\n",
              "\n",
              ", , 3\n",
              "\n",
              "     [,1] [,2]\n",
              "[1,]    3    5\n",
              "[2,]    4    6\n",
              "\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "zegqbAC7C3TX",
        "colab_type": "code",
        "outputId": "79cb71ad-2468-4c12-9be4-b7349ff03bb8",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 301
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "\n",
        "print(class(0.00001) )\n",
        "## --\n",
        "print(class(\"hello\") )\n",
        "\n",
        "## --------  Szöveg műveletek\n",
        "print(nchar(\"hello\"))      # 5 \n",
        "paste(\"hello\", \"world\")    # \"hello world\"\n",
        "\n",
        "## --------- faktorok\n",
        "fac <- factor(c(\"a\", \"b\", \"c\")) \n",
        "print(fac) \n",
        "\n",
        "## ------ listák\n",
        "lst <- list(1, \"R\", TRUE) \n",
        "print(class(lst) )          ## a listák különböző tipusu elemekből is álhatnak\n",
        "print (lst)\n",
        "\n",
        "## ---- összetett lista\n",
        "list(c(1, 2), TRUE, c(\"a\", \"b\", \"c\"))\n",
        "\n",
        "## ------ dataframe jellemzője, hogy mezőnként azonos tilusunak kellenie\n",
        "df <- data.frame(c(1, 2, 3),   c(\"R\",\"S\",\"T\"), c(TRUE, FALSE, TRUE)) \n",
        "class(df)\n",
        "\n"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "[1] \"numeric\"\n",
              "[1] \"character\"\n",
              "[1] 5\n",
              "[1] a b c\n",
              "Levels: a b c\n",
              "[1] \"list\"\n",
              "[[1]]\n",
              "[1] 1\n",
              "\n",
              "[[2]]\n",
              "[1] \"R\"\n",
              "\n",
              "[[3]]\n",
              "[1] TRUE\n",
              "\n",
              "[1] \"data.frame\"\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "I-JM5rWDMd4T",
        "colab_type": "text"
      },
      "source": [
        "## Adat megjelenitések, diagrammok"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "T9-nOj42bDDK",
        "colab_type": "code",
        "outputId": "ed814119-bc70-43f1-ca79-4fb7d499c751",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 496
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "# install.packages(\"ggplot2\")        ## Csak egyszerkell \n",
        "#library(ggplot2) \n",
        "\n",
        "#mpg \n",
        "\n",
        "#View(mpg) \n",
        "\n",
        "#qplot(displ, hwy, data = mpg)\n",
        "\n",
        "plot(iris$Sepal.Width, iris$Sepal.Length)\n",
        "\n",
        "# qplot(displ, hwy, data = mpg, color = class)\n",
        "\n",
        "# qplot(displ, hwy, data = mpg) + facet_grid(. ~ cyl) \n",
        "\n",
        "#qplot(displ, hwy, data = mpg) + facet_grid(drv ~ .) \n",
        "\n",
        "#qplot(displ, hwy, data = mpg) + facet_grid(drv ~ cyl) \n",
        "\n",
        "#qplot(displ, hwy, data = mpg) + facet_wrap(~ class)"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "image/png": "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAMAAABKCk6nAAADAFBMVEUAAAABAQECAgIDAwMEBAQF\nBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYXFxcY\nGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycoKCgpKSkqKior\nKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7Ozs8PDw9PT0+\nPj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5PT09QUFBR\nUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2Nk\nZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N0dHR1dXV2dnZ3\nd3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiJiYmK\nioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJyd\nnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+w\nsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLD\nw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW\n1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp\n6enq6urr6+vs7Ozt7e3u7u7v7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8\n/Pz9/f3+/v7////isF19AAAgAElEQVR4nO2dd0AUxxrANRZeoiI1xIjtGU1eojF5eUmk31HtNfbe\nRbE3YomxdxM19hiNJUaUaCxYsaERKyoiYi8IooIFqcfd93YP2TvumGP3ttze3Pz+GJyb3bnBH9tm\nZ74pAwSsKWPpBhDEhQjGHCIYc4hgzCGCMYcIxhwiGHOIYMwhgjGHCMYcIhhziGDMIYIxhwjGHCIY\nc4hgzCGCMYcIxhwiGHOIYMwhgjGHCMYcIhhziGDMIYIxhwjGHCIYc4hgzCGCMYcIxhwiGHOIYMwh\ngjGHCMYcIhhziGDMIYIxhwjGHCIYc4hgzCGCMYcIxhwiGHOIYMwhgjGHCMYcIhhziGDMIYIxhwjG\nHCIYc4hgzCGCMYeN4NykuFsq0VtCEIXSBae0t3Or4/pe7wwJWkMQnNIFB4a/pNK00NbiN4YgPKUL\ndizQ/shzFrspBDEoXfAnJ7U/Djc0LHgWQZABO/J5Co5yDhg2fqi/62HDgm1dVxMsj9dtnoLh5baZ\nE2dFvjb6fNvy0vcliE4/3oILeRJj+AkRLAuEErzFjfnnlcJzQ7eR5reKIBhCCdYjqfDq3ryVeS0i\nCIowgtWPjLuyRnYypz0EgeEt+KbSrfvtehVdThoWEMGygLdg5U/x0923w4FvDAuIYFnAW/BHABrH\nwp/FIYJlAW/Bn92Hi+Xvw9P6hgVEsCkev5Loi3gL3ubQ4INNdbrWmmdYQASjueLTtVnXbEm+iv9d\ndPKJV3Dlp0NGnxPBSNReKQCRYyT5LhGeg99CBCNJGkinCkm+iwi2AA96UonaX5LvIoItQfAZUE9b\nJMlXEcGWILWHr+8ctSRfRQRjDhGMOUQw5hDBmEMEYw4RjDlEMOYQwZhDBGMOEYw5RDDmWL/gnLMX\nTcxOLrgUa+rFekKMVCMripN5+opGmm+yesFxnuNH+dxFlT72G/a91xlUaVaLvlN8I8Vpl0mivSeG\nBqZL8lVWL1iRCnADOTm5UxxAuheqdCIlN99X+qnrqsaZADH9Jfkuaxf8UutWiTrfaUdN9HiIKA2k\nz+0zjojQLNMkDKFTMqKDDSp6XITGF1WsoF+6NstElLZ9TiXDLovRLpOkdqSSvABJvsvaBcPQper8\nKTNRpUtG5WrW9UaVRnV4CQeDCsRpmCnab4OsAb9L8lVWLzhvnn/ACuTgCM26IMUM9G303mZ+o6S5\n1ylO5iS/kK3SfJXVCyaYhgjGHNsWrD69O9XSbRAZmxb8KmD0oiBp7nUshk0LHhMFUKB8ZulmiIpN\nCw6gn5BmGgWAwgphBCeXcBRYgeDvnlDJ4HhLN0NUeAvuAJD4WcVyHg8MC6xA8LHmj/K3tZBmhoGl\n4C3YDkAxSZUzsblhgRUIhpMdA39E9WNighCCXXMBVC6GBdYg2AYQ5Ai+CXC7hmEBESwLeAsu41K3\n2kC45k5COMgT3oJzUm/EJsDj/UYFRLAsEC8YKREsC0QIRhoZqKWmNC+0CaYRoSerIENLKDmC5QBv\nwc9RBeQULQv430X7I7r6iGBZwP85+HDDrnElFRDBskCAjg7Vhk8/Hb/hgGEBESwLhOjJAs35KS2/\nNCyQh+Dn61fdsXQbLIoggktEFoLjPH/9s8k2S7fCkvAWvB5VIAvBTR8D5DXG+4WgaTAf0aGdHtIH\nOTfNBsBcsH8WlfjmWboZFgRzwbtbxN0aPs3SrbAkmAuGc8MG/G3pNlgU3AXbPEQw5tiY4LRls85a\nug3SYluCr3lsPdRjoaVbISm2JbjtfQCN0jKBdSyEbQnW9nuMPW/pZkiJbQluSU8WDZY+rI4FsS3B\n530OXho22dKtkBTbEgx3p40xenGNNzYm2PYggjHHtgWnzBm7G136+udRm8wNoqXZPnoBcsCplNi0\n4CSPv8+HD0WVZnhuvriolZmDBXpOv7Cj8SNzGyYgNi24ZwKVdEQNB5i5k0omHTSr5st0pNF/hpvZ\nLiGxacHaGKZzULfVve5TSeRSs2re/guV5DQxs11CYtOC+9JxSNsYBZ94y9wIKhlnXizaa/QCssdH\nmdkuIbFpwfcabz42dAKq9LXPipNTO5kZmH3w2OO/eTwxt2ECYtOCIWP5j8fQpTm//bDL7MD7B39Y\n/drcfYXEtgXbAEQw5ti24DsT+m/EfFS8TQu+6n3i5tyelm6FuNi04K70L9/9pqWbISo2LVjb0TEb\n7/eHAgjOTYq7VcLaY1YgeFAslTRPtnQzRIW34JT2dm51XN/rbTQOxgoEp3j8srP7LEu3Qlx4Cw4M\nf0mlaaFGi49ZgWDI2vLzJUu3QWR4C3YsfGOa52xYYA2CbQDegj85qf1xuKFhAREsC3gLjnIOGDZ+\nqL+rUWB86xf8YFS7GVY/SJ7/XfTLbTMnzoo07li3esEPPWLSIxW5lm4GT0gwUiRT6FfBc619drEI\nwUh3vA1G6m9+q2RB73tUsmOZpZvBE5vuyTLN0rVUMhC5fLiVQIKRIslrHr6xjxxG3fCCBCNFo4n+\nzfq7QUgwUswhwUgxB/dgpJyYXbmCe4Ium9g3YOxTy7VGGDAPRsqJueXXvexU4WVR9pb3VdUR3yxL\ntkgAMA9GyglHehaDOzPfZOIJKln0l+XaIwjkOViHXSKVfBNSlNXGMNXOQbFmiGAd9YKoxG5zUXYV\nfUD3vGC59ggCEawjtaLLF3afM1lVh8FL20+1XHOEgQjWo2BSu136+Ut/mf7fsQaIYMwhgjEHc8Ga\n9cHKWTnI4qhmijHosGjn2yn6PxSjVVKCueClI7LVa/ugSve3z4CoEFSclQTlQ7jgbe1jdjAXrKCn\nljV9gyhtS7/rDLuMKJ3wD5Us3S5Ku6QDd8F00gN1ng2kJ2TMQAVp0P7XbFshRrMkBHPBna7Q4ZBQ\npd/vBMj3Q12E1897W4FVg7ngZN+Rk7z+QZW+aT7gRz/kOVjdt/P0kMXitEs6MBcMBRdOmXofFH/8\npYnSO9FyCKPCD9wF2zxEMOZYn+BXo/2Uy8yOblScYY6O9fXuojpXKF85ErnxOjeHDyOE+V4JsT7B\n7XeCKlyYe58JddNhlSPT0TX0X4mwoBzqmeqIQxycqWp1bw+tTnBGWypRKwWp6wM6GuV/txRl7f+g\nkrr9EBuH0DPFre+6Y3WC7/WmU4UgdTnTN9hK5mzwL3r4739bIjZuvI5K5gYJ8sUSYnWCNV5PAWKQ\n3cucUIQCvLBnzslfNgLIrBCF2Hg2PRSg7hpBvlhCrE4wnPcK69UkXZCqXtV0/7LKDCabXdXu/XLN\nkFsrnL9ybCXI90qJ9QmG/Pg7gtV1LuKFfjZ6tqnXg3e3WOHLQysUTOACEYw5tiVYs8BH2TNVl1/l\n49/xnsVaIwnsBEd51KxOwalmOQpeMkkNZwKZbrDNQ/Lhqm+eJVskOuwE11hzOZ6CU81yFBxAD8/p\ny9yjtaRDx4w7Z7n2SAA7wbXNqFmOgrX9I2HMH2owffBOPW6x5kgBO8HTNpmuJfmZ8WdyFDx2O8BT\nTyZy6pxV1LOwlyyWVhANNoKrV69tVwV1De4AkPhZxXIeRovTyFFwdpcWPbwvMllV/5Benics2B4J\nYCM4Pj6KvgLHrytpCzvqxDdJlTOxuWGBHAUDvCj+h/jqvkAvHmULu1P0Z3SS6VDSFpRg11zqYHAx\nLJCnYJuDjeD1bmXtKN4p8U0KfQTfBLhdw7CACJYFrI5gTZtnFCUPTyvjUrfaQLjmPs+wQBaCc0f4\nKDunIos/LlfebjWydKO30v+UGK2SEt49WTmpN2IT4PF+owJZCB73K8AZo9uDIjw+LIA/y6HirBzr\nkgfP/R6L1DKpYCe4Vl2aj/43HBnXTi8Y6a0ILc3l8GpN++DbHtXqivTboQ+/R5QOv0olv/0uRrMk\nhJ3glU0jY3c2W36sr1Hg/iL0gpFeXq0lAHngSIhWcCfU6OaK9Mm7xmhEaeh1KtlY4qODFcFOcCO6\nyyf3W9DUZF+zLE7RQ/6mHtMDUaUN/wNwGjnKbt8gNWQH3RepZVLBTnDNFCp5Wh2u1S15s+cl3IDJ\nQnBm96AWTVFLfEOeW/l/lZ+G3Pknj/aee0VploSwEzyzapv+HZ3HqCuvNdriUk9IaFCxwtdG64fJ\nQjB13jE5wTezxDCbRaiRtxzWA8u76PgVs5adpQ5i4y0+Xw/KxQUFP/kZFshEsK3D+zGpkgpqaahH\nZUfDAksJzi/+fjen+BFckG1yZ4Op4tY/94yl4H2NkS/8FQs1/Y4CrP2fYYFlBGd0Cgxun8Zkn9Vz\ncHWLZbL5YT7NQpKQO89u3ML3tC7bqbKb/WxRWikh7AR/sh35wv+BTw3lu1/Uqm9UaBnB3Q8D/NOe\nyTYaA7BTt2bX1FUAd31QKwZvGaOBDB/mujujfh48cbKNkP4mx/Pf3bn+r4vG/2kWEazWrgTShJlu\npH0/4p5YlNUuNzo40Wi3QjrTZ+TFzDIrDXZTycC+YjRTQtgJnoSKY2ECiwjWaAWHMIsdFQpmTsr+\ntOBBqHN0F/phcOGeouznO6mkX38xmikhLDs63qlqJYPu+lB+juq++atBAJtcmeysnwBu+KFO0dvD\n1JDmzYyEX1gnC+47Wt10QgPYCY7TvvC3hkF3r/oo/bvpJra8aODg5K5bWUM13juwJXpexM+egYF6\nQ/D6VnFyXCJKKyWE7WNSfgrXmi31mKQuHthMbRDnLt/kzgal1h7uHdgKTmtTwQHCTpvc1BDS0SEL\n2AlWLsysBeeMHnVNwkdwMjq8JEWCybNJRvGZh6+K975l8ui7yDlXrA+l4FEJC9vLDnaC/w1QC+Aj\nTjWbL/ikZzflcNSdEOx1qOFaE6kprXnrdk0eMdmX3zXr6K/rJs/pEdzZFxW6sDQ6VqlTWe+eeuO3\n3T2XmlmVhLAT/PkVSnBiA041my34FR0AdPHPqOKq1JViqtFy1EV0PANwRTdJf8ABgDu6VTIn/AGQ\n6oWKPmqapXVVkOP+R1H2ShsVaPoeNasqKWEneI9TUKXWrtxenZktOHo6lWShJmLH/ptOSxzgCUUd\nHU2ZDmftC3/doCxtaI+h18xqltcqKpnRtCi7iO4GOTfOrKqkhOVddPLqeRs5Xr3MFnx6IpW8aIMo\nTdQO30QJ1mgVBjE3w1rBbZlolAH0ib+UXxmF/0IqCW9blF1OR1Q6OcWsqqSEy9ukg5xqNltwjncS\nqIZuRRW/vxzUrZBrE4duBtjVk8lOoq6Sx3TjjBb/qIELAeaNdd/pkgy3nZiJTPeVz+F1c3Ov59LB\nRXA5TjWbf5N1s62f70pkaUJdh6q+yLvsrJF+ilDdbKP8ib6KPrqJU+rZvn5dzB0nOcPRwVnvrupk\nsJ8/KmCLjJCjYIKAEMGYw0bwo7eIJzgnXpi4SCXw4Gaxp6LkG4L1TmTGmwpFLBfYCC5TBKeaOQiO\n8AprGibKNL9nTboO9L7KZDPbdAhFxwfnxi8+w/ynC1OVmLARrCqCU83sBT8MomqeYzxgUwB6nQJ4\n7MtkR+wByPAQ5Bi+0In6ixxqPGNHbnC4BuvNTmEDe8F/0rfMT0S5ZGufg7s+LpYddhW1NRcW0N0+\nF8YIUZWocBCsNzuFDewF75tPJTdFGTqhNdqKuVZql1npdU+ImlfRD+pHfxSiKlGRQ5ys116J8Lqd\nKKEUZs1Qw66OTHbVaBUcbSJIzY99HsHTwOuC1CUmchAMtzr5Be02/5tMUDBfoRipNzJ6uVIxqISA\nMeZwqbWi6UlhqhITNoLrFsGpZvIcLAvYCI4rglPNRLAs4HKKHs+pZqkE556PM/GCV7V9g37AYE3C\nmWLjrA6u4jzWzMpgJ/jhoKCAgG+rcapZIsGXvcYM972HKo1zaPBtld+Y7IvgAeFeujHe6R/U9awa\nLmbrLA87wb4DttT7PfAsp5olEqykHnITUS+PoeYf1AOYPZMdfBQg04MZWeVFPcZmVrX2Kd6mYSe4\nDsA3kI6cKV8i0gh+qX3Zq0T1c2oHBvybmX2mfSweybzEdaLfOmpf5OMLO8H1HsB/X8PHJW+TmxR3\nq4TeP2kEqwLo1BdV7EA3zJUZixJEH7zdmJgN1ehfvtGfIjbP8rATvNYue0qjFo1L2iKlvZ1bHdf3\nehst0irRKXrIco1qKrLTv83XmdBf93i3cUA27NQN8JhaMwUWOJF40UBP7VdvX1ZiQKnAcLojMC3U\nKP6ORIJzZyv9lyFvo9U9nBz99F5FbglSjNfr95jk4tDIKPYEXrB9THqahOgAciz8z81zNiwgz8Gy\ngJ3gE/XfqVTm0xJfpH5S2F132GikMhEsC9gJ/iJKBTkba5W0RZRzwLDxQ/1dDxsWcBF87gfB7nSy\njx55gy4tOL1ff+yI5uy+NOS2pXF7D2omuZxgOTdJm9YrcZOX22ZOnBVpHDadg+C2ri0+/TCT9eam\nuOY5dboXck5vmt+4uX7MFH54HTRiXmApweyRTGi/qHt/+UebZic4bD/1177N1Ntt49EA7AUf+oBK\negkT2jKEegZKQ65N2vcMQI4HM/9/7F7qmFaaFwzreCiV/LjNrH2lhGVA8DIOtSqX/8jECyW90QB7\nO2ipx7pfJJQeqH6TW/wABAXax+IWqLOBtqNjFDMhXLsIy0yjiwsr5tKjdS6PMGtfKWEn+ByXF0pZ\nd7T06Vj6poXMo4+47cj5ZJzwpU+avqipicH0pKWOzAgebbylUPNG8PxG93Dvm2PWvlIizAx/frEq\nXzksUJ1w2s52c5PMGZ+VPW0iqnRHl+f5G3Ttim6ZWhDZDDlR1SQZnmch3vtR6RtaGN4z/IWIVZn0\nP8ea5t7rGKBe37TJKvTrw72tgmbpxbo71j5girmr6jwYrOyNjqkmG3jP8CexKuUN7xn+sotVSSgG\n7xn+MotVyY2cuWGmBnvHbE6QrCliwXuGv8xiVXLidlW/bm7dUKX5rUat6T5ByvaIgQAz/OUUq5Ib\njRZSd2XOqKP0F3rCRT9uw1jkByvBz6nb0n9WXuFWsxUIdqSHAwTNRZT2vkcl23+RrjmiwEbwwfdu\nwNZKwU7cxqZbgeAadKf1x6hfazIdQmf+LgnbIwZsBH8VCdBgCxz7llPNViB4jdO+lD4fojo67nue\nfbPbz2RINiuAjWBngBS7XNAYrT9pEisQDFvqu7VCL9pxJ6z5Dy+QpVYCG8EuatjgC6By4lSzNQi2\nAdgIDlyR+iV1rxHhzalmIlgWsBF8tX7Zlrmwuwq392pSCX706+/6owF3flzvD71s+qY196Rph4Ck\nrFsv2Hov7J6D6chxD25wq1kiwXv9N67z0a2r0qls/U/K6mYAX/FYvSVEmPdU0hGt+H29r1DTpVkJ\nTqFuJaMXHeNWs0SCPd4APNONLShLPdvEl2WyzZIBchub90LQYvhQ930vFAJVxkbwhncvw8pqQ/6z\nmFPN0ghOb0enzNSVTK3bd84XFWv/m7Q9FtZDtjbgabBA4/HZCK4ZB+AeAyl1ONUsjWCNF+U2Tzd1\npSz1XJOjO4L96cmifrkl7Chj6HjHKm53tGjYCK4QEOD9TkBAQIUALjVLdIpeMPhWQqfNTLZ++Wlz\nK+qGd+1qdfXOqKmSNEQ4lvdOutH9V4EqYyO4Wg5MHQjw5n1ONUt1F723/2D9UBmt7SrqL+MVO6Tf\nX9K0Q0AODhgYLVRdbASH+YU6XYdHnXqa3NQQ8hwsC9gIVm/9iXpE2jrMxIyBEiCCZQG75+DsU/Bm\n/gJucw9EE3x53vJUveyNhUseoDe+1KG5/vugZyvm6k97eLlmzimBW8eOi3NXljhXkz+Zv84u9gjN\nTnDXsdArsBc3Y2IJXt1u759eF5lsRLPdOxTItTHW2Y+cWq0fk73usTmqq+5p72Hj9fsHTBanmSZZ\n2jlqi4d5S0eUQqrHrweG6k9BYSe4tjrHPkMjizhZ+R7UQ0SqbskOeiLKC+RcFZdE6qmpCvNI2e4u\n9WClYAbK9qf/Tlo9LHFPMcnyoZ7tHiADi/BhOD3GrKPeGGZ2gutq9ipB487pq0QSfHMAnTL9PAYd\nHYZoY3TUY85Z2t3GMt0g2t3mHBC+kaVwZTjTGKHRrkfy807dB+wEdw+qHglTWnD6KpEE59CTU14w\nT0Ia+oDORsbocEqh7hHtmdBYLeg+/BAm2kQPunu9s3mLsPDhFd2h8BS1cBAvBtETr/ronf3ZCc7b\nTt2LLOF2WyDWNXjWoEvHA44x2VVdz59usRO18VznX7bU162TddY3+vLI75lsomfU1SmDxGmmSSYP\ni4tWiLK2+B2PPfEzeul9IItgpNw4NHqS/szrmLHhJqbE7fb8n36YpNtTRu7Tyz6aNjzSIlN8o0ZN\nuSVOzakzh23T/5VYBSN9RoKRWi1sBJ9XnS+EU81EsCxgd4rm9JbhLaIJjvl+FnoRb4j/8YdLetmb\nMybqx455ODtcv5c3vnlj+cds5wc7wV0iuL8zF0vwol6nDiiQ/U87m0WfaKN7uXRMeTCmm265skve\ne/8ZpFN6pPKEtd80EqeZcoGd4C8rvfdh9ercgiyIJDjXm7qFeB6CKvbJpu75PZls4AvqMcmTCbTY\n6vHbzwqpS/diunNba8TaYCf4UrwWTjWLJDipeEeHAYUxOnRjnbXb9blbLKvr6HCgz0shs4RvpIwQ\n5jEpuYQweCIJzvOirDxFLqzh+4Y6yHVHcHA6JV23UFIbulvSn4k3UY8ejvdhiYELsIH3Y1IHgMTP\nKpbzMHqjI9Y1eGmXo3/7xqJK9wbvP9RCF9woxm93dMdVTPaqZ+TxPrrAKScqh/3S6GtxmikXeD8m\n2VEnvkmqnInNDQtEu4s+O32BifcDN+bM1r+U3J8/Q//9YMqiH/Xvz26288U7WrQAp2hKsGsugMpo\n4hJ5DpYFQghW3AS4XcOwgAiWBbwFl3GpW20gXHOfZ1hgvmD1xkGT9S7p6lGfNj6kV7wndJz+XPTo\nsNFymIWft2LADIGW3CqF+HGhHGZq8xack3ojNgEeGy/Dab7gHnMTj3jq3id87rV3ucMGJjt1WHxs\nsG6a1NJeVy60iTD3qwSjoOnqpL8bCzajyARHg85cG8F+GIpQb5P4BCM14HovKknoU5SNp0OVXvmg\nKJvjRyWvmLkqGk/qqSkX+T5YMg7R/+UHpkjwTcF0P42S9QBIoQTrBSPdEailpj/bfQ3QLkaqZvZe\nq10qwqEoy21Eh2RoFyNNRkbsERDtrz6EdXwnGb4Pvk8PVjoVxmQdqWN0X62ibD7dbZGseyjzyAHI\nMPdvSThOD6WSrah4LkJCjyEr8GQ9c0mOPVlT+u5d4am7nLWuOalXleNM9rfWOzd66e6ydgbv2Oor\ng+7kfqP3LWB/4uRBvOfvO9uwn9jCW7AYPVmxizbqrzD4Z+u++j0b15es0f97ur1s5WOQAdELIvIl\n+aLna37mEIBPkOdgaXuyCFwgPVmYY9s9WdeGdllh7nn1vtLdk/WpUrWyy1D021b1yDofLzGzGaUh\nx54syTivuJi6zMxmptl/nzC3CtuI4F2WpF7yR3a4+XwTe9B9pHntKA059mRJRif6zrCPeasfDaZ/\nvXEtS91Oy+3uVJL8HaI0qyrQ6xqY1YxSkeFzsHT40/0jsw+atW/wbCqJZDmg69g0KtGgZlBdqE2n\nRLDwDD1J/beHpJa+YQnMoCN3tu7PbuOngdSf0unBiFJ15XSAc65mNaNUbFrwU++5m9r9bObO9RqG\nfv0h2w6lZW02zvNGrqI32alPxyrI6Tf8sGnBkLdrHcfwbnqs6fET+42T1u0yEevnwsCRYk1itW3B\nNgARjDlEsCRkz2narcTll0WHCJYCTZvfc+42O176hsJDBEtBUl8qSWtria8mgqXgOD3hDdnRISpE\nsBSkKwoAoodb4quJYEnYELz0e2VG6dsJDxEsDcmRx9GL3ooJEYw5RDDm4CZYvTI4eImq9O34c6e3\nsqtewLHHg5QdLqC35oFmXUjQQrPH8+EmePrk3Pw54yT4oudecZDkc78o+8b7DDxQihJfdOHYbNVP\nYaVvVzK4CdZOYlFIsMzKuvVUsp8J/7CLnmd8dqwY3+RHD0sIMPcQxkxwYYyOFtwiW5vFXHqQUhwz\nkGotHdnnAbeY+CzRzlX5ztyZi5gJhqb3AFKkmMkSQ8+RmryjKHuNHnC1eI0Y39Q6CeCZj7l74yY4\n0St8otdlKb7ph1YzOw7VZRc3mdmtpyiXhjve4yd7nTN3b9wEQ94/MRIt+fvo4F39bOohtmNouZIf\nezLb7J2xE0woDhGMOdYn+PVYhXKFJSZ8n2ulbHdVl41vr2ylN1fhaE1HV/QgvKeDlAG66F2Q8H75\n8p7IjQXF+gR32AH5480d68qD24pkuOfDzFRN9b4Dj5XM6hcP7fdCkssWxL4FgScgq2ckk7frCuku\njcVrqx5WJziDnv+vtsC78zn0g++25UXZNfSD75HpRdlxdCiJLV8i9o2nb7dfMfNcDr9HJZkVxGmn\nAVYn+K42OosoK5aYZgIdPvHQzKLsfHppgIujirJ96KUfYj5C7BtDR2cpYKJuL3ei0/KiNNMQAQTn\nJsXdKqF7XyTBGs/nAKd7iVK3SfbTAzJ6M5FLz9LzyUbvKcoe/IB6Bg4ciNj3tTf1nBMxqSibXS4B\nYLCjaE3Vh7fglPZ2bnVc3+ttNFxBrGvwWc8RfYOfi1O3SaaEjAucr8suDBjXdKIu29Pha7fPkR0d\n+71Gd2mvez4fXe79KhU5xGHgAW/BgeF0dN600NaGBaI9JuVfumWZqEnPzxb7K35xtlj/cPKGK4Am\n++J9/Wz67M2oLQWGt2DHwpEoec6GBeQ5WBbwFvxJ4erMhxsaFhDBsoC34CjngGHjh/q7HjYsKCb4\nVIgy5KThFijudVL4rWe7MS/W+ii7oNem3eOvbKn33uJokLKJ3mpl61wdnRfospFujo56ESRvtVco\n/hCwpWbD/y765baZE2dFvjb6XF/wHf+n8CzgptE2JZLrcw3y+u0ofUPe/DE4Hy77ol6lx7Z6DQ+9\nmfX8rgelw/lW39UAAAwUSURBVBMFcyWNdbgCd12YSb037c/Ak2rM68Is7yTI6R4lSqu5IUIw0uTD\nWtrpzdRY/DeVRBnFaSmZM+FUkiHFPI+W9J/lWNR6X6Po9ZfWMJ1TM+lzVCSzRE+XEVSyxI/ZmP5z\n1kV0iKZ7QB53Fba5ZiFCMNIzc7V46y2cMeMIlZz4gV1VR2ZQSXZTtt/Mg2B6gv6PxxClA+nXf1uY\ng/J7enbgAWbBh5b0b7ORWfChHx3M4Xj9ouzuRVTy0ujJwgJI05N1ppsGNL1Yrqb+0ucNwAop1lKY\nvRYg09v46lLIjnEAqubMdeVofw2oOzOH+5/uKoBPmeijx12op1wPZgTPUwWVXbhClFZzQ6JgpMu8\nB/mwDvV12LN/0wFSzAPI7928n+cxZPFk5UAvvdcHC3wHeesWcIEe9p9W1VsCeESV/zjqvSDa59k/\nJEyCsX+lIlUw0pxEDuMsCm69KH0jQci4ZeoPKfNGsRuw7MRiYTZe7UvXz2YdLBbvXXXzFcgBEowU\nc0gwUsyxgmCk99oqvGbqep9TOym8wwWKzLzAS9FKb6hcd3sH1+3C1Bzf1E//gm055B+MtMD3Gmim\n6YZwhMRS92wsn7hKYd04NdzyZi6s33+cAxfsBQlY9drrIagGRZa+oejIPxjp9SFUomKWWUnTVivM\nC//mdAj+cGYdxNr05LHmgqwYfYie0/JEDhcp+Y/ouEx3GekWYXlEv2gXSHAT+uCdwvSR16Df0LYN\nF6LmvXQvdeGKMBZG/oLzvVIA1k5j8gqqxX8JE+5i8WJ6liCzksZAL4AUB0GGr6f7UA9JU38Toiqe\nyF8wXFa29x+ku6u6GdQ2uEeWie3ZUzBC8Z2v3tBXn6ru9osFqRmOe3fwmWTx1ZzAKgRTR1nxoK4Z\n5k/kMCS/eBdcjoDDaJ5KMg29VKxCMMF8bF1wevEsp3NDeumbWB6bFqz2ruLqrNezMa9xU+UZ9ObF\nmVzFtQoqhruMsGnBHQMALtkzB+LWURp47sPyuNzv8gyyaogy41tQbFqwKy3Ta2VRtjO9esNilosv\nt5tAJWs8RGmXkBDBnkyXcRfqgRsWEcEssQLBnRVqOGfPvHveNlwNz3xYRpQ85JIGme7rxGqaYNi0\nYLWfvYuL3monizxDAmLRmxdnalUXe7OjV0mHTQumMBh2YWJllFL3lSe2Lhh7iGAT5MTJYdgcP4hg\nNE2r1KosyMtDS0IEI5n8uRpeOZ+wdDN4QgQj+ZQO0jC4l6WbwRMiGMkXdC+1NvaGNUMEI1nung4J\nVU1N27cGiGA0Ix0cXOQw6oYXRDDmEMGYQwTrk5FYbPTXy+umui6zrpsKLJ+XaJF1sIwggnWohzQZ\n7LlLlw8PDPXaiNx6pfcQxSxk6R7PQU0Hy6EfjAjWsXIBdeD5pxRlI8IBClqghklf7EjpCz2IKE1T\nUMf+4l+EbyNniGAd7en4ecuY6C/aEA5/rEZsvJCOYnhhDKJ0Nz28GqMQDqXO8LcKetEhdGYfKMqO\nvkglq1ERgldtpZJjUxGl0fRMjORugjbPPKSa4W8NHOqUBYnezEyWcy1ewj1v1HI2yb7J8DwINVA+\nyzsBsrocQJRKCZnhr8d2f79Oev8f+4MUbeORG19ooQxBL9p+p7Off4SQbTMXMsMfc6xghj+BD7Kc\n4f869m7pGxFYIccZ/n/5jO/2HafhbwQkIsSqfIvZgp/75QNsml76hgQWiBCr8tgELV83MbG5KQ7O\nppLcEDP3JhRHhJ6s5xe0zJhtXovgPN09lPadmXsTiiOQ4D3GH+mWGOKIShkDrzvKoZMAB3gLTtTi\nkphoWGC2YHgySBHMcgoYoTT4Pya5fUZR/rPPDAvMF0wQEN6Cj33xQw6Am3EBESwL+F+Dc6c2OGw1\ngtVnD+tHKtZcPIR6mUBzfX+y2A0SHSFuspL8uxv1RMtT8DPFqBm++5hsZkjYLP+tqI3VPXrOaTkX\nVWotCHMXvaGN8WdyFNzvNECOB9NJNp66lVMpUMvk/Uqvu9A1TpqWiYZ4IzrkKFgb4lK7moqWADrc\n+0yjFZ/e0vcOlUTI8LfghG0JDqbjYHViFnluRy+KNOQqYuNwehGRn6VYv0lMbEtwRLeMgk0dmezh\n1mnqXU1RYx9v+N2G096mhsZaA7YlGP5uEThdL5DpkdYBE9GBGOK6KIc8RpZaCTYm2PYggjHHtgUX\nREegFx/FA5sWnKGY/Esz+Yeb5IVNCx5BPQKrA9Ms3QxRsWnB/vQT0qxDlm6GqNi04A70Q9AAAcP4\nyxCbFnw6OClrQxs5LJ0hHjYtGM71bD6fw6qo1ohtC7YBiGDMIYIxhwjGHCIYc4hgzCGCMYcIxhwi\nGHPEE3ygUaA+9k6CUamqYFU5vidYVU7/Eq6qKp8ECsXHpgcd8RBsgDCLsmuZFi1YVfd6C1aVkL/h\nut+Fq8s0RDB7iGChIIKFgwhmDxEsFESwcBDB7LFxwYGC1QQz0SEiufKgr2BVCfkbbtgsXF2mEU7w\na8FqgiwBI6kL2CwBq8rNK30bYRBOMEGWEMGYQwRjDhGMOUQw5hDBmEMEYw4RjDkCCP77k6p+hcuH\n7W/gFJIqSFW5Zezs7DrwatbWelWVt4RpFlOVAM2CY2UShWkVO/gLflT1lHqSkv7XS5d/VJP4hIHW\nVZVaQmQ9biQ5Xy0YFyRIs3RV8W8W5H7hlihIq1gigOAIgEvV6X9FhFDttuOxFoOuqht1+Tbr3n6A\nMzUFaZauKv7Ngqk/fJYoSKtYIsw1eJ52+YaZw6jEDbXYI6eqYqspXQN51gSveocJ1ay3VfFvVlKD\nnELBgvxnsUAQwQfqPKJ/TBxPJXX4xX58W1XCwMSc8Ib8WjW2jE+6QM0qqop/s/wPQ6FgIf6z2CCE\n4C0fF97MzBpKJa63hKiKJr8izyBlWQs/1wjTrKKqeDdrQzd4K1iIVrFBAMG7Gr69GYz0BUh+TyVE\nVSkJ1O1IOVOhnkvjcjSA6p1UIZqlq4p3s9q4uLmVd9kjRKtYwl9whvs97c8tT167RKtCewpSVVTN\newWTv+XTrP3Vb8MGN40QzdJVxb9ZUHgEC9AqlvAX/FtZ6tnQ7jm4xcChT51aoIIzc6xqTnXnkHu8\n2jW/lsN/T4AQzdKrin+zCgUL0Sp2kJ4szCGCMYcIxhwiGHOIYMwhgjGHCMYcIhhziGDMIYIxhwjG\nHCIYc4hgzCGCMYcIxhwiGHOIYMwhgjGHCMYcIhhzMBR8vq7+DwD1qOoV6mwGuNbkfZdvDpe8T5x2\n44ZbAfLepZIcuz/qMp+vh/jqojdaNDAUrHqm/wNgm192wKV3U6D+crUmolJ6ifsUCh7TH+C4y0CA\nI7Xe7k19rnEjguUFdehe+rJ7IPUjr/u/a3fN/ikUAuBydn4Zeuj6jQLY0/DfAU/hXIMw5ZcnAdbW\nq+338K3gA3UAfphQD2Bif/r4n+3eaGZdaFP2s6ja02rXOmDhX8tM8BQcX2kr/WN7kEY95tQNp+k+\n9OctvtqcQv1IdroCC9tAXJkoiKoPT+3uQb9BbwVnUxnvsx8lQ+Nt1N7XHVLUXevCMzuIt/sdVnta\n9JcyG0wFv6umf8RU30svXJgw8J2aq6kL6xJfu0bbYXUQQGaF/DgH6ixe9ilkA2wJeisYAn7Nci7o\nt+l1xefU3itbUcd0oeAqAJdrWva3MhdMBX9YeJMV4Wff5w31UUBMtaN0UfbmSrHzKtWqVcshJa4W\nla+UpJn+9Tf1AooEz+1yqBls6rvvK3rvWb0AzhUKpq7B1nodxlRw9aK76OcB87c+oq7BQxY92E3n\nQ1Zuaq3dKq6yBnLKPNvR8CX8zgi+WGPKfHhULzyc3ntFG4A9RLD80AleMlWj6b1gWOfsgLT/HLth\nv6NAc8zp8pP3k+BcGMSVj4CNn8KyFvAi6Fut4C1PQOPa8DzAR59H03tfdnisalcXXpZ7QwTLCp3g\np81r1O6Q+abn+xXqLAI47OXk8s1OgL0NP/oqBuI+GlP/41Pw9NuPA/9xG0sLdosB6GxfANDv3Vzt\n8T/lg08W1wYIcviVCJY5AcYfxfEPt2EV2IbgEiCCMYcIJmABEYw5RDDmEMGYQwRjDhGMOUQw5hDB\nmEMEYw4RjDlEMOYQwZhDBGMOEYw5RDDmEMGY83+PHOBI1doKQAAAAABJRU5ErkJggg==\n"
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "vfa6j7GX7Xv0",
        "colab_type": "code",
        "outputId": "680334df-868d-4b04-a4d1-2fbf881c8f8f",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 496
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "\n",
        "##   !apt-get -qq install -y libfluidsynth1   ## csak egyszerkell installálást futtatni\n",
        "##  installed.packages()   ## az eddig installált csomagok listája\n",
        "## install.packages(\"dplyr\")\n",
        "\n",
        "\n",
        "x <- seq(0, 2*pi, length.out=50)\n",
        "plot(x, sin(x))\n",
        "\n",
        "\n",
        "\n",
        "\n"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "image/png": "iVBORw0KGgoAAAANSUhEUgAAAeAAAAHgCAMAAABKCk6nAAAC61BMVEUAAAABAQECAgIDAwMEBAQF\nBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUWFhYXFxcZ\nGRkbGxscHBwdHR0eHh4fHx8gICAhISEjIyMlJSUmJiYnJycoKCgpKSkqKiorKyssLCwtLS0uLi4v\nLy8wMDAyMjI0NDQ2NjY3Nzc4ODg5OTk6Ojo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERF\nRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dY\nWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampr\na2tsbGxtbW1ubm5vb29wcHBxcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+\nfn5/f3+AgICBgYGCgoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCR\nkZGSkpKTk5OUlJSVlZWWlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6Ok\npKSlpaWmpqanp6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3\nt7e4uLi5ubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnK\nysrLy8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd\n3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w\n8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9vYkmrAAAY0ElE\nQVR4nO2deUAUV5rAzWQ37Di7Ew0yJJlkNDPOJmYmOys0V3NoFBUvNBqNGJWISDQRFfHAA2KiaEZj\ndDTxTHBFgzHxQCVoPKJ4ooIRREUjIh4gHkADTb8/t6oxKtXdUPXqVb9Xr77fH19jveuTH91d53ut\nEMA1rWgnAGgLCOYcEMw5IJhzQDDngGDOAcGcA4I5BwRzDgjmHBDMOSCYc0Aw54BgzgHBnAOCOQcE\ncw4I5hwQzDkgmHNAMOeAYM4BwZwDgjkHBHMOCOYcEMw5IJhzQDDngGDOAcGcA4I5BwRzDgjmHBDM\nOSCYc0Aw54BgzgHBnAOCOQcEcw4I5hwQzDkgmHNAMOeAYM4BwZwDgjkHBHMOCOYcEMw5IJhzQDDn\ngGDOAcGcA4I5BwRzjgrBtzYCDPBNnVaC0wcvB+hjuqCZ4M/x2wLEGAGC+QYEcw4BwZbC3KJ6x80g\nmAlUCy7t5+Hd3qt1VIW0AAQzgWrBoQmVQrwREyEtAMFMoFpwW6v9pdZTWgCCmUC14I777S9ZnaQF\nIJgJVAve4RkSNyk22CtLWuAmwRVlbhlGt6jfi65MT05MybjnsN0tgiv79XwrqAChhi3zvre5YTz9\nQeo4uOyAdIvGgq0X7woxehdCxUGovsec7TMjrJoOqFNICU7zfvTj3sl2QkbgZ9UyP/gM7zraioLE\nnwdf+2qB8PJxupYD6hUNzmTdOm5nUF+8jGRR4f8Aoc8WNgruUzE5R3g5MA2h+vMlGo6qR4gJdtjX\nGT9QeTay2Z0ihKruKGmBDWX3Rsu/FP65dDU6aYp+q8cdDcfVH8QEe0g3aCr4p0Qh3O6L6mcEBoy4\njR74pxWsC6y2mYQ/sz2jNBxXf6gWfOsh7hJcsWBCegOq8T+LLCM2P9p6f2H0P6tQcZT4c5Am4+oV\n1YKferoRh5raCL7uk34sZRBClwYEB6yRFt7qJwSbWYtxdYtqwfEzG1/d9A6elC2EsTkuSnvvQNYZ\nqVqMq1tUC66PyLW/uklwH/Gq1aq1LkorYs2BCxuEd/GRbXCCqxFiO1m3pRu0EZy4UwjvHWu+0r2w\n8fNDXf0RGAzt7ujQRvBt35X7p7zbQqVJWxGyBt/UYnzdoTfB6P7y6dtbqhMq3mDy0S5Nxtcb+hF8\nZcVKud+rkdeFEHuK7Pg6RTeCt4ekrfH/SV7dH8NL6jO6NRAdX6/oRrBvlfAFHCKz8r7IkBmOFzAN\niV4E3+ktxmB4VypFL4JtJsFtbQDJLo2BXgSjT0cW5g/4Wlmb3O6BgeuJZqE/dCMYZUbHONw10jzl\nphJUM+gHsmnoDf0IVk7GYiGcN/jVQ54Fp60Qwi9DaadBF54FXw2pQWjyBtpp0IV9wad7B3bdg9d0\na+eh/klkstAtzAsu87uMyt88jdfYdrWWSBI6hnnBq1cL4acpRPoyIswLXpwhhLyxRPoyIswLPtO3\nAaEPvyPSlxFhXjBa4RcXOl1dF7VHcixkktEf7AtGVXmV6jooME1MMJ0hk4zu0IFg1XS7hFCJ3CuN\nvGEAwVa72/AHtPOggwEEI/tFxkCDXko2guCkmbX1n8TTzoISLAu2ONxrjYf187CQT53M5GUI2BVc\nOyq4rxnzFCXwCHYFz1iJ0DWTUd94xGBXcLA4qcr78BZWCbuCQ8Q5VWJ+VtcJwK7ghbNtKC/IoAc3\n5GBXcMNsk7nfZXV9AAwLJk/DrhVHaOfgdgwkuLb71LToWNpZuBsDCf5MvMlyjMJ7q3WPgQTb/6ub\nF9FOw80YSPCsTCF8vIV2Gm7GQIJLfbLLNgQb7dYOAwlG1xIGzr1POwl3w6LgqqNF+MMCTWFQcJYp\nPiocns8nBHuCa3weIJQ5Dn9g4EnYE3x8ghhhRlFCsCf44nAh1HTBHxh4EvYE27pnouqRCidrAFzB\nnmBUMc4ckoY/LtAEBgUDJDGi4G/HJRnnOrMBBY9POL3LzzD3ehlPcGkvIVzpTzsNd2E8wQenitEw\nx9nGE3xLPMT++W3aabgL4wlGKcMy1/pcpJ2FuzCgYJQzd7nDgvTcYkTBhoIlwTUrp2+EG90Jw5Dg\n+wFLD6T0AcNkYUjwQvECw4xt+CMCTmBIcHShELbNxx8RcAJDglPFeWFnfY8/IuAEhgTfNa0+vrCH\nFX9EwAkMCUYPln74FTzRTxiWBAMaYGTB1mraGbgB4wquiw3o3rWAdhaaY1zBSSsQuujP/XkVMoJL\nbjluY12wWZzF5z3u38KqBUcidO7VZ572uSItYF2wfZqm6PO009Aa1YI9EAqaWl+TGC4tYF1wyqfC\nn2agjXYaWkNCsJcFofp20gLWBddP9AvtdYl2FppD5B0sfM5d+KO0gHXBAnW0E3ADqgW3atfh+WiU\n/+In0gIdCDYCqgXXXC/IOYuuZToUKBBsPXXSCG8mKpA6Di57PD1RXYWdmAFy2xYHjv3AlCe3NqAI\nUoLTvB/9+F2knVdkL4MRcU5cSFJubUARDJzJspnF2Osu/lCAawgIthTmFjm5yif/OzhQDCFwoVAT\nVAsu7efh3d6rdZTDncbyBc9IttqWGm4SSTehWnBogrgu2Y2YCGmBfMHWT83mZKNNUOYuVAtu23iP\nTa2ntACOg5lAteCO++0vWZ2kBSCYCVQL3uEZEjcpNtgrS1qgH8E3eb7ioH4vujI9OTElw3FmOr0I\n3tS5v88y2kloBwPHwXQ5F16LrEN/pJ2GZhhesH0J+aMTaaehGYYXvDRdCIem0E5DMwwvuDjkDqru\nfYx2GppheMEo22z2z6CdhHaAYM4BwZwDgjmHqmDLoiEJV/FHAGRAU3BD9y+v7vEpxh8CaBmagvdN\nEsKhD/CHAFqGpuB1K4VQ0Qd/CKBlaAo+PVQIGbPwhwBahupOVvzIjR+ZDbcWmXuhe5h0bMl3cK+d\ntsBxMOeAYM4BwZwDgh9S8W5QwIQa2lmQBwQ/JHIXQis5POkCghup7iZGDpfqAMGN3BUX2wHBStCX\nYPTmWYT2DKOdBXlA8EOKu/QN78fhWh0g+BHlXD6hDII5BwRzDiXBVi4/DlmEimDbFFNEYA5+14B8\nqAheNgehWybHBxIB8lAR3FO8yD87G79vQDZUBEeI03ok7cPvG5ANFcFrJzSgX/yq8PsGZENnL3q+\nb0i3fPyuAfnQOg7mfq0EVoATHZwDgjkHBDvA1+qJIFjCYt+QsOO0kyAICG7KptgGVOZ3h3Ya5ADB\nTRlcKoT5HC1DDoKbMrBMCAs5WqUaBDclbaIN3fEvp50GOUCwhGSfXgEHaSdBEBAsxcbX86wgmHNA\nMOeAYM5xr+DqpKCwVTzPr84e7hU8dA2yfPAZfp+AYtwq+J64inSDGb9PQDFuFfyLOG8Sj4/wMYx7\nP6J9yxE6MRi/T0Ax7hV8yDdhrPk6fp+AYtx8mFSdcwruxnIrcBzMOSCYc+QKLj565JKynkEwE8gS\nfGH0H9q88kqbP7zXfOWm6FuwbfPE1Nu0kyCBHMGp7ecWiK+Fc9svkN+zvgUPn37km86/0M6CAHIE\nxz56iqhKwTrduhacFyWEI2Nop0EAed/BS8RjmwfK5oHTteDNi4RQF0Y7DQLIExzmk4e2/WmEop51\nLfjnIUL4KY52GgSQuRe9paP/P466qGMpzC1yMq23rgWjmPj9a32u0c6CADIF73zNN+CM0xql/Ty8\n23u1jnKYQ0zfgtHO6UsraedAAnmCe75xAm3rMM5ZjdAE8fdwIyZCWqBzwbwgT3Cq+EDWgwnOarRt\nfFar1lNaAIKZQI7guEfzZNe871Cj4377S1YnaQEIZgI5gud1SC0SXy+kdpjnUGOHZ0jcpNhgryxp\nQVPBpQdK1aQJyKboYJNJ5mR9RBeO9Gzz5z+3fW5EoZMqlenJiSkZjpNeNRGc1H16j6mKcwUUUxs5\nJDFgwxMbZO5F24oOHz7f3O2QZQekW54UvCdGCHG7ZacJ4JKyFqH64BuPN5C6XJjm/ejHrGg7nbo+\nLp25VwgH4S2sPd2qUdPHX+UJ3t75pRcE5I1RcdzOoP6PNy3eJIQtCq5UAJgMLhHC5EOPN8gT3HHT\nqTwB53VknMm65ncBXfTn4eIM62T3uYP2m+seb5B5Ltp1DXlnsvIHmCNd/H0ARMnsFjjmia9gmYKn\n/uCyBpzJYht5gv/2m2ddfQfDmSy2kSc4Ny/P1XcwnMliG9WHSTLPZAGUkCO4w60OjTitIutMll6p\nmxFgfk/Xs2bJEXys/lgjinrmQvC0hTa0o3/L9dhF3kd09UH0YN58ZbOTcCHY/iRkTz0vESNP8OB4\nNCx0mDJj/AgeeKOlagwjT/CfGmp+X2Fz/h3sCi4ER/2IULGun1iXJ7iDbZsZ2V5U1DMXgst79hsS\nVEA7CzXIEzwk7IUMNL2Hop65EIzQzSu0M1CHPMG1mw4itOimop45Eax34PFRzgHBnAOCeWHT8NGH\nnGwGwZwwfUJxfu/NjttBMB/UBgih2skROwjmgyvviNHJHHMgmA8aOlsQuhruWACCOSEjbN0yXye3\nZIBgXrjy5XpnF65BMOeAYM4BwZwDgmVh3Txvmz6XIgDBcqjrlrx9Rl9dzpMLguWwarEQkjNop4ED\nCJbDhyeEsDeJdho4gGA5LFkrhMVf0U4DBxAsh3t+6wvWmGtarsgeIFgW9xZEL66mnQQWIJhzQDDn\ngGDOAcG6Z9+yvc2UgmCdY3t7/Pr4/q5PsoFgnbNluhA+Xu+yHATrHPscc8fiXZaDYJ2zaoUQvna9\nJjMI1jn3/baUbTO5nmUCBOudillvzWhmCS8QzDkgmHNAMOeAYEUcnr2ghHYOygDBSlgwZM9m0wna\nWSgCBCug2t+G0HUnDwAxDAhWQL598VUnj/AxDAhWQFWgEG52p52GIkCwEj4ambMzIId2FooAwYrY\nOzm5mHYOygDBnAOCOQcEcw4I1i0rg81TWp7CGwTrlWXvW9CGAS1WA8F6JVhcz6hvM1eCGwHBesV+\nQi3a2YK/TQDBeiXqMEKVPi0+lA6C9crNkNGTTQ6rNjsAgnWLLf+IjAceQTDngGDOAcE4WLasbnH3\nlRFAMAY3/D5e13sx7SzkAYIxiBF2Xm1hyhahoQUIxsAsTno3x/Wq6CxBRnDJLcdtHAuOvCqEd87T\nTkMWqgVHInTu1Wee9nFYIIxjwUfMudcXD6KdhTxUC/ZAKGhqfU2iw82kHAtGeWMGLqunnYQ8SAj2\nsiBU305awLNgHUHkHSx8G134o7QABDOBasGt2nV4Phrlv/iJtAAEa8XdA+fkV1YtuOZ6Qc5ZdC3T\noQAEa8Rm/2nDe1bJrU3qOLjM4cIVCNaGioBahDIS5VYnJTjNW7oFBGvDnllCsIbIra7BmazaCjsx\nLd8QBmBwKk4I5b3lVicg2FKYW/TkQeF3kXZeCZWbA6AEa9huVDlgu9zqqgWX9vPwbu/VOqpCWgAf\n0RpRPi6w21bZtVULDk2oFOKNmAhpAQhmAtWC21rtL7We0gIQzASqBXfcb3/J6iQtMILgw0u2Wmnn\n0AKqBe/wDImbFBvslSUtMIDguJiNc0IZX8pB/V50ZXpyYkrGPYft/As+MkoIX82nnUbzkDkOXvTA\ncRv/gpeLszRfG0w7jeYhI9jzuuM2/gXvShJCtuyThnQAwfjUh60pyfJhfOY7+IhWQfXCt6eW0k6i\nBeCuSs4BwZwDgvXD+oDA7ieVNgLBuiH7rRp0zd/JHejNAoJ1w2jxTqzPNypsBYJ1w/BLQli5TmEr\nEKwbNsYjVBP6i8JWIFg/zPIb0ln+lf6HgGAdUVdiU9wGBHMOCFaPZXpg4LQa2lm4AASrJ24FQl/E\n0s7CBSBYNTazGM0tzjlHBxCsmrowMXa10M7DOSBYPb3OInSuJ+0sXACC1XPZPHy4+TLtLFwAgglg\nu3hR+QGqmwDBOsBy5FgtblsQzD75ponxpgLMxiCYfcQLDJe6YTYGwcxTbXcbVofXGgQzjy1QjAGY\nrUEw+8TPs9YnT8NsDILZp25BcMgi3KcYQTBBGhymOaAPCCbHws59fHfQTkIKCCbG1hgbqgpRes+U\n1oBgYrwnnotYvYZ2GhJAMDFi84Xwxde005AAgomxZ3Atuh3g5EFaqoBgcqz1M4ccop2EFBDMMidW\nZau9DgmCGWb8u+smh2NfKGwEBLPL4WghrPhMXScgmF3sTxIWR6nrBASzy/dzhZA1XV0nIJhdLEEZ\n5Qd8r6rrBASTp+r4JTId3Z3T50O1pz5BMHEyTR++3YeZGSxBMGnumwS5m5iZ/w4Ek+bgVKRk0Qyt\nAcGkyR8jhHs9aKfxKyCYNNbQH1HVsAzaafwKCCbOzdHmkHR1XVxOGvctmWRAMIuc8dt1esr7ZPoC\nwQwyoFgIfcjMUwyCGSRIDEk/EukLBDPIUPHmnzdvEOkLBGtGSeoszPs7LnVemxmVTCYLEKwVJ/2+\n3ftOKl7biuVzcwilAYK1okep+NyY7IWctQIEa4V9T+n907TTAMFaEV4mhCAnq5U0Sw3p6bZAsFYc\n899xaMRcZW2K3nzTPw7zSW8XgGDNuPxRwj5lLWwBRQj9K4loFiCYIS6MRL/OjEgMEKw59/MdV+50\nzoURCATrjiX+Y80p8qraAs8J9WcRHR4Ea8yxQTaEYnbLq3yxZxf/CfVExycg2FKYW+QkKRBsZ574\nzP/RiXKrq3xQxRHVgkv7eXi392od5TA9BQi2s1S89v/D7BZqZYeaux/VZHzVgkMTKoV4IyZCWgCC\n7VwNKEE3Q881XymvawW6HqjyFnfnqBbctnF+n1pPaQEIbuR4z6Bu+4XXu7v3ufz8nblXCBuWaTG8\nasEd99tfsjpJC0BwE/abUqb5XXRROFH8eN6KeempeVQL3uEZEjcpNtgrS1oAgpvgeweh870dNlft\n3i4UZEXbUEP/U1qMq34vujI9OTElw/FYHgQ/yfW3xGi/wvTknHUFpjnz/fYh9EnAKNOXmgxM6ji4\n7IB0Cwh+Eov4qIM1EKGFviFdxEWAL6TvEw6Qe1wS3iEm4Z/VhcQPkBohJTjNW7oFBDdhbKrl7pil\naP24BlTqdxel9vl8Uteqxrf0wDINx4UzWW6iblHXHhsQirwp/Dx358VewsummShQ/Lw2k71A2BRi\ngh//Fe6MttOpC3ZSHNOvHIlntzYtEV6qwtG/Rt2+P0f2aS4ciAn2ePTT/Yt2PtVkr1/vrEm0oXK/\nO4fihZ/PjkLom77hK3BnCpaFasG3HuIhLUj/HD8rjpnl0yvgELJ22VidF3TGDeOpFvzU04041ATB\nzrHdF+P92d1H5LljONWC42c2vsI7mE1UC66PyLW/gmA2IbaTdVu6AQQzARnBi5zc/guCmYCMYE8n\nsySDYCYAwZwDH9Gco925aBDMBCCYc7QTvPNvoU/y++cwefY/cVv+Frdh29a4LX/XBrflf+A2/K+/\nhjbHX65pJVhCEG7DHR/jtgxX+uzmr1wajjvkhOO4LbF/P198hdtSBAQrAwQrBwQ3DwhWDgjGAAQ3\nDwhWDghuGXKCQ3Eb7pqP27In7rz6l0fgDjnxJG5L7N/PqvW4LUXICZb7lLsDVuzlD7CHxG95H3sl\nOuwhLapuqCYnGGASEMw5IJhzQDDngGDOAcGcA4I5BwRzDinBma8919XJjXkyqJ/41C2sht91fDaw\nEKvl/73yrLkIqyXa26qF+XScY2nl4eERidPyStDvXs/FafgQQoIr2x2qn9ofq2lE0tNYgq8+e7Bh\nKta0j4WeZ6wTw3BaIsvfvbEEX2+HNZyA//y61cNwGyNigjd2FSR7WHCa5iJMwRsROvkCTsviTIQO\nv4TTEiXNeBVLcEEHrOEQuvSiygnECQlOjhOCN94HJqZgkU9wJxm4GzUWp1nhazV4gnOeN3uF4vx6\nvjWPfDkYa8iHEBKcOEkI7TG/K7AF72yPOXdcfCv/cpx2wVkIT/DZ6HM1CQ4zjclg9W+zbQtwGv4K\nIcEpsULwwtxxwRWc9hfMARGqSn0d47LQmrcRpmCRumeav//RKZv/jpD1GYcH/+RDSHBGAEIlrTHn\nycUUvKUT3m47OpUt7Lv/BqNx73be3v/WbivGkKVnhR00nP9n7suC4H+vxBjyIYQE32uXXR/zDmZj\nPMEVLxZjjpf5wgW0xhvzwi7eO3jHS8XWaf+L0/L1VbZ//g9Ow4eQOg7e/d/P9cD6ILnt4SEcI2JM\nJLXqKeHQ0gNrzHkvt3lD4XIaj8D8iJ77gmfXYpyGF95oYyrAGrIROJPFOSCYc0Aw54BgzgHBnAOC\nOQcEcw4I5hwQzDkgmHNAMOeAYM4BwZwDgjkHBHMOCOYcEMw5IJhzQDDngGDOAcGcA4I5x8iCU3sh\nFMb7rOZGFmx9Y9eWziof3mMeIwtGJ17r6I7lI6liaMHI1592BppjaMHbAv6xjXYOWmNkwQ86nDn6\nJ9wZifWCkQVPGIfQiPG0s9AYIws2BCCYc0Aw54BgzgHBnAOCOQcEcw4I5hwQzDkgmHNAMOeAYM4B\nwZwDgjkHBHMOCOYcEMw5IJhzQDDn/D8a9Jw1PT2McgAAAABJRU5ErkJggg==\n"
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "v-A37aA1Izdx",
        "colab_type": "text"
      },
      "source": [
        "# Adat betöltés\n",
        "\n",
        "### Tipus jelőlők:\n",
        "\n",
        "\n",
        "```\n",
        "\n",
        "read.csv(): comma separated \n",
        "read.delim(): tab separated\n",
        "read.delim(sep = \"|\"): | separated \n",
        "read.fwf(): ﬁxed width\n",
        "\n",
        "```\n",
        "\n",
        "\n"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "I7oR_BvTMYbU",
        "colab_type": "code",
        "outputId": "acb0e987-120f-439e-a984-083ab6edfd59",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 52
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "\n",
        "raw <- read.csv(\"data/pew.csv\", check.names = F)\n",
        "library(reshape2) \n",
        "tidy <- melt(raw, id = \"religion\")  \n",
        "head(tidy)\n",
        "\n",
        "\n",
        "tidy2 <- readRDS(\"tidy.rds\")\n",
        "\n",
        "\n",
        "tidy3 <- read.csv(\"tidy.csv.bz2\") \n",
        "\n",
        "\n"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "stream",
          "text": [
            "\n",
            "Error in file(file, \"rt\") : cannot open the connection\n"
          ],
          "name": "stdout"
        }
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "JmOPcMfkPYn4",
        "colab_type": "text"
      },
      "source": [
        "## Adat mentés állományba"
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "z3chgSVROr-d",
        "colab_type": "code",
        "outputId": "16f16d58-1fd1-401f-fe4a-696faa40a8e5",
        "colab": {
          "base_uri": "https://localhost:8080/",
          "height": 34
        }
      },
      "source": [
        "%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon\n",
        "getwd() \n",
        "write.csv(tidy, file = \"tidy.csv\",    row.names = FALSE) \n",
        "\n",
        "saveRDS(tidy, \"tidy.rds\")  ## rövid hivatkozás\n",
        "\n",
        "write.csv(tidy, file = bzfile(\"tidy.csv.bz2\"),    row.names = FALSE)  ## tömöritett állományba mentés"
      ],
      "execution_count": 0,
      "outputs": [
        {
          "output_type": "display_data",
          "data": {
            "text/plain": [
              "NULL\n"
            ]
          },
          "metadata": {
            "tags": []
          }
        }
      ]
    }
  ]
}