<font><font face="verdana,sans-serif">No es pre<font>cisamente lo que q<font>uiero. Tal <font>vez lo exprese mal.<br><br><font><font>El Scrip<font>t que mandaste lo simulo de la siguiente forma!<br>Adjunto el <font>.csv <font>para que todos tengamos lo<font>s mismo<br>

<br><br><br><br>datos <- read.csv("C:/datos.csv")<br><br>datos ## estado inicial del data frame<br><br>datos$hs<-substring(datos$Hora, 1, 2) <br><br>base2 <- ddply(datos, .(Tarjeta,hs), transform, acum=cumsum(Importe))<br>

base2<br><br><br><font>Ahora, eso<font>, hace hora a hora la suma del importe. <font>Pero por ejemplo si, una tr<font>ansaccion se hace 4.59 no la tiene en cuenta para el calculo de <font>la hora 5.<br><br><font>Yo necesito lo siguiente</font><br>

</font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font><br><font><font face="verdana,sans-serif"><font><font><font><font><font><font><font><font><font><font><font><font><font><font><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAlgAAAEICAIAAAAMYh3hAAAgAElEQVR4nO2dy5mDOhKFCWliI4xJgSju4m5YTgxe+etOgCSYhQ16lV48jkr0+T8W3WUk4FCuQhKWhn/+nblxe8b2v//+hxtga36juXG7dhtWcj/vn9/Wp/AnoM4YqDMG6ozh/fPLRIiADo2BOmOgzhioMwYmQhB0aAzUGQN1xkCdMTARgqBDY6DOGKgzBuqMgYkQBB0aA3XGQJ0xUGcMTIQg+nfoZR6H6dX6LHL0r3MfUGcMf0BnFYGlSSJ8TUNIqRSvaRjGeUnuo0JaFw0O7eleqZBCUQU06LyxzKPjqv7/PQPW+TVV++sZ9Pj6YZ37UUyF2E1bhLcFBhXSumgI0K/pjNwKRRXQoPMGE+Fl9BPWL4aJEIOyRLjMo99eeU3DOM/TbnNlswp8rbZlq12oFo2GAB1JhKGGvnl6rZvwe6vSqkmBvDsadN5IJ0JRdt/bVWlr0y4RLvM4zsvuh9PLaLSL6+3j34Sk7OMYBpDYd+R+rkiEyhWLBxbgd0RVInxNtorfvz8CuanPSpL733ZlbrIUq0WjIUCLiTCiod0D/RHw427Wx99SKuTd0aDzRiIRLvPoyv79x/N2XdraNE2Eg/fUa/5xnnxDrQtl9xspsTgD4KJEqFmxWGCBfkdUJULvI3PZdp43n4R51L6R4rNBu1a4hgDtjhHuD1OShkLHiv90Idw6BZ0cGnTecDonnOddX6hdzXiHlgJtbdomwl0I5x+zUxiWx3mpkD04hhxnAFyVCBUrFgks2O+IrkToRo6SRCiGGV8QqVo0GgK04I8xDSO7iolQg7w7GnTeiLcIo04tfaBGW5veEuEwvSpld44hxxkA7RIhTLFIYMF+RzQlQr85XZIIC54M5GrRaAjQ2ezm7FrYItQh744GnTfiibDwaVeZtja9JcKT7ZtmynfbIixX7FyL8KLviNJE+JoKWoTxrlXnA7laNBoCtNRDEdNQHiNMJ8KG8u5o0HmjZowwHCJZ1Wlroz8ROv1DVbL7d67l+CwyETZSLNbVBP2OaEqE1iDWOM9TPhGufrPYfgfKMkjVotEQoAveGhU0lMe1rLo0yLujQeeNRCJcnRFb1+g9BuvR1kZ/IrReRBQVTcnuBZDod+R+sC3CJoolXj7AfUf6m1lGWRdRKZoC9JOhzhh069xpkBBA6fwcxY7RXyKEvrN1HboDx3Ogzhh06/ycsM5EiKGrRPhtbXd5v3QHjudAnTHo1vk5Yf1BidD99VaDbuYUXSXCntEdOJ4DdcZAnTFQZwzvn9/h/fPLjRs3bty4/dmNLUIEbz7ZQaDOGKgzBuqMgYkQBB0aA3XGQJ0xUGcMTIQg6NAYqDMG6oyBOmNgIgRBh8ZAnTFQZwzUGQMTIQglDh2fuf3esjCU6Px4qDMG6oyBiRCEDod+fB5UovPzoc4YqDOGIBF64W6fHpH2Y3ZL6PVyrPn8wnVJhF+q2rPynChrTyMoTvuarlAufhHowCFcdX5ZGFkq84Pj6I+MhbsTkf1uegnQehQ7BnXGELYI7Tm/7XBO+zG7ETpxGw5hLRBh/vz89RJnf/cmyj5YdplH4ZqLK5SLXwY2cIhXnZ2kw6ypbR6f3NU+JFnEuyOeAIIeArQuxY5BnTFIXaNbfPLjFO3H7JvQvs4nccKlF3zFZVC8PHi0rI3cIC6pMPPJYaCBQ75qORGK0WAXIFiYIhZDwhUsYrLfSw8B+oMWxY5BnTHIY4TLPA7jGIZz2o/Z1xsc2vU7L6VIGcbr2zxa1rcP0+tAhW7xC0EGjshV212jbmQQZBUXWZMbiuExk7LfS6cBuqFix6DOGGIvy7ym6EgR7QfsdydCL1WFnpdw07qyor2ywrT9FO0SofC0EO37ldZ9s9deG6NP0OX38V4eEaA7WMqGOmOQE+FrGoZpCh/XaT9mX5u3CFN715XdsRsrB1qENw0cKGgR2mTavJFMmSil5bn7EQG6j5ZK61MopHudxTHCcOCH9qP2TWhf55PUDMv5nfRnyu4V2DtVjhHeN3yuYIzQIhsBqrOnlpGYTgN0j2NXrU+hkO51Ft4atR/0Nb2B2aPdCJ24DYewfM0PnUKbzD2dM2WXeZSHu8orvO/5EP/WqHfV5pXQ8FXQvR95k0dqEToPCZmXZVKy30uvAbqdYsegzhj8ROh/M7f/aT9mt4VeL2eZR/+lDGukaf9AfCA7XNbfa7vOwgpjxS+i3e8I7YwXvitjpzRTxu1cDgv5r9P4YoonAKGHAK1LsWNQZwycWQZEQ4c+0zHRQaeGSw+B4wlQZwzUGQMTIYh2Dv2n8iADBwjqjIE6Y2AiBEGHxkCdMVBnDNQZAxMhCDo0BuqMgTpjoM4Y3j+/w/vnlxs3bty4cfuzG1uECN58soNAnTFQZwzUGQMTIQg6NAbqjIE6Y6DOGJgIQdChMVBnDNQZA3XGwEQIgg6NgTpjoM4YqDMGJkIQShz6zGxHPcyUpEXnx0OdMVBnDEyEIHQ49OPzoBKdnw91xkCdMQSJUMmKDY+xW0Kvl2NNUOnPch1bLdFZKOVgWXuuTFO2uEK5+EWgA4dw1fb1yVcoS2WmbIzOzeiLGU7cinpW6SVAB+6Xvzuq6EJn6Rvdn87C6hOtV2x4kt0InbgNh/AmZP78+fnrFZ7A6uSyE2WXeRSuubhCufhlYAOHeNXZeenMAhXm8clfqCKsIHV3zB6oiNNDgBYV62zWwA50lr/R/eksrkeocSWHXu2b0L7OJ6lcAjDIg0fL2sgN4pIKM58cBho45KuWQ4C4BOMugKuEUTu3DJNUF4QOAvQXT5f+AnTrU6jBiN2fzsIY4TKPwziG4Zz2Y/a1+Qr1a9C3ebSsbx+m14EK3eIXggwckau2O4XktQnX0OZIITcUhWN6dQEDTz8BWvDGbBe0HvrReV1X2wv701l8WeY1RUeKaD9gvzsReqkqDJeO5UxZ0V5ZYdp+inaJUHhaiPb97mN74hDhMI7Rp+mYaOhXmfoJ0FE3u6Nn/nL60XmNSd2LzkIifE3DME3hV4v2Y/a1eYswtXdd2R27sXKgRSh2FZ5HQYvQJpOfIjEiUSoea7CP3f0E6IQ2HbwI3Y/OiW90HzqLY4ThwA/tR+2b0L7OJ6kZlvM77M+U3Suwd6ocI7wpC64qxggtsgmqOnseSbd30E+A1jKqeoxedE59ozvRWXhrVHqtj/ZjdiN04jYcwgp/fiTMviBwpuwyj/JwV3mF930v8G+NeldtXgkNXwXd+5E3eaQWoRNSSsYIm3Q99RKgPcVid0ctPegsfKN71NlJhP6Xavuf9mN2W+j1cpZ59Iej/V+WjfMit+kOlw1/u+aPjicrjBW/iHa/I7QznvCWgBUOTBm3czks5L9O44vp7QKkhwCdcz/10XntQmfxG92hzpxZBkFDhxbzIKBsEzoIHI+AOmOgzhiYCEG0c+g/lQcZOEBQZwzUGQMTIQg6NAbqjIE6Y6DOGJgIQdChMVBnDNQZA3XG8P75Hd4/v9y4cePGjduf3dgiRPDmkx0E6oyBOmOgzhiYCEHQoTFQZwzUGQN1xsBECIIOjYE6Y6DOGKgzBiZCEHRoDNQZA3XGQJ0xMBGCUOLQZ2al7GDqXDU6Px7qjIE6Y2AiBKHDoR+fB5Xo/HyoMwbqjKEkEfrzZr6mYZhmGl1jJkXc4tDWBJX+LNex1RKdNQkPlrXnyjRliyuUi18EOnCEVx1OvRi5ys+Owroc6Xn8hVm47xIzQQ8B2nY0b5mQBoodgzpjKGsRikvP0SitxZcQOq9zHd6EzJ8/P3+9xHOyctmJsss8CqtsFFcoF78MbOAQrzrYQ7zE1zSM0+RJLRqdY3l3J38CN9FLgE4tINbDsgjUGUNp1+j+fba/2DR6xgTXO3TlEoBBHjxa1sZ5MqiqMPPJYaCBo2Y9QjcafHYWV7zylg1KLsOUPYHb6DVAt1PsGNQZQ/EYYek3928b41zu0O6RhZMTVgyUG7F1ZX37ML0OVOgWvxBk4Ehe9bqGT062/oFsojGdCLMncB+9BGhvKaCGih2DOmOoeFnmO/YhLk5HY46bE6GXqkLPSwTQurKivbLCtP0U7RJh+LQQyfPm+diqQDTmjpk7gRvpIUAb9k74hoodgzpjqHlrVGzg0rgW0bhFmNq7ruxOfJy0qEV408CBnhZhRDbbafZdRGP+mGwRFvN9KOmxpdL6FKroWGcmwkuNEdqOEfpneqbsXoG9U+UY4X3D52rGCGPdvsJLpcM4joKxYFiVY4SF7LJ1OHbV+hRq6FlnJsJLjRFuemv0e3g/6gptsrBb92jZZR7DMF1X4X3Ph/i3RsWr3vuInF39qxaflCvGCJOy34v+AP2a3AcG66WlJoodgzpjYCLsNxF+w63bfPAbHOO8xE/+UNmwSWPGtgoqjBW/iHa/I/QbyAWN4KpEKIkZPYHb0R+gHcH8Lo4Gih2DOmPgzDIgGjr0mY6JDjo1XDoIHI+AOmOgzhiYCEG0c+g/lQcZOEBQZwzUGQMTIQg6NAbqjIE6Y6DOGJgIQdChMVBnDNQZA3XG8P75Hd4/v9y4cePGjduf3dgiRPDmkx0E6oyBOmOgzhiYCEHQoTFQZwzUGQN1xsBECIIOjYE6Y6DOGKgzBiZCEHRoDNQZA3XGQJ0xMBGCUOLQZ2Y76mGmJC06Px7qjIE6Y2AiBKHDoR+fB5Xo/HyoMwbqjCFIhF64k2cTp73Ybgm9Xo6Zzc+d6T02i6e9LJhUdjfLqy7Ziy6FZYsrTJ3hadCBQ7xqa/ZFcZpFWSpTKjo3o3B3IrLfjdoAnfCuj8Du6kANpKuCOmMIW4T2vPl2OKf9mN0InbgNh/AmZN4WtpNOaC+wfSiV/f71kmaCtsrKhyiuMHmG58EGjthVy+s0mlL2bQj0i7S9xbsjngACpQE64V2vaRinaUx/BdRBnTFIXaPblflXSPsx+ya0r/NJsit++VHYy4OxsmLwjiwxLTeISyrMfHIYaOAQr9q5eqObGAR2AVwlEqWCHdM+cBtKA7SNI9VHHMvUyYJ51BmDPEa4zONnsVDvpGk/Zl/RK9Sv6xo0LKINFa9spCoxYW2HqK5QPMMrQAaO2FW/pmF/IoqvLLgGD8t2+hQaiuEx8z5wGx0EaEtS+yHlI1FD6aqgzhhiL8u8puhIEe0H7HcnwjBVpbJRsmzorDH3jbl7tsK0/RTtEqFz1d/xvtjl7cOB4hDhMI7RB+fy+3gv6gO0pY1phxR6rCKoMwY5Eb6mYZim8HGd9mP2Fd4i9FsSqb1zDbhIwrIPcaBFeNN4gYIWoXlCXuYxfZGRUdJES5ktwiIs77K747psqbQ+hRRP0lkcIwwHfmg/at+E9nU+SbzzPcwxft98zZCe2K/vH6JyjPC+UfPmY4R13/zYgGy0x5hjhHlc77Ja2va7vP2MXbU+hSgP01l4a9R+0Le7f2mvtxuhE7fhEJaLZRohof+JZc3OXnvOLSseoq7C+x4L8W+N+ldtX77lCCZqLPMofO7UGR9ZDLuaYrLfi9YAnfYuW71m0lVBnTH4idD/Zm7/037Mbgu9Xs4yj+bRa11X6bHse3KB/4Vlg8LjvERyaHCI8gpjxS+i3e8I5WdjKaWZMm7nclBR8DqNL2bkBAAoDdAZ7wqb6w2kq4I6Y+DMMiAaOvSZ/gi9fRkRlAaOx0GdMVBnDEyEINo59J/KgwwcIKgzBuqMgYkQBB0aA3XGQJ0xUGcMTIQg6NAYqDMG6oyBOmN4//wO759fbty4cePG7c9ubBEiePPJDgJ1xkCdMVBnDEyEIOjQGKgzBuqMgTpjYCIEQYfGQJ0xUGcM1BkDEyEIOjQG6oyBOmOgzhiYCEEocegzkxwpniDJoETnx0OdMVBnDEyEIHQ49OPzoBKdnw91xkCdMRQlQntuxH3OOBo9Y1boi26ZfGOcCd4D4xd7NTCp7G6WV10S5sW0yhZXmDrD06ADh3jVZiZG2S9kqXKlVvHuRGS/m44C9EdXaepLPthdSe86V7YIxYVjaMxNJnuDQ3sTMo/zsq7LPMaXwLBymVT2+9dLvB5TVj5EcYXJMzwPNnBIV20vGCG3ol9T+HlJKeHuiLIj6CZAv6ZhnKYx7fl6oc4YahOhwpyj0ChwvUNnF/ryT83LgxXLB0ZXlt73ra4w88lhoIEjvx6h0U2MBvvOxaWCHbkeYYqPJpZonSyPt0OdMdQlQoU5R6FR5HKHDlc68U/Ea1h4fZvRspGqxMvcDlFdoXiGV4AMHPJVOxclN/lW61MpcCRKOcfM+8BtdBGgtwBslGmo2DGoM4aaRKgw5yg0Rrg5EYapKpWNkmXDq4pdZ8zvsxWm7adolwjNVVuLtY2j+Cy87yEOEcZKBcfM+cCNdBCgTTuk0FE1Qp0xlCdChTlHoTEKuEXotyRSe+cacJELtQ9xoEV408BB+xahQ6bNu8ziKGmiFFuEhdjdcX23VFqfQprn6FyUCBXmHIXGBMgxwjDH+J30NUN6Yge/f4jKMcL7hs+bjxHGd5Cozp5uAY4RRgnXUB+GcV46HLtqfQppnqNzQSJUmHMUGpPc9Nbo173Mn8s8hjkmdESxrNnZa8+5ZcVD1FV43/Mh/q3RyFWvXro3/yzzaD9CF5ZaTQm3zylxAjeiPkDb2KI1U+wY1BnDwd8Rft8QotEyZoW+6JaJN8Z2v+DExAeysGxQeJyXSA6Vrr2wwljxi2j3O0K7m9gXYnVSmu0+5aUkMcUTgNBtgG6m2DGoMwbOLAOioUOf6ZjooFPDpavA0THUGQN1xsBECKKdQ/+pPMjAAYI6Y6DOGJgIQdChMVBnDNQZA3XGwEQIgg6NgTpjoM4YqDOG98/v8P755caNGzdu3P7sxhYhgjef7CBQZwzUGQN1xsBECIIOjYE6Y6DOGKgzBiZCEHRoDNQZA3XGQJ0xMBGCoENjoM4YqDMG6oyBiRCEEoc+M9tRDzMladH58VBnDNQZAxMhCB0O/fg8qETn50OdMVBnDEWJMJxac5wXGj1jVuiLbpl8Y5yZ3gPjF3tZMKnsbpZXXRLmxbTKFleYOsPToAOHeNVmWlDZL2SpcqXWjJjQpxTNAVr0YcHYSrsautLZjYtSSNKsc2WLUOGyDwqNATc4tDch8zgv67rMo5OuHMezcplU9vvXS7weU1Y+RHGFyTM8DzZwSFdtLxght6JfU/h5SSnh7khVQdAaoCMqRY2ex6qjK51zK7bp1rkqESrMOQqNAtc7dHbFL//UvDxYsXxgdInpfd/qCjOfHAYaOKSrdq/J6CYGgX3n4lJRyW7QMoXWAP2h4KvayYJ5XeksydiPzhWJUGHOUWgUudyhwyVP/BPx2ghe32a0bKQq8TK3Q1RXKJ7hFSADh3zVzkXJTb7V+tTKeCWlYmKiH7a7CtCCMf/10UFXOgvri3Wkc3EiVJhzFBoj3JwIw1SVykbJsuFVxa7T2CsrTNtP0S4Rmqu2Vg4cR/EReN9DHCKMlRKOKVcFoKsALRhzXx8tdKjz9oHwiKxa58JEqDDnKDRGAbcI/QZCau9cAy5yofYhDrQIb2rCtG8ROmTavJFR0kSpfOjB0GGAZovwchK6fX24I52LEqHCnKPQmAA5RhjmGL9vvmZIT+zX9w9ROUZ4X0de8zHC+A4S1dkz7nfYINNhgHaN/YxdtT6FBAXe2I/OBYlQYc5RaExy01ujX68yfy7zGOaY0P/EsmZnrz3nlhUPUVfhfREb/9Zo5KpXL92bf5Z53HaUmnGRUqsp4Txhp6q6kQ4DdNhLl7h3WuhIZ/MGc2z0W7fOR35HOEwvGj1jVuiLbpl4YzYXtAaazImJz2Fh2aDwOC+RHCpde2GFseIX0e53hHY3sS/E6oQG233KS0liilVB0BqgRZVEo+ix6uhJZ9vm9yl1oDNnlkHQ0KHP9Efo7cuIoDVwPA3qjIE6Y2AiBNHOof9UHmTgAEGdMVBnDEyEIOjQGKgzBuqMgTpjYCIEQYfGQJ0xUGcM1BnD++d3eP/8cuPGjRs3bn92Y4sQwZtPdhCoMwbqjIE6Y2AiBEGHxkCdMVBnDNQZAxMhCDo0BuqMgTpjoM4YmAhB0KExUGcM1BkDdcbARAhCiUOfmeRI8QRJBiU6Px7qjIE6Y2AiBKHDoR+fB5Xo/HyoMwbqjCFIhF64kycRp73Ybgm9Xo4106QzwXtsFk97NTCp7G6WV10S5sW0yhZXmDrD0+ADh6hYVEbrU18AM1VjdEpGodqI7HfTR4C213h01gJqoNgxqDOGsEVoz2Jvh3Paj9mN0InbcAhvQuZtEmbphPYC9uTcftnvXy9xZQ1TVj5EcYXJMzwPNnCIiqVk/O5g34ZwKXq57Z041uLXcD89BGjv2c32yQaKHYM6Y5C6Rrf45Mcp2o/ZN6F9nU+SXejLT8deHqxYPjC6srTcIC6pMPPJYVoEDvEyBPUTO7l7G7UzyzC1W+ytgwDt6LFJ2snyeDvUGYM8RrjM4zCOYTin/Zh9ha9Qv65Bw0J8bhPKRqoSE9Z2iOoKxTO8gq4SobxqW6yhGFab94Hb6CBAf3vsJnuZ9IaKHYM6Y4i9LPOaoiNFtB+w350Iw1SVykbJsqHXxvw45vfZCtP2U6hNhA77mIo4RDiMY/QJuvw+3ksXAXrdVZUfAaGKHYM6Y5AT4WsahmmSl9ymvd6+wluEfksitXeuARcJ6fYhDrQIbxo46CMR2jtFhgPrEyFbhB5GxmUezTrTvbVUWp9ClofoLI4Rhv28tB+1b0L7Op8k3gsf5hi/k75mSE/s4PcPUTlGeN/weV+JMDogG+0x5hhhKXIs7nDsqvUpZHiMzsJbo/aDvqY3MHu0G6ETt+EQlq8Jz2Q2oSOKZc3OXnvOLSseoq7C+54P1SZCk/uXedzkkVqEzkNC5mWZlOz3oj9AO4IYoZspdgzqjMFPhP43c/uf9mN2W+j1cpZ5+6XOFhutgSYzCiU+kIVlg8JbH0eYQ4NDlFcYK34R+J9P+BcoG+2UZpRyO5d9+dxScrWS7Ag6CNCuZG6jpYFix6DOGDizDIiGDn2mY6KDTg2XLgLHA6DOGKgzBiZCEO0c+k/lQQYOENQZA3XGwEQIgg6NgTpjoM4YqDMGJkIQdGgM1BkDdcZAnTG8f36H988vN27cuHHj9mc3tggRvPlkB4E6Y6DOGKgzBiZCEHRoDNQZA3XGQJ0xMBGCoENjoM4YqDMG6oyBiRAEHRoDdcZAnTFQZwxMhCCUOPSZ2Y56mClJi86PhzpjoM4YmAhB6HDox+dBJTo/H+qMgTpjCBKhkhUbHmO3hF4vx5qg0pnpPTaLp70smFR2N8urLgnzYlpliytMneFp8IHjwAXKUpkZG6NzMwp3JyL73WgO0KUqNZKuis50thfVFCYdVa2zsPpE6xUbnmQ3QiduwyG8CZnHeVnXZR7jS2BYuUwq+/3rJa2lYJWVD1FcYfIMz4MNHMcu8DXZtyHQL9L2Fu+OKDsCrQG6XKVm0lXRm86263ems7geocaVHHq1b0L7Op8ku+KXn469PBgrK2Tx6BLTcoO4pMLMJ4dpETiKLlAMAvvnbhVG7cwyTFyPUKZApU4WzOtJZ0fFzYf70VkYI1zmcRjHMJzTfsy+wleoX9egYSE+rgllI1WJkX47RHWF4hlega5E6C3KJt0hK+PZQURoKIbHyvvAbXQUoEWVGkpXRUc6r9+e0W9b4GPvSGfxZZnXFB0pov2A/e5EGKaqVDZKlg2dNea+MXfPVpi2n0JTIkwnyPgQ4TCO0Qfn8vt4Lx0FaFGlhtJV0ZHOH75uLD9zq9ZZSISvaRimKXxcp/2YfYW3CP2WRGrvXAMuEs/tQxxoEd40XqAnEZZcYHQQMdpSZouwBLYIMYRp7uu3yzyahb070VkcIwy7d2k/at+E9nU+SbzzPQzBft98zZCe2K/vH6JyjPC+UXMlibD0AmMDstEeY44RlsAxQgwFj2X96Cy8NWo/6Gt6A7NHuxE6cRsO4Q1AeY9iNqH/iWXNzl57zi0rHqKuwvseCxUkQvkCTWpc5nGTR2oROjk087JMSvZ76ShAR1RqJl0VPelsy2g8uxudnUTofzO3/2k/ZreFXi9nmbcf6GzeaA00mVEo8TksLBsU3ro2whwaHKK8wljxi8D/fKLwAq2UZpRyO5d9+dxS0rFWUXYEWgN0jUqNpKuiL51tq9s47EBnziyDoKFDn+mP0NuXEUFr4Hga1BkDdcbARAiinUP/qTzIwAGCOmOgzhiYCEHQoTFQZwzUGQN1xsBECIIOjYE6Y6DOGKgzhvfP7/D++eXGjRs3btz+7MYWIYI3n+wgUGcM1BkDdcbARAiCDo2BOmOgzhioMwYmQhB0aAzUGQN1xkCdMTARgqBDY6DOGKgzBuqMgYkQhBKHPjPJkeIJkgxKdH481BkDdcbARAhCh0M/Pg8q0fn5UGcM1BlDSSL05818TcMwzTS6xkyKuMWhrQkqnQneY7N42quBSWV3s7zqkjAvplW2uMLUGZ4GHziSFyhfn7yDmagxOiWjcHeyB7uHXgJ0oJjtfR082VFnDGUtQnHpORqltfgSQud1rsObkHmcl3Vd5jG+BIaVy6Sy379e4vWYsvIhiitMnuF5sIFDVOw12SoL1yftYHuUXCxyLEF2BD0EaFGxzmYNpM4YSrtG9++m/SWl0TMmuN6hswt9+Rnay4OxsmJif8krSztPBlUVZj45TIvAEb0M+wMxT+07BOvZxLJbfOEbbOjpIUB/yC4rphrqjKF4jPBzXeLF0lgQyi93aPfI0nl4Kdrr24yWjVQlXuV2iOoKxTO8Ak2JML2yoGtzpJAbiuGx8j5wG10H6GwXtB6oM4aKl2W+Qxji4nQ05rg5EYapKpWNkmXDeBqLsMZeWWHafgoViXAf7Yv5hrSDtZbbOEafpsvv4710G6DdD9Q3Wqgzhpq3RsXGLo1rEeAWod+SSO2da8BFPDw+TlrUIrxpSEtFIrQ/SHpIZIdES63jJncAAAtqSURBVJktwloSsnTwIjR1xsBE2GsiTIwPhTnGP9OaIT3xKv1DVI4R3vdih6pEmM9N4g6puMExwlpO3B0FUGcMTITdJkI7Cpo/l3kMc0x4omJZs3Ny0Fs8RF2F930v2ifCZR63q7cbfCb3R3bYSI8shr2hMdnvpdMAbV7YRb9mexDqjIGJsN9EaA9I2+8mukyv+Ml7Q9l+4XFeIjk0OER5hbHiF4H/+YR/gZHXBKxwIO1g2SJd3OKxRNkR9BCgc+6nPjqv1BkFZ5YB0dChz3SZQbvbrqCHwPEEqDMG6oyBiRBEO4f+U3mQgQMEdcZAnTEwEYKgQ2OgzhioMwbqjIGJEAQdGgN1xkCdMVBnDO+f3+H988uNGzdu3Lj92Y0tQgRvPtlBoM4YqDMG6oyBiRAEHRoDdcZAnTFQZwxMhCDo0BioMwbqjIE6Y2AiBEGHxkCdMVBnDNQZAxMhCCUOfWYerg6mzlWj8+OhzhioMwYmQhA6HPrxeVCJzs+HOmOgzhiCROiFu30mVdqP2S2h18uxJqh01iCITeJpL1gX2e9jllddEubFtMoWVygXvwh84Igp9pltMb48UyCAmZ4xOjmjcKzU/b4RtQG6wjkbSVcFdcYQtgjtCfHtcE77MbsROnEbDuFNyPz500z7HrbgrFwWKTsM4/wSF00xZZd5FK65uEK5+GVgA0dcsdc0jNMUW7k+vEf2FP1y21s8lig7AqUButo5G0hXBXXGIHWNblfmxynaj9k3oX2dT5Jbiy7Ixl4ejJUVsnh08XO5QVxSYeaTw7QIHOFlfBRw7GIQ2PdwqzBqZ5Zh4nqECdLO2U66KqgzBnmMcJnHYRzDcE77MfsKX6FeCKFe32a0rJSdInlw9/LqCt3iF6IhEW5f92wi9B6WdynkhmJ4rJwP3EgHATrpnA2lq4I6Y4i9LPOaoiNFtB+w350IvUZE2B+fCKBempPbN8n2YG2Fafsp2idC89SbfgKIDxEO4xh9cC6/j/eiPkBnnLOhdFVQZwxyInxNwzBN4eM67cfsa4MWodtDm9o714CLxHO7sXKgRXjTeEHrRGh3/uQzfWSUNNFSZouwiKxzdtRSaX0KKZ6kszhGGPb50n7Uvgnt63ySbOe75XX+xzVDemK/vp/GKscI7xs1b50IrXadaeDFrzQ2IBvtMeYYYZ4i5+xn7Kr1KUR5mM7CW6N2jt9OnPZjdiN04jYcwnKx/c9lHu32iNVH556OVHY15bz2nFt2mUd5uKu8wvseC1snwqjdRA35Hu044SXzskxK9nvRGqDLnbOZdFVQZwx+IvS/mdv/tB+z20Kvl7PMo9/oMCa3zyLwP6Gs35oZ5yWSQ11Mti2oMFb8IvA/n4i3/SKJMHqPhEq812mEYwmyI1AaoCucs5l0VVBnDJxZBkRDhz7TH6G3LyOC0sDxOKgzBuqMgYkQRDuH/lN5kIEDBHXGQJ0xMBGCoENjoM4YqDMG6oyBiRAEHRoDdcZAnTFQZwzvn9/h/fPLjRs3bty4/dmNLUIEbz7ZQaDOGKgzBuqMgYkQBB0aA3XGQJ0xUGcMTIQg6NAYqDMG6oyBOmNgIgRBh8ZAnTFQZwzUGQMTIQglDn1mkiPFEyQZlOj8eKgzBuqMgYkQhA6HfnweVKLz86HOGKgzhqJEaM+NuM8ZR6NnzAp90S2Tb4wzwbtv27BXA4vs9zHLqy4J82JaZYsrlItfBD5wBBfoeod0hbJUZv7GqDcJdyd1v29EbYCW9RCtjaSrgjpjqG8RilPt05ibTPYGh/YmZP78+ZrsBYGC6bLtD4WywzDOL/F6TNllHoVVNoorlItfBjZwiIpl56WT7pG9zITc9haPJcqOQGuAFv0/4ZwNpKuCOmOoTYQKc45Co8D1Dp1b6Cs4My8PViwfGF1Zet+3usLMJ4dpETiWkkQoBoG9pFuFUTuzDBPXI4xjlOp8nbzWp5DhMTpXJEKFOUehUeRyh3YPHZ5IEEK9vs1oWemaInlw9/LqCt3iF6IkEYadnFIi9B6WdynkhmJ4rJwP3Ij6AO2s/xiq1FC6KqgzhppEqDDnKDRGuDkReo2IsD8+EUC9NBdeVew6jb2ywrT9FAoSofuBmOmle2Qt8TaO0Qfn8vt4L3oDdKCtqFJD6aqgzhjKE6HCnKPQGAXeInSjcGrvXAMucqF2Y+VAi/Cm8QJViTDb5o1kykQptghL2bXtvaXS+hQyPEbnokSoMOcoNCbAjxHap+h/XDOkJ/br+2mscozwvlFzXYkw6yXiDqns6RbgGGGCXarOx65an0KOp+hckAgV5hyFxiQ3vTVqva41vT4nZjcCv5+H/ieVXU05rz3nll3mUR7uKq/wvsfC5onQvE4Xvgq69yML92jHeUjIvCyTkv1elAZoWVtRpWbSVUGdMRz8HeEwvWj0jFmhL7pl4o1xessGzyg+hwllrVGq/QM5h0rXXlhhrPhF4H8+kbpAL2VZ7XPpHoWF/Ndp/GOtouwIlAZoUds1olIj6aqgzhg4swyIhg59pj9Cb19GBK2B42lQZwzUGQMTIYh2Dv2n8iADBwjqjIE6Y2AiBEGHxkCdMVBnDNQZAxMhCDo0BuqMgTpjoM4Y3j+/w/vnlxs3bty4cfuzG1uECN58soNAnTFQZwzUGQMTIQg6NAbqjIE6Y6DOGJgIQdChMVBnDNQZA3XGwEQIgg6NgTpjoM4YqDMGJkIQShz6zCRHiidIMijR+fFQZwzUGQMTIQgdDv34PKhE5+dDnTFQZwxFiTCcWvO7vgaNljEr9EW3TL4xzgTvvm3DXg0sst/HLK+6JMyLaZUtrlAufhH4wCEqFpk6NPxUXJAw6k3CsVL3+0Y0B+hAJff7WvRV0YJmndfNZ6XA0J/OlS1Chcs+KDQG3ODQ3oTMnz/N4gdhC87KZZGywzDOL/F6TNllHh3HD5ZST1coF78MbOCQFct5hHSP/IUq5EUKg2OJsiPQGqBFlXIriWGlq0Krzuu6foLCNBmp+9a5KhEqzDkKjQLXO3Ruoa/gzLw8WLF8YHRl6X3f6goznxymReAIl0aSW9QJ73GrMDVklmHieoQy2aXEelonr/UpxPiIZkvdt84ViVBhzlFoFLncod1DhycShFCvbzNaVrqmSB7cvby6Qrf4hbRPhMs8DuMYdAZJidB7WN6lkBuK4bFyPnAjigP0Knqg1+3cULoq1Oq85TQ/Efarc3EiVJhzFBoj3JwIvUZE2B+fCKBemguvKnadxl5ZYdp+ivaJ0M5dsc5f6R5Z6w2OY/TBufw+3ovaAL2ua8K19hvSULoqlOpsmnay1D3qXJgIFeYchcYo8BahG4RTe+cacJEL9QN+ZYvwpvECHYnQ6QtKXGUkUSZaymwRlpCQ4qttRy2V1qcQYvdwxqTrT+eiRKgw5yg0JsCPEdqn6H9cM6Qn9uv7aaxyjPC+UfP2iTDVZssU/ZLqMc4kXY4Rruuakn3/pJ+xq9anEGJ1XvhdoRsd6lyQCBXmHIXGJDe9Nfr1qv3PZR7tRzWr+yJ4gTQou5pyXnvOLbvMozzcVV7hfY+F7ROh/a/4xpx8j3ach4TMyzIp2e9FZYDecVQyL+nGRmUV/0RWt86rLXXvOh/5HeH3bSEaLWNW6ItumXhjnCbI4BnF5zChrP+gN85LJIdK115YYaz4ReB/PuFf4OrcBOcFmPBjdzTRk28NAkryWNA+J60BOudyfl9HA+mq0KrzjvfY17HOnFkGQUOHPtMfobcvI4L6wPEQqDMG6oyBiRBEO4f+U3mQgQMEdcZAnTEwEYKgQ2OgzhioMwbqjIGJEAQdGgN1xkCdMVBnDO+f3+H988uNGzdu3Lj92Y0tQgRvPtlBoM4YqDMG6oyBiRAEHRoDdcZAnTFQZwxMhCDo0BioMwbqjIE6Y3j//P4fD3FjqYxIProAAAAASUVORK5CYII=" alt=""><br>

