Some quick and dirty latex table generation.
Change-Id: I8c6ea4d7e860e8ac0ddc31d55ecc2b4db5ba8cfa
diff --git a/R/latextables.R b/R/latextables.R
new file mode 100644
index 0000000..471ab9f
--- /dev/null
+++ b/R/latextables.R
@@ -0,0 +1,16 @@
+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")
+
+