Changed denominator to 365.25 to have more accurate age calculations.

jbryer · Apr 19, 2012 · 4b5d915 · 4b5d915
1 parent f6ea2ba
commit 4b5d915
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/age.R b/R/age.R
@@ -2,7 +2,7 @@
 #' @author Jason Bryer <jbryer@@excelsior.edu>
 #' @export
 getAge <- function (dateCol, calcDate) {
-    as.numeric((as.Date(calcDate) - dateCol)/365)
+    as.numeric((as.Date(calcDate) - dateCol)/365.25)
 }
 
 #' Returns a factor variable using the given breaks and labels. Will calculate the