<br><br><font>En donde Importe_hora, es la suma del importe de las transacciones que se hicieron<font> en los ultimos 60 minut<font>os en refe<font>rencia a la f<font>echa y hora de la t<font>ransaccion en cuestion.</font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font><br>

<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><div class="gmail_extra"><br clear="all"><div><font face="verdana, sans-serif">Abrazo</font></div><div><font face="verdana, sans-serif"><br>

</font></div><font face="verdana, sans-serif">Pablo A. Guzzi</font><div><a href="mailto:guzzipa@gmail.com" target="_blank"><font face="verdana, sans-serif">guzzipa@gmail.com</font></a></div><div><font face="verdana, sans-serif"><br>

</font></div><br>
<br><br><div class="gmail_quote">El 28 de noviembre de 2012 16:14, daniel <span dir="ltr"><<a href="mailto:daniel319@gmail.com" target="_blank">daniel319@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Pablo,<br>
<br>
Luego de leer el mensaje de Javier me pareció que podría ser un tema<br>
que interese a más gente, por lo tanto, me tomé la libertad de usar tu<br>
ejemplo (por favor otra vez envía datos que sean reproducibles<br>
<a href="http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example" target="_blank">http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example</a><br>
).<br>
<br>
Espero lo siguiente sea lo que necesitas y sirva a otros para orientar<br>
sus consultas, o para que gentilmente me corrijan.<br>
<br>
library(xts)<br>
<br>
# Data artificial, no necesariamente igual a la de Pablo por un tipeo descuidado<br>
Fecha <- c(rep(as.Date("2012-1-1"), 3), rep(as.Date("2012-1-2"), 6),<br>
rep(as.Date("2012-1-3"), 3))<br>
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")<br>


