[R] access to right time unit when checking for time execution

[David Winsemius]

On Jan 15, 2011, at 6:57 AM, Christine SINOQUET wrote:

> Hello,
>
> I really wonder how to distinguish between secs and mins in the  
> example below.
>
> In other terms, how can I access the time unit in variable d ?
>
> start1 <- Sys.time();
> stop1 <- Sys.time(); d <- stop1-start1;

 > str(d)
Class 'difftime'  atomic [1:1] 0.00343
   ..- attr(*, "units")= chr "secs"
 > attr(d, "units")
[1] "secs"


> print(d); v<-unlist(strsplit(as.character(d), split=" ")); print(v)
> Time difference of 3.024054 secs
> [1] "3.02405381202698"
>
> stop1 <- Sys.time(); d <- stop1-start1;
# Wait a bit...
 > d
Time difference of 1.053085 mins
 > stop1 <- Sys.time(); d <- stop1-start1
 > attr(d, "units")
[1] "mins"

> print(d);
> v <- unlist(strsplit(as.character(d), split=" ")); print(v)
> Time difference of 3.189143 mins
> [1] "3.18914334774017"
>
>
> Thank you in advance for your kind help.
>
> C.S.

David Winsemius, MD
West Hartford, CT