# Path to example CSV file included with the package
file_path <- system.file("extdata/csv_data/A-B_body_dyad.csv", package = "duet")
# Load the data
data <- read.csv(file_path)
# Plot the data for the specified frame
op_plot_openpose(
data = data,
frame_num = 1,
person = "both",
lines = TRUE,
keylabels = TRUE,
label_type = "names",
left_color = "blue",
right_color = "red",
background_colour = "grey90"
)
Run the code above in your browser using DataLab