Problem with February leap years

The code below should generate a policy with a 2000-02-12 effective date, but a 2001-02-10 expiration date. The expiration date should be 2001-02-11.

```
set.seed(1234)
dfPolicies <- SimulatePolicies(N = 2, NumYears = 5)
```