Я получаю странное форматирование, используя kable.
make.tab = function(res,true){
avg.res = round(apply(res,2,mean),2)
tab = rbind(avg.res,true)
#rownames(tab) = c('Samples','Truth')
t(tab)
}
Затем я отправляю эту функцию в блокнот Rmarkdown.
source('hepler.R')
mt = make.tab(res, true)
kable(mt)