05_snp_random_forest_power_FFMI.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# <p style=\"text-align: justify;\"><div class=\"alert alert-info\" role=\"alert\">Random Forest</div></p>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## `Ana González Guerra` \n",
    "\n",
    "### ` Student of the master in Data Science at the University of Cantabria` "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Index<a class=\"anchor\" id=\"index\"></a>\n",
    "* [Loading data](#1)\n",
    "    * [Genetic predictors](#5)\n",
    "    * [Target variables](#6)\n",
    "        * [Maximum power relative to FFM1 in Wingate 1(W1MaxWRelFFM1)](#7)\n",
    "        * [Mean power relative to FFM1 in Wingate 1 (W1MedWRelFFM1)](#8)\n",
    "        * [Fatigue rate relative to FFM1 in Wingate 1 (W1DifWRelFFM1)](#9)\n",
    "        * [Maximum power relative to FFM1 in Wingate 2(W2MaxWRelFFM1)](#10)\n",
    "        * [Mean power relative to FFM1 in Wingate 2 (W2MedWRelFFM1)](#11)\n",
    "        * [Fatigue rate relative to FFM1 in Wingate 2 (W2DifWRelFFM1)](#12)\n",
    "        * [Maximum fatigue rate between Wingates relative to FFM1 (W1-W2MaxDifWRelFFM1)](#13)\n",
    "        * [Mean fatigue rate between Wingates relative to FFM1 (W1-W2MedDifWRelFFM1)](#14)\n",
    "        \n",
    "* [Train/test partition](#2)\n",
    "* [Random Forest application](#3)\n",
    "    * [Cross-validation application and creation of Random Forest's binary classifier](#15)\n",
    "        * [Maximum power relative to FFM1 in Wingate 1(W1MaxWRelFFM1)](#16)\n",
    "        * [Mean power relative to FFM1 in Wingate 1 (W1MedWRelFFM1)](#17)\n",
    "        * [Fatigue rate relative to FFM1 in Wingate 1 (W1DifWRelFFM1)](#18)\n",
    "        * [Maximum power relative to FFM1 in Wingate 2(W2MaxWRelFFM1)](#19)\n",
    "        * [Mean power relative to FFM1 in Wingate 2 (W2MedWRelFFM1)](#20)\n",
    "        * [Fatigue rate relative to FFM1 in Wingate 2 (W2DifWRelFFM1)](#21)\n",
    "        * [Maximum fatigue rate between Wingates relative to FFM1 (W1-W2MaxDifWRelFFM1)](#22)\n",
    "        * [Mean fatigue rate between Wingates relative to FFM1 (W1-W2MedDifWRelFFM1)](#23)\n",
    "* [Comparative](#4)\n",
    "* [Best model](#24)\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In this file we are going to apply Random Forest taking into account as target variables the power variables related to the FFM1 predictor."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Loading data <a class=\"anchor\" id=\"1\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Genetic predictors <a class=\"anchor\" id=\"5\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [],
   "source": [
    "handle_genetic <- read.csv('handle_genetic_fusion_28_04_20.csv')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>rs10497520</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>C:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>C:C</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>C:C</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>C:C</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>C:C</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>C:C</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & rs10497520 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & C:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & C:C & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & C:C & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & C:C & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & C:C & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & C:C & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | rs10497520 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | C:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | C:C | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | C:C | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | C:C | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | C:C | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | C:C | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485 rs10491003\n",
       "1 G:G        C:T        A:T       T:T       A:A       C:G       G:G       \n",
       "2 G:G        C:T        A:T       C:T       A:G       G:G       G:G       \n",
       "3 G:G        T:T        A:T       T:T       A:G       G:G       G:G       \n",
       "4 G:G        T:T        T:T       C:T       A:G       G:G       G:G       \n",
       "5 G:G        C:T        T:T       C:T       G:G       C:C       G:G       \n",
       "6 G:G        C:T        T:T       C:T       A:G       G:G       G:G       \n",
       "  rs1049305 rs1049434 rs10497520 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 C:G       A:T       C:T        ... C:T       A:G       G:G      A:G     \n",
       "2 G:G       A:A       C:C        ... C:T       A:G       A:G      A:G     \n",
       "3 C:G       A:A       C:C        ... C:T       A:G       G:G      A:G     \n",
       "4 C:C       A:T       C:C        ... C:T       A:G       G:G      A:G     \n",
       "5 C:G       T:T       C:C        ... C:T       A:G       G:G      G:G     \n",
       "6 C:G       A:T       C:C        ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(handle_genetic)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Target variables <a class=\"anchor\" id=\"6\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [],
   "source": [
    "handle_target <- read.csv('handle_target_fusion_31_03_20.csv', row.name = 1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>W1MaxWAbs</th><th scope=col>W1MaxWRel</th><th scope=col>W1maxRPM</th><th scope=col>W1MedWAbs</th><th scope=col>W1MedWRel</th><th scope=col>W1medRPM</th><th scope=col>W2MaxWAbs</th><th scope=col>W2MaxWRel</th><th scope=col>W2maxRPM</th><th scope=col>W2MedWAbs</th><th scope=col>...</th><th scope=col>W2DifWRelFFM1</th><th scope=col>W2DifWRelFFM2</th><th scope=col>W1.2MaxDifWAbs</th><th scope=col>W1.2MaxDifWRel</th><th scope=col>W1.2MaxDifWRelFFM1</th><th scope=col>W1.2MaxDifWRelFFM2</th><th scope=col>W1.2MedDifWAbs</th><th scope=col>W1.2MedDifWRel</th><th scope=col>W1.2MedDifWRelFFM1</th><th scope=col>W1.2MedDifWRelFFM2</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>0</th><td>398        </td><td> 8.747253  </td><td>122        </td><td>206        </td><td>4.527473   </td><td>100        </td><td>397        </td><td>8.725275   </td><td>122        </td><td>224        </td><td>...        </td><td> 4.479981  </td><td> 4.544592  </td><td>  1        </td><td> 0.02197802</td><td> 0.02589585</td><td> 0.02626932</td><td>-18        </td><td>-0.39560440</td><td>-0.46612522</td><td>-0.47284774</td></tr>\n",
       "\t<tr><th scope=row>4</th><td>511        </td><td> 8.964912  </td><td>128        </td><td>294        </td><td>5.157895   </td><td>109        </td><td>523        </td><td>9.175439   </td><td>122        </td><td>295        </td><td>...        </td><td> 4.552187  </td><td> 4.889881  </td><td>-12        </td><td>-0.21052632</td><td>-0.23958880</td><td>-0.25736216</td><td> -1        </td><td>-0.01754386</td><td>-0.01996573</td><td>-0.02144685</td></tr>\n",
       "\t<tr><th scope=row>7</th><td>524        </td><td>10.174757  </td><td>130        </td><td>262        </td><td>5.087379   </td><td>107        </td><td>476        </td><td>9.242718   </td><td>125        </td><td>245        </td><td>...        </td><td> 4.958966  </td><td> 5.566747  </td><td> 48        </td><td> 0.93203883</td><td> 1.03043453</td><td> 1.15672661</td><td> 17        </td><td> 0.33009709</td><td> 0.36494556</td><td> 0.40967401</td></tr>\n",
       "\t<tr><th scope=row>8</th><td>541        </td><td> 8.868852  </td><td>128        </td><td>351        </td><td>5.754098   </td><td>118        </td><td>472        </td><td>7.737705   </td><td>130        </td><td>333        </td><td>...        </td><td> 2.792441  </td><td> 3.020719  </td><td> 69        </td><td> 1.13114754</td><td> 1.38617564</td><td> 1.49949379</td><td> 18        </td><td> 0.29508197</td><td> 0.36161104</td><td> 0.39117229</td></tr>\n",
       "\t<tr><th scope=row>9</th><td>547        </td><td> 9.596491  </td><td>143        </td><td>291        </td><td>5.105263   </td><td>116        </td><td>169        </td><td>2.964912   </td><td>130        </td><td>302        </td><td>...        </td><td>-3.215855  </td><td>-3.248973  </td><td>378        </td><td> 6.63157895</td><td> 9.13979775</td><td> 9.23392354</td><td>-11        </td><td>-0.19298246</td><td>-0.26597295</td><td>-0.26871206</td></tr>\n",
       "\t<tr><th scope=row>11</th><td>553        </td><td> 9.701754  </td><td>133        </td><td>365        </td><td>6.403509   </td><td>121        </td><td>556        </td><td>9.754386   </td><td>136        </td><td>355        </td><td>...        </td><td> 4.113095  </td><td> 4.408965  </td><td> -3        </td><td>-0.05263158</td><td>-0.06138948</td><td>-0.06580544</td><td> 10        </td><td> 0.17543860</td><td> 0.20463161</td><td> 0.21935148</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllll}\n",
       "  & W1MaxWAbs & W1MaxWRel & W1maxRPM & W1MedWAbs & W1MedWRel & W1medRPM & W2MaxWAbs & W2MaxWRel & W2maxRPM & W2MedWAbs & ... & W2DifWRelFFM1 & W2DifWRelFFM2 & W1.2MaxDifWAbs & W1.2MaxDifWRel & W1.2MaxDifWRelFFM1 & W1.2MaxDifWRelFFM2 & W1.2MedDifWAbs & W1.2MedDifWRel & W1.2MedDifWRelFFM1 & W1.2MedDifWRelFFM2\\\\\n",
       "\\hline\n",
       "\t0 & 398         &  8.747253   & 122         & 206         & 4.527473    & 100         & 397         & 8.725275    & 122         & 224         & ...         &  4.479981   &  4.544592   &   1         &  0.02197802 &  0.02589585 &  0.02626932 & -18         & -0.39560440 & -0.46612522 & -0.47284774\\\\\n",
       "\t4 & 511         &  8.964912   & 128         & 294         & 5.157895    & 109         & 523         & 9.175439    & 122         & 295         & ...         &  4.552187   &  4.889881   & -12         & -0.21052632 & -0.23958880 & -0.25736216 &  -1         & -0.01754386 & -0.01996573 & -0.02144685\\\\\n",
       "\t7 & 524         & 10.174757   & 130         & 262         & 5.087379    & 107         & 476         & 9.242718    & 125         & 245         & ...         &  4.958966   &  5.566747   &  48         &  0.93203883 &  1.03043453 &  1.15672661 &  17         &  0.33009709 &  0.36494556 &  0.40967401\\\\\n",
       "\t8 & 541         &  8.868852   & 128         & 351         & 5.754098    & 118         & 472         & 7.737705    & 130         & 333         & ...         &  2.792441   &  3.020719   &  69         &  1.13114754 &  1.38617564 &  1.49949379 &  18         &  0.29508197 &  0.36161104 &  0.39117229\\\\\n",
       "\t9 & 547         &  9.596491   & 143         & 291         & 5.105263    & 116         & 169         & 2.964912    & 130         & 302         & ...         & -3.215855   & -3.248973   & 378         &  6.63157895 &  9.13979775 &  9.23392354 & -11         & -0.19298246 & -0.26597295 & -0.26871206\\\\\n",
       "\t11 & 553         &  9.701754   & 133         & 365         & 6.403509    & 121         & 556         & 9.754386    & 136         & 355         & ...         &  4.113095   &  4.408965   &  -3         & -0.05263158 & -0.06138948 & -0.06580544 &  10         &  0.17543860 &  0.20463161 &  0.21935148\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | W1MaxWAbs | W1MaxWRel | W1maxRPM | W1MedWAbs | W1MedWRel | W1medRPM | W2MaxWAbs | W2MaxWRel | W2maxRPM | W2MedWAbs | ... | W2DifWRelFFM1 | W2DifWRelFFM2 | W1.2MaxDifWAbs | W1.2MaxDifWRel | W1.2MaxDifWRelFFM1 | W1.2MaxDifWRelFFM2 | W1.2MedDifWAbs | W1.2MedDifWRel | W1.2MedDifWRelFFM1 | W1.2MedDifWRelFFM2 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0 | 398         |  8.747253   | 122         | 206         | 4.527473    | 100         | 397         | 8.725275    | 122         | 224         | ...         |  4.479981   |  4.544592   |   1         |  0.02197802 |  0.02589585 |  0.02626932 | -18         | -0.39560440 | -0.46612522 | -0.47284774 |\n",
       "| 4 | 511         |  8.964912   | 128         | 294         | 5.157895    | 109         | 523         | 9.175439    | 122         | 295         | ...         |  4.552187   |  4.889881   | -12         | -0.21052632 | -0.23958880 | -0.25736216 |  -1         | -0.01754386 | -0.01996573 | -0.02144685 |\n",
       "| 7 | 524         | 10.174757   | 130         | 262         | 5.087379    | 107         | 476         | 9.242718    | 125         | 245         | ...         |  4.958966   |  5.566747   |  48         |  0.93203883 |  1.03043453 |  1.15672661 |  17         |  0.33009709 |  0.36494556 |  0.40967401 |\n",
       "| 8 | 541         |  8.868852   | 128         | 351         | 5.754098    | 118         | 472         | 7.737705    | 130         | 333         | ...         |  2.792441   |  3.020719   |  69         |  1.13114754 |  1.38617564 |  1.49949379 |  18         |  0.29508197 |  0.36161104 |  0.39117229 |\n",
       "| 9 | 547         |  9.596491   | 143         | 291         | 5.105263    | 116         | 169         | 2.964912    | 130         | 302         | ...         | -3.215855   | -3.248973   | 378         |  6.63157895 |  9.13979775 |  9.23392354 | -11         | -0.19298246 | -0.26597295 | -0.26871206 |\n",
       "| 11 | 553         |  9.701754   | 133         | 365         | 6.403509    | 121         | 556         | 9.754386    | 136         | 355         | ...         |  4.113095   |  4.408965   |  -3         | -0.05263158 | -0.06138948 | -0.06580544 |  10         |  0.17543860 |  0.20463161 |  0.21935148 |\n",
       "\n"
      ],
      "text/plain": [
       "   W1MaxWAbs W1MaxWRel W1maxRPM W1MedWAbs W1MedWRel W1medRPM W2MaxWAbs\n",
       "0  398        8.747253 122      206       4.527473  100      397      \n",
       "4  511        8.964912 128      294       5.157895  109      523      \n",
       "7  524       10.174757 130      262       5.087379  107      476      \n",
       "8  541        8.868852 128      351       5.754098  118      472      \n",
       "9  547        9.596491 143      291       5.105263  116      169      \n",
       "11 553        9.701754 133      365       6.403509  121      556      \n",
       "   W2MaxWRel W2maxRPM W2MedWAbs ... W2DifWRelFFM1 W2DifWRelFFM2 W1.2MaxDifWAbs\n",
       "0  8.725275  122      224       ...  4.479981      4.544592       1           \n",
       "4  9.175439  122      295       ...  4.552187      4.889881     -12           \n",
       "7  9.242718  125      245       ...  4.958966      5.566747      48           \n",
       "8  7.737705  130      333       ...  2.792441      3.020719      69           \n",
       "9  2.964912  130      302       ... -3.215855     -3.248973     378           \n",
       "11 9.754386  136      355       ...  4.113095      4.408965      -3           \n",
       "   W1.2MaxDifWRel W1.2MaxDifWRelFFM1 W1.2MaxDifWRelFFM2 W1.2MedDifWAbs\n",
       "0   0.02197802     0.02589585         0.02626932        -18           \n",
       "4  -0.21052632    -0.23958880        -0.25736216         -1           \n",
       "7   0.93203883     1.03043453         1.15672661         17           \n",
       "8   1.13114754     1.38617564         1.49949379         18           \n",
       "9   6.63157895     9.13979775         9.23392354        -11           \n",
       "11 -0.05263158    -0.06138948        -0.06580544         10           \n",
       "   W1.2MedDifWRel W1.2MedDifWRelFFM1 W1.2MedDifWRelFFM2\n",
       "0  -0.39560440    -0.46612522        -0.47284774       \n",
       "4  -0.01754386    -0.01996573        -0.02144685       \n",
       "7   0.33009709     0.36494556         0.40967401       \n",
       "8   0.29508197     0.36161104         0.39117229       \n",
       "9  -0.19298246    -0.26597295        -0.26871206       \n",
       "11  0.17543860     0.20463161         0.21935148       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(handle_target)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'W1MaxWAbs'</li>\n",
       "\t<li>'W1MaxWRel'</li>\n",
       "\t<li>'W1maxRPM'</li>\n",
       "\t<li>'W1MedWAbs'</li>\n",
       "\t<li>'W1MedWRel'</li>\n",
       "\t<li>'W1medRPM'</li>\n",
       "\t<li>'W2MaxWAbs'</li>\n",
       "\t<li>'W2MaxWRel'</li>\n",
       "\t<li>'W2maxRPM'</li>\n",
       "\t<li>'W2MedWAbs'</li>\n",
       "\t<li>'W2MedWRel'</li>\n",
       "\t<li>'W2medRPM'</li>\n",
       "\t<li>'W1MaxWRelFFM1'</li>\n",
       "\t<li>'W1MaxWRelFFM2'</li>\n",
       "\t<li>'W1MedWRelFFM1'</li>\n",
       "\t<li>'W1MedWRelFFM2'</li>\n",
       "\t<li>'W1DifWAbs'</li>\n",
       "\t<li>'W1DifWRel'</li>\n",
       "\t<li>'W1DifWRelFFM1'</li>\n",
       "\t<li>'W1DifWRelFFM2'</li>\n",
       "\t<li>'W2MaxWRelFFM1'</li>\n",
       "\t<li>'W2MaxWRelFFM2'</li>\n",
       "\t<li>'W2MedWRelFFM1'</li>\n",
       "\t<li>'W2MedWRelFFM2'</li>\n",
       "\t<li>'W2DifWAbs'</li>\n",
       "\t<li>'W2DifWRel'</li>\n",
       "\t<li>'W2DifWRelFFM1'</li>\n",
       "\t<li>'W2DifWRelFFM2'</li>\n",
       "\t<li>'W1.2MaxDifWAbs'</li>\n",
       "\t<li>'W1.2MaxDifWRel'</li>\n",
       "\t<li>'W1.2MaxDifWRelFFM1'</li>\n",
       "\t<li>'W1.2MaxDifWRelFFM2'</li>\n",
       "\t<li>'W1.2MedDifWAbs'</li>\n",
       "\t<li>'W1.2MedDifWRel'</li>\n",
       "\t<li>'W1.2MedDifWRelFFM1'</li>\n",
       "\t<li>'W1.2MedDifWRelFFM2'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'W1MaxWAbs'\n",
       "\\item 'W1MaxWRel'\n",
       "\\item 'W1maxRPM'\n",
       "\\item 'W1MedWAbs'\n",
       "\\item 'W1MedWRel'\n",
       "\\item 'W1medRPM'\n",
       "\\item 'W2MaxWAbs'\n",
       "\\item 'W2MaxWRel'\n",
       "\\item 'W2maxRPM'\n",
       "\\item 'W2MedWAbs'\n",
       "\\item 'W2MedWRel'\n",
       "\\item 'W2medRPM'\n",
       "\\item 'W1MaxWRelFFM1'\n",
       "\\item 'W1MaxWRelFFM2'\n",
       "\\item 'W1MedWRelFFM1'\n",
       "\\item 'W1MedWRelFFM2'\n",
       "\\item 'W1DifWAbs'\n",
       "\\item 'W1DifWRel'\n",
       "\\item 'W1DifWRelFFM1'\n",
       "\\item 'W1DifWRelFFM2'\n",
       "\\item 'W2MaxWRelFFM1'\n",
       "\\item 'W2MaxWRelFFM2'\n",
       "\\item 'W2MedWRelFFM1'\n",
       "\\item 'W2MedWRelFFM2'\n",
       "\\item 'W2DifWAbs'\n",
       "\\item 'W2DifWRel'\n",
       "\\item 'W2DifWRelFFM1'\n",
       "\\item 'W2DifWRelFFM2'\n",
       "\\item 'W1.2MaxDifWAbs'\n",
       "\\item 'W1.2MaxDifWRel'\n",
       "\\item 'W1.2MaxDifWRelFFM1'\n",
       "\\item 'W1.2MaxDifWRelFFM2'\n",
       "\\item 'W1.2MedDifWAbs'\n",
       "\\item 'W1.2MedDifWRel'\n",
       "\\item 'W1.2MedDifWRelFFM1'\n",
       "\\item 'W1.2MedDifWRelFFM2'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'W1MaxWAbs'\n",
       "2. 'W1MaxWRel'\n",
       "3. 'W1maxRPM'\n",
       "4. 'W1MedWAbs'\n",
       "5. 'W1MedWRel'\n",
       "6. 'W1medRPM'\n",
       "7. 'W2MaxWAbs'\n",
       "8. 'W2MaxWRel'\n",
       "9. 'W2maxRPM'\n",
       "10. 'W2MedWAbs'\n",
       "11. 'W2MedWRel'\n",
       "12. 'W2medRPM'\n",
       "13. 'W1MaxWRelFFM1'\n",
       "14. 'W1MaxWRelFFM2'\n",
       "15. 'W1MedWRelFFM1'\n",
       "16. 'W1MedWRelFFM2'\n",
       "17. 'W1DifWAbs'\n",
       "18. 'W1DifWRel'\n",
       "19. 'W1DifWRelFFM1'\n",
       "20. 'W1DifWRelFFM2'\n",
       "21. 'W2MaxWRelFFM1'\n",
       "22. 'W2MaxWRelFFM2'\n",
       "23. 'W2MedWRelFFM1'\n",
       "24. 'W2MedWRelFFM2'\n",
       "25. 'W2DifWAbs'\n",
       "26. 'W2DifWRel'\n",
       "27. 'W2DifWRelFFM1'\n",
       "28. 'W2DifWRelFFM2'\n",
       "29. 'W1.2MaxDifWAbs'\n",
       "30. 'W1.2MaxDifWRel'\n",
       "31. 'W1.2MaxDifWRelFFM1'\n",
       "32. 'W1.2MaxDifWRelFFM2'\n",
       "33. 'W1.2MedDifWAbs'\n",
       "34. 'W1.2MedDifWRel'\n",
       "35. 'W1.2MedDifWRelFFM1'\n",
       "36. 'W1.2MedDifWRelFFM2'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"W1MaxWAbs\"          \"W1MaxWRel\"          \"W1maxRPM\"          \n",
       " [4] \"W1MedWAbs\"          \"W1MedWRel\"          \"W1medRPM\"          \n",
       " [7] \"W2MaxWAbs\"          \"W2MaxWRel\"          \"W2maxRPM\"          \n",
       "[10] \"W2MedWAbs\"          \"W2MedWRel\"          \"W2medRPM\"          \n",
       "[13] \"W1MaxWRelFFM1\"      \"W1MaxWRelFFM2\"      \"W1MedWRelFFM1\"     \n",
       "[16] \"W1MedWRelFFM2\"      \"W1DifWAbs\"          \"W1DifWRel\"         \n",
       "[19] \"W1DifWRelFFM1\"      \"W1DifWRelFFM2\"      \"W2MaxWRelFFM1\"     \n",
       "[22] \"W2MaxWRelFFM2\"      \"W2MedWRelFFM1\"      \"W2MedWRelFFM2\"     \n",
       "[25] \"W2DifWAbs\"          \"W2DifWRel\"          \"W2DifWRelFFM1\"     \n",
       "[28] \"W2DifWRelFFM2\"      \"W1.2MaxDifWAbs\"     \"W1.2MaxDifWRel\"    \n",
       "[31] \"W1.2MaxDifWRelFFM1\" \"W1.2MaxDifWRelFFM2\" \"W1.2MedDifWAbs\"    \n",
       "[34] \"W1.2MedDifWRel\"     \"W1.2MedDifWRelFFM1\" \"W1.2MedDifWRelFFM2\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "names(handle_target)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum power relative to FFM1 in Wingate 1(W1MaxWRelFFM1)<a class=\"anchor\" id=\"7\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [],
   "source": [
    "w1_max <- cbind(handle_target['W1MaxWRelFFM1'],handle_genetic)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>W1MaxWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>0</th><td>10.30655</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><th scope=row>4</th><td>10.20249</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><th scope=row>7</th><td>11.24891</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><th scope=row>8</th><td>10.86842</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><th scope=row>9</th><td>13.22611</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>T:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><th scope=row>11</th><td>11.31613</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       "  & W1MaxWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t0 & 10.30655 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t4 & 10.20249 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & A:A      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t7 & 11.24891 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & A:A      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t8 & 10.86842 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t9 & 13.22611 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & T:T      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t11 & 11.31613 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | W1MaxWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0 | 10.30655 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 4 | 10.20249 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | A:A      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 7 | 11.24891 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | A:A      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 8 | 10.86842 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 9 | 13.22611 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | T:T      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 11 | 11.31613 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "   W1MaxWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "0  10.30655      G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "4  10.20249      G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "7  11.24891      G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "8  10.86842      G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "9  13.22611      G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "11 11.31613      G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "   rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "0  G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "4  G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "7  G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "8  G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "9  G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "11 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "   rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "0  C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "4  C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "7  C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "8  C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "9  T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "11 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(w1_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [],
   "source": [
    "rownames(w1_max) <- NULL "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {},
   "outputs": [],
   "source": [
    "W1MaxWRelFFM1Bin <- factor(as.numeric(handle_target['W1MaxWRelFFM1']>=median(handle_target$W1MaxWRelFFM1)))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [],
   "source": [
    "w1_max <- cbind(W1MaxWRelFFM1Bin, w1_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1MaxWRelFFM1Bin</th><th scope=col>W1MaxWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0       </td><td>10.30655</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>10.20249</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>11.24891</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>10.86842</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>13.22611</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>11.31613</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1MaxWRelFFM1Bin & W1MaxWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0        & 10.30655 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 0        & 10.20249 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 0        & 11.24891 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 0        & 10.86842 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 0        & 13.22611 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 0        & 11.31613 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1MaxWRelFFM1Bin | W1MaxWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0        | 10.30655 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 0        | 10.20249 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 0        | 11.24891 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 0        | 10.86842 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 0        | 13.22611 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 0        | 11.31613 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W1MaxWRelFFM1Bin W1MaxWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                10.30655      G:G        C:T        A:T       T:T      \n",
       "2 0                10.20249      G:G        C:T        A:T       C:T      \n",
       "3 0                11.24891      G:G        T:T        A:T       T:T      \n",
       "4 0                10.86842      G:G        T:T        T:T       C:T      \n",
       "5 0                13.22611      G:G        C:T        T:T       C:T      \n",
       "6 0                11.31613      G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(w1_max)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We no longer need the original variable, in fact leaving it interferes with the algorithm because it considers it as a predictor. So we eliminate it. This will be done for each of the target variable cases."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [],
   "source": [
    "w1_max$W1MaxWRelFFM1 <- NULL "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1MaxWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1MaxWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1MaxWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W1MaxWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(w1_max)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean power relative to FFM1 in Wingate 1 (W1MedWRelFFM1) <a class=\"anchor\" id=\"8\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1MedWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>5.334544</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>5.869926</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>5.624455</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>7.051415</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>7.036194</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>T:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>7.469054</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1MedWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 5.334544 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 5.869926 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & A:A      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 5.624455 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & A:A      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 7.051415 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 7.036194 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & T:T      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 7.469054 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1MedWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 5.334544 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 5.869926 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | A:A      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 5.624455 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | A:A      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 7.051415 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 7.036194 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | T:T      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 7.469054 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W1MedWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "1 5.334544      G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "2 5.869926      G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "3 5.624455      G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "4 7.051415      G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "5 7.036194      G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "6 7.469054      G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "  rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "2 G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "3 G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "4 G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "5 G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "6 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w1_med <- cbind(handle_target['W1MedWRelFFM1'],handle_genetic) \n",
    "\n",
    "rownames(w1_med) <- NULL\n",
    "\n",
    "head(w1_med)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1MedWRelFFM1Bin</th><th scope=col>W1MedWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0       </td><td>5.334544</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>5.869926</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>5.624455</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>7.051415</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>7.036194</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>7.469054</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1MedWRelFFM1Bin & W1MedWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0        & 5.334544 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 0        & 5.869926 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 0        & 5.624455 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 0        & 7.051415 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 0        & 7.036194 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 0        & 7.469054 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1MedWRelFFM1Bin | W1MedWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0        | 5.334544 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 0        | 5.869926 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 0        | 5.624455 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 0        | 7.051415 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 0        | 7.036194 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 0        | 7.469054 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W1MedWRelFFM1Bin W1MedWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                5.334544      G:G        C:T        A:T       T:T      \n",
       "2 0                5.869926      G:G        C:T        A:T       C:T      \n",
       "3 0                5.624455      G:G        T:T        A:T       T:T      \n",
       "4 0                7.051415      G:G        T:T        T:T       C:T      \n",
       "5 0                7.036194      G:G        C:T        T:T       C:T      \n",
       "6 0                7.469054      G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W1MedWRelFFM1Bin <- factor(as.numeric(handle_target['W1MedWRelFFM1']>=median(handle_target$W1MedWRelFFM1)))\n",
    "\n",
    "w1_med <- cbind(W1MedWRelFFM1Bin, w1_med)\n",
    "\n",
    "head(w1_med)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1MedWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1MedWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1MedWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W1MedWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w1_med$W1MedWRelFFM1 <- NULL\n",
    "head(w1_med)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Fatigue rate relative to FFM1 in Wingate 1 (W1DifWRelFFM1) <a class=\"anchor\" id=\"9\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1DifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>4.972002</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>4.332564</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>5.624455</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>3.817005</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>6.189916</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>T:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>3.847074</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1DifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 4.972002 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 4.332564 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & A:A      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 5.624455 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & A:A      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 3.817005 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 6.189916 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & T:T      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 3.847074 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1DifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 4.972002 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 4.332564 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | A:A      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 5.624455 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | A:A      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 3.817005 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 6.189916 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | T:T      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 3.847074 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W1DifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "1 4.972002      G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "2 4.332564      G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "3 5.624455      G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "4 3.817005      G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "5 6.189916      G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "6 3.847074      G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "  rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "2 G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "3 G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "4 G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "5 G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "6 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_w1 <- cbind(handle_target['W1DifWRelFFM1'],handle_genetic) \n",
    "\n",
    "rownames(ind_w1) <- NULL\n",
    "\n",
    "head(ind_w1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1DifWRelFFM1Bin</th><th scope=col>W1DifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0       </td><td>4.972002</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>4.332564</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>5.624455</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>3.817005</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>1       </td><td>6.189916</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>3.847074</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1DifWRelFFM1Bin & W1DifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0        & 4.972002 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 0        & 4.332564 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 0        & 5.624455 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 0        & 3.817005 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 1        & 6.189916 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 0        & 3.847074 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1DifWRelFFM1Bin | W1DifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0        | 4.972002 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 0        | 4.332564 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 0        | 5.624455 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 0        | 3.817005 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 1        | 6.189916 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 0        | 3.847074 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W1DifWRelFFM1Bin W1DifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                4.972002      G:G        C:T        A:T       T:T      \n",
       "2 0                4.332564      G:G        C:T        A:T       C:T      \n",
       "3 0                5.624455      G:G        T:T        A:T       T:T      \n",
       "4 0                3.817005      G:G        T:T        T:T       C:T      \n",
       "5 1                6.189916      G:G        C:T        T:T       C:T      \n",
       "6 0                3.847074      G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W1DifWRelFFM1Bin <- factor(as.numeric(handle_target['W1DifWRelFFM1']>=median(handle_target$W1DifWRelFFM1)))\n",
    "\n",
    "ind_w1<- cbind(W1DifWRelFFM1Bin, ind_w1)\n",
    "\n",
    "head(ind_w1)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1DifWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>1  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1DifWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 1   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1DifWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 1   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W1DifWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 1                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_w1$W1DifWRelFFM1 <- NULL\n",
    "head(ind_w1)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum power relative to FFM1 in Wingate 2 (W2MaxWRelFFM1) <a class=\"anchor\" id=\"10\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MaxWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>10.280651</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>T:T      </td><td>A:A      </td><td>C:G      </td><td>G:G      </td><td>C:G      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>10.442079</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>T:T      </td></tr>\n",
       "\t<tr><td>10.218476</td><td>G:G      </td><td>T:T      </td><td>A:T      </td><td>T:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>A:A      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:A      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td> 9.482245</td><td>G:G      </td><td>T:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:C      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:A      </td><td>A:A      </td><td>A:A      </td></tr>\n",
       "\t<tr><td> 4.086312</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>G:G      </td><td>C:C      </td><td>G:G      </td><td>C:G      </td><td>T:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>T:T      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>A:G      </td><td>A:T      </td></tr>\n",
       "\t<tr><td>11.377517</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>G:G      </td><td>T:T      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MaxWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 10.280651 & G:G       & C:T       & A:T       & T:T       & A:A       & C:G       & G:G       & C:G       & A:T       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & A:G       & A:A       & A:G       & A:A      \\\\\n",
       "\t 10.442079 & G:G       & C:T       & A:T       & C:T       & A:G       & G:G       & G:G       & G:G       & A:A       & ...       & C:T       & A:G       & A:G       & A:G       & C:T       & A:G       & G:G       & A:G       & A:G       & T:T      \\\\\n",
       "\t 10.218476 & G:G       & T:T       & A:T       & T:T       & A:G       & G:G       & G:G       & C:G       & A:A       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:A       & G:G       & A:G       & A:G       & A:A      \\\\\n",
       "\t  9.482245 & G:G       & T:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:C       & A:T       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & G:G       & A:A       & A:A       & A:A      \\\\\n",
       "\t  4.086312 & G:G       & C:T       & T:T       & C:T       & G:G       & C:C       & G:G       & C:G       & T:T       & ...       & C:T       & A:G       & G:G       & G:G       & T:T       & G:G       & G:G       & A:A       & A:G       & A:T      \\\\\n",
       "\t 11.377517 & G:G       & C:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:G       & A:T       & ...       & C:T       & A:G       & G:G       & G:G       & C:T       & A:G       & G:G       & A:G       & G:G       & T:T      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MaxWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 10.280651 | G:G       | C:T       | A:T       | T:T       | A:A       | C:G       | G:G       | C:G       | A:T       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | A:G       | A:A       | A:G       | A:A       |\n",
       "| 10.442079 | G:G       | C:T       | A:T       | C:T       | A:G       | G:G       | G:G       | G:G       | A:A       | ...       | C:T       | A:G       | A:G       | A:G       | C:T       | A:G       | G:G       | A:G       | A:G       | T:T       |\n",
       "| 10.218476 | G:G       | T:T       | A:T       | T:T       | A:G       | G:G       | G:G       | C:G       | A:A       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:A       | G:G       | A:G       | A:G       | A:A       |\n",
       "|  9.482245 | G:G       | T:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:C       | A:T       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | G:G       | A:A       | A:A       | A:A       |\n",
       "|  4.086312 | G:G       | C:T       | T:T       | C:T       | G:G       | C:C       | G:G       | C:G       | T:T       | ...       | C:T       | A:G       | G:G       | G:G       | T:T       | G:G       | G:G       | A:A       | A:G       | A:T       |\n",
       "| 11.377517 | G:G       | C:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:G       | A:T       | ...       | C:T       | A:G       | G:G       | G:G       | C:T       | A:G       | G:G       | A:G       | G:G       | T:T       |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MaxWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "1 10.280651     G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "2 10.442079     G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "3 10.218476     G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "4  9.482245     G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "5  4.086312     G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "6 11.377517     G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "  rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "2 G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "3 G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "4 G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "5 G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "6 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w2_max <- cbind(handle_target['W2MaxWRelFFM1'],handle_genetic)\n",
    "\n",
    "rownames(w2_max) <- NULL\n",
    "\n",
    "head(w2_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MaxWRelFFM1Bin</th><th scope=col>W2MaxWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0        </td><td>10.280651</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>T:T      </td><td>A:A      </td><td>C:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td>10.442079</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>G:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>T:T      </td></tr>\n",
       "\t<tr><td>0        </td><td>10.218476</td><td>G:G      </td><td>T:T      </td><td>A:T      </td><td>T:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:A      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td> 9.482245</td><td>G:G      </td><td>T:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:C      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:A      </td><td>A:A      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td> 4.086312</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>G:G      </td><td>C:C      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>T:T      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>A:G      </td><td>A:T      </td></tr>\n",
       "\t<tr><td>0        </td><td>11.377517</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>G:G      </td><td>T:T      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MaxWRelFFM1Bin & W2MaxWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0         & 10.280651 & G:G       & C:T       & A:T       & T:T       & A:A       & C:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & A:G       & A:A       & A:G       & A:A      \\\\\n",
       "\t 0         & 10.442079 & G:G       & C:T       & A:T       & C:T       & A:G       & G:G       & G:G       & G:G       & ...       & C:T       & A:G       & A:G       & A:G       & C:T       & A:G       & G:G       & A:G       & A:G       & T:T      \\\\\n",
       "\t 0         & 10.218476 & G:G       & T:T       & A:T       & T:T       & A:G       & G:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:A       & G:G       & A:G       & A:G       & A:A      \\\\\n",
       "\t 0         &  9.482245 & G:G       & T:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:C       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & G:G       & A:A       & A:A       & A:A      \\\\\n",
       "\t 0         &  4.086312 & G:G       & C:T       & T:T       & C:T       & G:G       & C:C       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & G:G       & T:T       & G:G       & G:G       & A:A       & A:G       & A:T      \\\\\n",
       "\t 0         & 11.377517 & G:G       & C:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & G:G       & C:T       & A:G       & G:G       & A:G       & G:G       & T:T      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MaxWRelFFM1Bin | W2MaxWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0         | 10.280651 | G:G       | C:T       | A:T       | T:T       | A:A       | C:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | A:G       | A:A       | A:G       | A:A       |\n",
       "| 0         | 10.442079 | G:G       | C:T       | A:T       | C:T       | A:G       | G:G       | G:G       | G:G       | ...       | C:T       | A:G       | A:G       | A:G       | C:T       | A:G       | G:G       | A:G       | A:G       | T:T       |\n",
       "| 0         | 10.218476 | G:G       | T:T       | A:T       | T:T       | A:G       | G:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:A       | G:G       | A:G       | A:G       | A:A       |\n",
       "| 0         |  9.482245 | G:G       | T:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:C       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | G:G       | A:A       | A:A       | A:A       |\n",
       "| 0         |  4.086312 | G:G       | C:T       | T:T       | C:T       | G:G       | C:C       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | G:G       | T:T       | G:G       | G:G       | A:A       | A:G       | A:T       |\n",
       "| 0         | 11.377517 | G:G       | C:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | G:G       | C:T       | A:G       | G:G       | A:G       | G:G       | T:T       |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MaxWRelFFM1Bin W2MaxWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                10.280651     G:G        C:T        A:T       T:T      \n",
       "2 0                10.442079     G:G        C:T        A:T       C:T      \n",
       "3 0                10.218476     G:G        T:T        A:T       T:T      \n",
       "4 0                 9.482245     G:G        T:T        T:T       C:T      \n",
       "5 0                 4.086312     G:G        C:T        T:T       C:T      \n",
       "6 0                11.377517     G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W2MaxWRelFFM1Bin <- factor(as.numeric(handle_target['W2MaxWRelFFM1']>=median(handle_target$W2MaxWRelFFM1)))\n",
    "\n",
    "w2_max <- cbind(W2MaxWRelFFM1Bin, w2_max)\n",
    "\n",
    "head(w2_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 25,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MaxWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MaxWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MaxWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MaxWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w2_max$W2MaxWRelFFM1 <- NULL\n",
    "head(w2_max)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean power relative to FFM1 in Wingate 2 (W2MedWRelFFM1) <a class=\"anchor\" id=\"11\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MedWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>5.800669</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>5.889891</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>5.259510</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:A     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>6.689804</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>7.302166</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>T:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>7.264422</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>A:T     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MedWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 5.800669 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 5.889891 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & A:A      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 5.259510 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & A:A      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 6.689804 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & A:T      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 7.302166 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & T:T      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 7.264422 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & A:T      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MedWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 5.800669 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 5.889891 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | A:A      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 5.259510 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | A:A      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 6.689804 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | A:T      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 7.302166 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | T:T      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 7.264422 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | A:T      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MedWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "1 5.800669      G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "2 5.889891      G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "3 5.259510      G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "4 6.689804      G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "5 7.302166      G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "6 7.264422      G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "  rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "2 G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "3 G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "4 G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "5 G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "6 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w2_med <- cbind(handle_target['W2MedWRelFFM1'],handle_genetic)\n",
    "\n",
    "rownames(w2_med) <- NULL\n",
    "\n",
    "head(w2_med)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MedWRelFFM1Bin</th><th scope=col>W2MedWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0       </td><td>5.800669</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>T:T     </td><td>A:A     </td><td>C:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>5.889891</td><td>G:G     </td><td>C:T     </td><td>A:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>G:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>A:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>T:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>5.259510</td><td>G:G     </td><td>T:T     </td><td>A:T     </td><td>T:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:A     </td><td>G:G     </td><td>A:G     </td><td>A:G     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>6.689804</td><td>G:G     </td><td>T:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:C     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:A     </td><td>A:A     </td><td>A:A     </td></tr>\n",
       "\t<tr><td>0       </td><td>7.302166</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>G:G     </td><td>C:C     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>T:T     </td><td>G:G     </td><td>G:G     </td><td>A:A     </td><td>A:G     </td><td>A:T     </td></tr>\n",
       "\t<tr><td>0       </td><td>7.264422</td><td>G:G     </td><td>C:T     </td><td>T:T     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:G     </td><td>...     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>G:G     </td><td>C:T     </td><td>A:G     </td><td>G:G     </td><td>A:G     </td><td>G:G     </td><td>T:T     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MedWRelFFM1Bin & W2MedWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0        & 5.800669 & G:G      & C:T      & A:T      & T:T      & A:A      & C:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & A:G      & A:A      & A:G      & A:A     \\\\\n",
       "\t 0        & 5.889891 & G:G      & C:T      & A:T      & C:T      & A:G      & G:G      & G:G      & G:G      & ...      & C:T      & A:G      & A:G      & A:G      & C:T      & A:G      & G:G      & A:G      & A:G      & T:T     \\\\\n",
       "\t 0        & 5.259510 & G:G      & T:T      & A:T      & T:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:A      & G:G      & A:G      & A:G      & A:A     \\\\\n",
       "\t 0        & 6.689804 & G:G      & T:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:C      & ...      & C:T      & A:G      & G:G      & A:G      & C:T      & A:G      & G:G      & A:A      & A:A      & A:A     \\\\\n",
       "\t 0        & 7.302166 & G:G      & C:T      & T:T      & C:T      & G:G      & C:C      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & T:T      & G:G      & G:G      & A:A      & A:G      & A:T     \\\\\n",
       "\t 0        & 7.264422 & G:G      & C:T      & T:T      & C:T      & A:G      & G:G      & G:G      & C:G      & ...      & C:T      & A:G      & G:G      & G:G      & C:T      & A:G      & G:G      & A:G      & G:G      & T:T     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MedWRelFFM1Bin | W2MedWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0        | 5.800669 | G:G      | C:T      | A:T      | T:T      | A:A      | C:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | A:G      | A:A      | A:G      | A:A      |\n",
       "| 0        | 5.889891 | G:G      | C:T      | A:T      | C:T      | A:G      | G:G      | G:G      | G:G      | ...      | C:T      | A:G      | A:G      | A:G      | C:T      | A:G      | G:G      | A:G      | A:G      | T:T      |\n",
       "| 0        | 5.259510 | G:G      | T:T      | A:T      | T:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:A      | G:G      | A:G      | A:G      | A:A      |\n",
       "| 0        | 6.689804 | G:G      | T:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:C      | ...      | C:T      | A:G      | G:G      | A:G      | C:T      | A:G      | G:G      | A:A      | A:A      | A:A      |\n",
       "| 0        | 7.302166 | G:G      | C:T      | T:T      | C:T      | G:G      | C:C      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | T:T      | G:G      | G:G      | A:A      | A:G      | A:T      |\n",
       "| 0        | 7.264422 | G:G      | C:T      | T:T      | C:T      | A:G      | G:G      | G:G      | C:G      | ...      | C:T      | A:G      | G:G      | G:G      | C:T      | A:G      | G:G      | A:G      | G:G      | T:T      |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MedWRelFFM1Bin W2MedWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                5.800669      G:G        C:T        A:T       T:T      \n",
       "2 0                5.889891      G:G        C:T        A:T       C:T      \n",
       "3 0                5.259510      G:G        T:T        A:T       T:T      \n",
       "4 0                6.689804      G:G        T:T        T:T       C:T      \n",
       "5 0                7.302166      G:G        C:T        T:T       C:T      \n",
       "6 0                7.264422      G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W2MedWRelFFM1Bin <- factor(as.numeric(handle_target['W2MedWRelFFM1']>=median(handle_target$W2MedWRelFFM1)))\n",
    "\n",
    "w2_med <- cbind(W2MedWRelFFM1Bin, w2_med)\n",
    "\n",
    "head(w2_med)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2MedWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2MedWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2MedWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W2MedWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "w2_med$W2MedWRelFFM1 <- NULL\n",
    "head(w2_med)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Fatigue rate relative to FFM1 in Wingate 2 (W2DifWRelFFM1) <a class=\"anchor\" id=\"12\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2DifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td> 4.479981</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>T:T      </td><td>A:A      </td><td>C:G      </td><td>G:G      </td><td>C:G      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td> 4.552187</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>T:T      </td></tr>\n",
       "\t<tr><td> 4.958966</td><td>G:G      </td><td>T:T      </td><td>A:T      </td><td>T:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>A:A      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:A      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td> 2.792441</td><td>G:G      </td><td>T:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:C      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:A      </td><td>A:A      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>-3.215855</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>G:G      </td><td>C:C      </td><td>G:G      </td><td>C:G      </td><td>T:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>T:T      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>A:G      </td><td>A:T      </td></tr>\n",
       "\t<tr><td> 4.113095</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>A:T      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>G:G      </td><td>T:T      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2DifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t  4.479981 & G:G       & C:T       & A:T       & T:T       & A:A       & C:G       & G:G       & C:G       & A:T       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & A:G       & A:A       & A:G       & A:A      \\\\\n",
       "\t  4.552187 & G:G       & C:T       & A:T       & C:T       & A:G       & G:G       & G:G       & G:G       & A:A       & ...       & C:T       & A:G       & A:G       & A:G       & C:T       & A:G       & G:G       & A:G       & A:G       & T:T      \\\\\n",
       "\t  4.958966 & G:G       & T:T       & A:T       & T:T       & A:G       & G:G       & G:G       & C:G       & A:A       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:A       & G:G       & A:G       & A:G       & A:A      \\\\\n",
       "\t  2.792441 & G:G       & T:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:C       & A:T       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & G:G       & A:A       & A:A       & A:A      \\\\\n",
       "\t -3.215855 & G:G       & C:T       & T:T       & C:T       & G:G       & C:C       & G:G       & C:G       & T:T       & ...       & C:T       & A:G       & G:G       & G:G       & T:T       & G:G       & G:G       & A:A       & A:G       & A:T      \\\\\n",
       "\t  4.113095 & G:G       & C:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:G       & A:T       & ...       & C:T       & A:G       & G:G       & G:G       & C:T       & A:G       & G:G       & A:G       & G:G       & T:T      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2DifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "|  4.479981 | G:G       | C:T       | A:T       | T:T       | A:A       | C:G       | G:G       | C:G       | A:T       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | A:G       | A:A       | A:G       | A:A       |\n",
       "|  4.552187 | G:G       | C:T       | A:T       | C:T       | A:G       | G:G       | G:G       | G:G       | A:A       | ...       | C:T       | A:G       | A:G       | A:G       | C:T       | A:G       | G:G       | A:G       | A:G       | T:T       |\n",
       "|  4.958966 | G:G       | T:T       | A:T       | T:T       | A:G       | G:G       | G:G       | C:G       | A:A       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:A       | G:G       | A:G       | A:G       | A:A       |\n",
       "|  2.792441 | G:G       | T:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:C       | A:T       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | G:G       | A:A       | A:A       | A:A       |\n",
       "| -3.215855 | G:G       | C:T       | T:T       | C:T       | G:G       | C:C       | G:G       | C:G       | T:T       | ...       | C:T       | A:G       | G:G       | G:G       | T:T       | G:G       | G:G       | A:A       | A:G       | A:T       |\n",
       "|  4.113095 | G:G       | C:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:G       | A:T       | ...       | C:T       | A:G       | G:G       | G:G       | C:T       | A:G       | G:G       | A:G       | G:G       | T:T       |\n",
       "\n"
      ],
      "text/plain": [
       "  W2DifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713 rs1045485\n",
       "1  4.479981     G:G        C:T        A:T       T:T       A:A       C:G      \n",
       "2  4.552187     G:G        C:T        A:T       C:T       A:G       G:G      \n",
       "3  4.958966     G:G        T:T        A:T       T:T       A:G       G:G      \n",
       "4  2.792441     G:G        T:T        T:T       C:T       A:G       G:G      \n",
       "5 -3.215855     G:G        C:T        T:T       C:T       G:G       C:C      \n",
       "6  4.113095     G:G        C:T        T:T       C:T       A:G       G:G      \n",
       "  rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205 rs833070\n",
       "1 G:G        C:G       A:T       ... C:T       A:G       G:G      A:G     \n",
       "2 G:G        G:G       A:A       ... C:T       A:G       A:G      A:G     \n",
       "3 G:G        C:G       A:A       ... C:T       A:G       G:G      A:G     \n",
       "4 G:G        C:C       A:T       ... C:T       A:G       G:G      A:G     \n",
       "5 G:G        C:G       T:T       ... C:T       A:G       G:G      G:G     \n",
       "6 G:G        C:G       A:T       ... C:T       A:G       G:G      G:G     \n",
       "  rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_w2 <- cbind(handle_target['W2DifWRelFFM1'],handle_genetic) \n",
    "\n",
    "rownames(ind_w2) <- NULL\n",
    "\n",
    "head(ind_w2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 30,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2DifWRelFFM1Bin</th><th scope=col>W2DifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0        </td><td> 4.479981</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>T:T      </td><td>A:A      </td><td>C:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td> 4.552187</td><td>G:G      </td><td>C:T      </td><td>A:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>G:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>A:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>T:T      </td></tr>\n",
       "\t<tr><td>0        </td><td> 4.958966</td><td>G:G      </td><td>T:T      </td><td>A:T      </td><td>T:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:A      </td><td>G:G      </td><td>A:G      </td><td>A:G      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td> 2.792441</td><td>G:G      </td><td>T:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:C      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:A      </td><td>A:A      </td><td>A:A      </td></tr>\n",
       "\t<tr><td>0        </td><td>-3.215855</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>G:G      </td><td>C:C      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>T:T      </td><td>G:G      </td><td>G:G      </td><td>A:A      </td><td>A:G      </td><td>A:T      </td></tr>\n",
       "\t<tr><td>0        </td><td> 4.113095</td><td>G:G      </td><td>C:T      </td><td>T:T      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:G      </td><td>...      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>G:G      </td><td>C:T      </td><td>A:G      </td><td>G:G      </td><td>A:G      </td><td>G:G      </td><td>T:T      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2DifWRelFFM1Bin & W2DifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0         &  4.479981 & G:G       & C:T       & A:T       & T:T       & A:A       & C:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & A:G       & A:A       & A:G       & A:A      \\\\\n",
       "\t 0         &  4.552187 & G:G       & C:T       & A:T       & C:T       & A:G       & G:G       & G:G       & G:G       & ...       & C:T       & A:G       & A:G       & A:G       & C:T       & A:G       & G:G       & A:G       & A:G       & T:T      \\\\\n",
       "\t 0         &  4.958966 & G:G       & T:T       & A:T       & T:T       & A:G       & G:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:A       & G:G       & A:G       & A:G       & A:A      \\\\\n",
       "\t 0         &  2.792441 & G:G       & T:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:C       & ...       & C:T       & A:G       & G:G       & A:G       & C:T       & A:G       & G:G       & A:A       & A:A       & A:A      \\\\\n",
       "\t 0         & -3.215855 & G:G       & C:T       & T:T       & C:T       & G:G       & C:C       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & G:G       & T:T       & G:G       & G:G       & A:A       & A:G       & A:T      \\\\\n",
       "\t 0         &  4.113095 & G:G       & C:T       & T:T       & C:T       & A:G       & G:G       & G:G       & C:G       & ...       & C:T       & A:G       & G:G       & G:G       & C:T       & A:G       & G:G       & A:G       & G:G       & T:T      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2DifWRelFFM1Bin | W2DifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0         |  4.479981 | G:G       | C:T       | A:T       | T:T       | A:A       | C:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | A:G       | A:A       | A:G       | A:A       |\n",
       "| 0         |  4.552187 | G:G       | C:T       | A:T       | C:T       | A:G       | G:G       | G:G       | G:G       | ...       | C:T       | A:G       | A:G       | A:G       | C:T       | A:G       | G:G       | A:G       | A:G       | T:T       |\n",
       "| 0         |  4.958966 | G:G       | T:T       | A:T       | T:T       | A:G       | G:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:A       | G:G       | A:G       | A:G       | A:A       |\n",
       "| 0         |  2.792441 | G:G       | T:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:C       | ...       | C:T       | A:G       | G:G       | A:G       | C:T       | A:G       | G:G       | A:A       | A:A       | A:A       |\n",
       "| 0         | -3.215855 | G:G       | C:T       | T:T       | C:T       | G:G       | C:C       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | G:G       | T:T       | G:G       | G:G       | A:A       | A:G       | A:T       |\n",
       "| 0         |  4.113095 | G:G       | C:T       | T:T       | C:T       | A:G       | G:G       | G:G       | C:G       | ...       | C:T       | A:G       | G:G       | G:G       | C:T       | A:G       | G:G       | A:G       | G:G       | T:T       |\n",
       "\n"
      ],
      "text/plain": [
       "  W2DifWRelFFM1Bin W2DifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611\n",
       "1 0                 4.479981     G:G        C:T        A:T       T:T      \n",
       "2 0                 4.552187     G:G        C:T        A:T       C:T      \n",
       "3 0                 4.958966     G:G        T:T        A:T       T:T      \n",
       "4 0                 2.792441     G:G        T:T        T:T       C:T      \n",
       "5 0                -3.215855     G:G        C:T        T:T       C:T      \n",
       "6 0                 4.113095     G:G        C:T        T:T       C:T      \n",
       "  rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678 rs824205\n",
       "1 A:A       C:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "2 A:G       G:G       G:G        G:G       ... C:T       A:G       A:G     \n",
       "3 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "4 A:G       G:G       G:G        C:C       ... C:T       A:G       G:G     \n",
       "5 G:G       C:C       G:G        C:G       ... C:T       A:G       G:G     \n",
       "6 A:G       G:G       G:G        C:G       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W2DifWRelFFM1Bin <- factor(as.numeric(handle_target['W2DifWRelFFM1']>=median(handle_target$W2DifWRelFFM1)))\n",
    "\n",
    "ind_w2<- cbind(W2DifWRelFFM1Bin, ind_w2)\n",
    "\n",
    "head(ind_w2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W2DifWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W2DifWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W2DifWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W2DifWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_w2$W2DifWRelFFM1 <- NULL\n",
    "head(ind_w2)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum fatigue rate between Wingates relative to FFM1 (W1-W2MaxDifWRelFFM1) <a class=\"anchor\" id=\"13\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 32,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MaxDifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td> 0.02589585</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>T:T        </td><td>A:A        </td><td>C:G        </td><td>G:G        </td><td>C:G        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>-0.23958880</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>T:T        </td></tr>\n",
       "\t<tr><td> 1.03043453</td><td>G:G        </td><td>T:T        </td><td>A:T        </td><td>T:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>A:A        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:A        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td> 1.38617564</td><td>G:G        </td><td>T:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:C        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:A        </td><td>A:A        </td><td>A:A        </td></tr>\n",
       "\t<tr><td> 9.13979775</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>G:G        </td><td>C:C        </td><td>G:G        </td><td>C:G        </td><td>T:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>T:T        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>A:G        </td><td>A:T        </td></tr>\n",
       "\t<tr><td>-0.06138948</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>G:G        </td><td>T:T        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MaxDifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t  0.02589585 & G:G         & C:T         & A:T         & T:T         & A:A         & C:G         & G:G         & C:G         & A:T         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & A:G         & A:A         & A:G         & A:A        \\\\\n",
       "\t -0.23958880 & G:G         & C:T         & A:T         & C:T         & A:G         & G:G         & G:G         & G:G         & A:A         & ...         & C:T         & A:G         & A:G         & A:G         & C:T         & A:G         & G:G         & A:G         & A:G         & T:T        \\\\\n",
       "\t  1.03043453 & G:G         & T:T         & A:T         & T:T         & A:G         & G:G         & G:G         & C:G         & A:A         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:A         & G:G         & A:G         & A:G         & A:A        \\\\\n",
       "\t  1.38617564 & G:G         & T:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:C         & A:T         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & G:G         & A:A         & A:A         & A:A        \\\\\n",
       "\t  9.13979775 & G:G         & C:T         & T:T         & C:T         & G:G         & C:C         & G:G         & C:G         & T:T         & ...         & C:T         & A:G         & G:G         & G:G         & T:T         & G:G         & G:G         & A:A         & A:G         & A:T        \\\\\n",
       "\t -0.06138948 & G:G         & C:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:G         & A:T         & ...         & C:T         & A:G         & G:G         & G:G         & C:T         & A:G         & G:G         & A:G         & G:G         & T:T        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MaxDifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "|  0.02589585 | G:G         | C:T         | A:T         | T:T         | A:A         | C:G         | G:G         | C:G         | A:T         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | A:G         | A:A         | A:G         | A:A         |\n",
       "| -0.23958880 | G:G         | C:T         | A:T         | C:T         | A:G         | G:G         | G:G         | G:G         | A:A         | ...         | C:T         | A:G         | A:G         | A:G         | C:T         | A:G         | G:G         | A:G         | A:G         | T:T         |\n",
       "|  1.03043453 | G:G         | T:T         | A:T         | T:T         | A:G         | G:G         | G:G         | C:G         | A:A         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:A         | G:G         | A:G         | A:G         | A:A         |\n",
       "|  1.38617564 | G:G         | T:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:C         | A:T         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | G:G         | A:A         | A:A         | A:A         |\n",
       "|  9.13979775 | G:G         | C:T         | T:T         | C:T         | G:G         | C:C         | G:G         | C:G         | T:T         | ...         | C:T         | A:G         | G:G         | G:G         | T:T         | G:G         | G:G         | A:A         | A:G         | A:T         |\n",
       "| -0.06138948 | G:G         | C:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:G         | A:T         | ...         | C:T         | A:G         | G:G         | G:G         | C:T         | A:G         | G:G         | A:G         | G:G         | T:T         |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MaxDifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1  0.02589585        G:G        C:T        A:T       T:T       A:A      \n",
       "2 -0.23958880        G:G        C:T        A:T       C:T       A:G      \n",
       "3  1.03043453        G:G        T:T        A:T       T:T       A:G      \n",
       "4  1.38617564        G:G        T:T        T:T       C:T       A:G      \n",
       "5  9.13979775        G:G        C:T        T:T       C:T       G:G      \n",
       "6 -0.06138948        G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_max <- cbind(handle_target['W1.2MaxDifWRelFFM1'],handle_genetic)\n",
    "\n",
    "rownames(ind_max) <- NULL\n",
    "\n",
    "head(ind_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MaxDifWRelFFM1Bin</th><th scope=col>W1.2MaxDifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0          </td><td> 0.02589585</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>T:T        </td><td>A:A        </td><td>C:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>0          </td><td>-0.23958880</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>G:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>T:T        </td></tr>\n",
       "\t<tr><td>0          </td><td> 1.03043453</td><td>G:G        </td><td>T:T        </td><td>A:T        </td><td>T:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:A        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>0          </td><td> 1.38617564</td><td>G:G        </td><td>T:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:C        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:A        </td><td>A:A        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>1          </td><td> 9.13979775</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>G:G        </td><td>C:C        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>T:T        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>A:G        </td><td>A:T        </td></tr>\n",
       "\t<tr><td>0          </td><td>-0.06138948</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>G:G        </td><td>T:T        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MaxDifWRelFFM1Bin & W1.2MaxDifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0           &  0.02589585 & G:G         & C:T         & A:T         & T:T         & A:A         & C:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & A:G         & A:A         & A:G         & A:A        \\\\\n",
       "\t 0           & -0.23958880 & G:G         & C:T         & A:T         & C:T         & A:G         & G:G         & G:G         & G:G         & ...         & C:T         & A:G         & A:G         & A:G         & C:T         & A:G         & G:G         & A:G         & A:G         & T:T        \\\\\n",
       "\t 0           &  1.03043453 & G:G         & T:T         & A:T         & T:T         & A:G         & G:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:A         & G:G         & A:G         & A:G         & A:A        \\\\\n",
       "\t 0           &  1.38617564 & G:G         & T:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:C         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & G:G         & A:A         & A:A         & A:A        \\\\\n",
       "\t 1           &  9.13979775 & G:G         & C:T         & T:T         & C:T         & G:G         & C:C         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & G:G         & T:T         & G:G         & G:G         & A:A         & A:G         & A:T        \\\\\n",
       "\t 0           & -0.06138948 & G:G         & C:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & G:G         & C:T         & A:G         & G:G         & A:G         & G:G         & T:T        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MaxDifWRelFFM1Bin | W1.2MaxDifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0           |  0.02589585 | G:G         | C:T         | A:T         | T:T         | A:A         | C:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | A:G         | A:A         | A:G         | A:A         |\n",
       "| 0           | -0.23958880 | G:G         | C:T         | A:T         | C:T         | A:G         | G:G         | G:G         | G:G         | ...         | C:T         | A:G         | A:G         | A:G         | C:T         | A:G         | G:G         | A:G         | A:G         | T:T         |\n",
       "| 0           |  1.03043453 | G:G         | T:T         | A:T         | T:T         | A:G         | G:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:A         | G:G         | A:G         | A:G         | A:A         |\n",
       "| 0           |  1.38617564 | G:G         | T:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:C         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | G:G         | A:A         | A:A         | A:A         |\n",
       "| 1           |  9.13979775 | G:G         | C:T         | T:T         | C:T         | G:G         | C:C         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | G:G         | T:T         | G:G         | G:G         | A:A         | A:G         | A:T         |\n",
       "| 0           | -0.06138948 | G:G         | C:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | G:G         | C:T         | A:G         | G:G         | A:G         | G:G         | T:T         |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MaxDifWRelFFM1Bin W1.2MaxDifWRelFFM1 rs10034661 rs10063949 rs1024610\n",
       "1 0                      0.02589585        G:G        C:T        A:T      \n",
       "2 0                     -0.23958880        G:G        C:T        A:T      \n",
       "3 0                      1.03043453        G:G        T:T        A:T      \n",
       "4 0                      1.38617564        G:G        T:T        T:T      \n",
       "5 1                      9.13979775        G:G        C:T        T:T      \n",
       "6 0                     -0.06138948        G:G        C:T        T:T      \n",
       "  rs1024611 rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678\n",
       "1 T:T       A:A       C:G       G:G        C:G       ... C:T       A:G      \n",
       "2 C:T       A:G       G:G       G:G        G:G       ... C:T       A:G      \n",
       "3 T:T       A:G       G:G       G:G        C:G       ... C:T       A:G      \n",
       "4 C:T       A:G       G:G       G:G        C:C       ... C:T       A:G      \n",
       "5 C:T       G:G       C:C       G:G        C:G       ... C:T       A:G      \n",
       "6 C:T       A:G       G:G       G:G        C:G       ... C:T       A:G      \n",
       "  rs824205 rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 G:G      A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 G:G      A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 G:G      A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W1.2MaxDifWRelFFM1Bin <- factor(as.numeric(handle_target['W1.2MaxDifWRelFFM1']>=median(handle_target$W1.2MaxDifWRelFFM1)))\n",
    "\n",
    "ind_max <- cbind(W1.2MaxDifWRelFFM1Bin, ind_max)\n",
    "\n",
    "head(ind_max)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 34,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MaxDifWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>1  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MaxDifWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 1   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MaxDifWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 1   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MaxDifWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                     G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                     G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                     G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                     G:G        T:T        T:T       C:T       A:G      \n",
       "5 1                     G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                     G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_max$W1.2MaxDifWRelFFM1 <- NULL\n",
    "head(ind_max)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean fatigue rate between Wingates relative to FFM1 (W1-W2MedDifWRelFFM1) <a class=\"anchor\" id=\"14\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MedDifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>-0.46612522</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>T:T        </td><td>A:A        </td><td>C:G        </td><td>G:G        </td><td>C:G        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>-0.01996573</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>T:T        </td></tr>\n",
       "\t<tr><td> 0.36494556</td><td>G:G        </td><td>T:T        </td><td>A:T        </td><td>T:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>A:A        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:A        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td> 0.36161104</td><td>G:G        </td><td>T:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:C        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:A        </td><td>A:A        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>-0.26597295</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>G:G        </td><td>C:C        </td><td>G:G        </td><td>C:G        </td><td>T:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>T:T        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>A:G        </td><td>A:T        </td></tr>\n",
       "\t<tr><td> 0.20463161</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>A:T        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>G:G        </td><td>T:T        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MedDifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t -0.46612522 & G:G         & C:T         & A:T         & T:T         & A:A         & C:G         & G:G         & C:G         & A:T         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & A:G         & A:A         & A:G         & A:A        \\\\\n",
       "\t -0.01996573 & G:G         & C:T         & A:T         & C:T         & A:G         & G:G         & G:G         & G:G         & A:A         & ...         & C:T         & A:G         & A:G         & A:G         & C:T         & A:G         & G:G         & A:G         & A:G         & T:T        \\\\\n",
       "\t  0.36494556 & G:G         & T:T         & A:T         & T:T         & A:G         & G:G         & G:G         & C:G         & A:A         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:A         & G:G         & A:G         & A:G         & A:A        \\\\\n",
       "\t  0.36161104 & G:G         & T:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:C         & A:T         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & G:G         & A:A         & A:A         & A:A        \\\\\n",
       "\t -0.26597295 & G:G         & C:T         & T:T         & C:T         & G:G         & C:C         & G:G         & C:G         & T:T         & ...         & C:T         & A:G         & G:G         & G:G         & T:T         & G:G         & G:G         & A:A         & A:G         & A:T        \\\\\n",
       "\t  0.20463161 & G:G         & C:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:G         & A:T         & ...         & C:T         & A:G         & G:G         & G:G         & C:T         & A:G         & G:G         & A:G         & G:G         & T:T        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MedDifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| -0.46612522 | G:G         | C:T         | A:T         | T:T         | A:A         | C:G         | G:G         | C:G         | A:T         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | A:G         | A:A         | A:G         | A:A         |\n",
       "| -0.01996573 | G:G         | C:T         | A:T         | C:T         | A:G         | G:G         | G:G         | G:G         | A:A         | ...         | C:T         | A:G         | A:G         | A:G         | C:T         | A:G         | G:G         | A:G         | A:G         | T:T         |\n",
       "|  0.36494556 | G:G         | T:T         | A:T         | T:T         | A:G         | G:G         | G:G         | C:G         | A:A         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:A         | G:G         | A:G         | A:G         | A:A         |\n",
       "|  0.36161104 | G:G         | T:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:C         | A:T         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | G:G         | A:A         | A:A         | A:A         |\n",
       "| -0.26597295 | G:G         | C:T         | T:T         | C:T         | G:G         | C:C         | G:G         | C:G         | T:T         | ...         | C:T         | A:G         | G:G         | G:G         | T:T         | G:G         | G:G         | A:A         | A:G         | A:T         |\n",
       "|  0.20463161 | G:G         | C:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:G         | A:T         | ...         | C:T         | A:G         | G:G         | G:G         | C:T         | A:G         | G:G         | A:G         | G:G         | T:T         |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MedDifWRelFFM1 rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 -0.46612522        G:G        C:T        A:T       T:T       A:A      \n",
       "2 -0.01996573        G:G        C:T        A:T       C:T       A:G      \n",
       "3  0.36494556        G:G        T:T        A:T       T:T       A:G      \n",
       "4  0.36161104        G:G        T:T        T:T       C:T       A:G      \n",
       "5 -0.26597295        G:G        C:T        T:T       C:T       G:G      \n",
       "6  0.20463161        G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_med <- cbind(handle_target['W1.2MedDifWRelFFM1'],handle_genetic)\n",
    "\n",
    "rownames(ind_med) <- NULL\n",
    "\n",
    "head(ind_med)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 38,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MedDifWRelFFM1Bin</th><th scope=col>W1.2MedDifWRelFFM1</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0          </td><td>-0.46612522</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>T:T        </td><td>A:A        </td><td>C:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>0          </td><td>-0.01996573</td><td>G:G        </td><td>C:T        </td><td>A:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>G:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>A:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>T:T        </td></tr>\n",
       "\t<tr><td>0          </td><td> 0.36494556</td><td>G:G        </td><td>T:T        </td><td>A:T        </td><td>T:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:A        </td><td>G:G        </td><td>A:G        </td><td>A:G        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>0          </td><td> 0.36161104</td><td>G:G        </td><td>T:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:C        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:A        </td><td>A:A        </td><td>A:A        </td></tr>\n",
       "\t<tr><td>0          </td><td>-0.26597295</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>G:G        </td><td>C:C        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>T:T        </td><td>G:G        </td><td>G:G        </td><td>A:A        </td><td>A:G        </td><td>A:T        </td></tr>\n",
       "\t<tr><td>0          </td><td> 0.20463161</td><td>G:G        </td><td>C:T        </td><td>T:T        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:G        </td><td>...        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>G:G        </td><td>C:T        </td><td>A:G        </td><td>G:G        </td><td>A:G        </td><td>G:G        </td><td>T:T        </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MedDifWRelFFM1Bin & W1.2MedDifWRelFFM1 & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0           & -0.46612522 & G:G         & C:T         & A:T         & T:T         & A:A         & C:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & A:G         & A:A         & A:G         & A:A        \\\\\n",
       "\t 0           & -0.01996573 & G:G         & C:T         & A:T         & C:T         & A:G         & G:G         & G:G         & G:G         & ...         & C:T         & A:G         & A:G         & A:G         & C:T         & A:G         & G:G         & A:G         & A:G         & T:T        \\\\\n",
       "\t 0           &  0.36494556 & G:G         & T:T         & A:T         & T:T         & A:G         & G:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:A         & G:G         & A:G         & A:G         & A:A        \\\\\n",
       "\t 0           &  0.36161104 & G:G         & T:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:C         & ...         & C:T         & A:G         & G:G         & A:G         & C:T         & A:G         & G:G         & A:A         & A:A         & A:A        \\\\\n",
       "\t 0           & -0.26597295 & G:G         & C:T         & T:T         & C:T         & G:G         & C:C         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & G:G         & T:T         & G:G         & G:G         & A:A         & A:G         & A:T        \\\\\n",
       "\t 0           &  0.20463161 & G:G         & C:T         & T:T         & C:T         & A:G         & G:G         & G:G         & C:G         & ...         & C:T         & A:G         & G:G         & G:G         & C:T         & A:G         & G:G         & A:G         & G:G         & T:T        \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MedDifWRelFFM1Bin | W1.2MedDifWRelFFM1 | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0           | -0.46612522 | G:G         | C:T         | A:T         | T:T         | A:A         | C:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | A:G         | A:A         | A:G         | A:A         |\n",
       "| 0           | -0.01996573 | G:G         | C:T         | A:T         | C:T         | A:G         | G:G         | G:G         | G:G         | ...         | C:T         | A:G         | A:G         | A:G         | C:T         | A:G         | G:G         | A:G         | A:G         | T:T         |\n",
       "| 0           |  0.36494556 | G:G         | T:T         | A:T         | T:T         | A:G         | G:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:A         | G:G         | A:G         | A:G         | A:A         |\n",
       "| 0           |  0.36161104 | G:G         | T:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:C         | ...         | C:T         | A:G         | G:G         | A:G         | C:T         | A:G         | G:G         | A:A         | A:A         | A:A         |\n",
       "| 0           | -0.26597295 | G:G         | C:T         | T:T         | C:T         | G:G         | C:C         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | G:G         | T:T         | G:G         | G:G         | A:A         | A:G         | A:T         |\n",
       "| 0           |  0.20463161 | G:G         | C:T         | T:T         | C:T         | A:G         | G:G         | G:G         | C:G         | ...         | C:T         | A:G         | G:G         | G:G         | C:T         | A:G         | G:G         | A:G         | G:G         | T:T         |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MedDifWRelFFM1Bin W1.2MedDifWRelFFM1 rs10034661 rs10063949 rs1024610\n",
       "1 0                     -0.46612522        G:G        C:T        A:T      \n",
       "2 0                     -0.01996573        G:G        C:T        A:T      \n",
       "3 0                      0.36494556        G:G        T:T        A:T      \n",
       "4 0                      0.36161104        G:G        T:T        T:T      \n",
       "5 0                     -0.26597295        G:G        C:T        T:T      \n",
       "6 0                      0.20463161        G:G        C:T        T:T      \n",
       "  rs1024611 rs1042713 rs1045485 rs10491003 rs1049305 ... rs8111989 rs8192678\n",
       "1 T:T       A:A       C:G       G:G        C:G       ... C:T       A:G      \n",
       "2 C:T       A:G       G:G       G:G        G:G       ... C:T       A:G      \n",
       "3 T:T       A:G       G:G       G:G        C:G       ... C:T       A:G      \n",
       "4 C:T       A:G       G:G       G:G        C:C       ... C:T       A:G      \n",
       "5 C:T       G:G       C:C       G:G        C:G       ... C:T       A:G      \n",
       "6 C:T       A:G       G:G       G:G        C:G       ... C:T       A:G      \n",
       "  rs824205 rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 G:G      A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 G:G      A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 G:G      A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "W1.2MedDifWRelFFM1Bin <- factor(as.numeric(handle_target['W1.2MedDifWRelFFM1']>=median(handle_target$W1.2MedDifWRelFFM1)))\n",
    "\n",
    "ind_med <- cbind(W1.2MedDifWRelFFM1Bin, ind_med)\n",
    "\n",
    "head(ind_med)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>W1.2MedDifWRelFFM1Bin</th><th scope=col>rs10034661</th><th scope=col>rs10063949</th><th scope=col>rs1024610</th><th scope=col>rs1024611</th><th scope=col>rs1042713</th><th scope=col>rs1045485</th><th scope=col>rs10491003</th><th scope=col>rs1049305</th><th scope=col>rs1049434</th><th scope=col>...</th><th scope=col>rs8111989</th><th scope=col>rs8192678</th><th scope=col>rs824205</th><th scope=col>rs833070</th><th scope=col>rs884736</th><th scope=col>rs921943</th><th scope=col>rs9469199</th><th scope=col>rs970547</th><th scope=col>rs9902453</th><th scope=col>rs9939609</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>T:T</td><td>A:A</td><td>C:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:A</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>A:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>G:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>A:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>A:G</td><td>T:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>A:T</td><td>T:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:A</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:A</td><td>G:G</td><td>A:G</td><td>A:G</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>T:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:C</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:A</td><td>A:A</td><td>A:A</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>G:G</td><td>C:C</td><td>G:G</td><td>C:G</td><td>T:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>T:T</td><td>G:G</td><td>G:G</td><td>A:A</td><td>A:G</td><td>A:T</td></tr>\n",
       "\t<tr><td>0  </td><td>G:G</td><td>C:T</td><td>T:T</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:G</td><td>A:T</td><td>...</td><td>C:T</td><td>A:G</td><td>G:G</td><td>G:G</td><td>C:T</td><td>A:G</td><td>G:G</td><td>A:G</td><td>G:G</td><td>T:T</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll}\n",
       " W1.2MedDifWRelFFM1Bin & rs10034661 & rs10063949 & rs1024610 & rs1024611 & rs1042713 & rs1045485 & rs10491003 & rs1049305 & rs1049434 & ... & rs8111989 & rs8192678 & rs824205 & rs833070 & rs884736 & rs921943 & rs9469199 & rs970547 & rs9902453 & rs9939609\\\\\n",
       "\\hline\n",
       "\t 0   & G:G & C:T & A:T & T:T & A:A & C:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & A:G & A:A & A:G & A:A\\\\\n",
       "\t 0   & G:G & C:T & A:T & C:T & A:G & G:G & G:G & G:G & A:A & ... & C:T & A:G & A:G & A:G & C:T & A:G & G:G & A:G & A:G & T:T\\\\\n",
       "\t 0   & G:G & T:T & A:T & T:T & A:G & G:G & G:G & C:G & A:A & ... & C:T & A:G & G:G & A:G & C:T & A:A & G:G & A:G & A:G & A:A\\\\\n",
       "\t 0   & G:G & T:T & T:T & C:T & A:G & G:G & G:G & C:C & A:T & ... & C:T & A:G & G:G & A:G & C:T & A:G & G:G & A:A & A:A & A:A\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & G:G & C:C & G:G & C:G & T:T & ... & C:T & A:G & G:G & G:G & T:T & G:G & G:G & A:A & A:G & A:T\\\\\n",
       "\t 0   & G:G & C:T & T:T & C:T & A:G & G:G & G:G & C:G & A:T & ... & C:T & A:G & G:G & G:G & C:T & A:G & G:G & A:G & G:G & T:T\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| W1.2MedDifWRelFFM1Bin | rs10034661 | rs10063949 | rs1024610 | rs1024611 | rs1042713 | rs1045485 | rs10491003 | rs1049305 | rs1049434 | ... | rs8111989 | rs8192678 | rs824205 | rs833070 | rs884736 | rs921943 | rs9469199 | rs970547 | rs9902453 | rs9939609 |\n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0   | G:G | C:T | A:T | T:T | A:A | C:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | A:G | A:A | A:G | A:A |\n",
       "| 0   | G:G | C:T | A:T | C:T | A:G | G:G | G:G | G:G | A:A | ... | C:T | A:G | A:G | A:G | C:T | A:G | G:G | A:G | A:G | T:T |\n",
       "| 0   | G:G | T:T | A:T | T:T | A:G | G:G | G:G | C:G | A:A | ... | C:T | A:G | G:G | A:G | C:T | A:A | G:G | A:G | A:G | A:A |\n",
       "| 0   | G:G | T:T | T:T | C:T | A:G | G:G | G:G | C:C | A:T | ... | C:T | A:G | G:G | A:G | C:T | A:G | G:G | A:A | A:A | A:A |\n",
       "| 0   | G:G | C:T | T:T | C:T | G:G | C:C | G:G | C:G | T:T | ... | C:T | A:G | G:G | G:G | T:T | G:G | G:G | A:A | A:G | A:T |\n",
       "| 0   | G:G | C:T | T:T | C:T | A:G | G:G | G:G | C:G | A:T | ... | C:T | A:G | G:G | G:G | C:T | A:G | G:G | A:G | G:G | T:T |\n",
       "\n"
      ],
      "text/plain": [
       "  W1.2MedDifWRelFFM1Bin rs10034661 rs10063949 rs1024610 rs1024611 rs1042713\n",
       "1 0                     G:G        C:T        A:T       T:T       A:A      \n",
       "2 0                     G:G        C:T        A:T       C:T       A:G      \n",
       "3 0                     G:G        T:T        A:T       T:T       A:G      \n",
       "4 0                     G:G        T:T        T:T       C:T       A:G      \n",
       "5 0                     G:G        C:T        T:T       C:T       G:G      \n",
       "6 0                     G:G        C:T        T:T       C:T       A:G      \n",
       "  rs1045485 rs10491003 rs1049305 rs1049434 ... rs8111989 rs8192678 rs824205\n",
       "1 C:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "2 G:G       G:G        G:G       A:A       ... C:T       A:G       A:G     \n",
       "3 G:G       G:G        C:G       A:A       ... C:T       A:G       G:G     \n",
       "4 G:G       G:G        C:C       A:T       ... C:T       A:G       G:G     \n",
       "5 C:C       G:G        C:G       T:T       ... C:T       A:G       G:G     \n",
       "6 G:G       G:G        C:G       A:T       ... C:T       A:G       G:G     \n",
       "  rs833070 rs884736 rs921943 rs9469199 rs970547 rs9902453 rs9939609\n",
       "1 A:G      C:T      A:G      A:G       A:A      A:G       A:A      \n",
       "2 A:G      C:T      A:G      G:G       A:G      A:G       T:T      \n",
       "3 A:G      C:T      A:A      G:G       A:G      A:G       A:A      \n",
       "4 A:G      C:T      A:G      G:G       A:A      A:A       A:A      \n",
       "5 G:G      T:T      G:G      G:G       A:A      A:G       A:T      \n",
       "6 G:G      C:T      A:G      G:G       A:G      G:G       T:T      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "ind_med$W1.2MedDifWRelFFM1 <- NULL\n",
    "head(ind_med)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Train/test partition <a class=\"anchor\" id=\"2\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 40,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"package 'caret' was built under R version 3.6.2\"Loading required package: lattice\n",
      "Loading required package: ggplot2\n",
      "Warning message:\n",
      "\"package 'ggplot2' was built under R version 3.6.3\""
     ]
    }
   ],
   "source": [
    "library(caret)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 41,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(w1_max$W1MaxWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "w1_max_train <- w1_max[id_df,]\n",
    "w1_max_Test <- w1_max[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 42,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(w1_med$W1MedWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "w1_med_train <- w1_med[id_df,]\n",
    "w1_med_Test <- w1_med[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 43,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(ind_w1$W1DifWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "ind_w1_train <- ind_w1[id_df,]\n",
    "ind_w1_Test <- ind_w1[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 44,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(w2_max$W2MaxWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "w2_max_train <- w2_max[id_df,]\n",
    "w2_max_Test <- w2_max[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 45,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(w2_med$W2MedWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "w2_med_train <- w2_med[id_df,]\n",
    "w2_med_Test <- w2_med[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 46,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(ind_w2$W2DifWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "ind_w2_train <- ind_w2[id_df,]\n",
    "ind_w2_Test <- ind_w2[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 47,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(ind_max$W1.2MaxDifWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "ind_max_train <- ind_max[id_df,]\n",
    "ind_max_Test <- ind_max[-id_df,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 48,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "id_df <- createDataPartition(ind_med$W1.2MedDifWRelFFM1Bin,p = 0.85,list = FALSE)\n",
    "ind_med_train <- ind_med[id_df,]\n",
    "ind_med_Test <- ind_med[-id_df,]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Random Forest application <a class=\"anchor\" id=\"3\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In all models we train with 10 folds or subsets of the training set."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 49,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<dl>\n",
       "\t<dt>$Fold01</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>25</li>\n",
       "\t<li>31</li>\n",
       "\t<li>54</li>\n",
       "\t<li>55</li>\n",
       "\t<li>58</li>\n",
       "\t<li>61</li>\n",
       "\t<li>76</li>\n",
       "\t<li>81</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold02</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>2</li>\n",
       "\t<li>11</li>\n",
       "\t<li>23</li>\n",
       "\t<li>35</li>\n",
       "\t<li>48</li>\n",
       "\t<li>63</li>\n",
       "\t<li>69</li>\n",
       "\t<li>72</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold03</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>13</li>\n",
       "\t<li>14</li>\n",
       "\t<li>16</li>\n",
       "\t<li>26</li>\n",
       "\t<li>34</li>\n",
       "\t<li>43</li>\n",
       "\t<li>46</li>\n",
       "\t<li>51</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold04</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>19</li>\n",
       "\t<li>20</li>\n",
       "\t<li>39</li>\n",
       "\t<li>47</li>\n",
       "\t<li>50</li>\n",
       "\t<li>56</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold05</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>6</li>\n",
       "\t<li>17</li>\n",
       "\t<li>29</li>\n",
       "\t<li>32</li>\n",
       "\t<li>41</li>\n",
       "\t<li>44</li>\n",
       "\t<li>68</li>\n",
       "\t<li>80</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold06</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>7</li>\n",
       "\t<li>21</li>\n",
       "\t<li>28</li>\n",
       "\t<li>30</li>\n",
       "\t<li>40</li>\n",
       "\t<li>49</li>\n",
       "\t<li>65</li>\n",
       "\t<li>75</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold07</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>9</li>\n",
       "\t<li>12</li>\n",
       "\t<li>22</li>\n",
       "\t<li>37</li>\n",
       "\t<li>59</li>\n",
       "\t<li>62</li>\n",
       "\t<li>77</li>\n",
       "\t<li>79</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold08</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>3</li>\n",
       "\t<li>18</li>\n",
       "\t<li>24</li>\n",
       "\t<li>33</li>\n",
       "\t<li>36</li>\n",
       "\t<li>60</li>\n",
       "\t<li>71</li>\n",
       "\t<li>82</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold09</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>4</li>\n",
       "\t<li>10</li>\n",
       "\t<li>15</li>\n",
       "\t<li>38</li>\n",
       "\t<li>42</li>\n",
       "\t<li>53</li>\n",
       "\t<li>66</li>\n",
       "\t<li>73</li>\n",
       "\t<li>78</li>\n",
       "</ol>\n",
       "</dd>\n",
       "\t<dt>$Fold10</dt>\n",
       "\t\t<dd><ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>27</li>\n",
       "\t<li>45</li>\n",
       "\t<li>52</li>\n",
       "\t<li>57</li>\n",
       "\t<li>64</li>\n",
       "\t<li>67</li>\n",
       "\t<li>70</li>\n",
       "\t<li>74</li>\n",
       "</ol>\n",
       "</dd>\n",
       "</dl>\n"
      ],
      "text/latex": [
       "\\begin{description}\n",
       "\\item[\\$Fold01] \\begin{enumerate*}\n",
       "\\item 25\n",
       "\\item 31\n",
       "\\item 54\n",
       "\\item 55\n",
       "\\item 58\n",
       "\\item 61\n",
       "\\item 76\n",
       "\\item 81\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold02] \\begin{enumerate*}\n",
       "\\item 2\n",
       "\\item 11\n",
       "\\item 23\n",
       "\\item 35\n",
       "\\item 48\n",
       "\\item 63\n",
       "\\item 69\n",
       "\\item 72\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold03] \\begin{enumerate*}\n",
       "\\item 13\n",
       "\\item 14\n",
       "\\item 16\n",
       "\\item 26\n",
       "\\item 34\n",
       "\\item 43\n",
       "\\item 46\n",
       "\\item 51\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold04] \\begin{enumerate*}\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 19\n",
       "\\item 20\n",
       "\\item 39\n",
       "\\item 47\n",
       "\\item 50\n",
       "\\item 56\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold05] \\begin{enumerate*}\n",
       "\\item 6\n",
       "\\item 17\n",
       "\\item 29\n",
       "\\item 32\n",
       "\\item 41\n",
       "\\item 44\n",
       "\\item 68\n",
       "\\item 80\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold06] \\begin{enumerate*}\n",
       "\\item 7\n",
       "\\item 21\n",
       "\\item 28\n",
       "\\item 30\n",
       "\\item 40\n",
       "\\item 49\n",
       "\\item 65\n",
       "\\item 75\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold07] \\begin{enumerate*}\n",
       "\\item 9\n",
       "\\item 12\n",
       "\\item 22\n",
       "\\item 37\n",
       "\\item 59\n",
       "\\item 62\n",
       "\\item 77\n",
       "\\item 79\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold08] \\begin{enumerate*}\n",
       "\\item 3\n",
       "\\item 18\n",
       "\\item 24\n",
       "\\item 33\n",
       "\\item 36\n",
       "\\item 60\n",
       "\\item 71\n",
       "\\item 82\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold09] \\begin{enumerate*}\n",
       "\\item 4\n",
       "\\item 10\n",
       "\\item 15\n",
       "\\item 38\n",
       "\\item 42\n",
       "\\item 53\n",
       "\\item 66\n",
       "\\item 73\n",
       "\\item 78\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\item[\\$Fold10] \\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 27\n",
       "\\item 45\n",
       "\\item 52\n",
       "\\item 57\n",
       "\\item 64\n",
       "\\item 67\n",
       "\\item 70\n",
       "\\item 74\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\end{description}\n"
      ],
      "text/markdown": [
       "$Fold01\n",
       ":   1. 25\n",
       "2. 31\n",
       "3. 54\n",
       "4. 55\n",
       "5. 58\n",
       "6. 61\n",
       "7. 76\n",
       "8. 81\n",
       "\n",
       "\n",
       "\n",
       "$Fold02\n",
       ":   1. 2\n",
       "2. 11\n",
       "3. 23\n",
       "4. 35\n",
       "5. 48\n",
       "6. 63\n",
       "7. 69\n",
       "8. 72\n",
       "\n",
       "\n",
       "\n",
       "$Fold03\n",
       ":   1. 13\n",
       "2. 14\n",
       "3. 16\n",
       "4. 26\n",
       "5. 34\n",
       "6. 43\n",
       "7. 46\n",
       "8. 51\n",
       "\n",
       "\n",
       "\n",
       "$Fold04\n",
       ":   1. 5\n",
       "2. 8\n",
       "3. 19\n",
       "4. 20\n",
       "5. 39\n",
       "6. 47\n",
       "7. 50\n",
       "8. 56\n",
       "\n",
       "\n",
       "\n",
       "$Fold05\n",
       ":   1. 6\n",
       "2. 17\n",
       "3. 29\n",
       "4. 32\n",
       "5. 41\n",
       "6. 44\n",
       "7. 68\n",
       "8. 80\n",
       "\n",
       "\n",
       "\n",
       "$Fold06\n",
       ":   1. 7\n",
       "2. 21\n",
       "3. 28\n",
       "4. 30\n",
       "5. 40\n",
       "6. 49\n",
       "7. 65\n",
       "8. 75\n",
       "\n",
       "\n",
       "\n",
       "$Fold07\n",
       ":   1. 9\n",
       "2. 12\n",
       "3. 22\n",
       "4. 37\n",
       "5. 59\n",
       "6. 62\n",
       "7. 77\n",
       "8. 79\n",
       "\n",
       "\n",
       "\n",
       "$Fold08\n",
       ":   1. 3\n",
       "2. 18\n",
       "3. 24\n",
       "4. 33\n",
       "5. 36\n",
       "6. 60\n",
       "7. 71\n",
       "8. 82\n",
       "\n",
       "\n",
       "\n",
       "$Fold09\n",
       ":   1. 4\n",
       "2. 10\n",
       "3. 15\n",
       "4. 38\n",
       "5. 42\n",
       "6. 53\n",
       "7. 66\n",
       "8. 73\n",
       "9. 78\n",
       "\n",
       "\n",
       "\n",
       "$Fold10\n",
       ":   1. 1\n",
       "2. 27\n",
       "3. 45\n",
       "4. 52\n",
       "5. 57\n",
       "6. 64\n",
       "7. 67\n",
       "8. 70\n",
       "9. 74\n",
       "\n",
       "\n",
       "\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "$Fold01\n",
       "[1] 25 31 54 55 58 61 76 81\n",
       "\n",
       "$Fold02\n",
       "[1]  2 11 23 35 48 63 69 72\n",
       "\n",
       "$Fold03\n",
       "[1] 13 14 16 26 34 43 46 51\n",
       "\n",
       "$Fold04\n",
       "[1]  5  8 19 20 39 47 50 56\n",
       "\n",
       "$Fold05\n",
       "[1]  6 17 29 32 41 44 68 80\n",
       "\n",
       "$Fold06\n",
       "[1]  7 21 28 30 40 49 65 75\n",
       "\n",
       "$Fold07\n",
       "[1]  9 12 22 37 59 62 77 79\n",
       "\n",
       "$Fold08\n",
       "[1]  3 18 24 33 36 60 71 82\n",
       "\n",
       "$Fold09\n",
       "[1]  4 10 15 38 42 53 66 73 78\n",
       "\n",
       "$Fold10\n",
       "[1]  1 27 45 52 57 64 67 70 74\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "set.seed(10)\n",
    "folds <- createFolds(w1_max$W1MaxWRelFFM1Bin, k = 10)\n",
    "folds"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "As the length of the target variable is the same for each of the tests, we can use the same partition of folds, besides we only indicate positions. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Cross-validation application and creation of Random Forest's binary classifier<a class=\"anchor\" id=\"15\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 50,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"package 'randomForest' was built under R version 3.6.2\"randomForest 4.6-14\n",
      "Type rfNews() to see new features/changes/bug fixes.\n",
      "\n",
      "Attaching package: 'randomForest'\n",
      "\n",
      "The following object is masked from 'package:ggplot2':\n",
      "\n",
      "    margin\n",
      "\n"
     ]
    }
   ],
   "source": [
    "library(randomForest)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 51,
   "metadata": {},
   "outputs": [],
   "source": [
    "#function for calculating the accuracy of predictions\n",
    "acc.class = function(x, y) {\n",
    "  stopifnot(length(x) == length(y))\n",
    "  return(sum(diag(table(x, y))) / length(x))\n",
    "}"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum power relative to FFM1 in Wingate 1(W1MaxWRelFFM1)<a class=\"anchor\" id=\"16\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Because it is a classification problem, the number of predictors to use is the square root of the number of predictor variables"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 52,
   "metadata": {
    "scrolled": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "13"
      ],
      "text/latex": [
       "13"
      ],
      "text/markdown": [
       "13"
      ],
      "text/plain": [
       "[1] 13"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "mtry = round(sqrt(dim(w1_max_train[,-1])[2])) \n",
    "mtry"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  5.97222222222222\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_w1_max <- lapply(folds, function(x){\n",
    "  train_fold <- w1_max_train[-x,]\n",
    "  test_fold <- w1_max_Test[x,]\n",
    "  rf_w1_max <- randomForest(W1MaxWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_w1_max, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W1MaxWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_w1_max <- mean(as.numeric(cv_w1_max))\n",
    "print(paste('Mean accuracy: ',acc_rf_w1_max))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean power relative to FFM1 in Wingate 1 (W1MedWRelFFM1) <a class=\"anchor\" id=\"17\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 55,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  5\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_w1_med <- lapply(folds, function(x){\n",
    "  train_fold <- w1_med_train[-x,]\n",
    "  test_fold <- w1_med_Test[x,]\n",
    "  rf_w1_med <- randomForest(W1MedWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_w1_med, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W1MedWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_w1_med <- mean(as.numeric(cv_w1_med))\n",
    "print(paste('Mean accuracy: ',acc_rf_w1_med))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Fatigue rate relative to FFM1 in Wingate 1 (W1DifWRelFFM1) <a class=\"anchor\" id=\"18\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 56,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  8.47222222222222\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_ind_w1 <- lapply(folds, function(x){\n",
    "  train_fold <- ind_w1_train[-x,]\n",
    "  test_fold <- ind_w1_Test[x,]\n",
    "  rf_ind_w1 <- randomForest(W1DifWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_ind_w1, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W1DifWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_ind_w1 <- mean(as.numeric(cv_ind_w1))\n",
    "print(paste('Mean accuracy: ',acc_rf_ind_w1))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum power relative to FFM1 in Wingate 2 (W2MaxWRelFFM1) <a class=\"anchor\" id=\"19\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 57,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  8.47222222222222\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_w2_max <- lapply(folds, function(x){\n",
    "  train_fold <- w2_max_train[-x,]\n",
    "  test_fold <- w2_max_Test[x,]\n",
    "  rf_w2_max <- randomForest(W2MaxWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_w2_max, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W2MaxWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_w2_max <- mean(as.numeric(cv_w2_max))\n",
    "print(paste('Mean accuracy: ',acc_rf_w2_max))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean power relative to FFM1 in Wingate 2 (W2MedWRelFFM1) <a class=\"anchor\" id=\"20\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 58,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  4.86111111111111\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_w2_med <- lapply(folds, function(x){\n",
    "  train_fold <- w2_med_train[-x,]\n",
    "  test_fold <- w2_med_Test[x,]\n",
    "  rf_w2_med <- randomForest(W2MedWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_w2_med, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W2MedWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_w2_med <- mean(as.numeric(cv_w2_med))\n",
    "print(paste('Mean accuracy: ',acc_rf_w2_med))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Fatigue rate relative to FFM1 in Wingate 2 (W2DifWRelFFM1) <a class=\"anchor\" id=\"21\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  8.47222222222222\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_ind_w2 <- lapply(folds, function(x){\n",
    "  train_fold <- ind_w2_train[-x,]\n",
    "  test_fold <- ind_w2_Test[x,]\n",
    "  rf_ind_w2 <- randomForest(W2DifWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_ind_w2, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W2DifWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_ind_w2 <- mean(as.numeric(cv_ind_w2))\n",
    "print(paste('Mean accuracy: ',acc_rf_ind_w2))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Maximum fatigue rate between Wingates relative to FFM1 (W1-W2MaxDifWRelFFM1) <a class=\"anchor\" id=\"22\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 60,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  7.22222222222222\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_ind_max <- lapply(folds, function(x){\n",
    "  train_fold <- ind_max_train[-x,]\n",
    "  test_fold <- ind_max_Test[x,]\n",
    "  rf_ind_max <- randomForest(W1.2MaxDifWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_ind_max, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W1.2MaxDifWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_ind_max <- mean(as.numeric(cv_ind_max))\n",
    "print(paste('Mean accuracy: ',acc_rf_ind_max))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### Mean fatigue rate between Wingates relative to FFM1 (W1-W2MedDifWRelFFM1) <a class=\"anchor\" id=\"23\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 61,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] \"Mean accuracy:  9.58333333333333\"\n"
     ]
    }
   ],
   "source": [
    "set.seed(10)\n",
    "cv_ind_med <- lapply(folds, function(x){\n",
    "  train_fold <- ind_med_train[-x,]\n",
    "  test_fold <- ind_med_Test[x,]\n",
    "  rf_ind_med <- randomForest(W1.2MedDifWRelFFM1Bin ~ ., data = train_fold, ntree = 1000, mtry = mtry)\n",
    "  y_pred <- predict(rf_ind_med, newdata = test_fold)\n",
    "  precision <- acc.class(y_pred, test_fold$W1.2MedDifWRelFFM1Bin) * 100\n",
    "  return(precision)\n",
    "})\n",
    "acc_rf_ind_med <- mean(as.numeric(cv_ind_med))\n",
    "print(paste('Mean accuracy: ',acc_rf_ind_med))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Comparative <a class=\"anchor\" id=\"4\" ></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 62,
   "metadata": {},
   "outputs": [],
   "source": [
    "accuracies <- c(acc_rf_w1_max, acc_rf_w1_med, acc_rf_ind_w1,acc_rf_w2_max, acc_rf_w2_med, acc_rf_ind_w2, acc_rf_ind_max, acc_rf_ind_med) "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 64,
   "metadata": {},
   "outputs": [],
   "source": [
    "comparative <- data.frame(accuracies)\n",
    "row.names(comparative) <- c('W1MaxWRelFFM1','W1MedWRelFFM1','W1DifWRelFFM1','W2MaxWRelFFM1','W2MedWRelFFM1','W2DifWRelFFM1','W1.2MaxDifWRelFFM1','W1.2MedDifWRelFFM1')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 65,
   "metadata": {},
   "outputs": [],
   "source": [
    "colnames(comparative) <- 'Accuracies (%)'"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 66,
   "metadata": {
    "scrolled": true
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>Accuracies (%)</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>W1MaxWRelFFM1</th><td>5.972222</td></tr>\n",
       "\t<tr><th scope=row>W1MedWRelFFM1</th><td>5.000000</td></tr>\n",
       "\t<tr><th scope=row>W1DifWRelFFM1</th><td>8.472222</td></tr>\n",
       "\t<tr><th scope=row>W2MaxWRelFFM1</th><td>8.472222</td></tr>\n",
       "\t<tr><th scope=row>W2MedWRelFFM1</th><td>4.861111</td></tr>\n",
       "\t<tr><th scope=row>W2DifWRelFFM1</th><td>8.472222</td></tr>\n",
       "\t<tr><th scope=row>W1.2MaxDifWRelFFM1</th><td>7.222222</td></tr>\n",
       "\t<tr><th scope=row>W1.2MedDifWRelFFM1</th><td>9.583333</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|l}\n",
       "  & Accuracies (\\%)\\\\\n",
       "\\hline\n",
       "\tW1MaxWRelFFM1 & 5.972222\\\\\n",
       "\tW1MedWRelFFM1 & 5.000000\\\\\n",
       "\tW1DifWRelFFM1 & 8.472222\\\\\n",
       "\tW2MaxWRelFFM1 & 8.472222\\\\\n",
       "\tW2MedWRelFFM1 & 4.861111\\\\\n",
       "\tW2DifWRelFFM1 & 8.472222\\\\\n",
       "\tW1.2MaxDifWRelFFM1 & 7.222222\\\\\n",
       "\tW1.2MedDifWRelFFM1 & 9.583333\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | Accuracies (%) |\n",
       "|---|---|\n",
       "| W1MaxWRelFFM1 | 5.972222 |\n",
       "| W1MedWRelFFM1 | 5.000000 |\n",
       "| W1DifWRelFFM1 | 8.472222 |\n",
       "| W2MaxWRelFFM1 | 8.472222 |\n",
       "| W2MedWRelFFM1 | 4.861111 |\n",
       "| W2DifWRelFFM1 | 8.472222 |\n",
       "| W1.2MaxDifWRelFFM1 | 7.222222 |\n",
       "| W1.2MedDifWRelFFM1 | 9.583333 |\n",
       "\n"
      ],
      "text/plain": [
       "                   Accuracies (%)\n",
       "W1MaxWRelFFM1      5.972222      \n",
       "W1MedWRelFFM1      5.000000      \n",
       "W1DifWRelFFM1      8.472222      \n",
       "W2MaxWRelFFM1      8.472222      \n",
       "W2MedWRelFFM1      4.861111      \n",
       "W2DifWRelFFM1      8.472222      \n",
       "W1.2MaxDifWRelFFM1 7.222222      \n",
       "W1.2MedDifWRelFFM1 9.583333      "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "comparative"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Best model<a class=\"anchor\" id=\"24\"></a>"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* [Returning to the index of contents](#index)"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In truth, there is no good model because the accuracies obtained are extremely low. However, the model that best predicts is the one that uses the average relative fatigue index FFM1:W1.2MedDifWRelFFM1 (9.58% accuracy).\n",
    "\n",
    "Let's see if we can improve the accuracy of this model by optimizing the number of trees in the forest:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 68,
   "metadata": {},
   "outputs": [],
   "source": [
    "set.seed(10)\n",
    "rf_ind_med <- randomForest(W1.2MedDifWRelFFM1Bin ~ ., data = ind_med_train, ntree = 1000, mtry = mtry, importance = TRUE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 69,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAABNTU1oaGh8fHyM\njIyampqnp6eysrK9vb3Hx8fQ0NDT09PZ2dnh4eHp6enw8PD///8uNL8wAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAgAElEQVR4nO2di2KiOhRFY2ttq2PN/3/tKJAXhPeBJLjWvdNaIewQWHIQ\napUGgNWo1B0AOAKIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiAS\ngACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEI\ngEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACIBCAAIgEIgEgAAiASgACI\ntDXXr5NSH1/XvulfYw2+nz96MynD5490V2E5iLQtf592v3/Epv87qZEG36/HMZGUumzWbZgL\nIm3K4+R2+1PMpOfzIw0+lLq3Wlh+t+s5zAORNuX83Nu//57HmZ/ng3NkhrZI3QbtOczPj8uz\nANym1zAfRNqSf8+9/l/98E/VRxbjQfW9ObBMamBwP5tHvy/7Pi5/dbOv6uyp1epxOalTM8dz\n0t/Hqyy0D17nZa/68arDGWA6iLQlF+885rt+PCxSp0FnjkCk0+ubPal6GfivOb8K2/yd3Byv\nBTzLxU/vgV3EWQczwHQQaUs+vfObe71vDovUadAv0uvQ85Lup35b4lJr4J1ieW3Ms6dmAfXp\nlX1wtm3OwQwwHUTakmB3rn8IROoUbgMNvGcN1bsRz4PHn5379/nks0D7PQWtatceX7Udyrwh\naB5cnw9+ntNf7w9e/RlgOoi0JRuLdH60m55rFV5Cea2ezzbmnOsZr6ZF9eApWH1J6lK/z25n\ngOkg0pZMFslUY/0NbL3miWTeUf/7vXzWE0+mfXtBXm2nGq3sA/vEn03kgDQXRNqSj5FzpI4m\n/Q18kZrpn/VJ0u+H6k7sESk4xLW6otuuwwwYsi3x34S7RN6162jS36DrSvO23auK+/j6uQ8c\nkU6BGTGR7BHp1G4L02DItuSfO914ndE3l4UezRStOzttvEGwzEAkVR31rvaH3nOka2QB5sG5\ne460Yp3fFIZsU16nLq/roH8X1by3fKqOM/9OnkiPwQa9IlWXXu3P9RHJvGunglavZ/9V3/zi\n0j6IvGsnPhCHhyHblL/OrXNfwflKdYXnMtggIpLjWqn3XMC1MXP4OlJ1RbZ7HmUv6dY3xyLS\nAhiybfFu5m5u4al/ujR768urz8EGQyK9FPxntKs0uTZtw1ZXb/7YGxIm8yuaCBNgyLam+vWi\nk/v1ovurIvv1T1C+Bhv0i3S+2gWevu5/dSlYLf7avdfuw84fEanO9O61W7fK7whDdkgeze1A\nsBeIdChUfRfQ6xJT7Jc2YDMQ6VC4tw24y2dfEOlQuDf9+HWifUGkY/H4fv1OxKn/s1ZgGxAJ\nQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAE\nQCQAARAJQICVIv24T3kCeGOWilR/9Nknnw8A8GKVSBd1eVQfU/0j2SWA8lgl0qn+cyAP/kw9\nvDurRHKffSvVHYAyWSXSlxGJj8eFN2e5SOfvn2v1+biPC+82wLuzXCT7R3js3wQGeFsWn93c\n7z8/53P1lsMFj+Dd4W0CAAEQCUAAbhECEIBbhAAE4BYhAAG4RQhAAG4RAhCAW4QABNjhFiEF\nUBh7imQTY7cI+Z263bTmH/8K+rejSDNuEeqNuC3NFoJ88uPsKZJARL4DSf575xcmEkCeIBKA\nAKlEGn6Xg9KO/MLyEWkW5JMfh9IOQABEAhCgMJHyPbST/975u4r07/tc3bhwvvxbGJHvQJL/\n3vk7ivT48G4C+twkAiARO4p0Uaffe/Xo73oauWl1YQRAInYU6aTu9vF9+NcoKO3ILyx/17u/\n+36YHpHvQJL/3vmFHZEA8mTfc6TrX/WIcyQ4Gnu+/f3pvWv3MfgLSZR25BeWv+91pEt1Hel0\n/l51HWnhb/YOxE1eXL4bkvy0+YXd2aBrjbSkSsGnGwEsokCRqqlKrhtqNBJgjMJEulmDxExS\nre+D5FtakJ82H5EQiXyB/MJE0olFAohTnEicI0GOFCbSLfG7dvmWFuSnzS9PJK4jkZ9hfmEi\nAeQJIgEIUJhI+R7ayX/vfESaBfnkxylMJIA8QSQAAQoTKd9DO/nvnV+kSMKXkWasUr4bkvy0\n+YWJ1ExOJhJAHESakAcwRmEiUdqRn2c+Ig3mxfPTQX6u+YWJ1EymtIPMQKQJeQBjFCYSpR35\neeYj0mBePD8d5OeaX5hIzWRKO8gMRJqQBzBGYSJR2pGfZz4iDebF89NBfq75hYnUTKa0g8xA\npAl5AGMUJhKlHfl55iPSYF48Px3k55pfmEjNZEo7yAxEmpAHMEZhIlHakZ9nPiIN5sXz00F+\nrvmFidRMprSDzChPJCX+xygQCVZTmEi35o8ZUdqRn1d+cSJVkxGJ/MzyCxOpnkBpB7mBSIN5\nANMoTCT3py+lemH+JO20ufMtLchPm1+aSK+d3uz8EkGvpTRfpsyf74YkP21+YSLZPV/J9MN7\nE5DyDlZQmkhNXae0iEnGIEyClRQm0k2bA1IakfItLchPm49IiES+QH5hImltTeIcCTKiQJFS\nvmsHEKcwkbiORH6e+SWKxL125GeXX5hIzWRuEYLMKFCkGZWYSB7AOIWJdNNpRcq3tCA/bT4i\nDebF8lNCfq75hYlUT6S0g9xApNE8gHEKE8mWdnKdUHrGxd18Swvy0+YjEiKRL5BfmEj1xHQi\nAcRBJEQCAQoTidKO/DzzEQmRyBfIL0ykeiKlHeQGIiESCFCYSJR25OeZj0j1J+VNnDnfDUl+\n2vzCRKonphMJIA4iIRIIUJhIlHbk55mPSIhEvkB+YSLVEyntIDcQCZFAgMJEorQjP898REIk\n8gXyCxOpnkhpB7mBSIgEAhQmUlPaCd9lSmlH/tp8RNKIRP76/MJEqiemEwkgDiJpRIL1FCYS\npR35eeYjkkYk8tfnFyZSPZHSDnKjTJGC60hKzbyy1G498rcvzd+ZFf/EcTgQhYlUlXbBju/9\nNeVpHWv+kLn5wVrY09z83fOafEsL8tPmlyiSDkTSxqGpIvkJdVFnvvbOXt/78Pya74YkP21+\nYSLpZqe2d/UYgyab5AtoDGqqtlhzzyP3HaANIiESCFCYSLfEIt0Si5RvafPu+eWJxDkS+Rnm\nFyZSNTHhu3ZUdhCnRJG4jgTZUZhI3CJEfp75iKQRifz1+YWJVE/kXjvIDUTSiATrKUwkSjvy\n88xHJI1I5K/PL0ykeiKlHeTGEUSacVtD08C/jlTftzB4d1/TBtugl8JEipZ2O4qUb2lBftp8\nREIk8gXyCxOpnkhpB7mBSIgEAhQmEqUd+XnmIxIikS+QX5hI9URKO8gNREIkEKAwkSjtyM8z\nH5HqJSIS+avyCxOpnphOJIA4u4r07/tcffTB+fJvRQQiQX7sKNLjw30Yj/pcFkFpR36e+TuK\ndFGn33v16O96UpdFEYhEfp75O4p0Unf7+K5OiyMo7SA/dhQp3PlHXBmciEiQG4UdkSjtyM8z\nf99zpOtf9YhzpKWQn2v+nm9/f3rv2n08FkfUH2jffnKWSPMSVfOF0g562fc60qW6jnQ6f6+9\njoRIkBeF3dlQ/w3ZyBw7iZRvaUF+2nxEGknUiET+hPz9Rfr5UOp8XRGRUiSAOLtfR2recRh8\n0w6RoDT2FumiLg+t/y7qZ1EEpR35eebvLdJJVe97P9THoohGJPvH87w31Kd3w/ypy/r6U/3n\n/lS4NK3Db+ZBvhuyyPzWgMemam+W5Os/8Me49xbJGbA4wg27P8wTTWqaaGuR9raWWVqwCe0M\nmj9+KYsK0K2dIrRo1mvlRnT76E9csLw1/fgyIq24abW5GaEpt6rxjrye9S5Zud8tt0tqbm5o\n5PQOV2YOZRqCGOFLVvVMa6r2XsXSD77yvvZMXLC8Be3U+fvnqn6fDx+XNbcINedIzb6tzQFq\nSr+sffa70sYcZ5B3xGpehFSjWf+hfR+OVNq1S4DquWCq9qbXGzrl+r/6c9N9O+euInnH8FPn\nFiH/GH57drj/n/L+PcvW+vFIm+Cf8r43/1Tf92bZSnmZ/BP5Z8dVRbafas0zdxvv/W/P60j3\n+8/P+Vy95XAZvNVu2tvfrSPSpCP/2iNS8vLiQCw5IqVEtb7Hpy5Y4IYsOEea2C3OkfKBc6TN\nGTlHSveu3U1oBZdyqHwVoKe8a5d0/atztAzetZOIqEVy79F5gzy1W2ab2Fc8Vxf6myz8Zh4c\nakdOn98a8NhU7c2SfP3zuI4ULmS4ehtt2hn0Od2KzDrU2lQdqUsLyBhEGk9EJBilzNIumUgH\nK63IF8tHpJFEjUjkT8gvTKRqIqUdZMeuIgl99jciQXbsKJLYZ39T2pGfXf6OIol99rcnkrnh\nYMZ1JHuNPLhQbX9Q5h1Fc5HQzp38gqA+Xr4yt//o2EZ3W8BcZMp3/XcUSeyzvxOKBLLMFSk1\n/b3YUaTWDSCLIxDpOCDSAsQ++5vS7jD5lHYLEPvsb0Q6TD4iLUHqs78p7Q4Dpd0ihD77G5EO\nAyJtC6VdD0fLp7TbFkTq4Wj5iLQtlHZvAqXdtswWSS8VSdknm8Uh0p40v/taDXREJJ2ZSAOd\nKEykvtJuL5HyLS3KzJ8rUvJfNe+ftGBpK3qyNgKRjpWPSNtCafcmUNptCyK9CYi0LZR2PRwt\nn9JuWxCph6PlI9K2UNq9CZR224JIbwIibUt/aacUpd2B8inttqUnovoQe+WLVM887+VKtb57\nPyjtidReOiJtk696XwS7E/Jd/7JEqr8mFAnkmSNSvpQkkr9DI9JhQKTt6BUp9rl2lHZl51Pa\nbQci9XDEfETaDs6R3ghKu+3ofddOJ37XDuRBpO3ojXDXkSzmOkO4nytPOvezrn8j0794YS0J\n6D5TP9s9tA9dKnRps9Z+gHxLmzHcKLhN4W1CN06RcR8afwl64zpPHaS0c+dIyuyj2n9gm/mH\nLu9LR0HlLS4YwtiwxjakW3pkJdyCxY5mpYpkdktvUyxim3O0Gfm9G7IwkaqJ3jZpvpp7EML2\n7qt3ctX4pFxFoexzzS5vDXBj3FdA+kGxac3Cdhm0nDFD7zZFOL7+plTB4Hde+Lbo2xyX+pay\nIHhVt9dHmBuC3Hdl9md7XuP/6J52u3YghtmM2njk7PFGLzaI0dMt7zn7CvzmJrWqus7rlHlR\n6zztS7SRSX6xv8KkwkRqSrtkIrVKi91FKrS0ExNpg/WfJdLt2CJ1jAl+nC+SPfO1A6wRaU0+\nIgk1EY3Y8BzJlujtMp1zpHUMnSOZr5wjyTNFpC3ftYsOYFQku/T+fm63C5SD8l/9po33nL14\nbd8EulCYSLfuptB2fw2W4LnkfnYHGzXjOpJ2z3IdaSluFNymiG7CwX2Y60hCEU6kYOZZXbIb\ntJOoTPXhJSh3rrXZhpzOIfNV3/brbtl8178wkXRikWADZoiUL4jk/YBISUCkzaC06+GQ+ZR2\nm4FIPRwyH5E2g9LunaC02wxEeicQaTOmlHbK7fdaddo0e7170smg7L0K3gzK3RvkiWQv+Jqs\n2HWkkfUQ3RvyLW1GUd5YN08EU+y9W27bhEOn1uUP9i28jcw90d5yhyntECktiNS7iAWp85vI\nRSQWKdKhXUUqGBGRturbVJEGFrEgdX4TuQhEKhVEEmgiFkFplxZKu95FLEid30QsApHSgki9\ni1iQOr+JXASlXalQ2gk0kYtApFJBJIEmYhGUdmmhtOtdxILU+U3EIhApLYjUu4gFqfObyEVY\nkZodfrpIbtt4/2IiKV8k5YkU7dYEkQZneRvaIqnWFOVtIm233k6lnd1Gyj0zLxORzGRE2hZE\nEmgiFuF/ZkMKkRaVdoIiHai0WyTSVqXdVJEOU9ohUloQqX8RC1I3h9LueFDaCTSRi0CkUkEk\ngSZiEZR2aaG061/EgtTNQaQeEGkT3k8kSrtiobQTaCIXgUilgkgCTcQibGnnhr9nCR2R7DfV\nemqoD3abN9+5RUiC5eOx3fpP69NhSjtESgsirWu/tolcRFV9mUcDc24kUm9Q/zJERToGOY7H\n2j4h0mAfEGkLchyPNxPpllgkSjsJKO2WNhGLQKS0INK69mubyEVQ2h2AHMfjzUo7I1JzecdR\n/6CdZp5IrZlaNMuNTegG2KXbKCeSCp3y89YPiGrFu94NNlodvJq+YXedi0wwQxusX3RlYwuc\n2Cu3GVsbNljs5CVOD1/RRCziZq+Zup052NW11v7+7TvXtz1VVKPuhNcPt/qqrZfiTNShVTpo\nvW44bN9vSulux/oajRwvFzC3tBoYXLu1ekfebLVmSa8nb6q1+NYGmt6rQFa/fWdHmbb+hYqk\nfZHCp5qCyonk26TtiDUP3GT/oBZ+tTNWf4xXhUVfeEk8LBv9xiuHQ5kdybsBwP7f10iLb6zZ\nImlTRLR2T1ujq2DwrT6mJLaFcb2aEZG0W+LUtW1VK2Yg7fOtYmfS+hcmkrbj7LaANj55k5xI\nzQQ7PM3OH5jkGeRGL3il8qSzp0vWFb/HvlbeHrRq0KzQxnjtHvSa1OpQGiIeefu98rdDaJmy\nL1EqeGEMV1ap1pactrZu1zD7gv1upgR9nbyqM0EkjUjTQCThJmIRt7ZIrt7dRaSb6VwikW6J\nRZpZ2omLdEss0mFKO86R7A6m3P99jbT4xuIcaXiZs8igtDMOaW8g3RZoiWQnqR5035TWQap5\nRgcpQc3hRt2IHdsa84fD77vudqyvUasSSsDA4Nqt1TvyXsnhbe5w8a0NNL1XxuNO+86OMnGZ\nU4dkVRO5CG8/ar0eufGv5mu96ih/5sg49W3MTlszt9sStmvhmPt56wdEteJd7wYbrQ5eTd+w\nu85FJihvJ/eX1F2f2AIn9sptxtaGDRY7eYnTw1c0EYvo3CLUN6svkv/IP/4Pr0hQwJmsubcI\nqTBxNdwitBXT+nSY0g6R0oJI69qvbSIXkVik3qD+XoiKdAxyHI+1fUKkwT4g0hbkOB5vJhKl\nXVoo7da1X9tELAKR0oJI69qvbSIXQWl3AHIcjzcr7bR/K4G5+ydoZab6InnX0b0rBvELE2ZZ\nKhDJfveX3r7k2b6OZOIkLueYGzBa+cOLzmKHrV9MqqFyHe8Z+eGbQHqvIzUXhGb1yn1t70bL\nKEykW2KRbv7SE4jUzt9bpAWllahInfydRTpMaYdIYT4iIdKyCEq7IJ/SjtJuWQQiBfmIhEiL\nIijtwnxKO0q7RRGIFOYjEiIti3C7P6UdpR2l3eKIehOYjYNIiIRISyLMZxakEonSbjaUdoJN\nxCJu/sFhXCSrk1L2UOadY42LZId6qUhW4ZU0vffzVe/+GO+QBKtEcuPY2+/BFXo2lxap9vsN\nRdKJRZpd2gmL5OenEGkBoiLFGuwp0tgCt24iF4FIXjIiHUak82Vl/nhEwMxzJEo7YSjthhc4\nC7/JRq95YyKZjYNIiHQMkT7UY/4C5kW0p5itQGlHaXec0u5x/vy3sgdjEe0pngiIhEgHEUk5\nVnakNyJg5i1ClHbCUNoNL3AWiIRIM0AkwSZyEZR2XjKl3WFKu42YIVK7lYr80HJNpiftwM68\nZtvKHa3dkuwSx/uXA2IDMDRlgUgjC124wGVNfj+fm/f8K9KZngiPbmnXbrWtSLfuxF1FMvmp\nRFr4cVhiA9Cbv5NI25V2n80Z0uf85UyN8EGkVhQi2YSiRfpRp+vz2/WkfuYvaFpEewqlnU4n\n0kIo7caafKh79f2uPkS6E4kInlfKMwWREMmbUrRIbsuKbrT4wp4ZN39forSjtPMSii7t3BHp\nNH9B0yKCZ2+Jj0iItAhEGmuy5zlSs9u6ayn2CkIwg7tArPrw5+vrgTLXasysA8tr+mEemHn9\nFpHFB08GvY72xi3b79Xg1bD4mo8TDOq6lwE/uv29Z+6hRbW71l18Z0WDp1S48ecPTf+Krmyy\n47t2oUjNtU7tl5fN03afm0YsyroweUl+G2Ufez8Eizczujy/O60+hVNVe6fp29knr22nnetC\nrDszsCMwadd1cw/2ynZtZIPEeuA/05p9pUprRdK/Z7XTdaTXk7eISEE1ZzeFG7vWV61a02JR\nyny1i6sDb27YvU2g7Q0Mdltp/6CmWqukvP+bvHAHaJestic3u5quV7a/nZWI7TKD426HMfb1\nxczSzoyJcj32vneDlf0a71Vd2plOeRszokesB81TXQunlobHuEVIeedIbgjd7K39vr27+7u9\nCmbrBNnXPK3cvqqqe71aBpnFaC/Bd8/tMl5JYo+u2gYFe1lbO9eDW7OjtW+2ia5EOAJDJVVs\n7FXrccU8kfxU19Pwe7Cewfdur57rb0fHNyhUyG0H2wP7vX4uuntM2rE3E2nX35D1XthSidQ5\nFO0skkos0jzkRXLbO41IA+u6rsmUUmEBfUu1e0ROIplFdkRSiIRIE5vs/RuyN1NHm+Hw5653\nW7cb+4Os/SELn43l273TN1PHz5E8rbV1R2vvB3+fbDpq/2/y/B2+vf7K9YRzJK9T3sbsiGGW\nHvageao14DM82qy02/s3ZM05kvJEslvEF6m9/wwQy7fD31rSLbYAtzm87GBHbu3qrpMuz+9O\nq09+fvAyr+zCe0Wasraddq4L7e7MF2lge/TP3durm9+1YaI98J9pzT5laLL6xb6fD6XO1+kR\n4QR3cDerr8JW4f7VP8Yj3Xaj3q684ktsby/lfojFdJ4Meh3tjfc67vemd8/TsQ73jWunXfTx\nAvzo9veeuYcW1e5auAWiKxo8pcKNP39o+ld0XZM5HalnaS48Db9JMUmkThHQqfPsyVPw5CwG\nW7QKn44t2t94EnRXZEL/0iO3/gNT5oUEqi3tTtiBPZrU7V4NL+ryPKv6uwzfCTFW2plaeneR\nIrcI7SpSmbcIya9/JGIXkbJ4+7vq+6l+d+IxfLf4gEj2hAORYpmtDkiDSP0dmE1Y2s1o55+4\nDjccPISbk01Ku0hmqwN5QGk32mTO299V37/Mvj14t/iUAUOkWGarA3mASKNN5rz9rdT5++eq\nXrflPS7D7zaMnSPV81DaUdq5iNJLuznv2tkZlToNHskQqac3iNQb8T4i6fv95+d8fs14ugxX\nhKtKO6Xd9RbtLsQt26M7cjS3MWhzPdictCnTt+arsv2LDo5qL9q7YtjfDTuHnU+F+0SsVXPZ\nXs3Y11TP4/kof5OtRrW7pvyHyl4cUbo9lz03b76p5hKsmjMsI13boYlcBCK5CLMcREKkuRFT\nSrstRbolFumWWKTZpZ2wSLfEIm34+0jX86s/579ZSxhLRaR4NxDpsCJ91ltfneaYtFwknVgk\nSruZCIvU7treIg12bU2TH/X5ePXnR32NtwtZ1itEchFmOYhUvkivO37MPjvGv9N6kSjt0opE\nadfbtekLiTVRpo9T9tHHWX3+mVaTIwIQCZH8hR9GpI/miDTxI4t/VXVjA+dIS0WitEsr0mDX\n1jRpzpEmf0Dk36c6PxAJkVYszf/xMCLpc3PGM/kDIr/V6Rrd9P750+15CI3/Uz2Pzc+2rar/\n+c8NLXdKnr/czvKVm9c8Z3+O5Kr2ss0yx/rTmq+znPYytde3Beu/9p94rr/uqpsTzVPdfUCp\n7nZa16+VIlXXkWZ9QOT9Y/zI0Dv95r8IxY5Iyrz+bHNEunlHI2XDXJZ2RyT7ghl9a6VzJDHL\njB9gzAvpinOkOUeG3iNSVudIqnVEamqE4SOS3RX8ymEym50jLeJLpLRLIpKpKFOJtKK0ExFp\nNluWdglEGuzaDk3kIhDJRUSX022FSIjUgdIurUiUdr1dm76QFU0iCxlcCiLFu4FIiNReyDKR\ndGKRdGKRKO3SijTYtR2ayEUgkouILqfbCpEQqQOlXVqRKO16uzZ9ISuaiEUgEiK5nw4m0r9P\nNfYZDGbO7/pGiPNl5KOH+ns1JJJ70pUAamA/W4wKdo5wY0b7FHkuvpJz+qpa3wWRK+0kFrBy\naRG37IuQHGtEuj8N+tH3yo3hTwWqeHwox/AtRYg0qRfz28xctMjiEWmkyb/KiMvn6a4fnyOf\niv/iok6/9+rR3/W0/nPtkoh0MwtNJJJfWqQQaXZp117ASpbc0yYp0ialXSXPRanXn2h5DH9y\nasVJ3e3j+8JPWkWk7ryINCE/Z5GCE7sJu2swyxbXkdyTlHbroLRblrKsyVyRJI5IiNSdF5Em\ntDiSSM9zpGv9WUOcI1HaLYPS7sWn967dx+rP/u6IZK7CVF/baB2/njNCu0XzN2S1chFeWDTX\ndUDrTs9iXe0uw7Rv/Q3bYHG9nY/3TWv7XKRZdy2apd20bRiOerRfOuj9elRzHa273rHwvrXx\nnm1tnHE2EqnTvxH+XarrSKfzt/x1JDuEA3vz3G1qrrR6T4wQzqLtU17/2i1Gl9lZbE/zeOfV\n8KB0hiTihV28WQ9/hZoNMdTx+DF5NsHielakNUF7z8f7aCav793yJp0xk2OJSKZPbrtqr2vu\n2+xuBCH+dozsQS2R/N3IHRRde7uEzmFNuzncCnT2ALMTxcpc2/nwANruXHtIrH5OQidbU5C6\nGtYUJa1e27LAhcwY9r6tYSsg1TPKdpLb3q5G8R/4PW6WuLp3uzQRi+gt7VTwpL+v2Wea6dO7\nr1rfnw9uXmEQ3T29bev1oNmooRzBHtE5CvgzOwlv/izK7hcRk8yeH2SrsLldcNhMtQbRm+Xm\nG6TsqUZr1ZR/NPQOXauolnALDjz+8Lalt0Psbw2v7HfrOcek499r934iBTnbiRSMXnqRgsFa\nJ5I3AO8nUljaeVvHF6ld2gmK5DZSGpH6cqRFUt4e54tk6qVUImnX99bw7iPSQPdWNXn8VJ8h\n9D39D8nOjuhMiYtkdpy2SGYub+PO7UYQ4u1hXlJnz/Z+MqFuF3Xt7RK8Zjr4avbquAh2x+l4\n5HW+R3nbr3BI3CHJjZ4daeUbZP55Afar9nrW9G81rreqZ5S7PtmhMcNpRjxwX+LgsEqkq/k0\n723mHlkAABfGSURBVNOMj+OaF9EiLO0CkawuPfuM2y+md6P9WtourXqTgjy3K8VajCwxXGwn\n3zcw2nk1PCidIWmvg3tZej1/0+0V0nbf7O/4zNev3q2hqtKu0z9vRVoTdP/q+ys33fNtSrur\nUtXvQ9wv9ScRy7FAJLd5e3Yb+9o+qyOtFuY6UucI0n4YbmW3mL7JQ3jlii9SuLjezsf75hzr\ntIz1wCyt3OtIOmjRenJyDzYR6VHfr/riqZRodbegtLNPmmO5m0uyZ6Z73lJdh1y10+pTpAvd\nWixY1qROzG0yfdmRtVuxtPWLcMuav7DanLAX8Q21hhUiXbzbfC7qW6Y/YURsCiKFsyLSlPic\nRfpQ7q/0/U37axRzIzoMlXbNk5uKZO61SyWSV1okEWnJvXaSPbwlFmnDe+1iP6wGkQbzg1kR\naUo8InWmUNqFs1LaTYmntOtMQaRwVkSaEp+zSCnebKC068xKaTclPufSLsXb34MiVaMTXlff\nRCTlRPI3SHN5JbTM9NO3zbuhoVlYZ95mLZqZ3DrcvBltqu67oth5sok0+5ZW0aF2F/2D1wZz\nHan9OqLsWmnbleCOgS1EUiNXUcP+Kb+DZnI2Ir3+Iuzl9dvj94tTSoZlpd0OIjXByUTyZ/Q6\ns5tIZrGpRPJXO4VIUwIXNLnaq8WyHiESIsU5qEj6UX106ud+N61S2rkZbSqlXWwd/P5lXtpt\nByIhUhREkoqgtLMzep2htOuug9+//Eu7fH4fSSNSt6PxVoiUm0g5/T6S3kUkSjudVKRjlnaZ\n/T4SIrVBJF2CSNn9PtIOIjXByUTyZ/Q6Q2nXXQe/f3mXdsl/H6k9mxXJ26LduWS6FxFJzxCp\nftZu4/a8zY5sXg9iu0ywW88TSSvzUhAVqbHcxNvlBOqGW0EZcYJviDStSfLfR0ogUvteu71F\nunlz2gXuKNJNpxXpkKVdsCKyBRQiIVIURFoWEZuSVCQbRGnn1mdHkSjtlkXEpiBSM6fXGUTq\nzOivTuYiJf99pAQiUdqlFemQpV3y30dCJNMZROqshL86mYuU/PeREohkgyjt3PrsKNIhS7vk\nv4+ESKYziNSZ0V+d7EVK/PtICUSitEsr0jFLu+1YLpK3Y9oxF+zY6Id/KD95Cf6eMj1/okgL\n53FzLvrwE0Em/zHmjXbSw4g0WtptLNIoG4s01irSmbGW0zMmz7klaUUSDUSkARBpYxBJJILS\nbrhVpDNjedO6pSnt6nzBQEQaAJE2BZGkIijtBltFOjPWcnrG5Dm3hNJOJgKRBltFOjPWcnrG\n5Dm3BJFEIoZLO3P5RTWPm+cEO3ZzOc3S/WuESqnWdZ/gede/DvFZuzP4v2puXi7CJTZPNSPU\nQrmx8XsznO6Na/U3ZAc7GXlOyW2B9t/QHZhzcF0Wd+swpd2QSG6/MNtUm+9i3LR3vdJuDu/K\naWcTKdVVJ7aZtV1W/15qN6SNibaw69x9oTGvMJG5exQP5hz9Y9Q9HZfZBKr9x6h7lzvYHddy\nfrcOI9JQaafs3mi33upCK9435e5fsJfLmwedDdTaebV3W4P3pL8/q/guHa6qdisYHDJsXWu/\ndFt5PfKMU25Jrb3Ovk6099D2sS3ePNKThSPfftXoXa5qD7vSrjems1LdMpF7NJGL6BfJ39LN\n7q5i863vmrK7r9kDvX3azmB65UpBs6O7Pc7/7nvUrb6Ut0y7fGUEaAVo06uw58Yj0wN30G66\nHREh6FC72+ET3We1qEmdoew1yW3/2GuSeS0R6pbL3KGJWMRAaaf2EOmWWKSbXaj93i9S3wFp\nhUi3oEf7i3TrJsTm3Eykw5R2wyLZfcru3ZH5VjEukkIkRJpGSpHmnCOZGZRsh5XRxvjUPKe9\nH1tlWMsjzxM3yTQL99Rg+4cLDe2NeNQZRWuSSzHJdh06Jnkiaa2jU+0P8eY60pVlI996henz\nqF6RcCi1643prFS3TOQeTeQihkVyL43avdxKi+S9/trdUnee83rVt3u2dgpvF4/RWlX7iht7\nybXHqvYAxUS1BvdnuxkXILYJ2h1Xvcsd7I5rKblnFCbS4HUk/+VdmZdrJerR6HUkV6SFvWpt\nyMjOFpm1O8Os60jdFVeqrYOv/dCe13zjOlJv4PyFZSxS86xyPw4tbAHj95qtfqWzvY4tZda9\ndtN6MbmvaiB/L7jXTioisUjjbCtSb6OdREpPWpFEAxFpCETaFkQSiaC062lEaRdCaTccgUg9\njRApBJFGIijt4o0o7RbNJgciCYNI24JIIhFj15HqHTDD0q7p2oTOeCJ1Z+7Jj19AGshSbvi8\nFKV7r640DW5mqdWs5t6KSH/aixbiZi+zj9Dc9tDz+rK4X4cp7RAp3gaRIj1ApMWl3eYijbOt\nSH1t9hLJLjWRSDqxSAOBuzSRi0CkaBtEivQAkSjtKO3iUNoJRdyUPxMi2aUjUrcHiDRY2nkP\nKe3s0intuj2gtEMkROoDkUQiKO3ibSjtIj2gtEMkRIqDSFIRRZd2fftdZwF6ZmnXJDbLV+Mr\nHoik3LO9e2m7tNP2V077u5O8tIv3bspGmA8iCYNIrgeIJN1ELOLm/aZ+eaXdepGGf41ie5Fu\niUWaV9rJi3SY0u7m7SiIFC4ekVo9QKT+iGZP8R4HUyntKO1cDyjteiOU9jYmIoWLR6RWDxCp\nX6RbYpEo7SjtegLnLwyRhkAk1wNEGiShSJwj9TWitOv2gNJuQKRmgOqZEMlfPCK1eoBI/RG3\nYPfq3eabkf7jqLZkfOSKWf8tHB7ML0+k0dkQaSmItDy/MJF0YpGOzYFGbiORBgJ3aSIYgUjb\ncaCRQ6ThCEq7LaG0W56PSLMoZkdaBCItzy9MJEq7LTnQyFHajUW4ix6d6yzK0fzofduJ6tJK\n9DqS37WRBbj5p6eqYP3Hmrvp3UbRay/t6YOzbzjyU4elv3dzxnVOx3ZpIhZxC671BQPS7MLN\nZUK3l7TnW8VIaWEuu7YTva4Nb8Xuvj0hv8ei/iw7Qj2Nuhe6DbcJs28z8vWib/HI7ox9vfP3\njgUcprRzIlVfQpHc+LWvre8mkjYXzlX7eeX23JEFNJfkzX/j+e62hsCO/v3F3AFSf21JEblz\nwC32Zhv0r9A2I18v7VYP5ehih0SyXxdwGJHsXtPMpoLn7X04qiXSTtW/av3znneCD21E01tz\nr8+k21k6tZbZxftMqg0Kj+FDJtlng++BT7F1CH4UwRg0alIw2u2yxf8u2LddmghGIFKnESJ1\nZ0Sk4YhbYpGGS7vtRYrl7ynSLbFIt8QiHaa04xwp1sjuXf4uvuAcSUc9MiZVInGO1Jc4f2E5\nlHa6GY9gwg7v2o1gDond13Tdt2W7CwiPEpNSVavRSHM7Qj2NYiIN0bMOWnzkJw9Lb+/8vUO2\na7s0EYywQxDbgsHghd92otlOsecn7wLe/NNToy4NNlBda3tbdaYPzr7hyE8dlv7ezRnXOR3b\npYlYxC14jet5vRXvjp+flo3zR4eumPXf5rf3jlPaIdKmINLi/MJE0olFOjjHGbqNRBoK3KOJ\nYAQibchxhg6RhiMo7TaF0m5xPiLNopgdaRmItDi/MJEo7TblOENHaTcWMSrSrpeNMmXBpRL/\nxqqB5S7u0s4o3b0svnHgHk3EIiaUdpuOXiGlzWYiFbL+m4l0mNIOkSaBSIg0FkFpNwFKO0q7\nsQhEmgAiIdJwBKXdJCjtKO2GIxBpEoiESGMRlHYToLSjtBuLQKQJIBIiDUdQ2k2C0o7SbjiC\ne+0mMa5Et4lCpDX5hYnEvXaT2EykYsaW0m4sApEmgEjHFunf97n66Inz5d/CCEq7SVDaHbm0\ne3x4Hz3zuSwCkSaBSEcW6aJOv/fq0d/1pC4LIyjtJkBpd+TS7qTu9vFdnRZGINIEEOnIIgWr\nNbyOlHbr8intjlzaSRyREGkSiHRkkZ7nSNe/6hHnSBtDaXfk0k5/eu/afTwWRpSzLeGd2Pc6\n0qW6jnQ6f8tcR9qfYkob8nfOL+zOBkQiP8/8wkSitIM8SSLSqAyIBIVRmEiUduTnmb/rBdmx\nvws3HoFI5OeZv6NI/07rRQqOZr1/pXFhBw/D1L8P2WkytlmKGdspayOcuEuTmsdZfVZXZEXO\nkaoHnSXFn30rpr1WdZrYLwMzFfIy5a/Obpm7NDH8KvWrhc6RVHTO+LNi5FtaOOrdZ9ZOZBwZ\nvBvgNaWM0trc1qDE94QsSrsXf5/q/BARSUVnjT8rRwEiGYNmmGQMGjSpev6W+HA/afyNQRuY\nlI1IWn+r07Xv3MZye3a455/q+c4/+8+M3+A4Do1p4f9Usy7m+y65+7/9ff8Yr7MnnCOlOSIV\nwKZHJJ34iDSJDY9IQ6F7NAn54hxpy3zOkd7gHGlthC9SinftihBpw3ftbonftZso0mbv2h1G\nJK4jTYHrSMe+jhQsROCCLEA2FCZSGTU6+e+XX1hph0jk55lfmEiUdpAniAQgwK4iSX/29/7k\nW1qQnzZ/R5HkP/t7f/LdkOSnzd9RJKHP/l6YDrAlO4ok9NnfC9MBtmRHkYQ++3thugz5lhbk\np80v7IiESOTnmb/vOZLEZ38vTAfYkj3f/pb57O+l6QAbsu91JInP/l6cLkG+pQX5afMLu7MB\nkcjPM78wkSjtIE8QCUCAwkSitCM/z3xEmkW+G5L8tPmFiURpB3mCSAACFCYSpR35eeYj0izy\n3ZDkp80vTCRKO8gTRAIQoDCRKO3IzzMfkWaR74YkP21+YSJR2kGeIBKAAIWJRGlHfp75iDSL\nfDck+WnzCxOJ0g7yBJEABChMJEo78vPMR6RZ5LshyU+bX5hIlHaQJ4gEIEBhIlHakZ9nPiLN\nIt8NSX7a/MJEorSDPEEkAAEKE4nSjvw88xFpFvluSPLT5hcmEqUd5AkiAQhQmEiUduTnmY9I\ns8h3Q5KfNr8wkSjtIE8QCUCAwkSitCM/z3xEmkW+G5L8tPmFiURpB3mCSAACFCYSpR35eeYj\n0izy3ZDkp80vTCRKO8gTRAIQoDCRKO3IzzMfkWaR74YkP21+YSJR2kGeIBKAAIWJRGlHfp75\niDSLfDck+WnzCxOJ0g7yBJEABChMJEo78vPMR6RZ5LshyU+bX5hIlHaQJ4gEIEBhIlHakZ9n\nPiLNIt8NSX7a/MJEorSDPClNJKUwCTKkLJHUq7RLqVK+pQX5afMLFClldZfvhiQ/bX5RIinv\nH0BOIBKAAIWJdEssUr6lBflp84sSiXMk8nPNL0wklfhdO4A4ZYnEdSTIlMJE4hYh8vPMR6RZ\n5LshyU+bX5hIvPUNeYJIAAIUJhKlHfl55iPSLPLdkOSnzS9MJEo7yBNEAhCgMJEo7cjPMx+R\nZpHvhiQ/bX5hIlHaQZ4gEoAAhYlEaUd+nvmINIt8NyT5afMLE4nSDvIEkQAEKEwkSjvy88xH\npFnkuyHJT5tfmEiUdpAniAQgQGEiUdqRn2c+Is0i3w1Jftr8wkSitIM8QSQAAQoTidKO/Dzz\nEWkW+W5I8tPmFyYSpR3kCSIBCFCYSJR25OeZj0izyHdDkp82vzCRKO0gTxAJQIDCRKK0Iz/P\nfESaRb4bkvy0+YWJRGkHeYJIAAIUJhKlHfl55iPSLPLdkOSnzS9MJEo7yBNEAhCgMJEo7cjP\nMx+RZpHvhiQ/bX5hIlHaQZ4gEoAAhYlEaUd+nvmINIt8NyT5afP3F+nnQ6nzdXEEpR3kyI4i\nqarhp6q4bBIBkIi9Rbqoy0Prv4v6WRSR76Gd/PfO31ukk3q8Hj/Ux6KIfAeS/PfO31skpbwf\nxCMAErG3SF9GpNMWEQCJ2FWk8/fPVf0+Hz4uw+82UNqRX1j+riLVVA9Pj0UR+Q4k+e+dv+d1\npPv95+d8rt5yuAx6NBChhk+uANJQ1p0NwfsVAPlQmEi3nTrQR76lBflp8xOI9HNSH4OXY3sj\nVLMi6UzKd0OSnzZ/13Okszr96O/qHYfPJRFqeDJAMnYU6V7fZKe+HvrvvOgWIUSCXNlRpK/X\ntaNLfSV24S1CnCORn2n+7nd/q7P3w9yISqSU79rluyHJT5u/u0i/dU239BYhriNBluxa2n2Z\ny7CPr4W3CAHkyY4iPU72aKIiByTlcXseQvnHv4L+7Xod6WL0OQ3/giz32pFfWn5ZdzYAZAoi\nAQhQmEj5HtrJf+/8VCIt/FXzfAeS/PfOL0wkgDwprLQDyJPCRMr30E7+e+cj0izIJz/OriL9\n+z5XNy6cL/+2igBIwp63CH14NwEt+sU+gFzZUaSLOv3eq0d/1xOfa0f+ofJ3FOmk7vbxfeGv\nUeQ7kOS/d/7uv48U+0EsAiARhR2RAPJk33Ok61/1iHMk8o+Wv+fb35/eu3Yfw5/93cetd8o+\nkE9+DzuKpP9dqutIp/P3yHWkDbJlIJ/8PBdWUDb55CMS+eTnlo9I5JOf28IKyiaffEQin/zc\n8hGJfPJzW1hB2eSTj0jkk59bPiKRT35uCysom3zyEYl88nPLT70yAIcAkQAEQCQAARAJQABE\nAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQABEAhAAkQAEQCQAARAJQIBkIl1O6nQZ/PD9\nDfj5sKFe/q5d+deMeJL8+5dSX3/J8h/x0J3yf8y+vkkvUolU/zGLj31DL1Xo6RHm79qVx6ke\n8ST517Tr/3eq8/+S5N/N35iIR6/tRSKR/qnTXd9PaukfsljEXX09Xi9MX0H+vl0515szTf7p\nmfQ4v/6aVZL8r+rvaF3SjP8zod7X49Gre5FIpIu6Pr/+qu89Q8/1yr4G1MvftSu/zd/eSZL/\nW+3Ij9ffV0ySrxKO/4/6bOLj0at7kUiks3od3+/qnCD7NaBe/p5d+TObM0n+l/tzpUnym6r2\nJfLu+c/XkEakePTqXiQSyXtx2puH+gzy9+zKp/qrc5Lkfyj9farK2zT5301p950g/94OakWv\n7sX7ifTzOoinEelb/eqEIilV/43FVPn65/Vuw+knUT4iifJ3OutEO1JVOCQV6fVmw1eSI0LF\nd/XO2LdGJDGSifQ4fbbydyytXm88JxXpdY7093qPN0n+z6u0e4r8g0hinFKJ9PnRzt+tK1/V\nG0N1Top8f2dJkv+hXqdnj5fIKfKbhHj06l4kEql+k+Rv73ft/j4+/9r5u3XF/+PzKfL9t/+T\n5Ku0+cG7du3o1b1IJNJ39ep8rd7G2Y+r+uzm79YVX6QU+U3S32sQkuTXr/rVdaw04199i0ev\n7kUikZLc2fBnPUp3Z0OzOZPkP8+OHq9zlN9E+Rf1upftkurOikakY93Z8KyXX3yOzyjIlzsi\n+Pn7dqXZnEnyv6Oh++V/Js035z/x6LW9SCVSfSPwvpleaeXn79uVZnOmyb9+RkJ3zI+G7pVv\nRIpHr+1FKpEADgUiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgE\nIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiAQiASAAC\nIBKAAIgEIAAiAQiASAACIBKAAIgEIAAiFcg1dQegAyKVxwcbLT/YJuWh2Gj5wTYpD0TKELZJ\npij1d1an7+rxz4f6+PGmVH+YXanHhzrXU0/NVPfw+qnUJ+dS+4FImaLU6SXMy6TPSp1PN6UR\n6azUReuzm+oe/lSP1E/f0kEaRMqUpxCPpw8fWv+q013fT+rXTbIzPA89r2+PT3UNHp7U/dXw\nI1n33w5EyhSl/unamfPLjJclbpKb4Tn1pdPjVeR5D5WirNsXRMoUY4t9b8G9xeAm6abQM8We\nfXh5Fn73+/69fl8QKVPWiaS/X2dYp7/du/22IFKmTBep1cRwvXxwjrQfiJQpzhZzjnTuTtJm\navuhPyPsAUOdKc6WyLt2f3aGeqr+eWnmPfx4zc27djuCSJniHXZa15GelqiTO9zUU6vTIffw\ntz5Z+peg428KImWKX7/9nPw7G/S/D1+k1+0M6uuv9bC6swGP9gORAARAJAABEAlAAEQCEACR\nAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlA\nAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAAEQCEACRAARAJAABEAlAgP/jAltbgrWv\niQAAAABJRU5ErkJggg==",
      "text/plain": [
       "Plot with title \"Out-Of-Bag error\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# OOB error\n",
    "plot(rf_ind_med$err.rate[,1],type = \"b\",xlab = \"no trees\",ylab = \"OOB error\", main = 'Out-Of-Bag error')\n",
    "grid()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "It doesn't seem to make much sense to choose the size of the tree to optimize the tree, more when the best result is for 0 trees.\n",
    "\n",
    "Let's see if we can see the polymorphisms that this particular model considers most important."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 70,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAACAVBMVEUAAAATK0MTLEQULEQU\nLEUULUUULUYVLkcVL0gVMEkWMEoWMUsXMk0XM04XNE8YNVAYNlEZNlIZN1QaOFUaOVYaOlcb\nO1gbO1kcPFocPVsdPlwdP14eQF8eQWAeQmEfQmMfQ2MfQ2QgRGUgRWYhRmchRmghR2ghR2ki\nSGoiSmwjSm0jS24kTG8kTHAkTXEkTnIlTnIlT3MlT3QmUHUmUXYnUngnU3koVHsoVXwpVn0p\nV34qWH8qWYAqWYIrWoMrW4QsXIUsXYYtXoctX4kuYIouYYwvYo0vY44wZI8wZZAwZZIxZpMx\nZ5QyaJUyaZYzMzMzapgza5k0bJs0bZw1bp01b542cKA2caE3cqI3c6M3c6Q4dKY5dqg5d6k5\neKo6eas6eaw7eq47e688fLA8fbE9frM9f7Q+gLU+gbc/grg/g7pAhLtAhbxBhr1Bh79CiMBC\nicFDisJDi8RDjMVEjcdFjshFj8lGkMtGkcxHks1Hk89IlNBIldFIltJJl9RJmNVKmddLmthL\nm9pMnNtMndxNTU1Nnt1Nn99NoOBOoeFOoeJOouNPo+RPpOVQpedRpuhRp+pSqOtSqexSqe1T\nqu5Tq+9UrPBUrfJVrvNVr/RWsPZWsfdoaGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh\n4eHp6enr6+vw8PD///+jpmOuAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2dBbvr\nSnRYlbRNMU05ZWZu06bMjK+UtE2ZmdOmnNKUmeHwPahfWY1gNKiR5bFm63it77u2bG3PbO3t\nZYH9zmtaADibpnYCAJ8BRAIoACIBFACRAAqASAAFQCSAAiASQAEQCaAAiARQAEQCKEBFkVSj\n9p+0SW7wx/3y+qujGbl9Sq1vp6qdNmxqzaE7UC/r565Hz7vPmm7TsOagbbwEjeE2sb7dUq9P\n2oF6Wd81D83d7rPm2giGqSAvqknsk9pLiHRQquX+0dy0N83H3tN+0jZeAlOQl8QuyQk6fdgC\nYwmiWu6P3cfcU/M4Pnq+bZr7D3dxrKu+a5qPm3739XDTHWi8OK/RRvaYhTn8pQu5fTbh6nEc\nzQw8T9cfw5h1r/fdGdz96xj2oJqb/Y9CazO/r72ijeUdFjvoQFtRJNVoB8bLDQ99EZW76LTu\nrmke9It6np3Ah/FU64vRcgr/MoQ/zOH3fhvNKE4bn5t5ou6NME96TSyI1JfXiEQH2noiPfef\nV/dDcV4b9dx+3Op6W4tO6271Puqxb9Rjf6QxB76Nn4O3zds4+Bj+2u+8Xm/1JK9N86WbVXlt\nDKbrb7vgx07zrsVv+hn10n7cLRzefFKMSM9628NuzBcb6EA9ke56hQadOp/02Wx/YGAtOq3r\nD+fGc6p+hRU4jDUfV0zhD0P4h57kYThh/lBuG4Ppxg/J/iO0W9u3dxj9yAfwm5i2uHvvP8e6\nYV21owO1RJoO6lRfaeuig7XotG568vX58bZ/ZAW+9jrOxxVT+I25fjuH37ltDKYbxx4+Wd88\nn6+L+fL3QxvrhiUSHagl0qOpsK69VaJw0RbpSU1tccp617zaxxXzK+c2TuG3/uG+N507dnBi\nfE2MtVN3z8OjdroLRaIDtURSpsLWZYU2umiV8qk79H748haIpD8QreOKWOWn5eC82Ys4aBsv\ngbvFyyLRgTrJPZuvYvujazXv3tXSod2NdXCu7O+gus9C67hiClfNq//Uh9eYYLqDHlhcglNE\nogN1krtrxu+C2het1P14NqmcxaYv8XPwmdQ/Ywfqpx6s44op/L7pf7z1qi/33A0tfRpGMwM7\n05mXPgwvnE517TGvCF+kaDemoKvvQJXk7IMAfbL53KjX8RKotXjb3H24l0tv9BWe4Rk7UK9R\n1pDz8UZ/Qb2/6PTUqC/D1xrOwNYo/ZXW4aXdwePDcPH19SBtvATuFofdGEUa7bn2DlRJ7tH6\nbu1ZHxAMX8r13xPMiy/DFSP3HGngxQnsR7GOK6yPyfnrwOE7vUe9yhrYGuUm+XWgM+b14G5x\n2I3xGGx8dO0dqJKcUv6Dp5tGDfsWa/HlxvtJib5qp+5fxjMs6zX6yHs+rphL/qZ/WjL+4vKL\n+YGKNbA1yuvNfHjh/UDFGfNq8LY46EZ/N1StpQOik1vPk31cARW49g58DpG6o/CXfBRcjqvv\nwGcQyRyFQyXowKcQ6cYchUMd6MCnEAmgOogEUABEAigAIgEUAJEACoBIAAVAJIACIBJAARAJ\noABVRPoK1lCjNfToNEy96ojkPHpf9ZqSURWm3BBVWSTn0Yr0y4TsN1OREEQ6QBQiyQ9BpANE\nIZL8EEQ6QBQiyQ9BpANEIZL8EEQ6QBQiyQ9BpANEIZL8EEQ6QBQiyQ8RJdL/gwmxItUujCAS\nVUIkSSCSfBJVQiRJIJJ8ElVCJEkgknwSVUIkSSCSfBJVQiRJIJJ8ElVCJEkgknwSVUIkSSCS\nfBJVQiRJIJJ8ElVCJEkgknwSVUIkSSCSfBJVQiRJIJJ8ElVCJEkgknwSVUIkSSCSfBJVQiRJ\nIJJ8ElVCJEkgknwSVUIkSSCSfBJVQiRJIJJ8ElVCJEkgknwSVUIkSSCSfBJVQiRJIJJ8ElVC\nJEkgknwSVUIkSSCSfBJVQiRJIJJ8ElVCJEkgknwSVdookuoYl7zH/RNKDU9M9/Z6mpSmqEj0\n6CI4dTlXJDXfKPdxOzfD6pqyH9OkJCVFokeXwalLMZFU6zVJ2b1p5zCatIaLiESPiuLUZYNI\nqp2OA5xOeU1SbbRJ7gJNSnGmSPRoB5y6bBEp+NRablLQo3Gp/39Bv9vUrowgnLpsEIkeXZ5E\nj07YIzkVd5sx3ag23SROZPOcvUeiRxfHqctWkazT1FiTlP88TTqNEiLRo8vi1GWzSHObnCZM\nTTKXUhd7RJNSFBGJHl0Upy5niOQfQCj/KeWEh4fhNClNIZHo0QVp41XacI5kHWSvbpLTI5qU\notg5Ej26GIkqnXyOZL4EVyp8PtUkK54mLVDoHIkeXRCnLvzWTib81k4+iSohkiQQST6JKiGS\nJBBJPokqIZIkEEk+iSohkiQQST6JKiGSJBBJPokqIZIkEEk+iSohkiQQST6JKiGSJBBJPokq\nIZIkEEk+iSohkiQQST6JKiGSJBBJPokqIZIkEEk+iSohkiQQST6JKiGSJBBJPokqIZIkEEk+\niSohkiQQST6JKiGSJBBJPokqIZIkEEk+iSohkiQQST6JKiGSJBBJPokqIZIkEEk+iSoJEOk9\nEeVSMqrClBuiJIm0Iv0yIfvNVCQEkQ4QhUjyQxDpAFGIJD8EkQ4QhUjyQxDpAFGIJD8EkQ4Q\nhUjyQxDpAFGIJD9ElEj/7eoxpRAr0r+9XlZWCZEEYEqBSPJYWSVEEoApBSLJY2WVEEkAphSI\nJI+VVUIkAZhSIJI8VlYJkQRgSoFI8lhZJUQSgCkFIsljZZUQSQCmFIgkj5VVQiQBmFIgkjxW\nVgmRBGBKgUjyWFklRBKAKQUiyWNllRBJAKYUiCSPlVVCJAGYUiCSPFZWCZEEYEqBSPJYWSVE\nEoApBSLJY2WVEEkAphSIJI+VVUIkAZhSIJI8VlYJkQRgSoFI8lhZJUQSgCkFIsljZZUQSQCm\nFIgkj5VVQiQBmFIgkjxWVgmRBGBKgUjyWFklRBKAKQUiyWNllRBJAKYUiCSPlVUqLJLSjIv2\n3fy0O72m9tu4PqYUJUVScy/8HihnfdCyyOy1380VWSzy5USal5R1p9x1iORiSlF8j6RiPbA+\n01TieUQyLNb38iKpqUGIlMeUorRI0R4ou0vx54PZa7+bK7JY4IIiqf6DbDpKsDrkHEa0LSKl\nMaU4UySnF1bJ/R44IrWR54PZa7+bK7JY8ZIi2Z9q5rA8LdJXmneb2m/j+rxH2SCSs4eZxUiJ\n5BziWY/DHtV+N1ck3pygRwX2SJGOWXsnLjbkMaU4e4/UOruVQCSVEImLDWkWK15aJOc8VTkN\n5dAujylFCZGsXijveZXaIyFSmsWKFxfJbZ/yL70i0iKmFEVECnY8qUO4hHCx2Wu/myuyWPEL\niORdSmWPdAKmFIVE8gueOEdK7Zgis9d+N1dkseIXOUdyz40QaT2mFMXOkU4Ryd9fxWav/W6u\nyGLFL3CONF6ti1965WLDIqYUhc6R4od2Cz868V8QzF773VyRxYrzWztRmFLwWzt5rKwSIgnA\nlAKR5LGySogkAFMKRJLHyiohkgBMKRBJHiurhEgCMKVAJHmsrBIiCcCUApHksbJKiCQAUwpE\nksfKKiGSAEwpEEkeK6uESAIwpUAkeaysEiIJwJQCkeSxskqIJABTCkSSx8oqIZIATCkQSR4r\nq4RIAjClQCR5rKwSIgnAlAKR5LGySogkAFMKRJLHyiohkgBMKRBJHiurhEgCMKVAJHmsrBIi\nCcCUApHksbJKiCQAUwpEksfKKiGSAEwpEEkeK6uESAIwpUAkeaysEiIJwJQCkeSxskoCRHpP\nRLmUjKow5YYoSSKtSL9MyH4zFQlBpANEIZL8EEQ6QBQiyQ9BpANEIZL8EEQ6QBQiyQ9BpANE\nIZL8EEQ6QBQiyQ8RJdK3HZ/8Jh9cpG+/AsIaINLe5DcZkcQT1gCR9ia/yYgknrAGiLQ3+U1G\nJPGENUCkvclvMiKJJ6wBIu1NfpMRSTxhDRBpb/KbjEjiCWuASHuT32REEk9YA0Tam/wmI5J4\nwhog0t7kNxmRxBPWAJH2Jr/JiCSesAaItDf5TUYk8YQ1QKS9yW8yIoknrAEi7U1+kxFJPGEN\nEGlv8puMSOIJa4BIe5PfZEQST1gDRNqb/CYjknjCGiDS3uQ3GZHEE9YAkfYmv8mIJJ6wBoi0\nN/lNRiTxhDVApL3JbzIiiSesASLtTX6TEUk8YQ0QaW/ym4xI4glrgEh7k99kRBJPWANE2pv8\nJiOSeMIaXF4k1TMsmifa+bFZ7z0fTK+pbUEB8hUTJJIKmuL3MJy99pt8D8JK7bRHGpWZF+fH\n0/ro84i0LupiIs1LyrpT7jpE2kuksfBuE9TcCpV4vkWkdVEXF0nFexibvfabfA/CSl1EJNV/\ncFm7f+dQbn7CEamNPN8i0rqociI5vbP7kuhhOHvtN/kehHW7jEjOHmYueUok5xDPevyV5t2m\ntgUFeL8EBUWye2dOkdIihT2q/Sbfg/N6dMIeqXV2K4FIKiESFxs0lfdIbdgwa+/ExQZNWLcL\nHdoNxXYfW01I7ZEQSVNfJOd6j3Lk4tBOE9btgiIFO57UIVxCOH96TW0LCpAvnwCR3I9B5X+F\ngUgBFxXJr3jiHCm1Y/Km19S2oAD58okQyftKgj2SQ1i3y4kUqfiySP7+yp9eU9uCAuTLV1+k\nyLkRItmEdbvoOVL80G7hy3L/BS0irYsqf440Xq2Lf4XBxYYAfmu3N/lNFvSF7DoQCZH2J7/J\niCSesAaItDf5TUYk8YQ1QKS9yW8yIoknrAEi7U1+kxFJPGENEGlv8puMSOIJa4BIe5PfZEQS\nT1gDRNqb/CYjknjCGiDS3uQ3GZHEE9YAkfYmv8mIJJ6wBoi0N/lNRiTxhDVApL3JbzIiiSes\nASLtTX6TEUk8YQ0QaW/ym4xI4glrgEh7k99kRBJPWANE2pv8JiOSeMIaINLe5DcZkcQT1gCR\n9ia/yYgknrAGiLQ3+U1GJPGENUCkvclvMiKJJ6wBIu1NfpMRSTxhDRBpb/KbjEjiCWtwMJE2\nvMfOjKow5cFFWpF+mZD9ZioSgkgHiEIk+SGIdIAoRJIfgkgHiEIk+SGIdIAoRJIfgkgHiEIk\n+SGiRPqZ4hgTQyTDN4vHzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43\ne0QSwZgYIhlqa5LHzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43e0QS\nwZgYIhlqa5LHzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43e0QSwZgY\nIhlqa5LHzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43e0QSwZgYIhlq\na5LHzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43e0QSwZgYIhlqa5LH\nzR6RRDAmhkiG2prkcbNHJBGMiSGSobYmedzsEUkEY2KIZKitSR43e0QSwZgYIhlqa5LHzf4w\nIqkO614pa8F+rJdb975FpHVR54uknIW5J+Hz9n1s9tqa5FkoZBwRIqnxRpkH8cf6dvIJkU6M\nOlskU3Ll9MV7PtpLRFoXcgmR7KbMd8q796bX1NYmZEzs4CKpuRPeB5zzPCKdEbJBJNV/ftm7\n/zUiKe/en15TW5uQ1XW8aNTpIvk9MgdypjfLzyPSqSFbRPJF8URS7o3bLEukrzTvNrW1CXkX\nwQaRvB65wiQFcz8coz2qrUme2j06YY/Uup9esabFHtv/RtgjrYnaskdqnToHPYj2xmoOFxtO\nDNkqkn3JYIVIicNvRFoVtVGk1t2/eNcZwufD89rI7LU1ybNQyDh1RZrbpCI3wZPjZXBlXw5v\nEWld1FaR3B65tVfh88GhYGz22prkWShknNoirTue88PbhU+72tqEjIkdVqRAjOi5U/C8c9kB\nkS4pkns8gEgXjTrnHCkhjH8EFx7jJWavrUmehULGqX2OFP0lw9yi4MtzRNoatf0cyf9RyXyg\nvfD84uF3bU3yLBQyjogvZM8EkdZE8Vu7U3CzRyQRjIkhkqG2Jnnc7BFJBGNiiGSorUkeN3tE\nEsGYGCIZamuSx80ekUQwJoZIhtqa5HGzRyQRjIkhkqG2Jnnc7BFJBGNiiGSorUkeN3tEEsGY\nGCIZamuSx80ekUQwJoZIhtqa5HGzRyQRjIkhkqG2Jnnc7BFJBGNiiGSorUkeN3tEEsGYGCIZ\namuSx80ekUQwJoZIhtqa5HGzRyQRjIkhkqG2Jnnc7BFJBGNiiGSorUkeN3tEEsGYGCIZamuS\nx80ekUQwJoZIhtqa5HGzRyQRjIkhkqG2Jnnc7BFJBGNiiGSorUkeN3tEEsGYGCIZamuSx80e\nkUQwJoZIhtqa5HGzRyQRjIkhkqG2Jnnc7K9SpP3fr7UVWRclSaS93pg7zoRI50fVVmRdFCLJ\nD0GkA0QhkvwQRDpAFCLJD0GkA0QhkvwQRDpAFCLJD0GkA0QhkvwQUSL9JDm4aSKS4efIJZo9\nItXFTRORDLVtWSCaPSLVxU0TkQy1bVkgmj0i1cVNE5EMtW1ZIJo9ItXFTRORDLVtWSCaPSLV\nxU0TkQy1bVkgmj0i1cVNE5EMtW1ZIJo9ItXFTRORDLVtWSCaPSLVxU0TkQy1bVkgmj0i1cVN\nE5EMtW1ZIJo9ItXFTRORDLVtWSCaPSLVxU0TkQy1bVkgmj0i1cVNE5EMtW1ZIJo9ItXFTROR\nDLVtWSCaPSLVxU0TkQy1bVkgmj0i1cVNE5EMtW1ZIJo9ItXFTRORDLVtWSCaPSLVxU0TkQy1\nbVkgmj0i1cVNE5EMtW1ZIJo9ItXFTRORDLVtWSCaPSLVxU0TkQy1bVkgmj0i1cVNE5EMtW1Z\nIJo9ItXFTRORDLVtWSCaPSLVxU0TkQy1bVkgmv1hRFIduXtl3evF2PSa2vZYuBt5eJGGks89\nmB9PT6vI49jstW1ZIF/IOCJEUuNN6t5YMzdGIdKJUWeL5OhjHiv7ORU+js5e25YFopv+eUVS\n7JFOjTpXpKnkyn1si6Mij6Oz17Zlgei2CxZJ9R9o02GAebKdBUo99p5rEWld1OkiOT1qvZ1N\n5DEinRuyRSS76Lpji4/9U6RZpK807za17bF4l8QGkTwxnNPVeVVENHffFfaoti0LVOrOwKY9\nklXpqWNqXDYdVL5gVtw8FnukNVFb9kitU+eoKNYhxXwk7p1NBbPXtmWBfCHj1Du062+DDqjo\nOZJ77zcYkdZEbRTJuqyj/DXuzXwVr0WkbSELIj3dNU17+xq8xN8ZRa/8pERavLRa2x6LU+t4\n0ai0SKt61GZFWjp7QqRVIUmRPm6ajrZpXvyXOE2JHbot3bsDINKqqJRIK3vUhs5ERYqKhUjr\nQpIi3TcPXYfaL82t/xKn3mvu7X9ti0gnR6VEWtkje1FF1yPS2SFJkboGmX8u5nhabblvEenk\nqJRIa3uUfTw9qyLXGhBpVcgGkUqCSGuiThepJIhU4tDuobnPT7MdRFoTlTm027VHtW1ZIJp9\ndZE+VNOj3vLTbAeR1kQlLzZU6FFtWxaIZl9dpLZ9vGmam4eP/CxngEhrotKXv/fvUW1bFohm\nL0CkPUCkNVH890iriGaPSHVx00QkQ21bFohmX1ekxiY/zXYQaU1UVKRKPaptywLR7BGpLm6a\niGSobcsC0ew5tKuLm6ZEkXYDkRBpO26aiGSobcsC0ezri/TxoC+tPnL5u5UrUoUe1bZlgWj2\n1UV64wvZGaEi1ehRbVsWiGZfXaTb5rZrz9ttc5efZjuItCYqJVKNHtW2ZYFo9tVFGq8EfXDV\nrhUrUo0e1bZlgWj21UW6a4Yjb/ZIrViRavSoti0LRLOvLlJ7Nxw2XLRHiLQqKnmxoUKPatuy\nQDR7vpCti5umRJH4QtYnmj0i1cVNE5EMtW1ZIJp9/UO7XUCkNVF8IbuKaPaIVBc3TUQy1LZl\ngWj29UV64NDOIFWkCj2qbcsC0eyri/RQ4fi7tj0WbppCRarRo9q2LBDNvrpIqnm9bd4+bsM/\nPlgSt0n7v19rK7IuKiWS0B6VCdlvpov/suGxeW4/wj8+WBJEWhO18MsGiT1CJJuuSc/N075/\nMw2R4lELIknsESLZ3DVf3pqb9kVYkwpH1VZkXVT6J0Iie4RINro7t/o8dsc/PohI8aiUSEJ7\nhEgOzzf6T3k2D/lZzgCR1kQlL3/L7BEi7Q8irYmS9IUsIsURJdI3VGBVmohk+LGiyGdfV6T+\n/161/5d9iBSPSvxotUqPaqvjks8ekRDJgEgp8tlzaIdIBg7tUuSzry7S7UUvqYbTaxApHpX8\n4ycVelRbHZd89tVFUrvsoRBpTVT6t3arxjoTRDpLpNfbh4v+tTR/eg0ixaNSItXoUW11XPLZ\nVxeJiw0WQkXiYkM+e0RCJAMipchnX12kfUCkNVFctUuRzx6REMmASCny2dcXqcLfA0CkeJSk\nv9lQWx2XfPbVRarx9wAQKR4l6W821FbHJZ99dZFq/D0ARIpHSfqbDbXVcclnX12kGn8PAJHi\nUZL+ZkNtdVzy2UsQafe/B4BI8ShJf7Ohtjou+eyri1Tj7wEgUjxK0t9sqK2OSz776iLV+HsA\niBSPkvQ3G2qr45LPvrpINf4eACLFoyT9zYba6rjks68u0mt+9AIg0pqo5I9WVw11Loh03sWG\nm+f8+GeDSGuikhcbKvSotjou+eyri3TTNOrxIz/FeSDSmqiUSDV6VFsdl3z21UVq3x5U09xd\n9Ks+RFoXlTxHqtCj2uq45LOvL1LHy0PT3HzJT7MdRFoTtfSj1b17VFsdl3z2IkTqPvL4rZ1G\nsEh796i2Oi757EWI9HLffdo9LQ+gOsY7s9BG7rul1n3sTq9BpHjU4h5pfY8W75V1307Nisxe\nWx2XEwt5wZDMOdJ97vhbmZvhXiXudZeCeERaF7V8jrS6R8neKDtwWEKkE0OWrtrdPOWvCNli\nqHaxWYi0NWrhqt0pPVovkmKPdGpI+nuku9R3FKr/vLIP0XyR2kizAoe86TWIFI9Kfo+0rkfR\nnqQee88Fs9dWxyVbx/oipT/o5ua4HRifUs76UCQj4Fead5saIr0fgJRIK3sU9sR77J8izSKF\nPaqtjkulhkTY8DcbvD2Le35qOpS42OB8RLJHWhd1+t9scD/nxpqrcdnvUeyQjz3SiSFbRXJO\nR/1Dt+jFBs6RNkdtFGnq0XwupFSiN/a9fwiOSBcVyVYpYgsiFYzaKlLiMDwnklL2CTAirQo5\nQySvGYgkUKRoL3L37gCItCrkrHMkRNon6pxzpJUC2f/aFpFODjnjHMm7mDB9lPHLhuJR28+R\n8r9oiN23iHRyCH9pdQ2HE6kkiIRIiFQAREIkRCoAIiESIhUAkRAJkQqASIiESAVAJERCpAIg\nEiIhUgEQCZEQqQCIhEiIVABEQiREKgAiIRIiFQCREAmRCoBIiIRIBUAkREKkAiASIiFSARAJ\nkRCpAIiESIhUAERCJEQqACIhEiIVAJEQCZEKgEiIhEgFQKTDibT/+7W2IuuiJIm01xtzx5kQ\n6fyo2oqsi0Ik+SGIdIAoRJIfgkgHiEIk+SGIdIAoRJIfgkgHiEIk+SGiRPr6vamuyLooSSJ9\nowSmZBApnF6DSPEoRPKYkkGkcHoNIsWjEMljSgaRwuk1iBSPQiSPKRlECqfXIFI8CpE8pmQQ\nKZxeg0jxKETymJJBpHB6DSLFoxDJY0oGkcLpNYgUj0IkjykZRAqn1yBSPAqRPKZkECmcXoNI\n8ShE8piSQaRweg0ixaMQyWNKBpHC6TWIFI9CJI8pGUQKp9cgUjwKkTymZBApnF6DSPEoRPKY\nkkGkcHoNIsWjEMljSgaRwuk1iBSPQiSPKRlECqfXIFI8CpE8pmQQKZxeg0jxKETymJJBpHB6\nDSLFoxDJY0oGkcLpNYgUj0IkjykZRAqn1yBSPAqRPKZkECmcXoNI8ShE8piSQaRweg0ixaMQ\nyWNKBpHC6TWIFI9CJI8pGUQKp9cgUjwKkTymZD6XSGq41Yx3anzcWvd2XGx6DSLFo7aL5Ndc\nOSv8Htm9m5uESPuINJZc2U9NjZrvpzjlxiLSmqjNIvk1N3oMvozPm/VmrTMIIu0ikmoDkRJN\nQqStUVtF8ms+9WpcQKSCIRtEUu10DDc9bt3aK3/BVw2RTotaL1K0N9aSuVWt54tKeYRIq0K2\niGR/mpnFdPNSIn2lebfZXaT3Y3CCSLHeBD0wIlmnQqqNnSKFPartUE+lPiyxaY/kdCg4ZPN2\nSIkT3bFRzsi7i1R9X7Mu6pQ9Uhv2xu/BJJtlXfycKTZ7bYd6olWKI3mPNNxGvIiKtPA8Iq2L\nOlGkTG9UsLB0j0jrQjaLNLfLa1ZWMPsQHJHWRJ0qUrI3rTlyU/6eB5HOCzlDJPccyb2JrGyD\n3raItC7qdJESvXE/5fxDOQ7tzgg56xzJa1bMl6CJ7iUhRFoTteUcaaNI9r/o7LUd6olWKY50\nkdK/WJgfOr9wmE9r09+aI1I86vRzpNSvSdzj7tgvG9z4cPbaDvVEqxRHsEglQaQ1UfzWzmNK\nBpHC6TWIFI9CJI8pGUQKp9cgUjwKkTymZBApnF6DSPEoRPKYkkGkcHoNIsWjEMljSgaRwuk1\niBSPQiSPKRlECqfXIFI8CpE8pmQQKZxeg0jxKETymJJBpHB6DSLFoxDJY0oGkcLpNYgUj0Ik\njykZRAqn1yBSPAqRPKZkECmcXoNI8ShE8piSQaRweg0ixaMQyWNKBpHC6TWIFI9CJI8pGUQK\np9cgUjwKkTymZBApnF6DSPEoRPKYkkGkcHoNIsWjEMljSgaRwuk1iBSPQiSPKRlECqfXIFI8\nCpE8pmQQKZxeg0jxKETymJJBpHB6DSLFoxDJY0oGkcLpNYgUj0IkjykZRAqn1+z/fq2tyLoo\nSSLt9t6VZAki7ToYIpUMkWQJIu06GCKVDJFkCSLtOlmlxKMAABX9SURBVBgilQyRZAki7ToY\nIpUMkWQJIu06GCKVDJFkCSLtOhgilQyRZMnRRPquO2FNiUhZ3Nm/bn/SqSFSOL0GkeJRiJQA\nkcLpNYgUj0KkBIgUTq9BpHgUIiVApHB6DSLFoxApASKF02sQKR6FSAkQKZxeg0jxKERKgEjh\n9BpEikchUgJECqfXIFI8CpESIFI4vQaR4lGIlACRwuk1iBSPQqQEiBROr0GkeBQiJUCkcHoN\nIsWjECkBIoXTaxApHoVICRApnF6DSPEoREqASOH0GkSKRyFSAkQKp9cgUjwKkRIgUji9BpHi\nUYiUAJHC6TWIFI9CpASIFE6vQaR4FCIlQKRweg0ixaMQKQEihdNrECkehUgJECmcXoNI8ShE\nSoBI4fQaRIpHIVKCzyWSGm47Trn3p9cgUjzqfJHK9QiR4pwv0lj78WbtfTC9BpHiUWeLVLBH\niBTnbJFUi0iXjjpXpJI9QqQ4G0RS/QfcvPtfbFIbez42vQaR4lGnixTtkbOU6pEfh0jrQraI\npGtsNeFEkUxzv9K82+wl0vvB2CBSrEfOUrRH1rmRSvSogkiVqn4am/ZITmfcE9mYSM7zynkx\ne6Q1UVv2SG2kR0YU5Yk2Plbu4+jsFURaWaW6IVtFar3PrqU9UkqwFpHWRW0Uye+Rs7Rw1OC9\nApEuKtLcppxI0fXB9BpEikdtFcnrkbsGkYqGnCHSynMkNwiRdhVpVY8Wz28RaV3IWedIa0Ty\ndluItPM5EiLtE3LGOZJ72JD4dlwpa8F9nTu9BpHiUdvPkVb1iF82FAjht3ZrOJxIJUEkREKk\nAiASIiFSARAJkRCpAIiESIhUAERCJEQqACIhEiIVAJEQCZEKgEiIhEgFQCREQqQCIBIiIVIB\nEAmREKkAiIRIiFQAREIkRCoAIiESIhUAkRAJkQqASIiESAVAJERCpAIgEiIhUgEQCZEQqQCI\nhEiIVABEQiREKgAiHU6k/d+vtRVZFyVJpN3eu5IsQaRdB0OkkiGSLEGkXQdDpJIhkixBpF0H\nQ6SSIZIsQaRdB0OkkiGSLEGkXQdDpJIhkixBpF0HQ6SSIZIsOZpIX7sP9pSIlMWd/bvszVJq\niBROr0GkeBQiJUCkcHoNIsWjECkBIoXTaxApHoVICRApnF6DSPEoREqASOH0GkSKRyFSAkQK\np9cgUjwKkRIgUji9BpHiUYiUAJHC6TWIFI9CpASIFE6vQaR4FCIlQKRweg0ixaMQKQEihdNr\nECkehUgJECmcXoNI8ShESoBI4fQaRIpHIVICRAqn1yBSPAqREiBSOL0GkeJRiJQAkcLpNYgU\nj0KkBIgUTq9BpHgUIiVApHB6DSLFoxApASKF02sQKR6FSAkQKZxeg0jxKERKgEjh9BpEikch\nUgJECqfXIFI8CpESIFI4vQaR4lGIlACRwuk1iBSPQqQEn0kk1WHf68Wl582dN70GkeJRBUSy\ne6GUtdCG92Z9bHZEinOuSGq8UeZBOzQj8by586fXIFI86nyRnJ60473fI399dHZEilNeJNXG\nRVLOXTC9BpHiUWeL5PZkulsSyWoSIl1IJNV/vtl7f7sJympCfBmRTo06XSS3R6qNitRa6/w9\nESKdGLJFpKXDhFAet5nWq77SvNvsJNL70dggktOjUKTZk7hI6R7tLlKlmp/Kpj2S04m5Scpu\nWDuduHqNZI90etSWPVLrupESyX3eHGWke7S7SEubefA90nCr3Cd0D5Qn2fxplzj8RqRVURtF\napWlSLtGpHB9MDsixdks0qySbZRyLp1aIlnPI9KpUVtFas2ZklLKFsbxKCKS3SJEWhVyhkjh\nR5xl1sKVIEQ6NWq7SNGeRHc/cdHC2REpzlnnSP6JDyJdJuqcc6QlkbzeIdIZIWecI8W/JZ8C\n+GVDuajt50jxnliro79wQKTTQ/it3RoOJ1JJEAmREKkAiIRIiFQAREIkRCoAIiESIhUAkRAJ\nkQqASIiESAVAJERCpAIgEiIhUgEQCZEQqQCIhEiIVABEQiREKgAiIRIiFQCREAmRCoBIiIRI\nBUAkREKkAiASIiFSARAJkRCpAIiESIhUAERCJEQqACIhEiIVAJEQCZEKgEiHE2n/92ttRdZF\nSRJpt/euJEsQadfBEKlkiCRLEGnXwRCpZIgkSxBp18EQqWSIJEsQadfBEKlkiCRLEGnXwRCp\nZIgkS44m0tfsgjMlImWp0aN4swIQKZxeU6E3iJQFkRAp3xtEyoJIiJTvDSJlQSREyvcGkbIg\nEiLle4NIWRAJkfK9QaQsiIRI+d4gUhZEQqR8bxApCyIhUr43iJQFkRAp3xtEyoJIiJTvDSJl\nQSREyvcGkbIgEiLle4NIWRAJkfK9QaQsiIRI+d4gUhZEQqR8bxApCyIhUr43iJQFkRAp3xtE\nyoJIiJTvDSJlQSREyvcGkbIgEiLle4NIWRAJkfK9QaQsiIRI+d4gUhZEQqR8bxApCyJdWCQ1\n3HbY9/7zqcf+9JoKvbkKkcIetWrp+fo9ijcr4FOINPZgvLEeOM+nHgfTayr05hpECns0NCH1\nvIAexZsV8BlEUm1cJO/51ONgek2F3lynSKqNi6Scu+js+/Qo3qyAY4qk+g+q2CGash+4z7et\nJ1L9wwZnyk8qkt8r/8OuDZ53l2v3KN6sgIOKZH+KtYFIccHatEhfad5t9unN++HYIJLXq4xI\nyhx/ez2s1aPjNeukPVLrfFTZvbA6Z3rBxYZSUVv2SK1b6Kk9Ss3LU4+UJZeQHsWbFXDQPdJw\nq9zHrdWAyJ7KWcWh3baojSLZ1wzG6zzKOWcdF9zTo9ZZHcy+T4/izQo4skhze5T9PCIJFCns\n1Xgc517vVuHztXsUb1bAsUXyD+Hm2wVxEOmMqO0iJRrhHkVEdkW1exRvVsCBRQqEUP5KRCoe\ndc45kn/ig0iXCdlwjuQcLpjDAX7ZIE6k1mqN16O5eW3k+fo9ijdruUp1Q/it3RoOJ1JJEAmR\n8r1BpCyIhEj53iBSFkRCpHxvECkLIiFSvjeIlAWRECnfG0TKgkiIlO8NImVBJETK9waRsiAS\nIuV7g0hZEAmR8r1BpCyIhEj53iBSFkRCpHxvECkLIiFSvjeIlAWRECnfG0TKgkiIlO8NImVB\nJETK9waRsiASIuV7g0hZEAmR8r1BpCyIhEj53iBSFkRCpHxvECkLIiFSvjeIlAWRECnfG0TK\ngkiHE2n/92ttRdZFSRJpt/euJEsQadfBEKlkiCRLEGnXwRCpZIgkSxBp18EQqWSIJEsQadfB\nEKlkiCRLEGnXwRCpZIgkSxBp18EQqWSIJEsQadfBEKlkiCRLEGnXwRCpZIgkSxBp18EQqWSI\nJEsOIBKsoUZr6NFpmHpVEcml5Bum6JtPbGL7Uyb9QkUQlcwEIu0zGCIVG0VWMhOItM9giFRs\nFFnJTAgQCeD4IBJAARAJoACIBFAARAIoACIBFKC6SKpD4lj9eMUGKpzYLthJT8unb0hqlDOH\nUecmo+xRCjSntkjK3Mgaqx+q1FilE9sFO+lp+fQNiY2yoRTOxP5w20bZnkwURFoYDpE+t0gl\n+/KZRJoHLDRQUZGORnmRpic2lCNIJjb0yckU3CEh0tJA5UQ64DnSBUXacHJjJzOd3JybzNbz\ntSifTaSSHpUTqeRge3EZkbYZcJlkVOS5zSDSwjgiB9uLy4nUes9tGKacSBuSifLJRCq3Q1Kl\n9vktIp3/3r2ESDG9t/O5RCr8ZmWPVFgkFXnueMlE+VQilX6vIlLZ96412onV8JPZdqqVEqlE\na2qLVPJL/5JHY8OAxQY64FW7+XcI9vLmHxOo1v0xQe1kZi8/x1U7gE8BIgEUAJEACoBIAAVA\nJIACIBJAARAJoACIBFAARAIowEFEUndPb/3C29Nd9nvopkc9vBWavBus0EjXR9XGfbnrRrt/\nGYZ2Jyo0gzVk8REvQlff+37hfsW7upl4LjL3c7GRrpCajbsdR3toEWmiaW7G3xjerOmHvn27\nb9RHibnvm7vxzQAnU7Fxt81ttzP6+KKa1wKj5TiMSI+N3kW/dPc65Y/uA+6+r/aL3n0Pnzlv\nd9PS8KL75tEJnde/qtvoGO2jam6eWudVXfjHOOI0QOvOpG/HMeeRhpCP5qYfbbi7Quo17nmq\n+bP+GBx65E9UckOLj3gRmualL27Xlb4ISu+ydaGezd67K6lZGl702tzaoR/90p1ef6trGxnj\noV94sl/V9+G+P9gwA1gjDclNY84jTSEP/Su/9MlfI/Uad28OED/aqUf+RCU3tPiIF6HbcqWr\nc9P0RXgcivekn/iiCz+8lT/ap0ZZZXJDH7omvAyR+lMpPsZbF6LslX1D+g+1eQBrpGmaYcx5\npClkeE/c9Z/K10i9xqngrCgyUcENLT7iRei2/L6r1VtXUl2Em+ENfKdv354fb6daTgWbX2WF\n3jQf09M6MjaGau6HjzFrZT9af2MGsEaabocx55FMyJ0+Qm+O918jFaJe46beNM00dGSighta\nfMSL0G35c/cx89R9BA2FmAo0XZpx39Tzq6xQ5+n4GM/dvv/mzVn5PF9I8gZoI3PeBpO9dk19\nvt6LFfUaFxMpmKjghhYf8SJ0W/7RHSTddp9NbpHvu3PM57d4mV6GD6ZsP+Yxuvf9TaNe3JUD\n92tE8rPR3DRvD9d7+bxe4+5M0RFpRm951wx9wjHv9qcV7Ue8THfDcfQU6h2QxcbQPLkTqP5V\nH/rgLHFo570bhpFMSPeB/KAOUuULUK9x5qodIlnoLX9q7vQFIL34oE8pvwzdeWk/bmNl0l9H\ntHaoXnqd18fGUN3Sq36ZWflivk98mQcwC6o7YnFnn0YyIbq3/QWH66Ra47S/N3qf9HyHSDN6\ny7tP/v7EvZkuiOpHD8Ex8bx77y+VzaFv05XRITI2xrD0aK18GK+3dfuVeQCz0Mc/2j2eRnqz\nr5/ri0tXSrXGtfMvG4ZDPkTS9Fuu+k+q4XCqO3W57d/i/UKsHzcPwwHBHPraVfb+zZQxMkbb\nHYWpR3ul9f/TmQeYF7r4R7s180gmRK8r9eOx41GtcZrn+06ruy/z8O5S2Q0tPiJ4vFztzxqu\nCUS6OLfXe83uikCkC9Nc86WGKwKRLowavoKHTw4iARQAkQAKgEgABUAkgAIgEkABEAmgAIgE\nUABEAigAIgEUAJEACoBIAAVAJIACIBJAARAJoACIBFAARAIoACIBFACRAAqASAAFQCSAAiAS\nQAEQCaAAiARQAEQCKAAiARQAkQAKgEgABUCklXzN1363r/vu3+N7fq/v/X2+vv2G7/f9f8AP\n/EE/+Id84w/9YT/8R/zIH/Wjf8yP+/E/4Sf+5J/yU3/aT/8ZP+tn/9yf9/PbX/ALv/kX/eJf\n8kt/2S//Fb/yV/3qX/Nrf92v/w2/8Tf95t/yW3/bb/8dv/N3/e7f83t/X/utv/8P/MFv+0N/\n+I/80T/2x//En/xTf/rP/Nk/9+f/wl/8S3/5r/zVv/bX/8bf/Fvf/rf/Tvt3/97f/wf/8B/9\n4+/8J//0n9XedIl8TWva8X29drR+O75pakebaMe3fGubbEfbt+M7rHb883/xL//Vv/43/+7f\nt//xP/3n//Jf//v/+J//63//n/+LSGtBJFEg0lFBJFEg0lFBJFEg0lFBJFEg0lGxRPI7F4j0\nTTmRviUr0ncg0iIV2zGJ9B8QaQuIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJApE\nOiqIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJApEOiqIJIrrEUndPb31\nC29PdyoX3PSoh7dCk3eDFRrJcDUiVW3cl7tutPuXYWh3IjfwekTq6nvfL9yveFc3E89F5n4u\nNtLM1YhUs3G342gPLSLNW34zfJ6pmzX90Ldv9436KDH3fXM3vhnKcTX/hWzFxt02t93O6OOL\nal5zodfzX8g2zWOjd9Ev3b2e5KP7gLvvq/2id9/DZ87b3bQ0vOi+eXRC5/Wv6jY6Rvuompun\n1nlVF/4xjjgN0Loz6dtxzHmkIeSjuelHG+5mrkikWo17nmr+rD8Ghx75E01ck0gvfXG7rvRF\nUHqXfdMOx13D3rsrqVkaXvTa3NqhH/3SnV5/q2sbGeOhX3iyX9X34b4/2DADWCO17dQkPeY8\n0hTy0L/yS5+83bnrEalW4+7NAeJHO/XIn2jimkTqjg26+5umL8LjULwn/cQXXfjhrfzRPjXK\nKpMb+tA14WWIfGhTY7x1Icpe2Tek/1CbB7BGmqYZxpxHmkKG98Rd/6lsd+56RKrVOBWcFUUm\nGrkqke67Wr11JdVFuBnewHf69u358Xaq5VQwq3pz6E3zMT2tI2NjqOZ++BizVvaj9TdmAGuk\n6XYYcx7JhNzpI/TGv2B1TSJVatzUm6aZho5MNHJVIj13HzNP3UfQUIipQNOlGfdNbfVjDnWe\njo/x3O37b96clc/zhSRvgDYy520w2WvX1OfgYsU1iVSpcTGRgolGrkqkj+4g6bb7bHKLfN+d\nYz6/xcv0MnwwZfsxj9G9728a9eKuHLhfI5KfjeameXsIrude0eXvWo27M0VfIdIVXf7WHz+6\nJdZu39T2I16mu+E4egr1DshiY2ie3AlU/6oPfXCWOLTz3g3DSCak+0B+UBeri3jqNc5ctVsh\nkjguKtJTc6cvAOnFB31K+WXozkv7cRsrk/46orVD9dLrvD42huqWXvXLzMoX833iyzyAWVDd\nEYs7+zSSCdG97S84XCfVGqf9vdH7pOc7RLIGbvpP/v7EvZkuiOpHD8Ex8bx77y+VzaFv05XR\nITI2xrD0aK18GK+3dfuVeQCz0Mc/2j2eRnqzr5/ri0tXSrXGtfMvG4ZDPkTqB9Yjq/6Tajic\n6k5dbvu3eL8Q68fNw3BAMIe+dpW9fzNljIzRdkdh6tFeqabrbXphGmBe6OIf7dbMI5kQva7U\nj8eOR7XGaZ7vO63uvszDu0uCkZ5fFV78nzUAZECkCLfFf/IKnx1ECmiu+VIDbASRAtTwFTzA\nCSASQAEQCaAAiHQqw9cgmZjsCPmI07K6GrzSNPE1bon9NdHXNBteYy3TrxNpzM1CTEaTEnNc\nKV5p7He+vcYpnr3GfX1Q6Oia9GusZdp1Iive5E12/flzXCv+m7qsSPHREOliLFatya8/Z/jr\nxtdl4a1/4hp3EZF24TyR8qdILedICVaK5J7u2Gva1Jo2VAqRLkrmTd60a/ZIGdVyEVeL/zY+\neR/SpNa0SZHaBS3b6TSNdm1hoWorz2/OVO1q8fcByb1Lfh+SGOKk12jDEGk7SyI1+UO35REQ\naQFbJLfS54sUvHiNfBzabWTVm/zcQ7s1c1wnfmlOPrRLrtkiEudI2ykj0vIAiJRkvUinKoZI\nO1Pmlw3nz3GlTKWx38rhmvhvEZbXuF07dTT6BVAARAIoACIBFACRAAqASAAFQCSAAiASQAEQ\nCaAAiARQAEQCKAAiARQAkQAKgEgABUAkgAIgEkABEAmgAIgEUABEAigAIgEUAJEACvD/AZvq\nw3Z3juwGAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "library(tidyverse)\n",
    "library(ggpubr)\n",
    "importancia_pred <- as.data.frame(importance(rf_ind_med, scale = TRUE))\n",
    "importancia_pred <- rownames_to_column(importancia_pred, var = \"variable\")\n",
    "p1 <- ggplot(data=importancia_pred[order(importancia_pred$MeanDecreaseAccuracy, decreasing = TRUE),][1:10,], aes(x=reorder(variable, MeanDecreaseAccuracy),\n",
    "                                        y = MeanDecreaseAccuracy,\n",
    "                                        fill = MeanDecreaseAccuracy)) +\n",
    "    labs(x = \"variable\", title = \"Accuracy reduction\") +\n",
    "    geom_col() +\n",
    "    coord_flip() +\n",
    "    theme_bw() +\n",
    "    theme(legend.position = \"bottom\")\n",
    "\n",
    "p2 <- ggplot(data = importancia_pred[order(importancia_pred$MeanDecreaseGini, decreasing = TRUE),][1:10,], aes(x = reorder(variable, MeanDecreaseGini),\n",
    "                                          y = MeanDecreaseGini,\n",
    "                                          fill = MeanDecreaseGini)) +\n",
    "    labs(x = \"variable\", title = \"Purity reduction\") +\n",
    "    geom_col() +\n",
    "    coord_flip() +\n",
    "    theme_bw() +\n",
    "    theme(legend.position = \"bottom\")\n",
    "ggarrange(p1, p2)\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 71,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<strong>png:</strong> 2"
      ],
      "text/latex": [
       "\\textbf{png:} 2"
      ],
      "text/markdown": [
       "**png:** 2"
      ],
      "text/plain": [
       "png \n",
       "  2 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "png(file ='random_forest_ind_med_FMM1.jpg')\n",
    "library(tidyverse)\n",
    "library(ggpubr)\n",
    "importancia_pred <- as.data.frame(importance(rf_ind_med, scale = TRUE))\n",
    "importancia_pred <- rownames_to_column(importancia_pred, var = \"variable\")\n",
    "p1 <- ggplot(data=importancia_pred[order(importancia_pred$MeanDecreaseAccuracy, decreasing = TRUE),][1:10,], aes(x=reorder(variable, MeanDecreaseAccuracy),\n",
    "                                        y = MeanDecreaseAccuracy,\n",
    "                                        fill = MeanDecreaseAccuracy)) +\n",
    "    labs(x = \"variable\", title = \"Accuracy reduction\") +\n",
    "    geom_col() +\n",
    "    coord_flip() +\n",
    "    theme_bw() +\n",
    "    theme(legend.position = \"bottom\")\n",
    "\n",
    "p2 <- ggplot(data = importancia_pred[order(importancia_pred$MeanDecreaseGini, decreasing = TRUE),][1:10,], aes(x = reorder(variable, MeanDecreaseGini),\n",
    "                                          y = MeanDecreaseGini,\n",
    "                                          fill = MeanDecreaseGini)) +\n",
    "    labs(x = \"variable\", title = \"Purity reduction\") +\n",
    "    geom_col() +\n",
    "    coord_flip() +\n",
    "    theme_bw() +\n",
    "    theme(legend.position = \"bottom\")\n",
    "ggarrange(p1, p2)\n",
    "\n",
    "\n",
    "\n",
    "dev.off()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We put together the snp considered most important based on the measures of MeanDecreaseAccuracy and MeanDecreaseGini."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* Variables with a high MeanDecreaseAccuracy"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 106,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>variable</th><th scope=col>0</th><th scope=col>1</th><th scope=col>MeanDecreaseAccuracy</th><th scope=col>MeanDecreaseGini</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>79</th><td>rs2104772 </td><td>5.1198612 </td><td>5.075941  </td><td>6.987901  </td><td>0.9478545 </td></tr>\n",
       "\t<tr><th scope=row>131</th><td>rs5418    </td><td>5.0017854 </td><td>4.601789  </td><td>6.760097  </td><td>0.8109001 </td></tr>\n",
       "\t<tr><th scope=row>152</th><td>rs7191721 </td><td>4.3257403 </td><td>4.118907  </td><td>5.115731  </td><td>0.8894336 </td></tr>\n",
       "\t<tr><th scope=row>77</th><td>rs2070744 </td><td>2.8807988 </td><td>3.428098  </td><td>3.831234  </td><td>0.3657689 </td></tr>\n",
       "\t<tr><th scope=row>148</th><td>rs6968554 </td><td>1.8796622 </td><td>3.532481  </td><td>3.637035  </td><td>0.5057815 </td></tr>\n",
       "\t<tr><th scope=row>109</th><td>rs3768816 </td><td>2.0766940 </td><td>2.110436  </td><td>3.029232  </td><td>0.3181474 </td></tr>\n",
       "\t<tr><th scope=row>42</th><td>rs1572312 </td><td>1.9058803 </td><td>2.526996  </td><td>2.960207  </td><td>0.2790826 </td></tr>\n",
       "\t<tr><th scope=row>54</th><td>rs1800206 </td><td>2.6710955 </td><td>1.557050  </td><td>2.715746  </td><td>0.2652731 </td></tr>\n",
       "\t<tr><th scope=row>99</th><td>rs2943641 </td><td>1.5515563 </td><td>2.002377  </td><td>2.695226  </td><td>0.3954027 </td></tr>\n",
       "\t<tr><th scope=row>30</th><td>rs12613181</td><td>0.1814488 </td><td>3.786385  </td><td>2.671753  </td><td>0.2472000 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       "  & variable & 0 & 1 & MeanDecreaseAccuracy & MeanDecreaseGini\\\\\n",
       "\\hline\n",
       "\t79 & rs2104772  & 5.1198612  & 5.075941   & 6.987901   & 0.9478545 \\\\\n",
       "\t131 & rs5418     & 5.0017854  & 4.601789   & 6.760097   & 0.8109001 \\\\\n",
       "\t152 & rs7191721  & 4.3257403  & 4.118907   & 5.115731   & 0.8894336 \\\\\n",
       "\t77 & rs2070744  & 2.8807988  & 3.428098   & 3.831234   & 0.3657689 \\\\\n",
       "\t148 & rs6968554  & 1.8796622  & 3.532481   & 3.637035   & 0.5057815 \\\\\n",
       "\t109 & rs3768816  & 2.0766940  & 2.110436   & 3.029232   & 0.3181474 \\\\\n",
       "\t42 & rs1572312  & 1.9058803  & 2.526996   & 2.960207   & 0.2790826 \\\\\n",
       "\t54 & rs1800206  & 2.6710955  & 1.557050   & 2.715746   & 0.2652731 \\\\\n",
       "\t99 & rs2943641  & 1.5515563  & 2.002377   & 2.695226   & 0.3954027 \\\\\n",
       "\t30 & rs12613181 & 0.1814488  & 3.786385   & 2.671753   & 0.2472000 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | variable | 0 | 1 | MeanDecreaseAccuracy | MeanDecreaseGini |\n",
       "|---|---|---|---|---|---|\n",
       "| 79 | rs2104772  | 5.1198612  | 5.075941   | 6.987901   | 0.9478545  |\n",
       "| 131 | rs5418     | 5.0017854  | 4.601789   | 6.760097   | 0.8109001  |\n",
       "| 152 | rs7191721  | 4.3257403  | 4.118907   | 5.115731   | 0.8894336  |\n",
       "| 77 | rs2070744  | 2.8807988  | 3.428098   | 3.831234   | 0.3657689  |\n",
       "| 148 | rs6968554  | 1.8796622  | 3.532481   | 3.637035   | 0.5057815  |\n",
       "| 109 | rs3768816  | 2.0766940  | 2.110436   | 3.029232   | 0.3181474  |\n",
       "| 42 | rs1572312  | 1.9058803  | 2.526996   | 2.960207   | 0.2790826  |\n",
       "| 54 | rs1800206  | 2.6710955  | 1.557050   | 2.715746   | 0.2652731  |\n",
       "| 99 | rs2943641  | 1.5515563  | 2.002377   | 2.695226   | 0.3954027  |\n",
       "| 30 | rs12613181 | 0.1814488  | 3.786385   | 2.671753   | 0.2472000  |\n",
       "\n"
      ],
      "text/plain": [
       "    variable   0         1        MeanDecreaseAccuracy MeanDecreaseGini\n",
       "79  rs2104772  5.1198612 5.075941 6.987901             0.9478545       \n",
       "131 rs5418     5.0017854 4.601789 6.760097             0.8109001       \n",
       "152 rs7191721  4.3257403 4.118907 5.115731             0.8894336       \n",
       "77  rs2070744  2.8807988 3.428098 3.831234             0.3657689       \n",
       "148 rs6968554  1.8796622 3.532481 3.637035             0.5057815       \n",
       "109 rs3768816  2.0766940 2.110436 3.029232             0.3181474       \n",
       "42  rs1572312  1.9058803 2.526996 2.960207             0.2790826       \n",
       "54  rs1800206  2.6710955 1.557050 2.715746             0.2652731       \n",
       "99  rs2943641  1.5515563 2.002377 2.695226             0.3954027       \n",
       "30  rs12613181 0.1814488 3.786385 2.671753             0.2472000       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "importancia_pred[order(importancia_pred$MeanDecreaseAccuracy, decreasing = TRUE),][1:10,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 104,
   "metadata": {},
   "outputs": [],
   "source": [
    "top_MeanDecreaseAccuracy <- importancia_pred[order(importancia_pred$MeanDecreaseAccuracy, decreasing = TRUE),][1:10,]$variable"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 105,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'rs2104772'</li>\n",
       "\t<li>'rs5418'</li>\n",
       "\t<li>'rs7191721'</li>\n",
       "\t<li>'rs2070744'</li>\n",
       "\t<li>'rs6968554'</li>\n",
       "\t<li>'rs3768816'</li>\n",
       "\t<li>'rs1572312'</li>\n",
       "\t<li>'rs1800206'</li>\n",
       "\t<li>'rs2943641'</li>\n",
       "\t<li>'rs12613181'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'rs2104772'\n",
       "\\item 'rs5418'\n",
       "\\item 'rs7191721'\n",
       "\\item 'rs2070744'\n",
       "\\item 'rs6968554'\n",
       "\\item 'rs3768816'\n",
       "\\item 'rs1572312'\n",
       "\\item 'rs1800206'\n",
       "\\item 'rs2943641'\n",
       "\\item 'rs12613181'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'rs2104772'\n",
       "2. 'rs5418'\n",
       "3. 'rs7191721'\n",
       "4. 'rs2070744'\n",
       "5. 'rs6968554'\n",
       "6. 'rs3768816'\n",
       "7. 'rs1572312'\n",
       "8. 'rs1800206'\n",
       "9. 'rs2943641'\n",
       "10. 'rs12613181'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"rs2104772\"  \"rs5418\"     \"rs7191721\"  \"rs2070744\"  \"rs6968554\" \n",
       " [6] \"rs3768816\"  \"rs1572312\"  \"rs1800206\"  \"rs2943641\"  \"rs12613181\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "top_MeanDecreaseAccuracy"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "'rs2070744' 'rs10999516' 'rs13146355' 'rs2542729' 'rs198851' 'rs17685' 'rs11144134' 'rs1589241' 'rs182549' 'rs7454108' \n",
    "\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "* Variables with a high MeanDecreaseGini"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 112,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th></th><th scope=col>variable</th><th scope=col>0</th><th scope=col>1</th><th scope=col>MeanDecreaseAccuracy</th><th scope=col>MeanDecreaseGini</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><th scope=row>79</th><td>rs2104772 </td><td> 5.1198612</td><td>5.0759414 </td><td>6.9879008 </td><td>0.9478545 </td></tr>\n",
       "\t<tr><th scope=row>152</th><td>rs7191721 </td><td> 4.3257403</td><td>4.1189075 </td><td>5.1157307 </td><td>0.8894336 </td></tr>\n",
       "\t<tr><th scope=row>131</th><td>rs5418    </td><td> 5.0017854</td><td>4.6017887 </td><td>6.7600967 </td><td>0.8109001 </td></tr>\n",
       "\t<tr><th scope=row>38</th><td>rs1451462 </td><td> 1.8913968</td><td>1.6274102 </td><td>2.1512268 </td><td>0.5745322 </td></tr>\n",
       "\t<tr><th scope=row>40</th><td>rs1516797 </td><td> 0.4019288</td><td>0.9412837 </td><td>0.9827035 </td><td>0.5514410 </td></tr>\n",
       "\t<tr><th scope=row>148</th><td>rs6968554 </td><td> 1.8796622</td><td>3.5324806 </td><td>3.6370347 </td><td>0.5057815 </td></tr>\n",
       "\t<tr><th scope=row>32</th><td>rs13146355</td><td> 1.1754025</td><td>1.6682185 </td><td>2.0591693 </td><td>0.4708856 </td></tr>\n",
       "\t<tr><th scope=row>33</th><td>rs1330363 </td><td>-0.3591922</td><td>2.6755424 </td><td>1.7785466 </td><td>0.4071368 </td></tr>\n",
       "\t<tr><th scope=row>114</th><td>rs4072037 </td><td> 1.3287519</td><td>0.9519650 </td><td>1.6725772 </td><td>0.4000740 </td></tr>\n",
       "\t<tr><th scope=row>99</th><td>rs2943641 </td><td> 1.5515563</td><td>2.0023772 </td><td>2.6952263 </td><td>0.3954027 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       "  & variable & 0 & 1 & MeanDecreaseAccuracy & MeanDecreaseGini\\\\\n",
       "\\hline\n",
       "\t79 & rs2104772  &  5.1198612 & 5.0759414  & 6.9879008  & 0.9478545 \\\\\n",
       "\t152 & rs7191721  &  4.3257403 & 4.1189075  & 5.1157307  & 0.8894336 \\\\\n",
       "\t131 & rs5418     &  5.0017854 & 4.6017887  & 6.7600967  & 0.8109001 \\\\\n",
       "\t38 & rs1451462  &  1.8913968 & 1.6274102  & 2.1512268  & 0.5745322 \\\\\n",
       "\t40 & rs1516797  &  0.4019288 & 0.9412837  & 0.9827035  & 0.5514410 \\\\\n",
       "\t148 & rs6968554  &  1.8796622 & 3.5324806  & 3.6370347  & 0.5057815 \\\\\n",
       "\t32 & rs13146355 &  1.1754025 & 1.6682185  & 2.0591693  & 0.4708856 \\\\\n",
       "\t33 & rs1330363  & -0.3591922 & 2.6755424  & 1.7785466  & 0.4071368 \\\\\n",
       "\t114 & rs4072037  &  1.3287519 & 0.9519650  & 1.6725772  & 0.4000740 \\\\\n",
       "\t99 & rs2943641  &  1.5515563 & 2.0023772  & 2.6952263  & 0.3954027 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| <!--/--> | variable | 0 | 1 | MeanDecreaseAccuracy | MeanDecreaseGini |\n",
       "|---|---|---|---|---|---|\n",
       "| 79 | rs2104772  |  5.1198612 | 5.0759414  | 6.9879008  | 0.9478545  |\n",
       "| 152 | rs7191721  |  4.3257403 | 4.1189075  | 5.1157307  | 0.8894336  |\n",
       "| 131 | rs5418     |  5.0017854 | 4.6017887  | 6.7600967  | 0.8109001  |\n",
       "| 38 | rs1451462  |  1.8913968 | 1.6274102  | 2.1512268  | 0.5745322  |\n",
       "| 40 | rs1516797  |  0.4019288 | 0.9412837  | 0.9827035  | 0.5514410  |\n",
       "| 148 | rs6968554  |  1.8796622 | 3.5324806  | 3.6370347  | 0.5057815  |\n",
       "| 32 | rs13146355 |  1.1754025 | 1.6682185  | 2.0591693  | 0.4708856  |\n",
       "| 33 | rs1330363  | -0.3591922 | 2.6755424  | 1.7785466  | 0.4071368  |\n",
       "| 114 | rs4072037  |  1.3287519 | 0.9519650  | 1.6725772  | 0.4000740  |\n",
       "| 99 | rs2943641  |  1.5515563 | 2.0023772  | 2.6952263  | 0.3954027  |\n",
       "\n"
      ],
      "text/plain": [
       "    variable   0          1         MeanDecreaseAccuracy MeanDecreaseGini\n",
       "79  rs2104772   5.1198612 5.0759414 6.9879008            0.9478545       \n",
       "152 rs7191721   4.3257403 4.1189075 5.1157307            0.8894336       \n",
       "131 rs5418      5.0017854 4.6017887 6.7600967            0.8109001       \n",
       "38  rs1451462   1.8913968 1.6274102 2.1512268            0.5745322       \n",
       "40  rs1516797   0.4019288 0.9412837 0.9827035            0.5514410       \n",
       "148 rs6968554   1.8796622 3.5324806 3.6370347            0.5057815       \n",
       "32  rs13146355  1.1754025 1.6682185 2.0591693            0.4708856       \n",
       "33  rs1330363  -0.3591922 2.6755424 1.7785466            0.4071368       \n",
       "114 rs4072037   1.3287519 0.9519650 1.6725772            0.4000740       \n",
       "99  rs2943641   1.5515563 2.0023772 2.6952263            0.3954027       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "importancia_pred[order(importancia_pred$MeanDecreaseGini, decreasing = TRUE),][1:10,]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 107,
   "metadata": {},
   "outputs": [],
   "source": [
    "top_MeanDecreaseGini <- importancia_pred[order(importancia_pred$MeanDecreaseGini, decreasing = TRUE),][1:10,]$variable"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 108,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'rs2104772'</li>\n",
       "\t<li>'rs7191721'</li>\n",
       "\t<li>'rs5418'</li>\n",
       "\t<li>'rs1451462'</li>\n",
       "\t<li>'rs1516797'</li>\n",
       "\t<li>'rs6968554'</li>\n",
       "\t<li>'rs13146355'</li>\n",
       "\t<li>'rs1330363'</li>\n",
       "\t<li>'rs4072037'</li>\n",
       "\t<li>'rs2943641'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'rs2104772'\n",
       "\\item 'rs7191721'\n",
       "\\item 'rs5418'\n",
       "\\item 'rs1451462'\n",
       "\\item 'rs1516797'\n",
       "\\item 'rs6968554'\n",
       "\\item 'rs13146355'\n",
       "\\item 'rs1330363'\n",
       "\\item 'rs4072037'\n",
       "\\item 'rs2943641'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'rs2104772'\n",
       "2. 'rs7191721'\n",
       "3. 'rs5418'\n",
       "4. 'rs1451462'\n",
       "5. 'rs1516797'\n",
       "6. 'rs6968554'\n",
       "7. 'rs13146355'\n",
       "8. 'rs1330363'\n",
       "9. 'rs4072037'\n",
       "10. 'rs2943641'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"rs2104772\"  \"rs7191721\"  \"rs5418\"     \"rs1451462\"  \"rs1516797\" \n",
       " [6] \"rs6968554\"  \"rs13146355\" \"rs1330363\"  \"rs4072037\"  \"rs2943641\" "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "top_MeanDecreaseGini"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Common variables:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 109,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'rs2104772'</li>\n",
       "\t<li>'rs5418'</li>\n",
       "\t<li>'rs7191721'</li>\n",
       "\t<li>'rs6968554'</li>\n",
       "\t<li>'rs2943641'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'rs2104772'\n",
       "\\item 'rs5418'\n",
       "\\item 'rs7191721'\n",
       "\\item 'rs6968554'\n",
       "\\item 'rs2943641'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'rs2104772'\n",
       "2. 'rs5418'\n",
       "3. 'rs7191721'\n",
       "4. 'rs6968554'\n",
       "5. 'rs2943641'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"rs2104772\" \"rs5418\"    \"rs7191721\" \"rs6968554\" \"rs2943641\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "top_snp <- c()\n",
    "for (i in top_MeanDecreaseAccuracy){\n",
    "    for (j in top_MeanDecreaseGini){\n",
    "        if (i == j){\n",
    "            top_snp <- c(top_snp, i)\n",
    "        }\n",
    "    }\n",
    "}\n",
    "top_snp"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Although the algorithm has a bad precision, it can give us an idea that these polymorphisms can be interesting in the prediction. "
   ]
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.6.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 4
}