Lidar com periódios de tempo, como 5 minutos e 30 segundos em r

Question

Existe uma boa maneira de lidar com períodos de tempo, como 05:30 (5 minutos, 30 segundos) em r?

Como alternativa, qual é a maneira mais rápida de convertê -lo em um número inteiro com apenas segundos?

Só posso converter em datas e não consigo encontrar um tipo de dados para o tempo.

Estou usando R com o zoológico.

Muito obrigado !

---

Segundos foi a melhor maneira de lidar com isso. Adaptei o código de Shane abaixo para meus propósitos, aqui está o resultado.

# time - time in the format of dd hh:mm:ss
#       (That's the format used in cvs export from Alcatel CCS reports)
#
time.to.seconds <- function(time) {

   t <- strsplit(as.character(time), " |:")[[1]]
   seconds <- NaN

   if (length(t) == 1 )
      seconds <- as.numeric(t[1])
   else if (length(t) == 2)
      seconds <- as.numeric(t[1]) * 60 + as.numeric(t[2])
   else if (length(t) == 3)
      seconds <- (as.numeric(t[1]) * 60 * 60 
          + as.numeric(t[2]) * 60 + as.numeric(t[3]))   
   else if (length(t) == 4)
      seconds <- (as.numeric(t[1]) * 24 * 60 * 60 +
         as.numeric(t[2]) * 60 * 60  + as.numeric(t[3]) * 60 +
         as.numeric(t[4]))

   return(seconds)
}

Answer 1

Como Dirk aponta, existe um objeto chamado "Difftime", mas não pode ser adicionado/subtraído.

> as.difftime(5, units="mins")
Time difference of 5 mins

> d <- seq(from=as.POSIXct("2003-01-01"), to=as.POSIXct("2003-01-04"), by="days")
> d
[1] "2003-01-01 GMT" "2003-01-02 GMT" "2003-01-03 GMT" "2003-01-04 GMT"

> d + as.difftime(5, units="mins")
[1] "2003-01-01 00:00:05 GMT" "2003-01-02 00:00:05 GMT"
[3] "2003-01-03 00:00:05 GMT" "2003-01-04 00:00:05 GMT"
Warning message:
Incompatible methods ("+.POSIXt", "Ops.difftime") for "+" 

Parece que agora você pode fazer isso:

  > as.difftime(5, units='mins')
    Time difference of 5 mins
    > d <- seq(from=as.POSIXct("2003-01-01"), to=as.POSIXct("2003-01-04"), by="days")
    > d 
    [1] "2003-01-01 GMT" "2003-01-02 GMT" "2003-01-03 GMT" "2003-01-04 GMT"
    > d + as.difftime(5, unit='mins')
    [1] "2003-01-01 00:05:00 GMT" "2003-01-02 00:05:00 GMT"
    [3] "2003-01-03 00:05:00 GMT" "2003-01-04 00:05:00 GMT"
    > d + as.difftime(5, unit='secs')
    [1] "2003-01-01 00:00:05 GMT" "2003-01-02 00:00:05 GMT"
    [3] "2003-01-03 00:00:05 GMT" "2003-01-04 00:00:05 GMT"
   >

Isso é com o R 2,15.0 lançado recentemente

Answer 2

Sim, embora não haja tipo 'tempo', você pode usar um tempo de deslocamento:

R> now <- Sys.time()
R> now
[1] "2009-09-07 08:40:32 CDT"
R> class(now)
[1] "POSIXt"  "POSIXct"
R> later <- now + 5*60
R> later
[1] "2009-09-07 08:45:32 CDT"
R> class(later)
[1] "POSIXt"  "POSIXct"
R> tdelta <- difftime(later, now)
R> tdelta
Time difference of 5 mins
R> class(tdelta)
[1] "difftime"
R> 

Quando você usa o jardim zoológico pacote, você está usando padrão POSIXt Tipos para seus índices de tempos. Tanto o zoológico quanto o mais novo e também altamente recomendado XTS o pacote pode usar POSIXt, e especialmente o compacto POSIXct Tipo, para indexação.

O pacote XTS tem muito mais funcionalidade de indexação, e Jeff adicionou recentemente a análise de intervalos de acordo com a especificação ISO8601-2004 (e) e fornece essas referências paraISO8601 e a Perguntas frequentes para padrões amplamente utilizados para formatos de data e hora. Para usar esta versão XTS, pode ser necessário mudar o Snapshot de desenvolvimento XTS em R-Forge

[Editar:] Além disso, em relação à pergunta sobre 'conversão': isso é fácil depois que você tem objetos de classe Posixt / Posixct como as.numeric() Converterá Posixct em segundos (fracionários) desde a época. R vai além do padrão POSIX e usa um duplo aqui, para que você tenha uma precisão de milissegundos:

R> options("digits.secs"=6)   ## needed so that fractional seconds are printed
R> now <- Sys.time(); difftime(Sys.time(), now)
Time difference of 0.000149 secs

e

R> print(as.numeric(now), digits=15)   ## print with digits for sub-second time
[1] 1252374404.22975
R>