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; 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; 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.
access to right time unit when checking for time execution
3 messages · Christine SINOQUET, Uwe Ligges, David Winsemius
On 15.01.2011 12:57, 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; 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; print(d); v <- unlist(strsplit(as.character(d), split=" ")); print(v) Time difference of 3.189143 mins [1] "3.18914334774017"
1. If you want to measure execution time, use system.time(). 2. If you want to calculate a time difference, use difftime() and specify the unit: difftime(stop1, start1, units="mins") Best, Uwe Ligges
Thank you in advance for your kind help. C.S.
______________________________________________ R-help at 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.
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