checked and tidy up scripts for plots for non-severe

This commit is contained in:
Tanushree Tunstall 2020-12-07 16:51:16 +00:00
parent f2b778ace7
commit dde2cc9494
3 changed files with 63 additions and 64 deletions

View file

@ -12,6 +12,12 @@ wf_npa = wf_fp_npa
wf_sam = wf_fp_sam
wf_serum = wf_fp_serum
############################################################
# Numbers
table(fp_adults_ics$asthma, fp_adults_ics$obesity)
table(fp_adults_ics$obesity)
#=========
# t1
#=========
@ -24,6 +30,23 @@ length(wf_npa$il12p70_npa1) - sum(is.na(wf_npa$il12p70_npa1))
tapply(wf_npa$eotaxin3_npa1, wf_npa$obesity, mean, na.rm = T)
tapply(wf_npa$eotaxin3_npa1, wf_npa$obesity, median, na.rm = T)
npa_wf_a = npa_wf[npa_wf$asthma == 1,]
npa_wf_na = npa_wf[npa_wf$asthma == 0,]
wilcox.test(npa_wf_a$il4_npa1[npa_wf_a$obesity == 1]
, npa_wf_a$il4_npa1[npa_wf_a$obesity == 0], paired = F)
length(npa_wf_a$il4_npa1) - sum(is.na(npa_wf_a$il4_npa1))
wilcox.test(npa_wf_a$il13_npa1[npa_wf_a$obesity == 1]
, npa_wf_a$il13_npa1[npa_wf_a$obesity == 0], paired = F)
wilcox.test(npa_wf_na$il4_npa1[npa_wf_na$obesity == 1]
, npa_wf_na$il4_npa1[npa_wf_na$obesity == 0], paired = F)
wilcox.test(npa_wf_na$il13_npa1[npa_wf_na$obesity == 1]
, npa_wf_na$il13_npa1[npa_wf_na$obesity == 0], paired = F)
#=========
# t2
#=========