# Load example data from the package
data_path <- system.file("extdata/csv_data/A-B_body_dyad.csv", package = "duet")
data <- read.csv(data_path)
# Compute velocity
result <- op_compute_velocity(
data = data,
fps = 30,
overwrite = FALSE,
merge_xy = TRUE
)
print(result)
Run the code above in your browser using DataLab