[[Rcpp::export]]
| 53 | |
| 54 | // [[Rcpp::export]] |
| 55 | List operators() { |
| 56 | Date d1 = Date(2005,12,31); |
| 57 | Date d2 = d1 + 1; |
| 58 | return List::create(Named("diff") = d1 - d2, |
| 59 | Named("bigger") = d2 > d1, |
| 60 | Named("smaller") = d2 < d1, |
| 61 | Named("equal") = d2 == d1, |
| 62 | Named("ge") = d2 >= d1, |
| 63 | Named("le") = d2 <= d1, |
| 64 | Named("ne") = d2 != d1); |
| 65 | } |
| 66 | |
| 67 | // [[Rcpp::export]] |
| 68 | List components() { |