origin1 <- as.Date("1911-01-01")
	origin2 <- as.Date("1991-01-01")
	origin2 - origin1
	
	
	d1 <- as.Date("2013-01-01", origin=origin1)
	d2 <- as.Date("2013-01-01", origin=origin2)

	identical(d1, d2)