Displaying 1 result from an estimated 1 matches for "time02".
Did you mean:
time0
2011 Mar 11
1
dataframe to a timeseries object
...mat = '%Y-%m-%d %H:%M:%S'),
tzone = 'GMT'),
envir = env)
return(TRUE)
}
}
fooBy <- function(...)
{
e1 <- new.env(parent = baseenv())
res <- by(X, X$ID, buildXtsFromDataFrame,
env = e1, simplify = TRUE)
return(get("xx", e1))
}
Time02 <- replicate(100,
system.time(fooBy(X,
X$ID, buildTimeSeriesFromDataFrame,
simplify = TRUE))[[1]])
median(Time02)
hist(Time02)
plot(density(Time02), xlim = c(min(c(Time02, Time01)), max(c(Time02, Time01))))
lines(density(Time01))
Best regards,
Daniele Amberti
ORS Srl
Via Agosti...