perché divide coerce di divisione in numero intero in R e c'è una soluzione alternativa

Question

Si possono creare date in R da tipi numerici, anche valori frazionari. Non è molto comune, ma accade per esempio quando si calcola la media delle date. Purtroppo, sembrano rompere split

> as.Date(-1, origin = "1970-01-01") 
[1] "1969-12-31" 
> as.Date(-1.0001, origin = "1970-01-01") 
[1] "1969-12-30" 
> split(as.Date(-1, origin = "1970-01-01"), 1)[[1]] 
[1] "1969-12-31" 
> split(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]] 
[1] "1969-12-31" #this is wrong 
> unclass(split(as.Date(-1, origin = "1970-01-01"), 1)[[1]]) 
[1] -1 
> unclass(split(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]]) 
[1] -1 #this is "why" 

Così due date che erano differenti sono fatti uguali da un split. Le persone sono d'accordo che questo è un bug o mi manca la ragione profonda? Qualche soluzione alternativa? Grazie

Answer 1

Per qualsiasi motivo, split.Date costringe il Date ingresso intero:

> split.Date 
function (x, f, drop = FALSE, ...) 
{ 
    y <- split.default(as.integer(x), f, drop = drop) 
    for (i in seq_along(y)) class(y[[i]]) <- "Date" 
    y 
} 
<bytecode: 0x2effb98> 
<environment: namespace:base> 

Questo è al minimo l'infelicità tra la funzione e la relativa documentazione, in quanto ?Date dice: "la data dovrebbe essere un numero intero, ma questo non è applicato nella rappresentazione interna. ". Alcuni potrebbero considerarlo un bug. Non ne sono sicuro.

È possibile evitare ciò chiamando direttamente split.default.

> split.default(as.Date(-1.0001, origin = "1970-01-01"), 1)[[1]] 
[1] "1969-12-30"