This truncates to quarter-hour rather than rounding to half-hour.
"stephen sefick" <ssef...@gmail.com> wrote:
>If you have a zoo series this should work. If it doesn't then please
>tell me because I think it works.
>
>snap2min <- function(zoo, min="00:15:00"){
>min15 <- times(min)
>a <- aggregate(zoo, trunc(time(zoo), min15), function(x) mean(x, na.rm=TRUE))
>}
>
>hth
>
>Stephen Sefick
>
>On Fri, Jul 23, 2010 at 11:00 AM, David Winsemius
><dwinsem...@comcast.net> wrote:
>>
>> On Jul 23, 2010, at 11:35 AM, David Winsemius wrote:
>>
>>>
>>> On Jul 23, 2010, at 11:20 AM, <murali.me...@avivainvestors.com>
>>> <murali.me...@avivainvestors.com> wrote:
>>>
>>>> Hi folks,
>>>>
>>>> I've got a POSIXct datum as follows:
>>>>
>>>>> Sys.time()
>>>>
>>>> [1] "2010-07-23 11:29:59 BST"
>>>>
>>>> I want to convert this to the nearest half-hour, i.e., to "2010-07-23
>>>> 11:30:00 BST"
>>>>
>>>> (If the time were "11:59:ss", I want to convert to "12:00:00").
>>>>
>>>> How to achieve this?
>>>
>>> Couldn't you just coerce to numeric, divide by 60(sec)*30(half-hour
>>> minutes), round to integer, multiply by 60*30, coerce to POSIXct?
>>
>> When I tried my method I see that one also needs to add or subtract the
>> proper number of seconds from Universal Time to get the output formatting
>> correct. (Probably demonstrates that I do not have the proper understanding
>> of the right place to employ a TZ specification.).
>>
>> David Winsemius, MD
>> West Hartford, CT
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
>
>--
>Stephen Sefick
>____________________________________
>| Auburn University |
>| Department of Biological Sciences |
>| 331 Funchess Hall |
>| Auburn, Alabama |
>| 36849 |
>|___________________________________|
>| sas0...@auburn.edu |
>| http://www.auburn.edu/~sas0025 |
>|___________________________________|
>
>Let's not spend our time and resources thinking about things that are
>so little or so large that all they really do for us is puff us up and
>make us feel like gods. We are mammals, and have not exhausted the
>annoying little problems of being mammals.
>
> -K. Mullis
>
>______________________________________________
>R-help@r-project.org mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------
Sent from my phone. Please excuse my brevity.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
