checked and tidy up scripts for plots for non-severe
This commit is contained in:
parent
f2b778ace7
commit
dde2cc9494
3 changed files with 63 additions and 64 deletions
|
@ -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
|
||||
#=========
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue