Hola a todos:

Tengo un problema con las fechas, básicamente necesito una diferencia en días y siempre se sale en segundos. Salvo un ejemplo copiado de un libro, pero yo necesito procesar los datos propios. Les paso el código en R (copiar y pegar, son solo dos días que se comparan) y al final como me salen los resultados porque es medio complicada mi redacción. 

¿Alguna idea?

fechas1 <-c('18/12/1993', '27/11/1975')
fechas2 <-strptime(fechas1, format="%d/%m/%Y")
fechas2 
fechas3 <-c('18/12/1993', '27/11/1976')
fechas4 <-strptime(fechas3, format="%d/%m/%Y")
fechas4
as.numeric(difftime(fechas4,fechas2))
diferencia_seg <-(difftime(fechas4,fechas2))
diferencia_dias <- as.difftime((difftime(fechas4,fechas2)), format="%d")
diferencia_seg
diferencia_dias
##### otra forma que tampoco me funciona, o dicho de otra forma, el resultado en seg
diferencia <- as.POSIXct(fechas2) - as.POSIXct(fechas4)
diferencia
# pero
as.POSIXct("2001-04-26") - as.POSIXct("2001-02-26")
# me da los resultados en días como yo quiero para mis datos
primero<-as.POSIXct("2001-04-26")
segundo<-as.POSIXct("2001-02-26")
primero-segundo
#da el resultado en días, sin embargo como está aquí abajo (mis datos)
primero2<-as.POSIXct(fechas2)
segundo2<-as.POSIXct(fechas4)
primero2-segundo2  
# da el resultado en segundos

--------------------------  Ahora como me sale en la pantalla 

> fechas1 <-c('18/12/1993', '27/11/1975')
> fechas2 <-strptime(fechas1, format="%d/%m/%Y")
> fechas2 
[1] "1993-12-18" "1975-11-27"
> fechas3 <-c('18/12/1993', '27/11/1976')
> fechas4 <-strptime(fechas3, format="%d/%m/%Y")
> fechas4
[1] "1993-12-18" "1976-11-27"
> as.numeric(difftime(fechas4,fechas2))
[1]        0 31622400
> diferencia_seg <-(difftime(fechas4,fechas2))
> diferencia_dias <- as.difftime((difftime(fechas4,fechas2)), format="%d")
> diferencia_seg
Time differences in secs
[1]        0 31622400
attr(,"tzone")
[1] ""
> diferencia_dias
Time differences in secs
[1]        0 31622400
attr(,"tzone")
[1] ""
> ##### otra forma que tampoco me funciona, o dicho de otra forma, el resultado en seg
> diferencia <- as.POSIXct(fechas2) - as.POSIXct(fechas4)
> diferencia
Time differences in secs
[1]         0 -31622400
attr(,"tzone")
[1] ""
> # pero
> as.POSIXct("2001-04-26") - as.POSIXct("2001-02-26")
Time difference of 59 days
> # me da los resultados en días como yo quiero para mis datos
> primero<-as.POSIXct("2001-04-26")
> segundo<-as.POSIXct("2001-02-26")
> primero-segundo
Time difference of 59 days
> #da el resultado en días, sin embargo con está aquí abajo (mis datos)
> primero2<-as.POSIXct(fechas2)
> segundo2<-as.POSIXct(fechas4)
> primero2-segundo2  
Time differences in secs
[1]         0 -31622400
attr(,"tzone")
[1] ""
> # da el resultado en segundos
	[[alternative HTML version deleted]]

