Fix typo for BIVs

mitre · Aug 21, 2023 · 62bc3cd · 62bc3cd
1 parent 0522454
commit 62bc3cd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/infants_clean.R b/R/infants_clean.R
@@ -225,7 +225,7 @@ cleanbatch_infants <- function(data.df,
     ))
 
   # add age in years
-  data.df[, ageyears := agedays *365.25]
+  data.df[, ageyears := agedays/365.25]
 
   # calculate the valid step
   valid_set <- valid(data.df, include.temporary.extraneous = TRUE) &

diff --git a/R/infants_support.R b/R/infants_support.R
@@ -152,9 +152,9 @@ calc_oob_evil_twins <- function(df){
 calc_and_recenter_z_scores <- function(df, cn, ref.data.path){
   # for infants, use z and who
   measurement.to.z <- read_anthro(ref.data.path, cdc.only = TRUE,
-                                  infants = T)
+                                  infants = TRUE)
   measurement.to.z_who <- read_anthro(ref.data.path, cdc.only = FALSE,
-                                      infants = T)
+                                      infants = TRUE)
 
   # calculate "standard deviation" scores
   df[, cn.orig_cdc := measurement.to.z(param, agedays, sex, get(cn), TRUE)]