[R-es] Hola, soy Pablo.

Mie Nov 28 20:44:44 CET 2012

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 en gmail.com

El 28 de noviembre de 2012 16:14, daniel <daniel319 en 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 en 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 en gmail.com
> >
> >
> >
> >
> > El 28 de noviembre de 2012 11:18, Usuario R <r.user.spain en 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 en gmail.com
> >
> >> escribió:
> >>>
> >>> Pablo A. Guzzi
> >>
> >>
> >>
> >>
> >> --
> >> Patricia García González
> >>
> >>
> >
>
>
>
> --
> Daniel
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20121128/1857f8b0/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: datos.csv
Type: text/csv
Size: 500 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20121128/1857f8b0/attachment-0001.bin>