fmd

library(tangram)

## Loading required package: R6

## Loading required package: magrittr

fmd = readRDS("fmd.rds")

html5(tangram("group~age+bmi+hb_a1c+s_creatinine+fbs+ppbs",fmd),
              fragment=TRUE,inline="nejm.css",caption="FMD",id="tbl3")

FMD

	N	Control	Diabetic	Test Statistic
		50	100
age	150	525872	394559	F_1,148 = 38.25,P = <0.001¹
bmi	150	20.723.430.0	20.122.428.2	F_1,148 = 2.08,P = 0.151¹
hb_a1c	150	5.005.305.40	6.177.109.00	F_1,148 = 134.56,P = <0.001¹
s_creatinine	150	1.001.101.18	0.881.081.17	F_1,148 = 3.70,P = 0.056¹
fbs	150	859496	117134185	F_1,148 = 291.93,P = <0.001¹
ppbs	150	106114120	141203252	F_1,148 = 176.97,P = <0.001¹

N is the number of non-missing value. ¹Kruskal-Wallis. ²Pearson. ³Wilcoxon.