library(pathviewr)
## Import the example Motive data included in the package
motive_data <-
read_motive_csv(system.file("extdata", "pathviewr_motive_example_data.csv",
package = 'pathviewr'))
motive_selected <-
motive_data %>%
relabel_viewr_axes() %>%
gather_tunnel_data() %>%
trim_tunnel_outliers() %>%
rotate_tunnel() %>%
get_velocity() %>%
select_x_percent(desired_percent = 50)
visualize_frame_gap_choice(motive_selected, loops = 10)
Run the code above in your browser using DataLab