functions/format_hypothesis_test.R

result_hypothesis_test_kable<-function(result,...){
hypothesis_test<-result$hypothesis.test %>% as.data.frame %>% t
rownames(hypothesis_test)<-gsub(".", " ", rownames(hypothesis_test),fixed=T)
kable(hypothesis_test,...)
}
misizsembes/NGA_H2R_TOOL_v2_June2019 documentation built on Nov. 4, 2019, 6:56 p.m.