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_per_set(list(data),
mov_av_time_window = 5,
geo = FALSE,
step2time = 1
)
Run the code above in your browser using DataLab