Correct Marker Label Swaps

Repairs marker trajectories by swapping the data columns of detected swap pairs from the swap frame onward.

Usage

correctSwaps(pe, swaps, assay_prefix = "position", min_confidence = 0.5)

Arguments

pe

A PhysioExperiment with position assays.

swaps

A data.frame as returned by detectSwaps(), containing at minimum frame, marker_a, marker_b, and confidence columns.

assay_prefix

Prefix for position assay names. Default "position".

min_confidence

Minimum confidence threshold for applying a correction. Swaps below this threshold are skipped. Default 0.5.

Value

A PhysioExperiment with corrected position assays.

See also

detectSwaps(), trackMarkers()

Examples

demo <- demoMoCapData(seed = 1)
swaps <- detectSwaps(demo$mocap)
pe_fixed <- correctSwaps(demo$mocap, swaps)
pe_fixed
#> class: PhysioExperiment
#> dim: 300 x 8 
#> assays(3): position_x, position_y, position_z
#> samplingRate: 120 Hz
#> channels(8): Pelvis_R, Pelvis_L, Knee_R, Knee_L, Ankle_R ...
#> colData names(2): label, type