Skip to content

Commit e8e0724

Browse files
authored
Merge pull request #25 from mitre/t50-update-syngrowth
Updated syngrowth to include a mix of peds/adults, tweaked tests, README to match, closes carriedaymont#50
2 parents 2d10354 + e63981a commit e8e0724

File tree

6 files changed

+77876
-85935
lines changed

6 files changed

+77876
-85935
lines changed

README.Rmd

+19-19
Original file line numberDiff line numberDiff line change
@@ -396,7 +396,7 @@ head(syngrowth)
396396
```
397397

398398
It can be used as in the example above. Note that processing the example data
399-
with `cleangrowth()` will likely take a few minutes to complete.
399+
with `cleangrowth()` will likely take several minutes to complete.
400400

401401
```{r, eval = FALSE}
402402
library(dplyr)
@@ -405,27 +405,27 @@ setkey(data, subjid, param, agedays)
405405
cleaned_data <- data[, gcr_result := cleangrowth(subjid, param, agedays, sex, measurement)]
406406
head(cleaned_data)
407407
id subjid sex agedays param measurement gcr_result
408-
1: 83330 002986c5-354d-bb9d-c180-4ce26813ca28 1 20489.22 HEIGHTCM 151.1 Include
409-
2: 83332 002986c5-354d-bb9d-c180-4ce26813ca28 1 20860.22 HEIGHTCM 151.1 Include
410-
3: 83334 002986c5-354d-bb9d-c180-4ce26813ca28 1 20860.22 HEIGHTCM 150.6 Exclude-Same-Day-Extraneous
411-
4: 83335 002986c5-354d-bb9d-c180-4ce26813ca28 1 21231.22 HEIGHTCM 151.1 Include
412-
5: 83337 002986c5-354d-bb9d-c180-4ce26813ca28 1 21602.22 HEIGHTCM 151.1 Include
413-
6: 83339 002986c5-354d-bb9d-c180-4ce26813ca28 1 21623.22 HEIGHTCM 151.1 Include
408+
1: 18692 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 17760 0 176.5 Include
409+
2: 18694 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 18131 0 176.5 Include
410+
3: 18696 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 18131 0 176.2 Exclude-Same-Day-Extraneous
411+
4: 18697 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 18502 0 176.5 Include
412+
5: 18699 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 18873 0 176.5 Include
413+
6: 18702 000a15ea-cdfc-37ec-4067-484e17f2a6cd HEIGHTCM 19244 0 176.5 Include
414414
cleaned_data %>% group_by(gcr_result) %>% tally(sort=TRUE)
415-
# A tibble: 26 x 2
415+
# A tibble: 28 x 2
416416
gcr_result n
417417
<fct> <int>
418-
1 Include 61652
419-
2 Exclude-Extraneous-Same-Day 11263
420-
3 Exclude-Carried-Forward 7093
421-
4 Exclude-Same-Day-Extraneous 4010
422-
5 Exclude-Same-Day-Identical 623
423-
6 Exclude-SD-Cutoff 175
424-
7 Exclude-EWMA-8 139
425-
8 Exclude-Distinct-3-Or-More 125
426-
9 Exclude-BIV 108
427-
10 Exclude-EWMA-Extreme 99
428-
# … with 16 more rows
418+
1 Include 57784
419+
2 Exclude-Same-Day-Extraneous 8058
420+
3 Exclude-Extraneous-Same-Day 5346
421+
4 Exclude-Carried-Forward 4338
422+
5 Exclude-Same-Day-Identical 1223
423+
6 Exclude-BIV 207
424+
7 Exclude-Distinct-3-Or-More 170
425+
8 Exclude-EWMA-8 118
426+
9 Exclude-SD-Cutoff 103
427+
10 Exclude-EWMA-Extreme 66
428+
# … with 18 more rows
429429
```
430430

431431
If you are able to run these steps and see a similar result, you have the

0 commit comments

Comments
 (0)