“…outcome.full$`Genetic Disorder`[8] <-"Klinefelter syndrome" outcome.full$`Genetic Disorder`[9] <-"Turner syndrome" outcome.full$`Genetic Disorder`[10] <-"Unspecified Aneuploidy" outcome.full$`Genetic Disorder`[12] <-"13q deletion syndrome" outcome.full$`Genetic Disorder`[13] <-"Cri-du-chat syndrome" outcome.full$`Genetic Disorder`[14] <-"DiGeorge syndrome" outcome.full$`Genetic Disorder`[15] <-"Unspecified CNV" outcome.full$`Genetic Disorder`[18] <-"Thalassemia" outcome.full$`Genetic Disorder`[19] <-"Hemoglobin bart's" #should i name this as Alpha Thalassemia? outcome.full$`Genetic Disorder`[20] <-"Sickle cell disease" outcome.full$`Genetic Disorder`[21] <-"G6PD deficiency" outcome.full$`Genetic Disorder`[22] <-"Hemophilia A" outcome.full$`Genetic Disorder`[23] <-"Hemophilia B" outcome.full$`Genetic Disorder`[25] <-"Cystic fibrosis" outcome.full$`Genetic Disorder`[26] <-"Fragile X syndrome" outcome.full$`Genetic Disorder`[27] <-"Hypophosphatasia" outcome.full$`Genetic Disorder`[28] <-"Fanconi Anemia" outcome.full$`Genetic Disorder`[29] <-"Multiple Disorders" # outcome.full$`Genetic Disorder`[29] <-"Absent" colnames(outcome.full)[3] <-"ICH" colnames(outcome.full)[4] <-"NEC" colnames(outcome.full)[5] <-"BPD" colnames(outcome.full)[9] <-"Mortality" colnames(outcome.full)[10] <-"Mortality or Any Severe Morbidity" corrected.outcomes <-outcome.full[, c(1, 10, 9, 2, 3, 4, 5, 6, 7, 8)] library(dplyr) library(tidyverse) library(pixiedust) library(kableExtra) library(knitr) outcome.counts <-dust(corrected.outcomes, rownames = F) %>% sprinkle(col = 1:9, round = 0) %>% #bold = T, part = "head") sprinkle(col = 10, halign = "center") %>% kable(align=c(rep('lcc'))) %>% kable_styling(font_size = 20) %>% kable_classic(full_width = F, html_font = "Cambria") tmp.1 <-add_indent(outcome.counts, c(1:2, 4:10, 12:15, 17, 24), level_of_indent = 1, all_cols = FALSE) tmp.2<-add_indent(tmp.1, c(18:23, 25:28), level_of_indent = 2, all_cols = FALSE) outcome.finals <-tmp.2 %>% row_spec(0,bold = T) %>% row_spec(1:2, italic = T) %>% column_spec(1, width = "20em") outcome.n.…”