## Vectors of years
x <- fixed(c(-350, 31, 1072, 576, 1130), calendar = CE())
y <- fixed(c(1494, 1645, -869, 1440, 1851), calendar = CE())
## Move forward in time
x + y
## Move backward in time
x - y
## Not rata die anymore
x * y
Run the code above in your browser using DataLab