# 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)
# Interpolate missing or low-confidence values
result <- op_interpolate(
data = data,
confidence_threshold = 0.5,
missing = TRUE,
treat_na_conf_as_low = TRUE
)
print(result)
Run the code above in your browser using DataLab