Jahr Brüche mit Actual/365 Konvention in R

Question

Gibt es eine Funktion/Paket, die Jahr Bruch (Unterschiede zwischen zwei Datumsangaben) mit anderen Tag-Konvention zählen, wie JahrFrac() in Matlab? Ich muss Actual/365 Konvention verwenden.

Answer 1

rollYourOwn <- function(D, origin=as.Date("1970-01-01")) { 
    if (!inherits(D, "Date")) 
    D <- as.Date(D, origin=origin) 
    as.numeric(D - as.Date(format(D, "%Y-01-01"), origin=origin) + 1)/365 
} 

rollYourOwn("2014-01-01") 
# [1] 0.00273973 

rollYourOwn(Sys.Date()) 
# [1] 0.742466 

rollYourOwn("2014-12-31") 
# [1] 1