functions/format_hypothesis_test.R

In misizsembes/NGA_LGA_Profiling: A grammar of hypothesis test driven analysis for the NIgeria 2019 MSNA

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,...)
}