Your function needs to be able to work on vector input, e.g.
transform( y, time=Vectorize(str_to_millis)( as.character(time) ) )
or just do this:
library(chron)
y$time <- 24 * 60 * 60 * 1000 * as.numeric(times(y$time))
On 10/8/07, Rees, David <[EMAIL PROTECTED]> wrote:
> Hi,
>
> If I have the
try this:
> x <- read.table(textConnection(" time val
+ 1 08:00:05.834 1
+ 2 08:03:13.345 2
+ 3 08:10:12.443 3"), header=TRUE)
> z <- strsplit(as.character(x$time), ":")
> newtime <- lapply(z, function(a) as.numeric(a) %*% c(360, 6, 1000))
> x$time <- unlist(newtime)
> x
2 matches
Mail list logo
