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