```{r}
library(kableExtra)
library(openxlsx)
messy_infarct <- read.xlsx(xlsxFile = "https://github.com/higgi13425/medicaldata/raw/master/data-raw/messy_data/messy_infarct.xlsx", sheet = 1, skipEmptyRows = TRUE)
messy_infarct
``` X1 X2 X3
1 <NA> <NA> <NA>
2 Race Hispanic Sex
3 American Indian or Alaska Native Hispanic Male
4 <NA> <NA> Female
5 <NA> Not Hispanic Male
6 <NA> <NA> Female
7 Asian Hispanic Male
8 <NA> <NA> Female
9 <NA> Not Hispanic Male
10 <NA> <NA> Female
11 Black or African-American Hispanic Male
12 <NA> <NA> Female
13 <NA> Not Hispanic Male
14 <NA> <NA> Female
15 Native Hawaiian or Other Pacific Islander Hispanic Male
16 <NA> <NA> Female
17 <NA> Not Hispanic Male
18 <NA> <NA> Female
19 White Hispanic Male
20 <NA> <NA> Female
21 <NA> Not Hispanic Male
22 <NA> <NA> Female
Statin Arm Statin Yes X6 X7 Statin No X9 X10 X11 X12
1 Myocardial Infarction Yes No Yes No Yes No Yes No
2 <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA>
3 <NA> 1 4 0 2 1 3 0 1
4 <NA> 0 3 0 0 0 2 0 1
5 <NA> 16 88 14 90 37 59 25 114
6 <NA> 12 90 11 95 31 66 19 110
7 <NA> 2 4 4 7 5 8 5 9
8 <NA> 1 3 3 6 3 9 3 8
9 <NA> 16 87 14 89 38 57 22 76
10 <NA> 14 90 12 92 33 64 17 82
11 <NA> 4 14 6 18 9 11 6 18
12 <NA> 4 15 4 19 7 13 5 20
13 <NA> 44 145 60 184 88 106 64 178
14 <NA> 38 163 49 191 73 121 51 191
15 <NA> 3 5 5 8 6 10 6 11
16 <NA> 2 5 4 7 4 11 4 11
17 <NA> 20 66 28 87 41 58 32 91
18 <NA> 17 77 25 93 36 59 24 88
19 <NA> 66 242 44 147 77 94 53 157
20 <NA> 34 135 37 164 55 194 42 167
21 <NA> 327 1297 223 735 378 456 252 745
22 <NA> 167 657 198 802 289 489 198 807