library(kableExtra)
library(knitr)

featureTable <- featureRanks[,c(1,2,4,6,8,10,11)]
colnames(featureTable)<-c("Feature","MDA","IGain","TTest","D","D1","Description")
featureTable<-featureTable %>%
  mutate(MDA=round(MDA,digits=1)) %>%
  mutate(IGain=round(1000*IGain,digits=1))

knitr::kable(featureTable, format = "latex")

example <- read.csv("../data/example.tsv", header = TRUE, sep = "\t", dec=".", quote="", encoding="UTF-8",stringsAsFactors=FALSE)

knitr::kable(example, format = "latex")