# NOT RUN {
dates <- structure(c(12361, 14400, 15413, NA, 11189, NA, 13224, 10971,
-432000, 13262), class = "Date")
cleanedDates <- removeEarlyDates(dates, firstYear = 1000)
dates
cleanedDates
# }
Run the code above in your browser using DataLab