data <- data.frame(
set = rep("1", 50),
t = as.POSIXct(rep(1:25, 2), origin = Sys.time()),
id = c(rep(1, 25), rep(2, 25)),
x = rnorm(50),
y = rnorm(50),
head = runif(50, 0, 2 * pi),
speed = rnorm(50)
)
gm <- group_metrics(data,
geo = FALSE,
step2time = 1)
Run the code above in your browser using DataLab