updated read_data.R to return fp_adults as well

This commit is contained in:
Tanushree Tunstall 2020-11-18 13:06:36 +00:00
parent 12eee6923a
commit 07de043cab
2 changed files with 14 additions and 32 deletions

View file

@ -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
#============