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

added checks for fp adults in read_data.R

Browse source
This commit is contained in:
Tanushree Tunstall 2020-11-18 13:08:39 +00:00
parent 07de043cab
commit 9dbad32504
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
read_data.R
View file

@ -61,6 +61,12 @@ if (table(adult_df$adult == 1)[[1]] == nrow(adult_df) ){
# extract the flu positive population
fp_adults = adult_df[adult_df$flustat == 1,]
if (table(fp_adults$flustat == 1)[[1]] == nrow(fp_adults) ){
cat ("PASS: adult df extracted successfully")
} else{
cat ("FAIL: adult df number mismatch!")
}
#============
# hc
#============