Biplot (R).ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Analisis Biplot"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Set default directory"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [],
   "source": [
    "setwd('D:/DATA/Desktop/GitHub/Biplot')"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Baca data, sesuaikan separator sama decimal sesuai settingan excel di laptop masing2"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Code</th><th scope=col>Sector</th><th scope=col>Series</th><th scope=col>Movie</th><th scope=col>Entertainment</th><th scope=col>Children</th><th scope=col>Information</th><th scope=col>News</th><th scope=col>Religious</th><th scope=col>Sport</th><th scope=col>Special</th><th scope=col>Filler</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>A                        </td><td>FOOD                     </td><td>0.21                     </td><td>0.16                     </td><td>0.13                     </td><td>0.15                     </td><td>0.12                     </td><td>0.17                     </td><td>0.02                     </td><td>0.01                     </td><td>0                        </td><td>0.02                     </td></tr>\n",
       "\t<tr><td>B                        </td><td>BEVERAGES                </td><td>0.20                     </td><td>0.15                     </td><td>0.14                     </td><td>0.12                     </td><td>0.13                     </td><td>0.18                     </td><td>0.02                     </td><td>0.03                     </td><td>0                        </td><td>0.02                     </td></tr>\n",
       "\t<tr><td>C                                                                    </td><td><span style=white-space:pre-wrap>SMOKING &amp; ACC            </span></td><td>0.22                                                                 </td><td>0.32                                                                 </td><td>0.15                                                                 </td><td>0.00                                                                 </td><td>0.06                                                                 </td><td>0.15                                                                 </td><td>0.00                                                                 </td><td>0.08                                                                 </td><td>0                                                                    </td><td>0.01                                                                 </td></tr>\n",
       "\t<tr><td>D                                                                    </td><td><span style=white-space:pre-wrap>BABY &amp; MATERNITY         </span></td><td>0.21                                                                 </td><td>0.17                                                                 </td><td>0.10                                                                 </td><td>0.25                                                                 </td><td>0.09                                                                 </td><td>0.14                                                                 </td><td>0.02                                                                 </td><td>0.01                                                                 </td><td>0                                                                    </td><td>0.01                                                                 </td></tr>\n",
       "\t<tr><td>E                        </td><td>MEDICINES/PHARMACEUTICALS</td><td>0.20                     </td><td>0.10                     </td><td>0.09                     </td><td>0.09                     </td><td>0.15                     </td><td>0.27                     </td><td>0.03                     </td><td>0.02                     </td><td>0                        </td><td>0.04                     </td></tr>\n",
       "\t<tr><td>F                                                                    </td><td><span style=white-space:pre-wrap>TOILETRIES &amp; COSMETICS   </span></td><td>0.20                                                                 </td><td>0.21                                                                 </td><td>0.14                                                                 </td><td>0.13                                                                 </td><td>0.12                                                                 </td><td>0.15                                                                 </td><td>0.02                                                                 </td><td>0.03                                                                 </td><td>0                                                                    </td><td>0.01                                                                 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllll}\n",
       " Code & Sector & Series & Movie & Entertainment & Children & Information & News & Religious & Sport & Special & Filler\\\\\n",
       "\\hline\n",
       "\t A                         & FOOD                      & 0.21                      & 0.16                      & 0.13                      & 0.15                      & 0.12                      & 0.17                      & 0.02                      & 0.01                      & 0                         & 0.02                     \\\\\n",
       "\t B                         & BEVERAGES                 & 0.20                      & 0.15                      & 0.14                      & 0.12                      & 0.13                      & 0.18                      & 0.02                      & 0.03                      & 0                         & 0.02                     \\\\\n",
       "\t C                           & SMOKING \\& ACC             & 0.22                        & 0.32                        & 0.15                        & 0.00                        & 0.06                        & 0.15                        & 0.00                        & 0.08                        & 0                           & 0.01                       \\\\\n",
       "\t D                           & BABY \\& MATERNITY          & 0.21                        & 0.17                        & 0.10                        & 0.25                        & 0.09                        & 0.14                        & 0.02                        & 0.01                        & 0                           & 0.01                       \\\\\n",
       "\t E                         & MEDICINES/PHARMACEUTICALS & 0.20                      & 0.10                      & 0.09                      & 0.09                      & 0.15                      & 0.27                      & 0.03                      & 0.02                      & 0                         & 0.04                     \\\\\n",
       "\t F                           & TOILETRIES \\& COSMETICS    & 0.20                        & 0.21                        & 0.14                        & 0.13                        & 0.12                        & 0.15                        & 0.02                        & 0.03                        & 0                           & 0.01                       \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Code | Sector | Series | Movie | Entertainment | Children | Information | News | Religious | Sport | Special | Filler | \n",
       "|---|---|---|---|---|---|\n",
       "| A                         | FOOD                      | 0.21                      | 0.16                      | 0.13                      | 0.15                      | 0.12                      | 0.17                      | 0.02                      | 0.01                      | 0                         | 0.02                      | \n",
       "| B                         | BEVERAGES                 | 0.20                      | 0.15                      | 0.14                      | 0.12                      | 0.13                      | 0.18                      | 0.02                      | 0.03                      | 0                         | 0.02                      | \n",
       "| C                         | SMOKING & ACC             | 0.22                      | 0.32                      | 0.15                      | 0.00                      | 0.06                      | 0.15                      | 0.00                      | 0.08                      | 0                         | 0.01                      | \n",
       "| D                         | BABY & MATERNITY          | 0.21                      | 0.17                      | 0.10                      | 0.25                      | 0.09                      | 0.14                      | 0.02                      | 0.01                      | 0                         | 0.01                      | \n",
       "| E                         | MEDICINES/PHARMACEUTICALS | 0.20                      | 0.10                      | 0.09                      | 0.09                      | 0.15                      | 0.27                      | 0.03                      | 0.02                      | 0                         | 0.04                      | \n",
       "| F                         | TOILETRIES & COSMETICS    | 0.20                      | 0.21                      | 0.14                      | 0.13                      | 0.12                      | 0.15                      | 0.02                      | 0.03                      | 0                         | 0.01                      | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Code Sector                    Series Movie Entertainment Children\n",
       "1 A    FOOD                      0.21   0.16  0.13          0.15    \n",
       "2 B    BEVERAGES                 0.20   0.15  0.14          0.12    \n",
       "3 C    SMOKING & ACC             0.22   0.32  0.15          0.00    \n",
       "4 D    BABY & MATERNITY          0.21   0.17  0.10          0.25    \n",
       "5 E    MEDICINES/PHARMACEUTICALS 0.20   0.10  0.09          0.09    \n",
       "6 F    TOILETRIES & COSMETICS    0.20   0.21  0.14          0.13    \n",
       "  Information News Religious Sport Special Filler\n",
       "1 0.12        0.17 0.02      0.01  0       0.02  \n",
       "2 0.13        0.18 0.02      0.03  0       0.02  \n",
       "3 0.06        0.15 0.00      0.08  0       0.01  \n",
       "4 0.09        0.14 0.02      0.01  0       0.01  \n",
       "5 0.15        0.27 0.03      0.02  0       0.04  \n",
       "6 0.12        0.15 0.02      0.03  0       0.01  "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "data<-read.table(file.choose(),header=TRUE, sep=\";\", fill=TRUE, dec=\",\")\n",
    "head(data)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Subset data (buang nama kolom dan baris)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'matrix'"
      ],
      "text/latex": [
       "'matrix'"
      ],
      "text/markdown": [
       "'matrix'"
      ],
      "text/plain": [
       "[1] \"matrix\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Series</th><th scope=col>Movie</th><th scope=col>Entertainment</th><th scope=col>Children</th><th scope=col>Information</th><th scope=col>News</th><th scope=col>Religious</th><th scope=col>Sport</th><th scope=col>Special</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0.21</td><td>0.16</td><td>0.13</td><td>0.15</td><td>0.12</td><td>0.17</td><td>0.02</td><td>0.01</td><td>0   </td></tr>\n",
       "\t<tr><td>0.20</td><td>0.15</td><td>0.14</td><td>0.12</td><td>0.13</td><td>0.18</td><td>0.02</td><td>0.03</td><td>0   </td></tr>\n",
       "\t<tr><td>0.22</td><td>0.32</td><td>0.15</td><td>0.00</td><td>0.06</td><td>0.15</td><td>0.00</td><td>0.08</td><td>0   </td></tr>\n",
       "\t<tr><td>0.21</td><td>0.17</td><td>0.10</td><td>0.25</td><td>0.09</td><td>0.14</td><td>0.02</td><td>0.01</td><td>0   </td></tr>\n",
       "\t<tr><td>0.20</td><td>0.10</td><td>0.09</td><td>0.09</td><td>0.15</td><td>0.27</td><td>0.03</td><td>0.02</td><td>0   </td></tr>\n",
       "\t<tr><td>0.20</td><td>0.21</td><td>0.14</td><td>0.13</td><td>0.12</td><td>0.15</td><td>0.02</td><td>0.03</td><td>0   </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lllllllll}\n",
       " Series & Movie & Entertainment & Children & Information & News & Religious & Sport & Special\\\\\n",
       "\\hline\n",
       "\t 0.21 & 0.16 & 0.13 & 0.15 & 0.12 & 0.17 & 0.02 & 0.01 & 0   \\\\\n",
       "\t 0.20 & 0.15 & 0.14 & 0.12 & 0.13 & 0.18 & 0.02 & 0.03 & 0   \\\\\n",
       "\t 0.22 & 0.32 & 0.15 & 0.00 & 0.06 & 0.15 & 0.00 & 0.08 & 0   \\\\\n",
       "\t 0.21 & 0.17 & 0.10 & 0.25 & 0.09 & 0.14 & 0.02 & 0.01 & 0   \\\\\n",
       "\t 0.20 & 0.10 & 0.09 & 0.09 & 0.15 & 0.27 & 0.03 & 0.02 & 0   \\\\\n",
       "\t 0.20 & 0.21 & 0.14 & 0.13 & 0.12 & 0.15 & 0.02 & 0.03 & 0   \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Series | Movie | Entertainment | Children | Information | News | Religious | Sport | Special | \n",
       "|---|---|---|---|---|---|\n",
       "| 0.21 | 0.16 | 0.13 | 0.15 | 0.12 | 0.17 | 0.02 | 0.01 | 0    | \n",
       "| 0.20 | 0.15 | 0.14 | 0.12 | 0.13 | 0.18 | 0.02 | 0.03 | 0    | \n",
       "| 0.22 | 0.32 | 0.15 | 0.00 | 0.06 | 0.15 | 0.00 | 0.08 | 0    | \n",
       "| 0.21 | 0.17 | 0.10 | 0.25 | 0.09 | 0.14 | 0.02 | 0.01 | 0    | \n",
       "| 0.20 | 0.10 | 0.09 | 0.09 | 0.15 | 0.27 | 0.03 | 0.02 | 0    | \n",
       "| 0.20 | 0.21 | 0.14 | 0.13 | 0.12 | 0.15 | 0.02 | 0.03 | 0    | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     Series Movie Entertainment Children Information News Religious Sport\n",
       "[1,] 0.21   0.16  0.13          0.15     0.12        0.17 0.02      0.01 \n",
       "[2,] 0.20   0.15  0.14          0.12     0.13        0.18 0.02      0.03 \n",
       "[3,] 0.22   0.32  0.15          0.00     0.06        0.15 0.00      0.08 \n",
       "[4,] 0.21   0.17  0.10          0.25     0.09        0.14 0.02      0.01 \n",
       "[5,] 0.20   0.10  0.09          0.09     0.15        0.27 0.03      0.02 \n",
       "[6,] 0.20   0.21  0.14          0.13     0.12        0.15 0.02      0.03 \n",
       "     Special\n",
       "[1,] 0      \n",
       "[2,] 0      \n",
       "[3,] 0      \n",
       "[4,] 0      \n",
       "[5,] 0      \n",
       "[6,] 0      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "20"
      ],
      "text/latex": [
       "20"
      ],
      "text/markdown": [
       "20"
      ],
      "text/plain": [
       "[1] 20"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "matriks<-as.matrix.data.frame(data[,3:11]) ##Membuang kolom pertama\n",
    "class(matriks)\n",
    "head(matriks)\n",
    "nrow(matriks)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Buat label (nama observasi dan nama variabel)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [],
   "source": [
    "xlabel<-data[1:20,1]  ##Ambil kolom pertama untuk nama observasi\n",
    "ylabel<-colnames(data[,3:11])"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Single Value Decomposition"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [],
   "source": [
    "y<-svd(matriks)\n",
    "U<-y$u\n",
    "L<-diag(y$d)\n",
    "A<-y$v"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Matriks G H untuk biplot"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {},
   "outputs": [],
   "source": [
    "G<-U%*%sqrt(L)\n",
    "Ht<-L%*%t(A)\n",
    "H<-t(Ht)\n",
    "G2<-G[,1:2]\n",
    "H2<-H[,1:2]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Cek besar keragaman yang mampu dijelaskan biplot (baiknya > 70%)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "94.7507198957291"
      ],
      "text/latex": [
       "94.7507198957291"
      ],
      "text/markdown": [
       "94.7507198957291"
      ],
      "text/plain": [
       "[1] 94.75072"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "cek<-eigen(t(matriks)%*%matriks)$values\n",
    "dim1<-sum(cek[1])/sum(cek)*100\n",
    "dim2<-sum(cek[2])/sum(cek)*100\n",
    "dim1+dim2"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Buat keterangan di sumbu x dan y tenatang keragaman"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [],
   "source": [
    "xlab<-paste(\"Dimension 1(\",round(dim1,2),\"%)\")\n",
    "ylab<-paste(\"Dimension 2(\",round(dim2,2),\"%)\")"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Buat biplot"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD/AAD///89ODILAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAgAElEQVR4nO2diZZDMBRAY6kug/r/rx27aNX6QsS958yMKkmq7mQXlQHA\nZtTRCQBwAUQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQC\nEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAAB\nEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACR\nAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAETaBdUQPNodw4cNnn77\n3BHlR0YzI954AMyCq7gLqiNqdgwfNrD3z/vaW4Y0M+KNB8AsuIq7oImknvWO4cNm7X12AU1H\nvPEAmAVXcRea2zXNy2T+9GFTe4M8Y8uLiQsiBsNwmXehu5/rLe3Pw1fqlvQPe93yzdur3vdZ\njkuU8rL8rKQL8pW7dYur188w3+NHSRticXiFV7xM7/nBKnzqUfb2wXIQaRd0kTxtR3Hzlp54\niX5YUNsTZoMi5bnRPbu3zQ2qzJ8KYv1k9deEmFtZOpm9inMSr2n46KLs74PlINIuNCYkt/r2\n70Sq8bW9Ybs3HBQpv+vTLG3zmS6QonXvkduQlrKFTYh/1XYZ8F+hVZ7xpLlvjzbK/j5YDiLt\ngtbW4KX1jvqPl2ccL6/KM6q9eb6hHrkpeZ6j7e14VRlH2OQzRSCvUobiuKbIV73q7UtKX1X1\nIq3kbQ/T9sFyEGkXNJHCD5HKasmryk3a7KHKFyJ9b0dt0KvJZ2rf0v5xukh1MTAqA/ba6ld3\nWH8fLAeRdkETqcqSOpGaA3rZQylbkYOo7Euktkzn1cc177fHJc8oUPq59SnVCfe6GPjSTurv\ng+Ug0i6093gcVJnDt0jq4/fn3paHJuVDD6T++/Sbd7t9ZSZWZ3tZ1BiddAf09sFyEGkXNBeq\nzKETKdUO+M6RvOxLpNYT1W+iqP8WnbX+7RH3RCqrVUFTqUqfVcteoJ2s74PlINIu9ETSbvAm\nU3lpbWxF9jFSR/rTi4ldE3f716916edmRWtG152U1T1VH4E3+2A5XLdd6Kovt15GULjwrFrt\nurbooVa7tA0q6sYGPXrFxL46/RypLrrdi02/rVp12V1/HywHkXahl4toTdrdTr2btu1Sreo0\nRZNapAfVWJX2Zan+VpWwQk39vaQMrjyxKOYlbUte6662D5aDSLuge/TRIRtplfzmtg90j8oO\norbq8mz2FoRl7tQXqSn6eWW5r80Ki5pV1VreNixoIxv6+2A5iLQLnUah3upc/nn6yov0Joes\nqK14WmN0qMnTthiUh5V3fl+kLM7F825x0oyLqA59qu7Esi5Uz4xqDtD3wXIQ6VD2q9w/qP4Y\nBZEOZTeRYo/qj1EQ6VB2EqkqVcZ7RHVVEOlQ9hTpvkdMlwWRDmUnkXylAubsGQWRAARAJAAB\nEAlAgGuJ9Oh/3Mhru0JN8RlF3S27X4ROfsiS/b/MMS4lUtz/cquBOEbnVn9GEZu+x74+k4sf\nsollLBF7cyWRYu9jPoIXF/v+zMX4FUXcjHfbK0IXP2QVye5f5jgXEumhgt61j8qxZ0+T/Stf\nUTwM9+Z8Rejih6zi2P3LHOdCIqko6137sHxwjtF/n19RPAw/7uorQhc/ZMEBX+ZEgo6KeH/i\nrH/t2zHT5qL8iiJUr1teJ94vQhc/ZMEBX+Y4FxIps0Iks7N+LBFpl6lNiHQch4tUPdA0Mlb2\nsUIk0x+yH++PROwNIu16j1WkxppprRCpwtyH7Mc7moj9cF8kvU+jd509c9e+ifNXFMa+768I\nDX7IqShM39R7fZnzuLBIYf08bAMNPU2cv6Iw9n1/RWjwQ05FsatIO3zOidQcFfEh9K79vX6C\ntsHmpa8ovPJBPua+768IXfyQNXt/mROpOSriQzh8ZENUfNNppEw9Y9uKkQ2mP2QNIxuOo1/E\n88230mpRlHGm1YJe5v5vfkbo5Ies2P3LHE/NYTEfQf/ap+WAYaMRalF0cfoG24UHI3TtQ2Za\nXDt+zvHUHBc1gDsgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBI\nAAIgEoAAiAQgACIBCHBFkd7ESZzSIBJxEqcAiEScxCkAIhEncQqASMRJnAIgEnESpwCIRJzE\nKQAiESdxCoBIxEmcAiAScRKnAIhEnMQpACIRJ3EKYKFICkCYHe5a81EsxcIkwblBJAABEAlA\nAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACR2n27\nTM4CR0EkfZeFSYVz4KBID0/5j/FDvpOkfr0BMAeXRIpD5T2yezmDPhg98itJ6uc7AHNwSKS4\nNChStzRLQjWaJyESCDNx4/zdw/L2DKM/U1GIcVNRlkXKK7ZT5Y8dikggzOiNk/ra44bGC0tr\noxCkanRTofbi56E/dyASrGL0xsn/vT/jcit5ecX/e/koBKnceVZluipj+nnozx2IBKsYvXE8\nFbfb8fituTYKQW5F7agivY1rj0ggzHgJSP16IRaFIKnXJlFNWD/c/J2fTp8srMOhHCkvijZJ\n9CaKoT87ZPEI1jFVR3ol5dYZ6kgL+DlECJNgHeM3TqC12vnp6KFrozgEC5ME52aqHykq+5G8\n8G5/P9ICLEwSnBuHRjb0I13WjwSwjeuItPNiNnAtXBVpnKVJQj+YYP7NYX0/0gIWi7TuNLgO\n6q0xfiQi2fhRwA6cKtrNHquOSCCMQyItGKuOSCCMQyItGKtOHQmEcUikBSMDabUDYRwSacFY\n9VU5Eh7BbxwSyWSOtOosuBAT85EkhgPsWEeaO1YdkUCY0ZvjcSqRFoxVp7EBhBm/N2Jv9SNP\n5kYhyeyx6jR/gzATt0a8ejrf7CiOwMIkwbmZuqUeWg3eUBQHYGGS4Nw41Gq3AAuTBOcGkQAE\nQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABE\nAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQA\nARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAA\nkQAEQCQAARAJQABEAhAAkQAEcEmk9KZU8KojHY0VkUAYh0RKPVUQVpEiEuyJQyJF6pHb9PCC\nMlJEgj1xSCSviijx/ASRYGccEqlxJw0CRIKdcUgkX6XNVoBIsC8OifRQt3orUQEiwa44JFIW\ntfa8FCLBrrgkUhaHzVZyQyTYE6dEmo2FSYJzg0gAAiASgACuikRjA+zKdURSOkckCVzGVZHG\nsTBJcG4QCUAARAIQwCmR/u5hNSUp+hs/EJFAGIdESn2tNSGwIklwGRwSKVLeMy63kpenorFD\nEQmEcUgkT8Xtdqy8sUMRCYRxSKRe7xAdsrArDolEjgTH4ZBIeR3plZRb1JFgbxwSKQu0Vjs/\nHTsSkUAYl0TK/qKyH8kL7/Qjwb44JdJsLEwSnBtEAhAAkQAEQCQAARAJQABEWnGahZ8IDgaR\nVpxm4SeCg0Gk5edZ+IHgaBBp+XkWfiA4GkRafp6FHwiOBpEWn2jh54HDQaTFJ1r4eeBwEGnx\niRZ+HjgcRFp6poUfB44HkZaeaeHHgeOZc1s8fKXCl9EodmZDkiz8NGAB488IKd+tJ56Ozt1e\nHcUxIBIIMy1SpKI0y5JIPUxEcQwWJgnOzbRInioff5Aq30QUx2BhkuDcTIvUPCFu9aJCFt61\nFiYJzs20SM364ONPilsbxTFYmCQ4NxMihffHSz3zzTRa3dpg4V1rYZLg3EyI1C4UqZQ3+qS4\ntVEcg4VJgnMzfkvF8eMRhmWTQ7TWIxvvWguTBOeGkQ0AAiASgACIBCDA/FuKfiSAn6i3xviR\niATwC4p2AAIgEoAAiAQgwMQt9Xcvl+5SYTSxdNf6KI7AwiTBuRm9pVJfW0wyMBLFMViYJDg3\no7dUpLxntVL45PLGa6M4hvVPEdKGHwJ0jN4Rnorb7ZhpFBIng6PMeGbD0AuxKI4BkUAYcqR9\nTwZHmaojvZJyizqS0MngKON3RaC12vlM7BM4GRxlqh8pKvuRvPBOP5LIyeAojGzY92RwFETa\n92RwFETa92RwFETa92RwFETa92RwFEQCEACRAARAJFNnwKVAJFNnwKVAJFNnwKVAJFNnwKVA\nJFNnwKVAJFNnwKVAJFNnwKVwSCTVRzZJiASjOCTSA5HgMBwSKYu9uc/eQyQQxiWRsnjucyUQ\nCYRxSqS8dBdPH5StEmmovKg+/sJ1cUukuQglqRHLwk8IO4NIm4JRksHBiUGkTcEgElQg0rZg\nlGBwcGJcFUm6H+lnMM0PXJvriDS7t3ZBJBkiQYWrIo0jKFJbvoNLc1mR3vXme/TAyWCyrskB\nrsx1RaoNQiSQwCmRZi8dXeZIlULbRVq/BBu4g0MiLVg6+lOkd5k/vTPt1/v9nnSMIULQ4JBI\nC5aOrupIrTj1jy5Stw0wA4dEWrBQp/oWqN54t38BFmC7SH9RsWpgMFXpKeNRv14MJQmRQBK7\nRXp21R7/NXXw8hypkaaiKdHVv2fUkQAabBYpCVTwiIula9O/e76djB++YOlo1WVDeu6ji1S9\nBpiHxSK9VKSv/5xEaiJTmr909JBIb0SC9VgsUvjpQnqbOGP20tHdyIa3VlfSlKLVDpZhsUgG\n+Rwi1NSH+l1LeASzuaxIAJKcQKS/vO4TzGj+XgAigTD2i/RXtR6ImoRIIIz9IvlF210a+TKJ\nqTD7qalcXRCLRaq7YE088srgp6aN4ppYLFI9muFMORIWXRaLRUqjUqVnVUeaHCG0R5JGwaIr\nY7FIjUrnaLVDo2tjtUhtriSNiU/9pg/3ylguUpYloVLhvEfjz8dM0a78hUzXxGaR6jJdLK+S\nmU/djjrCputhsUhdT2ypkg1JmkDXB5muhcUi6e3euUqCKTL3qfvuINN1sFikfk+saNnO3Kf+\nEody3jWwWCQTPbE1Jkc2DO5EJtexWCQTPbE1Jj/1L2OQyWksFsnE/IkasU+9cHELZHIWm0Uy\nh5xIy8Oj0uQkiCQS0NIAkck1EGlrQKtXLkMml0CkjQE1S7usg3KeKyDStoAklkhCJgdApG0B\nSS1Ji0wnB5E2BiT46SjnnRhE2hqQ2BrpFch0TmwWKY2KJSXuvlLBUzA9mXjz97RLuhvTorQy\nodRpsFikxMvvz9Sbs5TlXkn6HdBEiO/BzdEzyJpOhcUi3VSY5r9uSe7UbXyZlr2S9DsgcZFY\npOlcWCySUmn9Ky/ljS8ctjho8ZCmRXpXz0ep3agNKXZq71THdsc1MrXHopWtWC1SVizDp70Q\nQzCweR2y724Bmf4S0B+/st5Sgr0l1rWV18E+LBbpVixlea/Ws0xlK0mSn3pWR9J7QJDPhdS1\nPfpx3Y4mjwILsVikWHlRnIVebtLLP8EDIseYL1L55z0oUkalyV4sFil7ed1SlnfJFFktUmPR\noEhtOW/f5MMkNouUZc9buax5eJ9Yh3kpFos0UrRrD8vImqzDbpFMcXqR9AZAsAFEkglpTvN3\n/2+vWe7z7Y9Wu89jO3+QyRKsFunvXq5SrsJI+MkN4iLNaf7W/3b9SF+/msa5ro2uf+y3OVSa\nLMBikVK/a2uwdYjQxnl9y/mpDDIdi8UiRcp7Vo+FTF6epUOEqpD2LLy+RzIgZDoOi0XyVPd0\n1djmIUL7VgLrct4vnSjnHYPFIvXGC9g6REhJJ20G/aaGXzbtlx7IrBbpJDmS6CTZefQl+WET\nMu2KxSLldaRX1RFrcx1p/7Jd1mv/bvcMiUM5bzcsFikLtFY7P7UiST9C2r+r7Hdrw6BNxtNz\neWwWKfuLyn4kL7xb3o90QJ/zbzeGbEIm01gtkjF275DdnYGiHuU8kyCSTEgWfshsyB1kMgQi\nOc+XTchkgLOIZGs/0ln4tIlynjCIdCE+K07IJMdZRJLFwiTtR98mZJLBKZFmT7u4tEglPZso\n521n4paSmBG01127YNoFIpX0inrItInRW0pmRtBeE/sWTLtAJA3NJmRazegtJTMjaK+JfQsG\nuSLSJ51NyLSK0VtKZvz1XhP7Fky7QKRBWpuoNC1m/H4TmRG01zQKciQR2ooTMi3B4hxpqcYL\npl0g0hS1TZpTE1K9f764BlN1JIEZQbtN7Js/7QKROt5D41u7Bxp1z4h4t+9NhymdSPsZv6VE\nZgTtN7Fv9rQLROoY8uNrMJFW3lsQ5pWY6kcSmBHk9MS+89O11b0/9umvWpf0pnJ9o9fkh0h2\nRXGCiX3nR3twZatJ7zmW715NScuZ6mqUdnz/5EthtUjGsDBJh/Ee/tGe/NquIZi1i2G8O/M+\ngkGkM0cxECn9SDPRxKl+Ok30R+hpGVG3tsxbpw7ujUgTR+7dj7SJ79QqnSOSZCmaBnX5rcls\nsnebJfWV0e3Rc6Te2k4XQ33/T/l15KlEGsfCJB1Gm+vopba3XpDLhkRqMyUtGIp2Z49iKRYm\n6TC6u79rcOuLpDXX9Yt2+n9fRLI2CqWMlcYQqePd/dY0yfTmhLpwV7ct9Ip17886VkYdybYo\nHotFYmLfCvQO2TrPaUTK+rWjfgtem4H1crJGr8th88S+2Fs0B4qJfavoNXu3DXXdoheaK3rl\n6N1pA5nlE/viReP7mNi3nq58p2Uv2WeB7a397p8JFk/sy4rSXTx9UAPTKDagNYH3u4S09Zi6\nd3uPIto7qXZi8TSKxfEwsU+AnhddUe+t73j/POG6WDyxbynkSBJ8e6E1cWvtCmNnXBGHciQm\n9knwaUn/oV0DR0CJxRP7FsPEPmH0wS5NAx3Tz4exeGLfcpjYJ0h/yFjbHn5QaqzH5ol95rAw\nSXbxMfCyHQqER7+weGSDQSxMkkV8Dl/uRtTh0U8QCXp8TQL4nCoBgyASdHxPpWkHC9HMMI7F\nIoWfrRvpbWtSGhBpgIEJaZpGZEfjWCzSS0W6SkmkXhLJKUCkT4amdTKmbgEWi5QlgQoecSFT\n+nfPt5Pjk+Qmg5Oj+2Pq8GgCm0XKsmc3/NwXy44yRNIZfsTAx9BUPJrCbpGKjqyiUzjYMB1q\niIuKNDaO7mN3XyM8msR2kcxgYZJ24LtFbliQz5GpaDQDRLoMX72sPw7rJiENnQfD2CxSessL\ndXXViIefbKU3cu53Ye1TIzyah8UipV71uIgqEETahl7j+e3G13wjqkczsVikSD1ymx7VE1AQ\naSO96eO/jiE7Wo3FInnViYnnJ4i0lf6M8eFDvjTCo/lYLFLjThoEiLSR95RFQxrh0QIsFslX\nzQghP0CkTUw+2H1w1h4eLcBikR6qGaSaqACRNjBTo8/2cXMJchCLRcqi1p4Xz/7eSO+B959v\ndb+1vcaT5BY2i5TFYbOV3BBJgAGZhjXCo6VYLZIxLEzSDz5XT5lxxrLgh8/Bo6Ugkt0MzW+Y\nc9CssBuNhnMpWAIiHcrkejVGRap+f805QqMVINKRqPbXL3qDR7XVIJrs5N01I2gPFO5WL2pO\nqULQn5PfrM3yFRcerQGRDkT1/gyi3+e1Jm2Xz1vb2f3S9757h+jnNAvy4ZEQiGQmgjnrDM5J\nhdbW0DMl015873l/vtsto/eucqSBsQ4/2h1gFoh0XASzRPrY/ClS+fc9T6Sm1PcdE80Ma0Gk\n4yLYItJbr+LUDrwncqReU/rXqpWdn7ACRDIR6rxxGFVTw3gBcDRH0nbOLdq1edb7Qxs82obt\nIt39ObWNpRgSSbUby3KktSItriM1a44PrD3++RqWYblIdzWr2r4U8yLNSfQGkXqtcNrGmEi9\n3OhTHDzaiOUiecUsWXlMFe1U83deBHOav99f1aGPfqRmuzxoRKR327nUD6iNp41vVtqhj+Ui\nyWZEXbCGQl0o0owOWSm0dWB/vL1wSB/0sVykUK1dJ3AUY3qq+s93BMNRSpdZfzChUT9zgjVY\nLlLiBbLPWK2wRiTzfLfxgQksF0mdqrEha4p39oj0npEdgQCIJBtqI9JXqvcUSW/qQ6N9sFwk\nQxgXaa8oB+l59LkBZkAk4VD1hjilvXGESFp2tF/sF8V6kZ7Fsi7hUygtNU6LpGVC73YLDGO7\nSEFd1wikUlOy0119iEi6PO30PU2vjFY8E1gu0kN5xXIUL+ERDvuKpPYUqRmgUG2/v4e5Zohk\nAstF8lVc/o2VL5OYCsdFene5Ujce6OOY/gZsxXKRtHGgEklpg5UMbDKaPUXq9xv1VoHVH+lQ\nvdsOBdeG7jHGYR2Wi9TlSJ5MYir2riPtMxAoa7WoX/RyIW3Id/vz7gqB/YHhsBTLRXKijrRn\ni12/L1abFKsX8dqSXm+A+McrWITlIrnTarcLfXe+60WIZAzbRcqe4Wn6kX5Gc+SA1d72T5G+\nHwEBy7BeJCPslSSl/T6AhTlShkjrQSSzEe3XzjCE1gtL0c4sFouk1MlGf1tIa8inSL2HOPT3\nItIaEMlt+kOE9FEO2iMeMq0fKUOkVVgs0uJ4+tiQJLgMDon0QCQ4DNtFevhZlvjKn/Pkhtib\n29uESCCM5SK9ipzFKzKYWSapyHySjuQ9sDW2C3bDcpEC9SxHfj/nDW141EPzTCZpTz4fNdcu\n+crIUtuwXKQiQyrzmUu22r2139Xm+3MDLOEEIoXqdU2R3h9/s+zdutW2YGf9XUyDOAjLRQpU\n/CpmUMws2s3lXCJVL6re0/oZ3tW8o3c9/6h5K9O6iWBfLBfpVbQz3IsM6SWWnuwsIvUKdVmr\nUdbNx6vmE727MQpfhUHYCctFyh5e2RLnLx3+7UY/UltOa4pt+jLLtVvNBiIdiu0irY7UCZGy\nj3rQu82VdJGy1qVuPgTsjKsijWNhkkZ4dzP2NJG6Hdqq5yh0FIhkP9rQ0s8cqas8UbQ7FttF\nkltDdvZAPGv4nE3ULQGbaU0N9RvayG08OgDLRVq2huzfPSwPDaOJAUXnEEnPX9pWu0z/9bkq\nbEY/0lFYLtKSpwelvpbljHc7nUQkfYjQ94Qhln21CctFWlIIi5T3rIbaJS9vfPjqWUSC02C5\nSEvWkPW0EasTD5REJBDGcpGWrCHby72c6UeCc2C5SEsa2siR4DgcEimvI72Scos6EuyN5SIt\nItC080frVogEwrgkUvYXlf1IXnh3ox8JzoP1Ir3CcnJfIpSYCkQCYWwXKaiqR8oTNQmRQBjL\nRXqoIC1EeqjbgggnY0QkEMZykTyV1itHLggFkWB3LBepev53hkhgOZaL5Nc50qJVzREJdsdy\nkeo60rI1ZBEJdsdykbJwxRqyiAS7Y7tIZT/SWdeQhetgvUhGsDBJcG4QCUAARAIQwHaRIo81\nZOEEzLmlHn5e3V//7O0td23EYsxwCsZnZJfv1tN8Zi6GtzCKqXOX9B8tCNZEoHBlpkWKVJRm\nWRKtvqX3eorQkmCNhAoXZlokr3qQT7pkkM78KCaIFjxFaAGIBMJMi9RkCqszh23zkQLZKX0V\niATCTIt0a0QafS7P2iimeNHYAGdgQqTw/nipYnxOGq1ubdjv2d+zQSQQZkKk9h5WyltbW9nr\n2d8LQCQQZvyWiuPHIwzLJododa2fVjtwH8tHNtxptYNTYLlI2X3+s78XgEggjOUiGVpkD5FA\nmPm31CH9SIgE58BykQxhYZLg3FhetDOEhUmCc2OxSNUz7SjawRlQbw1DUaw9D5HgNEzcUn/3\n6nlYYbS+FdrCu9bCJMG5Gb2lUl/LEZY8WW5+FMdgYZLg3IzeUpHyntW6rJOLSa6NYpzXrVA5\n2JAdDoNIIMzoLbVgeeO1UYyRdGtZCs9KQiQQZsYzG4ZeiEUxQuop/1UMtUue/mqLh0EkEMbi\nHCnSqmWBuq8MZRBEAmGm6kivqkx1RB3JV115Llnf1jEEIoEw47dUoLXa+XtP7JMpWA4HLRkY\nwHQ/UlT2I3nhff9+JESC82D5EKHhF5tBJBAGkQAEmHdLbbqN14vUY0MKxJIE8ANEAhDAYpEM\nYmGS4NwgEoAAiLRrvAaKqWAFiHRAvBZeEdiIxc3fBjlYJBsvCWwDkY6I18JLAttApAPitfCK\nwEYQadd4aWtwFUQ6IF4LrwhsxCWR0ptSwauOdHzq7x7JGYkXk5zDIZFSr3pyWBUpIsGeOCRS\nVKzulz68ci4tIsGuOCSSV0WUeH5iuUh45B4OidS4kwaBtSLRaucqDonkt8tk+oGlIoGzOCTS\nQ93qrUQFiAS74pBIWdTa85ooPyESCOOSSFkcNlvJDZFgT5wSaTYWJgnODSIBCIBIAAK4KhKN\nDbAriAQggKsijWNhkuDcIBKAANcRydhjWwEcE+nvHlZTkqZWb0YkEMYhkVJfy3LGF/hDJBDG\nIZEi5T2rNW8nF+o8WCQ8dg+HRFqwdPSxd7LCJPdwSKQFC5MhEgjjkEjkSHAcDomU15FeSbll\ndx1JHZ0AMIBDImWB1mrnp2NHIhII45JI2V9U9iN54d3mfiREchGnRJrNkUlibIWTINIxcVt4\nUWALLoo0/e8ekUAYRNoZnlrsJoi0M4jkJogEIAAiAQiASAACuCjSNBYmCc4NIgEIgEgAAiAS\ngACIBCAAIgEIgEgAAiASgACItH/kzEhyEES6VuRgCES6VuRgCES6VuRgCES6VuRgCES6VuRg\nCETaP3Ia7RwEka4VORgCka4VORgCka4VORgCka4VORgCka4VORgCkY5NwfEpAREQ6dgUHJ8S\nEAGRjk3B8SkBERDp2BQcnxIQAZGOTcHxKQEREOmgFDC9zy0Q6dgUHJ8SEAGRjk3B8SkBERDp\n2BQcnxIQAZGOTcHxKQEREOnYFByfEhABkY5NwfEpAREQCUAARAIQAJEABEAkAAEQCUAARAIQ\nAFemEOoAAAvmSURBVJEOiZ/hqq6BSIdFb+F1gdUg0nGxW3hhYC2IdGTkzElyBkQ6MnL1tQdO\nysR3+HcPy/+ZYfRnKoojsEwkGy8RLGP0K0x91REYicIAD0/5j/FDbBMJk07P6DcYKe8Zl1vJ\ny1ORiSgkiUPlPbL7DO0RCYQZ/QY9FbfbsfJMRCFIXBoUqVuaJaEazZMQCYQZ/QZ77UmrG5f2\nukluRZ4ZVb6nyh871Jbmb0RyBodypMp0FWovfh66Q3Imo1fkSA4xVUd6JeXWGepIlTvPqkw3\nrv3R923Te4RIzjD+DQZaq52fGolCjltRO6pIb+Pa23Lf0vztDFP9SFHZj+SFd/v7kVKvLc+p\niXKoLTcuHbLO4NTIhqjRx5sohtpy5zJEyBmcEmk2FiYJzg0iAQgw/5ayvh9pARYmCc6NqyJZ\n3Y8E7uFq0Q6RYFdcFWkcC5ME50a9NQxFYSbYLViYJDg318mRlM7RiQHXcEqk2fN5EQmEcUik\nBfN5EQmEmZiPJFEe2uuuXTCfF5FAmNFb6nEqkRbMnkIkEGb8loq91Y88mRuFHAvm8yISCDNx\nS8Wrp/PNjkIMciQ4jqlb6qHdnYaikGLBfF5EAmEcarVbMJ8XkUAYl0SaP58XkUAYp0SajYVJ\ngnMz75baNKbGwrvWwiTBuXFRpOnUIhIIg0gAAiASgACIBCAAIgEI4GLzNyLB7rgo0jQWJgnO\nDSIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIg\nEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIB\nCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAA\nToqkpqJEJBAGkQAEcEgk1ceGJMFlcEikPw+R4CgcEilLQxUkZYwU7WBnXBIpy55KPTNEgv1x\nS6QsCVSYIhLsjmMiZdldeS9Egr1xTqQs9idaGjJEAnHcEynLbogEe+OiSNNYmCQ4N4gEIICr\nItEhC7uCSAACuCrSOBYmCc4NIgEIcB2RZo9oBViOUyL93cNSkzD6Gz8QkUAYh0RKfS3LCaxI\nElwGh0SKlPeMy63k5alo7FBEAmEcEslTcbsdK2/sUEQCYRwSqdeEQD8S7IpDIpEjwXE4JFJe\nR3qVM82pI8HuOCRSFmitdn5qRZLgKrgkUvYXlf1IXninHwn2xSmRZmNhkuDcIBKAAC6KND2U\nDpFAGEQCEACRAARAJAABEAlAgIuKBCDMDve1+Sg2I5tGQiM0A1iQhElsvuiE5l5oZ03CJDZf\ndEJzL7SzJmESmy86obkX2lmTMInNF53Q3AvtrEmYxOaLTmjuhXbWJExi80UnNPdCO2sSJrH5\nohOae6GdNQmT2HzRCc290M6ahElsvuiE5l5oZ03CJDZfdEJzL7SzJmESmy86obkX2lmTAHB+\nEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACR\nAASwWaTIU170sQD63+oEf4aW3pS6xWJpe/jfiV0fWh7eyg/6FdTQVTwiYUOhiV60bV/oViwW\nKSjXEfB7+1JvbYK/QvPKHSsv/FdoUbnDW3dTDHzSeOUKCl9BDV3FIxI2FJrsRdv0hW7GXpH+\nlBdnsaf+9J3h2q/xK7RI3YpfoUxosbqlxT/rm0hoWfFq1Qf9CmrwKh6QsKHQZC/api90O/aK\nFKlX/vup7tq+5+qlbr5C81Txj3BlcF+hhVU464L7/qQPFQgFNXQVj0jYUGiyF23TF7ode0UK\nVZIV/7W0fzHJ+q9xILQC5UmGtvJr/A5NRVJB/Urp3gkbSYrURasCW/eFbsdekdT3/6tAJWu/\nxoHQsuLf2kMwtCxVgUxo8drb6yuoHyndPWG/kyJ20QrWfqHbOZNId/Vc/TUOXfe8oBjJhZYV\nBZ+XWGh2irQ6qN9JEbxo67/Q7ZxIpDIblxTpEXrr6g4/7onEW1fTvbRIkhdt/Re6nROJ5Bft\npLJFu+y2rigwGFrqrSqjXFsk2Yu2+gvdjn0iNctQex9X6lYWAZZ+jb9Cq0mXVU5HQwuWdtaM\nhrbufv0K6sfnXhna+qB+hbb4oo2GtvgLlcNekapmmaRtllm31vuv0Lr3hUJL/CBZEtRU2ra0\nZSWfrXbfn3tdaOsTNhzaios2mrbsuPZv+0RquJc50KutPq4T6VdodbdDsq7P/yu0fHtlEWUw\ntGztDfEV1GDYByRsMDTRi7bpC92OvSIN98nLjmxIw3VF6q/Qkg23xPAntXRkwwaRDF+0TV/o\nduwVKfPL7Ke81l+VZ4HQvG7H9tBuW3LLwU8qFZQv+TE3JGwgNOGLtukL3YzFIqXl8N5yU0Ck\n79DyHf7af1+foW0qdg5+UqmgtB2HJmwgNOmLtuUL3YzFIgGcB0QCEACRAARAJAABEAlAAEQC\nEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAAB\nEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQyRLUW\nnR+l1YsV508e8mgPeXVre1cL2aXNy79eMPFNqVu1jnh+WPDS3nr6yi/XY03r5YxD/V2YApEM\n0Szr6CWZIZHi9pBEteIkXhdrTurpwbyq94qDg3Lz3r71p6IsKlc2jlRlUKqSxYm+MIhkiOou\nTwJjqwPHXitS0K0Re1PFdrnCd0HY89Hz4mLd76jIzII0S28qbt4KchfTIq1NhpQHctS6xqcE\nkQzR3MG+MlNEylVoonh2GVITbf3n2Vvp+FlKliqv8KbIfBIV9c4rfkVtelP1NJJyN0EkQzR3\n8KvIHIoX+c9deffiVq3v34evvEd1bBKWb+WH53qUdZfq/PwQ//OQOvyoc1XLOuqiXCFLIUqg\ni6RlQI1vQW9H/qvLkHLbuk2YApEM0dzB5Z1ZiXQvqiWvsnZSmBSW1ZSgPNarayyPqmL1qM8P\nBg6pidso/tSji/ZeF+3KAwOV6CL5ucqeuqXZZ8aVdUW7SMtAH2W2BbNAJEO092idG+U/ebXk\nUf/2iqyqqKYExY1b7/SLDCUuimC1e0+VV2ryutBTP+QriqjLaHIehXBVRnfPT9RFUqp0t8is\n/LIl4a97t25sSPQY4q7kB1MgkiEGRPorXzWteGFZs0lV2L1V/Ly008Ly1avIkrpDvqIItCpS\nYU+Tc8VV0PrxRWPDrXjzrsI0i/WC36ts/s5jbNvBq8YHmAciGWJApG539bpG35nXn8I41k/L\nvs/+iKK381HkIrkseZbkF+3cfZGKkKtMpywo9tv0ssI9v2sHX9Vqf1m4VIZobsKkyk9milRU\nYqpeoJUi+XU+52c39co+Rer+5K559y9TwqIKl7ZZESLNh0tliK5tOvol0sex9Y5X5HftE1n/\n6GmRun1KM7Ui/Dw+7te5ysJg2w7+FR2MwaUyRNeP9DcsUti1j31a0hze1JHCUZF6daSq+bvo\nK/oW6V4GV2aRXnnOQ4V6eHl8sS4SdaQFIJIheiMbhkQqm+Sqe7nb6RctdMOtdt3Z/SjaGk39\nohhnF7XtbfoZee2oHM7wrIc+/Pn9LteydUIr2v3RajcfRDLE11i7T5HqTqKmPtSoU/I30I/U\nnd1FUf7503qX9FP0Y6o/9/a9tBqS950haYPu8sPpR5oNIhmiMiK41y8GRCqGLVRjsbWd5ciG\nrqX74bUjG7rfXRTVX79XAitHf38e09S/gua95JZr1B+8FFdevdrmb0Y2LACRzs/LzDjtxNAo\nQTdBJAcIjNRlGP29BERygKQ3tkEI5iMtApFc4HWTD/NGwW4JiAQgACIBCIBIAAIgEoAAiAQg\nACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAIg\nEoAAiAQgACIBCIBIAAIgEoAAiAQgACIBCIBIAAL8A+zf7erlbNwtAAAAAElFTkSuQmCC",
      "text/plain": [
       "Plot with title \"Biplot Analysis\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "biplot (G2, H2, xlabs=xlabel, ylabs = ylabel, cex=0.8, main=\"Biplot Analysis\", xlab = xlab, ylab=ylab)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Export ke jpeg"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [],
   "source": [
    "png(file=\"biplot.png\",width=800,height=750,res=100)\n",
    "biplot(G2, H2, xlabs=xlabel, ylabs = ylabel, cex=0.8, main=\"Biplot Analysis\", xlab = xlab, ylab=ylab)\n",
    "abline(h=0)\n",
    "abline(v=0)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Extras"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Matirks var covar (analisa keragaman alias panjang panah di biplot)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>0.692098258919931</li>\n",
       "\t<li>0.641404708432983</li>\n",
       "\t<li>0.526687763290548</li>\n",
       "\t<li>0.449666543118342</li>\n",
       "\t<li>0.828613299434664</li>\n",
       "\t<li>1.36696744657655</li>\n",
       "\t<li>0.180831413200251</li>\n",
       "\t<li>0.195448202856921</li>\n",
       "\t<li>0.0173205080756888</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 0.692098258919931\n",
       "\\item 0.641404708432983\n",
       "\\item 0.526687763290548\n",
       "\\item 0.449666543118342\n",
       "\\item 0.828613299434664\n",
       "\\item 1.36696744657655\n",
       "\\item 0.180831413200251\n",
       "\\item 0.195448202856921\n",
       "\\item 0.0173205080756888\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 0.692098258919931\n",
       "2. 0.641404708432983\n",
       "3. 0.526687763290548\n",
       "4. 0.449666543118342\n",
       "5. 0.828613299434664\n",
       "6. 1.36696744657655\n",
       "7. 0.180831413200251\n",
       "8. 0.195448202856921\n",
       "9. 0.0173205080756888\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 0.69209826 0.64140471 0.52668776 0.44966654 0.82861330 1.36696745 0.18083141\n",
       "[8] 0.19544820 0.01732051"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>1.0000000</td><td>0.9616704</td><td>0.9445306</td><td>0.8302984</td><td>0.7290554</td><td>0.7538508</td><td>0.5888787</td><td>0.7762290</td><td>0.2669449</td></tr>\n",
       "\t<tr><td>0.9616704</td><td>1.0000000</td><td>0.9214966</td><td>0.7343502</td><td>0.6843200</td><td>0.7090724</td><td>0.5147168</td><td>0.8200291</td><td>0.2160322</td></tr>\n",
       "\t<tr><td>0.9445306</td><td>0.9214966</td><td>1.0000000</td><td>0.7617154</td><td>0.8207681</td><td>0.8151785</td><td>0.7192228</td><td>0.8179508</td><td>0.3398191</td></tr>\n",
       "\t<tr><td>0.8302984</td><td>0.7343502</td><td>0.7617154</td><td>1.0000000</td><td>0.5450890</td><td>0.5253144</td><td>0.6222803</td><td>0.4835782</td><td>0.1283952</td></tr>\n",
       "\t<tr><td>0.7290554</td><td>0.6843200</td><td>0.8207681</td><td>0.5450890</td><td>1.0000000</td><td>0.9097832</td><td>0.6727206</td><td>0.7860403</td><td>0.3483834</td></tr>\n",
       "\t<tr><td>0.7538508</td><td>0.7090724</td><td>0.8151785</td><td>0.5253144</td><td>0.9097832</td><td>1.0000000</td><td>0.6755919</td><td>0.8256874</td><td>0.5195009</td></tr>\n",
       "\t<tr><td>0.5888787</td><td>0.5147168</td><td>0.7192228</td><td>0.6222803</td><td>0.6727206</td><td>0.6755919</td><td>1.0000000</td><td>0.6790561</td><td>0.3512030</td></tr>\n",
       "\t<tr><td>0.7762290</td><td>0.8200291</td><td>0.8179508</td><td>0.4835782</td><td>0.7860403</td><td>0.8256874</td><td>0.6790561</td><td>1.0000000</td><td>0.3249379</td></tr>\n",
       "\t<tr><td>0.2669449</td><td>0.2160322</td><td>0.3398191</td><td>0.1283952</td><td>0.3483834</td><td>0.5195009</td><td>0.3512030</td><td>0.3249379</td><td>1.0000000</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lllllllll}\n",
       "\t 1.0000000 & 0.9616704 & 0.9445306 & 0.8302984 & 0.7290554 & 0.7538508 & 0.5888787 & 0.7762290 & 0.2669449\\\\\n",
       "\t 0.9616704 & 1.0000000 & 0.9214966 & 0.7343502 & 0.6843200 & 0.7090724 & 0.5147168 & 0.8200291 & 0.2160322\\\\\n",
       "\t 0.9445306 & 0.9214966 & 1.0000000 & 0.7617154 & 0.8207681 & 0.8151785 & 0.7192228 & 0.8179508 & 0.3398191\\\\\n",
       "\t 0.8302984 & 0.7343502 & 0.7617154 & 1.0000000 & 0.5450890 & 0.5253144 & 0.6222803 & 0.4835782 & 0.1283952\\\\\n",
       "\t 0.7290554 & 0.6843200 & 0.8207681 & 0.5450890 & 1.0000000 & 0.9097832 & 0.6727206 & 0.7860403 & 0.3483834\\\\\n",
       "\t 0.7538508 & 0.7090724 & 0.8151785 & 0.5253144 & 0.9097832 & 1.0000000 & 0.6755919 & 0.8256874 & 0.5195009\\\\\n",
       "\t 0.5888787 & 0.5147168 & 0.7192228 & 0.6222803 & 0.6727206 & 0.6755919 & 1.0000000 & 0.6790561 & 0.3512030\\\\\n",
       "\t 0.7762290 & 0.8200291 & 0.8179508 & 0.4835782 & 0.7860403 & 0.8256874 & 0.6790561 & 1.0000000 & 0.3249379\\\\\n",
       "\t 0.2669449 & 0.2160322 & 0.3398191 & 0.1283952 & 0.3483834 & 0.5195009 & 0.3512030 & 0.3249379 & 1.0000000\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 1.0000000 | 0.9616704 | 0.9445306 | 0.8302984 | 0.7290554 | 0.7538508 | 0.5888787 | 0.7762290 | 0.2669449 | \n",
       "| 0.9616704 | 1.0000000 | 0.9214966 | 0.7343502 | 0.6843200 | 0.7090724 | 0.5147168 | 0.8200291 | 0.2160322 | \n",
       "| 0.9445306 | 0.9214966 | 1.0000000 | 0.7617154 | 0.8207681 | 0.8151785 | 0.7192228 | 0.8179508 | 0.3398191 | \n",
       "| 0.8302984 | 0.7343502 | 0.7617154 | 1.0000000 | 0.5450890 | 0.5253144 | 0.6222803 | 0.4835782 | 0.1283952 | \n",
       "| 0.7290554 | 0.6843200 | 0.8207681 | 0.5450890 | 1.0000000 | 0.9097832 | 0.6727206 | 0.7860403 | 0.3483834 | \n",
       "| 0.7538508 | 0.7090724 | 0.8151785 | 0.5253144 | 0.9097832 | 1.0000000 | 0.6755919 | 0.8256874 | 0.5195009 | \n",
       "| 0.5888787 | 0.5147168 | 0.7192228 | 0.6222803 | 0.6727206 | 0.6755919 | 1.0000000 | 0.6790561 | 0.3512030 | \n",
       "| 0.7762290 | 0.8200291 | 0.8179508 | 0.4835782 | 0.7860403 | 0.8256874 | 0.6790561 | 1.0000000 | 0.3249379 | \n",
       "| 0.2669449 | 0.2160322 | 0.3398191 | 0.1283952 | 0.3483834 | 0.5195009 | 0.3512030 | 0.3249379 | 1.0000000 | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "      [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]     \n",
       " [1,] 1.0000000 0.9616704 0.9445306 0.8302984 0.7290554 0.7538508 0.5888787\n",
       " [2,] 0.9616704 1.0000000 0.9214966 0.7343502 0.6843200 0.7090724 0.5147168\n",
       " [3,] 0.9445306 0.9214966 1.0000000 0.7617154 0.8207681 0.8151785 0.7192228\n",
       " [4,] 0.8302984 0.7343502 0.7617154 1.0000000 0.5450890 0.5253144 0.6222803\n",
       " [5,] 0.7290554 0.6843200 0.8207681 0.5450890 1.0000000 0.9097832 0.6727206\n",
       " [6,] 0.7538508 0.7090724 0.8151785 0.5253144 0.9097832 1.0000000 0.6755919\n",
       " [7,] 0.5888787 0.5147168 0.7192228 0.6222803 0.6727206 0.6755919 1.0000000\n",
       " [8,] 0.7762290 0.8200291 0.8179508 0.4835782 0.7860403 0.8256874 0.6790561\n",
       " [9,] 0.2669449 0.2160322 0.3398191 0.1283952 0.3483834 0.5195009 0.3512030\n",
       "      [,8]      [,9]     \n",
       " [1,] 0.7762290 0.2669449\n",
       " [2,] 0.8200291 0.2160322\n",
       " [3,] 0.8179508 0.3398191\n",
       " [4,] 0.4835782 0.1283952\n",
       " [5,] 0.7860403 0.3483834\n",
       " [6,] 0.8256874 0.5195009\n",
       " [7,] 0.6790561 0.3512030\n",
       " [8,] 1.0000000 0.3249379\n",
       " [9,] 0.3249379 1.0000000"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "var<-H%*%t(H)\n",
    "sqrt(diag(var))\n",
    "cov2cor(var)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Matriks jarak euclid (analisa jarak dari tiap posisi observasi)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<tbody>\n",
       "\t<tr><td>0.12233086  </td><td>0.10996581  </td><td> 0.092988578</td><td>0.13794409  </td><td>0.10073230  </td><td>0.11608839  </td><td>0.07079862  </td><td>0.12420658  </td><td>0.08501370  </td><td>0.06016675  </td><td>0.07341833  </td><td>0.09193667  </td><td>0.05475739  </td><td>0.07150245  </td><td>0.039137196 </td><td> 0.03742676 </td><td>0.05912434  </td><td>0.06137606  </td><td>0.09141475  </td><td>0.05245201  </td></tr>\n",
       "\t<tr><td>0.10996581  </td><td>0.10857340  </td><td> 0.096404226</td><td>0.11347379  </td><td>0.09497269  </td><td>0.10615624  </td><td>0.07391824  </td><td>0.11082087  </td><td>0.09141639  </td><td>0.07128129  </td><td>0.07227632  </td><td>0.09896805  </td><td>0.06936392  </td><td>0.06868113  </td><td>0.044654348 </td><td> 0.04870857 </td><td>0.06777219  </td><td>0.05975112  </td><td>0.09751930  </td><td>0.05468406  </td></tr>\n",
       "\t<tr><td>0.09298858  </td><td>0.09640423  </td><td> 0.280279720</td><td>0.06720930  </td><td>0.06209837  </td><td>0.13987946  </td><td>0.02145221  </td><td>0.09324050  </td><td>0.08988181  </td><td>0.12204986  </td><td>0.04947652  </td><td>0.10909181  </td><td>0.06557439  </td><td>0.08375722  </td><td>0.008240775 </td><td>-0.01650327 </td><td>0.10588033  </td><td>0.04781661  </td><td>0.08890578  </td><td>0.04275949  </td></tr>\n",
       "\t<tr><td>0.13794409  </td><td>0.11347379  </td><td> 0.067209302</td><td>0.20817515  </td><td>0.09203085  </td><td>0.13113590  </td><td>0.08520024  </td><td>0.17330672  </td><td>0.06258199  </td><td>0.05024802  </td><td>0.06200523  </td><td>0.06266021  </td><td>0.02841107  </td><td>0.05728590  </td><td>0.026581538 </td><td> 0.01780856 </td><td>0.05679692  </td><td>0.05257309  </td><td>0.06401723  </td><td>0.03959306  </td></tr>\n",
       "\t<tr><td>0.10073230  </td><td>0.09497269  </td><td> 0.062098373</td><td>0.09203085  </td><td>0.13218663  </td><td>0.07938015  </td><td>0.07001447  </td><td>0.08217036  </td><td>0.07274547  </td><td>0.08750580  </td><td>0.11755289  </td><td>0.10827654  </td><td>0.07000568  </td><td>0.08319422  </td><td>0.095120234 </td><td> 0.08396213 </td><td>0.08842529  </td><td>0.07991019  </td><td>0.07745833  </td><td>0.09676314  </td></tr>\n",
       "\t<tr><td>0.11608839  </td><td>0.10615624  </td><td> 0.139879459</td><td>0.13113590  </td><td>0.07938015  </td><td>0.12910464  </td><td>0.06726981  </td><td>0.12606769  </td><td>0.09066228  </td><td>0.06870836  </td><td>0.05282707  </td><td>0.08836988  </td><td>0.05812624  </td><td>0.07933956  </td><td>0.025162462 </td><td> 0.03553331 </td><td>0.06738796  </td><td>0.05847116  </td><td>0.09409026  </td><td>0.04451227  </td></tr>\n",
       "\t<tr><td>0.07079862  </td><td>0.07391824  </td><td> 0.021452213</td><td>0.08520024  </td><td>0.07001447  </td><td>0.06726981  </td><td>0.20188805  </td><td>0.08338486  </td><td>0.07850111  </td><td>0.06303137  </td><td>0.06494308  </td><td>0.05217333  </td><td>0.09036428  </td><td>0.06472688  </td><td>0.056874418 </td><td> 0.06960285 </td><td>0.06144502  </td><td>0.08662686  </td><td>0.06959685  </td><td>0.08962314  </td></tr>\n",
       "\t<tr><td>0.12420658  </td><td>0.11082087  </td><td> 0.093240500</td><td>0.17330672  </td><td>0.08217036  </td><td>0.12606769  </td><td>0.08338486  </td><td>0.15410717  </td><td>0.07452010  </td><td>0.06426123  </td><td>0.05883849  </td><td>0.07287835  </td><td>0.04686481  </td><td>0.06104107  </td><td>0.029813980 </td><td> 0.02531124 </td><td>0.06619457  </td><td>0.05454373  </td><td>0.07593516  </td><td>0.04224509  </td></tr>\n",
       "\t<tr><td>0.08501370  </td><td>0.09141639  </td><td> 0.089881806</td><td>0.06258199  </td><td>0.07274547  </td><td>0.09066228  </td><td>0.07850111  </td><td>0.07452010  </td><td>0.11395535  </td><td>0.06634877  </td><td>0.06339491  </td><td>0.09951914  </td><td>0.10106507  </td><td>0.09526355  </td><td>0.071596084 </td><td> 0.11105701 </td><td>0.06535837  </td><td>0.08338093  </td><td>0.12147998  </td><td>0.06893370  </td></tr>\n",
       "\t<tr><td>0.06016675  </td><td>0.07128129  </td><td> 0.122049856</td><td>0.05024802  </td><td>0.08750580  </td><td>0.06870836  </td><td>0.06303137  </td><td>0.06426123  </td><td>0.06634877  </td><td>0.15004118  </td><td>0.13674582  </td><td>0.09769291  </td><td>0.10775338  </td><td>0.09015221  </td><td>0.148231593 </td><td> 0.07567949 </td><td>0.14035943  </td><td>0.11272560  </td><td>0.06210302  </td><td>0.12624060  </td></tr>\n",
       "\t<tr><td>0.07341833  </td><td>0.07227632  </td><td> 0.049476518</td><td>0.06200523  </td><td>0.11755289  </td><td>0.05282707  </td><td>0.06494308  </td><td>0.05883849  </td><td>0.06339491  </td><td>0.13674582  </td><td>0.20027863  </td><td>0.09868539  </td><td>0.12206803  </td><td>0.09533170  </td><td>0.202341428 </td><td> 0.07361972 </td><td>0.12337840  </td><td>0.15238796  </td><td>0.06587325  </td><td>0.16583554  </td></tr>\n",
       "\t<tr><td>0.09193667  </td><td>0.09896805  </td><td> 0.109091806</td><td>0.06266021  </td><td>0.10827654  </td><td>0.08836988  </td><td>0.05217333  </td><td>0.07287835  </td><td>0.09951914  </td><td>0.09769291  </td><td>0.09868539  </td><td>0.12234697  </td><td>0.09419869  </td><td>0.09345820  </td><td>0.090860095 </td><td> 0.10034599 </td><td>0.09465915  </td><td>0.07997458  </td><td>0.10694739  </td><td>0.08588950  </td></tr>\n",
       "\t<tr><td>0.05475739  </td><td>0.06936392  </td><td> 0.065574392</td><td>0.02841107  </td><td>0.07000568  </td><td>0.05812624  </td><td>0.09036428  </td><td>0.04686481  </td><td>0.10106507  </td><td>0.10775338  </td><td>0.12206803  </td><td>0.09419869  </td><td>0.14118884  </td><td>0.10466028  </td><td>0.151494325 </td><td> 0.13358302 </td><td>0.10204782  </td><td>0.12802024  </td><td>0.10348311  </td><td>0.12863891  </td></tr>\n",
       "\t<tr><td>0.07150245  </td><td>0.06868113  </td><td> 0.083757219</td><td>0.05728590  </td><td>0.08319422  </td><td>0.07933956  </td><td>0.06472688  </td><td>0.06104107  </td><td>0.09526355  </td><td>0.09015221  </td><td>0.09533170  </td><td>0.09345820  </td><td>0.10466028  </td><td>0.12929098  </td><td>0.134282334 </td><td> 0.16785676 </td><td>0.09956606  </td><td>0.11707375  </td><td>0.09760093  </td><td>0.11310801  </td></tr>\n",
       "\t<tr><td>0.03913720  </td><td>0.04465435  </td><td> 0.008240775</td><td>0.02658154  </td><td>0.09512023  </td><td>0.02516246  </td><td>0.05687442  </td><td>0.02981398  </td><td>0.07159608  </td><td>0.14823159  </td><td>0.20234143  </td><td>0.09086010  </td><td>0.15149432  </td><td>0.13428233  </td><td>0.280991402 </td><td> 0.19017223 </td><td>0.14788349  </td><td>0.19341039  </td><td>0.07262011  </td><td>0.19556145  </td></tr>\n",
       "\t<tr><td>0.03742676  </td><td>0.04870857  </td><td>-0.016503265</td><td>0.01780856  </td><td>0.08396213  </td><td>0.03553331  </td><td>0.06960285  </td><td>0.02531124  </td><td>0.11105701  </td><td>0.07567949  </td><td>0.07361972  </td><td>0.10034599  </td><td>0.13358302  </td><td>0.16785676  </td><td>0.190172229 </td><td> 0.37015756 </td><td>0.11606499  </td><td>0.12160057  </td><td>0.11402843  </td><td>0.13537665  </td></tr>\n",
       "\t<tr><td>0.05912434  </td><td>0.06777219  </td><td> 0.105880326</td><td>0.05679692  </td><td>0.08842529  </td><td>0.06738796  </td><td>0.06144502  </td><td>0.06619457  </td><td>0.06535837  </td><td>0.14035943  </td><td>0.12337840  </td><td>0.09465915  </td><td>0.10204782  </td><td>0.09956606  </td><td>0.147883490 </td><td> 0.11606499 </td><td>0.14060994  </td><td>0.10708090  </td><td>0.06046628  </td><td>0.12426119  </td></tr>\n",
       "\t<tr><td>0.06137606  </td><td>0.05975112  </td><td> 0.047816612</td><td>0.05257309  </td><td>0.07991019  </td><td>0.05847116  </td><td>0.08662686  </td><td>0.05454373  </td><td>0.08338093  </td><td>0.11272560  </td><td>0.15238796  </td><td>0.07997458  </td><td>0.12802024  </td><td>0.11707375  </td><td>0.193410388 </td><td> 0.12160057 </td><td>0.10708090  </td><td>0.16215769  </td><td>0.08442365  </td><td>0.14990897  </td></tr>\n",
       "\t<tr><td>0.09141475  </td><td>0.09751930  </td><td> 0.088905780</td><td>0.06401723  </td><td>0.07745833  </td><td>0.09409026  </td><td>0.06959685  </td><td>0.07593516  </td><td>0.12147998  </td><td>0.06210302  </td><td>0.06587325  </td><td>0.10694739  </td><td>0.10348311  </td><td>0.09760093  </td><td>0.072620108 </td><td> 0.11402843 </td><td>0.06046628  </td><td>0.08442365  </td><td>0.13219634  </td><td>0.06638368  </td></tr>\n",
       "\t<tr><td>0.05245201  </td><td>0.05468406  </td><td> 0.042759493</td><td>0.03959306  </td><td>0.09676314  </td><td>0.04451227  </td><td>0.08962314  </td><td>0.04224509  </td><td>0.06893370  </td><td>0.12624060  </td><td>0.16583554  </td><td>0.08588950  </td><td>0.12863891  </td><td>0.11310801  </td><td>0.195561447 </td><td> 0.13537665 </td><td>0.12426119  </td><td>0.14990897  </td><td>0.06638368  </td><td>0.16643688  </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{llllllllllllllllllll}\n",
       "\t 0.12233086   & 0.10996581   &  0.092988578 & 0.13794409   & 0.10073230   & 0.11608839   & 0.07079862   & 0.12420658   & 0.08501370   & 0.06016675   & 0.07341833   & 0.09193667   & 0.05475739   & 0.07150245   & 0.039137196  &  0.03742676  & 0.05912434   & 0.06137606   & 0.09141475   & 0.05245201  \\\\\n",
       "\t 0.10996581   & 0.10857340   &  0.096404226 & 0.11347379   & 0.09497269   & 0.10615624   & 0.07391824   & 0.11082087   & 0.09141639   & 0.07128129   & 0.07227632   & 0.09896805   & 0.06936392   & 0.06868113   & 0.044654348  &  0.04870857  & 0.06777219   & 0.05975112   & 0.09751930   & 0.05468406  \\\\\n",
       "\t 0.09298858   & 0.09640423   &  0.280279720 & 0.06720930   & 0.06209837   & 0.13987946   & 0.02145221   & 0.09324050   & 0.08988181   & 0.12204986   & 0.04947652   & 0.10909181   & 0.06557439   & 0.08375722   & 0.008240775  & -0.01650327  & 0.10588033   & 0.04781661   & 0.08890578   & 0.04275949  \\\\\n",
       "\t 0.13794409   & 0.11347379   &  0.067209302 & 0.20817515   & 0.09203085   & 0.13113590   & 0.08520024   & 0.17330672   & 0.06258199   & 0.05024802   & 0.06200523   & 0.06266021   & 0.02841107   & 0.05728590   & 0.026581538  &  0.01780856  & 0.05679692   & 0.05257309   & 0.06401723   & 0.03959306  \\\\\n",
       "\t 0.10073230   & 0.09497269   &  0.062098373 & 0.09203085   & 0.13218663   & 0.07938015   & 0.07001447   & 0.08217036   & 0.07274547   & 0.08750580   & 0.11755289   & 0.10827654   & 0.07000568   & 0.08319422   & 0.095120234  &  0.08396213  & 0.08842529   & 0.07991019   & 0.07745833   & 0.09676314  \\\\\n",
       "\t 0.11608839   & 0.10615624   &  0.139879459 & 0.13113590   & 0.07938015   & 0.12910464   & 0.06726981   & 0.12606769   & 0.09066228   & 0.06870836   & 0.05282707   & 0.08836988   & 0.05812624   & 0.07933956   & 0.025162462  &  0.03553331  & 0.06738796   & 0.05847116   & 0.09409026   & 0.04451227  \\\\\n",
       "\t 0.07079862   & 0.07391824   &  0.021452213 & 0.08520024   & 0.07001447   & 0.06726981   & 0.20188805   & 0.08338486   & 0.07850111   & 0.06303137   & 0.06494308   & 0.05217333   & 0.09036428   & 0.06472688   & 0.056874418  &  0.06960285  & 0.06144502   & 0.08662686   & 0.06959685   & 0.08962314  \\\\\n",
       "\t 0.12420658   & 0.11082087   &  0.093240500 & 0.17330672   & 0.08217036   & 0.12606769   & 0.08338486   & 0.15410717   & 0.07452010   & 0.06426123   & 0.05883849   & 0.07287835   & 0.04686481   & 0.06104107   & 0.029813980  &  0.02531124  & 0.06619457   & 0.05454373   & 0.07593516   & 0.04224509  \\\\\n",
       "\t 0.08501370   & 0.09141639   &  0.089881806 & 0.06258199   & 0.07274547   & 0.09066228   & 0.07850111   & 0.07452010   & 0.11395535   & 0.06634877   & 0.06339491   & 0.09951914   & 0.10106507   & 0.09526355   & 0.071596084  &  0.11105701  & 0.06535837   & 0.08338093   & 0.12147998   & 0.06893370  \\\\\n",
       "\t 0.06016675   & 0.07128129   &  0.122049856 & 0.05024802   & 0.08750580   & 0.06870836   & 0.06303137   & 0.06426123   & 0.06634877   & 0.15004118   & 0.13674582   & 0.09769291   & 0.10775338   & 0.09015221   & 0.148231593  &  0.07567949  & 0.14035943   & 0.11272560   & 0.06210302   & 0.12624060  \\\\\n",
       "\t 0.07341833   & 0.07227632   &  0.049476518 & 0.06200523   & 0.11755289   & 0.05282707   & 0.06494308   & 0.05883849   & 0.06339491   & 0.13674582   & 0.20027863   & 0.09868539   & 0.12206803   & 0.09533170   & 0.202341428  &  0.07361972  & 0.12337840   & 0.15238796   & 0.06587325   & 0.16583554  \\\\\n",
       "\t 0.09193667   & 0.09896805   &  0.109091806 & 0.06266021   & 0.10827654   & 0.08836988   & 0.05217333   & 0.07287835   & 0.09951914   & 0.09769291   & 0.09868539   & 0.12234697   & 0.09419869   & 0.09345820   & 0.090860095  &  0.10034599  & 0.09465915   & 0.07997458   & 0.10694739   & 0.08588950  \\\\\n",
       "\t 0.05475739   & 0.06936392   &  0.065574392 & 0.02841107   & 0.07000568   & 0.05812624   & 0.09036428   & 0.04686481   & 0.10106507   & 0.10775338   & 0.12206803   & 0.09419869   & 0.14118884   & 0.10466028   & 0.151494325  &  0.13358302  & 0.10204782   & 0.12802024   & 0.10348311   & 0.12863891  \\\\\n",
       "\t 0.07150245   & 0.06868113   &  0.083757219 & 0.05728590   & 0.08319422   & 0.07933956   & 0.06472688   & 0.06104107   & 0.09526355   & 0.09015221   & 0.09533170   & 0.09345820   & 0.10466028   & 0.12929098   & 0.134282334  &  0.16785676  & 0.09956606   & 0.11707375   & 0.09760093   & 0.11310801  \\\\\n",
       "\t 0.03913720   & 0.04465435   &  0.008240775 & 0.02658154   & 0.09512023   & 0.02516246   & 0.05687442   & 0.02981398   & 0.07159608   & 0.14823159   & 0.20234143   & 0.09086010   & 0.15149432   & 0.13428233   & 0.280991402  &  0.19017223  & 0.14788349   & 0.19341039   & 0.07262011   & 0.19556145  \\\\\n",
       "\t 0.03742676   & 0.04870857   & -0.016503265 & 0.01780856   & 0.08396213   & 0.03553331   & 0.06960285   & 0.02531124   & 0.11105701   & 0.07567949   & 0.07361972   & 0.10034599   & 0.13358302   & 0.16785676   & 0.190172229  &  0.37015756  & 0.11606499   & 0.12160057   & 0.11402843   & 0.13537665  \\\\\n",
       "\t 0.05912434   & 0.06777219   &  0.105880326 & 0.05679692   & 0.08842529   & 0.06738796   & 0.06144502   & 0.06619457   & 0.06535837   & 0.14035943   & 0.12337840   & 0.09465915   & 0.10204782   & 0.09956606   & 0.147883490  &  0.11606499  & 0.14060994   & 0.10708090   & 0.06046628   & 0.12426119  \\\\\n",
       "\t 0.06137606   & 0.05975112   &  0.047816612 & 0.05257309   & 0.07991019   & 0.05847116   & 0.08662686   & 0.05454373   & 0.08338093   & 0.11272560   & 0.15238796   & 0.07997458   & 0.12802024   & 0.11707375   & 0.193410388  &  0.12160057  & 0.10708090   & 0.16215769   & 0.08442365   & 0.14990897  \\\\\n",
       "\t 0.09141475   & 0.09751930   &  0.088905780 & 0.06401723   & 0.07745833   & 0.09409026   & 0.06959685   & 0.07593516   & 0.12147998   & 0.06210302   & 0.06587325   & 0.10694739   & 0.10348311   & 0.09760093   & 0.072620108  &  0.11402843  & 0.06046628   & 0.08442365   & 0.13219634   & 0.06638368  \\\\\n",
       "\t 0.05245201   & 0.05468406   &  0.042759493 & 0.03959306   & 0.09676314   & 0.04451227   & 0.08962314   & 0.04224509   & 0.06893370   & 0.12624060   & 0.16583554   & 0.08588950   & 0.12863891   & 0.11310801   & 0.195561447  &  0.13537665  & 0.12426119   & 0.14990897   & 0.06638368   & 0.16643688  \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| 0.12233086   | 0.10996581   |  0.092988578 | 0.13794409   | 0.10073230   | 0.11608839   | 0.07079862   | 0.12420658   | 0.08501370   | 0.06016675   | 0.07341833   | 0.09193667   | 0.05475739   | 0.07150245   | 0.039137196  |  0.03742676  | 0.05912434   | 0.06137606   | 0.09141475   | 0.05245201   | \n",
       "| 0.10996581   | 0.10857340   |  0.096404226 | 0.11347379   | 0.09497269   | 0.10615624   | 0.07391824   | 0.11082087   | 0.09141639   | 0.07128129   | 0.07227632   | 0.09896805   | 0.06936392   | 0.06868113   | 0.044654348  |  0.04870857  | 0.06777219   | 0.05975112   | 0.09751930   | 0.05468406   | \n",
       "| 0.09298858   | 0.09640423   |  0.280279720 | 0.06720930   | 0.06209837   | 0.13987946   | 0.02145221   | 0.09324050   | 0.08988181   | 0.12204986   | 0.04947652   | 0.10909181   | 0.06557439   | 0.08375722   | 0.008240775  | -0.01650327  | 0.10588033   | 0.04781661   | 0.08890578   | 0.04275949   | \n",
       "| 0.13794409   | 0.11347379   |  0.067209302 | 0.20817515   | 0.09203085   | 0.13113590   | 0.08520024   | 0.17330672   | 0.06258199   | 0.05024802   | 0.06200523   | 0.06266021   | 0.02841107   | 0.05728590   | 0.026581538  |  0.01780856  | 0.05679692   | 0.05257309   | 0.06401723   | 0.03959306   | \n",
       "| 0.10073230   | 0.09497269   |  0.062098373 | 0.09203085   | 0.13218663   | 0.07938015   | 0.07001447   | 0.08217036   | 0.07274547   | 0.08750580   | 0.11755289   | 0.10827654   | 0.07000568   | 0.08319422   | 0.095120234  |  0.08396213  | 0.08842529   | 0.07991019   | 0.07745833   | 0.09676314   | \n",
       "| 0.11608839   | 0.10615624   |  0.139879459 | 0.13113590   | 0.07938015   | 0.12910464   | 0.06726981   | 0.12606769   | 0.09066228   | 0.06870836   | 0.05282707   | 0.08836988   | 0.05812624   | 0.07933956   | 0.025162462  |  0.03553331  | 0.06738796   | 0.05847116   | 0.09409026   | 0.04451227   | \n",
       "| 0.07079862   | 0.07391824   |  0.021452213 | 0.08520024   | 0.07001447   | 0.06726981   | 0.20188805   | 0.08338486   | 0.07850111   | 0.06303137   | 0.06494308   | 0.05217333   | 0.09036428   | 0.06472688   | 0.056874418  |  0.06960285  | 0.06144502   | 0.08662686   | 0.06959685   | 0.08962314   | \n",
       "| 0.12420658   | 0.11082087   |  0.093240500 | 0.17330672   | 0.08217036   | 0.12606769   | 0.08338486   | 0.15410717   | 0.07452010   | 0.06426123   | 0.05883849   | 0.07287835   | 0.04686481   | 0.06104107   | 0.029813980  |  0.02531124  | 0.06619457   | 0.05454373   | 0.07593516   | 0.04224509   | \n",
       "| 0.08501370   | 0.09141639   |  0.089881806 | 0.06258199   | 0.07274547   | 0.09066228   | 0.07850111   | 0.07452010   | 0.11395535   | 0.06634877   | 0.06339491   | 0.09951914   | 0.10106507   | 0.09526355   | 0.071596084  |  0.11105701  | 0.06535837   | 0.08338093   | 0.12147998   | 0.06893370   | \n",
       "| 0.06016675   | 0.07128129   |  0.122049856 | 0.05024802   | 0.08750580   | 0.06870836   | 0.06303137   | 0.06426123   | 0.06634877   | 0.15004118   | 0.13674582   | 0.09769291   | 0.10775338   | 0.09015221   | 0.148231593  |  0.07567949  | 0.14035943   | 0.11272560   | 0.06210302   | 0.12624060   | \n",
       "| 0.07341833   | 0.07227632   |  0.049476518 | 0.06200523   | 0.11755289   | 0.05282707   | 0.06494308   | 0.05883849   | 0.06339491   | 0.13674582   | 0.20027863   | 0.09868539   | 0.12206803   | 0.09533170   | 0.202341428  |  0.07361972  | 0.12337840   | 0.15238796   | 0.06587325   | 0.16583554   | \n",
       "| 0.09193667   | 0.09896805   |  0.109091806 | 0.06266021   | 0.10827654   | 0.08836988   | 0.05217333   | 0.07287835   | 0.09951914   | 0.09769291   | 0.09868539   | 0.12234697   | 0.09419869   | 0.09345820   | 0.090860095  |  0.10034599  | 0.09465915   | 0.07997458   | 0.10694739   | 0.08588950   | \n",
       "| 0.05475739   | 0.06936392   |  0.065574392 | 0.02841107   | 0.07000568   | 0.05812624   | 0.09036428   | 0.04686481   | 0.10106507   | 0.10775338   | 0.12206803   | 0.09419869   | 0.14118884   | 0.10466028   | 0.151494325  |  0.13358302  | 0.10204782   | 0.12802024   | 0.10348311   | 0.12863891   | \n",
       "| 0.07150245   | 0.06868113   |  0.083757219 | 0.05728590   | 0.08319422   | 0.07933956   | 0.06472688   | 0.06104107   | 0.09526355   | 0.09015221   | 0.09533170   | 0.09345820   | 0.10466028   | 0.12929098   | 0.134282334  |  0.16785676  | 0.09956606   | 0.11707375   | 0.09760093   | 0.11310801   | \n",
       "| 0.03913720   | 0.04465435   |  0.008240775 | 0.02658154   | 0.09512023   | 0.02516246   | 0.05687442   | 0.02981398   | 0.07159608   | 0.14823159   | 0.20234143   | 0.09086010   | 0.15149432   | 0.13428233   | 0.280991402  |  0.19017223  | 0.14788349   | 0.19341039   | 0.07262011   | 0.19556145   | \n",
       "| 0.03742676   | 0.04870857   | -0.016503265 | 0.01780856   | 0.08396213   | 0.03553331   | 0.06960285   | 0.02531124   | 0.11105701   | 0.07567949   | 0.07361972   | 0.10034599   | 0.13358302   | 0.16785676   | 0.190172229  |  0.37015756  | 0.11606499   | 0.12160057   | 0.11402843   | 0.13537665   | \n",
       "| 0.05912434   | 0.06777219   |  0.105880326 | 0.05679692   | 0.08842529   | 0.06738796   | 0.06144502   | 0.06619457   | 0.06535837   | 0.14035943   | 0.12337840   | 0.09465915   | 0.10204782   | 0.09956606   | 0.147883490  |  0.11606499  | 0.14060994   | 0.10708090   | 0.06046628   | 0.12426119   | \n",
       "| 0.06137606   | 0.05975112   |  0.047816612 | 0.05257309   | 0.07991019   | 0.05847116   | 0.08662686   | 0.05454373   | 0.08338093   | 0.11272560   | 0.15238796   | 0.07997458   | 0.12802024   | 0.11707375   | 0.193410388  |  0.12160057  | 0.10708090   | 0.16215769   | 0.08442365   | 0.14990897   | \n",
       "| 0.09141475   | 0.09751930   |  0.088905780 | 0.06401723   | 0.07745833   | 0.09409026   | 0.06959685   | 0.07593516   | 0.12147998   | 0.06210302   | 0.06587325   | 0.10694739   | 0.10348311   | 0.09760093   | 0.072620108  |  0.11402843  | 0.06046628   | 0.08442365   | 0.13219634   | 0.06638368   | \n",
       "| 0.05245201   | 0.05468406   |  0.042759493 | 0.03959306   | 0.09676314   | 0.04451227   | 0.08962314   | 0.04224509   | 0.06893370   | 0.12624060   | 0.16583554   | 0.08588950   | 0.12863891   | 0.11310801   | 0.195561447  |  0.13537665  | 0.12426119   | 0.14990897   | 0.06638368   | 0.16643688   | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "      [,1]       [,2]       [,3]         [,4]       [,5]       [,6]      \n",
       " [1,] 0.12233086 0.10996581  0.092988578 0.13794409 0.10073230 0.11608839\n",
       " [2,] 0.10996581 0.10857340  0.096404226 0.11347379 0.09497269 0.10615624\n",
       " [3,] 0.09298858 0.09640423  0.280279720 0.06720930 0.06209837 0.13987946\n",
       " [4,] 0.13794409 0.11347379  0.067209302 0.20817515 0.09203085 0.13113590\n",
       " [5,] 0.10073230 0.09497269  0.062098373 0.09203085 0.13218663 0.07938015\n",
       " [6,] 0.11608839 0.10615624  0.139879459 0.13113590 0.07938015 0.12910464\n",
       " [7,] 0.07079862 0.07391824  0.021452213 0.08520024 0.07001447 0.06726981\n",
       " [8,] 0.12420658 0.11082087  0.093240500 0.17330672 0.08217036 0.12606769\n",
       " [9,] 0.08501370 0.09141639  0.089881806 0.06258199 0.07274547 0.09066228\n",
       "[10,] 0.06016675 0.07128129  0.122049856 0.05024802 0.08750580 0.06870836\n",
       "[11,] 0.07341833 0.07227632  0.049476518 0.06200523 0.11755289 0.05282707\n",
       "[12,] 0.09193667 0.09896805  0.109091806 0.06266021 0.10827654 0.08836988\n",
       "[13,] 0.05475739 0.06936392  0.065574392 0.02841107 0.07000568 0.05812624\n",
       "[14,] 0.07150245 0.06868113  0.083757219 0.05728590 0.08319422 0.07933956\n",
       "[15,] 0.03913720 0.04465435  0.008240775 0.02658154 0.09512023 0.02516246\n",
       "[16,] 0.03742676 0.04870857 -0.016503265 0.01780856 0.08396213 0.03553331\n",
       "[17,] 0.05912434 0.06777219  0.105880326 0.05679692 0.08842529 0.06738796\n",
       "[18,] 0.06137606 0.05975112  0.047816612 0.05257309 0.07991019 0.05847116\n",
       "[19,] 0.09141475 0.09751930  0.088905780 0.06401723 0.07745833 0.09409026\n",
       "[20,] 0.05245201 0.05468406  0.042759493 0.03959306 0.09676314 0.04451227\n",
       "      [,7]       [,8]       [,9]       [,10]      [,11]      [,12]     \n",
       " [1,] 0.07079862 0.12420658 0.08501370 0.06016675 0.07341833 0.09193667\n",
       " [2,] 0.07391824 0.11082087 0.09141639 0.07128129 0.07227632 0.09896805\n",
       " [3,] 0.02145221 0.09324050 0.08988181 0.12204986 0.04947652 0.10909181\n",
       " [4,] 0.08520024 0.17330672 0.06258199 0.05024802 0.06200523 0.06266021\n",
       " [5,] 0.07001447 0.08217036 0.07274547 0.08750580 0.11755289 0.10827654\n",
       " [6,] 0.06726981 0.12606769 0.09066228 0.06870836 0.05282707 0.08836988\n",
       " [7,] 0.20188805 0.08338486 0.07850111 0.06303137 0.06494308 0.05217333\n",
       " [8,] 0.08338486 0.15410717 0.07452010 0.06426123 0.05883849 0.07287835\n",
       " [9,] 0.07850111 0.07452010 0.11395535 0.06634877 0.06339491 0.09951914\n",
       "[10,] 0.06303137 0.06426123 0.06634877 0.15004118 0.13674582 0.09769291\n",
       "[11,] 0.06494308 0.05883849 0.06339491 0.13674582 0.20027863 0.09868539\n",
       "[12,] 0.05217333 0.07287835 0.09951914 0.09769291 0.09868539 0.12234697\n",
       "[13,] 0.09036428 0.04686481 0.10106507 0.10775338 0.12206803 0.09419869\n",
       "[14,] 0.06472688 0.06104107 0.09526355 0.09015221 0.09533170 0.09345820\n",
       "[15,] 0.05687442 0.02981398 0.07159608 0.14823159 0.20234143 0.09086010\n",
       "[16,] 0.06960285 0.02531124 0.11105701 0.07567949 0.07361972 0.10034599\n",
       "[17,] 0.06144502 0.06619457 0.06535837 0.14035943 0.12337840 0.09465915\n",
       "[18,] 0.08662686 0.05454373 0.08338093 0.11272560 0.15238796 0.07997458\n",
       "[19,] 0.06959685 0.07593516 0.12147998 0.06210302 0.06587325 0.10694739\n",
       "[20,] 0.08962314 0.04224509 0.06893370 0.12624060 0.16583554 0.08588950\n",
       "      [,13]      [,14]      [,15]       [,16]       [,17]      [,18]     \n",
       " [1,] 0.05475739 0.07150245 0.039137196  0.03742676 0.05912434 0.06137606\n",
       " [2,] 0.06936392 0.06868113 0.044654348  0.04870857 0.06777219 0.05975112\n",
       " [3,] 0.06557439 0.08375722 0.008240775 -0.01650327 0.10588033 0.04781661\n",
       " [4,] 0.02841107 0.05728590 0.026581538  0.01780856 0.05679692 0.05257309\n",
       " [5,] 0.07000568 0.08319422 0.095120234  0.08396213 0.08842529 0.07991019\n",
       " [6,] 0.05812624 0.07933956 0.025162462  0.03553331 0.06738796 0.05847116\n",
       " [7,] 0.09036428 0.06472688 0.056874418  0.06960285 0.06144502 0.08662686\n",
       " [8,] 0.04686481 0.06104107 0.029813980  0.02531124 0.06619457 0.05454373\n",
       " [9,] 0.10106507 0.09526355 0.071596084  0.11105701 0.06535837 0.08338093\n",
       "[10,] 0.10775338 0.09015221 0.148231593  0.07567949 0.14035943 0.11272560\n",
       "[11,] 0.12206803 0.09533170 0.202341428  0.07361972 0.12337840 0.15238796\n",
       "[12,] 0.09419869 0.09345820 0.090860095  0.10034599 0.09465915 0.07997458\n",
       "[13,] 0.14118884 0.10466028 0.151494325  0.13358302 0.10204782 0.12802024\n",
       "[14,] 0.10466028 0.12929098 0.134282334  0.16785676 0.09956606 0.11707375\n",
       "[15,] 0.15149432 0.13428233 0.280991402  0.19017223 0.14788349 0.19341039\n",
       "[16,] 0.13358302 0.16785676 0.190172229  0.37015756 0.11606499 0.12160057\n",
       "[17,] 0.10204782 0.09956606 0.147883490  0.11606499 0.14060994 0.10708090\n",
       "[18,] 0.12802024 0.11707375 0.193410388  0.12160057 0.10708090 0.16215769\n",
       "[19,] 0.10348311 0.09760093 0.072620108  0.11402843 0.06046628 0.08442365\n",
       "[20,] 0.12863891 0.11310801 0.195561447  0.13537665 0.12426119 0.14990897\n",
       "      [,19]      [,20]     \n",
       " [1,] 0.09141475 0.05245201\n",
       " [2,] 0.09751930 0.05468406\n",
       " [3,] 0.08890578 0.04275949\n",
       " [4,] 0.06401723 0.03959306\n",
       " [5,] 0.07745833 0.09676314\n",
       " [6,] 0.09409026 0.04451227\n",
       " [7,] 0.06959685 0.08962314\n",
       " [8,] 0.07593516 0.04224509\n",
       " [9,] 0.12147998 0.06893370\n",
       "[10,] 0.06210302 0.12624060\n",
       "[11,] 0.06587325 0.16583554\n",
       "[12,] 0.10694739 0.08588950\n",
       "[13,] 0.10348311 0.12863891\n",
       "[14,] 0.09760093 0.11310801\n",
       "[15,] 0.07262011 0.19556145\n",
       "[16,] 0.11402843 0.13537665\n",
       "[17,] 0.06046628 0.12426119\n",
       "[18,] 0.08442365 0.14990897\n",
       "[19,] 0.13219634 0.06638368\n",
       "[20,] 0.06638368 0.16643688"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "euclid<-G%*%t(G)\n",
    "euclid"
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R 3.4",
   "language": "R",
   "name": "ir34"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.4.0"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}