Importe <- c(10,15,50,240,40,110,80,100,15,200,300,150)<br>
FechaHora <- as.POSIXct(paste(Fecha, Hora), tz = "UTC")<br>
diff(FechaHora, lag=1) # no lo uso es solo para ver las diferencias en segundos<br>
ep <- endpoints(FechaHora, 'hours')<br>
PabloData <- xts(Importe, FechaHora)<br>
period.apply(PabloData, INDEX=ep, FUN=sum)<br>
# como verás no usé rollapply, sino period.apply ya que los datos<br>
vienen con períodos irregulares.<br>
# no me tomé el tiempo para ver si el resultado es el correcto.<br>
<br>
Daniel Merino<br>
<br>
<br>
<br>
El día 28 de noviembre de 2012 13:05, Marcuzzi, Javier Rubén<br>
<<a href="mailto:javier.ruben.marcuzzi@gmail.com">javier.ruben.marcuzzi@gmail.com</a>> escribió:<br>
<div class="HOEnZb"><div class="h5">> Estimado Pablo<br>
><br>
> Entonces su problema tiene algo parecido a algo que me paso, en esta lista,<br>
> había que buscarlo, me pasaron varias posibilidades de trabajo, en mi caso<br>
> eran días, pero en R la unidad de tiempo se cuenta a partir de una fecha<br>
> fija y creo que en segundos, en mi caso varias alternativas fallaron, o<br>
> daban resultados que al leerlos estaban bien, pero como yo conocía el valor<br>
> real, encontré algunos errores de R, ni idea el porqué (incluso copiado de<br>
> libro), pero la solución en mi caso es striptime(), r-project se actualizó,<br>
> mejoro, etc., pero una vez que tengo un código qua anda prefiero no tocarlo.<br>
><br>
> Le recomiendo que pruebe con pocos datos, según su versión de R, sistema<br>
> operativo, datos, etc. No confíe en los resultados hasta leer varios<br>
> originales, algún cálculo mental o con lápiz, y si está acorde continuar, el<br>
> trabajo con fechas por ahí da trabajo, aunque si todo anda bien es<br>
> rapidísimo.<br>
><br>
> El resto, intente la ayuda de Daniel, si se presentan inconvenientes entre<br>
> todos buscaremos alguna forma, pero sería recomendable intercambiar códigos<br>
> de R para ser precisos.<br>
><br>
> Javier Marcuzzi<br>
><br>
> From: Pablo Andres Guzzi<br>
> Sent: Wednesday, November 28, 2012 12:05 PM<br>
> To: javier.ruben.marcuzzi ; daniel319<br>
> Cc: r-help-es<br>
> Subject: Re: [R-es] Hola, soy Pablo.<br>
><br>
> Daniel, ya me pongo a investigar el paquete zoo y mas precisamente el<br>
> comando rollappl.<br>
><br>
> Javier, Necesito los movimientos de los ultimos 60 minutos segun la fecha de<br>
> la transaccion. Si la transaccion tiene fecha de realizacion 28/11/2012 a<br>
> las 12:00:00 necesito que la variable en cuestion cuente las trx realizadas<br>
> desde las 11:00:00 hasta las 12:00:00 del 28/11/2012<br>
><br>
><br>
><br>
> Abrazo<br>
><br>
> Pablo A. Guzzi<br>
> <a href="mailto:guzzipa@gmail.com">guzzipa@gmail.com</a><br>
><br>
><br>
><br>
><br>
> El 28 de noviembre de 2012 11:18, Usuario R <<a href="mailto:r.user.spain@gmail.com">r.user.spain@gmail.com</a>><br>
> escribió:<br>
>><br>
>> Hola Pablo,<br>
>><br>
>> Soy Patricia la administradora de la lista. Bienvenido y muchas gracias<br>
>> por tu email.<br>
>><br>
>> Quería también hacerte una pregunta, estas buscando trabajo? Yo soy<br>
>> también licenciada en estadística y vivo en Berlin. Me mandan muchisimas<br>
>> ofertas de trabajo y te podría pasar algunas, si estas interesado. Todas las<br>
>> ofertas son para Alemania, sobretodo Berlin.<br>
>><br>
>> Bueno, espero que la lista te ayude con tus dudas, un abrazo.<br>
>><br>
>> Patricia<br>
>><br>
>><br>
>><br>
>><br>
>><br>
>> El 28 de noviembre de 2012 15:04, Pablo Andres Guzzi <<a href="mailto:guzzipa@gmail.com">guzzipa@gmail.com</a>><br>
>> escribió:<br>
>>><br>
>>> Pablo A. Guzzi<br>
>><br>
>><br>
>><br>
>><br>
>> --<br>
>> Patricia García González<br>
>><br>
>><br>
><br>
<br>
<br>
<br>
</div></div><span class="HOEnZb"><font color="#888888">--<br>
Daniel<br>
</font></span></blockquote></div><br></div>