# NOT RUN {
library(nprcgenekeepr)
someDates <- rep(as.Date(c("2009-2-16", "2016-2-16"), format = "%Y-%m-%d"),
10)
minBirthDate <- rep(as.Date("2009-2-16", format = "%Y-%m-%d"), 20)
obfuscateDate(someDates, 30, minBirthDate)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab