Bioactive_Molecular_Networks_v1.1_Optimus.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# Bioactive molecular networking notebook v1.1 (Optimus)\n",
    "\n",
    "Website: https://github.com/DorresteinLaboratory/Bioactive_Molecular_Networks\n",
    "\n",
    "The bioactive molecular network workflow integrates MS/MS molecular networking and bioassay-guided fractionation into the concept of bioactive molecular networking. The workflow relies on open bioinformatic tools, such MZmine2 [http://mzmine.github.io/] or Optimus (using OpenMS) [https://github.com/MolecularCartography/Optimus], a Jupyter notebook, and the GNPS web-platform (http://gnps.ucsd.edu). \n",
    "\n",
    "The code is released as a Jupyter notebook for easiness and reproducibility. The Jupyter notebook has been prepared by Dr. Ricardo Silva (UCSD).\n",
    "\n",
    "#### Citation: \n",
    "Bioactive molecular networking: Nothias, L.-F.; Nothias-Esposito, M.; da Silva, R.; Wang, M.; Protsyuk, I.; Zhang, Z.; Sarvepalli, A.; Leyssen, P.; Touboul, D.; Costa, J.; Paolini J., Alexandrov T., Litaudon M., Dorrestein, P. Bioactivity-Based Molecular Networking for the Discovery of Drug Leads in Natural Product Bioassay-Guided Fractionation. J. Nat. Prod. 2018. \n",
    "#### Manuscript: \n",
    "(Open access) https://pubs.acs.org/doi/10.1021/acs.jnatprod.7b00737\n",
    "\n",
    "### Instructions to run the notebook\n",
    "\n",
    "-> This notebook is suitable for Optimus feature table.\n",
    "\n",
    "-> Make sure R is installed in your environment.\n",
    "\n",
    "-> Upload your files to the jupyter notebook folder.\n",
    "\n",
    "-> In cell 1, update the file name if needed (in red).\n",
    "\n",
    "-> Run all cells by clicking on: Cell / Run All Below.\n",
    "\n",
    "-> Get the output file table."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Lets run the bioactive molecular networking notebook !"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>14</li>\n",
       "\t<li>589</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 14\n",
       "\\item 589\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 14\n",
       "2. 589\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  14 589"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Sample name</th><th scope=col>BioactivityCHIKV</th><th scope=col>270.279 1698 1 (ID: 9)</th><th scope=col>271.283 1699 1 (ID: 355)</th><th scope=col>279.174 1413 1 (ID: 511)</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Extract   </td><td>68        </td><td>  5690331 </td><td>  569378.1</td><td>3172924   </td></tr>\n",
       "\t<tr><td>F_5       </td><td> 1        </td><td>246596026 </td><td>40396489.5</td><td>      0   </td></tr>\n",
       "\t<tr><td>F_6       </td><td> 4        </td><td>186949612 </td><td>30710029.2</td><td>      0   </td></tr>\n",
       "\t<tr><td>F_7       </td><td> 1        </td><td>362958584 </td><td>63895441.0</td><td>      0   </td></tr>\n",
       "\t<tr><td>F_8       </td><td> 3        </td><td>160968307 </td><td>26317669.9</td><td>      0   </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllll}\n",
       " Sample name & BioactivityCHIKV & 270.279 1698 1 (ID: 9) & 271.283 1699 1 (ID: 355) & 279.174 1413 1 (ID: 511)\\\\\n",
       "\\hline\n",
       "\t Extract    & 68         &   5690331  &   569378.1 & 3172924   \\\\\n",
       "\t F\\_5      &  1         & 246596026  & 40396489.5 &       0   \\\\\n",
       "\t F\\_6      &  4         & 186949612  & 30710029.2 &       0   \\\\\n",
       "\t F\\_7      &  1         & 362958584  & 63895441.0 &       0   \\\\\n",
       "\t F\\_8      &  3         & 160968307  & 26317669.9 &       0   \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Sample name | BioactivityCHIKV | 270.279 1698 1 (ID: 9) | 271.283 1699 1 (ID: 355) | 279.174 1413 1 (ID: 511) | \n",
       "|---|---|---|---|---|\n",
       "| Extract    | 68         |   5690331  |   569378.1 | 3172924    | \n",
       "| F_5        |  1         | 246596026  | 40396489.5 |       0    | \n",
       "| F_6        |  4         | 186949612  | 30710029.2 |       0    | \n",
       "| F_7        |  1         | 362958584  | 63895441.0 |       0    | \n",
       "| F_8        |  3         | 160968307  | 26317669.9 |       0    | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Sample name BioactivityCHIKV 270.279 1698 1 (ID: 9) 271.283 1699 1 (ID: 355)\n",
       "1 Extract     68                 5690331                569378.1              \n",
       "2 F_5          1               246596026              40396489.5              \n",
       "3 F_6          4               186949612              30710029.2              \n",
       "4 F_7          1               362958584              63895441.0              \n",
       "5 F_8          3               160968307              26317669.9              \n",
       "  279.174 1413 1 (ID: 511)\n",
       "1 3172924                 \n",
       "2       0                 \n",
       "3       0                 \n",
       "4       0                 \n",
       "5       0                 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Load and inspect the .CSV features table.\n",
    "# Change the name in the code below if needed (.CSV file in red)\n",
    "# NB: Make sure to add the value of bioactivity in the second columns \n",
    "tab <- read.csv(\"TEMPLATE_FILES/INPUT_FILE/features_quantification_matrix_edited_bioactivity_Optimus.csv\", stringsAsFactor=FALSE, check.names=FALSE)\n",
    "dim(tab)                  \n",
    "tab[1:5,1:5]                                                       \n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [],
   "source": [
    "# Take out blank rows in the table\n",
    "if(any(is.na(tab[,2]))) tab <- tab[!is.na(tab[,2]),]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {},
   "outputs": [],
   "source": [
    "# Add 1 to all to help scaling feature intensities and Normalize the features by TIC  \n",
    "# \n",
    "tab2 <- tab\n",
    "tab2[,-c(1:2)] <- t(apply(tab2[,-c(1:2)], 1, function(x) (x+1)/sum((x+1))))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<dl>\n",
       "\t<dt>$estimate</dt>\n",
       "\t\t<dd><strong>cor:</strong> -0.324377606725705</dd>\n",
       "\t<dt>$p.value</dt>\n",
       "\t\t<dd>0.257849356719369</dd>\n",
       "</dl>\n"
      ],
      "text/latex": [
       "\\begin{description}\n",
       "\\item[\\$estimate] \\textbf{cor:} -0.324377606725705\n",
       "\\item[\\$p.value] 0.257849356719369\n",
       "\\end{description}\n"
      ],
      "text/markdown": [
       "$estimate\n",
       ":   **cor:** -0.324377606725705\n",
       "$p.value\n",
       ":   0.257849356719369\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "$estimate\n",
       "       cor \n",
       "-0.3243776 \n",
       "\n",
       "$p.value\n",
       "[1] 0.2578494\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Calculate the correlation coefficient between a single feature and the bioactivity.\n",
    "# Scale should help correlation - https://www.ncbi.nlm.nih.gov/pmc/articles/PMC1534033/\n",
    "cor.test(scale(tab2[,2])[,1], scale(tab2[,3])[,1])[c(\"estimate\", \"p.value\")]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {},
   "outputs": [],
   "source": [
    "# How to do for all features\n",
    "ct <- t(sapply(3:ncol(tab2), function(x) unlist(cor.test(scale(tab2[,2])[,1], scale(tab2[,x])[,1])[c(\"estimate\", \"p.value\")])))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>14</li>\n",
       "\t<li>589</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 14\n",
       "\\item 589\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 14\n",
       "2. 589\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  14 589"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>587</li>\n",
       "\t<li>2</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 587\n",
       "\\item 2\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 587\n",
       "2. 2\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 587   2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Show the dimensions of the features_quantificaton_matrix.csv\n",
    "dim(tab2)\n",
    "dim(ct)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Sample name</th><th scope=col>BioactivityCHIKV</th><th scope=col>270.279 1698 1 (ID: 9)</th><th scope=col>271.283 1699 1 (ID: 355)</th><th scope=col>279.174 1413 1 (ID: 511)</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>cor               </td><td>0                 </td><td>-0.324377606725705</td><td>-0.318374649942669</td><td>0.11344978411662  </td></tr>\n",
       "\t<tr><td> p_value          </td><td>0                 </td><td>0.257849356719369 </td><td>0.267271199671765 </td><td>0.699375059832539 </td></tr>\n",
       "\t<tr><td>Extract           </td><td> 68.0             </td><td>0.0001391824      </td><td>0.0000139267      </td><td>7.760803e-05      </td></tr>\n",
       "\t<tr><td>F_5               </td><td>  1.0             </td><td>0.1594079650      </td><td>0.0261136500      </td><td>6.464336e-10      </td></tr>\n",
       "\t<tr><td>F_6               </td><td>  4.0             </td><td>0.0228397314      </td><td>0.0037518603      </td><td>1.221705e-10      </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lllll}\n",
       " Sample name & BioactivityCHIKV & 270.279 1698 1 (ID: 9) & 271.283 1699 1 (ID: 355) & 279.174 1413 1 (ID: 511)\\\\\n",
       "\\hline\n",
       "\t cor                & 0                  & -0.324377606725705 & -0.318374649942669 & 0.11344978411662  \\\\\n",
       "\t  p\\_value         & 0                  & 0.257849356719369  & 0.267271199671765  & 0.699375059832539 \\\\\n",
       "\t Extract            &  68.0              & 0.0001391824       & 0.0000139267       & 7.760803e-05      \\\\\n",
       "\t F\\_5              &   1.0              & 0.1594079650       & 0.0261136500       & 6.464336e-10      \\\\\n",
       "\t F\\_6              &   4.0              & 0.0228397314       & 0.0037518603       & 1.221705e-10      \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Sample name | BioactivityCHIKV | 270.279 1698 1 (ID: 9) | 271.283 1699 1 (ID: 355) | 279.174 1413 1 (ID: 511) | \n",
       "|---|---|---|---|---|\n",
       "| cor                | 0                  | -0.324377606725705 | -0.318374649942669 | 0.11344978411662   | \n",
       "|  p_value           | 0                  | 0.257849356719369  | 0.267271199671765  | 0.699375059832539  | \n",
       "| Extract            |  68.0              | 0.0001391824       | 0.0000139267       | 7.760803e-05       | \n",
       "| F_5                |   1.0              | 0.1594079650       | 0.0261136500       | 6.464336e-10       | \n",
       "| F_6                |   4.0              | 0.0228397314       | 0.0037518603       | 1.221705e-10       | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     Sample name BioactivityCHIKV 270.279 1698 1 (ID: 9)\n",
       "[1,] cor         0                -0.324377606725705    \n",
       "[2,]  p_value    0                0.257849356719369     \n",
       "[3,] Extract      68.0            0.0001391824          \n",
       "[4,] F_5           1.0            0.1594079650          \n",
       "[5,] F_6           4.0            0.0228397314          \n",
       "     271.283 1699 1 (ID: 355) 279.174 1413 1 (ID: 511)\n",
       "[1,] -0.318374649942669       0.11344978411662        \n",
       "[2,] 0.267271199671765        0.699375059832539       \n",
       "[3,] 0.0000139267             7.760803e-05            \n",
       "[4,] 0.0261136500             6.464336e-10            \n",
       "[5,] 0.0037518603             1.221705e-10            "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Create an output table with correlation coefficient value and p-value for every features\n",
    "\n",
    "ct <- rbind(c(\"cor\",\" p_value\"), c(0,0), ct)\n",
    "\n",
    "tab3 <- rbind(t(ct),  as.matrix(tab2))\n",
    "rownames(tab3) <- NULL\n",
    "tab3[1:5, 1:5]\n",
    "write.csv(tab3, \"features_quantification_matrix_edited_with_correlation.csv\", row.names=FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>shared name</th><th scope=col>IDs</th><th scope=col>cor</th><th scope=col> p_value</th><th scope=col>Extract</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>                         </td><td>BioactivityCHIKV         </td><td>0                        </td><td>0                        </td><td> 68.0                    </td></tr>\n",
       "\t<tr><td>1                        </td><td>270.279 1698 1 (ID: 9)   </td><td>-0.324377606725705       </td><td>0.257849356719369        </td><td>0.0001391824             </td></tr>\n",
       "\t<tr><td>2                        </td><td>271.283 1699 1 (ID: 355) </td><td>-0.318374649942669       </td><td>0.267271199671765        </td><td>0.0000139267             </td></tr>\n",
       "\t<tr><td>3                        </td><td>279.174 1413 1 (ID: 511) </td><td>0.11344978411662         </td><td>0.699375059832539        </td><td>7.760803e-05             </td></tr>\n",
       "\t<tr><td>4                        </td><td>280.264 1420 1 (ID: 1029)</td><td>-0.200702959079237       </td><td>0.49145327312603         </td><td>4.456230e-05             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{lllll}\n",
       " shared name & IDs & cor &  p\\_value & Extract\\\\\n",
       "\\hline\n",
       "\t                           & BioactivityCHIKV          & 0                         & 0                         &  68.0                    \\\\\n",
       "\t 1                         & 270.279 1698 1 (ID: 9)    & -0.324377606725705        & 0.257849356719369         & 0.0001391824             \\\\\n",
       "\t 2                         & 271.283 1699 1 (ID: 355)  & -0.318374649942669        & 0.267271199671765         & 0.0000139267             \\\\\n",
       "\t 3                         & 279.174 1413 1 (ID: 511)  & 0.11344978411662          & 0.699375059832539         & 7.760803e-05             \\\\\n",
       "\t 4                         & 280.264 1420 1 (ID: 1029) & -0.200702959079237        & 0.49145327312603          & 4.456230e-05             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "shared name | IDs | cor |  p_value | Extract | \n",
       "|---|---|---|---|---|\n",
       "|                           | BioactivityCHIKV          | 0                         | 0                         |  68.0                     | \n",
       "| 1                         | 270.279 1698 1 (ID: 9)    | -0.324377606725705        | 0.257849356719369         | 0.0001391824              | \n",
       "| 2                         | 271.283 1699 1 (ID: 355)  | -0.318374649942669        | 0.267271199671765         | 0.0000139267              | \n",
       "| 3                         | 279.174 1413 1 (ID: 511)  | 0.11344978411662          | 0.699375059832539         | 7.760803e-05              | \n",
       "| 4                         | 280.264 1420 1 (ID: 1029) | -0.200702959079237        | 0.49145327312603          | 4.456230e-05              | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "     shared name IDs                       cor                 p_value         \n",
       "[1,]             BioactivityCHIKV          0                  0                \n",
       "[2,] 1           270.279 1698 1 (ID: 9)    -0.324377606725705 0.257849356719369\n",
       "[3,] 2           271.283 1699 1 (ID: 355)  -0.318374649942669 0.267271199671765\n",
       "[4,] 3           279.174 1413 1 (ID: 511)  0.11344978411662   0.699375059832539\n",
       "[5,] 4           280.264 1420 1 (ID: 1029) -0.200702959079237 0.49145327312603 \n",
       "     Extract     \n",
       "[1,]  68.0       \n",
       "[2,] 0.0001391824\n",
       "[3,] 0.0000139267\n",
       "[4,] 7.760803e-05\n",
       "[5,] 4.456230e-05"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Tranpose the table for molecular networking mapping in Cytoscape\n",
    "new = t(tab3)\n",
    "colnames(new) = new[1,]\n",
    "new = new[-1,]\n",
    "new = cbind(0:(nrow(new)-1), rownames(new), new)\n",
    "rownames(new) <- NULL\n",
    "colnames(new)[1:2] <- c(\"shared name\", \"IDs\")\n",
    "new[1,1] <- \"\"\n",
    "new[1:5,1:5]\n",
    "write.csv(new, \"features_quantification_matrix_transposed_with_correlation.csv\", row.names=FALSE)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>17</li>\n",
       "\t<li>27</li>\n",
       "\t<li>29</li>\n",
       "\t<li>30</li>\n",
       "\t<li>94</li>\n",
       "\t<li>99</li>\n",
       "\t<li>100</li>\n",
       "\t<li>108</li>\n",
       "\t<li>115</li>\n",
       "\t<li>120</li>\n",
       "\t<li>137</li>\n",
       "\t<li>138</li>\n",
       "\t<li>157</li>\n",
       "\t<li>158</li>\n",
       "\t<li>162</li>\n",
       "\t<li>171</li>\n",
       "\t<li>183</li>\n",
       "\t<li>201</li>\n",
       "\t<li>202</li>\n",
       "\t<li>207</li>\n",
       "\t<li>210</li>\n",
       "\t<li>239</li>\n",
       "\t<li>241</li>\n",
       "\t<li>255</li>\n",
       "\t<li>285</li>\n",
       "\t<li>292</li>\n",
       "\t<li>299</li>\n",
       "\t<li>306</li>\n",
       "\t<li>323</li>\n",
       "\t<li>329</li>\n",
       "\t<li>331</li>\n",
       "\t<li>346</li>\n",
       "\t<li>357</li>\n",
       "\t<li>360</li>\n",
       "\t<li>366</li>\n",
       "\t<li>367</li>\n",
       "\t<li>370</li>\n",
       "\t<li>371</li>\n",
       "\t<li>390</li>\n",
       "\t<li>416</li>\n",
       "\t<li>431</li>\n",
       "\t<li>433</li>\n",
       "\t<li>440</li>\n",
       "\t<li>446</li>\n",
       "\t<li>461</li>\n",
       "\t<li>462</li>\n",
       "\t<li>467</li>\n",
       "\t<li>469</li>\n",
       "\t<li>476</li>\n",
       "\t<li>482</li>\n",
       "\t<li>487</li>\n",
       "\t<li>496</li>\n",
       "\t<li>504</li>\n",
       "\t<li>512</li>\n",
       "\t<li>513</li>\n",
       "\t<li>518</li>\n",
       "\t<li>524</li>\n",
       "\t<li>531</li>\n",
       "\t<li>543</li>\n",
       "\t<li>544</li>\n",
       "\t<li>545</li>\n",
       "\t<li>556</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 17\n",
       "\\item 27\n",
       "\\item 29\n",
       "\\item 30\n",
       "\\item 94\n",
       "\\item 99\n",
       "\\item 100\n",
       "\\item 108\n",
       "\\item 115\n",
       "\\item 120\n",
       "\\item 137\n",
       "\\item 138\n",
       "\\item 157\n",
       "\\item 158\n",
       "\\item 162\n",
       "\\item 171\n",
       "\\item 183\n",
       "\\item 201\n",
       "\\item 202\n",
       "\\item 207\n",
       "\\item 210\n",
       "\\item 239\n",
       "\\item 241\n",
       "\\item 255\n",
       "\\item 285\n",
       "\\item 292\n",
       "\\item 299\n",
       "\\item 306\n",
       "\\item 323\n",
       "\\item 329\n",
       "\\item 331\n",
       "\\item 346\n",
       "\\item 357\n",
       "\\item 360\n",
       "\\item 366\n",
       "\\item 367\n",
       "\\item 370\n",
       "\\item 371\n",
       "\\item 390\n",
       "\\item 416\n",
       "\\item 431\n",
       "\\item 433\n",
       "\\item 440\n",
       "\\item 446\n",
       "\\item 461\n",
       "\\item 462\n",
       "\\item 467\n",
       "\\item 469\n",
       "\\item 476\n",
       "\\item 482\n",
       "\\item 487\n",
       "\\item 496\n",
       "\\item 504\n",
       "\\item 512\n",
       "\\item 513\n",
       "\\item 518\n",
       "\\item 524\n",
       "\\item 531\n",
       "\\item 543\n",
       "\\item 544\n",
       "\\item 545\n",
       "\\item 556\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 17\n",
       "2. 27\n",
       "3. 29\n",
       "4. 30\n",
       "5. 94\n",
       "6. 99\n",
       "7. 100\n",
       "8. 108\n",
       "9. 115\n",
       "10. 120\n",
       "11. 137\n",
       "12. 138\n",
       "13. 157\n",
       "14. 158\n",
       "15. 162\n",
       "16. 171\n",
       "17. 183\n",
       "18. 201\n",
       "19. 202\n",
       "20. 207\n",
       "21. 210\n",
       "22. 239\n",
       "23. 241\n",
       "24. 255\n",
       "25. 285\n",
       "26. 292\n",
       "27. 299\n",
       "28. 306\n",
       "29. 323\n",
       "30. 329\n",
       "31. 331\n",
       "32. 346\n",
       "33. 357\n",
       "34. 360\n",
       "35. 366\n",
       "36. 367\n",
       "37. 370\n",
       "38. 371\n",
       "39. 390\n",
       "40. 416\n",
       "41. 431\n",
       "42. 433\n",
       "43. 440\n",
       "44. 446\n",
       "45. 461\n",
       "46. 462\n",
       "47. 467\n",
       "48. 469\n",
       "49. 476\n",
       "50. 482\n",
       "51. 487\n",
       "52. 496\n",
       "53. 504\n",
       "54. 512\n",
       "55. 513\n",
       "56. 518\n",
       "57. 524\n",
       "58. 531\n",
       "59. 543\n",
       "60. 544\n",
       "61. 545\n",
       "62. 556\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  17  27  29  30  94  99 100 108 115 120 137 138 157 158 162 171 183 201 202\n",
       "[20] 207 210 239 241 255 285 292 299 306 323 329 331 346 357 360 366 367 370 371\n",
       "[39] 390 416 431 433 440 446 461 462 467 469 476 482 487 496 504 512 513 518 524\n",
       "[58] 531 543 544 545 556"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Get the significant correlation coefficients for both cases (>0.05)\n",
    "which(as.numeric(ct[-c(1,2),2])<0.05)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'383.222 1524 1 (ID: 259)'</li>\n",
       "\t<li>'401.232 1290 1 (ID: 171)'</li>\n",
       "\t<li>'401.232 1619 1 (ID: 23)'</li>\n",
       "\t<li>'401.232 1527 1 (ID: 7)'</li>\n",
       "\t<li>'563.296 1291 1 (ID: 164)'</li>\n",
       "\t<li>'571.255 559 1 (ID: 626)'</li>\n",
       "\t<li>'571.301 1719 1 (ID: 50)'</li>\n",
       "\t<li>'577.265 998 1 (ID: 194)'</li>\n",
       "\t<li>'589.311 1520 1 (ID: 22)'</li>\n",
       "\t<li>'591.326 1626 1 (ID: 142)'</li>\n",
       "\t<li>'613.266 824 1 (ID: 107)'</li>\n",
       "\t<li>'613.266 874 1 (ID: 372)'</li>\n",
       "\t<li>'641.294 836 1 (ID: 375)'</li>\n",
       "\t<li>'641.294 742 1 (ID: 100)'</li>\n",
       "\t<li>'647.307 997 1 (ID: 157)'</li>\n",
       "\t<li>'661.287 945 1 (ID: 163)'</li>\n",
       "\t<li>'669.289 697 1 (ID: 154)'</li>\n",
       "\t<li>'681.290 558 1 (ID: 214)'</li>\n",
       "\t<li>'681.290 742 1 (ID: 106)'</li>\n",
       "\t<li>'683.303 823 1 (ID: 3)'</li>\n",
       "\t<li>'684.310 823 1 (ID: 5)'</li>\n",
       "\t<li>'701.314 827 1 (ID: 198)'</li>\n",
       "\t<li>'703.290 730 1 (ID: 133)'</li>\n",
       "\t<li>'709.284 697 1 (ID: 155)'</li>\n",
       "\t<li>'721.303 945 1 (ID: 159)'</li>\n",
       "\t<li>'723.299 822 1 (ID: 13)'</li>\n",
       "\t<li>'725.339 774 1 (ID: 165)'</li>\n",
       "\t<li>'730.340 898 1 (ID: 38)'</li>\n",
       "\t<li>'737.310 963 1 (ID: 83)'</li>\n",
       "\t<li>'739.319 785 1 (ID: 101)'</li>\n",
       "\t<li>'739.319 593 1 (ID: 91)'</li>\n",
       "\t<li>'747.321 773 1 (ID: 134)'</li>\n",
       "\t<li>'753.332 773 1 (ID: 625)'</li>\n",
       "\t<li>'757.285 870 1 (ID: 223)'</li>\n",
       "\t<li>'758.373 1047 1 (ID: 144)'</li>\n",
       "\t<li>'758.373 1257 1 (ID: 615)'</li>\n",
       "\t<li>'761.301 805 1 (ID: 110)'</li>\n",
       "\t<li>'761.301 595 1 (ID: 176)'</li>\n",
       "\t<li>'767.345 870 1 (ID: 14)'</li>\n",
       "\t<li>'780.353 1045 1 (ID: 616)'</li>\n",
       "\t<li>'789.332 870 1 (ID: 34)'</li>\n",
       "\t<li>'789.332 1014 1 (ID: 108)'</li>\n",
       "\t<li>'792.357 1201 1 (ID: 32)'</li>\n",
       "\t<li>'793.361 1211 1 (ID: 378)'</li>\n",
       "\t<li>'802.398 1055 1 (ID: 137)'</li>\n",
       "\t<li>'803.307 939 1 (ID: 24)'</li>\n",
       "\t<li>'806.335 1158 1 (ID: 111)'</li>\n",
       "\t<li>'806.335 1061 1 (ID: 31)'</li>\n",
       "\t<li>'814.337 1192 1 (ID: 293)'</li>\n",
       "\t<li>'817.321 1105 1 (ID: 291)'</li>\n",
       "\t<li>'820.349 1210 1 (ID: 180)'</li>\n",
       "\t<li>'824.377 1038 1 (ID: 619)'</li>\n",
       "\t<li>'828.318 1067 1 (ID: 210)'</li>\n",
       "\t<li>'834.368 1269 1 (ID: 76)'</li>\n",
       "\t<li>'834.368 1463 1 (ID: 620)'</li>\n",
       "\t<li>'836.384 1150 1 (ID: 161)'</li>\n",
       "\t<li>'840.319 1120 1 (ID: 70)'</li>\n",
       "\t<li>'844.411 1331 1 (ID: 73)'</li>\n",
       "\t<li>'856.348 1463 1 (ID: 611)'</li>\n",
       "\t<li>'856.348 1245 1 (ID: 643)'</li>\n",
       "\t<li>'858.369 1147 1 (ID: 622)'</li>\n",
       "\t<li>'866.393 1330 1 (ID: 286)'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '383.222 1524 1 (ID: 259)'\n",
       "\\item '401.232 1290 1 (ID: 171)'\n",
       "\\item '401.232 1619 1 (ID: 23)'\n",
       "\\item '401.232 1527 1 (ID: 7)'\n",
       "\\item '563.296 1291 1 (ID: 164)'\n",
       "\\item '571.255 559 1 (ID: 626)'\n",
       "\\item '571.301 1719 1 (ID: 50)'\n",
       "\\item '577.265 998 1 (ID: 194)'\n",
       "\\item '589.311 1520 1 (ID: 22)'\n",
       "\\item '591.326 1626 1 (ID: 142)'\n",
       "\\item '613.266 824 1 (ID: 107)'\n",
       "\\item '613.266 874 1 (ID: 372)'\n",
       "\\item '641.294 836 1 (ID: 375)'\n",
       "\\item '641.294 742 1 (ID: 100)'\n",
       "\\item '647.307 997 1 (ID: 157)'\n",
       "\\item '661.287 945 1 (ID: 163)'\n",
       "\\item '669.289 697 1 (ID: 154)'\n",
       "\\item '681.290 558 1 (ID: 214)'\n",
       "\\item '681.290 742 1 (ID: 106)'\n",
       "\\item '683.303 823 1 (ID: 3)'\n",
       "\\item '684.310 823 1 (ID: 5)'\n",
       "\\item '701.314 827 1 (ID: 198)'\n",
       "\\item '703.290 730 1 (ID: 133)'\n",
       "\\item '709.284 697 1 (ID: 155)'\n",
       "\\item '721.303 945 1 (ID: 159)'\n",
       "\\item '723.299 822 1 (ID: 13)'\n",
       "\\item '725.339 774 1 (ID: 165)'\n",
       "\\item '730.340 898 1 (ID: 38)'\n",
       "\\item '737.310 963 1 (ID: 83)'\n",
       "\\item '739.319 785 1 (ID: 101)'\n",
       "\\item '739.319 593 1 (ID: 91)'\n",
       "\\item '747.321 773 1 (ID: 134)'\n",
       "\\item '753.332 773 1 (ID: 625)'\n",
       "\\item '757.285 870 1 (ID: 223)'\n",
       "\\item '758.373 1047 1 (ID: 144)'\n",
       "\\item '758.373 1257 1 (ID: 615)'\n",
       "\\item '761.301 805 1 (ID: 110)'\n",
       "\\item '761.301 595 1 (ID: 176)'\n",
       "\\item '767.345 870 1 (ID: 14)'\n",
       "\\item '780.353 1045 1 (ID: 616)'\n",
       "\\item '789.332 870 1 (ID: 34)'\n",
       "\\item '789.332 1014 1 (ID: 108)'\n",
       "\\item '792.357 1201 1 (ID: 32)'\n",
       "\\item '793.361 1211 1 (ID: 378)'\n",
       "\\item '802.398 1055 1 (ID: 137)'\n",
       "\\item '803.307 939 1 (ID: 24)'\n",
       "\\item '806.335 1158 1 (ID: 111)'\n",
       "\\item '806.335 1061 1 (ID: 31)'\n",
       "\\item '814.337 1192 1 (ID: 293)'\n",
       "\\item '817.321 1105 1 (ID: 291)'\n",
       "\\item '820.349 1210 1 (ID: 180)'\n",
       "\\item '824.377 1038 1 (ID: 619)'\n",
       "\\item '828.318 1067 1 (ID: 210)'\n",
       "\\item '834.368 1269 1 (ID: 76)'\n",
       "\\item '834.368 1463 1 (ID: 620)'\n",
       "\\item '836.384 1150 1 (ID: 161)'\n",
       "\\item '840.319 1120 1 (ID: 70)'\n",
       "\\item '844.411 1331 1 (ID: 73)'\n",
       "\\item '856.348 1463 1 (ID: 611)'\n",
       "\\item '856.348 1245 1 (ID: 643)'\n",
       "\\item '858.369 1147 1 (ID: 622)'\n",
       "\\item '866.393 1330 1 (ID: 286)'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. '383.222 1524 1 (ID: 259)'\n",
       "2. '401.232 1290 1 (ID: 171)'\n",
       "3. '401.232 1619 1 (ID: 23)'\n",
       "4. '401.232 1527 1 (ID: 7)'\n",
       "5. '563.296 1291 1 (ID: 164)'\n",
       "6. '571.255 559 1 (ID: 626)'\n",
       "7. '571.301 1719 1 (ID: 50)'\n",
       "8. '577.265 998 1 (ID: 194)'\n",
       "9. '589.311 1520 1 (ID: 22)'\n",
       "10. '591.326 1626 1 (ID: 142)'\n",
       "11. '613.266 824 1 (ID: 107)'\n",
       "12. '613.266 874 1 (ID: 372)'\n",
       "13. '641.294 836 1 (ID: 375)'\n",
       "14. '641.294 742 1 (ID: 100)'\n",
       "15. '647.307 997 1 (ID: 157)'\n",
       "16. '661.287 945 1 (ID: 163)'\n",
       "17. '669.289 697 1 (ID: 154)'\n",
       "18. '681.290 558 1 (ID: 214)'\n",
       "19. '681.290 742 1 (ID: 106)'\n",
       "20. '683.303 823 1 (ID: 3)'\n",
       "21. '684.310 823 1 (ID: 5)'\n",
       "22. '701.314 827 1 (ID: 198)'\n",
       "23. '703.290 730 1 (ID: 133)'\n",
       "24. '709.284 697 1 (ID: 155)'\n",
       "25. '721.303 945 1 (ID: 159)'\n",
       "26. '723.299 822 1 (ID: 13)'\n",
       "27. '725.339 774 1 (ID: 165)'\n",
       "28. '730.340 898 1 (ID: 38)'\n",
       "29. '737.310 963 1 (ID: 83)'\n",
       "30. '739.319 785 1 (ID: 101)'\n",
       "31. '739.319 593 1 (ID: 91)'\n",
       "32. '747.321 773 1 (ID: 134)'\n",
       "33. '753.332 773 1 (ID: 625)'\n",
       "34. '757.285 870 1 (ID: 223)'\n",
       "35. '758.373 1047 1 (ID: 144)'\n",
       "36. '758.373 1257 1 (ID: 615)'\n",
       "37. '761.301 805 1 (ID: 110)'\n",
       "38. '761.301 595 1 (ID: 176)'\n",
       "39. '767.345 870 1 (ID: 14)'\n",
       "40. '780.353 1045 1 (ID: 616)'\n",
       "41. '789.332 870 1 (ID: 34)'\n",
       "42. '789.332 1014 1 (ID: 108)'\n",
       "43. '792.357 1201 1 (ID: 32)'\n",
       "44. '793.361 1211 1 (ID: 378)'\n",
       "45. '802.398 1055 1 (ID: 137)'\n",
       "46. '803.307 939 1 (ID: 24)'\n",
       "47. '806.335 1158 1 (ID: 111)'\n",
       "48. '806.335 1061 1 (ID: 31)'\n",
       "49. '814.337 1192 1 (ID: 293)'\n",
       "50. '817.321 1105 1 (ID: 291)'\n",
       "51. '820.349 1210 1 (ID: 180)'\n",
       "52. '824.377 1038 1 (ID: 619)'\n",
       "53. '828.318 1067 1 (ID: 210)'\n",
       "54. '834.368 1269 1 (ID: 76)'\n",
       "55. '834.368 1463 1 (ID: 620)'\n",
       "56. '836.384 1150 1 (ID: 161)'\n",
       "57. '840.319 1120 1 (ID: 70)'\n",
       "58. '844.411 1331 1 (ID: 73)'\n",
       "59. '856.348 1463 1 (ID: 611)'\n",
       "60. '856.348 1245 1 (ID: 643)'\n",
       "61. '858.369 1147 1 (ID: 622)'\n",
       "62. '866.393 1330 1 (ID: 286)'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"383.222 1524 1 (ID: 259)\" \"401.232 1290 1 (ID: 171)\"\n",
       " [3] \"401.232 1619 1 (ID: 23)\"  \"401.232 1527 1 (ID: 7)\"  \n",
       " [5] \"563.296 1291 1 (ID: 164)\" \"571.255 559 1 (ID: 626)\" \n",
       " [7] \"571.301 1719 1 (ID: 50)\"  \"577.265 998 1 (ID: 194)\" \n",
       " [9] \"589.311 1520 1 (ID: 22)\"  \"591.326 1626 1 (ID: 142)\"\n",
       "[11] \"613.266 824 1 (ID: 107)\"  \"613.266 874 1 (ID: 372)\" \n",
       "[13] \"641.294 836 1 (ID: 375)\"  \"641.294 742 1 (ID: 100)\" \n",
       "[15] \"647.307 997 1 (ID: 157)\"  \"661.287 945 1 (ID: 163)\" \n",
       "[17] \"669.289 697 1 (ID: 154)\"  \"681.290 558 1 (ID: 214)\" \n",
       "[19] \"681.290 742 1 (ID: 106)\"  \"683.303 823 1 (ID: 3)\"   \n",
       "[21] \"684.310 823 1 (ID: 5)\"    \"701.314 827 1 (ID: 198)\" \n",
       "[23] \"703.290 730 1 (ID: 133)\"  \"709.284 697 1 (ID: 155)\" \n",
       "[25] \"721.303 945 1 (ID: 159)\"  \"723.299 822 1 (ID: 13)\"  \n",
       "[27] \"725.339 774 1 (ID: 165)\"  \"730.340 898 1 (ID: 38)\"  \n",
       "[29] \"737.310 963 1 (ID: 83)\"   \"739.319 785 1 (ID: 101)\" \n",
       "[31] \"739.319 593 1 (ID: 91)\"   \"747.321 773 1 (ID: 134)\" \n",
       "[33] \"753.332 773 1 (ID: 625)\"  \"757.285 870 1 (ID: 223)\" \n",
       "[35] \"758.373 1047 1 (ID: 144)\" \"758.373 1257 1 (ID: 615)\"\n",
       "[37] \"761.301 805 1 (ID: 110)\"  \"761.301 595 1 (ID: 176)\" \n",
       "[39] \"767.345 870 1 (ID: 14)\"   \"780.353 1045 1 (ID: 616)\"\n",
       "[41] \"789.332 870 1 (ID: 34)\"   \"789.332 1014 1 (ID: 108)\"\n",
       "[43] \"792.357 1201 1 (ID: 32)\"  \"793.361 1211 1 (ID: 378)\"\n",
       "[45] \"802.398 1055 1 (ID: 137)\" \"803.307 939 1 (ID: 24)\"  \n",
       "[47] \"806.335 1158 1 (ID: 111)\" \"806.335 1061 1 (ID: 31)\" \n",
       "[49] \"814.337 1192 1 (ID: 293)\" \"817.321 1105 1 (ID: 291)\"\n",
       "[51] \"820.349 1210 1 (ID: 180)\" \"824.377 1038 1 (ID: 619)\"\n",
       "[53] \"828.318 1067 1 (ID: 210)\" \"834.368 1269 1 (ID: 76)\" \n",
       "[55] \"834.368 1463 1 (ID: 620)\" \"836.384 1150 1 (ID: 161)\"\n",
       "[57] \"840.319 1120 1 (ID: 70)\"  \"844.411 1331 1 (ID: 73)\" \n",
       "[59] \"856.348 1463 1 (ID: 611)\" \"856.348 1245 1 (ID: 643)\"\n",
       "[61] \"858.369 1147 1 (ID: 622)\" \"866.393 1330 1 (ID: 286)\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Show the features ID with correlation coefficient\n",
    "nm <- colnames(tab)\n",
    "nm[-c(1:2)][as.numeric(ct[-c(1,2),2])<0.05]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>17</li>\n",
       "\t<li>27</li>\n",
       "\t<li>29</li>\n",
       "\t<li>30</li>\n",
       "\t<li>94</li>\n",
       "\t<li>99</li>\n",
       "\t<li>100</li>\n",
       "\t<li>108</li>\n",
       "\t<li>115</li>\n",
       "\t<li>120</li>\n",
       "\t<li>137</li>\n",
       "\t<li>138</li>\n",
       "\t<li>157</li>\n",
       "\t<li>158</li>\n",
       "\t<li>162</li>\n",
       "\t<li>171</li>\n",
       "\t<li>183</li>\n",
       "\t<li>201</li>\n",
       "\t<li>202</li>\n",
       "\t<li>207</li>\n",
       "\t<li>210</li>\n",
       "\t<li>239</li>\n",
       "\t<li>241</li>\n",
       "\t<li>255</li>\n",
       "\t<li>285</li>\n",
       "\t<li>292</li>\n",
       "\t<li>299</li>\n",
       "\t<li>306</li>\n",
       "\t<li>323</li>\n",
       "\t<li>329</li>\n",
       "\t<li>331</li>\n",
       "\t<li>346</li>\n",
       "\t<li>357</li>\n",
       "\t<li>360</li>\n",
       "\t<li>366</li>\n",
       "\t<li>367</li>\n",
       "\t<li>370</li>\n",
       "\t<li>371</li>\n",
       "\t<li>390</li>\n",
       "\t<li>416</li>\n",
       "\t<li>431</li>\n",
       "\t<li>433</li>\n",
       "\t<li>440</li>\n",
       "\t<li>446</li>\n",
       "\t<li>461</li>\n",
       "\t<li>462</li>\n",
       "\t<li>467</li>\n",
       "\t<li>469</li>\n",
       "\t<li>476</li>\n",
       "\t<li>482</li>\n",
       "\t<li>487</li>\n",
       "\t<li>496</li>\n",
       "\t<li>504</li>\n",
       "\t<li>512</li>\n",
       "\t<li>513</li>\n",
       "\t<li>518</li>\n",
       "\t<li>524</li>\n",
       "\t<li>531</li>\n",
       "\t<li>543</li>\n",
       "\t<li>544</li>\n",
       "\t<li>545</li>\n",
       "\t<li>556</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 17\n",
       "\\item 27\n",
       "\\item 29\n",
       "\\item 30\n",
       "\\item 94\n",
       "\\item 99\n",
       "\\item 100\n",
       "\\item 108\n",
       "\\item 115\n",
       "\\item 120\n",
       "\\item 137\n",
       "\\item 138\n",
       "\\item 157\n",
       "\\item 158\n",
       "\\item 162\n",
       "\\item 171\n",
       "\\item 183\n",
       "\\item 201\n",
       "\\item 202\n",
       "\\item 207\n",
       "\\item 210\n",
       "\\item 239\n",
       "\\item 241\n",
       "\\item 255\n",
       "\\item 285\n",
       "\\item 292\n",
       "\\item 299\n",
       "\\item 306\n",
       "\\item 323\n",
       "\\item 329\n",
       "\\item 331\n",
       "\\item 346\n",
       "\\item 357\n",
       "\\item 360\n",
       "\\item 366\n",
       "\\item 367\n",
       "\\item 370\n",
       "\\item 371\n",
       "\\item 390\n",
       "\\item 416\n",
       "\\item 431\n",
       "\\item 433\n",
       "\\item 440\n",
       "\\item 446\n",
       "\\item 461\n",
       "\\item 462\n",
       "\\item 467\n",
       "\\item 469\n",
       "\\item 476\n",
       "\\item 482\n",
       "\\item 487\n",
       "\\item 496\n",
       "\\item 504\n",
       "\\item 512\n",
       "\\item 513\n",
       "\\item 518\n",
       "\\item 524\n",
       "\\item 531\n",
       "\\item 543\n",
       "\\item 544\n",
       "\\item 545\n",
       "\\item 556\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 17\n",
       "2. 27\n",
       "3. 29\n",
       "4. 30\n",
       "5. 94\n",
       "6. 99\n",
       "7. 100\n",
       "8. 108\n",
       "9. 115\n",
       "10. 120\n",
       "11. 137\n",
       "12. 138\n",
       "13. 157\n",
       "14. 158\n",
       "15. 162\n",
       "16. 171\n",
       "17. 183\n",
       "18. 201\n",
       "19. 202\n",
       "20. 207\n",
       "21. 210\n",
       "22. 239\n",
       "23. 241\n",
       "24. 255\n",
       "25. 285\n",
       "26. 292\n",
       "27. 299\n",
       "28. 306\n",
       "29. 323\n",
       "30. 329\n",
       "31. 331\n",
       "32. 346\n",
       "33. 357\n",
       "34. 360\n",
       "35. 366\n",
       "36. 367\n",
       "37. 370\n",
       "38. 371\n",
       "39. 390\n",
       "40. 416\n",
       "41. 431\n",
       "42. 433\n",
       "43. 440\n",
       "44. 446\n",
       "45. 461\n",
       "46. 462\n",
       "47. 467\n",
       "48. 469\n",
       "49. 476\n",
       "50. 482\n",
       "51. 487\n",
       "52. 496\n",
       "53. 504\n",
       "54. 512\n",
       "55. 513\n",
       "56. 518\n",
       "57. 524\n",
       "58. 531\n",
       "59. 543\n",
       "60. 544\n",
       "61. 545\n",
       "62. 556\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  17  27  29  30  94  99 100 108 115 120 137 138 157 158 162 171 183 201 202\n",
       "[20] 207 210 239 241 255 285 292 299 306 323 329 331 346 357 360 366 367 370 371\n",
       "[39] 390 416 431 433 440 446 461 462 467 469 476 482 487 496 504 512 513 518 524\n",
       "[58] 531 543 544 545 556"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Display feature ID with correlation coefficient\n",
    "which(as.numeric(ct[-c(1,2),2])<0.05)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>estimate.cor</th><th scope=col>p.value</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>0.911533897243834   </td><td>5.70642706988177e-06</td></tr>\n",
       "\t<tr><td>0.878799706808992   </td><td>3.50720064572382e-05</td></tr>\n",
       "\t<tr><td>0.907554668668843   </td><td>7.36501900414158e-06</td></tr>\n",
       "\t<tr><td>0.905633511042207   </td><td>8.29688606983179e-06</td></tr>\n",
       "\t<tr><td>0.919233388225548   </td><td>3.36127974167346e-06</td></tr>\n",
       "\t<tr><td>0.873397143507255   </td><td>4.50107734106115e-05</td></tr>\n",
       "\t<tr><td>0.911780588059994   </td><td>5.61468814684507e-06</td></tr>\n",
       "\t<tr><td>0.910238252830603   </td><td>6.20871030421146e-06</td></tr>\n",
       "\t<tr><td>0.913168025609065   </td><td>5.12101071510364e-06</td></tr>\n",
       "\t<tr><td>0.924118681813123   </td><td>2.33675278160981e-06</td></tr>\n",
       "\t<tr><td>0.912446115095417   </td><td>5.37321987817741e-06</td></tr>\n",
       "\t<tr><td>0.909168097398238   </td><td>6.65046056461141e-06</td></tr>\n",
       "\t<tr><td>0.908750730317772   </td><td>6.82959409212825e-06</td></tr>\n",
       "\t<tr><td>0.903469693833746   </td><td>9.46016510782993e-06</td></tr>\n",
       "\t<tr><td>0.913682499495506   </td><td>4.94727808293174e-06</td></tr>\n",
       "\t<tr><td>0.913621584008372   </td><td>4.96759212655945e-06</td></tr>\n",
       "\t<tr><td>0.91877904712798    </td><td>3.47284418713954e-06</td></tr>\n",
       "\t<tr><td>0.909406845640792   </td><td>6.54973756668056e-06</td></tr>\n",
       "\t<tr><td>0.90852883692825    </td><td>6.926431905708e-06  </td></tr>\n",
       "\t<tr><td>0.908610221802209   </td><td>6.8907841720912e-06 </td></tr>\n",
       "\t<tr><td>0.909308179795676   </td><td>6.59120964802321e-06</td></tr>\n",
       "\t<tr><td>0.889282451277205   </td><td>2.08667767216834e-05</td></tr>\n",
       "\t<tr><td>0.909063037437745   </td><td>6.69518444994103e-06</td></tr>\n",
       "\t<tr><td>0.901897080496688   </td><td>1.03869211858024e-05</td></tr>\n",
       "\t<tr><td>0.905195786538979   </td><td>8.52218951806114e-06</td></tr>\n",
       "\t<tr><td>0.90395817337596    </td><td>9.18652895467969e-06</td></tr>\n",
       "\t<tr><td>0.923738382289659   </td><td>2.40588506103265e-06</td></tr>\n",
       "\t<tr><td>0.921999318234641   </td><td>2.74385026956296e-06</td></tr>\n",
       "\t<tr><td>0.905509076308344   </td><td>8.36043110920218e-06</td></tr>\n",
       "\t<tr><td>0.871731080861502   </td><td>4.85011994402159e-05</td></tr>\n",
       "\t<tr><td>0.891331282554114   </td><td>1.87402708603248e-05</td></tr>\n",
       "\t<tr><td>0.933752100280592   </td><td>1.05695832217044e-06</td></tr>\n",
       "\t<tr><td>0.894156126374196   </td><td>1.61022576628837e-05</td></tr>\n",
       "\t<tr><td>0.90219043017115    </td><td>1.02086238434626e-05</td></tr>\n",
       "\t<tr><td>0.897942579295204   </td><td>1.30506714142088e-05</td></tr>\n",
       "\t<tr><td>0.867046568083299   </td><td>5.95151710698051e-05</td></tr>\n",
       "\t<tr><td>0.909289865439579   </td><td>6.59893137643642e-06</td></tr>\n",
       "\t<tr><td>0.883102483376681   </td><td>2.85081919046844e-05</td></tr>\n",
       "\t<tr><td>0.905183655710881   </td><td>8.52850420743198e-06</td></tr>\n",
       "\t<tr><td>0.910950083977404   </td><td>5.92844970998812e-06</td></tr>\n",
       "\t<tr><td>0.907017503712168   </td><td>7.6164480337101e-06 </td></tr>\n",
       "\t<tr><td>0.878834929618014   </td><td>3.50136696236415e-05</td></tr>\n",
       "\t<tr><td>0.901020411517196   </td><td>1.0935045261547e-05 </td></tr>\n",
       "\t<tr><td>0.90239648309029    </td><td>1.00848926322226e-05</td></tr>\n",
       "\t<tr><td>0.859089171132233   </td><td>8.28464025632242e-05</td></tr>\n",
       "\t<tr><td>0.883270625800804   </td><td>2.8273713904114e-05 </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{ll}\n",
       " estimate.cor & p.value\\\\\n",
       "\\hline\n",
       "\t 0.911533897243834    & 5.70642706988177e-06\\\\\n",
       "\t 0.878799706808992    & 3.50720064572382e-05\\\\\n",
       "\t 0.907554668668843    & 7.36501900414158e-06\\\\\n",
       "\t 0.905633511042207    & 8.29688606983179e-06\\\\\n",
       "\t 0.919233388225548    & 3.36127974167346e-06\\\\\n",
       "\t 0.873397143507255    & 4.50107734106115e-05\\\\\n",
       "\t 0.911780588059994    & 5.61468814684507e-06\\\\\n",
       "\t 0.910238252830603    & 6.20871030421146e-06\\\\\n",
       "\t 0.913168025609065    & 5.12101071510364e-06\\\\\n",
       "\t 0.924118681813123    & 2.33675278160981e-06\\\\\n",
       "\t 0.912446115095417    & 5.37321987817741e-06\\\\\n",
       "\t 0.909168097398238    & 6.65046056461141e-06\\\\\n",
       "\t 0.908750730317772    & 6.82959409212825e-06\\\\\n",
       "\t 0.903469693833746    & 9.46016510782993e-06\\\\\n",
       "\t 0.913682499495506    & 4.94727808293174e-06\\\\\n",
       "\t 0.913621584008372    & 4.96759212655945e-06\\\\\n",
       "\t 0.91877904712798     & 3.47284418713954e-06\\\\\n",
       "\t 0.909406845640792    & 6.54973756668056e-06\\\\\n",
       "\t 0.90852883692825     & 6.926431905708e-06  \\\\\n",
       "\t 0.908610221802209    & 6.8907841720912e-06 \\\\\n",
       "\t 0.909308179795676    & 6.59120964802321e-06\\\\\n",
       "\t 0.889282451277205    & 2.08667767216834e-05\\\\\n",
       "\t 0.909063037437745    & 6.69518444994103e-06\\\\\n",
       "\t 0.901897080496688    & 1.03869211858024e-05\\\\\n",
       "\t 0.905195786538979    & 8.52218951806114e-06\\\\\n",
       "\t 0.90395817337596     & 9.18652895467969e-06\\\\\n",
       "\t 0.923738382289659    & 2.40588506103265e-06\\\\\n",
       "\t 0.921999318234641    & 2.74385026956296e-06\\\\\n",
       "\t 0.905509076308344    & 8.36043110920218e-06\\\\\n",
       "\t 0.871731080861502    & 4.85011994402159e-05\\\\\n",
       "\t 0.891331282554114    & 1.87402708603248e-05\\\\\n",
       "\t 0.933752100280592    & 1.05695832217044e-06\\\\\n",
       "\t 0.894156126374196    & 1.61022576628837e-05\\\\\n",
       "\t 0.90219043017115     & 1.02086238434626e-05\\\\\n",
       "\t 0.897942579295204    & 1.30506714142088e-05\\\\\n",
       "\t 0.867046568083299    & 5.95151710698051e-05\\\\\n",
       "\t 0.909289865439579    & 6.59893137643642e-06\\\\\n",
       "\t 0.883102483376681    & 2.85081919046844e-05\\\\\n",
       "\t 0.905183655710881    & 8.52850420743198e-06\\\\\n",
       "\t 0.910950083977404    & 5.92844970998812e-06\\\\\n",
       "\t 0.907017503712168    & 7.6164480337101e-06 \\\\\n",
       "\t 0.878834929618014    & 3.50136696236415e-05\\\\\n",
       "\t 0.901020411517196    & 1.0935045261547e-05 \\\\\n",
       "\t 0.90239648309029     & 1.00848926322226e-05\\\\\n",
       "\t 0.859089171132233    & 8.28464025632242e-05\\\\\n",
       "\t 0.883270625800804    & 2.8273713904114e-05 \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "estimate.cor | p.value | \n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "| 0.911533897243834    | 5.70642706988177e-06 | \n",
       "| 0.878799706808992    | 3.50720064572382e-05 | \n",
       "| 0.907554668668843    | 7.36501900414158e-06 | \n",
       "| 0.905633511042207    | 8.29688606983179e-06 | \n",
       "| 0.919233388225548    | 3.36127974167346e-06 | \n",
       "| 0.873397143507255    | 4.50107734106115e-05 | \n",
       "| 0.911780588059994    | 5.61468814684507e-06 | \n",
       "| 0.910238252830603    | 6.20871030421146e-06 | \n",
       "| 0.913168025609065    | 5.12101071510364e-06 | \n",
       "| 0.924118681813123    | 2.33675278160981e-06 | \n",
       "| 0.912446115095417    | 5.37321987817741e-06 | \n",
       "| 0.909168097398238    | 6.65046056461141e-06 | \n",
       "| 0.908750730317772    | 6.82959409212825e-06 | \n",
       "| 0.903469693833746    | 9.46016510782993e-06 | \n",
       "| 0.913682499495506    | 4.94727808293174e-06 | \n",
       "| 0.913621584008372    | 4.96759212655945e-06 | \n",
       "| 0.91877904712798     | 3.47284418713954e-06 | \n",
       "| 0.909406845640792    | 6.54973756668056e-06 | \n",
       "| 0.90852883692825     | 6.926431905708e-06   | \n",
       "| 0.908610221802209    | 6.8907841720912e-06  | \n",
       "| 0.909308179795676    | 6.59120964802321e-06 | \n",
       "| 0.889282451277205    | 2.08667767216834e-05 | \n",
       "| 0.909063037437745    | 6.69518444994103e-06 | \n",
       "| 0.901897080496688    | 1.03869211858024e-05 | \n",
       "| 0.905195786538979    | 8.52218951806114e-06 | \n",
       "| 0.90395817337596     | 9.18652895467969e-06 | \n",
       "| 0.923738382289659    | 2.40588506103265e-06 | \n",
       "| 0.921999318234641    | 2.74385026956296e-06 | \n",
       "| 0.905509076308344    | 8.36043110920218e-06 | \n",
       "| 0.871731080861502    | 4.85011994402159e-05 | \n",
       "| 0.891331282554114    | 1.87402708603248e-05 | \n",
       "| 0.933752100280592    | 1.05695832217044e-06 | \n",
       "| 0.894156126374196    | 1.61022576628837e-05 | \n",
       "| 0.90219043017115     | 1.02086238434626e-05 | \n",
       "| 0.897942579295204    | 1.30506714142088e-05 | \n",
       "| 0.867046568083299    | 5.95151710698051e-05 | \n",
       "| 0.909289865439579    | 6.59893137643642e-06 | \n",
       "| 0.883102483376681    | 2.85081919046844e-05 | \n",
       "| 0.905183655710881    | 8.52850420743198e-06 | \n",
       "| 0.910950083977404    | 5.92844970998812e-06 | \n",
       "| 0.907017503712168    | 7.6164480337101e-06  | \n",
       "| 0.878834929618014    | 3.50136696236415e-05 | \n",
       "| 0.901020411517196    | 1.0935045261547e-05  | \n",
       "| 0.90239648309029     | 1.00848926322226e-05 | \n",
       "| 0.859089171132233    | 8.28464025632242e-05 | \n",
       "| 0.883270625800804    | 2.8273713904114e-05  | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "      estimate.cor      p.value             \n",
       " [1,] 0.911533897243834 5.70642706988177e-06\n",
       " [2,] 0.878799706808992 3.50720064572382e-05\n",
       " [3,] 0.907554668668843 7.36501900414158e-06\n",
       " [4,] 0.905633511042207 8.29688606983179e-06\n",
       " [5,] 0.919233388225548 3.36127974167346e-06\n",
       " [6,] 0.873397143507255 4.50107734106115e-05\n",
       " [7,] 0.911780588059994 5.61468814684507e-06\n",
       " [8,] 0.910238252830603 6.20871030421146e-06\n",
       " [9,] 0.913168025609065 5.12101071510364e-06\n",
       "[10,] 0.924118681813123 2.33675278160981e-06\n",
       "[11,] 0.912446115095417 5.37321987817741e-06\n",
       "[12,] 0.909168097398238 6.65046056461141e-06\n",
       "[13,] 0.908750730317772 6.82959409212825e-06\n",
       "[14,] 0.903469693833746 9.46016510782993e-06\n",
       "[15,] 0.913682499495506 4.94727808293174e-06\n",
       "[16,] 0.913621584008372 4.96759212655945e-06\n",
       "[17,] 0.91877904712798  3.47284418713954e-06\n",
       "[18,] 0.909406845640792 6.54973756668056e-06\n",
       "[19,] 0.90852883692825  6.926431905708e-06  \n",
       "[20,] 0.908610221802209 6.8907841720912e-06 \n",
       "[21,] 0.909308179795676 6.59120964802321e-06\n",
       "[22,] 0.889282451277205 2.08667767216834e-05\n",
       "[23,] 0.909063037437745 6.69518444994103e-06\n",
       "[24,] 0.901897080496688 1.03869211858024e-05\n",
       "[25,] 0.905195786538979 8.52218951806114e-06\n",
       "[26,] 0.90395817337596  9.18652895467969e-06\n",
       "[27,] 0.923738382289659 2.40588506103265e-06\n",
       "[28,] 0.921999318234641 2.74385026956296e-06\n",
       "[29,] 0.905509076308344 8.36043110920218e-06\n",
       "[30,] 0.871731080861502 4.85011994402159e-05\n",
       "[31,] 0.891331282554114 1.87402708603248e-05\n",
       "[32,] 0.933752100280592 1.05695832217044e-06\n",
       "[33,] 0.894156126374196 1.61022576628837e-05\n",
       "[34,] 0.90219043017115  1.02086238434626e-05\n",
       "[35,] 0.897942579295204 1.30506714142088e-05\n",
       "[36,] 0.867046568083299 5.95151710698051e-05\n",
       "[37,] 0.909289865439579 6.59893137643642e-06\n",
       "[38,] 0.883102483376681 2.85081919046844e-05\n",
       "[39,] 0.905183655710881 8.52850420743198e-06\n",
       "[40,] 0.910950083977404 5.92844970998812e-06\n",
       "[41,] 0.907017503712168 7.6164480337101e-06 \n",
       "[42,] 0.878834929618014 3.50136696236415e-05\n",
       "[43,] 0.901020411517196 1.0935045261547e-05 \n",
       "[44,] 0.90239648309029  1.00848926322226e-05\n",
       "[45,] 0.859089171132233 8.28464025632242e-05\n",
       "[46,] 0.883270625800804 2.8273713904114e-05 "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Table with significant correlation coefficients. Using Bonferroni method.\n",
    "ct[-c(1,2),][which(p.adjust(as.numeric(ct[-c(1:2),2]), method = \"bonferroni\")<0.05),]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>27</li>\n",
       "\t<li>30</li>\n",
       "\t<li>94</li>\n",
       "\t<li>99</li>\n",
       "\t<li>108</li>\n",
       "\t<li>115</li>\n",
       "\t<li>120</li>\n",
       "\t<li>137</li>\n",
       "\t<li>138</li>\n",
       "\t<li>157</li>\n",
       "\t<li>162</li>\n",
       "\t<li>171</li>\n",
       "\t<li>183</li>\n",
       "\t<li>201</li>\n",
       "\t<li>207</li>\n",
       "\t<li>210</li>\n",
       "\t<li>239</li>\n",
       "\t<li>241</li>\n",
       "\t<li>255</li>\n",
       "\t<li>285</li>\n",
       "\t<li>299</li>\n",
       "\t<li>331</li>\n",
       "\t<li>346</li>\n",
       "\t<li>357</li>\n",
       "\t<li>360</li>\n",
       "\t<li>366</li>\n",
       "\t<li>367</li>\n",
       "\t<li>371</li>\n",
       "\t<li>390</li>\n",
       "\t<li>416</li>\n",
       "\t<li>431</li>\n",
       "\t<li>433</li>\n",
       "\t<li>446</li>\n",
       "\t<li>461</li>\n",
       "\t<li>462</li>\n",
       "\t<li>469</li>\n",
       "\t<li>487</li>\n",
       "\t<li>496</li>\n",
       "\t<li>504</li>\n",
       "\t<li>513</li>\n",
       "\t<li>518</li>\n",
       "\t<li>524</li>\n",
       "\t<li>543</li>\n",
       "\t<li>544</li>\n",
       "\t<li>545</li>\n",
       "\t<li>556</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 27\n",
       "\\item 30\n",
       "\\item 94\n",
       "\\item 99\n",
       "\\item 108\n",
       "\\item 115\n",
       "\\item 120\n",
       "\\item 137\n",
       "\\item 138\n",
       "\\item 157\n",
       "\\item 162\n",
       "\\item 171\n",
       "\\item 183\n",
       "\\item 201\n",
       "\\item 207\n",
       "\\item 210\n",
       "\\item 239\n",
       "\\item 241\n",
       "\\item 255\n",
       "\\item 285\n",
       "\\item 299\n",
       "\\item 331\n",
       "\\item 346\n",
       "\\item 357\n",
       "\\item 360\n",
       "\\item 366\n",
       "\\item 367\n",
       "\\item 371\n",
       "\\item 390\n",
       "\\item 416\n",
       "\\item 431\n",
       "\\item 433\n",
       "\\item 446\n",
       "\\item 461\n",
       "\\item 462\n",
       "\\item 469\n",
       "\\item 487\n",
       "\\item 496\n",
       "\\item 504\n",
       "\\item 513\n",
       "\\item 518\n",
       "\\item 524\n",
       "\\item 543\n",
       "\\item 544\n",
       "\\item 545\n",
       "\\item 556\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 27\n",
       "2. 30\n",
       "3. 94\n",
       "4. 99\n",
       "5. 108\n",
       "6. 115\n",
       "7. 120\n",
       "8. 137\n",
       "9. 138\n",
       "10. 157\n",
       "11. 162\n",
       "12. 171\n",
       "13. 183\n",
       "14. 201\n",
       "15. 207\n",
       "16. 210\n",
       "17. 239\n",
       "18. 241\n",
       "19. 255\n",
       "20. 285\n",
       "21. 299\n",
       "22. 331\n",
       "23. 346\n",
       "24. 357\n",
       "25. 360\n",
       "26. 366\n",
       "27. 367\n",
       "28. 371\n",
       "29. 390\n",
       "30. 416\n",
       "31. 431\n",
       "32. 433\n",
       "33. 446\n",
       "34. 461\n",
       "35. 462\n",
       "36. 469\n",
       "37. 487\n",
       "38. 496\n",
       "39. 504\n",
       "40. 513\n",
       "41. 518\n",
       "42. 524\n",
       "43. 543\n",
       "44. 544\n",
       "45. 545\n",
       "46. 556\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  27  30  94  99 108 115 120 137 138 157 162 171 183 201 207 210 239 241 255\n",
       "[20] 285 299 331 346 357 360 366 367 371 390 416 431 433 446 461 462 469 487 496\n",
       "[39] 504 513 518 524 543 544 545 556"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Call the ID\n",
    "which(p.adjust(as.numeric(ct[-c(1:2),2]), method = \"bonferroni\")<0.05)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'401.232 1290 1 (ID: 171)'</li>\n",
       "\t<li>'401.232 1527 1 (ID: 7)'</li>\n",
       "\t<li>'563.296 1291 1 (ID: 164)'</li>\n",
       "\t<li>'571.255 559 1 (ID: 626)'</li>\n",
       "\t<li>'577.265 998 1 (ID: 194)'</li>\n",
       "\t<li>'589.311 1520 1 (ID: 22)'</li>\n",
       "\t<li>'591.326 1626 1 (ID: 142)'</li>\n",
       "\t<li>'613.266 824 1 (ID: 107)'</li>\n",
       "\t<li>'613.266 874 1 (ID: 372)'</li>\n",
       "\t<li>'641.294 836 1 (ID: 375)'</li>\n",
       "\t<li>'647.307 997 1 (ID: 157)'</li>\n",
       "\t<li>'661.287 945 1 (ID: 163)'</li>\n",
       "\t<li>'669.289 697 1 (ID: 154)'</li>\n",
       "\t<li>'681.290 558 1 (ID: 214)'</li>\n",
       "\t<li>'683.303 823 1 (ID: 3)'</li>\n",
       "\t<li>'684.310 823 1 (ID: 5)'</li>\n",
       "\t<li>'701.314 827 1 (ID: 198)'</li>\n",
       "\t<li>'703.290 730 1 (ID: 133)'</li>\n",
       "\t<li>'709.284 697 1 (ID: 155)'</li>\n",
       "\t<li>'721.303 945 1 (ID: 159)'</li>\n",
       "\t<li>'725.339 774 1 (ID: 165)'</li>\n",
       "\t<li>'739.319 593 1 (ID: 91)'</li>\n",
       "\t<li>'747.321 773 1 (ID: 134)'</li>\n",
       "\t<li>'753.332 773 1 (ID: 625)'</li>\n",
       "\t<li>'757.285 870 1 (ID: 223)'</li>\n",
       "\t<li>'758.373 1047 1 (ID: 144)'</li>\n",
       "\t<li>'758.373 1257 1 (ID: 615)'</li>\n",
       "\t<li>'761.301 595 1 (ID: 176)'</li>\n",
       "\t<li>'767.345 870 1 (ID: 14)'</li>\n",
       "\t<li>'780.353 1045 1 (ID: 616)'</li>\n",
       "\t<li>'789.332 870 1 (ID: 34)'</li>\n",
       "\t<li>'789.332 1014 1 (ID: 108)'</li>\n",
       "\t<li>'793.361 1211 1 (ID: 378)'</li>\n",
       "\t<li>'802.398 1055 1 (ID: 137)'</li>\n",
       "\t<li>'803.307 939 1 (ID: 24)'</li>\n",
       "\t<li>'806.335 1061 1 (ID: 31)'</li>\n",
       "\t<li>'820.349 1210 1 (ID: 180)'</li>\n",
       "\t<li>'824.377 1038 1 (ID: 619)'</li>\n",
       "\t<li>'828.318 1067 1 (ID: 210)'</li>\n",
       "\t<li>'834.368 1463 1 (ID: 620)'</li>\n",
       "\t<li>'836.384 1150 1 (ID: 161)'</li>\n",
       "\t<li>'840.319 1120 1 (ID: 70)'</li>\n",
       "\t<li>'856.348 1463 1 (ID: 611)'</li>\n",
       "\t<li>'856.348 1245 1 (ID: 643)'</li>\n",
       "\t<li>'858.369 1147 1 (ID: 622)'</li>\n",
       "\t<li>'866.393 1330 1 (ID: 286)'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '401.232 1290 1 (ID: 171)'\n",
       "\\item '401.232 1527 1 (ID: 7)'\n",
       "\\item '563.296 1291 1 (ID: 164)'\n",
       "\\item '571.255 559 1 (ID: 626)'\n",
       "\\item '577.265 998 1 (ID: 194)'\n",
       "\\item '589.311 1520 1 (ID: 22)'\n",
       "\\item '591.326 1626 1 (ID: 142)'\n",
       "\\item '613.266 824 1 (ID: 107)'\n",
       "\\item '613.266 874 1 (ID: 372)'\n",
       "\\item '641.294 836 1 (ID: 375)'\n",
       "\\item '647.307 997 1 (ID: 157)'\n",
       "\\item '661.287 945 1 (ID: 163)'\n",
       "\\item '669.289 697 1 (ID: 154)'\n",
       "\\item '681.290 558 1 (ID: 214)'\n",
       "\\item '683.303 823 1 (ID: 3)'\n",
       "\\item '684.310 823 1 (ID: 5)'\n",
       "\\item '701.314 827 1 (ID: 198)'\n",
       "\\item '703.290 730 1 (ID: 133)'\n",
       "\\item '709.284 697 1 (ID: 155)'\n",
       "\\item '721.303 945 1 (ID: 159)'\n",
       "\\item '725.339 774 1 (ID: 165)'\n",
       "\\item '739.319 593 1 (ID: 91)'\n",
       "\\item '747.321 773 1 (ID: 134)'\n",
       "\\item '753.332 773 1 (ID: 625)'\n",
       "\\item '757.285 870 1 (ID: 223)'\n",
       "\\item '758.373 1047 1 (ID: 144)'\n",
       "\\item '758.373 1257 1 (ID: 615)'\n",
       "\\item '761.301 595 1 (ID: 176)'\n",
       "\\item '767.345 870 1 (ID: 14)'\n",
       "\\item '780.353 1045 1 (ID: 616)'\n",
       "\\item '789.332 870 1 (ID: 34)'\n",
       "\\item '789.332 1014 1 (ID: 108)'\n",
       "\\item '793.361 1211 1 (ID: 378)'\n",
       "\\item '802.398 1055 1 (ID: 137)'\n",
       "\\item '803.307 939 1 (ID: 24)'\n",
       "\\item '806.335 1061 1 (ID: 31)'\n",
       "\\item '820.349 1210 1 (ID: 180)'\n",
       "\\item '824.377 1038 1 (ID: 619)'\n",
       "\\item '828.318 1067 1 (ID: 210)'\n",
       "\\item '834.368 1463 1 (ID: 620)'\n",
       "\\item '836.384 1150 1 (ID: 161)'\n",
       "\\item '840.319 1120 1 (ID: 70)'\n",
       "\\item '856.348 1463 1 (ID: 611)'\n",
       "\\item '856.348 1245 1 (ID: 643)'\n",
       "\\item '858.369 1147 1 (ID: 622)'\n",
       "\\item '866.393 1330 1 (ID: 286)'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. '401.232 1290 1 (ID: 171)'\n",
       "2. '401.232 1527 1 (ID: 7)'\n",
       "3. '563.296 1291 1 (ID: 164)'\n",
       "4. '571.255 559 1 (ID: 626)'\n",
       "5. '577.265 998 1 (ID: 194)'\n",
       "6. '589.311 1520 1 (ID: 22)'\n",
       "7. '591.326 1626 1 (ID: 142)'\n",
       "8. '613.266 824 1 (ID: 107)'\n",
       "9. '613.266 874 1 (ID: 372)'\n",
       "10. '641.294 836 1 (ID: 375)'\n",
       "11. '647.307 997 1 (ID: 157)'\n",
       "12. '661.287 945 1 (ID: 163)'\n",
       "13. '669.289 697 1 (ID: 154)'\n",
       "14. '681.290 558 1 (ID: 214)'\n",
       "15. '683.303 823 1 (ID: 3)'\n",
       "16. '684.310 823 1 (ID: 5)'\n",
       "17. '701.314 827 1 (ID: 198)'\n",
       "18. '703.290 730 1 (ID: 133)'\n",
       "19. '709.284 697 1 (ID: 155)'\n",
       "20. '721.303 945 1 (ID: 159)'\n",
       "21. '725.339 774 1 (ID: 165)'\n",
       "22. '739.319 593 1 (ID: 91)'\n",
       "23. '747.321 773 1 (ID: 134)'\n",
       "24. '753.332 773 1 (ID: 625)'\n",
       "25. '757.285 870 1 (ID: 223)'\n",
       "26. '758.373 1047 1 (ID: 144)'\n",
       "27. '758.373 1257 1 (ID: 615)'\n",
       "28. '761.301 595 1 (ID: 176)'\n",
       "29. '767.345 870 1 (ID: 14)'\n",
       "30. '780.353 1045 1 (ID: 616)'\n",
       "31. '789.332 870 1 (ID: 34)'\n",
       "32. '789.332 1014 1 (ID: 108)'\n",
       "33. '793.361 1211 1 (ID: 378)'\n",
       "34. '802.398 1055 1 (ID: 137)'\n",
       "35. '803.307 939 1 (ID: 24)'\n",
       "36. '806.335 1061 1 (ID: 31)'\n",
       "37. '820.349 1210 1 (ID: 180)'\n",
       "38. '824.377 1038 1 (ID: 619)'\n",
       "39. '828.318 1067 1 (ID: 210)'\n",
       "40. '834.368 1463 1 (ID: 620)'\n",
       "41. '836.384 1150 1 (ID: 161)'\n",
       "42. '840.319 1120 1 (ID: 70)'\n",
       "43. '856.348 1463 1 (ID: 611)'\n",
       "44. '856.348 1245 1 (ID: 643)'\n",
       "45. '858.369 1147 1 (ID: 622)'\n",
       "46. '866.393 1330 1 (ID: 286)'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"401.232 1290 1 (ID: 171)\" \"401.232 1527 1 (ID: 7)\"  \n",
       " [3] \"563.296 1291 1 (ID: 164)\" \"571.255 559 1 (ID: 626)\" \n",
       " [5] \"577.265 998 1 (ID: 194)\"  \"589.311 1520 1 (ID: 22)\" \n",
       " [7] \"591.326 1626 1 (ID: 142)\" \"613.266 824 1 (ID: 107)\" \n",
       " [9] \"613.266 874 1 (ID: 372)\"  \"641.294 836 1 (ID: 375)\" \n",
       "[11] \"647.307 997 1 (ID: 157)\"  \"661.287 945 1 (ID: 163)\" \n",
       "[13] \"669.289 697 1 (ID: 154)\"  \"681.290 558 1 (ID: 214)\" \n",
       "[15] \"683.303 823 1 (ID: 3)\"    \"684.310 823 1 (ID: 5)\"   \n",
       "[17] \"701.314 827 1 (ID: 198)\"  \"703.290 730 1 (ID: 133)\" \n",
       "[19] \"709.284 697 1 (ID: 155)\"  \"721.303 945 1 (ID: 159)\" \n",
       "[21] \"725.339 774 1 (ID: 165)\"  \"739.319 593 1 (ID: 91)\"  \n",
       "[23] \"747.321 773 1 (ID: 134)\"  \"753.332 773 1 (ID: 625)\" \n",
       "[25] \"757.285 870 1 (ID: 223)\"  \"758.373 1047 1 (ID: 144)\"\n",
       "[27] \"758.373 1257 1 (ID: 615)\" \"761.301 595 1 (ID: 176)\" \n",
       "[29] \"767.345 870 1 (ID: 14)\"   \"780.353 1045 1 (ID: 616)\"\n",
       "[31] \"789.332 870 1 (ID: 34)\"   \"789.332 1014 1 (ID: 108)\"\n",
       "[33] \"793.361 1211 1 (ID: 378)\" \"802.398 1055 1 (ID: 137)\"\n",
       "[35] \"803.307 939 1 (ID: 24)\"   \"806.335 1061 1 (ID: 31)\" \n",
       "[37] \"820.349 1210 1 (ID: 180)\" \"824.377 1038 1 (ID: 619)\"\n",
       "[39] \"828.318 1067 1 (ID: 210)\" \"834.368 1463 1 (ID: 620)\"\n",
       "[41] \"836.384 1150 1 (ID: 161)\" \"840.319 1120 1 (ID: 70)\" \n",
       "[43] \"856.348 1463 1 (ID: 611)\" \"856.348 1245 1 (ID: 643)\"\n",
       "[45] \"858.369 1147 1 (ID: 622)\" \"866.393 1330 1 (ID: 286)\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Features passing Bonferronii method\n",
    "nm[-c(1:2)][which(p.adjust(as.numeric(ct[-c(1:2),2]), method = \"bonferroni\")<0.05)]\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>shared name</th><th scope=col>IDs</th><th scope=col>cor</th><th scope=col> p_value</th><th scope=col>Extract</th><th scope=col>p_value_corrected</th><th scope=col>F_5</th><th scope=col>F_6</th><th scope=col>F_7</th><th scope=col>F_8</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>                         </td><td>BioactivityCHIKV         </td><td>0                        </td><td>0                        </td><td> 68.0                    </td><td>0                        </td><td>  1.0                    </td><td>  4.0                    </td><td>  1.0                    </td><td>  3.0                    </td></tr>\n",
       "\t<tr><td>1                        </td><td>270.279 1698 1 (ID: 9)   </td><td>-0.324377606725705       </td><td>0.257849356719369        </td><td>0.0001391824             </td><td>1                        </td><td>0.1594079650             </td><td>0.0228397314             </td><td>0.3139762067             </td><td>0.0551088883             </td></tr>\n",
       "\t<tr><td>2                        </td><td>271.283 1699 1 (ID: 355) </td><td>-0.318374649942669       </td><td>0.267271199671765        </td><td>0.0000139267             </td><td>1                        </td><td>0.0261136500             </td><td>0.0037518603             </td><td>0.0552725554             </td><td>0.0090100816             </td></tr>\n",
       "\t<tr><td>3                        </td><td>279.174 1413 1 (ID: 511) </td><td>0.11344978411662         </td><td>0.699375059832539        </td><td>7.760803e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>4                        </td><td>280.264 1420 1 (ID: 1029)</td><td>-0.200702959079237       </td><td>0.49145327312603         </td><td>4.456230e-05             </td><td>1                        </td><td>6.101911e-02             </td><td>8.258893e-05             </td><td>8.404894e-05             </td><td>5.121893e-05             </td></tr>\n",
       "\t<tr><td>5                        </td><td>281.190 1031 1 (ID: 1070)</td><td>-0.201330433729144       </td><td>0.490071225054009        </td><td>4.369353e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.194904e-04             </td><td>2.992650e-02             </td><td>8.518229e-05             </td></tr>\n",
       "\t<tr><td>6                        </td><td>282.279 1660 1 (ID: 345) </td><td>-0.201928970163321       </td><td>0.48875460960341         </td><td>4.563084e-04             </td><td>1                        </td><td>5.618968e-01             </td><td>1.014960e-03             </td><td>2.860098e-03             </td><td>9.171837e-04             </td></tr>\n",
       "\t<tr><td>7                        </td><td>297.185 1652 1 (ID: 1035)</td><td>-0.27121389090935        </td><td>0.348283666308653        </td><td>6.741464e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.150745e-02             </td><td>8.201229e-03             </td><td>7.540400e-05             </td></tr>\n",
       "\t<tr><td>8                        </td><td>297.185 1556 1 (ID: 357) </td><td>-0.214874888224598       </td><td>0.460688215436271        </td><td>3.286022e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>4.233761e-03             </td><td>5.458206e-02             </td><td>4.329827e-04             </td></tr>\n",
       "\t<tr><td>9                        </td><td>298.311 1968 1 (ID: 132) </td><td>-0.296642926666024       </td><td>0.3030698225754          </td><td>2.040302e-05             </td><td>1                        </td><td>2.699247e-02             </td><td>6.353464e-03             </td><td>7.801129e-02             </td><td>7.468284e-03             </td></tr>\n",
       "\t<tr><td>10                       </td><td>313.179 1721 1 (ID: 538) </td><td>0.514149093415966        </td><td>0.0599876302308284       </td><td>8.948249e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>2.849181e-04             </td><td>2.773147e-04             </td><td>1.615254e-05             </td></tr>\n",
       "\t<tr><td>11                       </td><td>315.195 1687 1 (ID: 181) </td><td>-0.214387381474332       </td><td>0.461730687253729        </td><td>6.075624e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.445606e-01             </td><td>2.564659e-02             </td><td>1.606978e-03             </td></tr>\n",
       "\t<tr><td>12                       </td><td>315.195 1777 1 (ID: 1042)</td><td>-0.20372853105752        </td><td>0.484806069511438        </td><td>9.569474e-05             </td><td>1                        </td><td>7.234580e-05             </td><td>2.708920e-02             </td><td>3.310437e-03             </td><td>1.601149e-04             </td></tr>\n",
       "\t<tr><td>13                       </td><td>341.267 1509 1 (ID: 1074)</td><td>-0.2053974044361         </td><td>0.481157749869592        </td><td>1.669249e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>1.456070e-03             </td><td>1.487605e-02             </td></tr>\n",
       "\t<tr><td>14                       </td><td>363.250 1511 1 (ID: 1094)</td><td>-0.207281369412495       </td><td>0.477054883790855        </td><td>8.686752e-06             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>1.449499e-03             </td><td>1.355859e-02             </td></tr>\n",
       "\t<tr><td>15                       </td><td>383.165 564 2 (ID: 1002) </td><td>0.229673438354267        </td><td>0.42959512606125         </td><td>8.354078e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>16                       </td><td>383.220 1668 1 (ID: 429) </td><td>-0.187953232291067       </td><td>0.519922948532928        </td><td>4.680118e-04             </td><td>1                        </td><td>1.962724e-05             </td><td>3.305265e-06             </td><td>8.650469e-10             </td><td>1.703802e-02             </td></tr>\n",
       "\t<tr><td>17                       </td><td>383.222 1524 1 (ID: 259) </td><td>0.534793863828435        </td><td>0.0487932731059068       </td><td>7.535002e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>6.433913e-06             </td><td>8.650469e-10             </td><td>1.937745e-04             </td></tr>\n",
       "\t<tr><td>18                       </td><td>383.222 1615 1 (ID: 19)  </td><td>-0.037574232106698       </td><td>0.898524312804278        </td><td>3.551571e-03             </td><td>1                        </td><td>1.517113e-05             </td><td>6.781142e-06             </td><td>8.650469e-10             </td><td>3.491533e-03             </td></tr>\n",
       "\t<tr><td>19                       </td><td>383.222 1698 1 (ID: 60)  </td><td>-0.242985258089082       </td><td>0.402560883588054        </td><td>8.504989e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>1.978970e-03             </td><td>1.720463e-02             </td></tr>\n",
       "\t<tr><td>20                       </td><td>383.222 1407 1 (ID: 37)  </td><td>-0.0666029709839993      </td><td>0.821029580534277        </td><td>1.763110e-03             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>6.174435e-04             </td></tr>\n",
       "\t<tr><td>21                       </td><td>387.216 1361 1 (ID: 696) </td><td>0.281855815198855        </td><td>0.328930260816831        </td><td>2.230659e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>22                       </td><td>393.166 642 2 (ID: 941)  </td><td>0.228387251366747        </td><td>0.432254605627892        </td><td>1.115320e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>23                       </td><td>397.179 821 2 (ID: 970)  </td><td>0.211307326756097        </td><td>0.468343345973288        </td><td>1.363555e-05             </td><td>1                        </td><td>1.595529e-05             </td><td>1.221705e-10             </td><td>2.190143e-05             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>24                       </td><td>397.180 672 1 (ID: 354)  </td><td>0.172207640811325        </td><td>0.556066648849158        </td><td>4.367197e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>25                       </td><td>400.157 589 1 (ID: 988)  </td><td>0.228659476892485        </td><td>0.431691028838877        </td><td>3.814065e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>26                       </td><td>400.175 809 2 (ID: 1025) </td><td>0.225954440307934        </td><td>0.43730753983575         </td><td>1.236224e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>27                       </td><td>401.232 1290 1 (ID: 171) </td><td>0.911533897243834        </td><td>5.70642706988177e-06     </td><td>9.569529e-03             </td><td>0.0033496726900206       </td><td>1.960109e-05             </td><td>2.601850e-05             </td><td>8.650469e-10             </td><td>5.627394e-05             </td></tr>\n",
       "\t<tr><td>28                       </td><td>401.232 1411 1 (ID: 29)  </td><td>0.156482370780623        </td><td>0.593185890419915        </td><td>1.867191e-03             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>29                       </td><td>401.232 1619 1 (ID: 23)  </td><td>0.640073772749594        </td><td>0.0136797352409131       </td><td>1.046219e-02             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>4.234155e-05             </td></tr>\n",
       "\t<tr><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td></tr>\n",
       "\t<tr><td>558                      </td><td>868.356 1418 1 (ID: 118) </td><td>-0.123916349672485       </td><td>0.67298286230042         </td><td>2.423684e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>559                      </td><td>869.352 941 1 (ID: 209)  </td><td>0.228871589198768        </td><td>0.431252158342323        </td><td>5.189897e-03             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>560                      </td><td>869.392 1670 1 (ID: 1156)</td><td>-0.138127625586833       </td><td>0.637705709112937        </td><td>1.943030e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>561                      </td><td>870.361 1433 1 (ID: 778) </td><td>-0.142327465996463       </td><td>0.627411366909868        </td><td>2.407108e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>562                      </td><td>872.373 933 1 (ID: 922)  </td><td>-0.169581520797562       </td><td>0.562196424949146        </td><td>6.360730e-06             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>563                      </td><td>872.373 867 1 (ID: 827)  </td><td>-0.17168074681055        </td><td>0.557294227073848        </td><td>2.448277e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>564                      </td><td>874.363 1337 1 (ID: 701) </td><td>-0.0762150612440404      </td><td>0.79566697946497         </td><td>4.025099e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>565                      </td><td>881.320 878 1 (ID: 718)  </td><td>-0.0456016842842233      </td><td>0.876981592762568        </td><td>4.137304e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>566                      </td><td>882.330 1231 1 (ID: 717) </td><td>0.215278406255525        </td><td>0.459826208385533        </td><td>3.714671e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>567                      </td><td>883.330 776 1 (ID: 226)  </td><td>0.22762293857456         </td><td>0.43383890536112         </td><td>1.134265e-03             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>568                      </td><td>883.360 1084 1 (ID: 202) </td><td>0.226857086624798        </td><td>0.435429313884083        </td><td>1.049822e-03             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>569                      </td><td>884.403 1197 1 (ID: 322) </td><td>-0.19571665652726        </td><td>0.502500080797765        </td><td>3.416119e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>570                      </td><td>885.328 1499 1 (ID: 96)  </td><td>-0.140168489162022       </td><td>0.632695569993799        </td><td>7.163746e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>571                      </td><td>890.336 1433 1 (ID: 756) </td><td>-0.173610421967432       </td><td>0.552803995293411        </td><td>7.736488e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>572                      </td><td>890.376 857 1 (ID: 920)  </td><td>-0.170642781563919       </td><td>0.559715865190782        </td><td>2.445946e-11             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>573                      </td><td>891.330 941 1 (ID: 933)  </td><td>0.235112721192342        </td><td>0.418440050952477        </td><td>2.963642e-04             </td><td>1                        </td><td>1.903514e-05             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>574                      </td><td>892.407 1610 1 (ID: 678) </td><td>-0.0367844701475624      </td><td>0.900647487143874        </td><td>2.354112e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>575                      </td><td>893.416 1609 1 (ID: 667) </td><td>-0.0400530918407881      </td><td>0.891864372574871        </td><td>1.180280e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>576                      </td><td>894.426 1631 1 (ID: 689) </td><td>0.00495069939264375      </td><td>0.986598849465163        </td><td>8.715378e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>577                      </td><td>895.374 1424 1 (ID: 457) </td><td>-0.0610903099469755      </td><td>0.835650657086433        </td><td>5.474881e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>578                      </td><td>895.407 1768 1 (ID: 1141)</td><td>-0.0979804586462028      </td><td>0.738959134381491        </td><td>6.713617e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>579                      </td><td>897.375 1333 1 (ID: 1012)</td><td>0.219605705905163        </td><td>0.450631623694371        </td><td>2.554670e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>580                      </td><td>903.335 1024 1 (ID: 944) </td><td>0.229358628939693        </td><td>0.430245300634323        </td><td>7.472515e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>581                      </td><td>905.349 1085 1 (ID: 951) </td><td>0.242771404102679        </td><td>0.40298803522669         </td><td>2.531490e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>582                      </td><td>906.390 1200 1 (ID: 319) </td><td>-0.197018302170316       </td><td>0.499605428975835        </td><td>4.226406e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>583                      </td><td>914.392 1610 1 (ID: 669) </td><td>-0.00750358060402209     </td><td>0.97968947879799         </td><td>2.373081e-04             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>584                      </td><td>916.412 1631 1 (ID: 661) </td><td>0.0473109703903092       </td><td>0.872404223005271        </td><td>6.811799e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>585                      </td><td>927.391 1213 1 (ID: 832) </td><td>-0.171019340513868       </td><td>0.558836817323772        </td><td>2.445946e-11             </td><td>1                        </td><td>6.464336e-10             </td><td>1.221705e-10             </td><td>8.650469e-10             </td><td>3.423586e-10             </td></tr>\n",
       "\t<tr><td>586                      </td><td>983.559 1688 1 (ID: 1062)</td><td>-0.185422040102229       </td><td>0.525661291436393        </td><td>5.060243e-04             </td><td>1                        </td><td>1.412577e-04             </td><td>2.424826e-01             </td><td>8.936452e-03             </td><td>6.439997e-05             </td></tr>\n",
       "\t<tr><td>587                      </td><td>987.593 1777 1 (ID: 1038)</td><td>-0.179208062169923       </td><td>0.539866703843945        </td><td>1.229554e-05             </td><td>1                        </td><td>6.464336e-10             </td><td>4.639795e-02             </td><td>2.693216e-04             </td><td>3.423586e-10             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{llllllllll}\n",
       " shared name & IDs & cor &  p\\_value & Extract & p\\_value\\_corrected & F\\_5 & F\\_6 & F\\_7 & F\\_8\\\\\n",
       "\\hline\n",
       "\t                           & BioactivityCHIKV          & 0                         & 0                         &  68.0                     & 0                         &   1.0                     &   4.0                     &   1.0                     &   3.0                    \\\\\n",
       "\t 1                         & 270.279 1698 1 (ID: 9)    & -0.324377606725705        & 0.257849356719369         & 0.0001391824              & 1                         & 0.1594079650              & 0.0228397314              & 0.3139762067              & 0.0551088883             \\\\\n",
       "\t 2                         & 271.283 1699 1 (ID: 355)  & -0.318374649942669        & 0.267271199671765         & 0.0000139267              & 1                         & 0.0261136500              & 0.0037518603              & 0.0552725554              & 0.0090100816             \\\\\n",
       "\t 3                         & 279.174 1413 1 (ID: 511)  & 0.11344978411662          & 0.699375059832539         & 7.760803e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 4                         & 280.264 1420 1 (ID: 1029) & -0.200702959079237        & 0.49145327312603          & 4.456230e-05              & 1                         & 6.101911e-02              & 8.258893e-05              & 8.404894e-05              & 5.121893e-05             \\\\\n",
       "\t 5                         & 281.190 1031 1 (ID: 1070) & -0.201330433729144        & 0.490071225054009         & 4.369353e-05              & 1                         & 6.464336e-10              & 1.194904e-04              & 2.992650e-02              & 8.518229e-05             \\\\\n",
       "\t 6                         & 282.279 1660 1 (ID: 345)  & -0.201928970163321        & 0.48875460960341          & 4.563084e-04              & 1                         & 5.618968e-01              & 1.014960e-03              & 2.860098e-03              & 9.171837e-04             \\\\\n",
       "\t 7                         & 297.185 1652 1 (ID: 1035) & -0.27121389090935         & 0.348283666308653         & 6.741464e-05              & 1                         & 6.464336e-10              & 1.150745e-02              & 8.201229e-03              & 7.540400e-05             \\\\\n",
       "\t 8                         & 297.185 1556 1 (ID: 357)  & -0.214874888224598        & 0.460688215436271         & 3.286022e-04              & 1                         & 6.464336e-10              & 4.233761e-03              & 5.458206e-02              & 4.329827e-04             \\\\\n",
       "\t 9                         & 298.311 1968 1 (ID: 132)  & -0.296642926666024        & 0.3030698225754           & 2.040302e-05              & 1                         & 2.699247e-02              & 6.353464e-03              & 7.801129e-02              & 7.468284e-03             \\\\\n",
       "\t 10                        & 313.179 1721 1 (ID: 538)  & 0.514149093415966         & 0.0599876302308284        & 8.948249e-04              & 1                         & 6.464336e-10              & 2.849181e-04              & 2.773147e-04              & 1.615254e-05             \\\\\n",
       "\t 11                        & 315.195 1687 1 (ID: 181)  & -0.214387381474332        & 0.461730687253729         & 6.075624e-04              & 1                         & 6.464336e-10              & 1.445606e-01              & 2.564659e-02              & 1.606978e-03             \\\\\n",
       "\t 12                        & 315.195 1777 1 (ID: 1042) & -0.20372853105752         & 0.484806069511438         & 9.569474e-05              & 1                         & 7.234580e-05              & 2.708920e-02              & 3.310437e-03              & 1.601149e-04             \\\\\n",
       "\t 13                        & 341.267 1509 1 (ID: 1074) & -0.2053974044361          & 0.481157749869592         & 1.669249e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 1.456070e-03              & 1.487605e-02             \\\\\n",
       "\t 14                        & 363.250 1511 1 (ID: 1094) & -0.207281369412495        & 0.477054883790855         & 8.686752e-06              & 1                         & 6.464336e-10              & 1.221705e-10              & 1.449499e-03              & 1.355859e-02             \\\\\n",
       "\t 15                        & 383.165 564 2 (ID: 1002)  & 0.229673438354267         & 0.42959512606125          & 8.354078e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 16                        & 383.220 1668 1 (ID: 429)  & -0.187953232291067        & 0.519922948532928         & 4.680118e-04              & 1                         & 1.962724e-05              & 3.305265e-06              & 8.650469e-10              & 1.703802e-02             \\\\\n",
       "\t 17                        & 383.222 1524 1 (ID: 259)  & 0.534793863828435         & 0.0487932731059068        & 7.535002e-04              & 1                         & 6.464336e-10              & 6.433913e-06              & 8.650469e-10              & 1.937745e-04             \\\\\n",
       "\t 18                        & 383.222 1615 1 (ID: 19)   & -0.037574232106698        & 0.898524312804278         & 3.551571e-03              & 1                         & 1.517113e-05              & 6.781142e-06              & 8.650469e-10              & 3.491533e-03             \\\\\n",
       "\t 19                        & 383.222 1698 1 (ID: 60)   & -0.242985258089082        & 0.402560883588054         & 8.504989e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 1.978970e-03              & 1.720463e-02             \\\\\n",
       "\t 20                        & 383.222 1407 1 (ID: 37)   & -0.0666029709839993       & 0.821029580534277         & 1.763110e-03              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 6.174435e-04             \\\\\n",
       "\t 21                        & 387.216 1361 1 (ID: 696)  & 0.281855815198855         & 0.328930260816831         & 2.230659e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 22                        & 393.166 642 2 (ID: 941)   & 0.228387251366747         & 0.432254605627892         & 1.115320e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 23                        & 397.179 821 2 (ID: 970)   & 0.211307326756097         & 0.468343345973288         & 1.363555e-05              & 1                         & 1.595529e-05              & 1.221705e-10              & 2.190143e-05              & 3.423586e-10             \\\\\n",
       "\t 24                        & 397.180 672 1 (ID: 354)   & 0.172207640811325         & 0.556066648849158         & 4.367197e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 25                        & 400.157 589 1 (ID: 988)   & 0.228659476892485         & 0.431691028838877         & 3.814065e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 26                        & 400.175 809 2 (ID: 1025)  & 0.225954440307934         & 0.43730753983575          & 1.236224e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 27                        & 401.232 1290 1 (ID: 171)  & 0.911533897243834         & 5.70642706988177e-06      & 9.569529e-03              & 0.0033496726900206        & 1.960109e-05              & 2.601850e-05              & 8.650469e-10              & 5.627394e-05             \\\\\n",
       "\t 28                        & 401.232 1411 1 (ID: 29)   & 0.156482370780623         & 0.593185890419915         & 1.867191e-03              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 29                        & 401.232 1619 1 (ID: 23)   & 0.640073772749594         & 0.0136797352409131        & 1.046219e-02              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 4.234155e-05             \\\\\n",
       "\t ⋮ & ⋮ & ⋮ & ⋮ & ⋮ & ⋮ & ⋮ & ⋮ & ⋮ & ⋮\\\\\n",
       "\t 558                       & 868.356 1418 1 (ID: 118)  & -0.123916349672485        & 0.67298286230042          & 2.423684e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 559                       & 869.352 941 1 (ID: 209)   & 0.228871589198768         & 0.431252158342323         & 5.189897e-03              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 560                       & 869.392 1670 1 (ID: 1156) & -0.138127625586833        & 0.637705709112937         & 1.943030e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 561                       & 870.361 1433 1 (ID: 778)  & -0.142327465996463        & 0.627411366909868         & 2.407108e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 562                       & 872.373 933 1 (ID: 922)   & -0.169581520797562        & 0.562196424949146         & 6.360730e-06              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 563                       & 872.373 867 1 (ID: 827)   & -0.17168074681055         & 0.557294227073848         & 2.448277e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 564                       & 874.363 1337 1 (ID: 701)  & -0.0762150612440404       & 0.79566697946497          & 4.025099e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 565                       & 881.320 878 1 (ID: 718)   & -0.0456016842842233       & 0.876981592762568         & 4.137304e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 566                       & 882.330 1231 1 (ID: 717)  & 0.215278406255525         & 0.459826208385533         & 3.714671e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 567                       & 883.330 776 1 (ID: 226)   & 0.22762293857456          & 0.43383890536112          & 1.134265e-03              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 568                       & 883.360 1084 1 (ID: 202)  & 0.226857086624798         & 0.435429313884083         & 1.049822e-03              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 569                       & 884.403 1197 1 (ID: 322)  & -0.19571665652726         & 0.502500080797765         & 3.416119e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 570                       & 885.328 1499 1 (ID: 96)   & -0.140168489162022        & 0.632695569993799         & 7.163746e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 571                       & 890.336 1433 1 (ID: 756)  & -0.173610421967432        & 0.552803995293411         & 7.736488e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 572                       & 890.376 857 1 (ID: 920)   & -0.170642781563919        & 0.559715865190782         & 2.445946e-11              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 573                       & 891.330 941 1 (ID: 933)   & 0.235112721192342         & 0.418440050952477         & 2.963642e-04              & 1                         & 1.903514e-05              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 574                       & 892.407 1610 1 (ID: 678)  & -0.0367844701475624       & 0.900647487143874         & 2.354112e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 575                       & 893.416 1609 1 (ID: 667)  & -0.0400530918407881       & 0.891864372574871         & 1.180280e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 576                       & 894.426 1631 1 (ID: 689)  & 0.00495069939264375       & 0.986598849465163         & 8.715378e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 577                       & 895.374 1424 1 (ID: 457)  & -0.0610903099469755       & 0.835650657086433         & 5.474881e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 578                       & 895.407 1768 1 (ID: 1141) & -0.0979804586462028       & 0.738959134381491         & 6.713617e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 579                       & 897.375 1333 1 (ID: 1012) & 0.219605705905163         & 0.450631623694371         & 2.554670e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 580                       & 903.335 1024 1 (ID: 944)  & 0.229358628939693         & 0.430245300634323         & 7.472515e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 581                       & 905.349 1085 1 (ID: 951)  & 0.242771404102679         & 0.40298803522669          & 2.531490e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 582                       & 906.390 1200 1 (ID: 319)  & -0.197018302170316        & 0.499605428975835         & 4.226406e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 583                       & 914.392 1610 1 (ID: 669)  & -0.00750358060402209      & 0.97968947879799          & 2.373081e-04              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 584                       & 916.412 1631 1 (ID: 661)  & 0.0473109703903092        & 0.872404223005271         & 6.811799e-05              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 585                       & 927.391 1213 1 (ID: 832)  & -0.171019340513868        & 0.558836817323772         & 2.445946e-11              & 1                         & 6.464336e-10              & 1.221705e-10              & 8.650469e-10              & 3.423586e-10             \\\\\n",
       "\t 586                       & 983.559 1688 1 (ID: 1062) & -0.185422040102229        & 0.525661291436393         & 5.060243e-04              & 1                         & 1.412577e-04              & 2.424826e-01              & 8.936452e-03              & 6.439997e-05             \\\\\n",
       "\t 587                       & 987.593 1777 1 (ID: 1038) & -0.179208062169923        & 0.539866703843945         & 1.229554e-05              & 1                         & 6.464336e-10              & 4.639795e-02              & 2.693216e-04              & 3.423586e-10             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "shared name | IDs | cor |  p_value | Extract | p_value_corrected | F_5 | F_6 | F_7 | F_8 | \n",
       "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n",
       "|                           | BioactivityCHIKV          | 0                         | 0                         |  68.0                     | 0                         |   1.0                     |   4.0                     |   1.0                     |   3.0                     | \n",
       "| 1                         | 270.279 1698 1 (ID: 9)    | -0.324377606725705        | 0.257849356719369         | 0.0001391824              | 1                         | 0.1594079650              | 0.0228397314              | 0.3139762067              | 0.0551088883              | \n",
       "| 2                         | 271.283 1699 1 (ID: 355)  | -0.318374649942669        | 0.267271199671765         | 0.0000139267              | 1                         | 0.0261136500              | 0.0037518603              | 0.0552725554              | 0.0090100816              | \n",
       "| 3                         | 279.174 1413 1 (ID: 511)  | 0.11344978411662          | 0.699375059832539         | 7.760803e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 4                         | 280.264 1420 1 (ID: 1029) | -0.200702959079237        | 0.49145327312603          | 4.456230e-05              | 1                         | 6.101911e-02              | 8.258893e-05              | 8.404894e-05              | 5.121893e-05              | \n",
       "| 5                         | 281.190 1031 1 (ID: 1070) | -0.201330433729144        | 0.490071225054009         | 4.369353e-05              | 1                         | 6.464336e-10              | 1.194904e-04              | 2.992650e-02              | 8.518229e-05              | \n",
       "| 6                         | 282.279 1660 1 (ID: 345)  | -0.201928970163321        | 0.48875460960341          | 4.563084e-04              | 1                         | 5.618968e-01              | 1.014960e-03              | 2.860098e-03              | 9.171837e-04              | \n",
       "| 7                         | 297.185 1652 1 (ID: 1035) | -0.27121389090935         | 0.348283666308653         | 6.741464e-05              | 1                         | 6.464336e-10              | 1.150745e-02              | 8.201229e-03              | 7.540400e-05              | \n",
       "| 8                         | 297.185 1556 1 (ID: 357)  | -0.214874888224598        | 0.460688215436271         | 3.286022e-04              | 1                         | 6.464336e-10              | 4.233761e-03              | 5.458206e-02              | 4.329827e-04              | \n",
       "| 9                         | 298.311 1968 1 (ID: 132)  | -0.296642926666024        | 0.3030698225754           | 2.040302e-05              | 1                         | 2.699247e-02              | 6.353464e-03              | 7.801129e-02              | 7.468284e-03              | \n",
       "| 10                        | 313.179 1721 1 (ID: 538)  | 0.514149093415966         | 0.0599876302308284        | 8.948249e-04              | 1                         | 6.464336e-10              | 2.849181e-04              | 2.773147e-04              | 1.615254e-05              | \n",
       "| 11                        | 315.195 1687 1 (ID: 181)  | -0.214387381474332        | 0.461730687253729         | 6.075624e-04              | 1                         | 6.464336e-10              | 1.445606e-01              | 2.564659e-02              | 1.606978e-03              | \n",
       "| 12                        | 315.195 1777 1 (ID: 1042) | -0.20372853105752         | 0.484806069511438         | 9.569474e-05              | 1                         | 7.234580e-05              | 2.708920e-02              | 3.310437e-03              | 1.601149e-04              | \n",
       "| 13                        | 341.267 1509 1 (ID: 1074) | -0.2053974044361          | 0.481157749869592         | 1.669249e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 1.456070e-03              | 1.487605e-02              | \n",
       "| 14                        | 363.250 1511 1 (ID: 1094) | -0.207281369412495        | 0.477054883790855         | 8.686752e-06              | 1                         | 6.464336e-10              | 1.221705e-10              | 1.449499e-03              | 1.355859e-02              | \n",
       "| 15                        | 383.165 564 2 (ID: 1002)  | 0.229673438354267         | 0.42959512606125          | 8.354078e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 16                        | 383.220 1668 1 (ID: 429)  | -0.187953232291067        | 0.519922948532928         | 4.680118e-04              | 1                         | 1.962724e-05              | 3.305265e-06              | 8.650469e-10              | 1.703802e-02              | \n",
       "| 17                        | 383.222 1524 1 (ID: 259)  | 0.534793863828435         | 0.0487932731059068        | 7.535002e-04              | 1                         | 6.464336e-10              | 6.433913e-06              | 8.650469e-10              | 1.937745e-04              | \n",
       "| 18                        | 383.222 1615 1 (ID: 19)   | -0.037574232106698        | 0.898524312804278         | 3.551571e-03              | 1                         | 1.517113e-05              | 6.781142e-06              | 8.650469e-10              | 3.491533e-03              | \n",
       "| 19                        | 383.222 1698 1 (ID: 60)   | -0.242985258089082        | 0.402560883588054         | 8.504989e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 1.978970e-03              | 1.720463e-02              | \n",
       "| 20                        | 383.222 1407 1 (ID: 37)   | -0.0666029709839993       | 0.821029580534277         | 1.763110e-03              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 6.174435e-04              | \n",
       "| 21                        | 387.216 1361 1 (ID: 696)  | 0.281855815198855         | 0.328930260816831         | 2.230659e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 22                        | 393.166 642 2 (ID: 941)   | 0.228387251366747         | 0.432254605627892         | 1.115320e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 23                        | 397.179 821 2 (ID: 970)   | 0.211307326756097         | 0.468343345973288         | 1.363555e-05              | 1                         | 1.595529e-05              | 1.221705e-10              | 2.190143e-05              | 3.423586e-10              | \n",
       "| 24                        | 397.180 672 1 (ID: 354)   | 0.172207640811325         | 0.556066648849158         | 4.367197e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 25                        | 400.157 589 1 (ID: 988)   | 0.228659476892485         | 0.431691028838877         | 3.814065e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 26                        | 400.175 809 2 (ID: 1025)  | 0.225954440307934         | 0.43730753983575          | 1.236224e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 27                        | 401.232 1290 1 (ID: 171)  | 0.911533897243834         | 5.70642706988177e-06      | 9.569529e-03              | 0.0033496726900206        | 1.960109e-05              | 2.601850e-05              | 8.650469e-10              | 5.627394e-05              | \n",
       "| 28                        | 401.232 1411 1 (ID: 29)   | 0.156482370780623         | 0.593185890419915         | 1.867191e-03              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 29                        | 401.232 1619 1 (ID: 23)   | 0.640073772749594         | 0.0136797352409131        | 1.046219e-02              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 4.234155e-05              | \n",
       "| ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | ⋮ | \n",
       "| 558                       | 868.356 1418 1 (ID: 118)  | -0.123916349672485        | 0.67298286230042          | 2.423684e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 559                       | 869.352 941 1 (ID: 209)   | 0.228871589198768         | 0.431252158342323         | 5.189897e-03              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 560                       | 869.392 1670 1 (ID: 1156) | -0.138127625586833        | 0.637705709112937         | 1.943030e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 561                       | 870.361 1433 1 (ID: 778)  | -0.142327465996463        | 0.627411366909868         | 2.407108e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 562                       | 872.373 933 1 (ID: 922)   | -0.169581520797562        | 0.562196424949146         | 6.360730e-06              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 563                       | 872.373 867 1 (ID: 827)   | -0.17168074681055         | 0.557294227073848         | 2.448277e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 564                       | 874.363 1337 1 (ID: 701)  | -0.0762150612440404       | 0.79566697946497          | 4.025099e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 565                       | 881.320 878 1 (ID: 718)   | -0.0456016842842233       | 0.876981592762568         | 4.137304e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 566                       | 882.330 1231 1 (ID: 717)  | 0.215278406255525         | 0.459826208385533         | 3.714671e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 567                       | 883.330 776 1 (ID: 226)   | 0.22762293857456          | 0.43383890536112          | 1.134265e-03              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 568                       | 883.360 1084 1 (ID: 202)  | 0.226857086624798         | 0.435429313884083         | 1.049822e-03              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 569                       | 884.403 1197 1 (ID: 322)  | -0.19571665652726         | 0.502500080797765         | 3.416119e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 570                       | 885.328 1499 1 (ID: 96)   | -0.140168489162022        | 0.632695569993799         | 7.163746e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 571                       | 890.336 1433 1 (ID: 756)  | -0.173610421967432        | 0.552803995293411         | 7.736488e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 572                       | 890.376 857 1 (ID: 920)   | -0.170642781563919        | 0.559715865190782         | 2.445946e-11              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 573                       | 891.330 941 1 (ID: 933)   | 0.235112721192342         | 0.418440050952477         | 2.963642e-04              | 1                         | 1.903514e-05              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 574                       | 892.407 1610 1 (ID: 678)  | -0.0367844701475624       | 0.900647487143874         | 2.354112e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 575                       | 893.416 1609 1 (ID: 667)  | -0.0400530918407881       | 0.891864372574871         | 1.180280e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 576                       | 894.426 1631 1 (ID: 689)  | 0.00495069939264375       | 0.986598849465163         | 8.715378e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 577                       | 895.374 1424 1 (ID: 457)  | -0.0610903099469755       | 0.835650657086433         | 5.474881e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 578                       | 895.407 1768 1 (ID: 1141) | -0.0979804586462028       | 0.738959134381491         | 6.713617e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 579                       | 897.375 1333 1 (ID: 1012) | 0.219605705905163         | 0.450631623694371         | 2.554670e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 580                       | 903.335 1024 1 (ID: 944)  | 0.229358628939693         | 0.430245300634323         | 7.472515e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 581                       | 905.349 1085 1 (ID: 951)  | 0.242771404102679         | 0.40298803522669          | 2.531490e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 582                       | 906.390 1200 1 (ID: 319)  | -0.197018302170316        | 0.499605428975835         | 4.226406e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 583                       | 914.392 1610 1 (ID: 669)  | -0.00750358060402209      | 0.97968947879799          | 2.373081e-04              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 584                       | 916.412 1631 1 (ID: 661)  | 0.0473109703903092        | 0.872404223005271         | 6.811799e-05              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 585                       | 927.391 1213 1 (ID: 832)  | -0.171019340513868        | 0.558836817323772         | 2.445946e-11              | 1                         | 6.464336e-10              | 1.221705e-10              | 8.650469e-10              | 3.423586e-10              | \n",
       "| 586                       | 983.559 1688 1 (ID: 1062) | -0.185422040102229        | 0.525661291436393         | 5.060243e-04              | 1                         | 1.412577e-04              | 2.424826e-01              | 8.936452e-03              | 6.439997e-05              | \n",
       "| 587                       | 987.593 1777 1 (ID: 1038) | -0.179208062169923        | 0.539866703843945         | 1.229554e-05              | 1                         | 6.464336e-10              | 4.639795e-02              | 2.693216e-04              | 3.423586e-10              | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "      shared name IDs                       cor                 \n",
       " [1,]             BioactivityCHIKV          0                   \n",
       " [2,] 1           270.279 1698 1 (ID: 9)    -0.324377606725705  \n",
       " [3,] 2           271.283 1699 1 (ID: 355)  -0.318374649942669  \n",
       " [4,] 3           279.174 1413 1 (ID: 511)  0.11344978411662    \n",
       " [5,] 4           280.264 1420 1 (ID: 1029) -0.200702959079237  \n",
       " [6,] 5           281.190 1031 1 (ID: 1070) -0.201330433729144  \n",
       " [7,] 6           282.279 1660 1 (ID: 345)  -0.201928970163321  \n",
       " [8,] 7           297.185 1652 1 (ID: 1035) -0.27121389090935   \n",
       " [9,] 8           297.185 1556 1 (ID: 357)  -0.214874888224598  \n",
       "[10,] 9           298.311 1968 1 (ID: 132)  -0.296642926666024  \n",
       "[11,] 10          313.179 1721 1 (ID: 538)  0.514149093415966   \n",
       "[12,] 11          315.195 1687 1 (ID: 181)  -0.214387381474332  \n",
       "[13,] 12          315.195 1777 1 (ID: 1042) -0.20372853105752   \n",
       "[14,] 13          341.267 1509 1 (ID: 1074) -0.2053974044361    \n",
       "[15,] 14          363.250 1511 1 (ID: 1094) -0.207281369412495  \n",
       "[16,] 15          383.165 564 2 (ID: 1002)  0.229673438354267   \n",
       "[17,] 16          383.220 1668 1 (ID: 429)  -0.187953232291067  \n",
       "[18,] 17          383.222 1524 1 (ID: 259)  0.534793863828435   \n",
       "[19,] 18          383.222 1615 1 (ID: 19)   -0.037574232106698  \n",
       "[20,] 19          383.222 1698 1 (ID: 60)   -0.242985258089082  \n",
       "[21,] 20          383.222 1407 1 (ID: 37)   -0.0666029709839993 \n",
       "[22,] 21          387.216 1361 1 (ID: 696)  0.281855815198855   \n",
       "[23,] 22          393.166 642 2 (ID: 941)   0.228387251366747   \n",
       "[24,] 23          397.179 821 2 (ID: 970)   0.211307326756097   \n",
       "[25,] 24          397.180 672 1 (ID: 354)   0.172207640811325   \n",
       "[26,] 25          400.157 589 1 (ID: 988)   0.228659476892485   \n",
       "[27,] 26          400.175 809 2 (ID: 1025)  0.225954440307934   \n",
       "[28,] 27          401.232 1290 1 (ID: 171)  0.911533897243834   \n",
       "[29,] 28          401.232 1411 1 (ID: 29)   0.156482370780623   \n",
       "[30,] 29          401.232 1619 1 (ID: 23)   0.640073772749594   \n",
       "[31,] ⋮           ⋮                         ⋮                   \n",
       "[32,] 558         868.356 1418 1 (ID: 118)  -0.123916349672485  \n",
       "[33,] 559         869.352 941 1 (ID: 209)   0.228871589198768   \n",
       "[34,] 560         869.392 1670 1 (ID: 1156) -0.138127625586833  \n",
       "[35,] 561         870.361 1433 1 (ID: 778)  -0.142327465996463  \n",
       "[36,] 562         872.373 933 1 (ID: 922)   -0.169581520797562  \n",
       "[37,] 563         872.373 867 1 (ID: 827)   -0.17168074681055   \n",
       "[38,] 564         874.363 1337 1 (ID: 701)  -0.0762150612440404 \n",
       "[39,] 565         881.320 878 1 (ID: 718)   -0.0456016842842233 \n",
       "[40,] 566         882.330 1231 1 (ID: 717)  0.215278406255525   \n",
       "[41,] 567         883.330 776 1 (ID: 226)   0.22762293857456    \n",
       "[42,] 568         883.360 1084 1 (ID: 202)  0.226857086624798   \n",
       "[43,] 569         884.403 1197 1 (ID: 322)  -0.19571665652726   \n",
       "[44,] 570         885.328 1499 1 (ID: 96)   -0.140168489162022  \n",
       "[45,] 571         890.336 1433 1 (ID: 756)  -0.173610421967432  \n",
       "[46,] 572         890.376 857 1 (ID: 920)   -0.170642781563919  \n",
       "[47,] 573         891.330 941 1 (ID: 933)   0.235112721192342   \n",
       "[48,] 574         892.407 1610 1 (ID: 678)  -0.0367844701475624 \n",
       "[49,] 575         893.416 1609 1 (ID: 667)  -0.0400530918407881 \n",
       "[50,] 576         894.426 1631 1 (ID: 689)  0.00495069939264375 \n",
       "[51,] 577         895.374 1424 1 (ID: 457)  -0.0610903099469755 \n",
       "[52,] 578         895.407 1768 1 (ID: 1141) -0.0979804586462028 \n",
       "[53,] 579         897.375 1333 1 (ID: 1012) 0.219605705905163   \n",
       "[54,] 580         903.335 1024 1 (ID: 944)  0.229358628939693   \n",
       "[55,] 581         905.349 1085 1 (ID: 951)  0.242771404102679   \n",
       "[56,] 582         906.390 1200 1 (ID: 319)  -0.197018302170316  \n",
       "[57,] 583         914.392 1610 1 (ID: 669)  -0.00750358060402209\n",
       "[58,] 584         916.412 1631 1 (ID: 661)  0.0473109703903092  \n",
       "[59,] 585         927.391 1213 1 (ID: 832)  -0.171019340513868  \n",
       "[60,] 586         983.559 1688 1 (ID: 1062) -0.185422040102229  \n",
       "[61,] 587         987.593 1777 1 (ID: 1038) -0.179208062169923  \n",
       "       p_value             Extract      p_value_corrected  F_5         \n",
       " [1,] 0                     68.0        0                    1.0       \n",
       " [2,] 0.257849356719369    0.0001391824 1                  0.1594079650\n",
       " [3,] 0.267271199671765    0.0000139267 1                  0.0261136500\n",
       " [4,] 0.699375059832539    7.760803e-05 1                  6.464336e-10\n",
       " [5,] 0.49145327312603     4.456230e-05 1                  6.101911e-02\n",
       " [6,] 0.490071225054009    4.369353e-05 1                  6.464336e-10\n",
       " [7,] 0.48875460960341     4.563084e-04 1                  5.618968e-01\n",
       " [8,] 0.348283666308653    6.741464e-05 1                  6.464336e-10\n",
       " [9,] 0.460688215436271    3.286022e-04 1                  6.464336e-10\n",
       "[10,] 0.3030698225754      2.040302e-05 1                  2.699247e-02\n",
       "[11,] 0.0599876302308284   8.948249e-04 1                  6.464336e-10\n",
       "[12,] 0.461730687253729    6.075624e-04 1                  6.464336e-10\n",
       "[13,] 0.484806069511438    9.569474e-05 1                  7.234580e-05\n",
       "[14,] 0.481157749869592    1.669249e-05 1                  6.464336e-10\n",
       "[15,] 0.477054883790855    8.686752e-06 1                  6.464336e-10\n",
       "[16,] 0.42959512606125     8.354078e-05 1                  6.464336e-10\n",
       "[17,] 0.519922948532928    4.680118e-04 1                  1.962724e-05\n",
       "[18,] 0.0487932731059068   7.535002e-04 1                  6.464336e-10\n",
       "[19,] 0.898524312804278    3.551571e-03 1                  1.517113e-05\n",
       "[20,] 0.402560883588054    8.504989e-04 1                  6.464336e-10\n",
       "[21,] 0.821029580534277    1.763110e-03 1                  6.464336e-10\n",
       "[22,] 0.328930260816831    2.230659e-04 1                  6.464336e-10\n",
       "[23,] 0.432254605627892    1.115320e-04 1                  6.464336e-10\n",
       "[24,] 0.468343345973288    1.363555e-05 1                  1.595529e-05\n",
       "[25,] 0.556066648849158    4.367197e-05 1                  6.464336e-10\n",
       "[26,] 0.431691028838877    3.814065e-05 1                  6.464336e-10\n",
       "[27,] 0.43730753983575     1.236224e-04 1                  6.464336e-10\n",
       "[28,] 5.70642706988177e-06 9.569529e-03 0.0033496726900206 1.960109e-05\n",
       "[29,] 0.593185890419915    1.867191e-03 1                  6.464336e-10\n",
       "[30,] 0.0136797352409131   1.046219e-02 1                  6.464336e-10\n",
       "[31,] ⋮                    ⋮            ⋮                  ⋮           \n",
       "[32,] 0.67298286230042     2.423684e-04 1                  6.464336e-10\n",
       "[33,] 0.431252158342323    5.189897e-03 1                  6.464336e-10\n",
       "[34,] 0.637705709112937    1.943030e-04 1                  6.464336e-10\n",
       "[35,] 0.627411366909868    2.407108e-05 1                  6.464336e-10\n",
       "[36,] 0.562196424949146    6.360730e-06 1                  6.464336e-10\n",
       "[37,] 0.557294227073848    2.448277e-05 1                  6.464336e-10\n",
       "[38,] 0.79566697946497     4.025099e-05 1                  6.464336e-10\n",
       "[39,] 0.876981592762568    4.137304e-04 1                  6.464336e-10\n",
       "[40,] 0.459826208385533    3.714671e-04 1                  6.464336e-10\n",
       "[41,] 0.43383890536112     1.134265e-03 1                  6.464336e-10\n",
       "[42,] 0.435429313884083    1.049822e-03 1                  6.464336e-10\n",
       "[43,] 0.502500080797765    3.416119e-05 1                  6.464336e-10\n",
       "[44,] 0.632695569993799    7.163746e-04 1                  6.464336e-10\n",
       "[45,] 0.552803995293411    7.736488e-05 1                  6.464336e-10\n",
       "[46,] 0.559715865190782    2.445946e-11 1                  6.464336e-10\n",
       "[47,] 0.418440050952477    2.963642e-04 1                  1.903514e-05\n",
       "[48,] 0.900647487143874    2.354112e-04 1                  6.464336e-10\n",
       "[49,] 0.891864372574871    1.180280e-04 1                  6.464336e-10\n",
       "[50,] 0.986598849465163    8.715378e-05 1                  6.464336e-10\n",
       "[51,] 0.835650657086433    5.474881e-05 1                  6.464336e-10\n",
       "[52,] 0.738959134381491    6.713617e-04 1                  6.464336e-10\n",
       "[53,] 0.450631623694371    2.554670e-05 1                  6.464336e-10\n",
       "[54,] 0.430245300634323    7.472515e-04 1                  6.464336e-10\n",
       "[55,] 0.40298803522669     2.531490e-04 1                  6.464336e-10\n",
       "[56,] 0.499605428975835    4.226406e-05 1                  6.464336e-10\n",
       "[57,] 0.97968947879799     2.373081e-04 1                  6.464336e-10\n",
       "[58,] 0.872404223005271    6.811799e-05 1                  6.464336e-10\n",
       "[59,] 0.558836817323772    2.445946e-11 1                  6.464336e-10\n",
       "[60,] 0.525661291436393    5.060243e-04 1                  1.412577e-04\n",
       "[61,] 0.539866703843945    1.229554e-05 1                  6.464336e-10\n",
       "      F_6          F_7          F_8         \n",
       " [1,]   4.0          1.0          3.0       \n",
       " [2,] 0.0228397314 0.3139762067 0.0551088883\n",
       " [3,] 0.0037518603 0.0552725554 0.0090100816\n",
       " [4,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       " [5,] 8.258893e-05 8.404894e-05 5.121893e-05\n",
       " [6,] 1.194904e-04 2.992650e-02 8.518229e-05\n",
       " [7,] 1.014960e-03 2.860098e-03 9.171837e-04\n",
       " [8,] 1.150745e-02 8.201229e-03 7.540400e-05\n",
       " [9,] 4.233761e-03 5.458206e-02 4.329827e-04\n",
       "[10,] 6.353464e-03 7.801129e-02 7.468284e-03\n",
       "[11,] 2.849181e-04 2.773147e-04 1.615254e-05\n",
       "[12,] 1.445606e-01 2.564659e-02 1.606978e-03\n",
       "[13,] 2.708920e-02 3.310437e-03 1.601149e-04\n",
       "[14,] 1.221705e-10 1.456070e-03 1.487605e-02\n",
       "[15,] 1.221705e-10 1.449499e-03 1.355859e-02\n",
       "[16,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[17,] 3.305265e-06 8.650469e-10 1.703802e-02\n",
       "[18,] 6.433913e-06 8.650469e-10 1.937745e-04\n",
       "[19,] 6.781142e-06 8.650469e-10 3.491533e-03\n",
       "[20,] 1.221705e-10 1.978970e-03 1.720463e-02\n",
       "[21,] 1.221705e-10 8.650469e-10 6.174435e-04\n",
       "[22,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[23,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[24,] 1.221705e-10 2.190143e-05 3.423586e-10\n",
       "[25,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[26,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[27,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[28,] 2.601850e-05 8.650469e-10 5.627394e-05\n",
       "[29,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[30,] 1.221705e-10 8.650469e-10 4.234155e-05\n",
       "[31,] ⋮            ⋮            ⋮           \n",
       "[32,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[33,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[34,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[35,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[36,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[37,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[38,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[39,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[40,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[41,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[42,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[43,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[44,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[45,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[46,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[47,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[48,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[49,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[50,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[51,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[52,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[53,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[54,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[55,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[56,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[57,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[58,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[59,] 1.221705e-10 8.650469e-10 3.423586e-10\n",
       "[60,] 2.424826e-01 8.936452e-03 6.439997e-05\n",
       "[61,] 4.639795e-02 2.693216e-04 3.423586e-10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Prepare the new table\n",
    "new <- cbind(new[,1:5], c(0, p.adjust(as.numeric(ct[-c(1:2),2]), method = \"bonferroni\")), new[,-c(1:5)])\n",
    "colnames(new)[6] <- \"p_value_corrected\"\n",
    "new[,1:10]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {
    "collapsed": true
   },
   "outputs": [],
   "source": [
    "# Write the final table with corrected p_value\n",
    "write.csv(new, \"features_quantification_matrix_transposed_with_significant_correlation_pvalue_corrected.csv\", row.names=FALSE)"
   ]
  }
 ],
 "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.4.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 1
}