added regression for meds with death outcome
This commit is contained in:
parent
4800f804e4
commit
9158866dda
1 changed files with 30 additions and 0 deletions
|
@ -234,6 +234,10 @@ my_reg_data_med = merge(clinical_df_ics, my_med_sig
|
||||||
, by = intersect(names(clinical_df_ics), names(my_med_sig))
|
, by = intersect(names(clinical_df_ics), names(my_med_sig))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
#-----------------------------
|
||||||
|
# outcome: death + obesity
|
||||||
|
# data: fp adults
|
||||||
|
#-----------------------------
|
||||||
#my_reg_params_meds = c(my_reg_params, sig_npa_cols)
|
#my_reg_params_meds = c(my_reg_params, sig_npa_cols)
|
||||||
my_reg_params_meds = colnames(my_reg_data_med)
|
my_reg_params_meds = colnames(my_reg_data_med)
|
||||||
my_reg_params_meds1 = my_reg_params_meds[!my_reg_params_meds%in%c("mosaic", "flustat"
|
my_reg_params_meds1 = my_reg_params_meds[!my_reg_params_meds%in%c("mosaic", "flustat"
|
||||||
|
@ -255,4 +259,30 @@ for(i in my_reg_params_meds1) {
|
||||||
#print (PseudoR2(model_reg))
|
#print (PseudoR2(model_reg))
|
||||||
print(nobs(model_reg))
|
print(nobs(model_reg))
|
||||||
cat("=================================================================================\n")
|
cat("=================================================================================\n")
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#-----------------------------
|
||||||
|
# outcome: death
|
||||||
|
# data: fp adults
|
||||||
|
#-----------------------------
|
||||||
|
my_reg_params_meds1v2 = my_reg_params_meds[!my_reg_params_meds%in%c("mosaic"
|
||||||
|
, "flustat"
|
||||||
|
, "onset_2_initial"
|
||||||
|
, "onsfindeath"
|
||||||
|
, "ia_exac_copd"
|
||||||
|
, "death")]
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
for(i in my_reg_params_meds1v2) {
|
||||||
|
#print (i)
|
||||||
|
p_form = as.formula(paste("death ~ ", i ,sep = ""))
|
||||||
|
print(p_form)
|
||||||
|
model_reg = glm(p_form , family = binomial, data = my_reg_data_med)
|
||||||
|
print(summary(model_reg))
|
||||||
|
print(exp(cbind(OR = coef(model_reg), confint(model_reg))))
|
||||||
|
#print (PseudoR2(model_reg))
|
||||||
|
print(nobs(model_reg))
|
||||||
|
cat("=================================================================================\n")
|
||||||
}
|
}
|
Loading…
Add table
Add a link
Reference in a new issue