R: fix year