| PeterFankhauserIDS | b9a3cef | 2021-04-18 10:42:43 +0200 | [diff] [blame^] | 1 | library(kableExtra) |
| 2 | library(knitr) |
| 3 | |
| 4 | featureTable <- featureRanks[,c(1,2,4,6,8,10,11)] |
| 5 | colnames(featureTable)<-c("Feature","MDA","IGain","TTest","D","D1","Description") |
| 6 | featureTable<-featureTable %>% |
| 7 | mutate(MDA=round(MDA,digits=1)) %>% |
| 8 | mutate(IGain=round(1000*IGain,digits=1)) |
| 9 | |
| 10 | knitr::kable(featureTable, format = "latex") |
| 11 | |
| 12 | example <- read.csv("../data/example.tsv", header = TRUE, sep = "\t", dec=".", quote="", encoding="UTF-8",stringsAsFactors=FALSE) |
| 13 | |
| 14 | knitr::kable(example, format = "latex") |
| 15 | |
| 16 | |