data <- data.frame(
set = rep(1, 75),
x = rnorm(75, sd = 3),
y = rnorm(75, sd = 3),
t = as.POSIXct(rep(1:25, 3), origin = Sys.time()),
id = c(rep(1, 25), rep(2, 25), rep(3, 25))
)
metrics <- col_motion_metrics_from_raw(data,
mov_av_time_window = 5,
step2time = 1,
geo = FALSE,
speed_lim = 0,
pol_lim = 0,
noise_thresh = 1
)
Run the code above in your browser using DataLab