No es precisamente lo que quiero. Tal vez lo exprese mal.

El Script que mandaste lo simulo de la siguiente forma!
Adjunto el .csv para que todos tengamos los mismo




datos <- read.csv("C:/datos.csv")

datos ## estado inicial del data frame

datos$hs<-substring(datos$Hora, 1, 2)

library("plyr")
base2 <- ddply(datos, .(Tarjeta,hs), transform, acum=cumsum(Importe))
base2


Ahora, eso, hace hora a hora la suma del importe. Pero por ejemplo si, una
transaccion se hace 4.59 no la tiene en cuenta para el calculo de la hora 5.

Yo necesito lo siguiente


En donde Importe_hora, es la suma del importe de las transacciones que se
hicieron en los ultimos 60 minutos en referencia a la fecha y hora de
la transaccion
en cuestion.


Abrazo

Pablo A. Guzzi
guzzipa@gmail.com


Abrazo

Pablo A. Guzzi
guzzipa@gmail.com




El 28 de noviembre de 2012 16:44, Pablo Andres Guzzi
<guzzipa@gmail.com>escribió:

> No es precisamente lo que quiero. Tal vez lo exprese mal.
>
> El Script que mandaste lo simulo de la siguiente forma!
> Adjunto el .csv para que todos tengamos los mismo
>
>
>
>
> datos <- read.csv("C:/datos.csv")
>
> datos ## estado inicial del data frame
>
> datos$hs<-substring(datos$Hora, 1, 2)
>
> base2 <- ddply(datos, .(Tarjeta,hs), transform, acum=cumsum(Importe))
> base2
>
>
> Ahora, eso, hace hora a hora la suma del importe. Pero por ejemplo si,
> una transaccion se hace 4.59 no la tiene en cuenta para el calculo de la
> hora 5.
>
> Yo necesito lo siguiente
>
>
>
>
> En donde Importe_hora, es la suma del importe de las transacciones que se
> hicieron en los ultimos 60 minutos en referencia a la fecha y hora de la transaccion
> en cuestion.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Abrazo
>
> Pablo A. Guzzi
> guzzipa@gmail.com
>
>
>
>
> El 28 de noviembre de 2012 16:14, daniel <daniel319@gmail.com> escribió:
>
>  Pablo,
>>
>> Luego de leer el mensaje de Javier me pareció que podría ser un tema
>> que interese a más gente, por lo tanto, me tomé la libertad de usar tu
>> ejemplo (por favor otra vez envía datos que sean reproducibles
>>
>> http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example
>> ).
>>
>> Espero lo siguiente sea lo que necesitas y sirva a otros para orientar
>> sus consultas, o para que gentilmente me corrijan.
>>
>> library(xts)
>>
>> # Data artificial, no necesariamente igual a la de Pablo por un tipeo
>> descuidado
>> Fecha <- c(rep(as.Date("2012-1-1"), 3), rep(as.Date("2012-1-2"), 6),
>> rep(as.Date("2012-1-3"), 3))
>> Hora <-
>> c("5:39:10","5:39:17","5:50:10","8:39:10","9:39:10","9:39:13","11:39:10","12:39:10","13:39:10","14:39:10","15:39:10","16:39:10")
>> Importe <- c(10,15,50,240,40,110,80,100,15,200,300,150)
>> FechaHora <- as.POSIXct(paste(Fecha, Hora), tz = "UTC")
>> diff(FechaHora, lag=1) # no lo uso es solo para ver las diferencias en
>> segundos
>> ep <- endpoints(FechaHora, 'hours')
>> PabloData <- xts(Importe, FechaHora)
>> period.apply(PabloData, INDEX=ep, FUN=sum)
>> # como verás no usé rollapply, sino period.apply ya que los datos
>> vienen con períodos irregulares.
>> # no me tomé el tiempo para ver si el resultado es el correcto.
>>
>> Daniel Merino
>>
>>
>>
>> El día 28 de noviembre de 2012 13:05, Marcuzzi, Javier Rubén
>> <javier.ruben.marcuzzi@gmail.com> escribió:
>> > Estimado Pablo
>> >
>> > Entonces su problema tiene algo parecido a algo que me paso, en esta
>> lista,
>> > había que buscarlo, me pasaron varias posibilidades de trabajo, en mi
>> caso
>> > eran días, pero en R la unidad de tiempo se cuenta a partir de una fecha
>> > fija y creo que en segundos, en mi caso varias alternativas fallaron, o
>> > daban resultados que al leerlos estaban bien, pero como yo conocía el
>> valor
>> > real, encontré algunos errores de R, ni idea el porqué (incluso copiado
>> de
>> > libro), pero la solución en mi caso es striptime(), r-project se
>> actualizó,
>> > mejoro, etc., pero una vez que tengo un código qua anda prefiero no
>> tocarlo.
>> >
>> > Le recomiendo que pruebe con pocos datos, según su versión de R, sistema
>> > operativo, datos, etc. No confíe en los resultados hasta leer varios
>> > originales, algún cálculo mental o con lápiz, y si está acorde
>> continuar, el
>> > trabajo con fechas por ahí da trabajo, aunque si todo anda bien es
>> > rapidísimo.
>> >
>> > El resto, intente la ayuda de Daniel, si se presentan inconvenientes
>> entre
>> > todos buscaremos alguna forma, pero sería recomendable intercambiar
>> códigos
>> > de R para ser precisos.
>> >
>> > Javier Marcuzzi
>> >
>> > From: Pablo Andres Guzzi
>> > Sent: Wednesday, November 28, 2012 12:05 PM
>> > To: javier.ruben.marcuzzi ; daniel319
>> > Cc: r-help-es
>> > Subject: Re: [R-es] Hola, soy Pablo.
>> >
>> > Daniel, ya me pongo a investigar el paquete zoo y mas precisamente el
>> > comando rollappl.
>> >
>> > Javier, Necesito los movimientos de los ultimos 60 minutos segun la
>> fecha de
>> > la transaccion. Si la transaccion tiene fecha de realizacion 28/11/2012
>> a
>> > las 12:00:00 necesito que la variable en cuestion cuente las trx
>> realizadas
>> > desde las 11:00:00 hasta las 12:00:00 del 28/11/2012
>> >
>> >
>> >
>> > Abrazo
>> >
>> > Pablo A. Guzzi
>> > guzzipa@gmail.com
>> >
>> >
>> >
>> >
>> > El 28 de noviembre de 2012 11:18, Usuario R <r.user.spain@gmail.com>
>> > escribió:
>> >>
>> >> Hola Pablo,
>> >>
>> >> Soy Patricia la administradora de la lista. Bienvenido y muchas gracias
>> >> por tu email.
>> >>
>> >> Quería también hacerte una pregunta, estas buscando trabajo? Yo soy
>> >> también licenciada en estadística y vivo en Berlin. Me mandan
>> muchisimas
>> >> ofertas de trabajo y te podría pasar algunas, si estas interesado.
>> Todas las
>> >> ofertas son para Alemania, sobretodo Berlin.
>> >>
>> >> Bueno, espero que la lista te ayude con tus dudas, un abrazo.
>> >>
>> >> Patricia
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> El 28 de noviembre de 2012 15:04, Pablo Andres Guzzi <
>> guzzipa@gmail.com>
>> >> escribió:
>> >>>
>> >>> Pablo A. Guzzi
>> >>
>> >>
>> >>
>> >>
>> >> --
>> >> Patricia García González
>> >>
>> >>
>> >
>>
>>
>>
>> --
>> Daniel
>>
>
>

	[[alternative HTML version deleted]]

