updated read_data.R to return fp_adults as well
This commit is contained in:
parent
12eee6923a
commit
07de043cab
2 changed files with 14 additions and 32 deletions
|
@ -43,7 +43,6 @@ all(meta_data_cols%in%colnames(all_df))
|
|||
|
||||
metadata_all = all_df[, meta_data_cols]
|
||||
|
||||
|
||||
#==============
|
||||
# adult patients
|
||||
#==============
|
||||
|
@ -56,6 +55,12 @@ if (table(adult_df$adult == 1)[[1]] == nrow(adult_df) ){
|
|||
cat ("FAIL: adult df number mismatch!")
|
||||
}
|
||||
|
||||
#==============
|
||||
# FLU positive: adult patients
|
||||
#==============
|
||||
# extract the flu positive population
|
||||
fp_adults = adult_df[adult_df$flustat == 1,]
|
||||
|
||||
#============
|
||||
# hc
|
||||
#============
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue