julian(m, d, y, origin=c(month=1, day=1, year=1960)) month.day.year(jul, origin=c(month=1, day=1, year=1960)) leap.year(y) day.of.week(m, d, y)
These functions were taken from Becker, Chambers, and Wilks (1988), and were slightly modified to take dates objects; some also take the extra argument origin. The original functions are stored in the library(example).
n.days <- julian(mon, day, 1990+yr, origin=c(1,1,1990))