tanu/mosaic_2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

reformatting code to select needed df for analysis

Browse source
This commit is contained in:
Tanushree Tunstall 2020-11-20 11:43:03 +00:00
parent a6cbaab40a
commit b72c4df796
7 changed files with 243 additions and 102 deletions
Download patch file Download diff file Expand all files Collapse all files

34
flu_stats_contingency.R
View file

@ -214,4 +214,36 @@ comb_stats_categ_df_f = comb_stats_categ_df[order(comb_stats_categ_df$p_signif
# write output file
#******************
cat("Chisq and fishers test results in:", outfile_clin_categ)
write.csv(comb_stats_categ_df_f, outfile_clin_categ, row.names = FALSE)
#write.csv(comb_stats_categ_df_f, outfile_clin_categ, row.names = FALSE)
#==================
#0 date not recorded
#-1 not recorded
#-2 n/a specified by clinician
#-3 unknown specified by
chisq_test(table(clinical_df_ics$obesity, clinical_df_ics$smoking))
chisq_test(table(clinical_df_ics$obesity, clinical_df_ics$max_resp_score))
chisq_test(table(clinical_df_ics$obesity, clinical_df_ics$T1_resp_score))
chisq_test(table(clinical_df_ics$obesity, clinical_df_ics$t1_resp_recoded))
obese_df = clinical_df_ics[clinical_df_ics$obesity == 1,]
not_ob_df = clinical_df_ics[clinical_df_ics$obesity == 0,]
wilcox.test(obese_df$age, not_ob_df$age, paired = F)
wilcox.test(obese_df$los, not_ob_df$los, paired = F)
wilcox.test(obese_df$o2_sat_admis, not_ob_df$o2_sat_admis, paired = F)
wilcox.test(obese_df$onset_2_initial, not_ob_df$onset_2_initial, paired = F)
wilcox.test(obese_df$onset2final, not_ob_df$onset2final, paired = F)
wilcox.test(obese_df$onsfindeath, not_ob_df$onsfindeath, paired = F)
clinical_df_ics$age
clinical_df_ics$los
clinical_df_ics$o2_sat_admis #***** (already bin)
clinical_df_ics$onset_2_initial # ***** (already bin)
clinical_df_ics$onset2final
clinical_df_ics$onsfindeath