knitr::opts_chunk$set(echo = TRUE)
library(knitr) load("parameter") colnames(parameter) <- c("Patameter", "Value", "Meaning") kable(parameter, format = "markdown")
library(knitr) load("module.result") # temp.idx <- which(module.result$p.value < 0.05) # if(length(temp.idx) == 0 & nrow(module.result) > 5){ # temp.idx <- 1:5 # }else{ # temp.idx <- temp.idx # } overlap <- as.numeric(module.result$`Detected metabolite number`)*100/as.numeric(module.result$`Module size`) module.result$`Detected metabolite number` <- overlap colnames(module.result)[5] <- "Overlap (%)" kable(module.result[,c(1,2,3,4,5,13)])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.