17 Statistical tests

17.1 Chi-square and t-Student’s test

tab3 <- crosstable(mtcars, c(vs, qsec), by=am, funs=mean, test=TRUE)
tab3 <- flextable(tab3, col_keys=c("label", "variable", "0", "1", "test"))
tab3 <- merge_v(tab3, j=c("label","test"))
tab3 <- mk_par(tab3, j=1, 
  value=as_paragraph(as_chunk("Variable")), part="header")
tab3 <- mk_par(tab3, j=2, 
  value=as_paragraph(as_chunk("Label")), part="header")
tab3 <- mk_par(tab3, j=3, 
  value=as_paragraph(as_chunk("Automatic")), part="header")
tab3 <- mk_par(tab3, j=4, 
  value=as_paragraph(as_chunk("Manual")), part="header")
names <- c("Engine","1/4 mile time")
tab3 <- mk_par(tab3, j=1, i=c(1,3), 
     value=as_paragraph(as_chunk(names)))
names <- c("V-shapped","Straight","Mean")
tab3 <- mk_par(tab3, j=2, i=1:3, 
     value=as_paragraph(as_chunk(names)))
tab3 <- add_header_row(tab3, values=c("","Transmission",""), colwidths=c(2,2,1))
tab3 <- hline(tab3, i=2, border=fp_border_default())
tab3 <- align(tab3, part="all", align="center")
tab3 <- width(tab3, width=2)

17.2 Chi-square and t-Student’s test

17.3 Regression analysis

fit <- lm(mpg ~ wt + hp, data = mtcars)

# Convert to flextable
ft <- as_flextable(fit)